[Home] [Help]
44: Fetch cur_old_ref_values INTO old_references;
45: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
46: Close cur_old_ref_values;
47: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
48: IGS_GE_MSG_STACK.ADD;
49: App_Exception.Raise_Exception;
50: Return;
51: END IF;
52: Close cur_old_ref_values;
97: IF IGS_FI_VAL_CFT.finp_val_cft_ins (
98: new_references.fee_type,
99: v_message_name) = FALSE THEN
100: Fnd_Message.Set_Name('IGS',v_message_name);
101: IGS_GE_MSG_STACK.ADD;
102: App_Exception.Raise_Exception;
103: END IF;
104: END IF;
105: IF p_inserting OR p_updating THEN
109: IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
110: new_references.location_cd,
111: v_message_name) = FALSE THEN
112: Fnd_Message.Set_Name('IGS',v_message_name);
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception;
115: END IF;
116: -- Validate Attendance Type not closed.
117: --
123: IF IGS_EN_VAL_PEE.enrp_val_att_closed (
124: new_references.attendance_type,
125: v_message_name) = FALSE THEN
126: Fnd_Message.Set_Name('IGS',v_message_name);
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: -- Validate Attendance Mode not closed.
131: -- As part of the bug 1956374 changed the following call from
133: IF IGS_FI_VAL_FAR.enrp_val_am_closed (
134: new_references.attendance_mode,
135: v_message_name) = FALSE THEN
136: Fnd_Message.Set_Name('IGS',v_message_name);
137: IGS_GE_MSG_STACK.ADD;
138: App_Exception.Raise_Exception;
139: END IF;
140: -- Validate Calendar Type not closed.
141: IF IGS_FI_VAL_CFT.calp_val_cat_closed (
141: IF IGS_FI_VAL_CFT.calp_val_cat_closed (
142: new_references.cal_type,
143: v_message_name) = FALSE THEN
144: Fnd_Message.Set_Name('IGS',v_message_name);
145: IGS_GE_MSG_STACK.ADD;
146: App_Exception.Raise_Exception;
147: END IF;
148: -- Validate Calendar Category is 'ACADEMIC'.
149: IF IGS_FI_VAL_CFT.finp_val_ct_academic (
149: IF IGS_FI_VAL_CFT.finp_val_ct_academic (
150: new_references.cal_type,
151: v_message_name) = FALSE THEN
152: Fnd_Message.Set_Name('IGS',v_message_name);
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception;
155: END IF;
156: -- Validate IGS_PS_COURSE code.
157: IF IGS_FI_VAL_CFT.finp_val_cft_crs (
157: IF IGS_FI_VAL_CFT.finp_val_cft_crs (
158: new_references.course_cd,
159: v_message_name) = FALSE THEN
160: Fnd_Message.Set_Name('IGS',v_message_name);
161: IGS_GE_MSG_STACK.ADD;
162: App_Exception.Raise_Exception;
163: END IF;
164: END IF;
165:
216: new_references.create_dt,
217: new_references.fee_trigger_group_number,
218: v_message_name) = FALSE THEN
219: Fnd_Message.Set_Name('IGS',v_message_name);
220: IGS_GE_MSG_STACK.ADD;
221: App_Exception.Raise_Exception;
222: END IF;
223: END IF;
224: -- Validate IGS_PS_FEE_TRG fee trigger group.
230: new_references.course_cd,
231: new_references.fee_trigger_group_number,
232: v_message_name) = FALSE THEN
233: Fnd_Message.Set_Name('IGS',v_message_name);
234: IGS_GE_MSG_STACK.ADD;
235: App_Exception.Raise_Exception;
236: END IF;
237: END IF;
238: END IF;
325: IF upper(column_name) = 'ATTENDANCE_MODE' OR
326: column_name is null Then
327: IF ( new_references.attendance_mode <> UPPER(new_references.attendance_mode) ) Then
328: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
333:
334: IF upper(column_name) = 'ATTENDANCE_TYPE' OR
335: column_name is null Then
336: IF ( new_references.attendance_type <> UPPER(new_references.attendance_type) ) Then
337: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
338: IGS_GE_MSG_STACK.ADD;
339: App_Exception.Raise_Exception;
340: END IF;
341: END IF;
342:
343: IF upper(column_name) = 'CAL_TYPE' OR
344: column_name is null Then
345: IF ( new_references.cal_type <> UPPER(new_references.cal_type) ) Then
346: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
347: IGS_GE_MSG_STACK.ADD;
348: App_Exception.Raise_Exception;
349: END IF;
350: END IF;
351:
352: IF upper(column_name) = 'COURSE_CD' OR
353: column_name is null Then
354: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) Then
355: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
356: IGS_GE_MSG_STACK.ADD;
357: App_Exception.Raise_Exception;
358: END IF;
359: END IF;
360:
361: IF upper(column_name) = 'FEE_CAL_TYPE' OR
362: column_name is null Then
363: IF ( new_references.fee_cal_type <> UPPER(new_references.fee_cal_type) ) Then
364: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
365: IGS_GE_MSG_STACK.ADD;
366: App_Exception.Raise_Exception;
367: END IF;
368: END IF;
369:
370: IF upper(column_name) = 'LOCATION_CD' OR
371: column_name is null Then
372: IF ( new_references.location_cd <> UPPER(new_references.location_cd) ) Then
373: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
374: IGS_GE_MSG_STACK.ADD;
375: App_Exception.Raise_Exception;
376: END IF;
377: END IF;
378:
379: IF upper(column_name) = 'SEQUENCE_NUMBER' OR
380: column_name is null Then
381: IF ( new_references.sequence_number < 1 OR new_references.sequence_number > 999999 ) Then
382: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
383: IGS_GE_MSG_STACK.ADD;
384: App_Exception.Raise_Exception;
385: END IF;
386: END IF;
387:
388: IF upper(column_name) = 'FEE_TRIGGER_GROUP_NUMBER' OR
389: column_name is null Then
390: IF ( new_references.fee_trigger_group_number < 1 OR new_references.fee_trigger_group_number > 999999 ) Then
391: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
392: IGS_GE_MSG_STACK.ADD;
393: App_Exception.Raise_Exception;
394: END IF;
395: END IF;
396:
397: IF upper(column_name) = 'VERSION_NUMBER' OR
398: column_name is null Then
399: IF ( new_references.version_number < 1 OR new_references.version_number > 999 ) Then
400: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
401: IGS_GE_MSG_STACK.ADD;
402: App_Exception.Raise_Exception;
403: END IF;
404: END IF;
405:
406: IF upper(column_name) = 'FEE_CI_SEQUENCE_NUMBER' OR
407: column_name is null Then
408: IF ( new_references.fee_ci_sequence_number < 1 OR new_references.fee_ci_sequence_number > 999999 ) Then
409: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
410: IGS_GE_MSG_STACK.ADD;
411: App_Exception.Raise_Exception;
412: END IF;
413: END IF;
414:
429: new_references.ATTENDANCE_MODE,
430: new_references.ATTENDANCE_TYPE,
431: new_references.CREATE_DT) THEN
432: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
433: IGS_GE_MSG_STACK.ADD;
434: App_Exception.Raise_Exception;
435: END IF;
436: END Check_Uniqueness ;
437:
444: ELSE
445: IF NOT IGS_EN_ATD_MODE_PKG.Get_PK_For_Validation (
446: new_references.attendance_mode ) THEN
447: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
448: IGS_GE_MSG_STACK.ADD;
449: App_Exception.Raise_Exception;
450: END IF;
451: END IF;
452:
456: ELSE
457: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
458: new_references.attendance_type ) THEN
459: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
460: IGS_GE_MSG_STACK.ADD;
461: App_Exception.Raise_Exception;
462: END IF;
463: END IF;
464:
468: ELSE
469: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
470: new_references.cal_type ) THEN
471: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: END IF;
475: END IF;
476:
480: ELSE
481: IF NOT IGS_PS_COURSE_PKG.Get_PK_For_Validation (
482: new_references.course_cd ) THEN
483: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
484: IGS_GE_MSG_STACK.ADD;
485: App_Exception.Raise_Exception;
486: END IF;
487: END IF;
488:
501: new_references.fee_cal_type,
502: new_references.fee_ci_sequence_number,
503: new_references.fee_type ) THEN
504: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
505: IGS_GE_MSG_STACK.ADD;
506: App_Exception.Raise_Exception;
507: END IF;
508: END IF;
509:
525: new_references.fee_ci_sequence_number,
526: new_references.fee_type,
527: new_references.fee_trigger_group_number ) THEN
528: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
529: IGS_GE_MSG_STACK.ADD;
530: App_Exception.Raise_Exception;
531: END IF;
532: END IF;
533:
538: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
539: new_references.location_cd,
540: 'N' ) THEN
541: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
542: IGS_GE_MSG_STACK.ADD;
543: App_Exception.Raise_Exception;
544: END IF;
545: END IF;
546:
648: Fetch cur_rowid INTO lv_rowid;
649: IF (cur_rowid%FOUND) THEN
650: Close cur_rowid;
651: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_AM_FK');
652: IGS_GE_MSG_STACK.ADD;
653: App_Exception.Raise_Exception;
654: Return;
655: END IF;
656: Close cur_rowid;
674: Fetch cur_rowid INTO lv_rowid;
675: IF (cur_rowid%FOUND) THEN
676: Close cur_rowid;
677: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_ATT_FK');
678: IGS_GE_MSG_STACK.ADD;
679: App_Exception.Raise_Exception;
680: Return;
681: END IF;
682: Close cur_rowid;
700: Fetch cur_rowid INTO lv_rowid;
701: IF (cur_rowid%FOUND) THEN
702: Close cur_rowid;
703: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_CAT_FK');
704: IGS_GE_MSG_STACK.ADD;
705: App_Exception.Raise_Exception;
706: Return;
707: END IF;
708: Close cur_rowid;
726: Fetch cur_rowid INTO lv_rowid;
727: IF (cur_rowid%FOUND) THEN
728: Close cur_rowid;
729: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_CRS_FK');
730: IGS_GE_MSG_STACK.ADD;
731: App_Exception.Raise_Exception;
732: Return;
733: END IF;
734: Close cur_rowid;
761: Fetch cur_rowid INTO lv_rowid;
762: IF (cur_rowid%FOUND) THEN
763: Close cur_rowid;
764: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_FTG_FK');
765: IGS_GE_MSG_STACK.ADD;
766: App_Exception.Raise_Exception;
767: Return;
768: END IF;
769: Close cur_rowid;
787: Fetch cur_rowid INTO lv_rowid;
788: IF (cur_rowid%FOUND) THEN
789: Close cur_rowid;
790: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CFT_LOC_FK');
791: IGS_GE_MSG_STACK.ADD;
792: App_Exception.Raise_Exception;
793: Return;
794: END IF;
795: Close cur_rowid;
855: new_references.fee_type,
856: new_references.course_cd,
857: new_references.sequence_number) THEN
858: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
859: IGS_GE_MSG_STACK.ADD;
860: App_Exception.Raise_Exception;
861: END IF;
862: Check_Constraints;
863: Check_Parent_Existance;
879: new_references.fee_type,
880: new_references.course_cd,
881: new_references.sequence_number) THEN
882: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
883: IGS_GE_MSG_STACK.ADD;
884: App_Exception.Raise_Exception;
885: END IF;
886: Check_Constraints;
887: Check_Uniqueness;
971: END IF;
972:
973: else
974: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
975: IGS_GE_MSG_STACK.ADD;
976: app_exception.raise_exception;
977: end if;
978:
979: Before_DML (
1101: fetch c1 into tlinfo;
1102: if (c1%notfound) then
1103: close c1;
1104: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1105: IGS_GE_MSG_STACK.ADD;
1106: app_exception.raise_exception;
1107: return;
1108: end if;
1109: close c1;
1133: ) then
1134: null;
1135: else
1136: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1137: IGS_GE_MSG_STACK.ADD;
1138: app_exception.raise_exception;
1139: end if;
1140: return;
1141: end LOCK_ROW;
1181: X_LAST_UPDATE_LOGIN := -1;
1182: end if;
1183: else
1184: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1185: IGS_GE_MSG_STACK.ADD;
1186: app_exception.raise_exception;
1187: end if;
1188:
1189: Before_DML (