[Home] [Help]
185: -- RELATIONSHIP_CODE should be NOT NULL
186: -- ssawhney 2203778 HZ F relationship model changes
187: IF P_Relations_Rec.RELATIONSHIP_CODE IS NULL THEN
188: IF l_enable_log = 'Y' THEN
189: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E171','IGS_AD_RELATIONS_INT_ALL');
190: END IF;
191:
192: UPDATE IGS_AD_RELATIONS_INT_ALL
193: SET ERROR_CODE = 'E171',
201: P_Relations_Rec.RELATIONSHIP_CODE,p_relations_rec.RELATIONSHIP_TYPE,0);
202: FETCH Relationship_Type_C INTO l_Count;
203: IF l_Count = 0 THEN
204: IF l_enable_log = 'Y' THEN
205: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E239','IGS_AD_RELATIONS_INT_ALL');
206: END IF;
207: UPDATE IGS_AD_RELATIONS_INT_ALL
208: SET ERROR_CODE = 'E239',
209: STATUS = l_Status
220: -- Validate Oth_Relationship_Type
221: IF P_Relations_Rec.Oth_Relationship_Type IS NOT NULL THEN
222: IF NOT(igs_pe_pers_imp_001.validate_lookup_type_code('PARTY_RELATIONS_TYPE',P_Relations_Rec.oth_relationship_type,222)) THEN
223: IF l_enable_log = 'Y' THEN
224: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E240','IGS_AD_RELATIONS_INT_ALL');
225: END IF;
226: UPDATE igs_ad_relations_int_all
227: SET ERROR_CODE = 'E240',
228: STATUS = l_Status
246: SET STATUS = '3',ERROR_CODE = 'E204'
247: WHERE INTERFACE_RELATIONS_ID = P_Relations_Rec.INTERFACE_RELATIONS_ID;
248: -- Call Log detail
249: IF l_enable_log = 'Y' THEN
250: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E204','IGS_AD_RELATIONS_INT_ALL');
251: FND_MESSAGE.SET_NAME('IGS','IGS_AD_REL_FAIL_PER_NO');
252: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
253: END IF;
254: RETURN;
260: -- Validate the title
261: IF P_Relations_Rec.pre_name_adjunct IS NOT NULL THEN
262: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('CONTACT_TITLE',P_Relations_Rec.pre_name_adjunct,222)) THEN
263: IF l_enable_log = 'Y' THEN
264: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E201','IGS_AD_RELATIONS_INT_ALL');
265: END IF;
266: UPDATE igs_ad_relations_int_all
267: SET ERROR_CODE = 'E201',
268: STATUS = l_Status
273: -- Validate Sex.
274: IF P_Relations_Rec.sex IS NOT NULL THEN
275: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('HZ_GENDER',P_Relations_Rec.sex,222)) THEN
276: IF l_enable_log = 'Y' THEN
277: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E202','IGS_AD_RELATIONS_INT_ALL');
278: END IF;
279: UPDATE igs_ad_relations_int_all
280: SET ERROR_CODE = 'E202',
281: STATUS = l_Status
287: -- Validate birth_dt, deceased_dt.
288: IF ((P_Relations_Rec.birth_dt IS NOT NULL) AND (P_Relations_Rec.birth_dt > SYSDATE)) THEN
289: l_err_cd := 'E203';
290: IF l_enable_log = 'Y' THEN
291: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E203','IGS_AD_RELATIONS_INT_ALL');
292: END IF;
293: UPDATE igs_ad_relations_int_all
294: SET ERROR_CODE = l_err_cd,
295: STATUS = l_Status
297: RETURN;
298: ELSIF ( (NVL(P_Relations_Rec.deceased,'N') = 'Y') AND (P_Relations_Rec.deceased_date > SYSDATE)) THEN
299: l_err_cd := 'E451';
300: IF l_enable_log = 'Y' THEN
301: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E451','IGS_AD_RELATIONS_INT_ALL');
302: END IF;
303: UPDATE igs_ad_relations_int_all
304: SET ERROR_CODE = l_err_cd,
305: STATUS = l_Status
385:
386:
387: IF l_return_status IN ('E','U') THEN
388: IF l_enable_log = 'Y' THEN
389: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E452','IGS_AD_RELATIONS_INT_ALL');
390: END IF;
391: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
392: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel.exception '||'E452';
393: fnd_message.set_name('IGS','IGS_PE_IMP_ERROR');
411: -- ssawhney 2203778 using IGS wrapper now.
412: ELSIF p_match_found = 'Y' THEN
413: l_status := '3';
414: IF l_enable_log = 'Y' THEN
415: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E289','IGS_AD_RELATIONS_INT_ALL');
416: END IF;
417: UPDATE igs_ad_relations_int_all
418: SET ERROR_CODE = 'E289',
419: STATUS = l_Status
445: p_object_version_number => l_object_verson_number) ;
446:
447: IF l_return_status IN ('E','U') THEN
448: IF l_enable_log = 'Y' THEN
449: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E172','IGS_AD_RELATIONS_INT_ALL');
450: END IF;
451:
452: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
453: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel.exception '||'E172';
479: ROLLBACK TO before_creatupdate;
480: FND_MESSAGE.PARSE_ENCODED(FND_MESSAGE.GET_ENCODED, l_app, l_message_name);
481: IF l_message_name = ('IGS_PE_PERS_ID_PRD_OVRLP') THEN
482: IF l_enable_log = 'Y' THEN
483: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E290','IGS_AD_RELATIONS_INT_ALL');
484: END IF;
485: UPDATE igs_ad_relations_int_all
486: SET ERROR_CODE = 'E290',
487: STATUS = '3'
552: );
553: END IF;
554:
555: IF l_enable_log = 'Y' THEN
556: igs_ad_imp_001.logerrormessage(P_Relations_Rec.Interface_Relations_Id,'E518','IGS_AD_RELATIONS_INT_ALL');
557: END IF;
558:
559: UPDATE igs_ad_relations_int_all
560: SET ERROR_CODE = 'E518',
565:
566: -- Main Procedure starts here Prc_Pe_Rel
567: BEGIN
568: l_processed_records := 0;
569: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
570: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_relns';
571: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_relns.';
572: l_enable_log := igs_ad_imp_001.g_enable_log;
573: l_request_id := fnd_global.conc_request_id;
568: l_processed_records := 0;
569: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
570: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_relns';
571: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_relns.';
572: l_enable_log := igs_ad_imp_001.g_enable_log;
573: l_request_id := fnd_global.conc_request_id;
574: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
575: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_relns.begin';
576: l_debug_str := 'igs_ad_imp_008.prc_pe_rel';
675: );
676: END IF;
677:
678: IF l_enable_log = 'Y' THEN
679: igs_ad_imp_001.logerrormessage(Relations_Rec.Interface_Relations_Id,'E518','IGS_AD_RELATIONS_INT_ALL');
680: END IF;
681: UPDATE igs_ad_relations_int_all
682: SET status = '3', error_code = 'E518'
683: WHERE interface_relations_id = relations_rec.interface_relations_id;
845:
846: IF l_return_status IN ('E','U') THEN
847: l_flag_check_status := 'N';
848: IF l_enable_log = 'Y' THEN
849: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E014','IGS_AD_RELADDR_INT_ALL');
850: END IF;
851: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
852: IF (l_request_id IS NULL) THEN
853: l_request_id := fnd_global.conc_request_id;
871: WHERE interface_reladdr_id = reladdr_rec.interface_reladdr_id;
872: ELSIF l_return_status = 'W' THEN
873: l_addr_warning := 'Y';
874: IF l_enable_log = 'Y' THEN
875: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E073','IGS_AD_RELADDR_INT_ALL');
876: END IF;
877: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
878: IF (l_request_id IS NULL) THEN
879: l_request_id := fnd_global.conc_request_id;
937: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
938: );
939: END IF;
940: IF l_enable_log = 'Y' THEN
941: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E244','IGS_AD_RELADDR_INT_ALL');
942: END IF;
943: UPDATE Igs_Ad_RelAddr_Int_all
944: SET Error_Code = 'E244',
945: Status = '3'
990: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
991: );
992: END IF;
993: IF l_enable_log = 'Y' THEN
994: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E244','IGS_AD_RELADDR_INT_ALL');
995: END IF;
996: UPDATE Igs_Ad_RelAddr_Int_all
997: SET Error_Code = 'E244',
998: Status = l_Status
1031: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
1032: );
1033: END IF;
1034: IF l_enable_log = 'Y' THEN
1035: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E014','IGS_AD_RELADDR_INT_ALL');
1036: END IF;
1037:
1038: UPDATE Igs_Ad_RelAddr_Int_all
1039: SET Error_Code = 'E014',
1060: l_Status := '3';
1061: IF (reladdr_rec.site_use_code_1 IS NOT NULL) THEN
1062: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('PARTY_SITE_USE_CODE',reladdr_rec.site_use_code_1,222)) THEN
1063: IF l_enable_log = 'Y' THEN
1064: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E211','IGS_AD_RELADDR_INT_ALL');
1065: END IF;
1066:
1067: UPDATE igs_ad_reladdr_int_all
1068: SET error_code = 'E211', status = '3'
1075:
1076: IF (reladdr_rec.site_use_code_2 IS NOT NULL) THEN
1077: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('PARTY_SITE_USE_CODE',reladdr_rec.site_use_code_2,222)) THEN
1078: IF l_enable_log = 'Y' THEN
1079: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E211','IGS_AD_RELADDR_INT_ALL');
1080: END IF;
1081: UPDATE igs_ad_reladdr_int_all
1082: SET error_code = 'E211', status = '3'
1083: WHERE interface_reladdr_id = reladdr_rec.interface_reladdr_id;
1088: -- Also site_use_code_1 should not be the same as site_use_code_2.
1089: IF (reladdr_rec.site_use_code_1 IS NOT NULL AND reladdr_rec.site_use_code_2 IS NOT NULL) THEN
1090: IF reladdr_rec.site_use_code_1 = reladdr_rec.site_use_code_2 THEN
1091: IF l_enable_log = 'Y' THEN
1092: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E449','IGS_AD_RELADDR_INT_ALL');
1093: END IF;
1094:
1095: UPDATE igs_ad_reladdr_int_all
1096: SET error_code = 'E449', status = '3'
1105: OPEN terr_name_cur(reladdr_rec.country);
1106: FETCH terr_name_cur INTO l_territory_short_name ;
1107: IF terr_name_cur%NOTFOUND THEN
1108: IF l_enable_log = 'Y' THEN
1109: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E209','IGS_AD_RELADDR_INT_ALL');
1110: END IF;
1111:
1112: UPDATE igs_ad_reladdr_int_all
1113: SET error_code = 'E209', status = '3'
1120:
1121: IF reladdr_rec.correspondence IS NOT NULL THEN
1122: IF reladdr_rec.correspondence NOT IN ('Y','N') THEN
1123: IF l_enable_log = 'Y' THEN
1124: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E213','IGS_AD_RELADDR_INT_ALL');
1125: END IF;
1126:
1127: UPDATE igs_ad_reladdr_int_all
1128: SET error_code = 'E213', status = '3'
1134: END IF;
1135:
1136: IF reladdr_rec.start_dt IS NULL AND reladdr_rec.end_dt IS NOT NULL THEN
1137: IF l_enable_log = 'Y' THEN
1138: igs_ad_imp_001.logerrormessage( reladdr_rec.interface_reladdr_id,'E407','IGS_AD_RELADDR_INT_ALL');
1139: END IF;
1140:
1141: UPDATE igs_ad_reladdr_int_all
1142: SET error_code = 'E407', status = '3'
1147:
1148: IF reladdr_rec.start_dt IS NOT NULL AND reladdr_rec.end_dt IS NOT NULL THEN
1149: IF reladdr_rec.start_dt > reladdr_rec.end_dt THEN
1150: IF l_enable_log = 'Y' THEN
1151: igs_ad_imp_001.logerrormessage( reladdr_rec.interface_reladdr_id,'E406','IGS_AD_RELADDR_INT_ALL');
1152: END IF;
1153:
1154: UPDATE igs_ad_reladdr_int_all
1155: SET error_code = 'E406', status = '3'
1167: -- start date must be greater than birth date
1168: IF l_birth_date IS NOT NULL THEN
1169: IF reladdr_rec.start_dt < l_birth_date THEN
1170: IF l_enable_log = 'Y' THEN
1171: igs_ad_imp_001.logerrormessage( reladdr_rec.interface_reladdr_id,'E222','IGS_AD_RELADDR_INT_ALL');
1172: END IF;
1173: UPDATE igs_ad_reladdr_int_all
1174: SET error_code = 'E222', status = '3'
1175: WHERE interface_reladdr_id = reladdr_rec.interface_reladdr_id;
1189: l_Check := 'FALSE';
1190: l_Error_Code := 'E008';
1191: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_rel_adr';
1192: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel_adr.';
1193: l_enable_log := igs_ad_imp_001.g_enable_log;
1194: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1195:
1196: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1197: IF (l_request_id IS NULL) THEN
1190: l_Error_Code := 'E008';
1191: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_rel_adr';
1192: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel_adr.';
1193: l_enable_log := igs_ad_imp_001.g_enable_log;
1194: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1195:
1196: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1197: IF (l_request_id IS NULL) THEN
1198: l_request_id := fnd_global.conc_request_id;
1207: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
1208: );
1209: END IF;
1210:
1211: l_rule := Igs_Ad_Imp_001.Find_Source_Cat_Rule(p_source_type_id,'RELATIONS_ADDRESS');
1212: --1. If rule is E or I, then if the match_ind is not null, the combination is invalid
1213: IF l_rule IN ('E','I') THEN
1214: UPDATE Igs_Ad_RelAddr_Int_all
1215: SET status = '3',
1408: );
1409: END IF;
1410:
1411: IF l_enable_log = 'Y' THEN
1412: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E322','IGS_AD_RELADDR_INT_ALL');
1413: END IF;
1414: UPDATE Igs_Ad_RelAddr_Int_all
1415: SET Error_Code = 'E322',
1416: Status = '3'
1433: );
1434: END IF;
1435:
1436: IF l_enable_log = 'Y' THEN
1437: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E073','IGS_AD_RELADDR_INT_ALL');
1438: END IF;
1439: UPDATE Igs_Ad_RelAddr_Int_all
1440: SET Error_Code = 'E073',
1441: Status = '4'
1479: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
1480: );
1481: END IF;
1482: IF l_enable_log = 'Y' THEN
1483: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E322','IGS_AD_RELADDR_INT_ALL');
1484: END IF;
1485: UPDATE Igs_Ad_RelAddr_Int_all
1486: SET Error_Code = 'E322',
1487: Status = '3'
1530: );
1531: END IF;
1532:
1533: IF l_enable_log = 'Y' THEN
1534: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E244','IGS_AD_RELADDR_INT_ALL');
1535: END IF;
1536:
1537: UPDATE Igs_Ad_RelAddr_Int_all
1538: SET Error_Code = 'E244',
1571: );
1572: END IF;
1573:
1574: IF l_enable_log = 'Y' THEN
1575: igs_ad_imp_001.logerrormessage(reladdr_rec.interface_reladdr_id,'E518','IGS_AD_RELADDR_INT_ALL');
1576: END IF;
1577:
1578: UPDATE Igs_Ad_RelAddr_Int_all
1579: SET Error_Code = 'E518',
1759:
1760: ln_Error_Code := 'E322';
1761:
1762: IF l_enable_log = 'Y' THEN
1763: igs_ad_imp_001.logerrormessage(p_rel_con_rec.interface_rel_con_id,'E322','IGS_AD_REL_CON_INT_ALL');
1764: END IF;
1765:
1766: UPDATE igs_ad_rel_con_int_all
1767: SET error_code = ln_Error_Code, --error code for the insert failure
1793: THEN
1794: -- If the validation is not successful.
1795:
1796: IF l_enable_log = 'Y' THEN
1797: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E246','IGS_AD_REL_CON_INT_ALL');
1798: END IF;
1799:
1800: UPDATE igs_ad_rel_con_int_all
1801: SET status = '3',
1808: IF relcon_rec.primary_flag IS NOT NULL THEN
1809: IF relcon_rec.primary_flag NOT IN ('N','Y') THEN
1810:
1811: IF l_enable_log = 'Y' THEN
1812: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E450','IGS_AD_REL_CON_INT_ALL');
1813: END IF;
1814:
1815: UPDATE igs_ad_rel_con_int_all
1816: SET error_code = 'E450',
1825: -- Validation to check whether phone line type or phone number are null
1826: IF relcon_rec.phone_number IS NULL OR relcon_rec.phone_line_type IS NULL THEN
1827:
1828: IF l_enable_log = 'Y' THEN
1829: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E250','IGS_AD_REL_CON_INT_ALL');
1830: END IF;
1831:
1832: UPDATE igs_ad_rel_con_int_all
1833: SET error_code = 'E250',
1844: -- If the validation is not successful.
1845:
1846:
1847: IF l_enable_log = 'Y' THEN
1848: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E247','IGS_AD_REL_CON_INT_ALL');
1849: END IF;
1850:
1851: UPDATE igs_ad_rel_con_int_all
1852: SET status = '3',
1863: IF c_ph_cntry_cd%NOTFOUND THEN
1864: -- If the validation is not successful.
1865:
1866: IF l_enable_log = 'Y' THEN
1867: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E173','IGS_AD_REL_CON_INT_ALL');
1868: END IF;
1869:
1870: UPDATE igs_ad_rel_con_int_all
1871: SET status = '3',
1884: -- Validation to check whether email address is null
1885: IF relcon_rec.email_addrress IS NULL THEN
1886:
1887: IF l_enable_log = 'Y' THEN
1888: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E251','IGS_AD_REL_CON_INT_ALL');
1889: END IF;
1890:
1891: UPDATE igs_ad_rel_con_int_all
1892: SET error_code = 'E251',
1900: (igs_pe_pers_imp_001.validate_lookup_type_code('EMAIL_FORMAT',relcon_rec.email_format,222))
1901: THEN
1902:
1903: IF l_enable_log = 'Y' THEN
1904: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E248','IGS_AD_REL_CON_INT_ALL');
1905: END IF;
1906:
1907: UPDATE igs_ad_rel_con_int_all
1908: SET error_code = 'E248',
1923: l_Status := '3';
1924: l_Error_Code := 'E008';
1925: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_rel_con_dtl';
1926: l_label := 'igs.plsql.igs_ad_imp_008.prc_rel_con_dtl.';
1927: l_enable_log := igs_ad_imp_001.g_enable_log;
1928: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1929: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1930:
1931: IF (l_request_id IS NULL) THEN
1924: l_Error_Code := 'E008';
1925: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_rel_con_dtl';
1926: l_label := 'igs.plsql.igs_ad_imp_008.prc_rel_con_dtl.';
1927: l_enable_log := igs_ad_imp_001.g_enable_log;
1928: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
1929: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1930:
1931: IF (l_request_id IS NULL) THEN
1932: l_request_id := fnd_global.conc_request_id;
1940: l_debug_str, NULL,
1941: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1942: END IF;
1943:
1944: l_rule := Igs_Ad_Imp_001.Find_Source_Cat_Rule(p_source_type_id,'RELATIONS_CONTACTS');
1945:
1946: --1. If rule is E or I, then if the match_ind is not null, the combination is invalid
1947: IF l_rule IN ('E','I') THEN
1948: UPDATE igs_ad_rel_con_int_all
2168: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2169: END IF;
2170:
2171: IF l_enable_log = 'Y' THEN
2172: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E014','IGS_AD_REL_CON_INT_ALL');
2173: END IF;
2174:
2175: UPDATE igs_ad_rel_con_int_all
2176: SET status = '3',
2254: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2255: END IF;
2256:
2257: IF l_enable_log = 'Y' THEN
2258: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E014','IGS_AD_REL_CON_INT_ALL');
2259: END IF;
2260:
2261: UPDATE igs_ad_rel_con_int_all
2262: SET status = '3',
2293: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2294: END IF;
2295:
2296: IF l_enable_log = 'Y' THEN
2297: igs_ad_imp_001.logerrormessage(relcon_rec.interface_rel_con_id,'E518','IGS_AD_REL_CON_INT_ALL');
2298: END IF;
2299:
2300: UPDATE igs_ad_rel_con_int_all
2301: SET status = '3',
2471: OR Relacad_Rec.degree_earned IS NOT NULL
2472: OR Relacad_Rec.program_code IS NOT NULL) THEN
2473:
2474: IF l_enable_log = 'Y' THEN
2475: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E396','IGS_AD_RELACAD_INT_ALL');
2476: END IF;
2477:
2478: UPDATE Igs_Ad_Relacad_Int_all
2479: SET Error_Code = 'E396',
2489: FETCH Institution_C INTO l_Institution_Rec;
2490: IF (Institution_C%NOTFOUND) THEN
2491:
2492: IF l_enable_log = 'Y' THEN
2493: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E401','IGS_AD_RELACAD_INT_ALL');
2494: END IF;
2495:
2496: UPDATE Igs_Ad_Relacad_Int_all
2497: SET Error_Code = 'E401',
2509: FETCH c_degree_code INTO l_Course_Rec;
2510: IF (c_degree_code%NOTFOUND) THEN
2511:
2512: IF l_enable_log = 'Y' THEN
2513: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E402','IGS_AD_RELACAD_INT_ALL');
2514: END IF;
2515:
2516: UPDATE Igs_Ad_Relacad_Int_all
2517: SET Error_Code = 'E402',
2531: FETCH c_degree_code INTO l_Course_Rec;
2532: IF (c_degree_code%NOTFOUND) THEN
2533:
2534: IF l_enable_log = 'Y' THEN
2535: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E403','IGS_AD_RELACAD_INT_ALL');
2536: END IF;
2537:
2538: UPDATE Igs_Ad_Relacad_Int_all
2539: SET Error_Code = 'E403',
2549:
2550: IF RELACAD_REC.CURRENT_INST NOT IN('Y','N') THEN
2551:
2552: IF l_enable_log = 'Y' THEN
2553: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E453','IGS_AD_RELACAD_INT_ALL');
2554: END IF;
2555:
2556: UPDATE Igs_Ad_Relacad_Int_all
2557: SET Error_Code = 'E453',
2564: -- IF RELACAD_REC.CURRENT_INST = 'Y' THEN THE END DATE MUST BE NULL.
2565: IF RELACAD_REC.CURRENT_INST = 'Y' AND RELACAD_REC.END_DATE IS NOT NULL THEN
2566:
2567: IF l_enable_log = 'Y' THEN
2568: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E448','IGS_AD_RELACAD_INT_ALL');
2569: END IF;
2570:
2571:
2572: UPDATE Igs_Ad_Relacad_Int_all
2650: l_Status := '3';
2651: l_Error_Code := 'E008';
2652: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_rel_acad_his';
2653: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel_acad_his.';
2654: l_enable_log := igs_ad_imp_001.g_enable_log;
2655: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2656: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2657:
2658: IF (l_request_id IS NULL) THEN
2651: l_Error_Code := 'E008';
2652: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_rel_acad_his';
2653: l_label := 'igs.plsql.igs_ad_imp_008.crt_rel_acad_his.';
2654: l_enable_log := igs_ad_imp_001.g_enable_log;
2655: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
2656: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
2657:
2658: IF (l_request_id IS NULL) THEN
2659: l_request_id := fnd_global.conc_request_id;
2667: l_debug_str, NULL,
2668: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2669: END IF;
2670:
2671: l_rule := Igs_Ad_Imp_001.Find_Source_Cat_Rule(p_source_type_id,'RELATIONS_ACAD_HISTORY');
2672:
2673: --1 If rule is E or I, then if the match_ind is not null, the combination is invalid
2674: IF l_rule IN ('E','I') THEN
2675: UPDATE Igs_Ad_Relacad_Int_all
2852: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2853: END IF;
2854:
2855: IF l_enable_log = 'Y' THEN
2856: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E014','IGS_AD_RELACAD_INT_ALL');
2857: END IF;
2858:
2859: UPDATE Igs_Ad_Relacad_Int_all
2860: SET Error_Code = 'E014',
2955: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
2956: END IF;
2957:
2958: IF l_enable_log = 'Y' THEN
2959: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E014','IGS_AD_RELACAD_INT_ALL');
2960: END IF;
2961:
2962: UPDATE Igs_Ad_Relacad_Int_all
2963: SET Error_Code = 'E014',
3069: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3070: END IF;
3071:
3072: IF l_enable_log = 'Y' THEN
3073: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E014','IGS_AD_RELACAD_INT_ALL');
3074: END IF;
3075:
3076: UPDATE Igs_Ad_Relacad_Int_all
3077: SET Error_Code = 'E014',
3188: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3189: END IF;
3190:
3191: IF l_enable_log = 'Y' THEN
3192: igs_ad_imp_001.logerrormessage(relacad_rec.interface_relacad_id,'E322','IGS_AD_RELACAD_INT_ALL');
3193: END IF;
3194:
3195: UPDATE Igs_Ad_Relacad_Int_all
3196: SET Error_Code = 'E322',
3237: BEGIN
3238:
3239: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_relns_emp_dtls';
3240: l_label := 'igs.plsql.igs_ad_imp_008.crt_relns_emp_dtls.';
3241: l_enable_log := igs_ad_imp_001.g_enable_log;
3242: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3243: lv_var := 'N';
3244: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3245: IF (l_request_id IS NULL) THEN
3238:
3239: l_prog_label := 'igs.plsql.igs_ad_imp_008.crt_relns_emp_dtls';
3240: l_label := 'igs.plsql.igs_ad_imp_008.crt_relns_emp_dtls.';
3241: l_enable_log := igs_ad_imp_001.g_enable_log;
3242: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3243: lv_var := 'N';
3244: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3245: IF (l_request_id IS NULL) THEN
3246: l_request_id := fnd_global.conc_request_id;
3296: IF l_enable_log = 'Y' THEN
3297: fnd_message.set_name('igs', 'igs_ad_crt_emp_dtl_failed');
3298: fnd_file.put_line(fnd_file.log, fnd_message.get);
3299: -- Log the message Employment Details failed
3300: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E322','IGS_AD_RELEMP_INT_ALL');
3301: END IF;
3302:
3303: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
3304: IF (l_request_id IS NULL) THEN
3342: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3343: END IF;
3344:
3345: IF l_enable_log = 'Y' THEN
3346: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E518','IGS_AD_RELEMP_INT_ALL');
3347: END IF;
3348:
3349: UPDATE igs_ad_relemp_int_all
3350: SET status = '3', error_code = 'E518'
3392: lv_var := 'N';
3393:
3394: l_prog_label := 'igs.plsql.igs_ad_imp_008.validate_relns_emp_dtls';
3395: l_label := 'igs.plsql.igs_ad_imp_008.validate_relns_emp_dtls.';
3396: l_enable_log := igs_ad_imp_001.g_enable_log;
3397: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3398: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3399:
3400: IF (l_request_id IS NULL) THEN
3393:
3394: l_prog_label := 'igs.plsql.igs_ad_imp_008.validate_relns_emp_dtls';
3395: l_label := 'igs.plsql.igs_ad_imp_008.validate_relns_emp_dtls.';
3396: l_enable_log := igs_ad_imp_001.g_enable_log;
3397: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3398: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3399:
3400: IF (l_request_id IS NULL) THEN
3401: l_request_id := fnd_global.conc_request_id;
3420: --ssomani, corrected these validations 15 March 2001
3421: IF (P_RELEMP_REC.OCCUPATIONAL_TITLE_CODE IS NOT NULl AND lv_var = 'N') THEN
3422: p_error_code :='E223';
3423: IF l_enable_log = 'Y' THEN
3424: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3425: END IF;
3426: RETURN;
3427: END IF;
3428:
3428:
3429: IF P_RELEMP_REC.Start_DT IS NULL THEN
3430: p_error_code :='E407';
3431: IF l_enable_log = 'Y' THEN
3432: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3433: END IF;
3434: RETURN;
3435: END IF;
3436:
3436:
3437: IF NVL(P_RELEMP_REC.End_Dt,P_RELEMP_REC.Start_Dt) < P_RELEMP_REC.Start_DT THEN
3438: p_error_code :='E406';
3439: IF l_enable_log = 'Y' THEN
3440: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3441: END IF;
3442: RETURN;
3443: END IF;
3444:
3449: IF l_birth_date IS NOT NULL THEN
3450: IF p_relemp_rec.start_dt < l_birth_date THEN
3451: p_error_code := 'E222';
3452: IF l_enable_log = 'Y' THEN
3453: igs_ad_imp_001.logerrormessage( p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3454: END IF;
3455: RETURN;
3456: END IF;
3457: END IF;
3459: IF P_RELEMP_REC.TYPE_OF_EMPLOYMENT IS NOT NULL THEN
3460: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('HZ_EMPLOYMENT_TYPE',P_RELEMP_REC.TYPE_OF_EMPLOYMENT,222)) THEN
3461: p_error_code :='E224';
3462: IF l_enable_log = 'Y' THEN
3463: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E224','IGS_AD_RELEMP_INT_ALL');
3464: END IF;
3465: RETURN;
3466: END IF;
3467: END IF;
3468:
3469: IF NVL(P_RELEMP_REC.FRACTION_OF_EMPLOYMENT,1) NOT BETWEEN 0.01 AND 100.00 THEN
3470: p_error_code :='E225';
3471: IF l_enable_log = 'Y' THEN
3472: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3473: END IF;
3474: RETURN;
3475: END IF;
3476:
3477: IF P_RELEMP_REC.TENURE_OF_EMPLOYMENT IS NOT NULL THEN
3478: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('HZ_TENURE_CODE',P_RELEMP_REC.TENURE_OF_EMPLOYMENT,222))THEN
3479: p_error_code :='E226';
3480: IF l_enable_log = 'Y' THEN
3481: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3482: END IF;
3483: RETURN;
3484: END IF;
3485:
3487:
3488: IF P_RELEMP_REC.WEEKLY_WORK_HOURS < 0 OR P_RELEMP_REC.WEEKLY_WORK_HOURS > 168 THEN
3489: p_error_code :='E227';
3490: IF l_enable_log = 'Y' THEN
3491: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3492: END IF;
3493: RETURN;
3494: END IF;
3495:
3496: --Employer and Employed_by_party_id are mutually_exclusive
3497: IF P_RELEMP_REC.employer_party_number IS NOT NULL AND P_RELEMP_REC.EMPLOYER IS NOT NULL THEN
3498: p_error_code := 'E755';
3499: IF l_enable_log = 'Y' THEN
3500: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3501: END IF;
3502: RETURN;
3503: END IF;
3504:
3508: FETCH employer_party_number_cur INTO p_employer_party_id;
3509: IF employer_party_number_cur%NOTFOUND THEN
3510: p_error_code := 'E756';
3511: IF l_enable_log = 'Y' THEN
3512: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3513: END IF;
3514: RETURN;
3515: END IF;
3516: CLOSE employer_party_number_cur;
3552: BEGIN
3553:
3554: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_relns_emp_dtls';
3555: l_label := 'igs.plsql.igs_ad_imp_008.prc_relns_emp_dtls.';
3556: l_enable_log := igs_ad_imp_001.g_enable_log;
3557: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3558:
3559: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3560:
3553:
3554: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_relns_emp_dtls';
3555: l_label := 'igs.plsql.igs_ad_imp_008.prc_relns_emp_dtls.';
3556: l_enable_log := igs_ad_imp_001.g_enable_log;
3557: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
3558:
3559: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
3560:
3561: IF (l_request_id IS NULL) THEN
3570: l_debug_str, NULL,
3571: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3572: END IF;
3573:
3574: l_rule := Igs_Ad_Imp_001.find_source_cat_rule(p_source_type_id,'RELATIONS_EMPLOYMENT_DETAILS');
3575:
3576: --1 If rule is E or I, then if the match_ind is not null, the combination is invalid
3577: IF l_rule IN ('E','I') THEN
3578: UPDATE igs_ad_relemp_int_all
3740: );
3741:
3742: IF l_return_Status IN ('E','U') THEN
3743: IF l_enable_log = 'Y' THEN
3744: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');
3745: END IF;
3746:
3747: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
3748: IF (l_request_id IS NULL) THEN
3833: );
3834: END IF;
3835:
3836: IF l_enable_log = 'Y' THEN
3837: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');
3838: END IF;
3839: UPDATE igs_ad_relemp_int_all
3840: SET error_code = 'E014', status = '3'
3841: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3986: p_success := 'N';
3987: p_error_code := 'E205';
3988:
3989: IF l_enable_log = 'Y' THEN
3990: igs_ad_imp_001.logerrormessage(p_per_stat.interface_stat_id,'E205','IGS_AD_STAT_INT_ALL');
3991: END IF;
3992:
3993: UPDATE igs_ad_stat_int_all
3994: SET error_code = 'E205',
4006: p_success := 'N';
4007: p_error_code := 'E206';
4008:
4009: IF l_enable_log = 'Y' THEN
4010: igs_ad_imp_001.logerrormessage(p_per_stat.interface_stat_id,'E206','IGS_AD_STAT_INT_ALL');
4011: END IF;
4012:
4013: UPDATE igs_ad_stat_int_all
4014: SET error_code = 'E206',
4061: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4062: END IF;
4063:
4064: IF l_enable_log = 'Y' THEN
4065: igs_ad_imp_001.logerrormessage(p_per_stat.interface_stat_id,'E277','IGS_AD_STAT_INT_ALL');
4066: END IF;
4067:
4068: UPDATE igs_ad_stat_int_all
4069: SET error_code = 'E277',
4083: p_success := 'N';
4084: p_error_code := 'E207';
4085:
4086: IF l_enable_log = 'Y' THEN
4087: igs_ad_imp_001.logerrormessage(p_per_stat.interface_stat_id,'E207','IGS_AD_STAT_INT_ALL');
4088: END IF;
4089:
4090: UPDATE igs_ad_stat_int_all
4091: SET error_code = 'E207',
4172: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4173: END IF;
4174:
4175: IF l_enable_log = 'Y' THEN
4176: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E170','IGS_AD_STAT_INT_ALL');
4177: END IF;
4178:
4179:
4180:
4339: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4340: END IF;
4341:
4342: IF l_enable_log = 'Y' THEN
4343: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E005','IGS_AD_STAT_INT_ALL');
4344: END IF;
4345: ELSE
4346: p_status :='1';
4347: p_error_code := NULL;
4389: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4390: END IF;
4391:
4392: IF l_enable_log = 'Y' THEN
4393: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E005','IGS_AD_STAT_INT_ALL');
4394: END IF;
4395:
4396: END Crt_Pe_Stat; -- end of local procedure crt_pe_stat
4397:
4400: -- Call Log header
4401: l_processed_records := 0;
4402: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_main';
4403: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_main.';
4404: l_enable_log := igs_ad_imp_001.g_enable_log;
4405: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
4406:
4407: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
4408:
4401: l_processed_records := 0;
4402: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_main';
4403: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_main.';
4404: l_enable_log := igs_ad_imp_001.g_enable_log;
4405: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
4406:
4407: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
4408:
4409: IF (l_request_id IS NULL) THEN
4418: l_debug_str, NULL,
4419: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4420: END IF;
4421:
4422: l_rule := Igs_Ad_Imp_001.find_source_cat_rule (p_source_type_id, 'PERSON_STATISTICS');
4423: --ssomani, corrected the looping 15 March 2001
4424:
4425: --1. If rule is E or I, then if the match_ind is not null, the combination is invalid
4426: IF l_rule IN ('E','I') THEN
4762: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4763: END IF;
4764:
4765: IF l_enable_log = 'Y' THEN
4766: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E014','IGS_AD_STAT_INT_ALL');
4767: END IF;
4768: ELSE
4769: UPDATE
4770: igs_ad_stat_int_all
4807: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4808: END IF;
4809:
4810: IF l_enable_log = 'Y' THEN
4811: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E518','IGS_AD_STAT_INT_ALL');
4812: END IF;
4813: END;
4814:
4815: ELSIF l_rule = 'R' THEN
4945: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4946: END IF;
4947:
4948: IF l_enable_log = 'Y' THEN
4949: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E014','IGS_AD_STAT_INT_ALL');
4950: END IF;
4951:
4952:
4953: ELSE
4991: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
4992: END IF;
4993:
4994: IF l_enable_log = 'Y' THEN
4995: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,p_error_code,'IGS_AD_STAT_INT_ALL');
4996: END IF;
4997:
4998:
4999: END IF; -- null handling
5028: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5029: END IF;
5030:
5031: IF l_enable_log = 'Y' THEN
5032: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E014','IGS_AD_STAT_INT_ALL');
5033: END IF;
5034:
5035: END;
5036: END IF;--end if for match_ind = '21'
5074: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5075: END IF;
5076:
5077: IF l_enable_log = 'Y' THEN
5078: igs_ad_imp_001.logerrormessage(stat_rec.interface_stat_id,'E518','IGS_AD_STAT_INT_ALL');
5079: END IF;
5080:
5081: END;
5082:
5188: p_error_code := 'E228';
5189: p_status :='3';
5190:
5191: IF l_enable_log = 'Y' THEN
5192: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E228','IGS_PE_EIT_INT');
5193: END IF;
5194: ELSE
5195: Igs_Pe_Eit_Pkg.insert_row (
5196: x_rowid => l_rowid,
5236: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5237: END IF;
5238:
5239: IF l_enable_log = 'Y' THEN
5240: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E161','IGS_PE_EIT_INT');
5241: END IF;
5242:
5243:
5244: END crt_biodemo; -- END OF LOCAL PROCEDURE crt_biodemo
5404: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5405: END IF;
5406:
5407: IF l_enable_log = 'Y' THEN
5408: igs_ad_imp_001.logerrormessage(p_biodemo_rec.interface_eit_id,l_error,'IGS_PE_EIT_INT');
5409: END IF;
5410:
5411: RETURN FALSE ;
5412:
5416: BEGIN -- Start the Prc_Pe_Stat_Biodemo Now.
5417:
5418: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_biodemo';
5419: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_biodemo.';
5420: l_enable_log := igs_ad_imp_001.g_enable_log;
5421: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
5422: -- Call Log header
5423: l_processed_records := 0;
5424: l_count := 0;
5417:
5418: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_biodemo';
5419: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat_biodemo.';
5420: l_enable_log := igs_ad_imp_001.g_enable_log;
5421: l_interface_run_id := igs_ad_imp_001.g_interface_run_id;
5422: -- Call Log header
5423: l_processed_records := 0;
5424: l_count := 0;
5425:
5437: l_debug_str, NULL,
5438: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5439: END IF;
5440:
5441: l_rule :=IGS_AD_IMP_001.Find_Source_Cat_Rule(p_source_type_id, 'PERSON_STATISTICS');
5442: --
5443: --1 If rule is E or I, then if the match_ind is not null, the combination is invalid
5444: IF l_rule IN ('E','I') THEN
5445: UPDATE igs_pe_eit_int
5587: error_code = 'E228'
5588: WHERE interface_eit_id = biodem_rec.interface_eit_id;
5589:
5590: IF l_enable_log = 'Y' THEN
5591: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E228','IGS_PE_EIT_INT');
5592: END IF;
5593:
5594: ELSE
5595: -- open the Null handling cursor
5643: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5644: END IF;
5645:
5646: IF l_enable_log = 'Y' THEN
5647: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E090','IGS_PE_EIT_INT');
5648: END IF;
5649:
5650: END;
5651:
5681: error_code = 'E228'
5682: WHERE interface_eit_id = biodem_rec.interface_eit_id;
5683:
5684: IF l_enable_log = 'Y' THEN
5685: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E228','IGS_PE_EIT_INT');
5686: END IF;
5687:
5688: ELSE
5689: igs_pe_eit_pkg.update_row (
5734: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
5735: END IF;
5736:
5737: IF l_enable_log = 'Y' THEN
5738: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,'E089','IGS_PE_EIT_INT');
5739: END IF;
5740:
5741: END;
5742:
5760: -- Call Log detail
5761:
5762: IF l_status <> '1' THEN
5763: IF l_enable_log = 'Y' THEN
5764: igs_ad_imp_001.logerrormessage(biodem_rec.interface_eit_id,l_error_code,'IGS_PE_EIT_INT');
5765: END IF;
5766: END IF;
5767: END IF; -- for 2 IF
5768: -- ELSE already taken care in the Validate Record function for update of interface table
5810: BEGIN
5811:
5812: l_prog_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat';
5813: l_label := 'igs.plsql.igs_ad_imp_008.prc_pe_stat.';
5814: l_enable_log := igs_ad_imp_001.g_enable_log;
5815:
5816: Prc_Pe_Stat_Main (p_source_type_id, p_batch_id);
5817: Prc_Pe_Stat_Biodemo (p_source_type_id, p_batch_id);
5818: igs_ad_imp_025.prc_pe_race (p_source_type_id, p_batch_id);