Search This Blog

Monday, April 8, 2013

IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_ACCT – R12 – API to Create External Bank Account

Instance: R12.1.1
Script:
SET SERVEROUTPUT ON;
DECLARE

   p_api_version         NUMBER               := 1.0;
   p_init_msg_list       VARCHAR2(1)          := 'F';
   x_return_status       VARCHAR2(2000);
   x_msg_count           NUMBER(5);
   x_msg_data            VARCHAR2(2000);
   x_response            iby_fndcpt_common_pub.result_rec_type;
   p_ext_bank_acct_rec   iby_ext_bankacct_pub.extbankacct_rec_type;
   v_supplier_party_id   NUMBER := 55816;  -- EXISTING SUPPLIERS/CUSTOMER      
                                              PARTY_ID
   v_bank_id             NUMBER := 208587; -- EXISTING BANK PARTY ID
   v_bank_branch_id      NUMBER := 278411; -- EXISTING BRANCH PARTY ID
   x_acct_id             NUMBER;
   p_count               NUMBER;
BEGIN

   p_ext_bank_acct_rec.object_version_number    := 1.0;
   p_ext_bank_acct_rec.acct_owner_party_id      := v_supplier_party_id;
   p_ext_bank_acct_rec.bank_account_name        := 'XXTEST BANK ACCNT';
   p_ext_bank_acct_rec.bank_account_num         := 14278596531;
   p_ext_bank_acct_rec.alternate_acct_name      := 'XXTEST BANK ACCNT ALT';
   p_ext_bank_acct_rec.bank_id                  := v_bank_id;
   p_ext_bank_acct_rec.branch_id                := v_bank_branch_id;
   p_ext_bank_acct_rec.start_date               := SYSDATE;
   p_ext_bank_acct_rec.country_code             := 'US';
   p_ext_bank_acct_rec.currency                 := 'USD';
   p_ext_bank_acct_rec.foreign_payment_use_flag := 'Y';
   p_ext_bank_acct_rec.payment_factor_flag      := 'N';
   IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_ACCT
                (p_api_version            => p_api_version,
                 p_init_msg_list          => p_init_msg_list,
                 p_ext_bank_acct_rec      => p_ext_bank_acct_rec,
                 x_acct_id                => x_acct_id,
                 x_return_status          => x_return_status,
                 x_msg_count              => x_msg_count,
                 x_msg_data               => x_msg_data,
                 x_response               => x_response
                );
   DBMS_OUTPUT.put_line ('x_return_status = ' || x_return_status);
   DBMS_OUTPUT.put_line ('x_msg_count = ' || x_msg_count);
   DBMS_OUTPUT.put_line ('x_msg_data = ' || x_msg_data);
   DBMS_OUTPUT.put_line ('x_acct_id = ' || x_acct_id);
   DBMS_OUTPUT.put_line ('x_response.Result_Code = ' || x_response.result_code);
   DBMS_OUTPUT.put_line (   'x_response.Result_Category = '
                         || x_response.result_category
                        );
   DBMS_OUTPUT.put_line (   'x_response.Result_Message = '
                         || x_response.result_message
                        );

   IF x_msg_count = 1
   THEN
      DBMS_OUTPUT.put_line ('x_msg_data ' || x_msg_data);
   ELSIF x_msg_count > 1
   THEN
      LOOP
         p_count := p_count + 1;
         x_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);

         IF x_msg_data IS NULL
         THEN
            EXIT;
         END IF;

         DBMS_OUTPUT.put_line ('Message' || p_count || ' ---' || x_msg_data);
      END LOOP;
   END IF;
END;

No comments:

Post a Comment