[Home] [Help]
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
37: Close cur_old_ref_values;
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
81: new_references.person_id,
82: new_references.course_cd,
83: new_references.fee_type,
84: v_message_name) = FALSE THEN
85: Fnd_Message.Set_Name('IGS',v_message_name);
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception;
88: END IF;
89: END IF;
93: IF IGS_FI_VAL_CFAR.finp_val_cfar_end_dt(
94: new_references.start_dt,
95: new_references.end_dt,
96: v_message_name) = FALSE THEN
97: Fnd_Message.Set_Name('IGS',v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
103: new_references.fee_type <> old_references.fee_type) THEN
104: IF IGS_FI_VAL_CFAR.finp_val_ft_closed(
105: new_references.fee_type,
106: v_message_name) = FALSE THEN
107: Fnd_Message.Set_Name('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: END IF;
113: new_references.attendance_type <> old_references.attendance_type) THEN
114: IF IGS_FI_VAL_CFAR.finp_val_att_closed(
115: new_references.attendance_type,
116: v_message_name) = FALSE THEN
117: Fnd_Message.Set_Name('IGS',v_message_name);
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121: END IF;
123: new_references.attendance_mode <> old_references.attendance_mode) THEN
124: IF IGS_FI_VAL_CFAR.finp_val_am_closed(
125: new_references.attendance_mode,
126: v_message_name) = FALSE THEN
127: Fnd_Message.Set_Name('IGS',v_message_name);
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131: END IF;
133: new_references.location_cd <> old_references.location_cd) THEN
134: IF IGS_FI_VAL_CFAR.finp_val_loc_closed(
135: new_references.location_cd,
136: v_message_name) = FALSE THEN
137: Fnd_Message.Set_Name('IGS',v_message_name);
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141: END IF;
192: new_references.course_cd,
193: new_references.fee_type,
194: new_references.start_dt,
195: v_message_name) = FALSE THEN
196: Fnd_Message.Set_Name('IGS',v_message_name);
197: IGS_GE_MSG_STACK.ADD;
198: App_Exception.Raise_Exception;
199: END IF;
200: END IF;
204: new_references.fee_type,
205: new_references.start_dt,
206: new_references.end_dt,
207: v_message_name) = FALSE THEN
208: Fnd_Message.Set_Name('IGS',v_message_name);
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: END IF;
212: END IF;
245:
246: IF upper(column_name) = 'CHG_RATE' OR
247: column_name is null Then
248: IF new_references.chg_rate < 0 Then
249: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
250: IGS_GE_MSG_STACK.ADD;
251: App_Exception.Raise_Exception;
252: END IF;
253: END IF;
255: IF upper(column_name) = 'ATTENDANCE_MODE' OR
256: column_name is null Then
257: IF new_references.attendance_mode <>
258: UPPER(new_references.attendance_mode) Then
259: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
260: IGS_GE_MSG_STACK.ADD;
261: App_Exception.Raise_Exception;
262: END IF;
263: END IF;
265: IF upper(column_name) = 'ATTENDANCE_TYPE' OR
266: column_name is null Then
267: IF new_references.ATTENDANCE_TYPE <>
268: UPPER(new_references.ATTENDANCE_TYPE) Then
269: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
270: IGS_GE_MSG_STACK.ADD;
271: App_Exception.Raise_Exception;
272: END IF;
273: END IF;
275: IF upper(column_name) = 'COURSE_CD' OR
276: column_name is null Then
277: IF new_references.COURSE_CD <>
278: UPPER(new_references.COURSE_CD) Then
279: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
280: IGS_GE_MSG_STACK.ADD;
281: App_Exception.Raise_Exception;
282: END IF;
283: END IF;
285: IF upper(column_name) = 'LOCATION_CD' OR
286: column_name is null Then
287: IF new_references.LOCATION_CD <>
288: UPPER(new_references.LOCATION_CD) Then
289: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
290: IGS_GE_MSG_STACK.ADD;
291: App_Exception.Raise_Exception;
292: END IF;
293: END IF;
295: IF upper(column_name) = 'LOWER_NRML_RATE_OVRD_IND' OR
296: column_name is null Then
297: IF new_references.LOWER_NRML_RATE_OVRD_IND <>
298: UPPER(new_references.LOWER_NRML_RATE_OVRD_IND) Then
299: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
300: IGS_GE_MSG_STACK.ADD;
301: App_Exception.Raise_Exception;
302: END IF;
303: END IF;
304:
305: IF upper(column_name) = 'LOWER_NRML_RATE_OVRD_IND' OR
306: column_name is null Then
307: IF (new_references.lower_nrml_rate_ovrd_ind not in ('Y', 'N')) Then
308: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
309: IGS_GE_MSG_STACK.ADD;
310: App_Exception.Raise_Exception;
311: END IF;
312: END IF;
319: ELSE
320: IF NOT IGS_EN_ATD_MODE_PKG.Get_PK_For_Validation (
321: new_references.attendance_mode
322: ) THEN
323: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
324: IGS_GE_MSG_STACK.ADD;
325: App_Exception.Raise_Exception;
326: END IF;
327: END IF;
331: ELSE
332: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
333: new_references.attendance_type
334: ) THEN
335: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339: END IF;
343: ELSE
344: IF NOT IGS_FI_FEE_TYPE_PKG.Get_PK_For_Validation (
345: new_references.fee_type
346: ) THEN
347: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
348: IGS_GE_MSG_STACK.ADD;
349: App_Exception.Raise_Exception;
350: END IF;
351: END IF;
356: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
357: new_references.location_cd ,
358: 'N'
359: ) THEN
360: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
361: IGS_GE_MSG_STACK.ADD;
362: App_Exception.Raise_Exception;
363: END IF;
364: END IF;
371: IF NOT IGS_EN_STDNT_PS_ATT_PKG.Get_PK_For_Validation (
372: new_references.person_id,
373: new_references.course_cd
374: ) THEN
375: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
376: IGS_GE_MSG_STACK.ADD;
377: App_Exception.Raise_Exception;
378: END IF;
379: END IF;
417: Open cur_rowid;
418: Fetch cur_rowid INTO lv_rowid;
419: IF (cur_rowid%FOUND) THEN
420: Close cur_rowid;
421: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CFAR_AM_FK');
422: IGS_GE_MSG_STACK.ADD;
423: App_Exception.Raise_Exception;
424: Return;
425: END IF;
437: Open cur_rowid;
438: Fetch cur_rowid INTO lv_rowid;
439: IF (cur_rowid%FOUND) THEN
440: Close cur_rowid;
441: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CFAR_ATT_FK');
442: IGS_GE_MSG_STACK.ADD;
443: App_Exception.Raise_Exception;
444: Return;
445: END IF;
458: Open cur_rowid;
459: Fetch cur_rowid INTO lv_rowid;
460: IF (cur_rowid%FOUND) THEN
461: Close cur_rowid;
462: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CFAR_LOC_FK');
463: IGS_GE_MSG_STACK.ADD;
464: App_Exception.Raise_Exception;
465: Return;
466: END IF;
480: Open cur_rowid;
481: Fetch cur_rowid INTO lv_rowid;
482: IF (cur_rowid%FOUND) THEN
483: Close cur_rowid;
484: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CFAR_SCA_FK');
485: IGS_GE_MSG_STACK.ADD;
486: App_Exception.Raise_Exception;
487: Return;
488: END IF;
535: new_references.course_cd ,
536: new_references.fee_type ,
537: new_references.start_dt
538: ) THEN
539: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CONTRACT_EXISTS_FEETYP');
540: IGS_GE_MSG_STACK.ADD;
541: App_Exception.Raise_Exception;
542: END IF;
543: Check_Constraints;
556: new_references.course_cd ,
557: new_references.fee_type ,
558: new_references.start_dt
559: ) THEN
560: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CONTRACT_EXISTS_FEETYP');
561: IGS_GE_MSG_STACK.ADD;
562: App_Exception.Raise_Exception;
563: END IF;
564: Check_Constraints;
637: else
638: X_PROGRAM_UPDATE_DATE := SYSDATE;
639: end if;
640: else
641: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
642: IGS_GE_MSG_STACK.ADD;
643: app_exception.raise_exception;
644: end if;
645: Before_DML(
722: );
723: EXCEPTION
724: WHEN OTHERS THEN
725: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
726: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
727: fnd_message.set_token ('ERR_CD', SQLCODE);
728: igs_ge_msg_stack.add;
729: igs_sc_gen_001.unset_ctx('R');
730: app_exception.raise_exception;
723: EXCEPTION
724: WHEN OTHERS THEN
725: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
726: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
727: fnd_message.set_token ('ERR_CD', SQLCODE);
728: igs_ge_msg_stack.add;
729: igs_sc_gen_001.unset_ctx('R');
730: app_exception.raise_exception;
731: ELSE
762: open c1;
763: fetch c1 into tlinfo;
764: if (c1%notfound) then
765: close c1;
766: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
767: IGS_GE_MSG_STACK.ADD;
768: app_exception.raise_exception;
769: return;
770: end if;
785: AND (tlinfo.LOWER_NRML_RATE_OVRD_IND = X_LOWER_NRML_RATE_OVRD_IND)
786: ) then
787: null;
788: else
789: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
790: IGS_GE_MSG_STACK.ADD;
791: app_exception.raise_exception;
792: end if;
793: return;
857: else
858: X_PROGRAM_UPDATE_DATE := SYSDATE;
859: end if;
860: else
861: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
862: IGS_GE_MSG_STACK.ADD;
863: app_exception.raise_exception;
864: end if;
865: IF (x_mode = 'S') THEN
880: PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
881: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
882: where ROWID = X_ROWID;
883: if (sql%notfound) then
884: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
885: igs_ge_msg_stack.add;
886: igs_sc_gen_001.unset_ctx('R');
887: app_exception.raise_exception;
888: end if;
896: );
897: EXCEPTION
898: WHEN OTHERS THEN
899: IF (SQLCODE = (-28115)) THEN
900: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
901: fnd_message.set_token ('ERR_CD', SQLCODE);
902: igs_ge_msg_stack.add;
903: igs_sc_gen_001.unset_ctx('R');
904: app_exception.raise_exception;
897: EXCEPTION
898: WHEN OTHERS THEN
899: IF (SQLCODE = (-28115)) THEN
900: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
901: fnd_message.set_token ('ERR_CD', SQLCODE);
902: igs_ge_msg_stack.add;
903: igs_sc_gen_001.unset_ctx('R');
904: app_exception.raise_exception;
905: ELSE
977: END IF;
978: delete from IGS_FI_FEE_AS_RT
979: where ROWID = X_ROWID;
980: if (sql%notfound) then
981: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
982: igs_ge_msg_stack.add;
983: igs_sc_gen_001.unset_ctx('R');
984: app_exception.raise_exception;
985: end if;