[Home] [Help]
82: OPEN cur_delete (old_references.unit_cd,old_references.version_number);
83: FETCH cur_delete INTO l_check;
84: IF cur_delete%NOTFOUND THEN
85: CLOSE cur_delete;
86: fnd_message.set_name('IGS','IGS_PS_UNIT_NO_DEL_ALLOWED');
87: igs_ge_msg_stack.add;
88: app_exception.raise_exception;
89: END IF;
90: CLOSE cur_delete;
146: OPEN cur_check_update(old_references.unit_cd,old_references.version_number);
147: FETCH cur_check_update INTO l_check;
148: IF cur_check_update%FOUND THEN
149: CLOSE cur_check_update;
150: fnd_message.set_name('IGS','IGS_PS_UNIT_NO_INACTIVE_PLN');
151: igs_ge_msg_stack.add;
152: app_exception.raise_exception;
153: END IF;
154: CLOSE cur_check_update;
155: END IF;
156: ELSE
157: -- If the unit status is not found then the record might have been deleted
158: CLOSE cur_get_status;
159: fnd_message.set_name('FND','FORM_RECORD_DELETED');
160: igs_ge_msg_stack.add;
161: app_exception.raise_exception;
162: END IF;
163:
167: OPEN c_enrollment_status (new_references.unit_cd,new_references.version_number);
168: FETCH c_enrollment_status INTO l_c_var;
169: IF c_enrollment_status%FOUND THEN
170: CLOSE c_enrollment_status;
171: fnd_message.set_name('IGS','IGS_PS_UNIT_STATUS_INACTIVE_NO');
172: igs_ge_msg_stack.add;
173: app_exception.raise_exception;
174: END IF;
175: CLOSE c_enrollment_status;
321: Open cur_old_ref_values;
322: Fetch cur_old_ref_values INTO old_references;
323: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
324: Close cur_old_ref_values;
325: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
326: IGS_GE_MSG_STACK.ADD;
327: App_Exception.Raise_Exception;
328: Return;
329: END IF;
593: OPEN c_igs_ps_unit_ver_all ;
594: FETCH c_igs_ps_unit_ver_all INTO l_c_igs_ps_unit_ver_all ;
595: IF c_igs_ps_unit_ver_all%FOUND THEN
596: CLOSE c_igs_ps_unit_ver_all ;
597: FND_MESSAGE.SET_NAME('IGS','IGS_PS_CURRICULUM_CLOSED');
598: IGS_GE_MSG_STACK.ADD;
599: APP_EXCEPTION.RAISE_EXCEPTION ;
600: END IF;
601: CLOSE c_igs_ps_unit_ver_all ;
642: NVL(new_references.billing_hrs,999999)) OR
643: (NVL(old_references.rev_account_cd,'UNSET') <> NVL(new_references.rev_account_cd,'UNSET'))
644: THEN
645: CLOSE c_get_s_unit_status;
646: Fnd_Message.Set_Name('IGS','IGS_PS_NOCHG_UNITVER_DETAILS');
647: IGS_GE_MSG_STACK.ADD;
648: App_Exception.Raise_Exception;
649: END IF;
650: END IF; -- s_unit_status found.
657: (old_references.unit_int_course_level_cd <>
658: new_references.unit_int_course_level_cd)) THEN
659: IF IGS_PS_VAL_UV.crsp_val_uv_uicl (
660: new_references.unit_int_course_level_cd, v_message_name) = FALSE THEN
661: Fnd_Message.Set_Name('IGS',v_message_name);
662: IGS_GE_MSG_STACK.ADD;
663: App_Exception.Raise_Exception;
664: END IF;
665: END IF;
668: (p_updating AND
669: (old_references.unit_level <> new_references.unit_level)) THEN
670: IF IGS_PS_VAL_UV.crsp_val_unit_lvl (
671: new_references.unit_level,v_message_name) = FALSE THEN
672: Fnd_Message.Set_Name('IGS',v_message_name);
673: IGS_GE_MSG_STACK.ADD;
674: App_Exception.Raise_Exception;
675: END IF;
676: END IF;
680: (old_references.credit_point_descriptor <>
681: new_references.credit_point_descriptor )) THEN
682: IF IGS_PS_VAL_UV.crsp_val_uv_cp_desc (
683: new_references.credit_point_descriptor,v_message_name) = FALSE THEN
684: Fnd_Message.Set_Name('IGS',v_message_name);
685: IGS_GE_MSG_STACK.ADD;
686: App_Exception.Raise_Exception;
687: END IF;
688: END IF;
700: IF IGS_PS_VAL_US.crsp_val_ver_dt (
701: new_references.start_dt,
702: new_references.end_dt,
703: new_references.expiry_dt,v_message_name,FALSE) = FALSE THEN
704: Fnd_Message.Set_Name('IGS',v_message_name);
705: IGS_GE_MSG_STACK.ADD;
706: App_Exception.Raise_Exception;
707: END IF;
708: END IF;
711: new_references.version_number,
712: v_return_type,
713: v_message_name) = FALSE THEN
714: IF v_return_type = cst_error THEN
715: Fnd_Message.Set_Name('IGS',v_message_name);
716: IGS_GE_MSG_STACK.ADD;
717: App_Exception.Raise_Exception;
718: END IF;
719: END IF;
726: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_UV.crsp_val_ou_sys_sts
727: IF IGS_PS_VAL_CRV.crsp_val_ou_sys_sts (
728: new_references.owner_org_unit_cd,
729: new_references.owner_ou_start_dt,v_message_name) = FALSE THEN
730: Fnd_Message.Set_Name('IGS',v_message_name);
731: IGS_GE_MSG_STACK.ADD;
732: App_Exception.Raise_Exception;
733: END IF;
734: END IF;
740: (old_references.unit_status <> new_references.unit_status))) THEN
741: IF IGS_PS_VAL_UV.crsp_val_uv_end_sts(
742: new_references.end_dt,
743: new_references.unit_status,v_message_name) = FALSE THEN
744: Fnd_Message.Set_Name('IGS',v_message_name);
745: IGS_GE_MSG_STACK.ADD;
746: App_Exception.Raise_Exception;
747: END IF;
748: END IF;
750: IF new_references.coord_person_id IS NOT NULL AND
751: (NVL(old_references.coord_person_id, 0) <> new_references.coord_person_id) THEN
752: IF IGS_GE_MNT_SDTT.pid_val_staff(
753: new_references.coord_person_id,v_preferred_name) = FALSE THEN
754: Fnd_Message.Set_Name('IGS','IGS_GE_COORD_NOT_STAFF_MEMBER');
755: IGS_GE_MSG_STACK.ADD;
756: App_Exception.Raise_Exception;
757: END IF;
758: END IF;
773: new_references.points_min,
774: new_references.points_max,
775: new_references.enrolled_credit_points,
776: new_references.achievable_credit_points,v_message_name,FALSE) = FALSE THEN
777: Fnd_Message.Set_Name('IGS',v_message_name);
778: IGS_GE_MSG_STACK.ADD;
779: App_Exception.Raise_Exception;
780: END IF;
781: END IF;
789: new_references.assessable_ind))) THEN
790: IF IGS_PS_VAL_UV.crsp_val_uv_sup_exam (
791: new_references.supp_exam_permitted_ind,
792: new_references.assessable_ind,v_message_name) = FALSE THEN
793: Fnd_Message.Set_Name('IGS',v_message_name);
794: IGS_GE_MSG_STACK.ADD;
795: App_Exception.Raise_Exception;
796: END IF;
797: END IF;
800: -- Code added as per DLD Unit Section Enrollment Information
801: -- Validating atleast one Enrollment method is checked
802: IF p_inserting OR p_updating THEN
803: IF (new_references.ss_enrol_ind = 'N' AND new_references.ivr_enrol_ind = 'N') THEN
804: Fnd_Message.Set_Name('IGS','IGS_PS_ONE_UNIT_ENR_MTHD');
805: IGS_GE_MSG_STACK.ADD;
806: App_Exception.Raise_Exception;
807: END IF;
808: END IF;
1385: new_references.unit_cd,
1386: new_references.version_number,
1387: new_references.expiry_dt,
1388: new_references.unit_status,v_message_name) = FALSE THEN
1389: Fnd_Message.Set_Name('IGS',v_message_name);
1390: IGS_GE_MSG_STACK.ADD;
1391: App_Exception.Raise_Exception;
1392: END IF;
1393: END IF;
1399: new_references.unit_cd,
1400: new_references.version_number,
1401: new_references.unit_status,
1402: old_references.unit_status,v_message_name,FALSE) = FALSE THEN
1403: Fnd_Message.Set_Name('IGS',v_message_name);
1404: IGS_GE_MSG_STACK.ADD;
1405: App_Exception.Raise_Exception;
1406: END IF;
1407: OPEN c_get_s_unit_status (new_references.unit_status);
1415: IF IGS_PS_VAL_UV.crsp_val_uv_quality (
1416: new_references.unit_cd,
1417: new_references.version_number,
1418: old_references.unit_status,v_message_name) = FALSE THEN
1419: Fnd_Message.Set_Name('IGS',v_message_name);
1420: IGS_GE_MSG_STACK.ADD;
1421: App_Exception.Raise_Exception;
1422: END IF;
1423: END IF;
1581: END IF;
1582:
1583: IF Upper(Column_Name)='ABBREVIATION' OR Column_Name IS NULL Then
1584: IF New_References.abbreviation <> UPPER(New_References.abbreviation) 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;
1589: END IF;
1590:
1591: IF Upper(Column_Name)='ASSESSABLE_IND' OR Column_Name IS NULL Then
1592: IF New_References.Assessable_Ind <> UPPER(New_References.Assessable_Ind) 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:
1595: App_Exception.Raise_Exception;
1596: END IF;
1597:
1598: IF New_References.Assessable_Ind NOT IN ( 'Y' , 'N' ) Then
1599: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1600: IGS_GE_MSG_STACK.ADD;
1601: App_Exception.Raise_Exception;
1602: END IF;
1603:
1606:
1607:
1608: IF Upper(Column_Name)='AWARD_COURSE_ONLY_IND' OR Column_Name IS NULL Then
1609: IF New_References.Award_Course_Only_Ind <> UPPER(New_References.Award_Course_Only_Ind) 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:
1612: App_Exception.Raise_Exception;
1613: END IF;
1614:
1615: IF New_References.Award_Course_Only_Ind NOT IN ( 'Y' , 'N' ) Then
1616: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1617: IGS_GE_MSG_STACK.ADD;
1618: App_Exception.Raise_Exception;
1619: END IF;
1620:
1622: END IF;
1623:
1624: IF Upper(Column_Name)='CREDIT_POINT_DESCRIPTOR' OR Column_Name IS NULL Then
1625: IF New_References.Credit_Point_Descriptor <> UPPER(New_References.Credit_Point_Descriptor) Then
1626: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1627: IGS_GE_MSG_STACK.ADD;
1628: App_Exception.Raise_Exception;
1629: END IF;
1630: END IF;
1630: END IF;
1631:
1632: IF Upper(Column_Name)='INDUSTRIAL_IND' OR Column_Name IS NULL Then
1633: IF New_References.Industrial_Ind <> UPPER(New_References.Industrial_Ind) Then
1634: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1635: IGS_GE_MSG_STACK.ADD;
1636: App_Exception.Raise_Exception;
1637: END IF;
1638:
1636: App_Exception.Raise_Exception;
1637: END IF;
1638:
1639: IF New_References.Industrial_Ind NOT IN ( 'Y' , 'N' ) Then
1640: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1641: IGS_GE_MSG_STACK.ADD;
1642: App_Exception.Raise_Exception;
1643: END IF;
1644:
1645: END IF;
1646:
1647: IF Upper(Column_Name)='POINTS_OVERRIDE_IND' OR Column_Name IS NULL Then
1648: IF New_References.Points_Override_Ind <> UPPER(New_References.Points_Override_Ind) Then
1649: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1650: IGS_GE_MSG_STACK.ADD;
1651: App_Exception.Raise_Exception;
1652: END IF;
1653:
1651: App_Exception.Raise_Exception;
1652: END IF;
1653:
1654: IF New_References.Points_Override_Ind NOT IN ( 'Y' , 'N' ) 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;
1659: END IF;
1660:
1661: IF Upper(Column_Name)='PRACTICAL_IND' OR Column_Name IS NULL Then
1662: IF New_References.Practical_Ind <> UPPER(New_References.Practical_Ind) Then
1663: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1664: IGS_GE_MSG_STACK.ADD;
1665: App_Exception.Raise_Exception;
1666: END IF;
1667:
1665: App_Exception.Raise_Exception;
1666: END IF;
1667:
1668: IF New_References.Practical_ind NOT IN ( 'Y' , 'N' ) Then
1669: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1670: IGS_GE_MSG_STACK.ADD;
1671: App_Exception.Raise_Exception;
1672: END IF;
1673: END IF;
1673: END IF;
1674:
1675: IF Upper(Column_Name)='REPEATABLE_IND' OR Column_Name IS NULL Then
1676: IF New_References.Repeatable_Ind <> UPPER(New_References.Repeatable_Ind) Then
1677: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1678: IGS_GE_MSG_STACK.ADD;
1679: App_Exception.Raise_Exception;
1680: END IF;
1681:
1679: App_Exception.Raise_Exception;
1680: END IF;
1681:
1682: IF New_References.Repeatable_Ind NOT IN ( 'Y' , 'N','X' ) Then
1683: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1684: IGS_GE_MSG_STACK.ADD;
1685: App_Exception.Raise_Exception;
1686: END IF;
1687: END IF;
1688:
1689:
1690: IF Upper(Column_Name)='RESEARCH_UNIT_IND' OR Column_Name IS NULL Then
1691: IF New_References.Research_Unit_Ind <> UPPER(New_References.Research_Unit_Ind) Then
1692: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1693: IGS_GE_MSG_STACK.ADD;
1694: App_Exception.Raise_Exception;
1695: END IF;
1696:
1694: App_Exception.Raise_Exception;
1695: END IF;
1696:
1697: IF New_References.Research_Unit_Ind NOT IN ( 'Y' , 'N' ) Then
1698: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1699: IGS_GE_MSG_STACK.ADD;
1700: App_Exception.Raise_Exception;
1701: END IF;
1702: END IF;
1703:
1704:
1705: IF Upper(Column_Name)='SUPP_EXAM_PERMITTED_IND' OR Column_Name IS NULL Then
1706: IF New_References.Supp_Exam_Permitted_Ind <> UPPER(New_References.Supp_Exam_Permitted_Ind) Then
1707: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1708: IGS_GE_MSG_STACK.ADD;
1709: App_Exception.Raise_Exception;
1710: END IF;
1711:
1709: App_Exception.Raise_Exception;
1710: END IF;
1711:
1712: IF New_References.Supp_Exam_Permitted_Ind NOT IN ( 'Y' , 'N' ) Then
1713: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1714: IGS_GE_MSG_STACK.ADD;
1715: App_Exception.Raise_Exception;
1716: END IF;
1717: END IF;
1718:
1719:
1720: IF Upper(Column_Name)='TITLE_OVERRIDE_IND' OR Column_Name IS NULL Then
1721: IF New_References.Title_Override_Ind <> UPPER(New_References.Title_Override_Ind) Then
1722: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1723: IGS_GE_MSG_STACK.ADD;
1724: App_Exception.Raise_Exception;
1725: END IF;
1726:
1724: App_Exception.Raise_Exception;
1725: END IF;
1726:
1727: IF New_References.Title_Override_Ind NOT IN ( 'Y' , 'N' ) Then
1728: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1729: IGS_GE_MSG_STACK.ADD;
1730: App_Exception.Raise_Exception;
1731: END IF;
1732: END IF;
1732: END IF;
1733:
1734: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
1735: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
1736: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1737: IGS_GE_MSG_STACK.ADD;
1738: App_Exception.Raise_Exception;
1739: END IF;
1740: END IF;
1740: END IF;
1741:
1742: IF Upper(Column_Name)='UNIT_INT_COURSE_LEVEL_CD' OR Column_Name IS NULL Then
1743: IF New_References.Unit_Int_Course_Level_Cd <> UPPER(New_References.Unit_Int_Course_Level_Cd) Then
1744: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1745: IGS_GE_MSG_STACK.ADD;
1746: App_Exception.Raise_Exception;
1747: END IF;
1748: END IF;
1748: END IF;
1749:
1750: IF Upper(Column_Name)='UNIT_LEVEL' OR Column_Name IS NULL Then
1751: IF New_References.Unit_Level <> UPPER(New_References.Unit_Level) Then
1752: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1753: IGS_GE_MSG_STACK.ADD;
1754: App_Exception.Raise_Exception;
1755: END IF;
1756: END IF;
1756: END IF;
1757:
1758: IF Upper(Column_Name)='UNIT_STATUS' OR Column_Name IS NULL Then
1759: IF New_References.Unit_Status <> UPPER(New_References.Unit_Status) Then
1760: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1761: IGS_GE_MSG_STACK.ADD;
1762: App_Exception.Raise_Exception;
1763: END IF;
1764: END IF;
1765:
1766:
1767: IF Upper(Column_Name)='ACHIEVABLE_CREDIT_POINTS' OR Column_Name IS NULL Then
1768: IF New_References.Achievable_Credit_Points < 0 OR New_References.Achievable_Credit_Points > 999.999 Then
1769: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1770: IGS_GE_MSG_STACK.ADD;
1771: App_Exception.Raise_Exception;
1772: END IF;
1773: END IF;
1773: END IF;
1774:
1775: IF Upper(Column_Name)='POINTS_INCREMENT' OR Column_Name IS NULL Then
1776: IF New_References.Points_Increment < 0 OR New_References.Points_Increment > 999.999 Then
1777: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1778: IGS_GE_MSG_STACK.ADD;
1779: App_Exception.Raise_Exception;
1780: END IF;
1781: END IF;
1781: END IF;
1782:
1783: IF Upper(Column_Name)='ENROLLED_CREDIT_POINTS' OR Column_Name IS NULL Then
1784: IF New_References.Enrolled_Credit_Points < 0 OR New_References.Enrolled_Credit_Points > 999.999 Then
1785: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1786: IGS_GE_MSG_STACK.ADD;
1787: App_Exception.Raise_Exception;
1788: END IF;
1789: END IF;
1789: END IF;
1790:
1791: IF Upper(Column_Name)='VERSION_NUMBER' OR Column_Name IS NULL Then
1792: IF New_References.Version_Number < 1 OR New_References.Version_Number > 999 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;
1797: END IF;
1798:
1799: IF Upper(Column_Name)='POINTS_MIN' OR Column_Name IS NULL Then
1800: IF New_References.Points_Min < 0 OR New_References.Points_Min > 999.999 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;
1805: END IF;
1806:
1807: IF Upper(Column_Name)='POINTS_MAX' OR Column_Name IS NULL Then
1808: IF New_References.Points_Max < 0 OR New_References.Points_Max > 999.999 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;
1816: -- Code added as per DLD Unit Section Enrollment Information
1817: -- Validating atleast one Enrollment method is checked
1818: IF (Upper(Column_Name) = 'SS_ENROL_IND' OR Upper(Column_Name)= 'IVR_ENROL_IND') OR Column_Name IS NULL THEN
1819: IF (new_references.ss_enrol_ind = 'N' AND new_references.ivr_enrol_ind = 'N') THEN
1820: Fnd_Message.Set_Name('IGS','IGS_PS_ONE_UNIT_ENR_MTHD');
1821: IGS_GE_MSG_STACK.ADD;
1822: App_Exception.Raise_Exception;
1823: END IF;
1824: END IF;
1825:
1826: -- Added as part of Bug# 2636716, EN Integration.
1827: IF Upper(Column_Name)='AUDITABLE_IND' OR Column_Name IS NULL Then
1828: IF New_References.auditable_Ind <> UPPER(New_References.auditable_Ind) Then
1829: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1830: IGS_GE_MSG_STACK.ADD;
1831: App_Exception.Raise_Exception;
1832: END IF;
1833:
1831: App_Exception.Raise_Exception;
1832: END IF;
1833:
1834: IF New_References.auditable_Ind NOT IN ( 'Y' , 'N' ) Then
1835: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1836: IGS_GE_MSG_STACK.ADD;
1837: App_Exception.Raise_Exception;
1838: END IF;
1839: END IF;
1839: END IF;
1840:
1841: IF Upper(Column_Name)='AUDIT_PERMISSION_IND' OR Column_Name IS NULL Then
1842: IF New_References.audit_permission_Ind <> UPPER(New_References.audit_permission_Ind) Then
1843: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1844: IGS_GE_MSG_STACK.ADD;
1845: App_Exception.Raise_Exception;
1846: END IF;
1847:
1845: App_Exception.Raise_Exception;
1846: END IF;
1847:
1848: IF New_References.audit_permission_Ind NOT IN ( 'Y' , 'N' ) Then
1849: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1850: IGS_GE_MSG_STACK.ADD;
1851: App_Exception.Raise_Exception;
1852: END IF;
1853: END IF;
1854:
1855: -- Added as part of Bug#2702240,following checks have been added
1856: IF Upper(Column_Name)='STATE_FINANCIAL_AID' OR Column_Name IS NULL Then
1857: IF New_References.state_financial_aid <> UPPER(New_References.state_financial_aid) Then
1858: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1859: IGS_GE_MSG_STACK.ADD;
1860: App_Exception.Raise_Exception;
1861: END IF;
1862:
1860: App_Exception.Raise_Exception;
1861: END IF;
1862:
1863: IF New_References.state_financial_aid NOT IN ( 'Y' , 'N' ) Then
1864: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1865: IGS_GE_MSG_STACK.ADD;
1866: App_Exception.Raise_Exception;
1867: END IF;
1868: END IF;
1868: END IF;
1869:
1870: IF Upper(Column_Name)='FEDERAL_FINANCIAL_AID' OR Column_Name IS NULL Then
1871: IF New_References.federal_financial_aid <> UPPER(New_References.federal_financial_aid) Then
1872: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1873: IGS_GE_MSG_STACK.ADD;
1874: App_Exception.Raise_Exception;
1875: END IF;
1876:
1874: App_Exception.Raise_Exception;
1875: END IF;
1876:
1877: IF New_References.federal_financial_aid NOT IN ( 'Y' , 'N' ) Then
1878: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1879: IGS_GE_MSG_STACK.ADD;
1880: App_Exception.Raise_Exception;
1881: END IF;
1882: END IF;
1882: END IF;
1883:
1884: IF Upper(Column_Name)='INSTITUTIONAL_FINANCIAL_AID' OR Column_Name IS NULL Then
1885: IF New_References.institutional_financial_aid <> UPPER(New_References.institutional_financial_aid) Then
1886: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1887: IGS_GE_MSG_STACK.ADD;
1888: App_Exception.Raise_Exception;
1889: END IF;
1890:
1888: App_Exception.Raise_Exception;
1889: END IF;
1890:
1891: IF New_References.institutional_financial_aid NOT IN ( 'Y' , 'N' ) Then
1892: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1893: IGS_GE_MSG_STACK.ADD;
1894: App_Exception.Raise_Exception;
1895: END IF;
1896: END IF;
1896: END IF;
1897:
1898: IF Upper(Column_Name)='SAME_TEACHING_PERIOD' OR Column_Name IS NULL Then
1899: IF New_References.same_teaching_period <> UPPER(New_References.same_teaching_period) Then
1900: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1901: IGS_GE_MSG_STACK.ADD;
1902: App_Exception.Raise_Exception;
1903: END IF;
1904:
1902: App_Exception.Raise_Exception;
1903: END IF;
1904:
1905: IF New_References.same_teaching_period NOT IN ( 'Y' , 'N' ) Then
1906: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1907: IGS_GE_MSG_STACK.ADD;
1908: App_Exception.Raise_Exception;
1909: END IF;
1910: END IF;
1910: END IF;
1911:
1912: IF Upper(Column_Name)='EXCLUDE_FROM_MAX_CP_LIMIT' OR Column_Name IS NULL Then
1913: IF New_References.exclude_from_max_cp_limit <> UPPER(New_References.exclude_from_max_cp_limit) Then
1914: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1915: IGS_GE_MSG_STACK.ADD;
1916: App_Exception.Raise_Exception;
1917: END IF;
1918:
1916: App_Exception.Raise_Exception;
1917: END IF;
1918:
1919: IF New_References.exclude_from_max_cp_limit NOT IN ( 'Y' , 'N' ) Then
1920: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1921: IGS_GE_MSG_STACK.ADD;
1922: App_Exception.Raise_Exception;
1923: END IF;
1924: END IF;
1924: END IF;
1925:
1926: IF Upper(Column_Name)='RECORD_EXCLUSION_FLAG' OR Column_Name IS NULL Then
1927: IF New_References.record_exclusion_flag <> UPPER(New_References.record_exclusion_flag) Then
1928: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1929: IGS_GE_MSG_STACK.ADD;
1930: App_Exception.Raise_Exception;
1931: END IF;
1932:
1930: App_Exception.Raise_Exception;
1931: END IF;
1932:
1933: IF New_References.record_exclusion_flag NOT IN ( 'Y' , 'N' ) Then
1934: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1935: IGS_GE_MSG_STACK.ADD;
1936: App_Exception.Raise_Exception;
1937: END IF;
1938: END IF;
1938: END IF;
1939:
1940: IF Upper(Column_Name)='SS_DISPLAY_IND' OR Column_Name IS NULL Then
1941: IF New_References.ss_display_ind <> UPPER(New_References.ss_display_ind) Then
1942: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1943: IGS_GE_MSG_STACK.ADD;
1944: App_Exception.Raise_Exception;
1945: END IF;
1946:
1944: App_Exception.Raise_Exception;
1945: END IF;
1946:
1947: IF New_References.ss_display_ind NOT IN ( 'Y' , 'N' ) Then
1948: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1949: IGS_GE_MSG_STACK.ADD;
1950: App_Exception.Raise_Exception;
1951: END IF;
1952: END IF;
1952: END IF;
1953:
1954: IF Upper(Column_Name)='SPECIAL_PERMISSION_IND' OR Column_Name IS NULL Then
1955: IF New_References.special_permission_ind <> UPPER(New_References.special_permission_ind) Then
1956: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1957: IGS_GE_MSG_STACK.ADD;
1958: App_Exception.Raise_Exception;
1959: END IF;
1960:
1958: App_Exception.Raise_Exception;
1959: END IF;
1960:
1961: IF New_References.special_permission_ind NOT IN ( 'Y' , 'N' ) Then
1962: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1963: IGS_GE_MSG_STACK.ADD;
1964: App_Exception.Raise_Exception;
1965: END IF;
1966: END IF;
1966: END IF;
1967:
1968: IF Upper(Column_Name)='ANON_UNIT_GRADING_IND' OR Column_Name IS NULL Then
1969: IF New_References.anon_unit_grading_ind <> UPPER(New_References.anon_unit_grading_ind) Then
1970: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1971: IGS_GE_MSG_STACK.ADD;
1972: App_Exception.Raise_Exception;
1973: END IF;
1974:
1972: App_Exception.Raise_Exception;
1973: END IF;
1974:
1975: IF New_References.anon_unit_grading_ind NOT IN ( 'Y' , 'N' ) Then
1976: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1977: IGS_GE_MSG_STACK.ADD;
1978: App_Exception.Raise_Exception;
1979: END IF;
1980: END IF;
1980: END IF;
1981:
1982: IF Upper(Column_Name)='ANON_ASSESS_GRADING_IND' OR Column_Name IS NULL Then
1983: IF New_References.anon_assess_grading_ind <> UPPER(New_References.anon_assess_grading_ind) Then
1984: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1985: IGS_GE_MSG_STACK.ADD;
1986: App_Exception.Raise_Exception;
1987: END IF;
1988:
1986: App_Exception.Raise_Exception;
1987: END IF;
1988:
1989: IF New_References.anon_assess_grading_ind NOT IN ( 'Y' , 'N' ) Then
1990: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1991: IGS_GE_MSG_STACK.ADD;
1992: App_Exception.Raise_Exception;
1993: END IF;
1994: END IF;
1995:
1996: -- Added as a part of 2702263
1997: IF Upper(Column_Name)='CLAIMABLE_HOURS' OR Column_Name IS NULL Then
1998: IF New_References.claimable_hours < 0 OR New_References.claimable_hours > 99999.99 Then
1999: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2000: IGS_GE_MSG_STACK.ADD;
2001: App_Exception.Raise_Exception;
2002: END IF;
2003: END IF;
2003: END IF;
2004:
2005: IF Upper(Column_Name)='LECTURE_CREDIT_POINTS' OR Column_Name IS NULL Then
2006: IF New_References.lecture_credit_points < 0 OR New_References.lecture_credit_points > 999.999 Then
2007: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2008: IGS_GE_MSG_STACK.ADD;
2009: App_Exception.Raise_Exception;
2010: END IF;
2011: END IF;
2011: END IF;
2012:
2013: IF Upper(Column_Name)='LAB_CREDIT_POINTS' OR Column_Name IS NULL Then
2014: IF New_References.lab_credit_points < 0 OR New_References.lab_credit_points > 999.999 Then
2015: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2016: IGS_GE_MSG_STACK.ADD;
2017: App_Exception.Raise_Exception;
2018: END IF;
2019: END IF;
2019: END IF;
2020:
2021: IF Upper(Column_Name)='OTHER_CREDIT_POINTS' OR Column_Name IS NULL Then
2022: IF New_References.other_credit_points < 0 OR New_References.other_credit_points > 999.999 Then
2023: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2024: IGS_GE_MSG_STACK.ADD;
2025: App_Exception.Raise_Exception;
2026: END IF;
2027: END IF;
2027: END IF;
2028:
2029: IF Upper(Column_Name)='CLOCK_HOURS' OR Column_Name IS NULL Then
2030: IF New_References.clock_hours < 0 OR New_References.clock_hours > 999.999 Then
2031: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2032: IGS_GE_MSG_STACK.ADD;
2033: App_Exception.Raise_Exception;
2034: END IF;
2035: END IF;
2035: END IF;
2036:
2037: IF Upper(Column_Name)='CONTINUING_EDUCATION_UNITS' OR Column_Name IS NULL Then
2038: IF New_References.continuing_education_units < 0 OR New_References.continuing_education_units > 999.999 Then
2039: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2040: IGS_GE_MSG_STACK.ADD;
2041: App_Exception.Raise_Exception;
2042: END IF;
2043: END IF;
2043: END IF;
2044:
2045: IF Upper(Column_Name)='ADVANCE_MAXIMUM' OR Column_Name IS NULL Then
2046: IF New_References.advance_maximum < 0 OR New_References.advance_maximum > 999999 Then
2047: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2048: IGS_GE_MSG_STACK.ADD;
2049: App_Exception.Raise_Exception;
2050: END IF;
2051: END IF;
2051: END IF;
2052:
2053: IF Upper(Column_Name)='ENROLLMENT_EXPECTED' OR Column_Name IS NULL Then
2054: IF New_References.enrollment_expected < 0 OR New_References.enrollment_expected > 999999 Then
2055: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2056: IGS_GE_MSG_STACK.ADD;
2057: App_Exception.Raise_Exception;
2058: END IF;
2059: END IF;
2059: END IF;
2060:
2061: IF Upper(Column_Name)='ENROLLMENT_MINIMUM' OR Column_Name IS NULL Then
2062: IF New_References.enrollment_minimum < 0 OR New_References.enrollment_minimum > 999999 Then
2063: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2064: IGS_GE_MSG_STACK.ADD;
2065: App_Exception.Raise_Exception;
2066: END IF;
2067: END IF;
2067: END IF;
2068:
2069: IF Upper(Column_Name)='ENROLLMENT_MAXIMUM' OR Column_Name IS NULL Then
2070: IF New_References.enrollment_maximum < 0 OR New_References.enrollment_maximum > 999999 Then
2071: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2072: IGS_GE_MSG_STACK.ADD;
2073: App_Exception.Raise_Exception;
2074: END IF;
2075: END IF;
2075: END IF;
2076:
2077: IF Upper(Column_Name)='OVERRIDE_ENROLLMENT_MAX' OR Column_Name IS NULL Then
2078: IF New_References.override_enrollment_max < 0 OR New_References.override_enrollment_max > 999999 Then
2079: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2080: IGS_GE_MSG_STACK.ADD;
2081: App_Exception.Raise_Exception;
2082: END IF;
2083: END IF;
2083: END IF;
2084:
2085: IF Upper(Column_Name)='MAX_AUDITORS_ALLOWED' OR Column_Name IS NULL Then
2086: IF New_References.max_auditors_allowed < 1 OR New_References.max_auditors_allowed > 999999 Then
2087: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2088: IGS_GE_MSG_STACK.ADD;
2089: App_Exception.Raise_Exception;
2090: END IF;
2091: END IF;
2091: END IF;
2092:
2093: IF Upper(Column_Name)='WORK_LOAD_CP_LECTURE' OR Column_Name IS NULL Then
2094: IF New_References.work_load_cp_lecture < 0 OR New_References.work_load_cp_lecture > 999.99 Then
2095: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2096: IGS_GE_MSG_STACK.ADD;
2097: App_Exception.Raise_Exception;
2098: END IF;
2099: END IF;
2099: END IF;
2100:
2101: IF Upper(Column_Name)='WORK_LOAD_CP_LAB' OR Column_Name IS NULL Then
2102: IF New_References.work_load_cp_lab < 0 OR New_References.work_load_cp_lab > 999.99 Then
2103: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2104: IGS_GE_MSG_STACK.ADD;
2105: App_Exception.Raise_Exception;
2106: END IF;
2107: END IF;
2107: END IF;
2108:
2109: IF Upper(Column_Name)='MAX_REPEAT_CREDIT_POINTS' OR Column_Name IS NULL Then
2110: IF New_References.max_repeat_credit_points < 0 OR New_References.max_repeat_credit_points > 999.999 Then
2111: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2112: IGS_GE_MSG_STACK.ADD;
2113: App_Exception.Raise_Exception;
2114: END IF;
2115: END IF;
2115: END IF;
2116:
2117: IF Upper(Column_Name)='SAME_TEACH_PERIOD_REPEATS_CP' OR Column_Name IS NULL Then
2118: IF New_References.same_teach_period_repeats_cp < 0 OR New_References.same_teach_period_repeats_cp > 999.999 Then
2119: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2120: IGS_GE_MSG_STACK.ADD;
2121: App_Exception.Raise_Exception;
2122: END IF;
2123: END IF;
2123: END IF;
2124:
2125: IF Upper(Column_Name)='WORK_LOAD_OTHER' OR Column_Name IS NULL Then
2126: IF New_References.work_load_other < 0 OR New_References.WORK_LOAD_OTHER > 999.99 Then
2127: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2128: IGS_GE_MSG_STACK.ADD;
2129: App_Exception.Raise_Exception;
2130: END IF;
2131: END IF;
2131: END IF;
2132:
2133: IF Upper(Column_Name)='CONTACT_HRS_LECTURE' OR Column_Name IS NULL Then
2134: IF New_References.contact_hrs_lecture < 0 OR New_References.contact_hrs_lecture > 999.99 Then
2135: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2136: IGS_GE_MSG_STACK.ADD;
2137: App_Exception.Raise_Exception;
2138: END IF;
2139: END IF;
2139: END IF;
2140:
2141: IF Upper(Column_Name)='CONTACT_HRS_LAB' OR Column_Name IS NULL Then
2142: IF New_References.contact_hrs_lab < 0 OR New_References.contact_hrs_lab > 999.99 Then
2143: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2144: IGS_GE_MSG_STACK.ADD;
2145: App_Exception.Raise_Exception;
2146: END IF;
2147: END IF;
2147: END IF;
2148:
2149: IF Upper(Column_Name)='CONTACT_HRS_OTHER' OR Column_Name IS NULL Then
2150: IF New_References.contact_hrs_other < 0 OR New_References.contact_hrs_other > 999.99 Then
2151: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2152: IGS_GE_MSG_STACK.ADD;
2153: App_Exception.Raise_Exception;
2154: END IF;
2155: END IF;
2155: END IF;
2156:
2157: IF Upper(Column_Name)='NON_SCHD_REQUIRED_HRS' OR Column_Name IS NULL Then
2158: IF New_References.non_schd_required_hrs < 0 OR New_References.non_schd_required_hrs > 999.99 Then
2159: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2160: IGS_GE_MSG_STACK.ADD;
2161: App_Exception.Raise_Exception;
2162: END IF;
2163: END IF;
2163: END IF;
2164:
2165: IF Upper(Column_Name)='MAX_REPEATS_FOR_CREDIT' OR Column_Name IS NULL Then
2166: IF New_References.max_repeats_for_credit < 0 OR New_References.max_repeats_for_credit > 999 Then
2167: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2168: IGS_GE_MSG_STACK.ADD;
2169: App_Exception.Raise_Exception;
2170: END IF;
2171: END IF;
2171: END IF;
2172:
2173: IF Upper(Column_Name)='MAX_REPEATS_FOR_FUNDING' OR Column_Name IS NULL Then
2174: IF New_References.max_repeats_for_funding < 0 OR New_References.max_repeats_for_funding > 999 Then
2175: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2176: IGS_GE_MSG_STACK.ADD;
2177: App_Exception.Raise_Exception;
2178: END IF;
2179: END IF;
2179: END IF;
2180:
2181: IF Upper(Column_Name)='SAME_TEACH_PERIOD_REPEATS' OR Column_Name IS NULL Then
2182: IF New_References.same_teach_period_repeats < 0 OR New_References.same_teach_period_repeats > 999 Then
2183: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2184: IGS_GE_MSG_STACK.ADD;
2185: App_Exception.Raise_Exception;
2186: END IF;
2187: END IF;
2187: END IF;
2188:
2189: IF Upper(Column_Name)='BILLING_CREDIT_POINTS' OR Column_Name IS NULL Then
2190: IF New_References.billing_credit_points < 0 OR New_References.billing_credit_points > 999.999 Then
2191: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2192: IGS_GE_MSG_STACK.ADD;
2193: App_Exception.Raise_Exception;
2194: END IF;
2195: END IF;
2195: END IF;
2196:
2197: IF Upper(Column_Name)='BILLING_HRS' OR Column_Name IS NULL Then
2198: IF New_References.billing_hrs < 0 OR New_References.billing_hrs > 999.999 Then
2199: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2200: IGS_GE_MSG_STACK.ADD;
2201: App_Exception.Raise_Exception;
2202: END IF;
2203: END IF;
2203: END IF;
2204:
2205: IF Upper(Column_Name)='OVRD_WKLD_VAL_FLAG' OR Column_Name IS NULL Then
2206: IF New_References.ovrd_wkld_val_flag NOT IN ( 'Y' , 'N' ) Then
2207: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
2208: IGS_GE_MSG_STACK.ADD;
2209: App_Exception.Raise_Exception;
2210: END IF;
2211: END IF;
2222: NULL;
2223: ELSE
2224: IF NOT IGS_PS_CR_PT_DSCR_PKG.Get_PK_For_Validation (
2225: new_references.credit_point_descriptor) THEN
2226: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2227: IGS_GE_MSG_STACK.ADD;
2228: App_Exception.Raise_Exception;
2229: END IF;
2230:
2240: IF NOT IGS_OR_UNIT_PKG.Get_PK_For_Validation (
2241: new_references.owner_org_unit_cd,
2242: new_references.owner_ou_start_dt) THEN
2243:
2244: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2245: IGS_GE_MSG_STACK.ADD;
2246: App_Exception.Raise_Exception;
2247: END IF;
2248:
2255: ELSE
2256: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
2257: new_references.coord_person_id) THEN
2258:
2259: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2260: IGS_GE_MSG_STACK.ADD;
2261: App_Exception.Raise_Exception;
2262: END IF;
2263:
2270: ELSE
2271: IF NOT IGS_PS_UNIT_INT_LVL_PKG.Get_PK_For_Validation (
2272: new_references.unit_int_course_level_cd) THEN
2273:
2274: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2275: IGS_GE_MSG_STACK.ADD;
2276: App_Exception.Raise_Exception;
2277: END IF;
2278:
2285: ELSE
2286: IF NOT IGS_PS_UNIT_LEVEL_PKG.Get_PK_For_Validation (
2287: new_references.unit_level) THEN
2288:
2289: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2290: IGS_GE_MSG_STACK.ADD;
2291: App_Exception.Raise_Exception;
2292: END IF;
2293:
2300: ELSE
2301: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
2302: new_references.unit_cd) THEN
2303:
2304: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2305: IGS_GE_MSG_STACK.ADD;
2306: App_Exception.Raise_Exception;
2307: END IF;
2308:
2315: ELSE
2316: IF NOT IGS_PS_UNIT_STAT_PKG.Get_PK_For_Validation (
2317: new_references.unit_status) THEN
2318:
2319: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2320: IGS_GE_MSG_STACK.ADD;
2321: App_Exception.Raise_Exception;
2322: END IF;
2323:
2328: NULL;
2329: ELSIF NOT igs_ps_unt_crclm_pkg.get_pk_for_validation (
2330: new_references.curriculum_id
2331: ) THEN
2332: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2333: igs_ge_msg_stack.add;
2334: app_exception.raise_exception;
2335: END IF;
2336:
2339: NULL;
2340: ELSIF NOT igs_ps_unit_subtitle_pkg.get_pk_for_validation (
2341: new_references.subtitle_id
2342: ) THEN
2343: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2344: igs_ge_msg_stack.add;
2345: app_exception.raise_exception;
2346: END IF;
2347:
2350: NULL;
2351: ELSIF NOT igs_ps_rpt_fmly_pkg.get_pk_for_validation (
2352: new_references.rpt_fmly_id
2353: ) THEN
2354: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2355: igs_ge_msg_stack.add;
2356: app_exception.raise_exception;
2357: END IF;
2358:
2361: NULL;
2362: ELSIF NOT igs_ps_unit_type_lvl_pkg.get_pk_for_validation (
2363: new_references.unit_type_id
2364: ) THEN
2365: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2366: igs_ge_msg_stack.add;
2367: app_exception.raise_exception;
2368: END IF;
2369:
2375: ELSIF NOT igs_ca_inst_pkg.get_pk_for_validation (
2376: new_references.cal_type_enrol_load_cal,
2377: new_references.sequence_num_enrol_load_cal
2378: ) THEN
2379: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2380: igs_ge_msg_stack.add;
2381: app_exception.raise_exception;
2382: END IF;
2383:
2389: ELSIF NOT igs_ca_inst_pkg.get_pk_for_validation (
2390: new_references.cal_type_offer_load_cal,
2391: new_references.sequence_num_offer_load_cal
2392: ) THEN
2393: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
2394: igs_ge_msg_stack.add;
2395: app_exception.raise_exception;
2396: END IF;
2397:
2401: ELSE
2402: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
2403: new_references.rev_account_cd
2404: ) THEN
2405: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2406: IGS_GE_MSG_STACK.ADD;
2407: App_Exception.Raise_Exception;
2408: END IF;
2409: END IF;
2675: Open cur_rowid;
2676: Fetch cur_rowid INTO lv_rowid;
2677: IF (cur_rowid%FOUND) THEN
2678: Close cur_rowid;
2679: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_CPD_FK');
2680: IGS_GE_MSG_STACK.ADD;
2681: App_Exception.Raise_Exception;
2682: Return;
2683: END IF;
2703: Open cur_rowid;
2704: Fetch cur_rowid INTO lv_rowid;
2705: IF (cur_rowid%FOUND) THEN
2706: Close cur_rowid;
2707: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_OU_FK');
2708: IGS_GE_MSG_STACK.ADD;
2709: App_Exception.Raise_Exception;
2710: Return;
2711: END IF;
2729: Open cur_rowid;
2730: Fetch cur_rowid INTO lv_rowid;
2731: IF (cur_rowid%FOUND) THEN
2732: Close cur_rowid;
2733: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_PE_FK');
2734: IGS_GE_MSG_STACK.ADD;
2735: App_Exception.Raise_Exception;
2736: Return;
2737: END IF;
2755: Open cur_rowid;
2756: Fetch cur_rowid INTO lv_rowid;
2757: IF (cur_rowid%FOUND) THEN
2758: Close cur_rowid;
2759: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_UICL_FK');
2760: IGS_GE_MSG_STACK.ADD;
2761: App_Exception.Raise_Exception;
2762: Return;
2763: END IF;
2781: Open cur_rowid;
2782: Fetch cur_rowid INTO lv_rowid;
2783: IF (cur_rowid%FOUND) THEN
2784: Close cur_rowid;
2785: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_UN_FK');
2786: IGS_GE_MSG_STACK.ADD;
2787: App_Exception.Raise_Exception;
2788: Return;
2789: END IF;
2807: Open cur_rowid;
2808: Fetch cur_rowid INTO lv_rowid;
2809: IF (cur_rowid%FOUND) THEN
2810: Close cur_rowid;
2811: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UV_UST_FK');
2812: IGS_GE_MSG_STACK.ADD;
2813: App_Exception.Raise_Exception;
2814: Return;
2815: END IF;
2841: OPEN cur_rowid;
2842: FETCH cur_rowid INTO lv_rowid;
2843: IF (cur_rowid%FOUND) THEN
2844: CLOSE cur_rowid;
2845: fnd_message.set_name ('IGS', 'IGS_PS_UV_UCUR_FK');
2846: igs_ge_msg_stack.add;
2847: app_exception.raise_exception;
2848: RETURN;
2849: END IF;
2875: OPEN cur_rowid;
2876: FETCH cur_rowid INTO lv_rowid;
2877: IF (cur_rowid%FOUND) THEN
2878: CLOSE cur_rowid;
2879: fnd_message.set_name ('IGS', 'IGS_PS_UV_UVSB_FK');
2880: igs_ge_msg_stack.add;
2881: app_exception.raise_exception;
2882: RETURN;
2883: END IF;
2909: OPEN cur_rowid;
2910: FETCH cur_rowid INTO lv_rowid;
2911: IF (cur_rowid%FOUND) THEN
2912: CLOSE cur_rowid;
2913: fnd_message.set_name ('IGS', 'IGS_PS_UV_CRCLM_FK');
2914: igs_ge_msg_stack.add;
2915: app_exception.raise_exception;
2916: RETURN;
2917: END IF;
2946: OPEN cur_rowid;
2947: FETCH cur_rowid INTO lv_rowid;
2948: IF (cur_rowid%FOUND) THEN
2949: CLOSE cur_rowid;
2950: fnd_message.set_name ('IGS', 'IGS_PS_UV_CAI_FK');
2951: igs_ge_msg_stack.add;
2952: app_exception.raise_exception;
2953: RETURN;
2954: END IF;
2983: OPEN cur_rowid;
2984: FETCH cur_rowid INTO lv_rowid;
2985: IF (cur_rowid%FOUND) THEN
2986: CLOSE cur_rowid;
2987: fnd_message.set_name ('IGS', 'IGS_PS_UV_CAI_FK');
2988: igs_ge_msg_stack.add;
2989: app_exception.raise_exception;
2990: RETURN;
2991: END IF;
3232: p_updating => FALSE );
3233:
3234: IF Get_PK_For_Validation (New_References.unit_cd,
3235: New_References.version_number) THEN
3236: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
3237: IGS_GE_MSG_STACK.ADD;
3238: App_Exception.Raise_Exception;
3239: END IF;
3240: Check_Constraints;
3257: beforerowdelete;
3258: Check_Child_Existance;
3259: ELSIF (p_action = 'VALIDATE_INSERT') THEN
3260: IF Get_PK_For_Validation (New_References.unit_cd, New_References.version_number) THEN
3261: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
3262: IGS_GE_MSG_STACK.ADD;
3263: App_Exception.Raise_Exception;
3264: END IF;
3265: Check_Constraints;
3319: END LOOP;
3320: EXCEPTION
3321: WHEN OTHERS THEN
3322: -- If an error occurs during insertion in igs_ps_ent_pt_ref_cd then raise an exception.
3323: p_c_message_name := FND_MESSAGE.GET;
3324:
3325: END dflt_unit_ref_code;
3326: -------------------------------------------------------------
3327: PROCEDURE After_DML (
3616: if X_LAST_UPDATE_LOGIN is NULL then
3617: X_LAST_UPDATE_LOGIN := -1;
3618: end if;
3619: else
3620: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
3621: IGS_GE_MSG_STACK.ADD;
3622: app_exception.raise_exception;
3623: end if;
3624:
4209: open c1;
4210: fetch c1 into tlinfo;
4211: if (c1%notfound) then
4212: close c1;
4213: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
4214: IGS_GE_MSG_STACK.ADD;
4215: app_exception.raise_exception;
4216: return;
4217: end if;
4486: AND (X_BILLING_HRS IS NULL)))
4487: ) then
4488: null;
4489: else
4490: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
4491: IGS_GE_MSG_STACK.ADD;
4492: app_exception.raise_exception;
4493: end if;
4494: return;
4620: if X_LAST_UPDATE_LOGIN is NULL then
4621: X_LAST_UPDATE_LOGIN := -1;
4622: end if;
4623: else
4624: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
4625: IGS_GE_MSG_STACK.ADD;
4626: app_exception.raise_exception;
4627: end if;
4628: