[Home] [Help]
67: Open cur_old_ref_values;
68: Fetch cur_old_ref_values INTO old_references;
69: IF (cur_old_ref_values%NOTFOUND) AND
70: (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
71: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
72: IGS_GE_MSG_STACK.ADD;
73: Close cur_old_ref_values;
74: App_Exception.Raise_Exception;
75:
136: ELSE
137: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
138: new_references.restricted_attendance_type
139: ) THEN
140: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
141: IGS_GE_MSG_STACK.ADD;
142: App_Exception.Raise_Exception;
143: END IF;
144: END IF;
150: ELSE
151: IF NOT IGS_PS_GRP_PKG.Get_PK_For_Validation (
152: new_references.encmb_course_group_cd
153: )THEN
154: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
168: IF NOT IGS_OR_UNIT_PKG.Get_PK_For_Validation (
169: new_references.decision_org_unit_cd,
170: new_references.decision_ou_start_dt
171: )THEN
172: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
182: ELSE
183: IF NOT IGS_PR_OU_TYPE_PKG.Get_PK_For_Validation (
184: new_references.progression_outcome_type
185: )THEN
186: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190: END IF;
204: new_references.progression_rule_cat,
205: new_references.pro_pra_sequence_number,
206: new_references.pro_sequence_number
207: )THEN
208: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: END IF;
212: END IF;
238: new_references.progression_rule_cat,
239: new_references.pra_sequence_number,
240: new_references.rule_check_dt
241: )THEN
242: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
331:
332: Open cur_rowid;
333: Fetch cur_rowid INTO lv_rowid;
334: IF (cur_rowid%FOUND) THEN
335: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPO_ATT_FK');
336: IGS_GE_MSG_STACK.ADD;
337: Close cur_rowid;
338: App_Exception.Raise_Exception;
339: Return;
360:
361: Open cur_rowid;
362: Fetch cur_rowid INTO lv_rowid;
363: IF (cur_rowid%FOUND) THEN
364: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPO_OU_FK');
365: IGS_GE_MSG_STACK.ADD;
366: Close cur_rowid;
367: App_Exception.Raise_Exception;
368: Return;
386:
387: Open cur_rowid;
388: Fetch cur_rowid INTO lv_rowid;
389: IF (cur_rowid%FOUND) THEN
390: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPO_POT_FK');
391: IGS_GE_MSG_STACK.ADD;
392: Close cur_rowid;
393: App_Exception.Raise_Exception;
394: Return;
416:
417: Open cur_rowid;
418: Fetch cur_rowid INTO lv_rowid;
419: IF (cur_rowid%FOUND) THEN
420: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPO_PRO_FK');
421: IGS_GE_MSG_STACK.ADD;
422: Close cur_rowid;
423: App_Exception.Raise_Exception;
424: Return;
454:
455: Open cur_rowid;
456: Fetch cur_rowid INTO lv_rowid;
457: IF (cur_rowid%FOUND) THEN
458: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPO_SPRC_FK');
459: IGS_GE_MSG_STACK.ADD;
460: Close cur_rowid;
461: App_Exception.Raise_Exception;
462: Return;
492: OPEN c_parent( new_references.progression_rule_cat, new_references.pro_pra_sequence_number, new_references.pro_sequence_number );
493: FETCH c_parent INTO l_dummy;
494: IF c_parent%NOTFOUND THEN
495: CLOSE c_parent;
496: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
497: IGS_GE_MSG_STACK.ADD;
498: APP_EXCEPTION.RAISE_EXCEPTION;
499: END IF;
500: CLOSE c_parent;
505: OPEN c_parent( new_references.progression_rule_cat, new_references.pro_pra_sequence_number, new_references.pro_sequence_number );
506: FETCH c_parent INTO l_dummy;
507: IF c_parent%NOTFOUND THEN
508: CLOSE c_parent;
509: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
510: IGS_GE_MSG_STACK.ADD;
511: APP_EXCEPTION.RAISE_EXCEPTION;
512: END IF;
513: CLOSE c_parent;
617: FETCH c_sysout_type INTO lvSystem_Outcome_Type;
618: CLOSE c_sysout_type;
619: IF lvSystem_Outcome_Type = 'SUSPENSION' THEN
620: IF (x_duration IS NULL OR x_duration_type IS NULL) THEN
621: Fnd_Message.Set_Name('IGS','IGS_PR_SUSP_OUC_MUST_DURAT');
622: IGS_GE_MSG_STACK.ADD;
623: App_Exception.Raise_Exception;
624: END IF;
625: END IF;
624: END IF;
625: END IF;
626: IF lvSystem_Outcome_Type <> 'PROBATION' THEN
627: IF x_duration_type = 'EFFECTIVE' THEN
628: Fnd_Message.Set_Name('IGS','IGS_PR_PROB_OUC_ONLY_EFCT_DUR');
629: IGS_GE_MSG_STACK.ADD;
630: App_Exception.Raise_Exception;
631: END IF;
632: END IF;
638: IF get_pk_for_validation (
639: new_references.person_id ,
640: new_references.course_cd,
641: new_references.sequence_number) THEN
642: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
643: IGS_GE_MSG_STACK.ADD;
644: App_Exception.Raise_Exception;
645: END IF;
646: check_constraints;
655: IF Get_PK_For_Validation (
656: new_references.person_id ,
657: new_references.course_cd,
658: new_references.sequence_number) THEN
659: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
660: IGS_GE_MSG_STACK.ADD;
661: App_Exception.Raise_Exception;
662: END IF;
663: check_constraints;
733: IF X_LAST_UPDATE_LOGIN IS NULL THEN
734: X_LAST_UPDATE_LOGIN := -1;
735: END IF;
736: ELSE
737: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
738: IGS_GE_MSG_STACK.ADD;
739: app_exception.raise_exception;
740: END IF;
741:
883:
884: EXCEPTION
885: WHEN OTHERS THEN
886: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
887: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
888: fnd_message.set_token ('ERR_CD', SQLCODE);
889: igs_ge_msg_stack.add;
890: igs_sc_gen_001.unset_ctx('R');
891: app_exception.raise_exception;
884: EXCEPTION
885: WHEN OTHERS THEN
886: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
887: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
888: fnd_message.set_token ('ERR_CD', SQLCODE);
889: igs_ge_msg_stack.add;
890: igs_sc_gen_001.unset_ctx('R');
891: app_exception.raise_exception;
892: ELSE
969: BEGIN
970: OPEN c1;
971: FETCH c1 INTO tlinfo;
972: IF (c1%NOTFOUND) THEN
973: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
974: IGS_GE_MSG_STACK.ADD;
975: CLOSE c1;
976: app_exception.raise_exception;
977: RETURN;
1071: AND (X_PRO_PRA_SEQUENCE_NUMBER IS NULL)))
1072: ) THEN
1073: NULL;
1074: ELSE
1075: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1076: IGS_GE_MSG_STACK.ADD;
1077: app_exception.raise_exception;
1078: END IF;
1079: RETURN;
1133: IF X_LAST_UPDATE_LOGIN IS NULL THEN
1134: X_LAST_UPDATE_LOGIN := -1;
1135: END IF;
1136: ELSE
1137: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1138: IGS_GE_MSG_STACK.ADD;
1139: app_exception.raise_exception;
1140: END IF;
1141:
1220: last_updated_by = x_last_updated_by,
1221: last_update_login = x_last_update_login
1222: WHERE ROWID = X_ROWID;
1223: IF (SQL%NOTFOUND) THEN
1224: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1225: igs_ge_msg_stack.add;
1226: igs_sc_gen_001.unset_ctx('R');
1227: app_exception.raise_exception;
1228: END IF;
1234:
1235: EXCEPTION
1236: WHEN OTHERS THEN
1237: IF (SQLCODE = (-28115)) THEN
1238: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1239: fnd_message.set_token ('ERR_CD', SQLCODE);
1240: igs_ge_msg_stack.add;
1241: igs_sc_gen_001.unset_ctx('R');
1242: app_exception.raise_exception;
1235: EXCEPTION
1236: WHEN OTHERS THEN
1237: IF (SQLCODE = (-28115)) THEN
1238: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1239: fnd_message.set_token ('ERR_CD', SQLCODE);
1240: igs_ge_msg_stack.add;
1241: igs_sc_gen_001.unset_ctx('R');
1242: app_exception.raise_exception;
1243: ELSE
1390: END IF;
1391: DELETE FROM igs_pr_stdnt_pr_ou_all
1392: WHERE ROWID = x_rowid;
1393: IF (SQL%NOTFOUND) THEN
1394: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1395: igs_ge_msg_stack.add;
1396: igs_sc_gen_001.unset_ctx('R');
1397: app_exception.raise_exception;
1398: END IF;
1448:
1449: IF UPPER (Column_name) = 'SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
1450: IF new_references.sequence_number < 1 OR
1451: new_references.SEQUENCE_NUMBER > 999999 THEN
1452: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1453: IGS_GE_MSG_STACK.ADD;
1454: App_Exception.Raise_Exception ;
1455: END IF;
1456: END IF ;
1457:
1458: IF UPPER (Column_name) = 'PRG_CI_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
1459: IF new_references.PRG_CI_SEQUENCE_NUMBER < 1 OR
1460: new_references.PRG_CI_SEQUENCE_NUMBER > 999999 THEN
1461: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1462: IGS_GE_MSG_STACK.ADD;
1463: App_Exception.Raise_Exception ;
1464: END IF;
1465: END IF ;
1466:
1467: IF UPPER (Column_name) = 'PRA_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
1468: IF new_references.PRA_SEQUENCE_NUMBER < 1 OR
1469: new_references.PRA_SEQUENCE_NUMBER > 999999 THEN
1470: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1471: IGS_GE_MSG_STACK.ADD;
1472: App_Exception.Raise_Exception ;
1473: END IF;
1474: END IF ;
1475:
1476: IF UPPER (Column_name) = 'PRO_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
1477: IF new_references.PRO_SEQUENCE_NUMBER < 1 OR
1478: new_references.PRO_SEQUENCE_NUMBER > 999999 THEN
1479: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1480: IGS_GE_MSG_STACK.ADD;
1481: App_Exception.Raise_Exception ;
1482: END IF;
1483: END IF ;
1483: END IF ;
1484:
1485: IF UPPER (Column_name) = 'DURATION' OR COLUMN_NAME IS NULL THEN
1486: IF new_references.DURATION < 1 OR new_references.DURATION > 999 THEN
1487: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1488: IGS_GE_MSG_STACK.ADD;
1489: App_Exception.Raise_Exception ;
1490: END IF;
1491: END IF ;
1491: END IF ;
1492:
1493: IF UPPER (Column_name) = 'DURATION_TYPE' OR COLUMN_NAME IS NULL THEN
1494: IF new_references.DURATION_TYPE<> UPPER (new_references.DURATION_TYPE) THEN
1495: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1496: IGS_GE_MSG_STACK.ADD;
1497: App_Exception.Raise_Exception ;
1498: END IF;
1499: IF new_references.DURATION_TYPE NOT IN ('NORMAL' , 'EFFECTIVE') THEN
1496: IGS_GE_MSG_STACK.ADD;
1497: App_Exception.Raise_Exception ;
1498: END IF;
1499: IF new_references.DURATION_TYPE NOT IN ('NORMAL' , 'EFFECTIVE') THEN
1500: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1501: IGS_GE_MSG_STACK.ADD;
1502: App_Exception.Raise_Exception ;
1503: END IF;
1504: END IF ;
1505:
1506: IF UPPER (Column_name) = 'DECISION_STATUS' OR COLUMN_NAME IS NULL THEN
1507: IF new_references.DECISION_STATUS <> UPPER (new_references.DECISION_STATUS)
1508: THEN
1509: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1510: IGS_GE_MSG_STACK.ADD;
1511: App_Exception.Raise_Exception ;
1512: END IF;
1513: IF new_references.DECISION_STATUS NOT IN ('PENDING', 'APPROVED',
1511: App_Exception.Raise_Exception ;
1512: END IF;
1513: IF new_references.DECISION_STATUS NOT IN ('PENDING', 'APPROVED',
1514: 'WAIVED', 'CANCELLED', 'REMOVED') THEN
1515: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1516: IGS_GE_MSG_STACK.ADD;
1517: App_Exception.Raise_Exception ;
1518: END IF;
1519: END IF ;
1520:
1521: IF UPPER (Column_name) = 'SHOW_CAUSE_OUTCOME_TYPE' OR COLUMN_NAME IS NULL THEN
1522: IF new_references.SHOW_CAUSE_OUTCOME_TYPE <>
1523: UPPER (new_references.SHOW_CAUSE_OUTCOME_TYPE) THEN
1524: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1525: IGS_GE_MSG_STACK.ADD;
1526: App_Exception.Raise_Exception ;
1527: END IF;
1528: IF new_references.SHOW_CAUSE_OUTCOME_TYPE NOT IN ('UPHELD', 'DISMISSED')
1526: App_Exception.Raise_Exception ;
1527: END IF;
1528: IF new_references.SHOW_CAUSE_OUTCOME_TYPE NOT IN ('UPHELD', 'DISMISSED')
1529: THEN
1530: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1531: IGS_GE_MSG_STACK.ADD;
1532: App_Exception.Raise_Exception ;
1533: END IF;
1534: END IF ;
1535:
1536: IF UPPER (Column_name) = 'APPEAL_OUTCOME_TYPE' OR COLUMN_NAME IS NULL THEN
1537: IF new_references.APPEAL_OUTCOME_TYPE <>
1538: UPPER (new_references.APPEAL_OUTCOME_TYPE) THEN
1539: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1540: IGS_GE_MSG_STACK.ADD;
1541: App_Exception.Raise_Exception ;
1542: END IF;
1543: IF new_references.APPEAL_OUTCOME_TYPE NOT IN ('UPHELD' , 'DISMISSED') THEN
1540: IGS_GE_MSG_STACK.ADD;
1541: App_Exception.Raise_Exception ;
1542: END IF;
1543: IF new_references.APPEAL_OUTCOME_TYPE NOT IN ('UPHELD' , 'DISMISSED') 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:
1550: IF UPPER (Column_name) = 'RESTRICTED_ENROLMENT_CP' OR COLUMN_NAME IS NULL THEN
1551: IF new_references.RESTRICTED_ENROLMENT_CP < 0 OR
1552: new_references.RESTRICTED_ENROLMENT_CP > 999.999 THEN
1553: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1554: IGS_GE_MSG_STACK.ADD;
1555: App_Exception.Raise_Exception ;
1556: END IF;
1557: END IF ;
1557: END IF ;
1558:
1559: IF UPPER (Column_name) = 'COURSE_CD' OR COLUMN_NAME IS NULL THEN
1560: IF new_references.COURSE_CD<> UPPER (new_references.COURSE_CD) 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:
1567: IF UPPER (Column_name) = 'ENCMB_COURSE_GROUP_CD' OR COLUMN_NAME IS NULL THEN
1568: IF new_references.ENCMB_COURSE_GROUP_CD <>
1569: UPPER (new_references.ENCMB_COURSE_GROUP_CD) THEN
1570: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1571: IGS_GE_MSG_STACK.ADD;
1572: App_Exception.Raise_Exception ;
1573: END IF;
1574: END IF ;
1574: END IF ;
1575:
1576: IF UPPER (Column_name) = 'PRG_CAL_TYPE' OR COLUMN_NAME IS NULL THEN
1577: IF new_references.PRG_CAL_TYPE<> UPPER (new_references.PRG_CAL_TYPE) THEN
1578: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1579: IGS_GE_MSG_STACK.ADD;
1580: App_Exception.Raise_Exception ;
1581: END IF;
1582: END IF ;
1584: IF UPPER (Column_name) = 'PROGRESSION_OUTCOME_TYPE' OR COLUMN_NAME IS NULL
1585: THEN
1586: IF new_references.PROGRESSION_OUTCOME_TYPE <>
1587: UPPER (new_references.PROGRESSION_OUTCOME_TYPE) THEN
1588: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1589: IGS_GE_MSG_STACK.ADD;
1590: App_Exception.Raise_Exception ;
1591: END IF;
1592: END IF ;
1593:
1594: IF UPPER (Column_name) = 'PROGRESSION_RULE_CAT' OR COLUMN_NAME IS NULL THEN
1595: IF new_references.PROGRESSION_RULE_CAT <>
1596: UPPER (new_references.PROGRESSION_RULE_CAT) THEN
1597: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1598: IGS_GE_MSG_STACK.ADD;
1599: App_Exception.Raise_Exception ;
1600: END IF;
1601: END IF ;
1603: IF UPPER (Column_name) = 'RESTRICTED_ATTENDANCE_TYPE' OR
1604: COLUMN_NAME IS NULL THEN
1605: IF new_references.RESTRICTED_ATTENDANCE_TYPE <>
1606: UPPER (new_references.RESTRICTED_ATTENDANCE_TYPE) THEN
1607: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1608: IGS_GE_MSG_STACK.ADD;
1609: App_Exception.Raise_Exception ;
1610: END IF;
1611: END IF ;