Create External Bank API in Oracle Apps R12

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;
/

SHOW ERR;

Leave a Reply

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