CE_BANK_BRANCHES Create Internal Bank Branch Api - IBY_EXT_BANKACCT_PUB.create_ext_bank_branch

 /* Formatted on 10/11/2020 12:02:31 AM (QP5 v5.277) */

DECLARE

   p_api_version           NUMBER := 1.0;

   p_init_msg_list         VARCHAR2 (1) := fnd_api.g_true; 

   v_bank_id               NUMBER := 530705;

   x_return_status         VARCHAR2 (2000);

   x_msg_count             NUMBER (5);

   x_msg_data              VARCHAR2 (2000);

   x_branch_id             NUMBER;

   p_count                 NUMBER;

  l_msg_index number;

  

   x_response              iby_fndcpt_common_pub.result_rec_type;

   p_ext_bank_branch_rec   iby_ext_bankacct_pub.extbankbranch_rec_type;

   CURSOR l_data

   IS

  select xbba.bank_home_country,xba.new_bank_id,xbba.bank_name,xbba.bank_branch_name,xbba.branch_number,xbba.bank_institution_type,xbba.bank_branch_type

   from XX.XX_BANK_BRANCH_ALL xbba , XX.XX_BANK_ALL xba 

   where xbba.bank_name=xba.bank_name  and  

   xbba.status is  null ;

BEGIN

   DBMS_OUTPUT.put_line ('BEFORE BANK BRANCH API');

   FOR n_data IN l_data

   LOOP

      p_ext_bank_branch_rec.bch_object_version_number := 1.0;

      p_ext_bank_branch_rec.branch_name := n_data.bank_branch_name;

      p_ext_bank_branch_rec.branch_type := n_data.bank_branch_type;

      p_ext_bank_branch_rec.bank_party_id := n_data.new_bank_id;

      p_ext_bank_branch_rec.branch_number := n_data.branch_number;

--      p_ext_bank_branch_rec.branch_party_id := n_data.new_bank_branch_id;

     

      IBY_EXT_BANKACCT_PUB.create_ext_bank_branch (

      p_api_version           => p_api_version,

      p_init_msg_list         => p_init_msg_list,

      p_ext_bank_branch_rec   => p_ext_bank_branch_rec,

      -- --------------------------------

      -- Output data elements

      -- --------------------------------

      x_branch_id             => x_branch_id,

      x_return_status         => x_return_status,

      x_msg_count             => x_msg_count,

      x_msg_data              => x_msg_data,

      x_response              => x_response);

      IF x_return_status ='S'

      THEN

         UPDATE XX.XX_BANK_BRANCH_all

            SET new_bank_branch_id = x_branch_id, status = 'UPDATE'

          WHERE bank_branch_name = n_data.bank_branch_name and bank_name = n_data.bank_name and branch_number=n_data.branch_number;

         COMMIT;

      END IF;

      DBMS_OUTPUT.put_line ('x_branch_id = ' || x_branch_id);

      DBMS_OUTPUT.put_line (

           ' x_return_status:'

         || x_return_status

         || ' x_msg_data = '

         || x_msg_data

         || '-'

         || x_response.Result_Code

         || '-'

         || x_response.Result_Category

         || '-'

         || x_response.Result_Message);

      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;

      IF x_return_status IN ('E')

      THEN

         DBMS_OUTPUT.put_line ('x_msg_count:' || x_msg_count);

         FOR i IN 1 .. x_msg_count

         LOOP

       

            apps.fnd_msg_pub.get (i,

                                  apps.fnd_api.g_false,

                                  x_msg_data,

                                  l_msg_index);

            x_msg_data := x_msg_data || 'Bank Account API Error ';

            DBMS_OUTPUT.PUT_LINE ('Error :- ' || x_msg_data);

         END LOOP;

        END IF;

         DBMS_OUTPUT.put_line ('x_msg_data:' || x_msg_data);

      END LOOP;

EXCEPTION

             WHEN OTHERS THEN

                           ROLLBACK;

                           dbms_output.put_line(SQLERRM);

END;

/