[Home] [Help]
47: Open cur_old_ref_values;
48: Fetch cur_old_ref_values INTO old_references;
49: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
50: Close cur_old_ref_values;
51: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
52: IGS_GE_MSG_STACK.ADD;
53: App_Exception.Raise_Exception;
54: Return;
55: END IF;
187: v_nominated_course_cd,
188: v_acai_sequence_number,
189: v_unit_restr_ind,
190: v_message_name) = FALSE THEN
191: Fnd_Message.Set_Name('IGS',v_message_name);
192: IGS_GE_MSG_STACK.ADD;
193: App_Exception.Raise_Exception;
194: END IF;
195: END IF;
230: v_acad_ci_sequence_number,
231: v_s_admission_process_type,
232: v_offer_ind,
233: v_message_name) = FALSE THEN
234: Fnd_Message.Set_Name('IGS',v_message_name);
235: IGS_GE_MSG_STACK.ADD;
236: App_Exception.Raise_Exception;
237: END IF;
238: -- Validate a research unit.
248: v_s_admission_process_type,
249: v_message_name,
250: v_return_type) = FALSE THEN
251: IF v_return_type = cst_error THEN
252: Fnd_Message.Set_Name('IGS',v_message_name);
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256: END IF;
266: v_offer_ind,
267: v_message_name,
268: v_return_type) = FALSE THEN
269: IF NVL(v_return_type, '-1') = cst_error THEN
270: Fnd_Message.Set_Name('IGS',v_message_name);
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: END IF;
274: END IF;
284: new_references.nominated_course_cd,
285: new_references.acai_sequence_number,
286: new_references.adm_unit_outcome_status,
287: v_message_name) = FALSE THEN
288: Fnd_Message.Set_Name('IGS',v_message_name);
289: IGS_GE_MSG_STACK.ADD;
290: App_Exception.Raise_Exception;
291: END IF;
292: IF v_offer_ind = 'Y' THEN
296: new_references.uv_version_number,
297: v_s_admission_process_type,
298: v_offer_ind,
299: v_message_name) = FALSE THEN
300: Fnd_Message.Set_Name('IGS',v_message_name);
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303: END IF;
304: -- Validate a research unit.
314: v_s_admission_process_type,
315: v_message_name,
316: v_return_type) = FALSE THEN
317: IF v_return_type = cst_error THEN
318: Fnd_Message.Set_Name('IGS',v_message_name);
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: END IF;
322: END IF;
327: -- As part of the bug# 1956374 changed to the below call from IGS_AD_VAL_ACAIU.crsp_val_um_closed
328: IF IGS_AS_VAL_UAI.crsp_val_um_closed (
329: new_references.unit_mode,
330: v_message_name) = FALSE THEN
331: Fnd_Message.Set_Name('IGS',v_message_name);
332: IGS_GE_MSG_STACK.ADD;
333: App_Exception.Raise_Exception;
334: END IF;
335: END IF;
338: IF IGS_AD_VAL_ACAIU.admp_val_acaiu_um (
339: new_references.unit_class,
340: new_references.unit_mode,
341: v_message_name) = FALSE THEN
342: Fnd_Message.Set_Name('IGS',v_message_name);
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
367: v_acad_cal_type,
368: v_acad_ci_sequence_number,
369: v_offer_ind,
370: v_message_name) = FALSE THEN
371: Fnd_Message.Set_Name('IGS',v_message_name);
372: IGS_GE_MSG_STACK.ADD;
373: App_Exception.Raise_Exception;
374: END IF;
375: END IF;
382: new_references.uv_version_number,
383: new_references.cal_type,
384: new_references.ci_sequence_number,
385: v_message_name) = FALSE THEN
386: Fnd_Message.Set_Name('IGS',v_message_name);
387: IGS_GE_MSG_STACK.ADD;
388: App_Exception.Raise_Exception;
389: END IF;
390: END IF;
468: new_references.cal_type,
469: new_references.ci_sequence_number,
470: new_references.location_cd,
471: new_references.unit_class ) = FALSE THEN
472: Fnd_Message.Set_Name('IGS',v_message_name);
473: Fnd_Message.Set_Token('UNIT_RSTR_NUM',IGS_GE_NUMBER.TO_CANN(v_unit_restriction_num));
474: IGS_GE_MSG_STACK.ADD;
475: App_Exception.Raise_Exception;
476: END IF;
469: new_references.ci_sequence_number,
470: new_references.location_cd,
471: new_references.unit_class ) = FALSE THEN
472: Fnd_Message.Set_Name('IGS',v_message_name);
473: Fnd_Message.Set_Token('UNIT_RSTR_NUM',IGS_GE_NUMBER.TO_CANN(v_unit_restriction_num));
474: IGS_GE_MSG_STACK.ADD;
475: App_Exception.Raise_Exception;
476: END IF;
477: END IF;
570: new_references.admission_appl_number,
571: new_references.nominated_course_cd,
572: new_references.acai_sequence_number
573: ) THEN
574: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
575: IGS_GE_MSG_STACK.ADD;
576: App_Exception.Raise_Exception;
577: END IF;
578: END IF;
583: ELSE
584: IF NOT IGS_AD_UNIT_OU_STAT_PKG.Get_PK_For_Validation (
585: new_references.adm_unit_outcome_status , 'N'
586: ) THEN
587: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
588: IGS_GE_MSG_STACK.ADD;
589: App_Exception.Raise_Exception;
590: END IF;
591: END IF;
596: ELSE
597: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
598: new_references.location_cd , 'N'
599: ) THEN
600: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
601: IGS_GE_MSG_STACK.ADD;
602: App_Exception.Raise_Exception;
603: END IF;
604: END IF;
609: ELSE
610: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
611: new_references.rule_waived_person_id
612: ) THEN
613: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
614: IGS_GE_MSG_STACK.ADD;
615: App_Exception.Raise_Exception;
616: END IF;
617: END IF;
625: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
626: new_references.sup_unit_cd,
627: new_references.sup_uv_version_number
628: ) THEN
629: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
630: IGS_GE_MSG_STACK.ADD;
631: App_Exception.Raise_Exception;
632: END IF;
633: END IF;
638: ELSE
639: IF NOT IGS_TR_ITEM_PKG.Get_PK_For_Validation (
640: new_references.ass_tracking_id
641: ) THEN
642: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
643: IGS_GE_MSG_STACK.ADD;
644: App_Exception.Raise_Exception;
645: END IF;
646: END IF;
651: ELSE
652: IF NOT IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
653: new_references.unit_class
654: ) THEN
655: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
656: IGS_GE_MSG_STACK.ADD;
657: App_Exception.Raise_Exception;
658: END IF;
659: END IF;
664: ELSE
665: IF NOT IGS_AS_UNIT_MODE_PKG.Get_PK_For_Validation (
666: new_references.unit_mode
667: ) THEN
668: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
669: IGS_GE_MSG_STACK.ADD;
670: App_Exception.Raise_Exception;
671: END IF;
672: END IF;
692: new_references.ci_sequence_number,
693: new_references.location_cd,
694: new_references.unit_class
695: ) THEN
696: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
697: IGS_GE_MSG_STACK.ADD;
698: App_Exception.Raise_Exception;
699: END IF;
700: END IF;
714: new_references.uv_version_number,
715: new_references.cal_type,
716: new_references.ci_sequence_number
717: ) THEN
718: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
719: IGS_GE_MSG_STACK.ADD;
720: App_Exception.Raise_Exception;
721: END IF;
722: END IF;
751:
752: IF upper(column_name) = 'ADM_UNIT_OUTCOME_STATUS' OR
753: column_name is null Then
754: IF new_references.adm_unit_outcome_status <> UPPER(new_references.adm_unit_outcome_status) Then
755: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
756: IGS_GE_MSG_STACK.ADD;
757: App_Exception.Raise_Exception;
758: END IF;
759: END IF;
760:
761: IF upper(column_name) = 'CAL_TYPE' OR
762: column_name is null Then
763: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
764: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
765: IGS_GE_MSG_STACK.ADD;
766: App_Exception.Raise_Exception;
767: END IF;
768: END IF;
769:
770: IF upper(column_name) = 'LOCATION_CD' OR
771: column_name is null Then
772: IF new_references.location_cd <> UPPER(new_references.location_cd) Then
773: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
774: IGS_GE_MSG_STACK.ADD;
775: App_Exception.Raise_Exception;
776: END IF;
777: END IF;
778:
779: IF upper(column_name) = 'UNIT_CD' OR
780: column_name is null Then
781: IF new_references.unit_cd <> UPPER(new_references.unit_cd) Then
782: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
783: IGS_GE_MSG_STACK.ADD;
784: App_Exception.Raise_Exception;
785: END IF;
786: END IF;
787:
788: IF upper(column_name) = 'UNIT_CLASS' OR
789: column_name is null Then
790: IF new_references.unit_class <> UPPER(new_references.unit_class) Then
791: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
792: IGS_GE_MSG_STACK.ADD;
793: App_Exception.Raise_Exception;
794: END IF;
795: END IF;
796:
797: IF upper(column_name) = 'UNIT_MODE' OR
798: column_name is null Then
799: IF new_references.unit_mode <> UPPER(new_references.unit_mode) Then
800: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
801: IGS_GE_MSG_STACK.ADD;
802: App_Exception.Raise_Exception;
803: END IF;
804: END IF;
805:
806: IF upper(column_name) = 'SUP_UNIT_CD' OR
807: column_name is null Then
808: IF new_references.sup_unit_cd <> UPPER(new_references.sup_unit_cd) Then
809: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
810: IGS_GE_MSG_STACK.ADD;
811: App_Exception.Raise_Exception;
812: END IF;
813: END IF;
815: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
816: column_name is null Then
817: IF new_references.ci_sequence_number < 1 OR
818: new_references.ci_sequence_number > 999999 Then
819: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
820: IGS_GE_MSG_STACK.ADD;
821: App_Exception.Raise_Exception;
822: END IF;
823: END IF;
918: Open cur_rowid;
919: Fetch cur_rowid INTO lv_rowid;
920: IF (cur_rowid%FOUND) THEN
921: Close cur_rowid;
922: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_ACAI_FK');
923: IGS_GE_MSG_STACK.ADD;
924: App_Exception.Raise_Exception;
925: Return;
926: END IF;
944: Open cur_rowid;
945: Fetch cur_rowid INTO lv_rowid;
946: IF (cur_rowid%FOUND) THEN
947: Close cur_rowid;
948: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_AUOS_FK');
949: IGS_GE_MSG_STACK.ADD;
950: App_Exception.Raise_Exception;
951: Return;
952: END IF;
970: Open cur_rowid;
971: Fetch cur_rowid INTO lv_rowid;
972: IF (cur_rowid%FOUND) THEN
973: Close cur_rowid;
974: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_LOC_FK');
975: IGS_GE_MSG_STACK.ADD;
976: App_Exception.Raise_Exception;
977: Return;
978: END IF;
996: Open cur_rowid;
997: Fetch cur_rowid INTO lv_rowid;
998: IF (cur_rowid%FOUND) THEN
999: Close cur_rowid;
1000: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_PE_FK');
1001: IGS_GE_MSG_STACK.ADD;
1002: App_Exception.Raise_Exception;
1003: Return;
1004: END IF;
1024: Open cur_rowid;
1025: Fetch cur_rowid INTO lv_rowid;
1026: IF (cur_rowid%FOUND) THEN
1027: Close cur_rowid;
1028: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_SUP_UV_FK');
1029: IGS_GE_MSG_STACK.ADD;
1030: App_Exception.Raise_Exception;
1031: Return;
1032: END IF;
1050: Open cur_rowid;
1051: Fetch cur_rowid INTO lv_rowid;
1052: IF (cur_rowid%FOUND) THEN
1053: Close cur_rowid;
1054: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_TRI_FK');
1055: IGS_GE_MSG_STACK.ADD;
1056: App_Exception.Raise_Exception;
1057: Return;
1058: END IF;
1076: Open cur_rowid;
1077: Fetch cur_rowid INTO lv_rowid;
1078: IF (cur_rowid%FOUND) THEN
1079: Close cur_rowid;
1080: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_UM_FK');
1081: IGS_GE_MSG_STACK.ADD;
1082: App_Exception.Raise_Exception;
1083: Return;
1084: END IF;
1112: Open cur_rowid;
1113: Fetch cur_rowid INTO lv_rowid;
1114: IF (cur_rowid%FOUND) THEN
1115: Close cur_rowid;
1116: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_UOO_FK');
1117: IGS_GE_MSG_STACK.ADD;
1118: App_Exception.Raise_Exception;
1119: Return;
1120: END IF;
1144: Open cur_rowid;
1145: Fetch cur_rowid INTO lv_rowid;
1146: IF (cur_rowid%FOUND) THEN
1147: Close cur_rowid;
1148: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACAIU_UOP_FK');
1149: IGS_GE_MSG_STACK.ADD;
1150: App_Exception.Raise_Exception;
1151: Return;
1152: END IF;
1235: new_references.ci_sequence_number,
1236: new_references.location_cd,
1237: new_references.unit_class
1238: ) THEN
1239: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1240: IGS_GE_MSG_STACK.ADD;
1241: App_Exception.Raise_Exception;
1242: END IF;
1243: Check_Constraints;
1255: new_references.ci_sequence_number,
1256: new_references.location_cd,
1257: new_references.unit_class
1258: ) THEN
1259: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1260: IGS_GE_MSG_STACK.ADD;
1261: App_Exception.Raise_Exception;
1262: END IF;
1263: BeforeRowInsertUpdateDelete1 ( p_updating => TRUE );
1279: new_references.ci_sequence_number,
1280: new_references.location_cd,
1281: new_references.unit_class
1282: ) THEN
1283: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1284: IGS_GE_MSG_STACK.ADD;
1285: App_Exception.Raise_Exception;
1286: END IF;
1287: Check_Constraints;
1297: new_references.ci_sequence_number,
1298: new_references.location_cd,
1299: new_references.unit_class
1300: ) THEN
1301: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1302: IGS_GE_MSG_STACK.ADD;
1303: App_Exception.Raise_Exception;
1304: END IF;
1305: Check_Constraints;
1392: else
1393: X_PROGRAM_UPDATE_DATE := SYSDATE;
1394: end if;
1395: else
1396: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1397: IGS_GE_MSG_STACK.ADD;
1398: app_exception.raise_exception;
1399: end if;
1400:
1510: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1511: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1512: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1513: -- that the ownerof policy function does not have privilege to access.
1514: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1515: fnd_message.set_token ('ERR_CD', SQLCODE);
1516: igs_ge_msg_stack.add;
1517: igs_sc_gen_001.unset_ctx('R');
1518: app_exception.raise_exception;
1511: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1512: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1513: -- that the ownerof policy function does not have privilege to access.
1514: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1515: fnd_message.set_token ('ERR_CD', SQLCODE);
1516: igs_ge_msg_stack.add;
1517: igs_sc_gen_001.unset_ctx('R');
1518: app_exception.raise_exception;
1519: ELSE
1565: open c1;
1566: fetch c1 into tlinfo;
1567: if (c1%notfound) then
1568: close c1;
1569: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1570: IGS_GE_MSG_STACK.ADD;
1571: app_exception.raise_exception;
1572: return;
1573: end if;
1607: AND (X_SUP_UV_VERSION_NUMBER is null)))
1608: ) then
1609: null;
1610: else
1611: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1612: IGS_GE_MSG_STACK.ADD;
1613: app_exception.raise_exception;
1614: end if;
1615: return;
1659: if X_LAST_UPDATE_LOGIN is NULL then
1660: X_LAST_UPDATE_LOGIN := -1;
1661: end if;
1662: else
1663: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1664: IGS_GE_MSG_STACK.ADD;
1665: app_exception.raise_exception;
1666: end if;
1667:
1730: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
1731: where ROWID = X_ROWID
1732: ;
1733: if (sql%notfound) then
1734: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1735: igs_ge_msg_stack.add;
1736: igs_sc_gen_001.unset_ctx('R');
1737: app_exception.raise_exception;
1738: end if;
1751: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1752: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1753: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1754: -- that the ownerof policy function does not have privilege to access.
1755: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1756: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1757: IGS_GE_MSG_STACK.ADD;
1758: app_exception.raise_exception;
1759: ELSE
1752: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1753: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1754: -- that the ownerof policy function does not have privilege to access.
1755: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1756: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1757: IGS_GE_MSG_STACK.ADD;
1758: app_exception.raise_exception;
1759: ELSE
1760: RAISE;
1854: END IF;
1855: delete from IGS_AD_PS_APLINSTUNT_ALL
1856: where ROWID = X_ROWID;
1857: if (sql%notfound) then
1858: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1859: igs_ge_msg_stack.add;
1860: igs_sc_gen_001.unset_ctx('R');
1861: app_exception.raise_exception;
1862: end if;
1875: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1876: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1877: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1878: -- that the ownerof policy function does not have privilege to access.
1879: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1880: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1881: IGS_GE_MSG_STACK.ADD;
1882: app_exception.raise_exception;
1883: ELSE
1876: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1877: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1878: -- that the ownerof policy function does not have privilege to access.
1879: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1880: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1881: IGS_GE_MSG_STACK.ADD;
1882: app_exception.raise_exception;
1883: ELSE
1884: RAISE;