CE_BANK_PUB.CREATE_BANK API to Create an Internal Bank in R12

Below script helps you to create an Internal Bank in Oracle Apps R12.

Test Instance: R12.1.1

Script:

SET SERVEROUTPUT ON;

DECLARE

   p_init_msg_list             VARCHAR2 (200);

   p_country_code              VARCHAR2 (200);

   p_bank_name                 VARCHAR2 (200);

   p_bank_number               VARCHAR2 (200);

   p_alternate_bank_name       VARCHAR2 (200);

   p_short_bank_name           VARCHAR2 (200);

   p_description               VARCHAR2 (200);

   p_tax_payer_id              VARCHAR2 (200);

   p_tax_registration_number   VARCHAR2 (200);

   x_bank_id                   NUMBER;

   x_return_status             VARCHAR2 (200);

   x_msg_count                 NUMBER;

   x_msg_data                  VARCHAR2 (200);

   p_count                     NUMBER;

BEGIN

   p_init_msg_list       := fnd_api.g_true;

   p_country_code        := 'US';

   p_bank_name           := 'Test Bank';

   p_bank_number         := '14258';

   p_alternate_bank_name := 'Alternate Test Bank';

   p_short_bank_name     := 'IDFC';

   p_description         := 'Test Bank Creation API';

   CE_BANK_PUB.CREATE_BANK

              (p_init_msg_list            => p_init_msg_list,

               p_country_code             => p_country_code,

               p_bank_name                => p_bank_name,

               p_bank_number              => p_bank_number,

               p_alternate_bank_name      => p_alternate_bank_name,

               p_short_bank_name          => p_short_bank_name,

               p_description              => p_description,

               x_bank_id                  => x_bank_id,

               x_return_status            => x_return_status,

               x_msg_count                => x_msg_count,

               x_msg_data                 => x_msg_data

              ); 

   DBMS_OUTPUT.put_line ('BANK_ID/PARTY_ID = ' || x_bank_id);

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

   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;