API to Create Bank (iby_ext_bankacct_pub.create_ext_bank)

DECLARE
    l_output          VARCHAR2(4000);
    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
    dbms_output.put_line('Progam start');
    --lc_return_status := '';
    --ln_msg_count := '';
    --lc_msg_data := '';
    lr_extbank_rec.bank_name := 'Bank Test';
    lr_extbank_rec.bank_number := 'BT0001';
    lr_extbank_rec.country_code := 'IN';

    iby_ext_bankacct_pub.create_ext_bank
    ( 
    p_api_version => 1.0,
    p_init_msg_list => fnd_api.g_true,
    p_ext_bank_rec => lr_extbank_rec,
    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
    );

dbms_output.put_line('ln_bank_id:' || ln_bank_id);
dbms_output.put_line('lc_return_status:' || lc_return_status);
    l_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);

            l_output := l_output || ( TO_CHAR(i) || ': ' || substr(lc_msg_data,1,250) );
        END LOOP;
        dbms_output.put_line('l_output:' || l_output);
    END IF;

    COMMIT;
EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
        dbms_output.put_line('Main Exception Error:'||sqlerrm);
END;
/



Script Output
-------------------------------------
Progam start
ln_bank_id:12182101
lc_return_status:S

Query to Check
-------------------------------------
select * from CE_BANKS_V  WHERE BANK_PARTY_ID=12182101
     
select * FROM iby_ext_banks_v WHERE BANK_PARTY_ID=12182101