126: BEGIN
127: --VALIDATE VISA ISSUE POST
128: l_error := NULL;
129:
130: l_enable_log := igs_ad_imp_001.g_enable_log;
131: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visa';
132:
133: IF visa_rec.visa_issuing_post IS NOT NULL THEN
134:
294: WHERE interface_visa_id = visa_rec.interface_visa_id;
295:
296: -- CALL LOG DETAIL
297: IF l_enable_log = 'Y' THEN
298: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,l_error,'IGS_PE_VISA_INT');
299: END IF;
300: END IF;
301: RETURN TRUE;
302: ELSE
307: WHERE interface_visa_id = visa_rec.interface_visa_id;
308:
309: -- CALL LOG DETAIL
310: IF l_enable_log = 'Y' THEN
311: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,l_error,'IGS_PE_VISA_INT');
312: END IF;
313: END IF;
314: RETURN FALSE;
315: END IF;
345: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
346: END IF;
347:
348: IF l_enable_log = 'Y' THEN
349: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,l_error,'IGS_PE_VISA_INT');
350: END IF;
351: RETURN FALSE;
352: END Validate_Visa;
353:
507:
508: END IF;
509:
510: IF l_enable_log = 'Y' THEN
511: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,l_error,'IGS_PE_VISA_INT');
512: END IF;
513:
514:
515: UPDATE igs_pe_visa_int
552: error_code = 'E559'
553: WHERE interface_visa_id = visa_rec.interface_visa_id;
554:
555: IF l_enable_log = 'Y' THEN
556: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,'E559','IGS_PE_VISA_INT');
557: END IF;
558: ELSE
559: IGS_PE_VISA_PKG.UPDATE_ROW (
560: X_ROWID => dup_visa_rec.rowid,
611: error_code = 'E558'
612: WHERE interface_visa_id = visa_rec.interface_visa_id;
613:
614: IF l_enable_log = 'Y' THEN
615: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,'E558','IGS_PE_VISA_INT');
616: END IF;
617:
618: ELSIF l_message_name = 'IGS_PE_VIS_ASOC_PASS_EXP' THEN
619: UPDATE igs_pe_visa_int
621: error_code = 'E287'
622: WHERE interface_visa_id = visa_rec.interface_visa_id;
623:
624: IF l_enable_log = 'Y' THEN
625: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,'E287','IGS_PE_VISA_INT');
626: END IF;
627:
628: ELSE
629: UPDATE igs_pe_visa_int
653: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
654: END IF;
655:
656: IF l_enable_log = 'Y' THEN
657: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,'E014','IGS_PE_VISA_INT');
658: END IF;
659:
660: END IF;
661:
664: --MAIN PROCEDURE BEGINS NOW
665:
666: BEGIN
667:
668: l_enable_log := igs_ad_imp_001.g_enable_log;
669: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visa';
670: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visa.';
671: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
672:
667:
668: l_enable_log := igs_ad_imp_001.g_enable_log;
669: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visa';
670: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visa.';
671: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
672:
673: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
674:
675: IF (l_request_id IS NULL) THEN
684: l_debug_str, NULL,
685: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
686: END IF;
687:
688: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
689:
690: IF l_rule = 'E' OR l_rule = 'I' THEN
691:
692: UPDATE igs_pe_visa_int
847:
848: -- CALL LOG DETAIL
849:
850: IF l_enable_log = 'Y' THEN
851: igs_ad_imp_001.logerrormessage(visa_rec.interface_visa_id,l_error_code,'IGS_PE_VISA_INT');
852: END IF;
853: END IF;
854:
855: IF l_processed_records = 100 THEN
932: -- start validations
933:
934: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport';
935: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport.';
936: l_enable_log := igs_ad_imp_001.g_enable_log;
937:
938: p_err_code := NULL;
939:
940: --IF NOT igs_pe_pers_imp_001.validate_lookup_type_code('PER_US_COUNTRY_CODE',pass_rec.passport_cntry_code,3) THEN
980: error_code = p_err_code
981: WHERE interface_passport_id = pass_rec.interface_passport_id;
982:
983: IF l_enable_log = 'Y' THEN
984: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,p_err_code,'IGS_PE_PASSPORT_INT');
985: END IF;
986: END IF;
987:
988: RETURN FALSE;
1017: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1018: END IF;
1019:
1020: IF l_enable_log = 'Y' THEN
1021: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,p_err_code,'IGS_PE_PASSPORT_INT');
1022: END IF;
1023:
1024: RETURN FALSE;
1025: END Validate_Passport;
1177: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1178: END IF;
1179:
1180: IF l_enable_log = 'Y' THEN
1181: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,l_error,'IGS_PE_PASSPORT_INT');
1182: END IF;
1183:
1184: END crt_pe_pass;
1185:
1274:
1275: END IF;
1276:
1277: IF l_enable_log = 'Y' THEN
1278: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,p_error_code,'IGS_PE_PASSPORT_INT');
1279: END IF;
1280:
1281: UPDATE igs_pe_passport_int
1282: SET status = p_status,
1290: BEGIN
1291:
1292: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport';
1293: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport.';
1294: l_enable_log := igs_ad_imp_001.g_enable_log;
1295: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1296: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1297:
1298: IF (l_request_id IS NULL) THEN
1291:
1292: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport';
1293: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_passport.';
1294: l_enable_log := igs_ad_imp_001.g_enable_log;
1295: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1296: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1297:
1298: IF (l_request_id IS NULL) THEN
1299: l_request_id := fnd_global.conc_request_id;
1307: l_debug_str, NULL,
1308: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1309: END IF;
1310:
1311: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
1312:
1313: IF l_rule = 'E' OR l_rule = 'I' THEN
1314:
1315: UPDATE igs_pe_passport_int
1478: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1479: END IF;
1480:
1481: IF l_enable_log = 'Y' THEN
1482: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,'E014','IGS_PE_PASSPORT_INT');
1483: END IF;
1484:
1485: UPDATE igs_pe_passport_int
1486: SET match_ind = '18',
1525: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1526: END IF;
1527:
1528: IF l_enable_log = 'Y' THEN
1529: igs_ad_imp_001.logerrormessage(pass_rec.interface_passport_id,'E014','IGS_PE_PASSPORT_INT');
1530: END IF;
1531:
1532: UPDATE igs_pe_passport_int
1533: SET status = '3',
1587: p_err_code := NULL;
1588:
1589: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry';
1590: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry.';
1591: l_enable_log := igs_ad_imp_001.g_enable_log;
1592:
1593: IF NOT igs_pe_pers_imp_001.validate_lookup_type_code('PE_US_PORT_OF_ENTRY',visit_rec.port_of_entry,8405) THEN
1594: p_err_code := 'E557';
1595: RAISE no_data_found;
1664: error_code = p_err_code
1665: WHERE interface_visit_histry_id = visit_rec.interface_visit_histry_id;
1666:
1667: IF l_enable_log = 'Y' THEN
1668: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,p_err_code,'IGS_PE_VST_HIST_INT');
1669: END IF;
1670: END IF;
1671:
1672: RETURN FALSE;
1700: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1701: END IF;
1702:
1703: IF l_enable_log = 'Y' THEN
1704: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,p_err_code,'IGS_PE_VST_HIST_INT');
1705: END IF;
1706:
1707: RETURN FALSE;
1708: END Validate_visit_histry;
1894:
1895: END IF;
1896:
1897: IF l_enable_log = 'Y' THEN
1898: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,l_error,'IGS_PE_VST_HIST_INT');
1899: END IF;
1900:
1901: UPDATE igs_pe_vst_hist_int
1902: SET status = '3',
2009: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2010: END IF;
2011:
2012: IF l_enable_log = 'Y' THEN
2013: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,l_error,'IGS_PE_VST_HIST_INT');
2014: END IF;
2015:
2016: END IF;
2017: END upd_pe_visit_histry;
2021: BEGIN
2022:
2023: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry';
2024: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry.';
2025: l_enable_log := igs_ad_imp_001.g_enable_log;
2026: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2027:
2028: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
2029:
2022:
2023: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry';
2024: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry.';
2025: l_enable_log := igs_ad_imp_001.g_enable_log;
2026: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2027:
2028: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
2029:
2030: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2024: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_visit_histry.';
2025: l_enable_log := igs_ad_imp_001.g_enable_log;
2026: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2027:
2028: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
2029:
2030: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2031:
2032: IF (l_request_id IS NULL) THEN
2213: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2214: END IF;
2215:
2216: IF l_enable_log = 'Y' THEN
2217: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,'E014','IGS_PE_VST_HIST_INT');
2218: END IF;
2219:
2220: UPDATE igs_pe_vst_hist_int
2221: SET match_ind = '18',
2261: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2262: END IF;
2263:
2264: IF l_enable_log = 'Y' THEN
2265: igs_ad_imp_001.logerrormessage(visit_rec.interface_visit_histry_id,'E014','IGS_PE_VST_HIST_INT');
2266: END IF;
2267:
2268: UPDATE igs_pe_vst_hist_int
2269: SET status = '3',
2427: error_code = l_error
2428: WHERE interface_eit_id = eit_rec.interface_eit_id;
2429:
2430: IF l_enable_log = 'Y' THEN
2431: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
2432: END IF;
2433:
2434: RETURN FALSE;
2435:
2461: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2462: END IF;
2463:
2464: IF l_enable_log = 'Y' THEN
2465: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
2466: END IF;
2467:
2468: RETURN FALSE;
2469: END Validate_Record;
2508:
2509: -- CALL LOG DETAIL
2510:
2511: IF l_enable_log = 'Y' THEN
2512: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
2513: END IF;
2514:
2515: ELSE
2516: igs_pe_eit_pkg.insert_row(
2567: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2568: END IF;
2569:
2570: IF l_enable_log = 'Y' THEN
2571: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
2572: END IF;
2573:
2574: END crt_pe_eit;
2575:
2620:
2621: -- CALL LOG DETAIL
2622:
2623: IF l_enable_log = 'Y' THEN
2624: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
2625: END IF;
2626:
2627: ELSE
2628:
2678: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2679: END IF;
2680:
2681: IF l_enable_log = 'Y' THEN
2682: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,'E014','IGS_PE_EIT_INT');
2683: END IF;
2684:
2685: END upd_pe_eit;
2686:
2689: BEGIN
2690:
2691: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_eit';
2692: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_eit.';
2693: l_enable_log := igs_ad_imp_001.g_enable_log;
2694: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2695: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2696:
2697: IF (l_request_id IS NULL) THEN
2690:
2691: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_eit';
2692: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_eit.';
2693: l_enable_log := igs_ad_imp_001.g_enable_log;
2694: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2695: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2696:
2697: IF (l_request_id IS NULL) THEN
2698: l_request_id := fnd_global.conc_request_id;
2706: l_debug_str, NULL,
2707: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2708: END IF;
2709:
2710: l_rule :=igs_ad_imp_001.find_source_cat_rule(p_source_type_id,'PERSON_INTERNATIONAL_DETAILS');
2711:
2712: IF l_rule = 'E' OR l_rule = 'I' THEN
2713:
2714: UPDATE igs_pe_eit_int
2863: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2864: END IF;
2865:
2866: IF l_enable_log = 'Y' THEN
2867: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,'E014','IGS_PE_EIT_INT');
2868: END IF;
2869:
2870: UPDATE igs_pe_eit_int
2871: SET match_ind = '18',
2913: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2914: END IF;
2915:
2916: IF l_enable_log = 'Y' THEN
2917: igs_ad_imp_001.logerrormessage(eit_rec.interface_eit_id,'E014','IGS_PE_EIT_INT');
2918: END IF;
2919:
2920: UPDATE igs_pe_eit_int
2921: SET status = '3',
3015: BEGIN
3016:
3017: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_addr';
3018: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_addr.';
3019: l_enable_log := igs_ad_imp_001.g_enable_log;
3020: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3021: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3022:
3023: IF (l_request_id IS NULL) THEN
3016:
3017: l_prog_label := 'igs.plsql.igs_ad_imp_026.prc_pe_addr';
3018: l_label := 'igs.plsql.igs_ad_imp_026.prc_pe_addr.';
3019: l_enable_log := igs_ad_imp_001.g_enable_log;
3020: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3021: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3022:
3023: IF (l_request_id IS NULL) THEN
3024: l_request_id := fnd_global.conc_request_id;
3032: l_debug_str, NULL,
3033: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3034: END IF;
3035:
3036: lvcAction := Igs_Ad_Imp_001.find_source_cat_rule(p_source_type_id,'PERSON_ADDRESS');
3037:
3038: IF lvcAction = 'E' OR lvcAction = 'I' THEN
3039:
3040: UPDATE igs_ad_addr_int_all