[Home] [Help]
114: FETCH cur_old_ref_values INTO old_references;
115: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
116: CLOSE cur_old_ref_values;
117: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: RETURN;
121: END IF;
122: CLOSE cur_old_ref_values;
449: new_references.lapsed_dt,
450: v_message_name,
451: 'N') = FALSE THEN
452: fnd_message.set_name('IGS',v_message_name);
453: IGS_GE_MSG_STACK.ADD;
454: app_exception.raise_exception;
455: END IF;
456:
457: END IF;
468: OLD_references.commencement_dt,
469: OLD_references.attendance_type,
470: v_message_name) = FALSE THEN
471: fnd_message.set_name('IGS',v_message_name);
472: IGS_GE_MSG_STACK.ADD;
473: app_exception.raise_exception;
474: END IF;
475: END IF;
476:
488: new_references.adm_nominated_course_cd,
489: NULL,
490: v_message_name) = FALSE THEN
491: fnd_message.set_name('IGS',v_message_name);
492: IGS_GE_MSG_STACK.ADD;
493: app_exception.raise_exception;
494: END IF;
495: END IF;
496: -- Validate discontinuation details
512: new_references.commencement_dt,
513: v_message_name,
514: 'N') = FALSE THEN
515: fnd_message.set_name('IGS',v_message_name);
516: IGS_GE_MSG_STACK.ADD;
517: app_exception.raise_exception;
518: END IF;
519: END IF;
520: -- Validate discontinuation reason code
533: new_references.discontinued_dt,
534: v_message_name,
535: 'N') = FALSE THEN
536: fnd_message.set_name('IGS',v_message_name);
537: IGS_GE_MSG_STACK.ADD;
538: app_exception.raise_exception;
539: END IF;
540: END IF;
541: -- Validate completing the course
545: IF new_references.course_rqrmnt_complete_ind = 'Y' THEN
546: -- Validate that SCA Status is not 'COMPLETED' or 'UNCONFIRM'.
547: IF new_references.course_attempt_status IN ('COMPLETED','UNCONFIRM') THEN
548: Fnd_Message.set_name('IGS','IGS_PR_CANNOT_SET_COMPL_IND');
549: IGS_GE_MSG_STACK.ADD;
550: App_Exception.Raise_exception;
551: END IF;
552: -- Validate that no unit sets are incomplete or un-ended.
553: IF IGS_PR_VAL_SCA.prgp_val_susa_cmplt (
554: new_references.person_id,
555: new_references.course_cd,
556: v_message_name) = FALSE THEN
557: fnd_message.set_name('IGS',v_message_name);
558: IGS_GE_MSG_STACK.ADD;
559: app_exception.raise_exception;
560: END IF;
561:
562:
563: -- Validate that status is not DISCONTIN, INTERMIT or LAPSED. If so, the
564: -- course requirements complete indicator cannot be set.
565: IF new_references.course_attempt_status = 'DISCONTIN' THEN
566: Fnd_Message.set_name('IGS','IGS_PR_DISCON_DT_BE_LIFTED');
567: IGS_GE_MSG_STACK.ADD;
568: App_Exception.Raise_exception;
569: ELSIF new_references.course_attempt_status = 'LAPSED' THEN
570: Fnd_Message.set_name('IGS','IGS_PR_LAPSED_DT_BE_LIFTED');
571: IGS_GE_MSG_STACK.ADD;
567: IGS_GE_MSG_STACK.ADD;
568: App_Exception.Raise_exception;
569: ELSIF new_references.course_attempt_status = 'LAPSED' THEN
570: Fnd_Message.set_name('IGS','IGS_PR_LAPSED_DT_BE_LIFTED');
571: IGS_GE_MSG_STACK.ADD;
572: App_Exception.Raise_exception;
573: ELSIF new_references.course_attempt_status = 'INTERMIT' THEN
574: Fnd_Message.set_name('IGS','IGS_PR_INTERMISSION_BE_LIFTED');
575: IGS_GE_MSG_STACK.ADD;
571: IGS_GE_MSG_STACK.ADD;
572: App_Exception.Raise_exception;
573: ELSIF new_references.course_attempt_status = 'INTERMIT' THEN
574: Fnd_Message.set_name('IGS','IGS_PR_INTERMISSION_BE_LIFTED');
575: IGS_GE_MSG_STACK.ADD;
576: App_Exception.Raise_exception;
577: END IF;
578: ELSE
579: -- Check that associated IGS_GR_GRADUAND record does not have a status
585: NULL,
586: NULL,
587: v_message_name) = FALSE THEN
588: fnd_message.set_name('IGS',v_message_name);
589: IGS_GE_MSG_STACK.ADD;
590: app_exception.raise_exception;
591: END IF;
592: END IF;
593: END IF;
607: new_references.course_rqrmnts_complete_dt,
608: v_message_name,
609: 'N') = FALSE THEN
610: fnd_message.set_name('IGS',v_message_name);
611: IGS_GE_MSG_STACK.ADD;
612: app_exception.raise_exception;
613: END IF;
614: END IF;
615: -- Validate fee category is open
619: IF Igs_ad_Val_fcm.finp_val_fc_closed(
620: new_references.fee_cat,
621: v_message_name) = FALSE THEN
622: fnd_message.set_name('IGS',v_message_name);
623: IGS_GE_MSG_STACK.ADD;
624: app_exception.raise_exception;
625: END IF;
626: END IF;
627: -- Set course attempt status
815: new_references.adm_nominated_course_cd,
816: new_references.adm_sequence_number,
817: v_message_name) = FALSE THEN
818: fnd_message.set_name('IGS',v_message_name);
819: IGS_GE_MSG_STACK.ADD;
820: app_exception.raise_exception;
821: END IF;
822: END IF;
823: END IF;
969: FETCH cur_pers_type INTO l_person_type;
970: CLOSE cur_pers_type;
971: IF l_person_type IS NULL THEN
972: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
973: IGS_GE_MSG_STACK.ADD;
974: App_Exception.Raise_Exception;
975: END IF;
976:
977: l_method := 'PERSON_ENROL_UNIT_SECT';
1013: FETCH cur_pers_type INTO l_person_type;
1014: CLOSE cur_pers_type;
1015: IF l_person_type IS NULL THEN
1016: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
1017: IGS_GE_MSG_STACK.ADD;
1018: App_Exception.Raise_Exception;
1019: END IF;
1020:
1021: OPEN cur_typ_id_inst(new_references.PERSON_ID,new_references.COURSE_CD,l_person_type);
1060: FETCH cur_pers_type INTO l_person_type;
1061: CLOSE cur_pers_type;
1062: IF l_person_type IS NULL THEN
1063: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
1064: IGS_GE_MSG_STACK.ADD;
1065: App_Exception.Raise_Exception;
1066: END IF;
1067:
1068: l_method := 'PERSON_ENROL_UNIT_SECT';
1107: FETCH cur_pers_type INTO l_person_type;
1108: CLOSE cur_pers_type;
1109: IF l_person_type IS NULL THEN
1110: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
1111: IGS_GE_MSG_STACK.ADD;
1112: App_Exception.Raise_Exception;
1113: END IF;
1114:
1115: OPEN cur_typ_id_inst(new_references.PERSON_ID,new_references.COURSE_CD,l_person_type);
1155: FETCH cur_pers_type INTO l_person_type;
1156: CLOSE cur_pers_type;
1157: IF l_person_type IS NULL THEN
1158: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
1159: IGS_GE_MSG_STACK.ADD;
1160: App_Exception.Raise_Exception;
1161: END IF;
1162:
1163: -- Check any active record found for this student program, with System Person Type,STUDENT
1198: FETCH cur_pers_type INTO l_person_type;
1199: CLOSE cur_pers_type;
1200: IF l_person_type IS NULL THEN
1201: Fnd_Message.Set_Name ('IGS', 'IGS_EN_PERSON_TYPE_NOT_DEF');
1202: IGS_GE_MSG_STACK.ADD;
1203: App_Exception.Raise_Exception;
1204: END IF;
1205:
1206: OPEN cur_typ_id_inst(new_references.PERSON_ID,new_references.COURSE_CD,l_person_type);
1533: IF UPPER(column_name) = 'KEY_PROGRAM' OR
1534: Column_name IS NULL THEN
1535: IF new_references.key_program NOT IN ( 'Y' , 'N') THEN
1536: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1537: IGS_GE_MSG_STACK.ADD;
1538: App_Exception.Raise_Exception;
1539: END IF;
1540: END IF;
1541: IF UPPER(column_name) = 'PRIMARY_PROG_TYPE_SOURCE' OR
1541: IF UPPER(column_name) = 'PRIMARY_PROG_TYPE_SOURCE' OR
1542: Column_name IS NULL THEN
1543: IF new_references.primary_prog_type_source NOT IN ( 'MANUAL' , 'SYSTEM') THEN
1544: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1545: IGS_GE_MSG_STACK.ADD;
1546: App_Exception.Raise_Exception;
1547: END IF;
1548: END IF;
1549: IF UPPER(column_name) = 'PRIMARY_PROGRAM_TYPE' OR
1549: IF UPPER(column_name) = 'PRIMARY_PROGRAM_TYPE' OR
1550: Column_name IS NULL THEN
1551: IF new_references.primary_program_type NOT IN ( 'PRIMARY' , 'SECONDARY') THEN
1552: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1553: IGS_GE_MSG_STACK.ADD;
1554: App_Exception.Raise_Exception;
1555: END IF;
1556: END IF;
1557:
1558: IF UPPER(column_name) = 'NOMINATED_COMPLETION_YR' OR
1559: Column_name IS NULL THEN
1560: IF new_references.nominated_completion_yr NOT BETWEEN 0 AND 9999 THEN
1561: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1562: IGS_GE_MSG_STACK.ADD;
1563: App_Exception.Raise_Exception;
1564: END IF;
1565: END IF;
1566: IF UPPER(column_name) = 'DERIVED_COMPLETION_PERD' OR
1566: IF UPPER(column_name) = 'DERIVED_COMPLETION_PERD' OR
1567: Column_name IS NULL THEN
1568: IF new_references.derived_completion_perd NOT IN ( 'M' , 'E' , 'S' ) THEN
1569: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1570: IGS_GE_MSG_STACK.ADD;
1571: App_Exception.Raise_Exception;
1572: END IF;
1573: END IF;
1574: IF UPPER(column_name) = 'DERIVED_COMPLETION_YR' OR
1574: IF UPPER(column_name) = 'DERIVED_COMPLETION_YR' OR
1575: Column_name IS NULL THEN
1576: IF new_references.derived_completion_yr NOT BETWEEN 0 AND 9999 THEN
1577: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1578: IGS_GE_MSG_STACK.ADD;
1579: App_Exception.Raise_Exception;
1580: END IF;
1581: END IF;
1582: IF UPPER(column_name) = 'PROVISIONAL_IND' OR
1582: IF UPPER(column_name) = 'PROVISIONAL_IND' OR
1583: Column_name IS NULL THEN
1584: IF new_references.provisional_ind NOT IN ( 'Y' , 'N' ) THEN
1585: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1586: IGS_GE_MSG_STACK.ADD;
1587: App_Exception.Raise_Exception;
1588: END IF;
1589: END IF;
1590: IF UPPER(column_name) = 'STUDENT_CONFIRMED_IND' OR
1590: IF UPPER(column_name) = 'STUDENT_CONFIRMED_IND' OR
1591: Column_name IS NULL THEN
1592: IF new_references.student_confirmed_ind NOT IN ( 'Y' , 'N' ) THEN
1593: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1594: IGS_GE_MSG_STACK.ADD;
1595: App_Exception.Raise_Exception;
1596: END IF;
1597: END IF;
1598: IF UPPER(column_name) = 'ADM_NOMINATED_COURSE_CD' OR
1599: Column_name IS NULL THEN
1600: IF new_references.adm_nominated_course_cd <>
1601: UPPER(new_references.adm_nominated_course_cd) THEN
1602: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1603: IGS_GE_MSG_STACK.ADD;
1604: App_Exception.Raise_Exception;
1605: END IF;
1606: END IF;
1607: IF UPPER(column_name) = 'ADVANCED_STANDING_IND' OR
1607: IF UPPER(column_name) = 'ADVANCED_STANDING_IND' OR
1608: Column_name IS NULL THEN
1609: IF new_references.advanced_standing_ind NOT IN ( 'Y' , 'N' ) THEN
1610: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1611: IGS_GE_MSG_STACK.ADD;
1612: App_Exception.Raise_Exception;
1613: END IF;
1614: END IF;
1615: IF UPPER(column_name) = 'ATTENDANCE_MODE' OR
1616: Column_name IS NULL THEN
1617: IF new_references.attendance_mode <>
1618: UPPER(new_references.attendance_mode) THEN
1619: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1620: IGS_GE_MSG_STACK.ADD;
1621: App_Exception.Raise_Exception;
1622: END IF;
1623: END IF;
1624: IF UPPER(column_name) = 'ATTENDANCE_TYPE' OR
1625: Column_name IS NULL THEN
1626: IF new_references.attendance_type <>
1627: UPPER(new_references.attendance_type) THEN
1628: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1629: IGS_GE_MSG_STACK.ADD;
1630: App_Exception.Raise_Exception;
1631: END IF;
1632: END IF;
1633: IF UPPER(column_name) = 'CAL_TYPE' OR
1634: Column_name IS NULL THEN
1635: IF new_references.cal_type <>
1636: UPPER(new_references.cal_type) THEN
1637: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1638: IGS_GE_MSG_STACK.ADD;
1639: App_Exception.Raise_Exception;
1640: END IF;
1641: END IF;
1642: IF UPPER(column_name) = 'CORRESPONDENCE_CAT' OR
1643: Column_name IS NULL THEN
1644: IF new_references.correspondence_cat <>
1645: UPPER(new_references.correspondence_cat) THEN
1646: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1647: IGS_GE_MSG_STACK.ADD;
1648: App_Exception.Raise_Exception;
1649: END IF;
1650: END IF;
1651: IF UPPER(column_name) = 'COURSE_ATTEMPT_STATUS' OR
1652: Column_name IS NULL THEN
1653: IF new_references.course_attempt_status <>
1654: UPPER(new_references.course_attempt_status) THEN
1655: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1656: IGS_GE_MSG_STACK.ADD;
1657: App_Exception.Raise_Exception;
1658: END IF;
1659: END IF;
1660: IF UPPER(column_name) = 'COURSE_CD' OR
1661: Column_name IS NULL THEN
1662: IF new_references.course_cd <>
1663: UPPER(new_references.course_cd) THEN
1664: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1665: IGS_GE_MSG_STACK.ADD;
1666: App_Exception.Raise_Exception;
1667: END IF;
1668: END IF;
1669: IF UPPER(column_name) = 'COURSE_RQRMNT_COMPLETE_IND' OR
1669: IF UPPER(column_name) = 'COURSE_RQRMNT_COMPLETE_IND' OR
1670: Column_name IS NULL THEN
1671: IF new_references.course_rqrmnt_complete_ind NOT IN ( 'Y' , 'N' ) THEN
1672: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1673: IGS_GE_MSG_STACK.ADD;
1674: App_Exception.Raise_Exception;
1675: END IF;
1676: END IF;
1677: IF UPPER(column_name) = 'DERIVED_ATT_MODE' OR
1678: Column_name IS NULL THEN
1679: IF new_references.derived_att_mode <>
1680: UPPER(new_references.derived_att_mode) THEN
1681: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1682: IGS_GE_MSG_STACK.ADD;
1683: App_Exception.Raise_Exception;
1684: END IF;
1685: END IF;
1686: IF UPPER(column_name) = 'DERIVED_ATT_TYPE' OR
1687: Column_name IS NULL THEN
1688: IF new_references.derived_att_type <>
1689: UPPER(new_references.derived_att_type) THEN
1690: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1691: IGS_GE_MSG_STACK.ADD;
1692: App_Exception.Raise_Exception;
1693: END IF;
1694: END IF;
1695: IF UPPER(column_name) = 'DERIVED_COMPLETION_PERD' OR
1696: Column_name IS NULL THEN
1697: IF new_references.derived_completion_perd <>
1698: UPPER(new_references.derived_completion_perd) THEN
1699: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1700: IGS_GE_MSG_STACK.ADD;
1701: App_Exception.Raise_Exception;
1702: END IF;
1703: END IF;
1704: IF UPPER(column_name) = 'DISCONTINUATION_REASON_CD' OR
1705: Column_name IS NULL THEN
1706: IF new_references.discontinuation_reason_cd <>
1707: UPPER(new_references.discontinuation_reason_cd) THEN
1708: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1709: IGS_GE_MSG_STACK.ADD;
1710: App_Exception.Raise_Exception;
1711: END IF;
1712: END IF;
1713: IF UPPER(column_name) = 'EXAM_LOCATION_CD' OR
1714: Column_name IS NULL THEN
1715: IF new_references.exam_location_cd <>
1716: UPPER(new_references.exam_location_cd) THEN
1717: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1718: IGS_GE_MSG_STACK.ADD;
1719: App_Exception.Raise_Exception;
1720: END IF;
1721: END IF;
1722: IF UPPER(column_name) = 'FUNDING_SOURCE' OR
1723: Column_name IS NULL THEN
1724: IF new_references.funding_source <>
1725: UPPER(new_references.funding_source) THEN
1726: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1727: IGS_GE_MSG_STACK.ADD;
1728: App_Exception.Raise_Exception;
1729: END IF;
1730: END IF;
1731: IF UPPER(column_name) = 'LOCATION_CD' OR
1732: Column_name IS NULL THEN
1733: IF new_references.location_cd <>
1734: UPPER(new_references.location_cd) THEN
1735: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1736: IGS_GE_MSG_STACK.ADD;
1737: App_Exception.Raise_Exception;
1738: END IF;
1739: END IF;
1740: /* IF UPPER(column_name) = 'NOMINATED_COMPLETION_PERD' OR
1740: /* IF UPPER(column_name) = 'NOMINATED_COMPLETION_PERD' OR
1741: Column_name IS NULL THEN
1742: IF new_references.nominated_completion_perd NOT IN ( 'M' , 'E' , 'S' ) THEN
1743: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1744: IGS_GE_MSG_STACK.ADD;
1745: App_Exception.Raise_Exception;
1746: END IF;
1747: END IF; */
1748: IF UPPER(column_name) = 'PUBLISH_OUTCOMES_IND' OR
1748: IF UPPER(column_name) = 'PUBLISH_OUTCOMES_IND' OR
1749: Column_name IS NULL THEN
1750: IF new_references.publish_outcomes_ind NOT IN ( 'Y' , 'N' ) THEN
1751: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1752: IGS_GE_MSG_STACK.ADD;
1753: App_Exception.Raise_Exception;
1754: END IF;
1755: END IF;
1756: IF UPPER(column_name) = 'RULE_CHECK_IND' OR
1756: IF UPPER(column_name) = 'RULE_CHECK_IND' OR
1757: Column_name IS NULL THEN
1758: IF new_references.rule_check_ind NOT IN ( 'Y' , 'N' ) THEN
1759: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1760: IGS_GE_MSG_STACK.ADD;
1761: App_Exception.Raise_Exception;
1762: END IF;
1763: END IF;
1764: IF UPPER(column_name) = 'SELF_HELP_GROUP_IND' OR
1764: IF UPPER(column_name) = 'SELF_HELP_GROUP_IND' OR
1765: Column_name IS NULL THEN
1766: IF new_references.self_help_group_ind NOT IN ( 'Y' , 'N' ) THEN
1767: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1768: IGS_GE_MSG_STACK.ADD;
1769: App_Exception.Raise_Exception;
1770: END IF;
1771: END IF;
1772: IF UPPER(column_name) = 'LOCATION_CD' OR
1773: Column_name IS NULL THEN
1774: IF new_references.location_cd <>
1775: UPPER(new_references.location_cd) THEN
1776: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1777: IGS_GE_MSG_STACK.ADD;
1778: App_Exception.Raise_Exception;
1779: END IF;
1780: END IF;
1781: IF UPPER(column_name) = 'WAIVE_OPTION_CHECK_IND' OR
1781: IF UPPER(column_name) = 'WAIVE_OPTION_CHECK_IND' OR
1782: Column_name IS NULL THEN
1783: IF new_references.waive_option_check_ind NOT IN ( 'Y' , 'N' ) THEN
1784: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1785: IGS_GE_MSG_STACK.ADD;
1786: App_Exception.Raise_Exception;
1787: END IF;
1788: END IF;
1789: IF UPPER(column_name) = 'ADM_SEQUENCE_NUMBER' OR
1790: Column_name IS NULL THEN
1791: IF new_references.adm_sequence_number NOT BETWEEN 1
1792: AND 999999 THEN
1793: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1794: IGS_GE_MSG_STACK.ADD;
1795: App_Exception.Raise_Exception;
1796: END IF;
1797: END IF;
1798: IF UPPER(column_name) = 'S_COMPLETED_SOURCE_TYPE ' OR
1798: IF UPPER(column_name) = 'S_COMPLETED_SOURCE_TYPE ' OR
1799: Column_name IS NULL THEN
1800: IF new_references.s_completed_source_type NOT IN ( 'MANUAL' , 'SYSTEM') THEN
1801: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1802: IGS_GE_MSG_STACK.ADD;
1803: App_Exception.Raise_Exception;
1804: END IF;
1805: END IF;
1806: IF UPPER(column_name) = 'OVERRIDE_TIME_LIMITATION' OR
1806: IF UPPER(column_name) = 'OVERRIDE_TIME_LIMITATION' OR
1807: Column_name IS NULL THEN
1808: IF new_references.override_time_limitation NOT BETWEEN 0 AND 9999 THEN
1809: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1810: IGS_GE_MSG_STACK.ADD;
1811: App_Exception.Raise_Exception;
1812: END IF;
1813: END IF;
1814: IF UPPER(column_name) = 'MANUAL_OVR_CMPL_DT_IND' OR
1814: IF UPPER(column_name) = 'MANUAL_OVR_CMPL_DT_IND' OR
1815: Column_name IS NULL THEN
1816: IF new_references.manual_ovr_cmpl_dt_ind NOT IN ( 'Y' , 'N' ) THEN
1817: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
1818: IGS_GE_MSG_STACK.ADD;
1819: App_Exception.Raise_Exception;
1820: END IF;
1821: END IF;
1822:
1841: 'PROGRESSION_STATUS',
1842: new_references.progression_status
1843: ) THEN
1844: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1845: IGS_GE_MSG_STACK.ADD;
1846: App_Exception.Raise_Exception;
1847: END IF;
1848: END IF;
1849: IF (((old_references.derived_att_mode = new_references.derived_att_mode)) OR
1853: IF NOT IGS_EN_ATD_MODE_PKG.Get_PK_For_Validation (
1854: new_references.derived_att_mode
1855: ) THEN
1856: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1857: IGS_GE_MSG_STACK.ADD;
1858: App_Exception.Raise_Exception;
1859: END IF;
1860: END IF;
1861: IF (((old_references.course_attempt_status = new_references.course_attempt_status)) OR
1866: 'CRS_ATTEMPT_STATUS',
1867: new_references.course_attempt_status
1868: ) THEN
1869: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1870: IGS_GE_MSG_STACK.ADD;
1871: App_Exception.Raise_Exception;
1872: END IF;
1873: END IF;
1874: IF (((old_references.person_id = new_references.person_id) AND
1887: new_references.adm_nominated_course_cd,
1888: new_references.adm_sequence_number
1889: ) THEN
1890: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1891: IGS_GE_MSG_STACK.ADD;
1892: App_Exception.Raise_Exception;
1893: END IF;
1894: END IF;
1895: IF (((old_references.derived_att_type = new_references.derived_att_type)) OR
1899: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
1900: new_references.derived_att_type
1901: ) THEN
1902: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1903: IGS_GE_MSG_STACK.ADD;
1904: App_Exception.Raise_Exception;
1905: END IF ;
1906: END IF;
1907:
1913: IF NOT IGS_CO_CAT_PKG.Get_PK_For_Validation (
1914: new_references.correspondence_cat
1915: ) THEN
1916: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1917: IGS_GE_MSG_STACK.ADD;
1918: App_Exception.Raise_Exception;
1919: END IF;
1920: END IF;
1921:
1944: new_references.attendance_type
1945: ) THEN
1946:
1947: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1948: IGS_GE_MSG_STACK.ADD;
1949: App_Exception.Raise_Exception;
1950: END IF;
1951:
1952: END IF;
1959: IF NOT IGS_PS_OFR_OPT_PKG.Get_UK_For_Validation (
1960: new_references.coo_id
1961: ) THEN
1962: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1963: IGS_GE_MSG_STACK.ADD;
1964: App_Exception.Raise_Exception;
1965: END IF;
1966: END IF;
1967:
1972: IF NOT IGS_EN_DCNT_REASONCD_PKG.Get_PK_For_Validation (
1973: new_references.discontinuation_reason_cd
1974: ) THEN
1975: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1976: IGS_GE_MSG_STACK.ADD;
1977: App_Exception.Raise_Exception;
1978: END IF;
1979: END IF;
1980: IF (((old_references.fee_cat = new_references.fee_cat)) OR
1984: IF NOT IGS_FI_FEE_CAT_PKG.Get_PK_For_Validation (
1985: new_references.fee_cat
1986: ) THEN
1987: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1988: IGS_GE_MSG_STACK.ADD;
1989: App_Exception.Raise_Exception;
1990: END IF ;
1991: END IF;
1992: IF (((old_references.funding_source = new_references.funding_source)) OR
1996: IF NOT IGS_FI_FUND_SRC_PKG.Get_PK_For_Validation (
1997: new_references.funding_source
1998: ) THEN
1999: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2000: IGS_GE_MSG_STACK.ADD;
2001: App_Exception.Raise_Exception;
2002: END IF;
2003: END IF;
2004: IF (((old_references.exam_location_cd = new_references.exam_location_cd)) OR
2009: new_references.exam_location_cd,
2010: 'N'
2011: ) THEN
2012: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2013: IGS_GE_MSG_STACK.ADD;
2014: App_Exception.Raise_Exception;
2015: END IF;
2016: END IF;
2017: IF (((old_references.person_id = new_references.person_id)) OR
2021: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
2022: new_references.person_id
2023: ) THEN
2024: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2025: IGS_GE_MSG_STACK.ADD;
2026: App_Exception.Raise_Exception;
2027: END IF;
2028: END IF;
2029:
2034: IF NOT IGS_PR_CLASS_STD_PKG.Get_PK_For_Validation (
2035: new_references.IGS_PR_CLASS_STD_ID
2036: ) THEN
2037: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2038: IGS_GE_MSG_STACK.ADD;
2039: App_Exception.Raise_Exception;
2040: END IF ;
2041: END IF;
2042:
2047: IF NOT IGS_EN_NOM_CMPL_PRD_PKG.Get_PK_For_Validation (
2048: new_references.NOMINATED_COMPLETION_PERD
2049: ) THEN
2050: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2051: IGS_GE_MSG_STACK.ADD;
2052: App_Exception.Raise_Exception;
2053: END IF ;
2054: END IF;
2055:
2061: 'IGS_EN_PP_SOURCE',
2062: new_references.PRIMARY_PROG_TYPE_SOURCE
2063: ) THEN
2064: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2065: IGS_GE_MSG_STACK.ADD;
2066: App_Exception.Raise_Exception;
2067: END IF;
2068: END IF;
2069:
2076: new_references.CATALOG_CAL_TYPE,
2077: new_references.CATALOG_SEQ_NUM
2078: ) THEN
2079: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
2080: IGS_GE_MSG_STACK.ADD;
2081: App_Exception.Raise_Exception;
2082: END IF;
2083:
2084: END Check_Parent_Existance;
2301: FETCH cur_rowid INTO lv_rowid;
2302: IF (cur_rowid%FOUND) THEN
2303: CLOSE cur_rowid;
2304: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_LKUPV_FK');
2305: IGS_GE_MSG_STACK.ADD;
2306: App_Exception.Raise_Exception;
2307: RETURN;
2308: END IF;
2309: CLOSE cur_rowid;
2322: FETCH cur_rowid INTO lv_rowid;
2323: IF (cur_rowid%FOUND) THEN
2324: CLOSE cur_rowid;
2325: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_AM_FK');
2326: IGS_GE_MSG_STACK.ADD;
2327: App_Exception.Raise_Exception;
2328: RETURN;
2329: END IF;
2330: CLOSE cur_rowid;
2343: FETCH cur_rowid INTO lv_rowid;
2344: IF (cur_rowid%FOUND) THEN
2345: CLOSE cur_rowid;
2346: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_LKUPV_FK');
2347: IGS_GE_MSG_STACK.ADD;
2348: App_Exception.Raise_Exception;
2349: RETURN;
2350: END IF;
2351: CLOSE cur_rowid;
2370: FETCH cur_rowid INTO lv_rowid;
2371: IF (cur_rowid%FOUND) THEN
2372: CLOSE cur_rowid;
2373: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_ACAI_FK');
2374: IGS_GE_MSG_STACK.ADD;
2375: App_Exception.Raise_Exception;
2376: RETURN;
2377: END IF;
2378: CLOSE cur_rowid;
2391: FETCH cur_rowid INTO lv_rowid;
2392: IF (cur_rowid%FOUND) THEN
2393: CLOSE cur_rowid;
2394: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_ATT_FK');
2395: IGS_GE_MSG_STACK.ADD;
2396: App_Exception.Raise_Exception;
2397: RETURN;
2398: END IF;
2399: CLOSE cur_rowid;
2412: FETCH cur_rowid INTO lv_rowid;
2413: IF (cur_rowid%FOUND) THEN
2414: CLOSE cur_rowid;
2415: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_CC_FK');
2416: IGS_GE_MSG_STACK.ADD;
2417: App_Exception.Raise_Exception;
2418: RETURN;
2419: END IF;
2420: CLOSE cur_rowid;
2443: FETCH cur_rowid INTO lv_rowid;
2444: IF (cur_rowid%FOUND) THEN
2445: CLOSE cur_rowid;
2446: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_COO_FK');
2447: IGS_GE_MSG_STACK.ADD;
2448: App_Exception.Raise_Exception;
2449: RETURN;
2450: END IF;
2451: CLOSE cur_rowid;
2466: CLOSE cur_rowid;
2467: -- code modified by Nishikant - 13JUN2002 - as per bug#2413811
2468: -- set the message IGS_EN_SCA_COO_FK instead of IGS_EN_SCA_COO_UFK
2469: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_COO_FK');
2470: IGS_GE_MSG_STACK.ADD;
2471: App_Exception.Raise_Exception;
2472: RETURN;
2473: END IF;
2474: CLOSE cur_rowid;
2487: FETCH cur_rowid INTO lv_rowid;
2488: IF (cur_rowid%FOUND) THEN
2489: CLOSE cur_rowid;
2490: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_CRS_FK');
2491: IGS_GE_MSG_STACK.ADD;
2492: App_Exception.Raise_Exception;
2493: RETURN;
2494: END IF;
2495: CLOSE cur_rowid;
2510: FETCH cur_rowid INTO lv_rowid;
2511: IF (cur_rowid%FOUND) THEN
2512: CLOSE cur_rowid;
2513: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_CRV_FK');
2514: IGS_GE_MSG_STACK.ADD;
2515: App_Exception.Raise_Exception;
2516: RETURN;
2517: END IF;
2518: CLOSE cur_rowid;
2532: FETCH cur_rowid INTO lv_rowid;
2533: IF (cur_rowid%FOUND) THEN
2534: CLOSE cur_rowid;
2535: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_FC_FK');
2536: IGS_GE_MSG_STACK.ADD;
2537: App_Exception.Raise_Exception;
2538: RETURN;
2539: END IF;
2540: CLOSE cur_rowid;
2553: FETCH cur_rowid INTO lv_rowid;
2554: IF (cur_rowid%FOUND) THEN
2555: CLOSE cur_rowid;
2556: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_FS_FK');
2557: IGS_GE_MSG_STACK.ADD;
2558: App_Exception.Raise_Exception;
2559: RETURN;
2560: END IF;
2561: CLOSE cur_rowid;
2574: FETCH cur_rowid INTO lv_rowid;
2575: IF (cur_rowid%FOUND) THEN
2576: CLOSE cur_rowid;
2577: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_LOC_FK');
2578: IGS_GE_MSG_STACK.ADD;
2579: App_Exception.Raise_Exception;
2580: RETURN;
2581: END IF;
2582: CLOSE cur_rowid;
2595: FETCH cur_rowid INTO lv_rowid;
2596: IF (cur_rowid%FOUND) THEN
2597: CLOSE cur_rowid;
2598: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_PE_FK');
2599: IGS_GE_MSG_STACK.ADD;
2600: App_Exception.Raise_Exception;
2601: RETURN;
2602: END IF;
2603: CLOSE cur_rowid;
2620: FETCH cur_rowid INTO lv_cur;
2621: IF (cur_rowid%FOUND) THEN
2622: CLOSE cur_rowid;
2623: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_PCS_FK');
2624: IGS_GE_MSG_STACK.ADD;
2625: App_Exception.Raise_Exception;
2626: RETURN;
2627: END IF;
2628: CLOSE cur_rowid;
2644: OPEN cur_rowid;
2645: FETCH cur_rowid INTO lv_rowid;
2646: IF (cur_rowid%FOUND) THEN
2647: Fnd_Message.Set_Name ('IGS', 'IGS_EN_SCA_CI_FK');
2648: Igs_Ge_Msg_Stack.ADD;
2649: CLOSE cur_rowid;
2650: App_Exception.Raise_Exception;
2651: RETURN;
2652: END IF;
2833: new_references.person_id ,
2834: new_references.course_cd
2835: ) THEN
2836: FND_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
2837: IGS_GE_MSG_STACK.ADD;
2838: App_Exception.Raise_Exception;
2839: END IF;
2840: Check_Constraints;
2841: Check_Parent_Existance;
2864: new_references.person_id ,
2865: new_references.course_cd
2866: ) THEN
2867: FND_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
2868: IGS_GE_MSG_STACK.ADD;
2869: App_Exception.Raise_Exception;
2870: END IF;
2871: Check_constraints;
2872: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
3284: -- check to ensure that course attempt status is never null
3285: IF (p_action = 'UPDATE') THEN
3286: IF new_references.course_attempt_status IS NULL THEN
3287: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
3288: IGS_GE_MSG_STACK.ADD;
3289: App_Exception.Raise_Exception;
3290: END IF;
3291: END IF;
3292:
3467: X_PROGRAM_UPDATE_DATE := SYSDATE;
3468: END IF;
3469: ELSE
3470: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
3471: IGS_GE_MSG_STACK.ADD;
3472: app_exception.raise_exception;
3473: END IF;
3474:
3475:
3750: WHEN OTHERS THEN
3751: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
3752: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
3753: fnd_message.set_token ('ERR_CD', SQLCODE);
3754: igs_ge_msg_stack.add;
3755: igs_sc_gen_001.unset_ctx('R');
3756: app_exception.raise_exception;
3757: ELSE
3758: igs_sc_gen_001.unset_ctx('R');
3916: FETCH c1 INTO tlinfo;
3917: IF (c1%NOTFOUND) THEN
3918: CLOSE c1;
3919: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
3920: IGS_GE_MSG_STACK.ADD;
3921: app_exception.raise_exception;
3922: RETURN;
3923: END IF;
3924: CLOSE c1;
4108: NULL;
4109: ELSE
4110:
4111: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
4112: IGS_GE_MSG_STACK.ADD;
4113: app_exception.raise_exception;
4114:
4115: END IF;
4116: RETURN;
4215: X_LAST_UPDATE_LOGIN := -1;
4216: END IF;
4217: ELSE
4218: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
4219: IGS_GE_MSG_STACK.ADD;
4220: app_exception.raise_exception;
4221: END IF;
4222:
4223: Before_DML (
4398: ATTRIBUTE20 = NEW_REFERENCES.ATTRIBUTE20
4399: WHERE ROWID = X_ROWID;
4400: IF (SQL%NOTFOUND) THEN
4401: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
4402: igs_ge_msg_stack.add;
4403: igs_sc_gen_001.unset_ctx('R');
4404: app_exception.raise_exception;
4405: END IF;
4406: IF (x_mode = 'S') THEN
4418: WHEN OTHERS THEN
4419: IF (SQLCODE = (-28115)) THEN
4420: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
4421: fnd_message.set_token ('ERR_CD', SQLCODE);
4422: igs_ge_msg_stack.add;
4423: igs_sc_gen_001.unset_ctx('R');
4424: app_exception.raise_exception;
4425: ELSE
4426: igs_sc_gen_001.unset_ctx('R');
4687: DELETE FROM IGS_EN_STDNT_PS_ATT_ALL
4688: WHERE ROWID = X_ROWID;
4689: IF (SQL%NOTFOUND) THEN
4690: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
4691: igs_ge_msg_stack.add;
4692: igs_sc_gen_001.unset_ctx('R');
4693: app_exception.raise_exception;
4694: END IF;
4695: IF (x_mode = 'S') THEN
4735: CLOSE c_spa_stat;
4736:
4737: IF lv_crs_attmpt_stat <> 'UNCONFIRM' THEN
4738: FND_MESSAGE.SET_NAME('IGS','IGS_EN_CANDEL_UNCNFRM_SPA');
4739: igs_ge_msg_stack.add;
4740: APP_EXCEPTION.RAISE_EXCEPTION;
4741: END IF;
4742:
4743: END beforerowdelete;