[IBY] iby_ext_bankacct_pub.get_ext_bank_acct

 DECLARE

  vBankAccountId iby_ext_bank_accounts.ext_bank_account_id%TYPE := 00;

  vInitMsgList   VARCHAR2(1) := fnd_api.g_false;

  xRetrunStatus  VARCHAR2(1);

  xMsgCount      NUMBER;

  xMsgData       VARCHAR2(2000);

  xBankAccount   iby_ext_bankacct_pub.extbankacct_rec_type;

  xResponse      iby_fndcpt_common_pub.result_rec_type;

  vCount         NUMBER := 0;

BEGIN

  iby_ext_bankacct_pub.get_ext_bank_acct(p_api_version => 1.0,

                                         p_init_msg_list => vInitMsgList,

                                         p_bankacct_id => vBankAccountId,

                                         x_return_status => xRetrunStatus,

                                         x_msg_count => xMsgCount,

                                         x_msg_data => xMsgData,

                                         x_bankacct => xBankAccount,

                                         x_response => xResponse);

  dbms_output.put_line('API Return => ' || xRetrunStatus);

  dbms_output.put_line('Bank Account Number : ' || xBankAccount.bank_account_num);

  dbms_output.put_line('Bank Account Name   : ' || xBankAccount.bank_account_name);

  IF xRetrunStatus <> fnd_api.g_ret_sts_success THEN

    IF xMsgCount = 1 THEN

      DBMS_OUTPUT.put_line('Error =>' || xMsgData);

    ELSE

      LOOP

        vCount   := vCount + 1;

        xMsgData := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);

        IF xMsgData IS NULL THEN

          EXIT;

        END IF;

        DBMS_OUTPUT.put_line('Error' || vCount || '=>' || xMsgData);

      END LOOP;

    END IF;

  END IF;

END;