Update an Internal Bank Branch R12

Update an Internal Bank Branch R12

Script for to update details of an Internal Bank Branch in Oracle Apps R12.1.1

API USED: CE_BANK_PUB.UPDATE_BANK_BRANCH

SET SERVEROUTPUT ON;

DECLARE

   p_init_msg_list               VARCHAR2 (200);

   p_branch_id                   NUMBER;

   p_branch_name                 VARCHAR2 (200);

   p_branch_number               VARCHAR2 (200);

   p_branch_type                 VARCHAR2 (200);

   p_alternate_branch_name       VARCHAR2 (200);

   p_description                 VARCHAR2 (200);

   p_country_validate            VARCHAR2 (200);

   p_bch_object_version_number   NUMBER;

   p_typ_object_version_number   NUMBER;

   p_rfc_object_version_number   NUMBER;

   p_eft_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_branch_id := 219154;

   p_branch_number := 111000025;

   p_branch_type := 'ABA';

   p_branch_name := 'Test Branch';

   p_alternate_branch_name := 'updated Alternate Branch Name';

   p_description := 'TEST Branch description';

   p_country_validate := NULL;

   p_bch_object_version_number := 1;

   ce_bank_pub.update_bank_branch

                 (p_init_msg_list                  => p_init_msg_list,

                  p_branch_id                      => p_branch_id,

                  p_branch_name                    => p_branch_name,

                  p_branch_number                  => p_branch_number,

                  p_branch_type                    => p_branch_type,

                  p_alternate_branch_name          => p_alternate_branch_name,

                  p_description                    => p_description,

                  p_country_validate               => p_country_validate,

                  p_bch_object_version_number      => p_bch_object_version_number,

                  p_typ_object_version_number      => p_typ_object_version_number,

                  p_rfc_object_version_number      => p_rfc_object_version_number,

                  p_eft_object_version_number      => p_eft_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_BCH_OBJECT_VERSION_NUMBER = '

                         || p_bch_object_version_number

                        );

   DBMS_OUTPUT.put_line (   'P_TYP_OBJECT_VERSION_NUMBER = '

                         || p_typ_object_version_number

                        );

   DBMS_OUTPUT.put_line (   'P_RFC_OBJECT_VERSION_NUMBER = '

                         || p_rfc_object_version_number

                        );

   DBMS_OUTPUT.put_line (   'P_EFT_OBJECT_VERSION_NUMBER = '

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

/