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;