API to End Date an Internal Bank Branch in R12

Script for to end date an Internal Bank branch in Oracle Apps R12.1.1.

API USED: CE_BANK_PUB.SET_BANK_BRANCH_END_DATE

SET SERVEROUTPUT ON;

DECLARE

   p_init_msg_list           VARCHAR2 (200);

   p_branch_id               NUMBER;

   p_end_date                DATE;

   p_object_version_number   NUMBER;

   x_return_status           VARCHAR2 (200);

   x_msg_count               NUMBER;

   x_msg_data                VARCHAR2 (200);

BEGIN

   p_init_msg_list         := fnd_api.g_true;

   p_branch_id := 72141; -- CE_BANK_BRANCHES_V.BRANCH_PARTY_ID

   p_end_date              := SYSDATE + 360;

   p_object_version_number := 1;

   CE_BANK_PUB.SET_BANK_BRANCH_END_DATE

             (p_init_msg_list              => p_init_msg_list,

              p_branch_id                  => p_branch_id,

              p_end_date                   => p_end_date,

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

END;