IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_BRANCH – R12 – API to Create External Bank Branch

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_branch_rec   iby_ext_bankacct_pub.extbankbranch_rec_type;

   v_bank_id               NUMBER := 208787; -- EXISTING BANK PARTY ID

   x_branch_id             NUMBER;

   p_count                 NUMBER;

BEGIN

   DBMS_OUTPUT.put_line ('BEFORE BANK BRANCH API');

   p_ext_bank_branch_rec.bch_object_version_number := 1.0;

   p_ext_bank_branch_rec.branch_name := 'TEST BANK BRANCH';

   p_ext_bank_branch_rec.branch_type := 'ABA';

   p_ext_bank_branch_rec.bank_party_id := v_bank_id; 

  

   IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_BRANCH

                (p_api_version              => p_api_version,

                 p_init_msg_list            => p_init_msg_list,

                 p_ext_bank_branch_rec      => p_ext_bank_branch_rec,

                 x_branch_id                => x_branch_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_branch_id = ' || x_branch_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;