Tags

, ,

DECLARE
  l_return_status    varchar2(1000);
  l_msg_count        number;
  l_msg_data         varchar2(4000);
  l_card_id          number;
  l_response         IBY_FNDCPT_COMMON_PUB.Result_rec_type;
  l_card_instrument  IBY_FNDCPT_SETUP_PUB.CreditCard_rec_type;
BEGIN
  l_card_instrument.Owner_Id              := 4429;
  l_card_instrument.Card_Holder_Name      := ‘Business World’;
  l_card_instrument.Billing_Address_Id    := 3643;
  l_card_instrument.Card_Number           := ‘4012888888881881’;
  l_card_instrument.Expiration_Date       := ’21-OCT-2011′;
  l_card_instrument.Instrument_Type       := ‘CREDITCARD’;
  l_card_instrument.PurchaseCard_Flag     := ‘N’;
  l_card_instrument.Card_Issuer           := ‘VISA’;
  l_card_instrument.Single_Use_Flag       := ‘N’;
  l_card_instrument.Info_Only_Flag        := ‘N’;
  l_card_instrument.Card_Purpose          := ‘N’;
  l_card_instrument.Card_Description      := ‘Card for BW Corporate Purchases’;
  l_card_instrument.Active_Flag           := ‘Y’;
  IBY_FNDCPT_SETUP_PUB.Create_Card (
            p_api_version     => 1.0,
            x_return_status   => l_return_status,
            x_msg_count       => l_msg_count,
            x_msg_data        => l_msg_data,
            p_card_instrument  => l_card_instrument,
            x_card_id          => l_card_id ,
            x_response         => l_response,
            p_init_msg_list    => FND_API.G_TRUE
   );
   dbms_output.put_line(‘l_return_status = ‘ || l_return_status);
   dbms_output.put_line(‘l_msg_count = ‘ || l_msg_count);
   dbms_output.put_line(‘l_card_id = ‘ || l_card_id);
   dbms_output.put_line(‘l_response.Result_Code = ‘ || l_response.Result_Code);
   dbms_output.put_line(‘l_response.Result_Category = ‘ || l_response.Result_Category) ;
   dbms_output.put_line(‘l_response.Result_Message = ‘ || l_response.Result_Message) ;
END;
Advertisements