Create External Bank Branch API in Oracle Apps R12

DECLARE
p_api_version    NUMBER          := 1.0;
p_init_msg_list   VARCHAR2(1) := ‘F’;
v_bank_id           NUMBER          := 530705;
x_return_status VARCHAR2(2000);
x_msg_count      NUMBER(5);
x_msg_data        VARCHAR2(2000);
x_branch_id       NUMBER;
p_count               NUMBER;

x_response iby_fndcpt_common_pub.result_rec_type;

p_ext_bank_branch_rec iby_ext_bankacct_pub.extbankbranch_rec_type;

BEGIN
dbms_output.put_line (‘BEFORE BANK BRANCH API’);

p_ext_bank_branch_rec.bch_object_version_number := 1.0;
p_ext_bank_branch_rec.branch_name := ‘TEST BANK BRANCH’;
p_ext_bank_branch_rec.branch_type := ‘ABA’;
p_ext_bank_branch_rec.bank_party_id := v_bank_id;

IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_BRANCH
( — Input data elements
p_api_version                   => p_api_version,
p_init_msg_list                  => p_init_msg_list,
p_ext_bank_branch_rec => p_ext_bank_branch_rec,
— Output data elements
x_branch_id                      => x_branch_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_branch_id = ‘ || x_branch_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;

Leave a Reply

Your email address will not be published. Required fields are marked *