Loading

Monday, May 16, 2011

IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK – R12 – API to Create External Bank


Test Instance: R12.1.1


Script:
set serveroutput on;
DECLARE
  
   v_error_reason             VARCHAR2 (2000);  
   v_msg_data                 VARCHAR2 (1000);
   v_msg_count                NUMBER;
   v_return_status            VARCHAR2 (100); 
   v_extbank_rec_type         iby_ext_bankacct_pub.extbank_rec_type;
   x_response                 iby_fndcpt_common_pub.result_rec_type;  
   x_bank_id                  NUMBER;
  
BEGIN

   v_error_reason                           := NULL;
   v_return_status                          := NULL;
   v_msg_count                              := NULL;
   v_msg_data                               := NULL;
   v_extbank_rec_type.object_version_number := 1.0;
   v_extbank_rec_type.bank_name             := 'TEST SHARE';
   v_extbank_rec_type.bank_number           := '14589';
   v_extbank_rec_type.institution_type      := 'BANK';
   v_extbank_rec_type.country_code          := 'US';
   v_extbank_rec_type.description           := 'Create via API';
  
   iby_ext_bankacct_pub.create_ext_bank
                    (p_api_version        => 1.0,
                     p_init_msg_list      => fnd_api.g_true,
                     p_ext_bank_rec       => v_extbank_rec_type,
                     x_bank_id            => x_bank_id,
                     x_return_status      => v_return_status,
                     x_msg_count          => v_msg_count,
                     x_msg_data           => v_msg_data,
                     x_response           => x_response
                    );
  
   DBMS_OUTPUT.put_line ('v_return_status = '||v_return_status);
   DBMS_OUTPUT.put_line ('v_msg_count = '||v_msg_count);
   DBMS_OUTPUT.put_line ('v_msg_data = '||v_msg_data);
   DBMS_OUTPUT.put_line ('x_bank_id = '||x_bank_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 v_return_status <> fnd_api.g_ret_sts_success
   THEN
      IF v_msg_count >= 1
      THEN
         FOR i IN 1 .. v_msg_count
         LOOP
            IF v_error_reason IS NULL
            THEN
               v_error_reason :=
                  SUBSTR (fnd_msg_pub.get (p_encoded => fnd_api.g_false),
                          1,
                          255
                         );
            ELSE
               v_error_reason :=
                     v_error_reason
                  || ' ,'
                  || SUBSTR (fnd_msg_pub.get (p_encoded => fnd_api.g_false),
                             1,
                             255
                            );
            END IF;

            DBMS_OUTPUT.put_line ('BANK API ERROR-' || v_error_reason);
         END LOOP;
      END IF;
   END IF;
END;

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

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.