Monday, May 16, 2011
IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK – R12 – API to Create External Bank
Test Instance: R12.1.1
Script:
set serveroutput on;
DECLARE
v_error_reason VARCHAR2 (2000);
v_msg_data VARCHAR2 (1000);
v_msg_count NUMBER;
v_return_status VARCHAR2 (100);
v_extbank_rec_type iby_ext_bankacct_pub.extbank_rec_type;
x_response iby_fndcpt_common_pub.result_rec_type;
x_bank_id NUMBER;
BEGIN
v_error_reason := NULL;
v_return_status := NULL;
v_msg_count := NULL;
v_msg_data := NULL;
v_extbank_rec_type.object_version_number := 1.0;
v_extbank_rec_type.bank_name := 'TEST SHARE';
v_extbank_rec_type.bank_number := '14589';
v_extbank_rec_type.institution_type := 'BANK';
v_extbank_rec_type.country_code := 'US';
v_extbank_rec_type.description := 'Create via API';
iby_ext_bankacct_pub.create_ext_bank
(p_api_version => 1.0,
p_init_msg_list => fnd_api.g_true,
p_ext_bank_rec => v_extbank_rec_type,
x_bank_id => x_bank_id,
x_return_status => v_return_status,
x_msg_count => v_msg_count,
x_msg_data => v_msg_data,
x_response => x_response
);
DBMS_OUTPUT.put_line ('v_return_status = '||v_return_status);
DBMS_OUTPUT.put_line ('v_msg_count = '||v_msg_count);
DBMS_OUTPUT.put_line ('v_msg_data = '||v_msg_data);
DBMS_OUTPUT.put_line ('x_bank_id = '||x_bank_id);
DBMS_OUTPUT.put_line ('x_response.Result_Code = ' || x_response.result_code);
DBMS_OUTPUT.put_line ( 'x_response.Result_Category = '
|| x_response.result_category
);
DBMS_OUTPUT.put_line ( 'x_response.Result_Message = '
|| x_response.result_message
);
IF v_return_status <> fnd_api.g_ret_sts_success
THEN
IF v_msg_count >= 1
THEN
FOR i IN 1 .. v_msg_count
LOOP
IF v_error_reason IS NULL
THEN
v_error_reason :=
SUBSTR (fnd_msg_pub.get (p_encoded => fnd_api.g_false),
1,
255
);
ELSE
v_error_reason :=
v_error_reason
|| ' ,'
|| SUBSTR (fnd_msg_pub.get (p_encoded => fnd_api.g_false),
1,
255
);
END IF;
DBMS_OUTPUT.put_line ('BANK API ERROR-' || v_error_reason);
END LOOP;
END IF;
END IF;
END;
Do you think this Article is useful?
Subscribe to:
Post Comments (Atom)
Disclaimer
The ideas, thoughts and concepts expressed here are my own. They, in no way reflect those of my employer or any other organization/client that I am associated. The articles presented doesn't imply to any particular organization or client and are meant only for knowledge Sharing purpose. The articles can't be reproduced or copied without the Owner's knowledge or permission.
0 Responses to “IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK – R12 – API to Create External Bank”
Post a Comment