655: l_errbuf := 'Checking the info in Extract code';
656: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
657:
658: IF p_status ='Warning' THEN
659: SELECT count(1) into dummy from fv_ccr_file_temp;
660: IF dummy >=1 THEN
661: SELECT extract_code into l_extract_type from fv_ccr_file_temp WHERE rownum=1;
662: ELSE
663: retcode := -1;
657:
658: IF p_status ='Warning' THEN
659: SELECT count(1) into dummy from fv_ccr_file_temp;
660: IF dummy >=1 THEN
661: SELECT extract_code into l_extract_type from fv_ccr_file_temp WHERE rownum=1;
662: ELSE
663: retcode := -1;
664: l_errbuf := 'Not even a single row was processed in Loader. Please verify';
665: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
681: l_errbuf := 'Checking the info in Extract code';
682: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
683:
684: IF p_status ='Warning' THEN
685: SELECT count(1) into dummy from fv_ccr_file_temp;
686: IF dummy >=1 THEN
687: SELECT extract_code into l_extract_type from fv_ccr_file_temp WHERE rownum=1;
688: ELSE
689: retcode := -1;
683:
684: IF p_status ='Warning' THEN
685: SELECT count(1) into dummy from fv_ccr_file_temp;
686: IF dummy >=1 THEN
687: SELECT extract_code into l_extract_type from fv_ccr_file_temp WHERE rownum=1;
688: ELSE
689: retcode := -1;
690: l_errbuf := 'Not even a single row was processed in Loader. Please verify';
691: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
719: END IF;
720: END IF;
721:
722:
723: l_errbuf := 'Calling BPN Load package to load data into fv_ccr_file_temp';
724: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
725: FV_CCR_BPN_LOAD_PKG.MAIN();
726:
727: l_errbuf := 'Push data into fv_ccr_process_gt based on the update type';
1197: ,fcft.GLOBAL_PARENT_STATE
1198: ,fcft.GLOBAL_PARENT_PHONE
1199: ,bank_acct_type
1200:
1201: FROM fv_ccr_file_temp fcft
1202: order by rowid;
1203: ELSE
1204: l_errbuf := 'Copying info - Standalone / insert as N';
1205: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
1651: ,fcft.GLOBAL_PARENT_STATE
1652: ,fcft.GLOBAL_PARENT_PHONE
1653: ,bank_acct_type
1654:
1655: FROM fv_ccr_file_temp fcft
1656: WHERE exists ( select 1 from fv_ccr_vendors fcv
1657: where fcft.duns = fcv.duns)
1658: order by rowid;
1659:
2114: ,fcft.GLOBAL_PARENT_STATE
2115: ,fcft.GLOBAL_PARENT_PHONE
2116: ,bank_acct_type
2117:
2118: FROM fv_ccr_file_temp fcft
2119: WHERE ( (p_xml_import = 'N' AND exists ( select 1 from fv_ccr_vendors fcv
2120: where fcft.duns = fcv.duns
2121: and fcv.ccr_status ='N'))
2122: OR p_xml_import='Y')
2573: ,GLOBAL_PARENT_COUNTRY
2574: ,GLOBAL_PARENT_STATE
2575: ,GLOBAL_PARENT_PHONE
2576: ,bank_acct_type
2577: FROM fv_ccr_file_temp fcft
2578: WHERE fcft.duns = substr(p_duns, 1, 9)
2579: order by rowid;
2580:
2581:
4720: end if;
4721:
4722:
4723: -- purge the temporary tables
4724: delete from fv_ccr_file_temp;
4725: delete from fv_ccr_process_gt;
4726: delete from fv_ccr_process_report ;
4727: commit;
4728: