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;