[Home] [Help]
224: l_debug_str := 'IGS_SV_PRTNR_STP_ERR error in Submit_Event.';
225: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
226: END IF;
227:
228: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_PRTNR_STP_ERR'); -- No trading partner setup found
229: FND_MSG_PUB.Add;
230: RAISE FND_API.G_EXC_ERROR;
231:
232: END IF;
720: INTO l_name_suffix;
721:
722: IF (c_name_suffix%NOTFOUND) AND p_code IS NOT NULL THEN
723:
724: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
725: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Suffix');
726: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
727: Put_Log_Msg(FND_MESSAGE.Get,1);
728:
721:
722: IF (c_name_suffix%NOTFOUND) AND p_code IS NOT NULL THEN
723:
724: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
725: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Suffix');
726: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
727: Put_Log_Msg(FND_MESSAGE.Get,1);
728:
729: l_name_suffix := NULL;
722: IF (c_name_suffix%NOTFOUND) AND p_code IS NOT NULL THEN
723:
724: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
725: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Suffix');
726: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
727: Put_Log_Msg(FND_MESSAGE.Get,1);
728:
729: l_name_suffix := NULL;
730:
723:
724: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
725: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Suffix');
726: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
727: Put_Log_Msg(FND_MESSAGE.Get,1);
728:
729: l_name_suffix := NULL;
730:
731: END IF;
871: INTO l_name_suffix;
872:
873: IF p_code IS NOT NULL AND c_name%FOUND THEN
874:
875: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_TERR_CD_ERR'); -- Error
876: FND_MESSAGE.SET_TOKEN('CNTRY_CODE', p_code);
877: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
878: Put_Log_Msg(FND_MESSAGE.Get,1);
879:
872:
873: IF p_code IS NOT NULL AND c_name%FOUND THEN
874:
875: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_TERR_CD_ERR'); -- Error
876: FND_MESSAGE.SET_TOKEN('CNTRY_CODE', p_code);
877: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
878: Put_Log_Msg(FND_MESSAGE.Get,1);
879:
880: CLOSE c_name;
873: IF p_code IS NOT NULL AND c_name%FOUND THEN
874:
875: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_TERR_CD_ERR'); -- Error
876: FND_MESSAGE.SET_TOKEN('CNTRY_CODE', p_code);
877: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
878: Put_Log_Msg(FND_MESSAGE.Get,1);
879:
880: CLOSE c_name;
881: /* Debug */
874:
875: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_TERR_CD_ERR'); -- Error
876: FND_MESSAGE.SET_TOKEN('CNTRY_CODE', p_code);
877: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_num);
878: Put_Log_Msg(FND_MESSAGE.Get,1);
879:
880: CLOSE c_name;
881: /* Debug */
882: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1084: IF p_data_rec.issuing_reason = 'C' THEN
1085:
1086: IF p_data_rec.curr_session_end_date IS NULL OR p_data_rec.next_session_start_date IS NULL THEN
1087:
1088: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_C_REQ_ERR'); -- SEVIS common error
1089: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1090:
1091: Put_Log_Msg(FND_MESSAGE.Get,1);
1092: l_not_valid := TRUE;
1085:
1086: IF p_data_rec.curr_session_end_date IS NULL OR p_data_rec.next_session_start_date IS NULL THEN
1087:
1088: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_C_REQ_ERR'); -- SEVIS common error
1089: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1090:
1091: Put_Log_Msg(FND_MESSAGE.Get,1);
1092: l_not_valid := TRUE;
1093:
1087:
1088: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_C_REQ_ERR'); -- SEVIS common error
1089: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1090:
1091: Put_Log_Msg(FND_MESSAGE.Get,1);
1092: l_not_valid := TRUE;
1093:
1094: END IF;
1095:
1096: ELSIF p_data_rec.issuing_reason = 'T' THEN
1097:
1098: IF p_data_rec.Transfer_from_school IS NULL THEN
1099:
1100: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_T_REQ_ERR'); -- SEVIS common error
1101: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1102:
1103: Put_Log_Msg(FND_MESSAGE.Get,1);
1104: l_not_valid := TRUE;
1097:
1098: IF p_data_rec.Transfer_from_school IS NULL THEN
1099:
1100: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_T_REQ_ERR'); -- SEVIS common error
1101: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1102:
1103: Put_Log_Msg(FND_MESSAGE.Get,1);
1104: l_not_valid := TRUE;
1105:
1099:
1100: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_T_REQ_ERR'); -- SEVIS common error
1101: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1102:
1103: Put_Log_Msg(FND_MESSAGE.Get,1);
1104: l_not_valid := TRUE;
1105:
1106: END IF;
1107:
1108: ELSIF p_data_rec.issuing_reason = 'I' THEN
1109:
1110: IF l_prog_start_date IS NULL OR l_prog_start_date < trunc(sysdate) THEN
1111:
1112: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRG_START_DT_ERR'); -- SEVIS common error
1113: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1114: FND_MESSAGE.SET_TOKEN('PRGM_DATE', l_prog_start_date );
1115:
1116: Put_Log_Msg(FND_MESSAGE.Get,1);
1109:
1110: IF l_prog_start_date IS NULL OR l_prog_start_date < trunc(sysdate) THEN
1111:
1112: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRG_START_DT_ERR'); -- SEVIS common error
1113: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1114: FND_MESSAGE.SET_TOKEN('PRGM_DATE', l_prog_start_date );
1115:
1116: Put_Log_Msg(FND_MESSAGE.Get,1);
1117: l_not_valid := TRUE;
1110: IF l_prog_start_date IS NULL OR l_prog_start_date < trunc(sysdate) THEN
1111:
1112: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRG_START_DT_ERR'); -- SEVIS common error
1113: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1114: FND_MESSAGE.SET_TOKEN('PRGM_DATE', l_prog_start_date );
1115:
1116: Put_Log_Msg(FND_MESSAGE.Get,1);
1117: l_not_valid := TRUE;
1118:
1112: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRG_START_DT_ERR'); -- SEVIS common error
1113: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1114: FND_MESSAGE.SET_TOKEN('PRGM_DATE', l_prog_start_date );
1115:
1116: Put_Log_Msg(FND_MESSAGE.Get,1);
1117: l_not_valid := TRUE;
1118:
1119: END IF;
1120:
1122: ELSIF p_data_rec.issuing_reason = 'O' THEN
1123:
1124: IF p_data_rec.other_reason IS NULL THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_O_REQ_ERR'); -- SEVIS common error
1127: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1128:
1129: Put_Log_Msg(FND_MESSAGE.Get,1);
1130: l_not_valid := TRUE;
1123:
1124: IF p_data_rec.other_reason IS NULL THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_O_REQ_ERR'); -- SEVIS common error
1127: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1128:
1129: Put_Log_Msg(FND_MESSAGE.Get,1);
1130: l_not_valid := TRUE;
1131:
1125:
1126: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_ISSUE_O_REQ_ERR'); -- SEVIS common error
1127: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1128:
1129: Put_Log_Msg(FND_MESSAGE.Get,1);
1130: l_not_valid := TRUE;
1131:
1132: END IF;
1133:
1132: END IF;
1133:
1134: ELSIF p_person_rec.batch_type = 'E' AND p_data_rec.issuing_reason = 'CONT' AND p_data_rec.init_prgm_start_date IS NULL THEN
1135:
1136: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error - no initial date specified
1137: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1138:
1139: Put_Log_Msg(FND_MESSAGE.Get,1);
1140: l_not_valid := TRUE;
1133:
1134: ELSIF p_person_rec.batch_type = 'E' AND p_data_rec.issuing_reason = 'CONT' AND p_data_rec.init_prgm_start_date IS NULL THEN
1135:
1136: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error - no initial date specified
1137: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1138:
1139: Put_Log_Msg(FND_MESSAGE.Get,1);
1140: l_not_valid := TRUE;
1141:
1135:
1136: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error - no initial date specified
1137: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1138:
1139: Put_Log_Msg(FND_MESSAGE.Get,1);
1140: l_not_valid := TRUE;
1141:
1142: ELSIF p_person_rec.batch_type = 'E'
1143: AND ( p_data_rec.curr_session_end_date IS NULL
1142: ELSIF p_person_rec.batch_type = 'E'
1143: AND ( p_data_rec.curr_session_end_date IS NULL
1144: OR p_data_rec.next_session_start_date IS NULL ) THEN
1145:
1146: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error
1147: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1148:
1149: Put_Log_Msg(FND_MESSAGE.Get,1);
1150: l_not_valid := TRUE;
1143: AND ( p_data_rec.curr_session_end_date IS NULL
1144: OR p_data_rec.next_session_start_date IS NULL ) THEN
1145:
1146: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error
1147: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1148:
1149: Put_Log_Msg(FND_MESSAGE.Get,1);
1150: l_not_valid := TRUE;
1151:
1145:
1146: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- error
1147: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1148:
1149: Put_Log_Msg(FND_MESSAGE.Get,1);
1150: l_not_valid := TRUE;
1151:
1152: END IF;
1153:
1154: IF p_person_rec.batch_type = 'I' THEN
1155: IF ( p_data_rec.last_session_flag = 'Y'
1156: AND p_data_rec.next_session_start_date IS NOT NULL ) THEN
1157:
1158: --FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_LAST_SESN'); -- error
1159: --FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1160: p_data_rec.next_session_start_date := NULL;
1161:
1162: END IF;
1155: IF ( p_data_rec.last_session_flag = 'Y'
1156: AND p_data_rec.next_session_start_date IS NOT NULL ) THEN
1157:
1158: --FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_LAST_SESN'); -- error
1159: --FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1160: p_data_rec.next_session_start_date := NULL;
1161:
1162: END IF;
1163: END IF;
1447: CLOSE c_hz_data;
1448:
1449: IF Validate_Name(p_data_rec.last_name) THEN
1450: l_not_valid := TRUE;
1451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_CHAR');
1452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1453: Put_Log_Msg(FND_MESSAGE.Get,1);
1454: END IF;
1455:
1448:
1449: IF Validate_Name(p_data_rec.last_name) THEN
1450: l_not_valid := TRUE;
1451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_CHAR');
1452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1453: Put_Log_Msg(FND_MESSAGE.Get,1);
1454: END IF;
1455:
1456: IF p_data_rec.birth_cntry_code = 'US' AND p_data_rec.birth_cntry_resn_code IS NULL
1449: IF Validate_Name(p_data_rec.last_name) THEN
1450: l_not_valid := TRUE;
1451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_CHAR');
1452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1453: Put_Log_Msg(FND_MESSAGE.Get,1);
1454: END IF;
1455:
1456: IF p_data_rec.birth_cntry_code = 'US' AND p_data_rec.birth_cntry_resn_code IS NULL
1457: THEN
1455:
1456: IF p_data_rec.birth_cntry_code = 'US' AND p_data_rec.birth_cntry_resn_code IS NULL
1457: THEN
1458: l_not_valid := TRUE;
1459: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CNTRY_RSN');
1460: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1461: Put_Log_Msg(FND_MESSAGE.Get,1);
1462: END IF;
1463:
1456: IF p_data_rec.birth_cntry_code = 'US' AND p_data_rec.birth_cntry_resn_code IS NULL
1457: THEN
1458: l_not_valid := TRUE;
1459: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CNTRY_RSN');
1460: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1461: Put_Log_Msg(FND_MESSAGE.Get,1);
1462: END IF;
1463:
1464: IF (p_data_rec.batch_id IS NULL) THEN
1457: THEN
1458: l_not_valid := TRUE;
1459: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CNTRY_RSN');
1460: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1461: Put_Log_Msg(FND_MESSAGE.Get,1);
1462: END IF;
1463:
1464: IF (p_data_rec.batch_id IS NULL) THEN
1465:
1481: IF (p_data_rec.last_name IS NULL OR
1482: p_data_rec.birth_date IS NULL OR
1483: p_data_rec.birth_cntry_code IS NULL) THEN
1484: l_not_valid := TRUE;
1485: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_REQ_FLD_ERR'); -- Required fields for both Exchange Visitor or Foreign students
1486: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1487: Put_Log_Msg(FND_MESSAGE.Get,1);
1488: END IF;
1489: --
1482: p_data_rec.birth_date IS NULL OR
1483: p_data_rec.birth_cntry_code IS NULL) THEN
1484: l_not_valid := TRUE;
1485: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_REQ_FLD_ERR'); -- Required fields for both Exchange Visitor or Foreign students
1486: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1487: Put_Log_Msg(FND_MESSAGE.Get,1);
1488: END IF;
1489: --
1490: -- Validate all the data for required fields for Foreign students
1483: p_data_rec.birth_cntry_code IS NULL) THEN
1484: l_not_valid := TRUE;
1485: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_REQ_FLD_ERR'); -- Required fields for both Exchange Visitor or Foreign students
1486: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1487: Put_Log_Msg(FND_MESSAGE.Get,1);
1488: END IF;
1489: --
1490: -- Validate all the data for required fields for Foreign students
1491: --
1494: OR ( NVL(p_data_rec.visa_type,'X') NOT IN ('04','05') AND p_person_rec.dep_flag ='Y' AND p_person_rec.batch_type = 'I')
1495: OR ( NVL(p_data_rec.visa_type,'X') <> '03' AND p_person_rec.dep_flag ='N' AND p_person_rec.batch_type = 'E')
1496: OR ( NVL(p_data_rec.visa_type,'X') <> '06' AND p_person_rec.dep_flag ='Y' AND p_person_rec.batch_type = 'E') THEN
1497: l_not_valid := TRUE;
1498: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_NIMG_REQ_FLD_ERR'); -- Required Fields for Foreign students
1499: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1500: Put_Log_Msg(FND_MESSAGE.Get,1);
1501: END IF;
1502:
1495: OR ( NVL(p_data_rec.visa_type,'X') <> '03' AND p_person_rec.dep_flag ='N' AND p_person_rec.batch_type = 'E')
1496: OR ( NVL(p_data_rec.visa_type,'X') <> '06' AND p_person_rec.dep_flag ='Y' AND p_person_rec.batch_type = 'E') THEN
1497: l_not_valid := TRUE;
1498: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_NIMG_REQ_FLD_ERR'); -- Required Fields for Foreign students
1499: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1500: Put_Log_Msg(FND_MESSAGE.Get,1);
1501: END IF;
1502:
1503: -- 2908378 validation of legal residency code, birth city should fire for all persons
1496: OR ( NVL(p_data_rec.visa_type,'X') <> '06' AND p_person_rec.dep_flag ='Y' AND p_person_rec.batch_type = 'E') THEN
1497: l_not_valid := TRUE;
1498: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_NIMG_REQ_FLD_ERR'); -- Required Fields for Foreign students
1499: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1500: Put_Log_Msg(FND_MESSAGE.Get,1);
1501: END IF;
1502:
1503: -- 2908378 validation of legal residency code, birth city should fire for all persons
1504: --
1508: IF (NVL(p_person_rec.dep_flag,'N') <> 'Y' AND p_person_rec.batch_type = 'E' AND(p_data_rec.legal_res_cntry_code IS NULL OR
1509: p_data_rec.birth_city IS NULL
1510: ) ) THEN
1511: l_not_valid := TRUE;
1512: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1513: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1514: Put_Log_Msg(FND_MESSAGE.Get,1);
1515: END IF;
1516:
1509: p_data_rec.birth_city IS NULL
1510: ) ) THEN
1511: l_not_valid := TRUE;
1512: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1513: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1514: Put_Log_Msg(FND_MESSAGE.Get,1);
1515: END IF;
1516:
1517: -- 2908378 validation of position_code, category_code should not fire for dependants, since they need not have EV form
1510: ) ) THEN
1511: l_not_valid := TRUE;
1512: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1513: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1514: Put_Log_Msg(FND_MESSAGE.Get,1);
1515: END IF;
1516:
1517: -- 2908378 validation of position_code, category_code should not fire for dependants, since they need not have EV form
1518: --
1522: p_data_rec.position_code IS NULL OR
1523: p_data_rec.category_code IS NULL
1524: ) ) THEN
1525: l_not_valid := TRUE;
1526: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1527: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1528: Put_Log_Msg(FND_MESSAGE.Get,1);
1529: END IF;
1530:
1523: p_data_rec.category_code IS NULL
1524: ) ) THEN
1525: l_not_valid := TRUE;
1526: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1527: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1528: Put_Log_Msg(FND_MESSAGE.Get,1);
1529: END IF;
1530:
1531:
1524: ) ) THEN
1525: l_not_valid := TRUE;
1526: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BIO_EV_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
1527: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1528: Put_Log_Msg(FND_MESSAGE.Get,1);
1529: END IF;
1530:
1531:
1532: IF (p_person_rec.batch_type = 'I' AND p_data_rec.citizen_cntry_code IS NULL) THEN
1530:
1531:
1532: IF (p_person_rec.batch_type = 'I' AND p_data_rec.citizen_cntry_code IS NULL) THEN
1533: l_not_valid := TRUE;
1534: FND_MESSAGE.SET_NAME('IGS', 'PERSON_NUMBER'); -- Required Fields for Exchange Visitor students
1535: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1536: Put_Log_Msg(FND_MESSAGE.Get,1);
1537: END IF;
1538:
1531:
1532: IF (p_person_rec.batch_type = 'I' AND p_data_rec.citizen_cntry_code IS NULL) THEN
1533: l_not_valid := TRUE;
1534: FND_MESSAGE.SET_NAME('IGS', 'PERSON_NUMBER'); -- Required Fields for Exchange Visitor students
1535: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1536: Put_Log_Msg(FND_MESSAGE.Get,1);
1537: END IF;
1538:
1539:
1532: IF (p_person_rec.batch_type = 'I' AND p_data_rec.citizen_cntry_code IS NULL) THEN
1533: l_not_valid := TRUE;
1534: FND_MESSAGE.SET_NAME('IGS', 'PERSON_NUMBER'); -- Required Fields for Exchange Visitor students
1535: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1536: Put_Log_Msg(FND_MESSAGE.Get,1);
1537: END IF;
1538:
1539:
1540: IF Check_US_Terr(p_person_rec.person_number,p_data_rec.citizen_cntry_code) ='E' THEN
1701:
1702: IF (c_alternate_id%FOUND) THEN
1703: p_data_rec.tax_id := SUBSTR(l_taxid, 1, 9);
1704: IF Is_Number(p_data_rec.tax_id) = '' THEN
1705: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TAXID');
1706: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number);
1707: Put_Log_Msg(FND_MESSAGE.Get,1);
1708: l_not_valid := true;
1709: END IF;
1702: IF (c_alternate_id%FOUND) THEN
1703: p_data_rec.tax_id := SUBSTR(l_taxid, 1, 9);
1704: IF Is_Number(p_data_rec.tax_id) = '' THEN
1705: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TAXID');
1706: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number);
1707: Put_Log_Msg(FND_MESSAGE.Get,1);
1708: l_not_valid := true;
1709: END IF;
1710: END IF;
1703: p_data_rec.tax_id := SUBSTR(l_taxid, 1, 9);
1704: IF Is_Number(p_data_rec.tax_id) = '' THEN
1705: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TAXID');
1706: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number);
1707: Put_Log_Msg(FND_MESSAGE.Get,1);
1708: l_not_valid := true;
1709: END IF;
1710: END IF;
1711: CLOSE c_alternate_id;
1724: IF (l_new_ssn IS NOT NULL) THEN
1725:
1726: IF (LENGTH(l_new_ssn) <> 9) THEN
1727:
1728: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1729: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'SSN');
1730: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1731: Put_Log_Msg(FND_MESSAGE.Get,1);
1732: p_data_rec.ssn := NULL; -- Only warning for bad SSN. Just NULL out value to be sent.
1725:
1726: IF (LENGTH(l_new_ssn) <> 9) THEN
1727:
1728: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1729: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'SSN');
1730: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1731: Put_Log_Msg(FND_MESSAGE.Get,1);
1732: p_data_rec.ssn := NULL; -- Only warning for bad SSN. Just NULL out value to be sent.
1733:
1726: IF (LENGTH(l_new_ssn) <> 9) THEN
1727:
1728: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1729: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'SSN');
1730: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1731: Put_Log_Msg(FND_MESSAGE.Get,1);
1732: p_data_rec.ssn := NULL; -- Only warning for bad SSN. Just NULL out value to be sent.
1733:
1734: ELSE
1727:
1728: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1729: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'SSN');
1730: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1731: Put_Log_Msg(FND_MESSAGE.Get,1);
1732: p_data_rec.ssn := NULL; -- Only warning for bad SSN. Just NULL out value to be sent.
1733:
1734: ELSE
1735:
1743: -- Check to see if there is a state associated to the license
1744: --
1745: IF (p_data_rec.drivers_license IS NOT NULL AND
1746: p_data_rec.drivers_license_state IS NULL) THEN
1747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1748: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Drivers License State');
1749: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1750: Put_Log_Msg(FND_MESSAGE.Get,1);
1751: END IF;
1744: --
1745: IF (p_data_rec.drivers_license IS NOT NULL AND
1746: p_data_rec.drivers_license_state IS NULL) THEN
1747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1748: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Drivers License State');
1749: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1750: Put_Log_Msg(FND_MESSAGE.Get,1);
1751: END IF;
1752:
1745: IF (p_data_rec.drivers_license IS NOT NULL AND
1746: p_data_rec.drivers_license_state IS NULL) THEN
1747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1748: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Drivers License State');
1749: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1750: Put_Log_Msg(FND_MESSAGE.Get,1);
1751: END IF;
1752:
1753: IF (p_data_rec.tax_id IS NOT NULL OR
1746: p_data_rec.drivers_license_state IS NULL) THEN
1747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_WARN_FLD_ERR'); -- Warning message for optional field
1748: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Drivers License State');
1749: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
1750: Put_Log_Msg(FND_MESSAGE.Get,1);
1751: END IF;
1752:
1753: IF (p_data_rec.tax_id IS NOT NULL OR
1754: p_data_rec.ssn IS NOT NULL OR
1943:
1944: IF (p_data_rec(l_counter).country_code IS NULL OR
1945: p_data_rec(l_counter).address_line1 IS NULL) THEN
1946:
1947: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_F_ADDR_RQD_FLD_ERR'); -- Foreign address block error
1948: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1949:
1950: Put_Log_Msg(FND_MESSAGE.Get,1);
1951: l_not_valid := TRUE;
1944: IF (p_data_rec(l_counter).country_code IS NULL OR
1945: p_data_rec(l_counter).address_line1 IS NULL) THEN
1946:
1947: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_F_ADDR_RQD_FLD_ERR'); -- Foreign address block error
1948: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1949:
1950: Put_Log_Msg(FND_MESSAGE.Get,1);
1951: l_not_valid := TRUE;
1952:
1946:
1947: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_F_ADDR_RQD_FLD_ERR'); -- Foreign address block error
1948: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
1949:
1950: Put_Log_Msg(FND_MESSAGE.Get,1);
1951: l_not_valid := TRUE;
1952:
1953: END IF;
1954:
2114: OR p_data_rec(l_counter).state IS NULL
2115: OR p_data_rec(l_counter).postal_code IS NULL
2116: OR p_data_rec(l_counter).address_line1 IS NULL THEN
2117:
2118: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_ADDR_RQD_FLD_ERR'); -- US address block error
2119: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2120:
2121: Put_Log_Msg(FND_MESSAGE.Get,1);
2122: l_not_valid := TRUE;
2115: OR p_data_rec(l_counter).postal_code IS NULL
2116: OR p_data_rec(l_counter).address_line1 IS NULL THEN
2117:
2118: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_ADDR_RQD_FLD_ERR'); -- US address block error
2119: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2120:
2121: Put_Log_Msg(FND_MESSAGE.Get,1);
2122: l_not_valid := TRUE;
2123:
2117:
2118: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_US_ADDR_RQD_FLD_ERR'); -- US address block error
2119: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2120:
2121: Put_Log_Msg(FND_MESSAGE.Get,1);
2122: l_not_valid := TRUE;
2123:
2124: END IF;
2125:
2405: p_data_rec.prgm_start_date IS NULL OR
2406: p_data_rec.prgm_end_date IS NULL OR
2407: p_data_rec.english_reqd IS NULL) THEN
2408: l_not_valid := TRUE;
2409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required fields for Foreign Students
2410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2411: Put_Log_Msg(FND_MESSAGE.Get,1);
2412: END IF;
2413:
2406: p_data_rec.prgm_end_date IS NULL OR
2407: p_data_rec.english_reqd IS NULL) THEN
2408: l_not_valid := TRUE;
2409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required fields for Foreign Students
2410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2411: Put_Log_Msg(FND_MESSAGE.Get,1);
2412: END IF;
2413:
2414: --
2407: p_data_rec.english_reqd IS NULL) THEN
2408: l_not_valid := TRUE;
2409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required fields for Foreign Students
2410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2411: Put_Log_Msg(FND_MESSAGE.Get,1);
2412: END IF;
2413:
2414: --
2415: -- Make sure that there is a value for the English requirement being met or not
2415: -- Make sure that there is a value for the English requirement being met or not
2416: --
2417: IF ( p_data_rec.english_reqd = 'Y' AND p_data_rec.english_reqd_met IS NULL) THEN
2418: l_not_valid := TRUE;
2419: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_MET_ERR'); -- Required field for Foreign students if english required
2420: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2421: Put_Log_Msg(FND_MESSAGE.Get,1);
2422: END IF;
2423:
2416: --
2417: IF ( p_data_rec.english_reqd = 'Y' AND p_data_rec.english_reqd_met IS NULL) THEN
2418: l_not_valid := TRUE;
2419: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_MET_ERR'); -- Required field for Foreign students if english required
2420: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2421: Put_Log_Msg(FND_MESSAGE.Get,1);
2422: END IF;
2423:
2424: IF ( p_data_rec.education_level = '11' AND p_data_rec.educ_lvl_remarks IS NULL) THEN
2417: IF ( p_data_rec.english_reqd = 'Y' AND p_data_rec.english_reqd_met IS NULL) THEN
2418: l_not_valid := TRUE;
2419: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_MET_ERR'); -- Required field for Foreign students if english required
2420: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2421: Put_Log_Msg(FND_MESSAGE.Get,1);
2422: END IF;
2423:
2424: IF ( p_data_rec.education_level = '11' AND p_data_rec.educ_lvl_remarks IS NULL) THEN
2425: l_not_valid := TRUE;
2422: END IF;
2423:
2424: IF ( p_data_rec.education_level = '11' AND p_data_rec.educ_lvl_remarks IS NULL) THEN
2425: l_not_valid := TRUE;
2426: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required field for Foreign students if english required
2427: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2428: Put_Log_Msg(FND_MESSAGE.Get,1);
2429: END IF;
2430:
2423:
2424: IF ( p_data_rec.education_level = '11' AND p_data_rec.educ_lvl_remarks IS NULL) THEN
2425: l_not_valid := TRUE;
2426: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required field for Foreign students if english required
2427: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2428: Put_Log_Msg(FND_MESSAGE.Get,1);
2429: END IF;
2430:
2431: --
2424: IF ( p_data_rec.education_level = '11' AND p_data_rec.educ_lvl_remarks IS NULL) THEN
2425: l_not_valid := TRUE;
2426: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_REQ_FLD_ERR'); -- Required field for Foreign students if english required
2427: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2428: Put_Log_Msg(FND_MESSAGE.Get,1);
2429: END IF;
2430:
2431: --
2432: -- Make sure that there is a reason for the requirement not being met.
2433: --
2434: IF (p_data_rec.english_reqd = 'N' AND
2435: p_data_rec.not_reqd_reason IS NULL) THEN
2436: l_not_valid := TRUE;
2437: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_NOT_MET_ERR'); -- Required field for Foreign students english not met
2438: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2439: Put_Log_Msg(FND_MESSAGE.Get,1);
2440: END IF;
2441:
2434: IF (p_data_rec.english_reqd = 'N' AND
2435: p_data_rec.not_reqd_reason IS NULL) THEN
2436: l_not_valid := TRUE;
2437: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_NOT_MET_ERR'); -- Required field for Foreign students english not met
2438: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2439: Put_Log_Msg(FND_MESSAGE.Get,1);
2440: END IF;
2441:
2442: ELSE
2435: p_data_rec.not_reqd_reason IS NULL) THEN
2436: l_not_valid := TRUE;
2437: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_NIMG_NOT_MET_ERR'); -- Required field for Foreign students english not met
2438: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2439: Put_Log_Msg(FND_MESSAGE.Get,1);
2440: END IF;
2441:
2442: ELSE
2443:
2447: IF (p_data_rec.position_code IS NULL
2448: OR p_data_rec.subject_field_code IS NULL
2449: OR p_data_rec.remarks IS NULL) THEN
2450: l_not_valid := TRUE;
2451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_EV_REQ_FLD_ERR'); -- Required field for Exchange Visitor not available.
2452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2453: Put_Log_Msg(FND_MESSAGE.Get,1);
2454: END IF;
2455:
2448: OR p_data_rec.subject_field_code IS NULL
2449: OR p_data_rec.remarks IS NULL) THEN
2450: l_not_valid := TRUE;
2451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_EV_REQ_FLD_ERR'); -- Required field for Exchange Visitor not available.
2452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2453: Put_Log_Msg(FND_MESSAGE.Get,1);
2454: END IF;
2455:
2456: END IF;
2449: OR p_data_rec.remarks IS NULL) THEN
2450: l_not_valid := TRUE;
2451: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EDU_EV_REQ_FLD_ERR'); -- Required field for Exchange Visitor not available.
2452: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
2453: Put_Log_Msg(FND_MESSAGE.Get,1);
2454: END IF;
2455:
2456: END IF;
2457:
2963: ELSIF p_data_rec(l_counter).prgm_action_type = 'D' AND
2964: ( p_data_rec(l_counter).prgm_start_date IS NULL
2965: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
2966:
2967: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CMP_PRG_RQD_FLD_ERR'); -- Completion block error
2968: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2969:
2970: Put_Log_Msg(FND_MESSAGE.Get,1);
2971: l_not_valid := TRUE;
2964: ( p_data_rec(l_counter).prgm_start_date IS NULL
2965: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
2966:
2967: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CMP_PRG_RQD_FLD_ERR'); -- Completion block error
2968: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2969:
2970: Put_Log_Msg(FND_MESSAGE.Get,1);
2971: l_not_valid := TRUE;
2972:
2966:
2967: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CMP_PRG_RQD_FLD_ERR'); -- Completion block error
2968: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2969:
2970: Put_Log_Msg(FND_MESSAGE.Get,1);
2971: l_not_valid := TRUE;
2972:
2973: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND p_data_rec(l_counter).termination_reason IS NULL THEN
2974:
2971: l_not_valid := TRUE;
2972:
2973: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND p_data_rec(l_counter).termination_reason IS NULL THEN
2974:
2975: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
2976: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2977:
2978: Put_Log_Msg(FND_MESSAGE.Get,1);
2979: l_not_valid := TRUE;
2972:
2973: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND p_data_rec(l_counter).termination_reason IS NULL THEN
2974:
2975: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
2976: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2977:
2978: Put_Log_Msg(FND_MESSAGE.Get,1);
2979: l_not_valid := TRUE;
2980: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND l_visa_type= 'M-1' THEN
2974:
2975: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
2976: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2977:
2978: Put_Log_Msg(FND_MESSAGE.Get,1);
2979: l_not_valid := TRUE;
2980: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND l_visa_type= 'M-1' THEN
2981: OPEN c_termination_reason('M', p_data_rec(l_counter).termination_reason);
2982: FETCH c_termination_reason INTO l_termination_count;
2981: OPEN c_termination_reason('M', p_data_rec(l_counter).termination_reason);
2982: FETCH c_termination_reason INTO l_termination_count;
2983: CLOSE c_termination_reason;
2984: IF l_termination_count > 0 THEN
2985: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2986: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2987: Put_Log_Msg(FND_MESSAGE.Get,1);
2988: l_not_valid := TRUE;
2989: END IF;
2982: FETCH c_termination_reason INTO l_termination_count;
2983: CLOSE c_termination_reason;
2984: IF l_termination_count > 0 THEN
2985: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2986: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2987: Put_Log_Msg(FND_MESSAGE.Get,1);
2988: l_not_valid := TRUE;
2989: END IF;
2990: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND l_visa_type= 'F-1' THEN
2983: CLOSE c_termination_reason;
2984: IF l_termination_count > 0 THEN
2985: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2986: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2987: Put_Log_Msg(FND_MESSAGE.Get,1);
2988: l_not_valid := TRUE;
2989: END IF;
2990: ELSIF p_data_rec(l_counter).prgm_action_type = 'T' AND l_visa_type= 'F-1' THEN
2991: OPEN c_termination_reason('F', p_data_rec(l_counter).termination_reason);
2991: OPEN c_termination_reason('F', p_data_rec(l_counter).termination_reason);
2992: FETCH c_termination_reason INTO l_termination_count;
2993: CLOSE c_termination_reason;
2994: IF l_termination_count > 0 THEN
2995: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2996: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2997: Put_Log_Msg(FND_MESSAGE.Get,1);
2998: l_not_valid := TRUE;
2999: END IF;
2992: FETCH c_termination_reason INTO l_termination_count;
2993: CLOSE c_termination_reason;
2994: IF l_termination_count > 0 THEN
2995: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2996: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2997: Put_Log_Msg(FND_MESSAGE.Get,1);
2998: l_not_valid := TRUE;
2999: END IF;
3000:
2993: CLOSE c_termination_reason;
2994: IF l_termination_count > 0 THEN
2995: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_TERM_REASON');
2996: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
2997: Put_Log_Msg(FND_MESSAGE.Get,1);
2998: l_not_valid := TRUE;
2999: END IF;
3000:
3001: ELSIF p_data_rec(l_counter).prgm_action_type = 'E' AND
3001: ELSIF p_data_rec(l_counter).prgm_action_type = 'E' AND
3002: ( p_data_rec(l_counter).remarks IS NULL
3003: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3004:
3005: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EXT_PRG_RQD_FLD_ERR'); -- Extention block error
3006: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3007:
3008: Put_Log_Msg(FND_MESSAGE.Get,1);
3009: l_not_valid := TRUE;
3002: ( p_data_rec(l_counter).remarks IS NULL
3003: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3004:
3005: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EXT_PRG_RQD_FLD_ERR'); -- Extention block error
3006: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3007:
3008: Put_Log_Msg(FND_MESSAGE.Get,1);
3009: l_not_valid := TRUE;
3010:
3004:
3005: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EXT_PRG_RQD_FLD_ERR'); -- Extention block error
3006: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3007:
3008: Put_Log_Msg(FND_MESSAGE.Get,1);
3009: l_not_valid := TRUE;
3010:
3011: END IF;
3012:
3015: OPEN c_prev_end_date;
3016: FETCH c_prev_end_date INTO lv_prgm_end_dt;
3017: CLOSE c_prev_end_date;
3018: IF to_date(p_data_rec(l_counter).prgm_end_date,'YYYY-MM-DD') > ADD_MONTHS(lv_prgm_end_dt,12) THEN
3019: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_EXT_PRG_DRN'); -- Extention block error
3020: Put_Log_Msg(FND_MESSAGE.Get,1);
3021: l_not_valid := TRUE;
3022: END IF;
3023:
3016: FETCH c_prev_end_date INTO lv_prgm_end_dt;
3017: CLOSE c_prev_end_date;
3018: IF to_date(p_data_rec(l_counter).prgm_end_date,'YYYY-MM-DD') > ADD_MONTHS(lv_prgm_end_dt,12) THEN
3019: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_EXT_PRG_DRN'); -- Extention block error
3020: Put_Log_Msg(FND_MESSAGE.Get,1);
3021: l_not_valid := TRUE;
3022: END IF;
3023:
3024: END IF;
3087: l_prgm_end_dt;
3088: CLOSE c_ev_category_data;
3089:
3090: IF l_category_code = '2A' AND l_prgm_end_dt > ADD_MONTHS(l_prgm_start_dt,24) THEN
3091: FND_MESSAGE.SET_NAME('IGS','IGS_SV_INV_PROG_DURN');
3092: FND_MESSAGE.SET_TOKEN('PROGDURATION','not exceed 24 months');
3093: Put_Log_Msg(FND_MESSAGE.Get,1);
3094: l_not_valid := TRUE;
3095: END IF;
3088: CLOSE c_ev_category_data;
3089:
3090: IF l_category_code = '2A' AND l_prgm_end_dt > ADD_MONTHS(l_prgm_start_dt,24) THEN
3091: FND_MESSAGE.SET_NAME('IGS','IGS_SV_INV_PROG_DURN');
3092: FND_MESSAGE.SET_TOKEN('PROGDURATION','not exceed 24 months');
3093: Put_Log_Msg(FND_MESSAGE.Get,1);
3094: l_not_valid := TRUE;
3095: END IF;
3096:
3089:
3090: IF l_category_code = '2A' AND l_prgm_end_dt > ADD_MONTHS(l_prgm_start_dt,24) THEN
3091: FND_MESSAGE.SET_NAME('IGS','IGS_SV_INV_PROG_DURN');
3092: FND_MESSAGE.SET_TOKEN('PROGDURATION','not exceed 24 months');
3093: Put_Log_Msg(FND_MESSAGE.Get,1);
3094: l_not_valid := TRUE;
3095: END IF;
3096:
3097: IF p_data_rec(l_counter).prgm_action_type = 'EM' AND p_data_rec(l_counter).prgm_end_date < trunc(SYSDATE) THEN
3094: l_not_valid := TRUE;
3095: END IF;
3096:
3097: IF p_data_rec(l_counter).prgm_action_type = 'EM' AND p_data_rec(l_counter).prgm_end_date < trunc(SYSDATE) THEN
3098: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRGM_END_DT');
3099: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3100: Put_Log_Msg(FND_MESSAGE.Get,1);
3101: l_not_valid := TRUE;
3102: END IF;
3095: END IF;
3096:
3097: IF p_data_rec(l_counter).prgm_action_type = 'EM' AND p_data_rec(l_counter).prgm_end_date < trunc(SYSDATE) THEN
3098: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRGM_END_DT');
3099: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3100: Put_Log_Msg(FND_MESSAGE.Get,1);
3101: l_not_valid := TRUE;
3102: END IF;
3103:
3096:
3097: IF p_data_rec(l_counter).prgm_action_type = 'EM' AND p_data_rec(l_counter).prgm_end_date < trunc(SYSDATE) THEN
3098: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_PRGM_END_DT');
3099: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3100: Put_Log_Msg(FND_MESSAGE.Get,1);
3101: l_not_valid := TRUE;
3102: END IF;
3103:
3104: IF p_data_rec(l_counter).prgm_action_type = 'AP' AND -- AP Amend Program
3104: IF p_data_rec(l_counter).prgm_action_type = 'AP' AND -- AP Amend Program
3105: ( p_data_rec(l_counter).prgm_start_date IS NULL
3106: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3107:
3108: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3109: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3110:
3111: Put_Log_Msg(FND_MESSAGE.Get,1);
3112: l_not_valid := TRUE;
3105: ( p_data_rec(l_counter).prgm_start_date IS NULL
3106: OR p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3107:
3108: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3109: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3110:
3111: Put_Log_Msg(FND_MESSAGE.Get,1);
3112: l_not_valid := TRUE;
3113:
3107:
3108: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3109: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3110:
3111: Put_Log_Msg(FND_MESSAGE.Get,1);
3112: l_not_valid := TRUE;
3113:
3114: ELSIF p_data_rec(l_counter).prgm_action_type IN ('EE','EF') AND -- EE Exchange Visitor Extension, EF Extend Failure
3115: ( p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3113:
3114: ELSIF p_data_rec(l_counter).prgm_action_type IN ('EE','EF') AND -- EE Exchange Visitor Extension, EF Extend Failure
3115: ( p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3116:
3117: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3118: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3119:
3120: Put_Log_Msg(FND_MESSAGE.Get,1);
3121: l_not_valid := TRUE;
3114: ELSIF p_data_rec(l_counter).prgm_action_type IN ('EE','EF') AND -- EE Exchange Visitor Extension, EF Extend Failure
3115: ( p_data_rec(l_counter).prgm_end_date IS NULL) THEN
3116:
3117: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3118: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3119:
3120: Put_Log_Msg(FND_MESSAGE.Get,1);
3121: l_not_valid := TRUE;
3122:
3116:
3117: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR');
3118: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3119:
3120: Put_Log_Msg(FND_MESSAGE.Get,1);
3121: l_not_valid := TRUE;
3122:
3123: ELSIF p_data_rec(l_counter).prgm_action_type IN ('SP') AND
3124: p_data_rec(l_counter).remarks IS NULL THEN
3124: p_data_rec(l_counter).remarks IS NULL THEN
3125: -- AF Approve Failure
3126: -- OI Other Infraction
3127:
3128: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- Amend program block error
3129: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3130:
3131: Put_Log_Msg(FND_MESSAGE.Get,1);
3132: l_not_valid := TRUE;
3125: -- AF Approve Failure
3126: -- OI Other Infraction
3127:
3128: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- Amend program block error
3129: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3130:
3131: Put_Log_Msg(FND_MESSAGE.Get,1);
3132: l_not_valid := TRUE;
3133:
3127:
3128: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EV_PRG_RQD_FLD_ERR'); -- Amend program block error
3129: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3130:
3131: Put_Log_Msg(FND_MESSAGE.Get,1);
3132: l_not_valid := TRUE;
3133:
3134:
3135: ELSIF p_data_rec(l_counter).prgm_action_type = 'TR' AND -- TR Terminate Exchange Visitor
3135: ELSIF p_data_rec(l_counter).prgm_action_type = 'TR' AND -- TR Terminate Exchange Visitor
3136: ( p_data_rec(l_counter).termination_reason IS NULL
3137: OR p_data_rec(l_counter).effective_date IS NULL ) THEN
3138:
3139: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3140: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3141:
3142: Put_Log_Msg(FND_MESSAGE.Get,1);
3143: l_not_valid := TRUE;
3136: ( p_data_rec(l_counter).termination_reason IS NULL
3137: OR p_data_rec(l_counter).effective_date IS NULL ) THEN
3138:
3139: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3140: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3141:
3142: Put_Log_Msg(FND_MESSAGE.Get,1);
3143: l_not_valid := TRUE;
3144:
3138:
3139: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3140: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3141:
3142: Put_Log_Msg(FND_MESSAGE.Get,1);
3143: l_not_valid := TRUE;
3144:
3145: ELSIF p_data_rec(l_counter).prgm_action_type = 'ED' AND -- ED End Program
3146: ( p_data_rec(l_counter).end_prgm_reason IS NULL
3145: ELSIF p_data_rec(l_counter).prgm_action_type = 'ED' AND -- ED End Program
3146: ( p_data_rec(l_counter).end_prgm_reason IS NULL
3147: OR p_data_rec(l_counter).effective_date IS NULL ) THEN
3148:
3149: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3150: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3151:
3152: Put_Log_Msg(FND_MESSAGE.Get,1);
3153: l_not_valid := TRUE;
3146: ( p_data_rec(l_counter).end_prgm_reason IS NULL
3147: OR p_data_rec(l_counter).effective_date IS NULL ) THEN
3148:
3149: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3150: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3151:
3152: Put_Log_Msg(FND_MESSAGE.Get,1);
3153: l_not_valid := TRUE;
3154:
3148:
3149: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_PRG_RQD_FLD_ERR'); -- Termination block error
3150: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3151:
3152: Put_Log_Msg(FND_MESSAGE.Get,1);
3153: l_not_valid := TRUE;
3154:
3155:
3156: END IF;
3156: END IF;
3157:
3158: IF p_data_rec(l_counter).prgm_action_type = 'TR' AND p_data_rec(l_counter).termination_reason = 'OTHER'
3159: AND p_data_rec(l_counter).remarks IS NULL THEN
3160: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_REM_RQD');
3161: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3162: Put_Log_Msg(FND_MESSAGE.Get,1);
3163: l_not_valid := TRUE;
3164: END IF;
3157:
3158: IF p_data_rec(l_counter).prgm_action_type = 'TR' AND p_data_rec(l_counter).termination_reason = 'OTHER'
3159: AND p_data_rec(l_counter).remarks IS NULL THEN
3160: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_REM_RQD');
3161: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3162: Put_Log_Msg(FND_MESSAGE.Get,1);
3163: l_not_valid := TRUE;
3164: END IF;
3165:
3158: IF p_data_rec(l_counter).prgm_action_type = 'TR' AND p_data_rec(l_counter).termination_reason = 'OTHER'
3159: AND p_data_rec(l_counter).remarks IS NULL THEN
3160: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_TRM_REM_RQD');
3161: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3162: Put_Log_Msg(FND_MESSAGE.Get,1);
3163: l_not_valid := TRUE;
3164: END IF;
3165:
3166: IF l_not_valid THEN
3473:
3474: -- Validate all the data required for either type of request.
3475: IF (p_data_rec.print_form IS NULL AND p_person_rec.batch_type = 'E') THEN
3476: l_not_valid := TRUE;
3477: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
3478: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3479: Put_Log_Msg(FND_MESSAGE.Get,1);
3480: END IF;
3481:
3474: -- Validate all the data required for either type of request.
3475: IF (p_data_rec.print_form IS NULL AND p_person_rec.batch_type = 'E') THEN
3476: l_not_valid := TRUE;
3477: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
3478: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3479: Put_Log_Msg(FND_MESSAGE.Get,1);
3480: END IF;
3481:
3482: --
3475: IF (p_data_rec.print_form IS NULL AND p_person_rec.batch_type = 'E') THEN
3476: l_not_valid := TRUE;
3477: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_FLD_ERR'); -- Required Fields for Exchange Visitor students
3478: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3479: Put_Log_Msg(FND_MESSAGE.Get,1);
3480: END IF;
3481:
3482: --
3483: -- Validate data specific for Foreign Students
3488: p_data_rec.tuition IS NULL OR
3489: p_data_rec.living_exp IS NULL OR
3490: p_data_rec.personal_funds IS NULL) THEN
3491: l_not_valid := TRUE;
3492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_ERR'); -- Required Fields for Exchange Visitor students
3493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3494: Put_Log_Msg(FND_MESSAGE.Get,1);
3495: END IF;
3496:
3489: p_data_rec.living_exp IS NULL OR
3490: p_data_rec.personal_funds IS NULL) THEN
3491: l_not_valid := TRUE;
3492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_ERR'); -- Required Fields for Exchange Visitor students
3493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3494: Put_Log_Msg(FND_MESSAGE.Get,1);
3495: END IF;
3496:
3497: IF ((p_data_rec.other_exp IS NOT NULL AND
3490: p_data_rec.personal_funds IS NULL) THEN
3491: l_not_valid := TRUE;
3492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_ERR'); -- Required Fields for Exchange Visitor students
3493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3494: Put_Log_Msg(FND_MESSAGE.Get,1);
3495: END IF;
3496:
3497: IF ((p_data_rec.other_exp IS NOT NULL AND
3498: p_data_rec.other_exp_desc IS NULL) OR
3500: p_data_rec.school_funds_desc IS NULL) OR
3501: (p_data_rec.other_funds IS NOT NULL AND
3502: p_data_rec.other_funds_desc IS NULL)) THEN
3503: l_not_valid := TRUE;
3504: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_DESC_ERR'); -- Required Fields for Exchange Visitor students
3505: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3506: Put_Log_Msg(FND_MESSAGE.Get,1);
3507: END IF;
3508:
3501: (p_data_rec.other_funds IS NOT NULL AND
3502: p_data_rec.other_funds_desc IS NULL)) THEN
3503: l_not_valid := TRUE;
3504: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_DESC_ERR'); -- Required Fields for Exchange Visitor students
3505: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3506: Put_Log_Msg(FND_MESSAGE.Get,1);
3507: END IF;
3508:
3509: ELSE
3502: p_data_rec.other_funds_desc IS NULL)) THEN
3503: l_not_valid := TRUE;
3504: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_NIMG_DESC_ERR'); -- Required Fields for Exchange Visitor students
3505: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3506: Put_Log_Msg(FND_MESSAGE.Get,1);
3507: END IF;
3508:
3509: ELSE
3510:
3519: p_data_rec.intl_org1_code IS NULL) OR
3520: (p_data_rec.intl_org2 IS NOT NULL AND
3521: p_data_rec.intl_org2_code IS NULL)) THEN
3522: l_not_valid := TRUE;
3523: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_EV_ERR'); -- Required Fields for Exchange Visitor students
3524: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3525: Put_Log_Msg(FND_MESSAGE.Get,1);
3526: END IF;
3527:
3520: (p_data_rec.intl_org2 IS NOT NULL AND
3521: p_data_rec.intl_org2_code IS NULL)) THEN
3522: l_not_valid := TRUE;
3523: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_EV_ERR'); -- Required Fields for Exchange Visitor students
3524: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3525: Put_Log_Msg(FND_MESSAGE.Get,1);
3526: END IF;
3527:
3528:
3521: p_data_rec.intl_org2_code IS NULL)) THEN
3522: l_not_valid := TRUE;
3523: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_FIN_REQ_EV_ERR'); -- Required Fields for Exchange Visitor students
3524: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3525: Put_Log_Msg(FND_MESSAGE.Get,1);
3526: END IF;
3527:
3528:
3529: IF ((p_data_rec.govt_org1_code = 'OTHER' AND
3536: p_data_rec.intl_org2_othr_name IS NULL) OR
3537: p_data_rec.other_govt_name IS NULL AND
3538: p_data_rec.other_org IS NOT NULL) THEN
3539: l_not_valid := TRUE;
3540: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_OTHR_ORG');
3541: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3542: Put_Log_Msg(FND_MESSAGE.Get,1);
3543: END IF;
3544:
3537: p_data_rec.other_govt_name IS NULL AND
3538: p_data_rec.other_org IS NOT NULL) THEN
3539: l_not_valid := TRUE;
3540: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_OTHR_ORG');
3541: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3542: Put_Log_Msg(FND_MESSAGE.Get,1);
3543: END IF;
3544:
3545: END IF;
3538: p_data_rec.other_org IS NOT NULL) THEN
3539: l_not_valid := TRUE;
3540: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_OTHR_ORG');
3541: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
3542: Put_Log_Msg(FND_MESSAGE.Get,1);
3543: END IF;
3544:
3545: END IF;
3546:
3755: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3756: END IF;
3757:
3758: -- probably a bug
3759: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
3760: FND_MESSAGE.SET_TOKEN('BLOCK_ID',1);
3761: FND_MSG_PUB.Add;
3762: RAISE FND_API.G_EXC_ERROR;
3763:
3756: END IF;
3757:
3758: -- probably a bug
3759: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
3760: FND_MESSAGE.SET_TOKEN('BLOCK_ID',1);
3761: FND_MSG_PUB.Add;
3762: RAISE FND_API.G_EXC_ERROR;
3763:
3764: END IF;
3940: RETURN 'N';
3941:
3942: ELSIF l_not_valid THEN
3943:
3944: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CONV_RQD_FLD_ERR'); -- Convictions block error
3945: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3946:
3947: Put_Log_Msg(FND_MESSAGE.Get,1);
3948:
3941:
3942: ELSIF l_not_valid THEN
3943:
3944: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CONV_RQD_FLD_ERR'); -- Convictions block error
3945: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3946:
3947: Put_Log_Msg(FND_MESSAGE.Get,1);
3948:
3949: Put_Log_Msg(l_api_name||' Validation error, return E ',0);
3943:
3944: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_CONV_RQD_FLD_ERR'); -- Convictions block error
3945: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
3946:
3947: Put_Log_Msg(FND_MESSAGE.Get,1);
3948:
3949: Put_Log_Msg(l_api_name||' Validation error, return E ',0);
3950: /* Debug */
3951: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4476: AND p_data_rec.rescind_empl IS NULL
4477: )
4478: OR p_data_rec.remarks IS NULL) THEN
4479:
4480: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_F_RQD_FLD_ERR'); -- Employment block error
4481: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4482:
4483: Put_Log_Msg(FND_MESSAGE.Get,1);
4484: l_not_valid := TRUE;
4477: )
4478: OR p_data_rec.remarks IS NULL) THEN
4479:
4480: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_F_RQD_FLD_ERR'); -- Employment block error
4481: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4482:
4483: Put_Log_Msg(FND_MESSAGE.Get,1);
4484: l_not_valid := TRUE;
4485:
4479:
4480: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_F_RQD_FLD_ERR'); -- Employment block error
4481: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4482:
4483: Put_Log_Msg(FND_MESSAGE.Get,1);
4484: l_not_valid := TRUE;
4485:
4486: ELSIF p_data_rec.empl_rec_type = 'O'
4487: AND ( p_data_rec.empl_time IS NULL
4488: OR p_data_rec.empl_start_date IS NULL
4489: OR p_data_rec.empl_end_date IS NULL
4490: OR p_data_rec.course_relevance IS NULL) THEN
4491:
4492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_O_RQD_FLD_ERR'); -- Employment block error
4493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4494:
4495: Put_Log_Msg(FND_MESSAGE.Get,1);
4496: l_not_valid := TRUE;
4489: OR p_data_rec.empl_end_date IS NULL
4490: OR p_data_rec.course_relevance IS NULL) THEN
4491:
4492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_O_RQD_FLD_ERR'); -- Employment block error
4493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4494:
4495: Put_Log_Msg(FND_MESSAGE.Get,1);
4496: l_not_valid := TRUE;
4497:
4491:
4492: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_O_RQD_FLD_ERR'); -- Employment block error
4493: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4494:
4495: Put_Log_Msg(FND_MESSAGE.Get,1);
4496: l_not_valid := TRUE;
4497:
4498: ELSIF p_data_rec.empl_rec_type = 'C'
4499: AND ( p_data_rec.empl_time IS NULL
4506: OR p_data_rec.state IS NULL
4507: OR p_data_rec.postal_code IS NULL
4508: ) THEN
4509:
4510: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_C_RQD_FLD_ERR'); -- Employment block error
4511: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4512:
4513: Put_Log_Msg(FND_MESSAGE.Get,1);
4514: l_not_valid := TRUE;
4507: OR p_data_rec.postal_code IS NULL
4508: ) THEN
4509:
4510: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_C_RQD_FLD_ERR'); -- Employment block error
4511: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4512:
4513: Put_Log_Msg(FND_MESSAGE.Get,1);
4514: l_not_valid := TRUE;
4515: ELSIF p_data_rec.empl_rec_type = 'O' THEN
4509:
4510: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_EMPL_C_RQD_FLD_ERR'); -- Employment block error
4511: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number );
4512:
4513: Put_Log_Msg(FND_MESSAGE.Get,1);
4514: l_not_valid := TRUE;
4515: ELSIF p_data_rec.empl_rec_type = 'O' THEN
4516: IF Check_emp_duration(p_data_rec.empl_start_date, p_data_rec.empl_end_date, l_visa_type) THEN
4517: FND_MESSAGE.SET_NAME('IGS','IGS_SV_EMP_INV_PRD');
4513: Put_Log_Msg(FND_MESSAGE.Get,1);
4514: l_not_valid := TRUE;
4515: ELSIF p_data_rec.empl_rec_type = 'O' THEN
4516: IF Check_emp_duration(p_data_rec.empl_start_date, p_data_rec.empl_end_date, l_visa_type) THEN
4517: FND_MESSAGE.SET_NAME('IGS','IGS_SV_EMP_INV_PRD');
4518: FND_MESSAGE.SET_TOKEN('MONTHS',l_months);
4519: FND_MESSAGE.SET_TOKEN('VISA_TYPE',l_visa_type);
4520: Put_Log_Msg(FND_MESSAGE.Get,1);
4521: l_not_valid := TRUE;
4514: l_not_valid := TRUE;
4515: ELSIF p_data_rec.empl_rec_type = 'O' THEN
4516: IF Check_emp_duration(p_data_rec.empl_start_date, p_data_rec.empl_end_date, l_visa_type) THEN
4517: FND_MESSAGE.SET_NAME('IGS','IGS_SV_EMP_INV_PRD');
4518: FND_MESSAGE.SET_TOKEN('MONTHS',l_months);
4519: FND_MESSAGE.SET_TOKEN('VISA_TYPE',l_visa_type);
4520: Put_Log_Msg(FND_MESSAGE.Get,1);
4521: l_not_valid := TRUE;
4522: END IF;
4515: ELSIF p_data_rec.empl_rec_type = 'O' THEN
4516: IF Check_emp_duration(p_data_rec.empl_start_date, p_data_rec.empl_end_date, l_visa_type) THEN
4517: FND_MESSAGE.SET_NAME('IGS','IGS_SV_EMP_INV_PRD');
4518: FND_MESSAGE.SET_TOKEN('MONTHS',l_months);
4519: FND_MESSAGE.SET_TOKEN('VISA_TYPE',l_visa_type);
4520: Put_Log_Msg(FND_MESSAGE.Get,1);
4521: l_not_valid := TRUE;
4522: END IF;
4523: END IF;
4516: IF Check_emp_duration(p_data_rec.empl_start_date, p_data_rec.empl_end_date, l_visa_type) THEN
4517: FND_MESSAGE.SET_NAME('IGS','IGS_SV_EMP_INV_PRD');
4518: FND_MESSAGE.SET_TOKEN('MONTHS',l_months);
4519: FND_MESSAGE.SET_TOKEN('VISA_TYPE',l_visa_type);
4520: Put_Log_Msg(FND_MESSAGE.Get,1);
4521: l_not_valid := TRUE;
4522: END IF;
4523: END IF;
4524:
7344:
7345: --Error dates must be not null
7346: Put_Log_Msg('Dates are null return S',0);
7347:
7348: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --Dates not found
7349: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7350: Put_Log_Msg(FND_MESSAGE.Get,1);
7351:
7352: p_person_rec.person_status := 'I';
7345: --Error dates must be not null
7346: Put_Log_Msg('Dates are null return S',0);
7347:
7348: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --Dates not found
7349: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7350: Put_Log_Msg(FND_MESSAGE.Get,1);
7351:
7352: p_person_rec.person_status := 'I';
7353: /* Debug
7346: Put_Log_Msg('Dates are null return S',0);
7347:
7348: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --Dates not found
7349: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7350: Put_Log_Msg(FND_MESSAGE.Get,1);
7351:
7352: p_person_rec.person_status := 'I';
7353: /* Debug
7354: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7405: ELSIF p_person_rec.f_addr_status = 'N' THEN -- Not found
7406:
7407: Put_Log_Msg('F Address block is not found return S',0);
7408:
7409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --f address is not found
7410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7411: Put_Log_Msg(FND_MESSAGE.Get,1);
7412:
7413: p_person_rec.person_status := 'I';
7406:
7407: Put_Log_Msg('F Address block is not found return S',0);
7408:
7409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --f address is not found
7410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7411: Put_Log_Msg(FND_MESSAGE.Get,1);
7412:
7413: p_person_rec.person_status := 'I';
7414: /* Debug */
7407: Put_Log_Msg('F Address block is not found return S',0);
7408:
7409: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_REG_REQD_FLD_ERR'); --f address is not found
7410: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', p_person_rec.person_number);
7411: Put_Log_Msg(FND_MESSAGE.Get,1);
7412:
7413: p_person_rec.person_status := 'I';
7414: /* Debug */
7415: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7742: ELSIF p_person_rec.us_addr_status = 'N' THEN -- Not found
7743:
7744: Put_Log_Msg('US Address block is not found return S',0);
7745:
7746: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_US_ADDR_FLD_ERR'); --US address is not found
7747: Put_Log_Msg(FND_MESSAGE.Get,1);
7748:
7749: p_person_rec.person_status := 'I';
7750: /* Debug */
7743:
7744: Put_Log_Msg('US Address block is not found return S',0);
7745:
7746: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_US_ADDR_FLD_ERR'); --US address is not found
7747: Put_Log_Msg(FND_MESSAGE.Get,1);
7748:
7749: p_person_rec.person_status := 'I';
7750: /* Debug */
7751: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8138: END IF;
8139:
8140:
8141:
8142: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
8143: FND_MESSAGE.SET_TOKEN('BLOCK_ID',2);
8144: FND_MSG_PUB.Add;
8145:
8146: RAISE FND_API.G_EXC_ERROR;
8139:
8140:
8141:
8142: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
8143: FND_MESSAGE.SET_TOKEN('BLOCK_ID',2);
8144: FND_MSG_PUB.Add;
8145:
8146: RAISE FND_API.G_EXC_ERROR;
8147:
8732: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
8733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8734: END IF;
8735:
8736: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
8737: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
8738: FND_MSG_PUB.Add;
8739:
8740: RAISE FND_API.G_EXC_ERROR;
8733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8734: END IF;
8735:
8736: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
8737: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
8738: FND_MSG_PUB.Add;
8739:
8740: RAISE FND_API.G_EXC_ERROR;
8741:
9007: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
9008: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9009: END IF;
9010:
9011: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
9012: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
9013: FND_MSG_PUB.Add;
9014:
9015: RAISE FND_API.G_EXC_ERROR;
9008: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9009: END IF;
9010:
9011: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
9012: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
9013: FND_MSG_PUB.Add;
9014:
9015: RAISE FND_API.G_EXC_ERROR;
9016:
9284: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9285: END IF;
9286:
9287:
9288: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
9289: FND_MESSAGE.SET_TOKEN('BLOCK_ID',4);
9290: FND_MSG_PUB.Add;
9291:
9292: RAISE FND_API.G_EXC_ERROR;
9285: END IF;
9286:
9287:
9288: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
9289: FND_MESSAGE.SET_TOKEN('BLOCK_ID',4);
9290: FND_MSG_PUB.Add;
9291:
9292: RAISE FND_API.G_EXC_ERROR;
9293:
9592: -- check if dependent sevis id is present
9593:
9594: IF l_status = 'S' AND l_cur_rec(l_current).depdnt_sevis_id IS NULL THEN
9595:
9596: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
9597: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_cur_rec(l_current).person_number);
9598: Put_Log_Msg(FND_MESSAGE.Get,1);
9599:
9600: p_person_rec.person_status := 'I';
9593:
9594: IF l_status = 'S' AND l_cur_rec(l_current).depdnt_sevis_id IS NULL THEN
9595:
9596: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
9597: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_cur_rec(l_current).person_number);
9598: Put_Log_Msg(FND_MESSAGE.Get,1);
9599:
9600: p_person_rec.person_status := 'I';
9601:
9594: IF l_status = 'S' AND l_cur_rec(l_current).depdnt_sevis_id IS NULL THEN
9595:
9596: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
9597: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_cur_rec(l_current).person_number);
9598: Put_Log_Msg(FND_MESSAGE.Get,1);
9599:
9600: p_person_rec.person_status := 'I';
9601:
9602: Put_Log_Msg('Validation error occurs ',0);
9624: OPEN c_spouse_of_rel;
9625: FETCH c_spouse_of_rel INTO l_rel_type_count;
9626: CLOSE c_spouse_of_rel;
9627: IF l_rel_type_count > 0 THEN
9628: FND_MESSAGE.SET_NAME('IGS','IGS_SV_SPOUSE_REL');
9629: FND_MESSAGE.SET_TOKEN('PERSON_NUM',p_person_rec.person_number);
9630: Put_Log_Msg(FND_MESSAGE.Get,1);
9631: END IF;
9632:
9625: FETCH c_spouse_of_rel INTO l_rel_type_count;
9626: CLOSE c_spouse_of_rel;
9627: IF l_rel_type_count > 0 THEN
9628: FND_MESSAGE.SET_NAME('IGS','IGS_SV_SPOUSE_REL');
9629: FND_MESSAGE.SET_TOKEN('PERSON_NUM',p_person_rec.person_number);
9630: Put_Log_Msg(FND_MESSAGE.Get,1);
9631: END IF;
9632:
9633: END IF;
9626: CLOSE c_spouse_of_rel;
9627: IF l_rel_type_count > 0 THEN
9628: FND_MESSAGE.SET_NAME('IGS','IGS_SV_SPOUSE_REL');
9629: FND_MESSAGE.SET_TOKEN('PERSON_NUM',p_person_rec.person_number);
9630: Put_Log_Msg(FND_MESSAGE.Get,1);
9631: END IF;
9632:
9633: END IF;
9634: -------prbhardw
10535: l_debug_str := 'Raise ERROR: Sevis Disabled';
10536: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10537: END IF;
10538:
10539: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_DISABLED'); -- SEVIS disabled
10540: FND_MSG_PUB.Add;
10541: RAISE FND_API.G_EXC_ERROR;
10542:
10543: END IF;
10573: l_debug_str := 'Raise FND_API.G_EXC_ERROR: l_person_sevis_id is null';
10574: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10575: END IF;
10576:
10577: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_SUBMITTER_ID_ERR'); -- SEVIS submitter id not found
10578: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_submiter_number);
10579: FND_MSG_PUB.Add;
10580: RAISE FND_API.G_EXC_ERROR;
10581:
10574: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10575: END IF;
10576:
10577: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_SUBMITTER_ID_ERR'); -- SEVIS submitter id not found
10578: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_submiter_number);
10579: FND_MSG_PUB.Add;
10580: RAISE FND_API.G_EXC_ERROR;
10581:
10582: END IF;
10598: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10599: END IF;
10600:
10601: -- Active batch is found and mode not validate only - terminate current process
10602: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BATCH_FOUND');
10603: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_batch_id);
10604: FND_MSG_PUB.Add;
10605: RAISE FND_API.G_EXC_ERROR;
10606:
10599: END IF;
10600:
10601: -- Active batch is found and mode not validate only - terminate current process
10602: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BATCH_FOUND');
10603: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_batch_id);
10604: FND_MSG_PUB.Add;
10605: RAISE FND_API.G_EXC_ERROR;
10606:
10607: END IF;
10717: IF c_prev_info%FOUND THEN
10718: l_student_rec.record_status := 'C'; --change mode
10719: -- If mode update - check SEVIS person Id
10720:
10721: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_UPD'); -- Student is found in Update mode
10722: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10723: Put_Log_Msg(FND_MESSAGE.Get,1);
10724:
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10718: l_student_rec.record_status := 'C'; --change mode
10719: -- If mode update - check SEVIS person Id
10720:
10721: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_UPD'); -- Student is found in Update mode
10722: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10723: Put_Log_Msg(FND_MESSAGE.Get,1);
10724:
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10726:
10719: -- If mode update - check SEVIS person Id
10720:
10721: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_UPD'); -- Student is found in Update mode
10722: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10723: Put_Log_Msg(FND_MESSAGE.Get,1);
10724:
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10726:
10727: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
10723: Put_Log_Msg(FND_MESSAGE.Get,1);
10724:
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10726:
10727: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
10728: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10729: Put_Log_Msg(FND_MESSAGE.Get,1);
10730: Put_Log_Msg('Sevis id not found',0);
10731:
10724:
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10726:
10727: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
10728: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10729: Put_Log_Msg(FND_MESSAGE.Get,1);
10730: Put_Log_Msg('Sevis id not found',0);
10731:
10732: l_student_rec.person_status := 'I';
10725: IF l_student_rec.sevis_user_id IS NULL THEN
10726:
10727: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_ID_ERR'); -- SEVIS STUDENT id not found
10728: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10729: Put_Log_Msg(FND_MESSAGE.Get,1);
10730: Put_Log_Msg('Sevis id not found',0);
10731:
10732: l_student_rec.person_status := 'I';
10733:
10734: END IF;
10735:
10736: ELSE
10737:
10738: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_CRT'); -- Student is found in Create mode
10739: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10740: Put_Log_Msg(FND_MESSAGE.Get,1);
10741:
10742: END IF;
10735:
10736: ELSE
10737:
10738: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_CRT'); -- Student is found in Create mode
10739: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10740: Put_Log_Msg(FND_MESSAGE.Get,1);
10741:
10742: END IF;
10743:
10736: ELSE
10737:
10738: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_CRT'); -- Student is found in Create mode
10739: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10740: Put_Log_Msg(FND_MESSAGE.Get,1);
10741:
10742: END IF;
10743:
10744: CLOSE c_prev_info;
10907: OR l_student_rec.fin_status = 'N' THEN -- Not found
10908:
10909: -- These are I-20 blocks and should be found. If this happens - its a bug
10910:
10911: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
10912: FND_MESSAGE.SET_TOKEN('BLOCK_ID',5);
10913: FND_MSG_PUB.Add;
10914: /* Debug */
10915: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10908:
10909: -- These are I-20 blocks and should be found. If this happens - its a bug
10910:
10911: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
10912: FND_MESSAGE.SET_TOKEN('BLOCK_ID',5);
10913: FND_MSG_PUB.Add;
10914: /* Debug */
10915: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10916: l_label := 'igs.plsql.igs_sv_ni_batch_process_pkg.Create_Batch';
10925: -- Check for required blocks
10926:
10927: IF l_student_rec.f_addr_status = 'N' AND p_batch_type = 'I' THEN
10928:
10929: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_F_ADDR_FLD_ERR'); -- Foreign address not found
10930: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10931: Put_Log_Msg(FND_MESSAGE.Get,1);
10932:
10933: l_student_rec.person_status := 'I';
10926:
10927: IF l_student_rec.f_addr_status = 'N' AND p_batch_type = 'I' THEN
10928:
10929: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_F_ADDR_FLD_ERR'); -- Foreign address not found
10930: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10931: Put_Log_Msg(FND_MESSAGE.Get,1);
10932:
10933: l_student_rec.person_status := 'I';
10934:
10927: IF l_student_rec.f_addr_status = 'N' AND p_batch_type = 'I' THEN
10928:
10929: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_F_ADDR_FLD_ERR'); -- Foreign address not found
10930: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10931: Put_Log_Msg(FND_MESSAGE.Get,1);
10932:
10933: l_student_rec.person_status := 'I';
10934:
10935: END IF;
10934:
10935: END IF;
10936: IF l_student_rec.us_addr_status = 'N' AND p_batch_type = 'E' THEN
10937:
10938: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_US_ADDR_FLD_ERR'); -- US address not found
10939: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10940: Put_Log_Msg(FND_MESSAGE.Get,1);
10941:
10942: l_student_rec.person_status := 'I';
10935: END IF;
10936: IF l_student_rec.us_addr_status = 'N' AND p_batch_type = 'E' THEN
10937:
10938: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_US_ADDR_FLD_ERR'); -- US address not found
10939: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10940: Put_Log_Msg(FND_MESSAGE.Get,1);
10941:
10942: l_student_rec.person_status := 'I';
10943:
10936: IF l_student_rec.us_addr_status = 'N' AND p_batch_type = 'E' THEN
10937:
10938: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_US_ADDR_FLD_ERR'); -- US address not found
10939: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_student_rec.person_number);
10940: Put_Log_Msg(FND_MESSAGE.Get,1);
10941:
10942: l_student_rec.person_status := 'I';
10943:
10944: END IF;
11248: --Remove all person data from tables
11249:
11250: Remove_Person_Data(p_person_id => l_student_rec.person_id, p_batch_id => l_batch_id);
11251:
11252: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_INVALID'); -- Student has validation error - not processed
11253: Put_Log_Msg(FND_MESSAGE.Get,1);
11254:
11255: ELSIF l_student_rec.changes_found = 'Y' THEN
11256:
11249:
11250: Remove_Person_Data(p_person_id => l_student_rec.person_id, p_batch_id => l_batch_id);
11251:
11252: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_INVALID'); -- Student has validation error - not processed
11253: Put_Log_Msg(FND_MESSAGE.Get,1);
11254:
11255: ELSIF l_student_rec.changes_found = 'Y' THEN
11256:
11257: IF p_validate_only ='N' THEN
11255: ELSIF l_student_rec.changes_found = 'Y' THEN
11256:
11257: IF p_validate_only ='N' THEN
11258:
11259: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_SUCCESS'); -- Student successfully processed
11260: Put_Log_Msg(FND_MESSAGE.Get,1);
11261:
11262: ELSE
11263:
11256:
11257: IF p_validate_only ='N' THEN
11258:
11259: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_SUCCESS'); -- Student successfully processed
11260: Put_Log_Msg(FND_MESSAGE.Get,1);
11261:
11262: ELSE
11263:
11264: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STDNT_VALID_SUCC'); -- Student successfully processed
11260: Put_Log_Msg(FND_MESSAGE.Get,1);
11261:
11262: ELSE
11263:
11264: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STDNT_VALID_SUCC'); -- Student successfully processed
11265: Put_Log_Msg(FND_MESSAGE.Get,1);
11266:
11267: END IF;
11268:
11261:
11262: ELSE
11263:
11264: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STDNT_VALID_SUCC'); -- Student successfully processed
11265: Put_Log_Msg(FND_MESSAGE.Get,1);
11266:
11267: END IF;
11268:
11269: l_batch_status :='S';
11272:
11273: --Remove all person data from tables
11274: Remove_Person_Data(p_person_id => l_student_rec.person_id, p_batch_id => l_batch_id);
11275:
11276: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_NO_CHANGE'); -- No changes found for the student
11277: Put_Log_Msg(FND_MESSAGE.Get,1);
11278:
11279: END IF;
11280: IF p_batch_type ='I' THEN
11273: --Remove all person data from tables
11274: Remove_Person_Data(p_person_id => l_student_rec.person_id, p_batch_id => l_batch_id);
11275:
11276: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_STUDENT_NO_CHANGE'); -- No changes found for the student
11277: Put_Log_Msg(FND_MESSAGE.Get,1);
11278:
11279: END IF;
11280: IF p_batch_type ='I' THEN
11281: FETCH C_NI_CUR INTO c_student_list_rec;
11294:
11295: IF l_batch_status = 'N' THEN
11296: -- no students for the batch - change
11297:
11298: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_STUDENTS'); -- No students found to submit
11299: Put_Log_Msg(FND_MESSAGE.Get,1);
11300:
11301: DELETE FROM igs_sv_batches WHERE batch_id = l_batch_id;
11302:
11295: IF l_batch_status = 'N' THEN
11296: -- no students for the batch - change
11297:
11298: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_STUDENTS'); -- No students found to submit
11299: Put_Log_Msg(FND_MESSAGE.Get,1);
11300:
11301: DELETE FROM igs_sv_batches WHERE batch_id = l_batch_id;
11302:
11303: END IF;
11304:
11305: /*
11306: IF l_record_number >=250 THEN
11307:
11308: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_MAX_RECORDS'); -- Too many students.
11309: Put_Log_Msg(FND_MESSAGE.Get,1);
11310:
11311: END IF;
11312: */
11305: /*
11306: IF l_record_number >=250 THEN
11307:
11308: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_MAX_RECORDS'); -- Too many students.
11309: Put_Log_Msg(FND_MESSAGE.Get,1);
11310:
11311: END IF;
11312: */
11313:
11523: CLOSE c_active_batch;
11524:
11525: IF l_batch_id IS NULL THEN
11526: -- Active batch is not found and mode not validate only - terminate current process
11527: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_BATCH_FOUND');
11528: Put_Log_Msg(FND_MESSAGE.Get,1);
11529:
11530: ELSE
11531:
11524:
11525: IF l_batch_id IS NULL THEN
11526: -- Active batch is not found and mode not validate only - terminate current process
11527: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_NO_BATCH_FOUND');
11528: Put_Log_Msg(FND_MESSAGE.Get,1);
11529:
11530: ELSE
11531:
11532: --Remove batch
11946:
11947: IF c_batch%NOTFOUND THEN
11948:
11949: CLOSE c_batch;
11950: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BATCH_NOT_FOUND'); -- Batch not found
11951: FND_MESSAGE.SET_TOKEN('BATCH_ID',p_BatchID);
11952: FND_MSG_PUB.Add;
11953:
11954: RAISE FND_API.G_EXC_ERROR;
11947: IF c_batch%NOTFOUND THEN
11948:
11949: CLOSE c_batch;
11950: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BATCH_NOT_FOUND'); -- Batch not found
11951: FND_MESSAGE.SET_TOKEN('BATCH_ID',p_BatchID);
11952: FND_MSG_PUB.Add;
11953:
11954: RAISE FND_API.G_EXC_ERROR;
11955:
11960: IF lower(p_FileValidation) = 'true' OR p_FileValidation='1' THEN
11961: -- successfull batch transmition.
11962:
11963: IF l_status <>'S' THEN
11964: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INVALID_STATUS'); -- Batch is not in process
11965: FND_MESSAGE.SET_TOKEN('BATCH_ID',p_BatchID);
11966: FND_MSG_PUB.Add;
11967:
11968: RAISE FND_API.G_EXC_ERROR;
11961: -- successfull batch transmition.
11962:
11963: IF l_status <>'S' THEN
11964: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INVALID_STATUS'); -- Batch is not in process
11965: FND_MESSAGE.SET_TOKEN('BATCH_ID',p_BatchID);
11966: FND_MSG_PUB.Add;
11967:
11968: RAISE FND_API.G_EXC_ERROR;
11969:
12137: IF c_dep%NOTFOUND THEN
12138:
12139: CLOSE c_dep;
12140:
12141: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_DEP_NOT_FOUND'); -- Dependent not found
12142: FND_MESSAGE.SET_TOKEN('PERSON_ID',p_PersonID);
12143: FND_MSG_PUB.Add;
12144:
12145: RAISE FND_API.G_EXC_ERROR;
12138:
12139: CLOSE c_dep;
12140:
12141: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_DEP_NOT_FOUND'); -- Dependent not found
12142: FND_MESSAGE.SET_TOKEN('PERSON_ID',p_PersonID);
12143: FND_MSG_PUB.Add;
12144:
12145: RAISE FND_API.G_EXC_ERROR;
12146:
12351: AND lkp.lookup_type ='IGS_SV_COMP_TREE'
12352: AND lkp.enabled_flag = 'Y';
12353:
12354: BEGIN
12355: fnd_message.set_name('IGS','IGS_SV_BTCH');
12356: fnd_file.put_line(fnd_file.log,fnd_message.get());
12357: fnd_file.put_line(FND_FILE.LOG,' ');
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12352: AND lkp.enabled_flag = 'Y';
12353:
12354: BEGIN
12355: fnd_message.set_name('IGS','IGS_SV_BTCH');
12356: fnd_file.put_line(fnd_file.log,fnd_message.get());
12357: fnd_file.put_line(FND_FILE.LOG,' ');
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12360: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12355: fnd_message.set_name('IGS','IGS_SV_BTCH');
12356: fnd_file.put_line(fnd_file.log,fnd_message.get());
12357: fnd_file.put_line(FND_FILE.LOG,' ');
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12360: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12361: fnd_message.set_name('IGS','IGS_SV_PERS_COUNT');
12362: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12363: --Put_Log_Msg(' Batch ID No. of Persons',0);
12356: fnd_file.put_line(fnd_file.log,fnd_message.get());
12357: fnd_file.put_line(FND_FILE.LOG,' ');
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12360: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12361: fnd_message.set_name('IGS','IGS_SV_PERS_COUNT');
12362: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12363: --Put_Log_Msg(' Batch ID No. of Persons',0);
12364: --Put_Log_Msg(' -------- --------------',0);
12357: fnd_file.put_line(FND_FILE.LOG,' ');
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12360: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12361: fnd_message.set_name('IGS','IGS_SV_PERS_COUNT');
12362: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12363: --Put_Log_Msg(' Batch ID No. of Persons',0);
12364: --Put_Log_Msg(' -------- --------------',0);
12365: -- g_running_batches(1) := 2020205;
12358: --Put_Log_Msg(' Following Batch IDs are generated: ',0);
12359: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12360: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12361: fnd_message.set_name('IGS','IGS_SV_PERS_COUNT');
12362: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12363: --Put_Log_Msg(' Batch ID No. of Persons',0);
12364: --Put_Log_Msg(' -------- --------------',0);
12365: -- g_running_batches(1) := 2020205;
12366:
12382: l_batch_count := l_batch_count+1;
12383: END LOOP;
12384:
12385: fnd_file.put_line(FND_FILE.LOG,' ');
12386: fnd_message.set_name('IGS','IGS_SV_BTCH_PERS');
12387: fnd_file.put_line(fnd_file.log,fnd_message.get());
12388: fnd_file.put_line(FND_FILE.LOG,' ');
12389: -- Put_Log_Msg(' ',0);
12390: -- Put_Log_Msg(' Following are the person records included in each batch: ',0);
12383: END LOOP;
12384:
12385: fnd_file.put_line(FND_FILE.LOG,' ');
12386: fnd_message.set_name('IGS','IGS_SV_BTCH_PERS');
12387: fnd_file.put_line(fnd_file.log,fnd_message.get());
12388: fnd_file.put_line(FND_FILE.LOG,' ');
12389: -- Put_Log_Msg(' ',0);
12390: -- Put_Log_Msg(' Following are the person records included in each batch: ',0);
12391: -- Put_Log_Msg(' ',0);
12390: -- Put_Log_Msg(' Following are the person records included in each batch: ',0);
12391: -- Put_Log_Msg(' ',0);
12392:
12393: FOR i IN 1..g_parallel_batches.COUNT LOOP
12394: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12395: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get() || ': ' || g_parallel_batches(i));
12396: -- Put_Log_Msg(' Batch ID: '||g_parallel_batches(i),0);
12397: -- Put_Log_Msg(' ------------------------',0);
12398: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12391: -- Put_Log_Msg(' ',0);
12392:
12393: FOR i IN 1..g_parallel_batches.COUNT LOOP
12394: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12395: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get() || ': ' || g_parallel_batches(i));
12396: -- Put_Log_Msg(' Batch ID: '||g_parallel_batches(i),0);
12397: -- Put_Log_Msg(' ------------------------',0);
12398: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12399: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12394: fnd_message.set_name('IGS','IGS_SV_BTCH_ID');
12395: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get() || ': ' || g_parallel_batches(i));
12396: -- Put_Log_Msg(' Batch ID: '||g_parallel_batches(i),0);
12397: -- Put_Log_Msg(' ------------------------',0);
12398: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12399: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12400: --- Put_Log_Msg(' New Persons: ',0);
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12395: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get() || ': ' || g_parallel_batches(i));
12396: -- Put_Log_Msg(' Batch ID: '||g_parallel_batches(i),0);
12397: -- Put_Log_Msg(' ------------------------',0);
12398: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12399: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12400: --- Put_Log_Msg(' New Persons: ',0);
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12403: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12398: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12399: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12400: --- Put_Log_Msg(' New Persons: ',0);
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12403: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12404: fnd_message.set_name('IGS','IGS_SV_INFMN');
12405: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12406: -- Put_Log_Msg(' Person Number Information ',0);
12399: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12400: --- Put_Log_Msg(' New Persons: ',0);
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12403: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12404: fnd_message.set_name('IGS','IGS_SV_INFMN');
12405: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12406: -- Put_Log_Msg(' Person Number Information ',0);
12407: Put_Log_Msg(' -------------- ------------ ',0);
12400: --- Put_Log_Msg(' New Persons: ',0);
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12403: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12404: fnd_message.set_name('IGS','IGS_SV_INFMN');
12405: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12406: -- Put_Log_Msg(' Person Number Information ',0);
12407: Put_Log_Msg(' -------------- ------------ ',0);
12408:
12401: -- Put_Log_Msg(' ------------',0);
12402: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12403: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12404: fnd_message.set_name('IGS','IGS_SV_INFMN');
12405: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12406: -- Put_Log_Msg(' Person Number Information ',0);
12407: Put_Log_Msg(' -------------- ------------ ',0);
12408:
12409: FOR new_persons IN c_get_new_persons(g_parallel_batches(i)) LOOP
12409: FOR new_persons IN c_get_new_persons(g_parallel_batches(i)) LOOP
12410: Put_Log_Msg(' ' || rpad(new_persons.prsn_num,30,' ') || ' ' || new_persons.info,0);
12411: END LOOP;
12412:
12413: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12414: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12415: --Put_Log_Msg(' Updated Persons: ',0);
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12410: Put_Log_Msg(' ' || rpad(new_persons.prsn_num,30,' ') || ' ' || new_persons.info,0);
12411: END LOOP;
12412:
12413: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12414: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12415: --Put_Log_Msg(' Updated Persons: ',0);
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12418: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12413: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12414: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12415: --Put_Log_Msg(' Updated Persons: ',0);
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12418: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12419: fnd_message.set_name('IGS','IGS_SV_INFMN');
12420: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12421: --Put_Log_Msg(' Person Number Information ',0);
12414: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12415: --Put_Log_Msg(' Updated Persons: ',0);
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12418: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12419: fnd_message.set_name('IGS','IGS_SV_INFMN');
12420: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12421: --Put_Log_Msg(' Person Number Information ',0);
12422: Put_Log_Msg(' -------------- ------------ ',0);
12415: --Put_Log_Msg(' Updated Persons: ',0);
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12418: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12419: fnd_message.set_name('IGS','IGS_SV_INFMN');
12420: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12421: --Put_Log_Msg(' Person Number Information ',0);
12422: Put_Log_Msg(' -------------- ------------ ',0);
12423:
12416: Put_Log_Msg(' ----------------',0);
12417: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12418: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12419: fnd_message.set_name('IGS','IGS_SV_INFMN');
12420: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12421: --Put_Log_Msg(' Person Number Information ',0);
12422: Put_Log_Msg(' -------------- ------------ ',0);
12423:
12424: FOR updated_persons IN c_get_updated_persons(g_parallel_batches(i)) LOOP
12429:
12430: FOR i IN 1..g_running_batches.COUNT LOOP
12431: Put_Log_Msg(' Batch ID: ' || g_running_batches(i),0);
12432: Put_Log_Msg(' ------------------------',0);
12433: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12434: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12435: -- Put_Log_Msg(' New Persons: ',0);
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12430: FOR i IN 1..g_running_batches.COUNT LOOP
12431: Put_Log_Msg(' Batch ID: ' || g_running_batches(i),0);
12432: Put_Log_Msg(' ------------------------',0);
12433: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12434: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12435: -- Put_Log_Msg(' New Persons: ',0);
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12438: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12433: fnd_message.set_name('IGS','IGS_SV_NEW_PERS');
12434: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12435: -- Put_Log_Msg(' New Persons: ',0);
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12438: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12439: fnd_message.set_name('IGS','IGS_SV_INFMN');
12440: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12441: -- Put_Log_Msg(' Person Number Information ',0);
12434: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12435: -- Put_Log_Msg(' New Persons: ',0);
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12438: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12439: fnd_message.set_name('IGS','IGS_SV_INFMN');
12440: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12441: -- Put_Log_Msg(' Person Number Information ',0);
12442: Put_Log_Msg(' -------------- ------------ ',0);
12435: -- Put_Log_Msg(' New Persons: ',0);
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12438: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12439: fnd_message.set_name('IGS','IGS_SV_INFMN');
12440: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12441: -- Put_Log_Msg(' Person Number Information ',0);
12442: Put_Log_Msg(' -------------- ------------ ',0);
12443:
12436: Put_Log_Msg(' ------------',0);
12437: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12438: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12439: fnd_message.set_name('IGS','IGS_SV_INFMN');
12440: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12441: -- Put_Log_Msg(' Person Number Information ',0);
12442: Put_Log_Msg(' -------------- ------------ ',0);
12443:
12444: FOR new_persons IN c_get_new_persons(g_running_batches(i)) LOOP
12444: FOR new_persons IN c_get_new_persons(g_running_batches(i)) LOOP
12445: Put_Log_Msg(' ' || rpad(new_persons.prsn_num,30,' ') || ' ' || new_persons.info,0);
12446: END LOOP;
12447:
12448: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12449: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12450: -- Put_Log_Msg(' Updated Persons: ',0);
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12445: Put_Log_Msg(' ' || rpad(new_persons.prsn_num,30,' ') || ' ' || new_persons.info,0);
12446: END LOOP;
12447:
12448: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12449: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12450: -- Put_Log_Msg(' Updated Persons: ',0);
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12453: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12448: fnd_message.set_name('IGS','IGS_SV_UPD_PERS');
12449: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12450: -- Put_Log_Msg(' Updated Persons: ',0);
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12453: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12454: fnd_message.set_name('IGS','IGS_SV_INFMN');
12455: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12456: --Put_Log_Msg(' Person Number Information ',0);
12449: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12450: -- Put_Log_Msg(' Updated Persons: ',0);
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12453: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12454: fnd_message.set_name('IGS','IGS_SV_INFMN');
12455: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12456: --Put_Log_Msg(' Person Number Information ',0);
12457: Put_Log_Msg(' -------------- ------------ ',0);
12450: -- Put_Log_Msg(' Updated Persons: ',0);
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12453: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12454: fnd_message.set_name('IGS','IGS_SV_INFMN');
12455: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12456: --Put_Log_Msg(' Person Number Information ',0);
12457: Put_Log_Msg(' -------------- ------------ ',0);
12458:
12451: Put_Log_Msg(' ----------------',0);
12452: fnd_message.set_name('IGS','IGS_SV_PER_NUM');
12453: fnd_file.put(fnd_file.log,' ' || fnd_message.get());
12454: fnd_message.set_name('IGS','IGS_SV_INFMN');
12455: fnd_file.put_line(fnd_file.log,' ' || fnd_message.get());
12456: --Put_Log_Msg(' Person Number Information ',0);
12457: Put_Log_Msg(' -------------- ------------ ',0);
12458:
12459: FOR updated_persons IN c_get_updated_persons(g_running_batches(i)) LOOP