Loading

Monday, May 16, 2011

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



Test 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;

0 Responses to “IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_BRANCH – R12 – API to Create External Bank Branch”

Post a Comment

Disclaimer

The ideas, thoughts and concepts expressed here are my own. They, in no way reflect those of my employer or any other organization/client that I am associated. The articles presented doesn't imply to any particular organization or client and are meant only for knowledge Sharing purpose. The articles can't be reproduced or copied without the Owner's knowledge or permission.