[Home] [Help]
112: OPEN cur_old_ref_values;
113: FETCH cur_old_ref_values INTO old_references;
114: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
115: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
116: IGS_GE_MSG_STACK.ADD;
117: CLOSE cur_old_ref_values;
118: APP_EXCEPTION.RAISE_EXCEPTION;
119: RETURN;
120: END IF;
258: IF c_adv%FOUND THEN
259: CLOSE c_adv;
260: FND_MESSAGE.SET_NAME('IGS','IGS_EN_CANNOT_ATT_PRE_UNIT');
261: FND_MESSAGE.SET_TOKEN('UNIT',new_references.unit_cd);
262: IGS_GE_MSG_STACK.ADD;
263: APP_EXCEPTION.RAISE_EXCEPTION;
264: END IF;
265: CLOSE c_adv;
266: END chk_precluded_unit;
480: -- Bypass IGS_PS_UNIT version must be active and offered error for duplicates.
481: NULL;
482: ELSE
483: FND_MESSAGE.SET_NAME('IGS',v_message_name);
484: IGS_GE_MSG_STACK.ADD;
485: APP_EXCEPTION.RAISE_EXCEPTION;
486: END IF;
487: END IF;
488:
497: -- This is temporary code
498: IF new_references.discontinued_dt IS NOT NULL AND
499: (new_references.unit_attempt_status NOT IN (cst_duplicate,cst_discontin)) THEN
500: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_OPER');
501: IGS_GE_MSG_STACK.ADD;
502: APP_EXCEPTION.RAISE_EXCEPTION;
503: END IF;
504:
505: END IF;
541: old_references.exam_location_cd,
542: v_message_name,
543: new_references.uoo_id) = FALSE THEN
544: FND_MESSAGE.SET_NAME('IGS',v_message_name);
545: IGS_GE_MSG_STACK.ADD;
546: APP_EXCEPTION.RAISE_EXCEPTION;
547: END IF;
548: END IF;
549:
577: new_references.ci_end_dt,
578: '',
579: v_message_name , 'N' ) = FALSE THEN
580: FND_MESSAGE.SET_NAME('IGS',v_message_name);
581: IGS_GE_MSG_STACK.ADD;
582: APP_EXCEPTION.RAISE_EXCEPTION;
583: END IF;
584:
585: -- Validate that student IGS_PS_UNIT attempt can only be confirmed or
600: v_effective_dt,
601: new_references.uoo_id,
602: v_message_name) = FALSE THEN
603: FND_MESSAGE.SET_NAME('IGS',v_message_name);
604: IGS_GE_MSG_STACK.ADD;
605: APP_EXCEPTION.RAISE_EXCEPTION;
606: END IF;
607: END IF;
608: -- Validate IGS_RU_RULE waived date
612: new_references.enrolled_dt,
613: v_rule_waived_person_id,
614: v_message_name) = FALSE THEN
615: FND_MESSAGE.SET_NAME('IGS',v_message_name);
616: IGS_GE_MSG_STACK.ADD;
617: APP_EXCEPTION.RAISE_EXCEPTION;
618: ELSE
619: -- Set IGS_RU_RULE waived IGS_PE_PERSON id from oracle username
620: IF new_references.rule_waived_person_id IS NULL THEN
640: new_references.unit_attempt_status,
641: new_references.discontinued_dt,
642: v_message_name,'N') = FALSE THEN
643: FND_MESSAGE.SET_NAME('IGS',v_message_name);
644: IGS_GE_MSG_STACK.ADD;
645: APP_EXCEPTION.RAISE_EXCEPTION;
646:
647: END IF;
648: END IF;
668: FND_MESSAGE.SET_NAME('IGS',v_message_name);
669: IF v_message_name = 'IGS_SS_EN_INVLD_ADMIN_UNITST' THEN
670: FND_MESSAGE.SET_TOKEN('LIST',v_message_token);
671: END IF;
672: IGS_GE_MSG_STACK.ADD;
673: APP_EXCEPTION.RAISE_EXCEPTION;
674: END IF;
675: END IF;
676: END IF;
685: new_references.cal_type,
686: new_references.ci_sequence_number,
687: v_message_name) = FALSE THEN
688: FND_MESSAGE.SET_NAME('IGS',v_message_name);
689: IGS_GE_MSG_STACK.ADD;
690: APP_EXCEPTION.RAISE_EXCEPTION;
691: END IF;
692: END IF;
693: -- validate research units being inserted or confirmed.
710: new_references.ci_sequence_number,
711: v_message_name ,
712: 'N' ) = FALSE THEN
713: FND_MESSAGE.SET_NAME('IGS',v_message_name);
714: IGS_GE_MSG_STACK.ADD;
715: APP_EXCEPTION.RAISE_EXCEPTION;
716: END IF;
717: END IF;
718:
736: new_references.unit_cd,
737: new_references.version_number,
738: v_message_name,'N' ) = FALSE THEN
739: FND_MESSAGE.SET_NAME('IGS',v_message_name);
740: IGS_GE_MSG_STACK.ADD;
741: APP_EXCEPTION.RAISE_EXCEPTION;
742: END IF;
743: END IF;
744:
831: new_references.course_cd,
832: new_references.unit_attempt_status,
833: v_message_name) = FALSE THEN
834: FND_MESSAGE.SET_NAME('IGS',v_message_name);
835: IGS_GE_MSG_STACK.ADD;
836: APP_EXCEPTION.RAISE_EXCEPTION;
837: END IF;
838: -- Validate that teaching period is not prior to commencement date
839: -- with the exception of DUPLICATE IGS_PS_UNIT attempts
851: NULL,
852: 'T', -- Validation called from trigger
853: v_message_name) = FALSE THEN
854: FND_MESSAGE.SET_NAME('IGS',v_message_name);
855: IGS_GE_MSG_STACK.ADD;
856: APP_EXCEPTION.RAISE_EXCEPTION;
857: END IF;
858: END IF;
859:
874: p_duplicate_course_cd,
875: v_message_name,
876: new_references.uoo_id) = FALSE THEN
877: FND_MESSAGE.SET_NAME('IGS',v_message_name);
878: IGS_GE_MSG_STACK.ADD;
879: APP_EXCEPTION.RAISE_EXCEPTION;
880: END IF;
881: END IF;
882:
917: new_references.administrative_unit_status,
918: v_message_name,
919: new_references.uoo_id) = FALSE THEN
920: FND_MESSAGE.SET_NAME('IGS',v_message_name);
921: IGS_GE_MSG_STACK.ADD;
922: APP_EXCEPTION.RAISE_EXCEPTION;
923: END IF;
924: END IF;
925: ELSE
955: new_references.administrative_unit_status,
956: v_message_name,
957: new_references.uoo_id) = FALSE THEN
958: FND_MESSAGE.SET_NAME('IGS',v_message_name);
959: IGS_GE_MSG_STACK.ADD;
960: APP_EXCEPTION.RAISE_EXCEPTION;
961: END IF;
962: END IF;
963: END IF;
977: new_references.version_number,
978: new_references.alternative_title,
979: v_message_name) = FALSE THEN
980: FND_MESSAGE.SET_NAME('IGS',v_message_name);
981: IGS_GE_MSG_STACK.ADD;
982: APP_EXCEPTION.RAISE_EXCEPTION;
983: END IF;
984: END IF;
985: END IF; --IF IGS_EN_SU_ATTEMPT_PKG.pkg_source_of_drop IS NULL OR IGS_EN_SU_ATTEMPT_PKG.pkg_source_of_drop <> 'PLAN' THEN
1018: v_message_name,
1019: new_references.uoo_id, --New parameter uoo_id is added w.r.t. 2375757 by kkillams
1020: new_references.no_assessment_ind) = FALSE THEN
1021: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1022: IGS_GE_MSG_STACK.ADD;
1023: APP_EXCEPTION.RAISE_EXCEPTION;
1024: END IF;
1025: END IF;
1026: END IF; -- IF new_references.no_assessment_ind <> 'Y' THEN
1031: new_references.override_achievable_cp,
1032: new_references.override_credit_reason,
1033: v_message_name) = FALSE THEN
1034: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1035: IGS_GE_MSG_STACK.ADD;
1036: APP_EXCEPTION.RAISE_EXCEPTION;
1037: END IF;
1038:
1039: --ading the following validations as part of placement build to populate the
1184: SYSDATE,
1185: v_message_name,
1186: old_references.uoo_id) = FALSE THEN
1187: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1188: IGS_GE_MSG_STACK.ADD;
1189: APP_EXCEPTION.RAISE_EXCEPTION;
1190: END IF;
1191: -- Save student IGS_PS_COURSE attempt details in package table information
1192: -- so that IGS_PS_COURSE attempt status can be updated in
1195: old_references.person_id,
1196: old_references.course_cd,
1197: v_message_name) = FALSE THEN
1198: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1199: IGS_GE_MSG_STACK.ADD;
1200: APP_EXCEPTION.RAISE_EXCEPTION;
1201: END IF;
1202: -- Save student IGS_PS_COURSE attempt details in package table information
1203: -- so that student IGS_PS_UNIT transfer detail can be deleted in an
1211: old_references.unit_attempt_status,
1212: v_message_name,
1213: old_references.uoo_id) = FALSE THEN
1214: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1215: IGS_GE_MSG_STACK.ADD;
1216: APP_EXCEPTION.RAISE_EXCEPTION;
1217: END IF;
1218: IF old_references.unit_attempt_status = 'ENROLLED' THEN
1219: v_return_val := IGS_GE_GEN_003.GENP_INS_STDNT_TODO(old_references.person_id,
1224: IF NOT IGS_EN_SUA_API.chk_sup_del_alwd( old_references.person_id,
1225: old_references.course_cd,
1226: old_references.uoo_id) THEN
1227: FND_MESSAGE.SET_NAME('IGS','IGS_EN_SUP_DEL_NOTALWD');
1228: IGS_GE_MSG_STACK.ADD;
1229: APP_EXCEPTION.RAISE_EXCEPTION;
1230: END IF;
1231:
1232: END IF; -- IF p_deleting THEN
1249: x_course_cd => new_references.course_cd,
1250: x_version_number => new_references.version_number
1251: ) THEN
1252: FND_MESSAGE.SET_NAME('IGS','IGS_GE_MULTI_ORG_DUP_REC');
1253: IGS_GE_MSG_STACK.ADD;
1254: APP_EXCEPTION.RAISE_EXCEPTION;
1255: END IF;
1256:
1257: END Check_Uniqueness;
1412: new_references.person_id,
1413: new_references.course_cd,
1414: v_message_name) = FALSE THEN
1415: FND_MESSAGE.SET_NAME('IGS',v_message_name);
1416: IGS_GE_MSG_STACK.ADD;
1417: APP_EXCEPTION.RAISE_EXCEPTION;
1418: END IF;
1419: v_rowid_saved := TRUE;
1420: END IF;
1512: NULL;
1513: ELSIF NOT IGS_AD_ADM_UNIT_STAT_PKG.Get_PK_For_Validation (
1514: new_references.administrative_unit_status,'N') THEN
1515: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1516: IGS_GE_MSG_STACK.ADD;
1517: APP_EXCEPTION.RAISE_EXCEPTION;
1518: END IF;
1519:
1520: -- Check whether Grading schema code and gs_version_number are present in the master table IGS_AS_GRD_SCHEMA
1533: ELSIF NOT IGS_AS_GRD_SCHEMA_PKG.Get_PK_For_Validation (
1534: new_references.grading_schema_code,
1535: new_references.gs_version_number ) THEN
1536: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1537: IGS_GE_MSG_STACK.ADD;
1538: APP_EXCEPTION.RAISE_EXCEPTION;
1539: END IF;
1540:
1541: IF (((old_references.CAL_TYPE = new_references.cal_type) AND
1552: new_references.ci_sequence_number,
1553: new_references.ci_start_dt,
1554: new_references.ci_end_dt ) THEN
1555: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1556: IGS_GE_MSG_STACK.ADD;
1557: APP_EXCEPTION.RAISE_EXCEPTION;
1558: END IF;
1559:
1560: IF (((old_references.exam_location_cd = new_references.exam_location_cd)) OR
1563: ELSIF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
1564: new_references.exam_location_cd,'N'
1565: ) THEN
1566: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1567: IGS_GE_MSG_STACK.ADD;
1568: APP_EXCEPTION.RAISE_EXCEPTION;
1569: END IF;
1570: IF (((old_references.rule_waived_person_id = new_references.rule_waived_person_id)) OR
1571: ((new_references.rule_waived_person_id IS NULL))) THEN
1572: NULL;
1573: ELSIF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
1574: new_references.rule_waived_person_id ) THEN
1575: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1576: IGS_GE_MSG_STACK.ADD;
1577: APP_EXCEPTION.RAISE_EXCEPTION;
1578: END IF;
1579: IF (((old_references.person_id = new_references.person_id) AND
1580: (old_references.course_cd = new_references.course_cd)) OR
1585: new_references.person_id,
1586: new_references.course_cd
1587: ) THEN
1588: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1589: IGS_GE_MSG_STACK.ADD;
1590: APP_EXCEPTION.RAISE_EXCEPTION;
1591: END IF;
1592: IF (((old_references.unit_attempt_status = new_references.unit_attempt_status)) OR
1593: ((new_references.unit_attempt_status IS NULL)) OR (IGS_EN_SU_ATTEMPT_PKG.pkg_source_of_drop IS NOT NULL
1595: NULL;
1596: ELSIF NOT IGS_LOOKUPS_VIEW_PKG.GET_PK_FOR_VALIDATION('UNIT_ATTEMPT_STATUS',
1597: new_references.unit_attempt_status) THEN
1598: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1599: IGS_GE_MSG_STACK.ADD;
1600: APP_EXCEPTION.RAISE_EXCEPTION;
1601: END IF;
1602: IF (((old_references.sup_unit_cd = new_references.sup_unit_cd) AND
1603: (old_references.sup_version_number = new_references.sup_version_number)) OR
1608: new_references.sup_unit_cd,
1609: new_references.sup_version_number
1610: ) THEN
1611: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1612: IGS_GE_MSG_STACK.ADD;
1613: APP_EXCEPTION.RAISE_EXCEPTION;
1614: END IF;
1615: IF (((old_references.unit_cd = new_references.unit_cd) AND
1616: (old_references.version_number = new_references.version_number) AND
1633: new_references.location_cd,
1634: new_references.unit_class
1635: ) THEN
1636: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1637: IGS_GE_MSG_STACK.ADD;
1638: APP_EXCEPTION.RAISE_EXCEPTION;
1639: END IF;
1640: IF ( (old_references.dcnt_reason_cd = new_references.dcnt_reason_cd) OR
1641: (new_references.dcnt_reason_Cd IS NULL ) ) THEN
1643: ELSIF NOT IGS_EN_DCNT_REASONCD_PKG.Get_PK_For_Validation (
1644: new_references.dcnt_reason_cd
1645: ) THEN
1646: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1647: IGS_GE_MSG_STACK.ADD;
1648: APP_EXCEPTION.RAISE_EXCEPTION;
1649: END IF;
1650:
1651: IF ( (old_references.rsv_seat_ext_id = new_references.rsv_seat_ext_id) OR
1654: ELSIF NOT IGS_PS_RSV_EXT_PKG.Get_PK_For_Validation (
1655: new_references.rsv_seat_ext_id
1656: ) THEN
1657: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1658: IGS_GE_MSG_STACK.ADD;
1659: APP_EXCEPTION.RAISE_EXCEPTION;
1660: END IF;
1661:
1662:
1687: new_references.unit_cd
1688: ) THEN
1689:
1690: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1691: IGS_GE_MSG_STACK.ADD;
1692: APP_EXCEPTION.RAISE_EXCEPTION;
1693: END IF;
1694: END IF;
1695:
1795: OPEN cur_rowid;
1796: FETCH cur_rowid INTO lv_rowid;
1797: IF (cur_rowid%FOUND) THEN
1798: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_CI_UFK');
1799: IGS_GE_MSG_STACK.ADD;
1800: CLOSE cur_rowid;
1801: APP_EXCEPTION.RAISE_EXCEPTION;
1802: RETURN;
1803: END IF;
1816: OPEN cur_rowid;
1817: FETCH cur_rowid INTO lv_rowid;
1818: IF (cur_rowid%FOUND) THEN
1819: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_LOC_FK');
1820: IGS_GE_MSG_STACK.ADD;
1821: CLOSE cur_rowid;
1822: APP_EXCEPTION.RAISE_EXCEPTION;
1823: RETURN;
1824: END IF;
1841: OPEN cur_rowid;
1842: FETCH cur_rowid INTO lv_rowid;
1843: IF (cur_rowid%FOUND) THEN
1844: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_GS_FK');
1845: IGS_GE_MSG_STACK.ADD;
1846: CLOSE cur_rowid;
1847: APP_EXCEPTION.RAISE_EXCEPTION;
1848: RETURN;
1849: END IF;
1862: OPEN cur_rowid;
1863: FETCH cur_rowid INTO lv_rowid;
1864: IF (cur_rowid%FOUND) THEN
1865: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_PE_FK');
1866: IGS_GE_MSG_STACK.ADD;
1867: CLOSE cur_rowid;
1868: APP_EXCEPTION.RAISE_EXCEPTION;
1869: RETURN;
1870: END IF;
1885: OPEN cur_rowid;
1886: FETCH cur_rowid INTO lv_rowid;
1887: IF (cur_rowid%FOUND) THEN
1888: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_SCA_FK');
1889: IGS_GE_MSG_STACK.ADD;
1890: CLOSE cur_rowid;
1891: APP_EXCEPTION.RAISE_EXCEPTION;
1892: RETURN;
1893: END IF;
1906: OPEN cur_rowid;
1907: FETCH cur_rowid INTO lv_rowid;
1908: IF (cur_rowid%FOUND) THEN
1909: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_LKUPV_FK');
1910: IGS_GE_MSG_STACK.ADD;
1911: CLOSE cur_rowid;
1912: APP_EXCEPTION.RAISE_EXCEPTION;
1913: RETURN;
1914: END IF;
1931: OPEN cur_rowid;
1932: FETCH cur_rowid INTO lv_rowid;
1933: IF (cur_rowid%FOUND) THEN
1934: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_SUP_UV_FK');
1935: IGS_GE_MSG_STACK.ADD;
1936: CLOSE cur_rowid;
1937: APP_EXCEPTION.RAISE_EXCEPTION;
1938: RETURN;
1939: END IF;
1952: OPEN cur_rowid;
1953: FETCH cur_rowid INTO lv_rowid;
1954: IF (cur_rowid%FOUND) THEN
1955: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_UN_FK');
1956: IGS_GE_MSG_STACK.ADD;
1957: CLOSE cur_rowid;
1958: APP_EXCEPTION.RAISE_EXCEPTION;
1959: RETURN;
1960: END IF;
1983: OPEN cur_rowid;
1984: FETCH cur_rowid INTO lv_rowid;
1985: IF (cur_rowid%FOUND) THEN
1986: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_UOO_UFK');
1987: IGS_GE_MSG_STACK.ADD;
1988: CLOSE cur_rowid;
1989: APP_EXCEPTION.RAISE_EXCEPTION;
1990: RETURN;
1991: END IF;
2004: OPEN cur_rowid;
2005: FETCH cur_rowid INTO lv_rowid;
2006: IF (cur_rowid%FOUND) THEN
2007: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUA_UOO_UFK');
2008: IGS_GE_MSG_STACK.ADD;
2009: CLOSE cur_rowid;
2010: APP_EXCEPTION.RAISE_EXCEPTION;
2011: RETURN;
2012: END IF;
2031: OPEN cur_rowid;
2032: FETCH cur_rowid INTO lv_rowid;
2033: IF (cur_rowid%FOUND) THEN
2034: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SUA_GRD_FK');
2035: IGS_GE_MSG_STACK.ADD;
2036: CLOSE cur_rowid;
2037: APP_EXCEPTION.RAISE_EXCEPTION;
2038: RETURN;
2039: END IF;
2057: OPEN cur_rowid;
2058: FETCH cur_rowid INTO lv_rowid;
2059: IF (cur_rowid%FOUND) THEN
2060: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SUA_GRD_FK');
2061: IGS_GE_MSG_STACK.ADD;
2062: CLOSE cur_rowid;
2063: APP_EXCEPTION.RAISE_EXCEPTION;
2064: RETURN;
2065: END IF;
2313: -- amuthu 02-Jul-2002
2314:
2315: IF (USEC_CUR_ROW.UNIT_SECTION_STATUS IN ('CANCELLED','PLANNED','NOT_OFFERED') ) THEN
2316: FND_MESSAGE.SET_NAME('IGS','IGS_EN_SS_CANNOT_WAITLIST');
2317: IGS_GE_MSG_STACK.ADD;
2318: APP_EXCEPTION.RAISE_EXCEPTION;
2319: END IF;
2320:
2321: -- multiple unit sections validation is performed for SWAP in add units api
2352: NEW_REFERENCES.course_cd,
2353: NEW_REFERENCES.uoo_id
2354: ) THEN
2355: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
2356: IGS_GE_MSG_STACK.ADD;
2357: APP_EXCEPTION.RAISE_EXCEPTION;
2358: END IF;
2359:
2360: Check_Constraints;
2406: NEW_REFERENCES.course_cd,
2407: NEW_REFERENCES.uoo_id
2408: ) THEN
2409: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
2410: IGS_GE_MSG_STACK.ADD;
2411: APP_EXCEPTION.RAISE_EXCEPTION;
2412: END IF;
2413: Check_Constraints;
2414: Check_Uniqueness;
2609: FND_MESSAGE.SET_TOKEN ('SSTAT',l_sup_sub_unit_status);
2610: ELSE
2611: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_INVALID_SUP');
2612: END IF;
2613: IGS_GE_MSG_STACK.ADD;
2614: APP_EXCEPTION.RAISE_EXCEPTION;
2615: END IF;
2616:
2617: END IF; --IF old_references.unit_attempt_status <> new_references.unit_attempt_status THEN
2638: FND_MESSAGE.SET_TOKEN ('SSTAT',l_sup_sub_unit_status);
2639: ELSE
2640: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_INVALID_SUP');
2641: END IF;
2642: IGS_GE_MSG_STACK.ADD;
2643: APP_EXCEPTION.RAISE_EXCEPTION;
2644:
2645: END IF;
2646: AfterRowInsertUpdateDelete3 ( p_inserting => TRUE,
2846: FETCH c_conflict_suas INTO l_dummy;
2847: IF c_conflict_suas%FOUND THEN
2848: CLOSE c_conflict_suas;
2849: fnd_message.set_name('IGS', 'IGS_EN_REP_REENR_NOT_ALWD');
2850: IGS_GE_MSG_STACK.ADD;
2851: APP_EXCEPTION.RAISE_EXCEPTION;
2852: END IF;
2853: CLOSE c_conflict_suas;
2854: END IF; --renroll check
2913: END IF;
2914: CLOSE c_term;
2915: IF l_message_name IS NOT NULL THEN
2916: fnd_message.set_name('IGS', l_message_name);
2917: IGS_GE_MSG_STACK.ADD;
2918: app_exception.raise_exception;
2919: END IF;
2920: END IF;
2921: END LOOP;
3202: X_PROGRAM_UPDATE_DATE := SYSDATE;
3203: END IF;
3204: ELSE
3205: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
3206: IGS_GE_MSG_STACK.ADD;
3207: APP_EXCEPTION.RAISE_EXCEPTION;
3208: END IF;
3209: --
3210: Before_DML(
3480:
3481: EXCEPTION
3482: WHEN resource_busy THEN
3483: fnd_message.set_name('FND', 'FND_LOCK_RECORD_ERROR');
3484: IGS_GE_MSG_STACK.ADD;
3485: APP_EXCEPTION.RAISE_EXCEPTION;
3486:
3487: WHEN OTHERS THEN
3488: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
3487: WHEN OTHERS THEN
3488: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
3489: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
3490: fnd_message.set_token ('ERR_CD', SQLCODE);
3491: igs_ge_msg_stack.add;
3492: igs_sc_gen_001.unset_ctx('R');
3493: app_exception.raise_exception;
3494: ELSE
3495: igs_sc_gen_001.unset_ctx('R');
3648: OPEN c1;
3649: FETCH c1 INTO tlinfo;
3650: IF (c1%NOTFOUND) THEN
3651: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
3652: IGS_GE_MSG_STACK.ADD;
3653: APP_EXCEPTION.RAISE_EXCEPTION;
3654: CLOSE c1;
3655: RETURN;
3656: END IF;
3837: ) THEN
3838: NULL;
3839: ELSE
3840: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
3841: IGS_GE_MSG_STACK.ADD;
3842: APP_EXCEPTION.RAISE_EXCEPTION;
3843: END IF;
3844: RETURN;
3845: END LOCK_ROW;
3950: X_LAST_UPDATE_LOGIN := -1;
3951: END IF;
3952: ELSE
3953: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
3954: IGS_GE_MSG_STACK.ADD;
3955: APP_EXCEPTION.RAISE_EXCEPTION;
3956: END IF;
3957:
3958: Before_DML(
4131: SS_SOURCE_IND = NEW_REFERENCES. SS_SOURCE_IND
4132: WHERE ROWID = X_ROWID;
4133: IF (SQL%NOTFOUND) THEN
4134: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
4135: igs_ge_msg_stack.add;
4136: igs_sc_gen_001.unset_ctx('R');
4137: app_exception.raise_exception;
4138: END IF;
4139: IF (x_mode = 'S') THEN
4148: --
4149: EXCEPTION
4150: WHEN resource_busy THEN
4151: fnd_message.set_name('FND', 'FND_LOCK_RECORD_ERROR');
4152: IGS_GE_MSG_STACK.ADD;
4153: APP_EXCEPTION.RAISE_EXCEPTION;
4154:
4155: WHEN OTHERS THEN
4156: IF (SQLCODE = (-28115)) THEN
4155: WHEN OTHERS THEN
4156: IF (SQLCODE = (-28115)) THEN
4157: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
4158: fnd_message.set_token ('ERR_CD', SQLCODE);
4159: igs_ge_msg_stack.add;
4160: igs_sc_gen_001.unset_ctx('R');
4161: app_exception.raise_exception;
4162: ELSE
4163: igs_sc_gen_001.unset_ctx('R');
4536: WHERE ROWID = X_ROWID;
4537:
4538: IF (SQL%NOTFOUND) THEN
4539: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
4540: igs_ge_msg_stack.add;
4541: igs_sc_gen_001.unset_ctx('R');
4542: app_exception.raise_exception;
4543: END IF;
4544: IF (x_mode = 'S') THEN
4598: IF UPPER(column_name) = 'ADMINISTRATIVE_UNIT_STATUS' OR
4599: column_name IS NULL THEN
4600: IF new_references.ADMINISTRATIVE_UNIT_STATUS <> UPPER(new_references.ADMINISTRATIVE_UNIT_STATUS) THEN
4601: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4602: IGS_GE_MSG_STACK.ADD;
4603: APP_EXCEPTION.RAISE_EXCEPTION;
4604: END IF;
4605: END IF;
4606: IF UPPER(column_name) = 'ALTERNATIVE_TITLE' OR
4606: IF UPPER(column_name) = 'ALTERNATIVE_TITLE' OR
4607: column_name IS NULL THEN
4608: IF new_references.ALTERNATIVE_TITLE <> UPPER(new_references.ALTERNATIVE_TITLE) THEN
4609: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4610: IGS_GE_MSG_STACK.ADD;
4611: APP_EXCEPTION.RAISE_EXCEPTION;
4612: END IF;
4613: END IF;
4614: IF UPPER(column_name) = 'CAL_TYPE' OR
4614: IF UPPER(column_name) = 'CAL_TYPE' OR
4615: column_name IS NULL THEN
4616: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) THEN
4617: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4618: IGS_GE_MSG_STACK.ADD;
4619: APP_EXCEPTION.RAISE_EXCEPTION;
4620: END IF;
4621: END IF;
4622: IF UPPER(column_name) = 'COURSE_CD' OR
4622: IF UPPER(column_name) = 'COURSE_CD' OR
4623: column_name IS NULL THEN
4624: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) THEN
4625: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4626: IGS_GE_MSG_STACK.ADD;
4627: APP_EXCEPTION.RAISE_EXCEPTION;
4628: END IF;
4629: END IF;
4630: IF UPPER(column_name) = 'EXAM_LOCATION_CD' OR
4630: IF UPPER(column_name) = 'EXAM_LOCATION_CD' OR
4631: column_name IS NULL THEN
4632: IF new_references.EXAM_LOCATION_CD <> UPPER(new_references.EXAM_LOCATION_CD) THEN
4633: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4634: IGS_GE_MSG_STACK.ADD;
4635: APP_EXCEPTION.RAISE_EXCEPTION;
4636: END IF;
4637: END IF;
4638: IF UPPER(column_name) = 'LOCATION_CD' OR
4638: IF UPPER(column_name) = 'LOCATION_CD' OR
4639: column_name IS NULL THEN
4640: IF new_references.LOCATION_CD <> UPPER(new_references.LOCATION_CD) THEN
4641: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4642: IGS_GE_MSG_STACK.ADD;
4643: APP_EXCEPTION.RAISE_EXCEPTION;
4644: END IF;
4645: END IF;
4646: IF UPPER(column_name) = 'NO_ASSESSMENT_IND' OR
4646: IF UPPER(column_name) = 'NO_ASSESSMENT_IND' OR
4647: column_name IS NULL THEN
4648: IF new_references.NO_ASSESSMENT_IND <> UPPER(new_references.NO_ASSESSMENT_IND) THEN
4649: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4650: IGS_GE_MSG_STACK.ADD;
4651: APP_EXCEPTION.RAISE_EXCEPTION;
4652: END IF;
4653: END IF;
4654: IF UPPER(column_name) = 'SUP_UNIT_CD' OR
4654: IF UPPER(column_name) = 'SUP_UNIT_CD' OR
4655: column_name IS NULL THEN
4656: IF new_references.SUP_UNIT_CD <> UPPER(new_references.SUP_UNIT_CD) THEN
4657: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4658: IGS_GE_MSG_STACK.ADD;
4659: APP_EXCEPTION.RAISE_EXCEPTION;
4660: END IF;
4661: END IF;
4662: IF UPPER(column_name) = 'UNIT_ATTEMPT_STATUS' OR
4662: IF UPPER(column_name) = 'UNIT_ATTEMPT_STATUS' OR
4663: column_name IS NULL THEN
4664: IF new_references.UNIT_ATTEMPT_STATUS <> UPPER(new_references.UNIT_ATTEMPT_STATUS) THEN
4665: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4666: IGS_GE_MSG_STACK.ADD;
4667: APP_EXCEPTION.RAISE_EXCEPTION;
4668: END IF;
4669: END IF;
4670: IF UPPER(column_name) = 'UNIT_CD' OR
4670: IF UPPER(column_name) = 'UNIT_CD' OR
4671: column_name IS NULL THEN
4672: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) THEN
4673: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4674: IGS_GE_MSG_STACK.ADD;
4675: APP_EXCEPTION.RAISE_EXCEPTION;
4676: END IF;
4677: END IF;
4678: IF UPPER(column_name) = 'UNIT_CLASS' OR
4678: IF UPPER(column_name) = 'UNIT_CLASS' OR
4679: column_name IS NULL THEN
4680: IF new_references.UNIT_CLASS <> UPPER(new_references.UNIT_CLASS) THEN
4681: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4682: IGS_GE_MSG_STACK.ADD;
4683: APP_EXCEPTION.RAISE_EXCEPTION;
4684: END IF;
4685: END IF;
4686: IF UPPER(column_name) = 'OVERRIDE_EFTSU' OR
4686: IF UPPER(column_name) = 'OVERRIDE_EFTSU' OR
4687: column_name IS NULL THEN
4688: IF new_references.OVERRIDE_EFTSU < 0 OR new_references.OVERRIDE_EFTSU > 9999.999 THEN
4689: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4690: IGS_GE_MSG_STACK.ADD;
4691: APP_EXCEPTION.RAISE_EXCEPTION;
4692: END IF;
4693: END IF;
4694: IF UPPER(column_name) = 'OVERRIDE_ENROLLED_CP' OR
4694: IF UPPER(column_name) = 'OVERRIDE_ENROLLED_CP' OR
4695: column_name IS NULL THEN
4696: IF new_references.OVERRIDE_ENROLLED_CP < 0 OR new_references.OVERRIDE_ENROLLED_CP> 999.999 THEN
4697: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4698: IGS_GE_MSG_STACK.ADD;
4699: APP_EXCEPTION.RAISE_EXCEPTION;
4700: END IF;
4701: END IF;
4702: IF UPPER(column_name) = 'NO_ASSESSMENT_IND' OR
4702: IF UPPER(column_name) = 'NO_ASSESSMENT_IND' OR
4703: column_name IS NULL THEN
4704: IF new_references.NO_ASSESSMENT_IND NOT IN ('Y','N') THEN
4705: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4706: IGS_GE_MSG_STACK.ADD;
4707: APP_EXCEPTION.RAISE_EXCEPTION;
4708: END IF;
4709: END IF;
4710: IF UPPER(column_name) = 'OVERRIDE_ACHIEVABLE_CP' OR
4710: IF UPPER(column_name) = 'OVERRIDE_ACHIEVABLE_CP' OR
4711: column_name IS NULL THEN
4712: IF new_references.OVERRIDE_ACHIEVABLE_CP < 0 OR new_references.OVERRIDE_ACHIEVABLE_CP > 999.999 THEN
4713: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4714: IGS_GE_MSG_STACK.ADD;
4715: APP_EXCEPTION.RAISE_EXCEPTION;
4716: END IF;
4717: END IF;
4718: IF UPPER(column_name) = 'DCNT_REASON_CD' OR
4718: IF UPPER(column_name) = 'DCNT_REASON_CD' OR
4719: column_name IS NULL THEN
4720: IF new_references.DCNT_REASON_CD <> UPPER(new_references.DCNT_REASON_CD) THEN
4721: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
4722: IGS_GE_MSG_STACK.ADD;
4723: APP_EXCEPTION.RAISE_EXCEPTION;
4724: END IF;
4725:
4726: END IF;