详解EBS接口开发之供应商导入（补充）--供应商银行账户更新

CREATE OR REPLACE PACKAGE BODY update_vendor_account IS

  PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS
    l_vendor_id           NUMBER;
    l_acct_id             NUMBER;
    l_party_id            NUMBER;
    l_return_status       VARCHAR2(30);
    l_msg_count           NUMBER;
    l_msg_data            VARCHAR2(30);
    l_joint_acct_owner_id NUMBER;
    v_count               NUMBER;
    l_bank_acct_id        NUMBER;
    --l_result_rec          iby_fndcpt_common_pub.result_rec_type;
    l_payee_rec              iby_disbursement_setup_pub.payeecontext_rec_type;
    l_instrument_rec         iby_fndcpt_setup_pub.pmtinstrument_rec_type;
    l_assignment_attribs_rec iby_fndcpt_setup_pub.pmtinstrassignment_rec_type;
    l_result_rec             iby_fndcpt_common_pub.result_rec_type;
  
    l_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
  
    l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
    CURSOR cur_vendor IS
      SELECT * FROM cux_oms_vendor h WHERE h.process_status = 'COMPLETE';
  BEGIN
    FOR rec_vendor IN cur_vendor LOOP
      l_party_id := NULL;
      BEGIN
        SELECT pv.vendor_id
          INTO l_vendor_id
          FROM po_vendors pv
         WHERE pv.segment1 = rec_vendor.rec_vendor_number;