Friday, May 27, 2011
API to Create an Internal Bank Branch R12 (CE_BANK_PUB.CREATE_BANK_BRANCH)
Below script helps you to create an Internal Bank Branch in Oracle Apps R12.
Test Instance: R12.1.1
Script:
SET SERVEROUTPUT ON;
DECLARE
p_init_msg_list VARCHAR2 (200);
p_bank_id NUMBER;
p_branch_name VARCHAR2 (200);
p_branch_number VARCHAR2 (200);
p_branch_type VARCHAR2 (200);
p_alternate_branch_name VARCHAR2 (200);
p_description VARCHAR2 (200);
p_rfc_identifier VARCHAR2 (200);
x_branch_id NUMBER;
x_return_status VARCHAR2 (200);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (200);
p_count NUMBER;
BEGIN
p_init_msg_list := fnd_api.g_true;
p_bank_id := 219143; -- PARTY_ID of the BANK
p_branch_name := 'Test Branch';
p_alternate_branch_name := 'Alternate Branch Name';
p_description := 'TEST Branch description';
-- branch number/Routing Transit Number is subjected to
-- the check digit validation
p_branch_number := 111000025;
-- Validated against AR_LOOKUPS with lookup_type = BANK_BRANCH_TYPE
p_branch_type := 'ABA';
-- Validated against CE_LOOKUPS with lookup_type = RFC_IDENTIFIER
p_rfc_identifier := 'AFC';
CE_BANK_PUB.CREATE_BANK_BRANCH
(p_init_msg_list => p_init_msg_list,
p_bank_id => p_bank_id,
p_branch_name => p_branch_name,
p_branch_number => p_branch_number,
p_branch_type => p_branch_type,
p_alternate_branch_name => p_alternate_branch_name,
p_description => p_description,
p_rfc_identifier => p_rfc_identifier,
x_branch_id => x_branch_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
DBMS_OUTPUT.put_line ('BRANCH_ID/PARTY_ID = ' || x_branch_id);
DBMS_OUTPUT.put_line ('X_RETURN_STATUS = ' || x_return_status);
DBMS_OUTPUT.put_line ('X_MSG_COUNT = ' || x_msg_count);
DBMS_OUTPUT.put_line ('X_MSG_DATA = ' || x_msg_data);
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;
END;
Do you think this Article is useful?
Subscribe to:
Post Comments (Atom)
0 Responses to “API to Create an Internal Bank Branch R12 (CE_BANK_PUB.CREATE_BANK_BRANCH)”
Post a Comment