Create Bank Account in IBY using API in Oracle Apps R12
DECLARE
p_api_version NUMBER := 1.0;
p_init_msg_list VARCHAR2(1) := ‘F’;
p_count NUMBER;
v_supplier_party_id NUMBER := 55816; — EXISTING SUPPLIERS/CUSTOMER PARTY_ID
v_bank_id NUMBER := 208587; — EXISTING BANK PARTY ID
v_bank_branch_id NUMBER := 278411; — EXISTING BRANCH PARTY ID
p_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
x_acct_id NUMBER;
x_msg_count NUMBER(5);
x_return_status VARCHAR2(2000);
x_msg_data VARCHAR2(2000);
x_response iby_fndcpt_common_pub.result_rec_type;
BEGIN
p_ext_bank_acct_rec.object_version_number := 1.0;
p_ext_bank_acct_rec.acct_owner_party_id := v_supplier_party_id;
p_ext_bank_acct_rec.bank_account_name := ‘XXTEST BANK ACCNT’;
p_ext_bank_acct_rec.bank_account_num := 14278596531;
p_ext_bank_acct_rec.alternate_acct_name := ‘XXTEST BANK ACCNT ALT’;
p_ext_bank_acct_rec.bank_id := v_bank_id;
p_ext_bank_acct_rec.branch_id := v_bank_branch_id;
p_ext_bank_acct_rec.start_date := SYSDATE;
p_ext_bank_acct_rec.country_code := ‘US’;
p_ext_bank_acct_rec.currency := ‘USD’;
p_ext_bank_acct_rec.foreign_payment_use_flag := ‘Y’;
p_ext_bank_acct_rec.payment_factor_flag := ‘N’;
IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_ACCT
( — Input data elements
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_ext_bank_acct_rec => p_ext_bank_acct_rec,
— Output data elements
x_acct_id => x_acct_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_response => x_response
);
dbms_output.put_line (‘x_acct_id = ‘ || x_acct_id);
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;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
dbms_output.put_line(SQLERRM);
END;
/
SHOW ERR;