oracle abs ap 银行账号 组织层 新增api

DECLARE
  l_return_status     VARCHAR2(1);
  l_msg_count         NUMBER;
  l_msg_data          VARCHAR2(1000);
  x_acct_use_id       number;
  l_ext_bank_acct_rec ce_bank_pub.BankAcct_use_rec_type;
  l_org_id            number;
  l_org_name          varchar2(100);
  l_ccid              number;

BEGIN
  fnd_global.apps_initialize(0, 50701, 200);
  mo_global.init('SQLAP');
  select hz.party_name, BA.ASSET_CODE_COMBINATION_ID
    into l_org_name, l_ccid
    from hz_parties hz, ce_bank_accounts ba
   where ba.bank_account_id = 50002
     and hz.party_id = ba.account_owner_party_id;
  dbms_output.put_line('l_org_name ' || l_org_name);
  dbms_output.put_line('l_ccid ' || l_ccid);
  select HR.organization_id
    into l_org_id
    from hr_operating_units hr
   where hr.name = ' ' || l_org_name;
  dbms_output.put_line('l_org_id ' || l_org_id);
  --
  l_ext_bank_acct_rec.bank_account_id           := 50002;
  l_ext_bank_acct_rec.org_type                  := 'OU';
  l_ext_bank_acct_rec.org_id                    := l_org_id;
  l_ext_bank_acct_rec.asset_code_combination_id := l_ccid;
  l_ext_bank_acct_rec.ap_use_enable_flag        := 'Y';
  l_ext_bank_acct_rec.ar_use_enable_flag        := 'Y';
  l_ext_bank_acct_rec.authorized_flag           := 'Y';
  l_ext_bank_acct_rec.DEFAULT_ACCOUNT_FLAG      := 'N';

  ce_bank_pub.create_bank_acct_use(p_init_msg_list => fnd_api.G_FALSE,
                                   p_acct_use_rec  => l_ext_bank_acct_rec,
                                   x_acct_use_id   => x_acct_use_id,
                                   x_return_status => l_return_status,
                                   x_msg_count     => l_msg_count,
                                   x_msg_data      => l_msg_data);
  dbms_output.put_line('l_return_status:' || l_return_status);
  dbms_output.put_line('l_msg_count:' || l_msg_count);
  dbms_output.put_line('l_msg_data:' || l_msg_data);
  dbms_output.put_line('x_acct_use_id:' || x_acct_use_id);
  dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));

END;