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;
123:
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;
458: IF p_updating THEN
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:
477: END IF;
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
497: IF p_inserting OR
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
521: IF p_inserting OR
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
542: IF p_inserting OR
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;
572: App_Exception.Raise_exception;
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;
576: App_Exception.Raise_exception;
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
580: -- of 'GRADUATED' or 'SURRENDER'.
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;
594: -- Validate the IGS_EN_STDNT_PS_ATT_ALL.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
616: IF p_inserting OR
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
628: IF new_references.course_attempt_status IS NULL THEN
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;
824: END IF;
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';
978:
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);
1022: FETCH cur_typ_id_inst INTO cur_typ_id_inst_rec;
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';
1069:
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);
1116: FETCH cur_typ_id_inst INTO cur_typ_id_inst_rec;
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
1164: -- This should be considered the active students (i.e not end dated) whose system person type is closed
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);
1207: FETCH cur_typ_id_inst INTO cur_typ_id_inst_rec;
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
1542: Column_name IS NULL THEN
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
1550: Column_name IS NULL THEN
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
1567: Column_name IS NULL THEN
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
1575: Column_name IS NULL THEN
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
1583: Column_name IS NULL THEN
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
1591: Column_name IS NULL THEN
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
1608: Column_name IS NULL THEN
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
1670: Column_name IS NULL THEN
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
1741: Column_name IS NULL THEN
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
1749: Column_name IS NULL THEN
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
1757: Column_name IS NULL THEN
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
1765: Column_name IS NULL THEN
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
1782: Column_name IS NULL THEN
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
1799: Column_name IS NULL THEN
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
1807: Column_name IS NULL THEN
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
1815: Column_name IS NULL THEN
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:
1823: END Check_Constraints;
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
1850: ((new_references.derived_att_mode IS NULL))) THEN
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
1862: ((new_references.course_attempt_status IS NULL))) THEN
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
1875: (old_references.adm_admission_appl_number = new_references.adm_admission_appl_number) AND
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
1896: ((new_references.derived_att_type IS NULL))) THEN
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:
1908:
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:
1922:
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;
1953:
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:
1968: IF (((old_references.discontinuation_reason_cd = new_references.discontinuation_reason_cd)) OR
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
1981: ((new_references.fee_cat IS NULL))) THEN
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
1993: ((new_references.funding_source IS NULL))) THEN
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
2005: ((new_references.exam_location_cd IS NULL))) THEN
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
2018: ((new_references.person_id IS NULL))) THEN
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:
2030: IF ((old_references.IGS_PR_CLASS_STD_ID = new_references.IGS_PR_CLASS_STD_ID)OR
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:
2043: IF ((old_references.NOMINATED_COMPLETION_PERD = new_references.NOMINATED_COMPLETION_PERD)OR
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:
2056: IF (((old_references.PRIMARY_PROG_TYPE_SOURCE = new_references.PRIMARY_PROG_TYPE_SOURCE)) OR
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:
2070: IF (((old_references.CATALOG_CAL_TYPE = new_references.CATALOG_CAL_TYPE) AND
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;
2085:
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;
2310: END GET_FK_IGS_LOOKUPS_VIEW_Prog;
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;
2331: END GET_FK_IGS_EN_ATD_MODE;
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;
2352: END GET_FK_IGS_LOOKUPS_VIEW_CAS;
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;
2379: END GET_FK_IGS_AD_PS_APPL_INST;
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;
2400: END GET_FK_IGS_EN_ATD_TYPE;
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;
2421: END GET_FK_IGS_CO_CAT;
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;
2452: END GET_FK_IGS_PS_OFR_OPT;
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;
2475: END GET_UFK_IGS_PS_OFR_OPT;
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;
2496: END GET_FK_IGS_PS_COURSE;
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;
2519: END GET_FK_IGS_PS_VER;
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;
2541: END GET_FK_IGS_FI_FEE_CAT;
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;
2562: END GET_FK_IGS_FI_FUND_SRC;
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;
2583: END GET_FK_IGS_AD_LOCATION;
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;
2604: END GET_FK_IGS_PE_PERSON;
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;
2629: END GET_FK_IGS_PR_CLASS_STD;
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;
2653: CLOSE cur_rowid;
2654: END GET_FK_IGS_CA_INST;
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;
2842: ELSIF (p_action = 'UPDATE') THEN
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
2873: Check_constraints;
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:
3293: IF p_action = 'INSERT' AND NVL(new_references.key_program,'N') = 'Y' THEN
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:
3476: Before_DML (
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');
3759: RAISE;
3760: END IF;
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;
3925: IF ( (tlinfo.ADVANCED_STANDING_IND = X_ADVANCED_STANDING_IND)
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;
4117: END LOCK_ROW;
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 (
4224: p_action => 'UPDATE',
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
4407: igs_sc_gen_001.unset_ctx('R');
4408: END IF;
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');
4427: RAISE;
4428: END IF;
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
4696: igs_sc_gen_001.unset_ctx('R');
4697: END IF;
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;
4744: