API to Create Bank

/* Formatted on 2017/04/12 15:59 (Formatter Plus v4.8.8) */
DECLARE
lc_output VARCHAR2 (3000);
lc_msg_dummy VARCHAR2 (3000);
lc_return_status VARCHAR2 (3000);
lc_msg_data VARCHAR2 (3000);
ln_bank_id NUMBER;
ln_msg_count NUMBER;
lr_extbank_rec apps.iby_ext_bankacct_pub.extbank_rec_type;
lr_response_rec apps.iby_fndcpt_common_pub.result_rec_type;
BEGIN
lc_return_status := ”;
ln_msg_count := ”;
lc_msg_data := ”;
lr_extbank_rec.bank_name := ‘Test Supp Bank’;
lr_extbank_rec.bank_number := ‘TSB0000001’;
lr_extbank_rec.country_code := ‘IN’;
apps.fnd_msg_pub.delete_msg (NULL);
apps.fnd_msg_pub.initialize ();
iby_ext_bankacct_pub.create_ext_bank ( — ——————————
— Input data elements
— ——————————
p_api_version => 1.0,
p_init_msg_list => fnd_api.g_true,
p_ext_bank_rec => lr_extbank_rec,
— ——————————–
— Output data elements
— ——————————–
x_bank_id => ln_bank_id,
x_return_status => lc_return_status,
x_msg_count => ln_msg_count,
x_msg_data => lc_msg_data,
x_response => lr_response_rec
);
lc_output := ‘ ‘;

IF (lc_return_status ‘S’)
THEN
FOR i IN 1 .. ln_msg_count
LOOP
apps.fnd_msg_pub.get (i,
apps.fnd_api.g_false,
lc_msg_data,
lc_msg_dummy
);
lc_output :=
lc_output
|| (TO_CHAR (i) || ‘: ‘ || SUBSTR (lc_msg_data, 1, 250));
END LOOP;

apps.fnd_file.put_line (apps.fnd_file.output,
‘Error Occured while Creating Bank: ‘
);
END IF;

COMMIT;
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
DBMS_OUTPUT.put_line (SQLERRM);
END;

Advertisements