API to Update an Internal Bank in R12 (CE_BANK_PUB.UPDATE_BANK)

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

Test Instance: R12.1.1

API:  CE_BANK_PUB.UPDATE_BANK

Script:

SET SERVEROUTPUT ON;

DECLARE

   p_init_msg_list           VARCHAR2 (200);

   p_bank_id                 NUMBER;

   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_object_version_number   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_bank_id               := 1147;

   p_bank_name             := 'test bank2';

   p_bank_number           := 3933;

   p_alternate_bank_name   := 'Alternate Test Bank2';

   p_short_bank_name       := 'IDF';                     

   p_description           := 'Test Bank2 Description';

   p_object_version_number := 1;

   CE_BANK_PUB.UPDATE_BANK

           (p_init_msg_list              => p_init_msg_list,

            p_bank_id                    => p_bank_id,

            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,

            p_object_version_number      => p_object_version_number,

            x_return_status              => x_return_status,

            x_msg_count                  => x_msg_count,

            x_msg_data                   => x_msg_data

           );

   DBMS_OUTPUT.put_line (   'P_OBJECT_VERSION_NUMBER = '

                         || p_object_version_number

                        );

   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;