[Home] [Help]
361: unit level records already exists.
362: */
363:
364: IF l_av_stnd_unit_lvl_id IS NULL THEN
365: FND_MESSAGE.SET_NAME('IGS','IGS_AV_ADV_STND_ALREADY_EXISTS');
366: FND_MSG_PUB.ADD;
367: x_return_status := 'W';
368: -- skip to end
369: l_skip := 'Y';
672: p_data => x_msg_data);
673: WHEN OTHERS THEN
674: ROLLBACK TO create_adv_stnd_level;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_UNHANDLED_ERROR');
677: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
678: FND_MSG_PUB.ADD;
679: FND_MSG_PUB.Count_And_Get(
680: p_count => x_msg_count,
673: WHEN OTHERS THEN
674: ROLLBACK TO create_adv_stnd_level;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_UNHANDLED_ERROR');
677: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
678: FND_MSG_PUB.ADD;
679: FND_MSG_PUB.Count_And_Get(
680: p_count => x_msg_count,
681: p_data => x_msg_data);
705: x_return_status := TRUE;
706:
707: IF p_lgcy_adstlvl_rec.unit_level_mark < 0
708: OR p_lgcy_adstlvl_rec.unit_level_mark > 100 THEN
709: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_INV_UNT_LVL_MARK');
710: FND_MSG_PUB.ADD;
711: x_return_status := FALSE;
712: END IF; -- shimitta
713: IF p_lgcy_adstlvl_rec.person_number IS NULL THEN
710: FND_MSG_PUB.ADD;
711: x_return_status := FALSE;
712: END IF; -- shimitta
713: IF p_lgcy_adstlvl_rec.person_number IS NULL THEN
714: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_PER_NUM_NULL');
715: FND_MSG_PUB.ADD;
716: x_return_status := FALSE;
717: END IF;
718: IF p_lgcy_adstlvl_rec.program_cd IS NULL THEN
715: FND_MSG_PUB.ADD;
716: x_return_status := FALSE;
717: END IF;
718: IF p_lgcy_adstlvl_rec.program_cd IS NULL THEN
719: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_PRGM_CD_NULL');
720: FND_MSG_PUB.ADD;
721: x_return_status := FALSE;
722: END IF;
723: IF p_lgcy_adstlvl_rec.total_exmptn_approved IS NULL THEN
720: FND_MSG_PUB.ADD;
721: x_return_status := FALSE;
722: END IF;
723: IF p_lgcy_adstlvl_rec.total_exmptn_approved IS NULL THEN
724: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_TOT_EXMPT_APPR_NULL');
725: FND_MSG_PUB.ADD;
726: x_return_status := FALSE;
727: END IF;
728: IF p_lgcy_adstlvl_rec.total_exmptn_granted IS NULL THEN
725: FND_MSG_PUB.ADD;
726: x_return_status := FALSE;
727: END IF;
728: IF p_lgcy_adstlvl_rec.total_exmptn_granted IS NULL THEN
729: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_TOT_EXMPT_GRNT_NULL');
730: FND_MSG_PUB.ADD;
731: x_return_status := FALSE;
732: END IF;
733: IF p_lgcy_adstlvl_rec.total_exmptn_perc_grntd IS NULL OR
732: END IF;
733: IF p_lgcy_adstlvl_rec.total_exmptn_perc_grntd IS NULL OR
734: p_lgcy_adstlvl_rec.total_exmptn_perc_grntd < 0 OR
735: p_lgcy_adstlvl_rec.total_exmptn_perc_grntd > 100 THEN
736: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_TOT_EXT_PER_GRNT_NULL');
737: FND_MSG_PUB.ADD;
738: x_return_status := FALSE;
739: END IF;
740: IF p_lgcy_adstlvl_rec.exemption_institution_cd IS NULL THEN
737: FND_MSG_PUB.ADD;
738: x_return_status := FALSE;
739: END IF;
740: IF p_lgcy_adstlvl_rec.exemption_institution_cd IS NULL THEN
741: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLVL_EX_INS_CD_NULL');
742: FND_MSG_PUB.ADD;
743: x_return_status := FALSE;
744: END IF;
745: IF p_lgcy_adstlvl_rec.unit_level IS NULL THEN
742: FND_MSG_PUB.ADD;
743: x_return_status := FALSE;
744: END IF;
745: IF p_lgcy_adstlvl_rec.unit_level IS NULL THEN
746: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLVL_UNIT_LVL_NULL');
747: FND_MSG_PUB.ADD;
748: x_return_status := FALSE;
749: END IF;
750: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status IS NULL THEN
747: FND_MSG_PUB.ADD;
748: x_return_status := FALSE;
749: END IF;
750: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status IS NULL THEN
751: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLVL_GRNT_STAT_NULL');
752: FND_MSG_PUB.ADD;
753: x_return_status := FALSE;
754: END IF;
755: IF p_lgcy_adstlvl_rec.credit_points IS NULL THEN
752: FND_MSG_PUB.ADD;
753: x_return_status := FALSE;
754: END IF;
755: IF p_lgcy_adstlvl_rec.credit_points IS NULL THEN
756: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLVL_CRD_PNTS_NULL');
757: FND_MSG_PUB.ADD;
758: x_return_status := FALSE;
759: END IF;
760: IF p_lgcy_adstlvl_rec.approved_dt IS NULL THEN
757: FND_MSG_PUB.ADD;
758: x_return_status := FALSE;
759: END IF;
760: IF p_lgcy_adstlvl_rec.approved_dt IS NULL THEN
761: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLVL_APPR_DT_NULL');
762: FND_MSG_PUB.ADD;
763: x_return_status := FALSE;
764: END IF;
765: IF p_lgcy_adstlvl_rec.authorising_person_number IS NULL THEN
762: FND_MSG_PUB.ADD;
763: x_return_status := FALSE;
764: END IF;
765: IF p_lgcy_adstlvl_rec.authorising_person_number IS NULL THEN
766: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLV_AUTH_PERNUM_NULL');
767: FND_MSG_PUB.ADD;
768: x_return_status := FALSE;
769: END IF;
770: /*
776: p_lgcy_adstlvl_rec.qual_year IS NULL OR
777: p_lgcy_adstlvl_rec.qual_sitting IS NULL OR
778: p_lgcy_adstlvl_rec.qual_awarding_body IS NULL OR
779: p_lgcy_adstlvl_rec.approved_result IS NULL THEN
780: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_ADLV_QUL_DET_NOT_NULL');
781: FND_MSG_PUB.ADD;
782: x_return_status := FALSE;
783: END IF;
784: END IF;
790: IF p_lgcy_adstlvl_rec.prev_term IS NULL OR
791: p_lgcy_adstlvl_rec.start_date IS NULL OR
792: p_lgcy_adstlvl_rec.end_date IS NULL OR
793: p_lgcy_adstlvl_rec.institution_cd IS NULL THEN
794: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_PREV_UNT_DET_NOT_NULL');
795: FND_MSG_PUB.ADD;
796: x_return_status := FALSE;
797: END IF;
798: END IF;
802: */
803: IF p_lgcy_adstlvl_rec.tst_admission_test_type IS NOT NULL THEN
804: IF p_lgcy_adstlvl_rec.tst_test_date IS NULL OR
805: p_lgcy_adstlvl_rec.test_segment_name IS NULL THEN
806: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_TST_ADM_DET_NOT_NULL');
807: FND_MSG_PUB.ADD;
808: x_return_status := FALSE;
809: END IF;
810: END IF;
814: if s_adv_stnd_granting_status is revoked then revoked date cannot be not null.
815: */
816: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'GRANTED' AND
817: p_lgcy_adstlvl_rec.granted_dt IS NULL THEN
818: FND_MESSAGE.SET_NAME('IGS','IGS_AV_STUNT_GRANTDT_NOT_NULL');
819: FND_MSG_PUB.ADD;
820: x_return_status := FALSE;
821: END IF;
822:
821: END IF;
822:
823: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'CANCELLED' AND
824: p_lgcy_adstlvl_rec.cancelled_dt IS NULL THEN
825: FND_MESSAGE.SET_NAME('IGS','IGS_AV_STUNT_CANCDT_NOT_NULL');
826: FND_MSG_PUB.ADD;
827: x_return_status := FALSE;
828: END IF;
829:
828: END IF;
829:
830: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'REVOKED' AND
831: p_lgcy_adstlvl_rec.revoked_dt IS NULL THEN
832: FND_MESSAGE.SET_NAME('IGS','IGS_AV_STUNT_REVDT_NOT_NULL');
833: FND_MSG_PUB.ADD;
834: x_return_status := FALSE;
835: END IF;
836:
835: END IF;
836:
837: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'EXPIRED' AND
838: p_lgcy_adstlvl_rec.expiry_dt IS NULL THEN
839: FND_MESSAGE.SET_NAME('IGS','IGS_AV_STUNT_EXPDT_TOBE_SET');
840: FND_MSG_PUB.ADD;
841: x_return_status := FALSE;
842: END IF;
843:
848: */
849: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'GRANTED' AND
850: (p_lgcy_adstlvl_rec.revoked_dt IS NOT NULL OR
851: p_lgcy_adstlvl_rec.cancelled_dt IS NOT NULL) THEN
852: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CORR_DT_STATUS');
853: FND_MSG_PUB.ADD;
854: x_return_status := FALSE;
855: END IF;
856:
856:
857: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'CANCELLED' AND
858: (p_lgcy_adstlvl_rec.revoked_dt IS NOT NULL OR
859: p_lgcy_adstlvl_rec.granted_dt IS NOT NULL) THEN
860: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CORR_DT_STATUS');
861: FND_MSG_PUB.ADD;
862: x_return_status := FALSE;
863: END IF;
864:
864:
865: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status = 'REVOKED' AND
866: (p_lgcy_adstlvl_rec.granted_dt IS NOT NULL OR
867: p_lgcy_adstlvl_rec.cancelled_dt IS NOT NULL) THEN
868: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CORR_DT_STATUS');
869: FND_MSG_PUB.ADD;
870: x_return_status := FALSE;
871: END IF;
872:
919: get person_id
920: */
921: p_person_id := IGS_GE_GEN_003.GET_PERSON_ID(p_lgcy_adstlvl_rec.person_number);
922: IF p_person_id IS NULL THEN
923: FND_MESSAGE.SET_NAME('IGS', 'IGS_GE_INVALID_PERSON_NUMBER');
924: FND_MSG_PUB.ADD;
925: x_return_status := FALSE;
926: END IF;
927: /*
942: P_END_DT => l_end_dt,
943: P_RETURN_STATUS => l_return_status
944: );
945: IF p_cal_type IS NULL THEN
946: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_INVALID_CAL_ALT_CODE');
947: FND_MSG_PUB.ADD;
948: x_return_status := FALSE;
949: END IF;
950: END;
989: p_lgcy_adstlvl_rec.approved_result);
990: FETCH c_qual_dets_id INTO p_qual_dets_id;
991:
992: IF c_qual_dets_id%NOTFOUND THEN
993: FND_MESSAGE.SET_NAME('IGS','IGS_AV_NOPREV_EDU_QUAL_EXISTS');
994: FND_MSG_PUB.ADD;
995: x_return_status := FALSE;
996: END IF;
997: CLOSE c_qual_dets_id;
1040: END LOOP;
1041: CLOSE c_unit_details_id;
1042: -- set p_unit_details_id in case no data or too many rows
1043: IF l_count = 0 OR l_count >=2 THEN
1044: FND_MESSAGE.SET_NAME('IGS','IGS_AV_TERM_UNTDTLS_NOT_EXISTS');
1045: FND_MSG_PUB.ADD;
1046: x_return_status := FALSE;
1047: END IF;
1048: END;
1085: END LOOP;
1086: CLOSE c_tst_rslt_dtls_id;
1087: -- set p_unit_details_id in case no data or too many rows
1088: IF l_count = 0 OR l_count >=2 THEN
1089: FND_MESSAGE.SET_NAME('IGS','IGS_AV_ADM_TST_RSLT_NOT_EXISTS');
1090: FND_MSG_PUB.ADD;
1091: x_return_status := FALSE;
1092: END IF;
1093: END;
1139: (
1140: x_course_cd => p_lgcy_adstlvl_rec.program_cd,
1141: x_version_number => p_version_number
1142: ) THEN
1143: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_PRG_CD_NOT_EXISTS');
1144: FND_MSG_PUB.ADD;
1145: x_return_status := FALSE;
1146: END IF;
1147: return x_return_status;
1182: OPEN c_ind (p_person_id);
1183: FETCH c_ind INTO l_ind;
1184: CLOSE c_ind;
1185: IF upper(l_ind) = 'Y' THEN
1186: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_PERSON_DECEASED');
1187: FND_MSG_PUB.ADD;
1188: x_return_status := FALSE;
1189: END IF;
1190: END;
1204: BEGIN
1205: OPEN c_exists(p_lgcy_adstlvl_rec.exemption_institution_cd);
1206: FETCH c_exists INTO l_exists;
1207: IF c_exists%NOTFOUND THEN
1208: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_STND_EXMPT_INVALID');
1209: FND_MSG_PUB.ADD;
1210: x_return_status := FALSE;
1211: END IF;
1212: CLOSE c_exists;
1223: p_course_cd => p_lgcy_adstlvl_rec.program_cd,
1224: p_version_number => p_version_number,
1225: p_message_name => l_message_name
1226: ) THEN
1227: FND_MESSAGE.SET_NAME('IGS', 'IGS_HE_EXT_SPA_DTL_NOT_FOUND');
1228: FND_MSG_PUB.ADD;
1229: x_return_status := FALSE;
1230: END IF;
1231: END;
1275:
1276: IF (rec_cur_program_exempt_totals.adv_stnd_limit <> -1) THEN
1277: IF p_lgcy_adstlvl_rec.total_exmptn_approved < 0 OR
1278: p_lgcy_adstlvl_rec.total_exmptn_approved > rec_cur_program_exempt_totals.adv_stnd_limit THEN
1279: FND_MESSAGE.SET_NAME('IGS',l_message_name);
1280: FND_MSG_PUB.ADD;
1281: x_return_status := FALSE;
1282: END IF;
1283: END IF;
1284:
1285: IF (rec_cur_program_exempt_totals.adv_stnd_limit <> -1) THEN
1286: IF p_lgcy_adstlvl_rec.total_exmptn_granted < 0 OR
1287: p_lgcy_adstlvl_rec.total_exmptn_granted > rec_cur_program_exempt_totals.adv_stnd_limit THEN
1288: FND_MESSAGE.SET_NAME('IGS',l_message_name);
1289: FND_MSG_PUB.ADD;
1290: x_return_status := FALSE;
1291: END IF;
1292: END IF;
1307: OPEN c_exists (p_person_id,
1308: p_lgcy_adstlvl_rec.program_cd);
1309: FETCH c_exists INTO l_exists;
1310: IF c_exists%NOTFOUND THEN
1311: FND_MESSAGE.SET_NAME('IGS','IGS_AV_PRG_ATTMPT_INVALID');
1312: FND_MSG_PUB.ADD;
1313: x_return_status := FALSE;
1314: END IF;
1315: CLOSE c_exists;
1364: primary key validation
1365: */
1366: SELECT IGS_AV_STND_UNIT_LVL_S.NEXTVAL INTO p_av_stnd_unit_lvl_id FROM dual;
1367: IF IGS_AV_STND_UNIT_LVL_PKG.GET_PK_FOR_VALIDATION (p_av_stnd_unit_lvl_id) THEN
1368: FND_MESSAGE.SET_NAME('IGS','IGS_AV_ADV_STND_ALREADY_EXISTS');
1369: FND_MSG_PUB.ADD;
1370: p_av_stnd_unit_lvl_id := NULL;
1371: x_return_status := FALSE;
1372: END IF;
1380: x_course_cd => p_lgcy_adstlvl_rec.program_cd,
1381: x_version_number => p_course_version,
1382: x_exemption_institution_cd => p_lgcy_adstlvl_rec.exemption_institution_cd
1383: ) THEN
1384: FND_MESSAGE.SET_NAME('IGS','IGS_AV_NO_ADV_STND_DET_EXIST');
1385: FND_MSG_PUB.ADD;
1386: x_return_status := FALSE;
1387: END IF;
1388: /*
1388: /*
1389: Foreign Key with AUTHORIZING_PERSON_ID exists in table IGS_PE_PERSON
1390: */
1391: IF p_auth_pers_id IS NULL THEN
1392: FND_MESSAGE.SET_NAME('IGS','IGS_AV_INVALID_PERS_AUTH_NUM');
1393: FND_MSG_PUB.ADD;
1394: x_return_status := FALSE;
1395: END IF;
1396: /*
1400: (
1401: x_lookup_type => 'ADV_STND_GRANTING_STATUS',
1402: x_lookup_code => p_lgcy_adstlvl_rec.s_adv_stnd_granting_status
1403: ) THEN
1404: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CANNOT_DTR_GRNT_STAT');
1405: FND_MSG_PUB.ADD;
1406: x_return_status := FALSE;
1407: END IF;
1408: /*
1411: IF NOT IGS_PS_UNIT_LEVEL_PKG.GET_PK_FOR_VALIDATION
1412: (
1413: x_unit_level => p_s_adv_stnd_unit_level
1414: ) THEN
1415: FND_MESSAGE.SET_NAME('IGS','IGS_AV_TYPE_MUSTBE_LEVEL');
1416: FND_MSG_PUB.ADD;
1417: x_return_status := FALSE;
1418: END IF;
1419: /*
1421: */
1422: BEGIN
1423: IF to_number(p_lgcy_adstlvl_rec.credit_points) < 0 OR
1424: to_number(p_lgcy_adstlvl_rec.credit_points) > 999 THEN
1425: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CRD_POINTS_BET_0_99');
1426: FND_MSG_PUB.ADD;
1427: x_return_status := FALSE;
1428: END IF;
1429: EXCEPTION
1427: x_return_status := FALSE;
1428: END IF;
1429: EXCEPTION
1430: WHEN OTHERS THEN
1431: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CRD_POINTS_BET_0_99');
1432: FND_MSG_PUB.ADD;
1433: x_return_status := FALSE;
1434: END;
1435: /*
1435: /*
1436: program_group_ind should be Y or N
1437: */
1438: IF p_lgcy_adstlvl_rec.prog_group_ind NOT IN ('Y','N') THEN
1439: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CRS_GRP_IN_Y_N');
1440: FND_MSG_PUB.ADD;
1441: x_return_status := FALSE;
1442: END IF;
1443: /*
1446: */
1447: IF p_lgcy_adstlvl_rec.institution_cd IS NOT NULL THEN
1448: IF p_unit_details_id IS NULL AND
1449: p_qual_dets_id IS NULL THEN
1450: FND_MESSAGE.SET_NAME('IGS','IGS_AV_UDID_QDID_CAN_NOT_NULL');
1451: FND_MSG_PUB.ADD;
1452: x_return_status := FALSE;
1453: END IF;
1454: END IF;
1459: Changed condition from null to not null for both institution code and tst_rslt_dtls_id
1460: */
1461: IF p_lgcy_adstlvl_rec.institution_cd IS NOT NULL AND
1462: p_tst_rslt_dtls_id IS NOT NULL THEN
1463: FND_MESSAGE.SET_NAME('IGS','IGS_AV_INST_RLID_BOTH_NOT_NULL');
1464: FND_MSG_PUB.ADD;
1465: x_return_status := FALSE;
1466: END IF;
1467: /*
1485: p_tst_rslt_dtls_id IS NULL AND
1486: p_qual_dets_id IS NOT NULL
1487: )
1488: ) THEN
1489: FND_MESSAGE.SET_NAME('IGS','IGS_AV_ATLEAST_ONE_NOT_NULL');
1490: FND_MSG_PUB.ADD;
1491: x_return_status := FALSE;
1492: END IF;
1493: /*
1496: 'CANCELLED','GRANTED','APPROVED','EXPIRED','REVOKED'
1497: */
1498: IF p_lgcy_adstlvl_rec.s_adv_stnd_granting_status NOT IN
1499: ('CANCELLED','GRANTED','APPROVED','EXPIRED','REVOKED') THEN
1500: FND_MESSAGE.SET_NAME('IGS','IGS_AV_CANNOT_DTR_GRNT_STAT');
1501: FND_MSG_PUB.ADD;
1502: x_return_status := FALSE;
1503: END IF;
1504:
1507: */
1508: BEGIN
1509: IF to_number(p_lgcy_adstlvl_rec.unit_level_mark) < 0 OR
1510: to_number(p_lgcy_adstlvl_rec.unit_level_mark) > 100 THEN
1511: FND_MESSAGE.SET_NAME('IGS','IGS_GR_MARK_INV_0_100');
1512: FND_MSG_PUB.ADD;
1513: x_return_status := FALSE;
1514: END IF;
1515: EXCEPTION
1513: x_return_status := FALSE;
1514: END IF;
1515: EXCEPTION
1516: WHEN OTHERS THEN
1517: FND_MESSAGE.SET_NAME('IGS','IGS_GR_MARK_INV_0_100');
1518: FND_MSG_PUB.ADD;
1519: x_return_status := FALSE;
1520: END;
1521:
1556: /*
1557: Validate that the approved date is greater than current date
1558: */
1559: IF p_lgcy_adstlvl_rec.approved_dt >= SYSDATE THEN
1560: FND_MESSAGE.SET_NAME('IGS','IGS_AV_APRVDT_LE_CURDT');
1561: FND_MSG_PUB.ADD;
1562: x_return_status := FALSE;
1563: END IF;
1564: /*
1568: */
1569: IF p_lgcy_adstlvl_rec.granted_dt <= p_lgcy_adstlvl_rec.approved_dt OR
1570: p_lgcy_adstlvl_rec.cancelled_dt <= p_lgcy_adstlvl_rec.approved_dt OR
1571: p_lgcy_adstlvl_rec.revoked_dt <= p_lgcy_adstlvl_rec.approved_dt THEN
1572: FND_MESSAGE.SET_NAME('IGS','IGS_AV_DTASSO_LE_APPRVDT');
1573: FND_MSG_PUB.ADD;
1574: x_return_status := FALSE;
1575: END IF;
1576: /*
1583: (
1584: p_person_id => p_auth_pers_id,
1585: p_message_name => l_message
1586: ) THEN
1587: FND_MESSAGE.SET_NAME('IGS','IGS_GE_NOT_STAFF_MEMBER');
1588: FND_MSG_PUB.ADD;
1589: x_return_status := FALSE;
1590: END IF;
1591: END;
1599: (
1600: p_exempt_inst => p_lgcy_adstlvl_rec.exemption_institution_cd,
1601: p_message_name => l_message
1602: ) THEN
1603: FND_MESSAGE.SET_NAME('IGS','IGS_AV_INST_CODE_INVALID');
1604: FND_MSG_PUB.ADD;
1605: x_return_status := FALSE;
1606: END IF;
1607: END;
1635: p_message_name => l_message,
1636: p_unit_details_id => p_unit_details_id,
1637: p_tst_rslt_dtls_id => p_tst_rslt_dtls_id
1638: ) THEN
1639: FND_MESSAGE.SET_NAME('IGS',l_message);
1640: FND_MSG_PUB.ADD;
1641: x_return_status := FALSE;
1642: END IF;
1643: END;
1654: p_course_cd => p_lgcy_adstlvl_rec.program_cd,
1655: p_effective_dt => p_lgcy_adstlvl_rec.approved_dt,
1656: p_message_name => l_message
1657: ) THEN
1658: FND_MESSAGE.SET_NAME('IGS',l_message);
1659: FND_MSG_PUB.ADD;
1660: x_return_status := FALSE;
1661: END IF;
1662: END;
1663: /*
1664: Validate that the approved date is less than the expiry date
1665: */
1666: IF p_lgcy_adstlvl_rec.approved_dt >= p_lgcy_adstlvl_rec.expiry_dt THEN
1667: FND_MESSAGE.SET_NAME('IGS','IGS_AV_APRVDT_NOT_GT_EXPDT');
1668: FND_MSG_PUB.ADD;
1669: x_return_status := FALSE;
1670: END IF;
1671: /*
1684: OPEN c_exists (p_person_id,
1685: p_lgcy_adstlvl_rec.program_cd);
1686: FETCH c_exists INTO l_exists;
1687: IF c_exists%NOTFOUND THEN
1688: FND_MESSAGE.SET_NAME('IGS','IGS_AV_PRG_ATTMPT_INVALID');
1689: FND_MSG_PUB.ADD;
1690: x_return_status := FALSE;
1691: END IF;
1692: CLOSE c_exists;
1749: p_unit_details_id => p_unit_details_id,
1750: p_tst_rslt_dtls_id => p_tst_rslt_dtls_id,
1751: p_asu_exmptn_institution_cd => p_lgcy_adstlvl_rec.exemption_institution_cd
1752: ) THEN
1753: FND_MESSAGE.SET_NAME('IGS',l_message);
1754: FND_MSG_PUB.ADD;
1755: x_return_status := FALSE;
1756: END IF; -- function returns TRUE
1757: /*
1803: IF IGS_AV_STD_ULVLBASIS_PKG.GET_PK_FOR_VALIDATION
1804: (
1805: x_av_stnd_unit_lvl_id => p_av_stnd_unit_lvl_id
1806: ) THEN
1807: FND_MESSAGE.SET_NAME('IGS','IGS_AV_ULVLBS_ALREADY_EXISTS');
1808: FND_MSG_PUB.ADD;
1809: x_return_status := 'W';
1810: return x_return_status;
1811: END IF;
1815: IF NOT IGS_AV_STND_UNIT_LVL_PKG.GET_PK_FOR_VALIDATION
1816: (
1817: x_av_stnd_unit_lvl_id => p_av_stnd_unit_lvl_id
1818: ) THEN
1819: FND_MESSAGE.SET_NAME('IGS','IGS_AV_NO_ADV_STND_DET_EXIST');
1820: FND_MSG_PUB.ADD;
1821: x_return_status := 'E';
1822: END IF;
1823: /*
1825: */
1826: IF ((p_lgcy_adstlvl_rec.basis_program_type IS NOT NULL) AND NOT IGS_PS_TYPE_PKG.GET_PK_FOR_VALIDATION(
1827: x_course_type => p_lgcy_adstlvl_rec.basis_program_type
1828: )) THEN
1829: FND_MESSAGE.SET_NAME('IGS','IGS_AV_BAS_CRS_TYP_FK_EXISTS');
1830: FND_MSG_PUB.ADD;
1831: x_return_status := 'E';
1832: END IF;
1833: /*
1835: is greater than 1900 and less than 2100
1836: */
1837: IF ((p_lgcy_adstlvl_rec.basis_year IS NOT NULL) AND ( p_lgcy_adstlvl_rec.basis_year <= 1900 OR
1838: p_lgcy_adstlvl_rec.basis_year >= 2100)) THEN
1839: FND_MESSAGE.SET_NAME('IGS','IGS_AV_BS_YR_BET_1900_2100');
1840: FND_MSG_PUB.ADD;
1841: x_return_status := 'E';
1842: END IF;
1843: /*
1844: Validate that the record parameter BASIS_COMPLETION_IND
1845: must be either 'Y' or 'N'
1846: */
1847: IF ((p_lgcy_adstlvl_rec.basis_completion_ind IS NOT NULL) AND (p_lgcy_adstlvl_rec.basis_completion_ind NOT IN ('Y','N'))) THEN
1848: FND_MESSAGE.SET_NAME('IGS','IGS_AV_BS_CMPL_IND_IN_Y_N');
1849: FND_MSG_PUB.ADD;
1850: x_return_status := 'E';
1851: END IF;
1852:
1888: p_message_name => l_message_name,
1889: p_return_type => l_return_type
1890: );
1891: IF NOT x_return_status THEN
1892: FND_MESSAGE.SET_NAME('IGS', l_message_name);
1893: FND_MSG_PUB.ADD;
1894: END IF;
1895: return x_return_status;
1896: END validate_lvl_bas;