[Home] [Help]
43: Fetch cur_old_ref_values INTO old_references;
44: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
45: Close cur_old_ref_values;
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_GE_MSG_STACK.ADD;
48: App_Exception.Raise_Exception;
49: Return;
50: END IF;
51: Close cur_old_ref_values;
91: new_references.course_cd,
92: new_references.version_number,
93: v_message_name) = FALSE THEN
94: Fnd_Message.Set_Name('IGS', v_message_name);
95: IGS_GE_MSG_STACK.ADD;
96: App_Exception.Raise_Exception;
97: END IF;
98: ELSE
99: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl(
100: old_references.course_cd,
101: old_references.version_number,
102: v_message_name) = FALSE THEN
103: Fnd_Message.Set_Name('IGS', v_message_name);
104: IGS_GE_MSG_STACK.ADD;
105: App_Exception.Raise_Exception;
106: END IF;
107: END IF;
108: -- Validate the insert/update
114: IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
115: new_references.location_cd,
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;
122: -- Validate the Attendance Mode
125: IF IGS_AD_VAL_APCOO.crsp_val_am_closed (
126: new_references.attendance_mode,
127: v_message_name) = FALSE THEN
128: Fnd_Message.Set_Name('IGS', v_message_name);
129: IGS_GE_MSG_STACK.ADD;
130: App_Exception.Raise_Exception;
131: END IF;
132: END IF;
133: -- Validate the Attendance Type
136: IF IGS_AD_VAL_APCOO.crsp_val_att_closed (
137: new_references.attendance_type,
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
144: -- Validate the IGS_PS_UNIT Set Code
147: IF IGS_PS_VAL_POS.crsp_val_us_active (
148: new_references.unit_set_cd,
149: v_message_name) = FALSE THEN
150: Fnd_Message.Set_Name('IGS', v_message_name);
151: IGS_GE_MSG_STACK.ADD;
152: App_Exception.Raise_Exception;
153: END IF;
154: END IF;
155: -- Validate the Admission Calendar Type
158: IF IGS_PS_VAL_POS.crsp_val_pos_cat (
159: new_references.admission_cal_type,
160: v_message_name) = FALSE THEN
161: Fnd_Message.Set_Name('IGS', v_message_name);
162: IGS_GE_MSG_STACK.ADD;
163: App_Exception.Raise_Exception;
164: END IF;
165: END IF;
166: -- Validate the Admission Category
169: IF IGS_PS_VAL_POS.crsp_val_ac_closed (
170: new_references.admission_cat,
171: v_message_name) = FALSE THEN
172: Fnd_Message.Set_Name('IGS', v_message_name);
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
177: -- Validate the Aproved Calendar Instance
182: new_references.cal_type,
183: new_references.aprvd_ci_sequence_number,
184: v_message_name) = FALSE THEN
185: Fnd_Message.Set_Name('IGS', v_message_name);
186: IGS_GE_MSG_STACK.ADD;
187: App_Exception.Raise_Exception;
188: END IF;
189: END IF;
190: END IF;
234: IF upper(column_name) = 'ADMISSION_CAL_TYPE' OR
235: column_name is null Then
236: IF new_references.admission_cal_type <> UPPER(new_references.admission_cal_type) Then
237: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
238: IGS_GE_MSG_STACK.ADD;
239: App_Exception.Raise_Exception;
240: END IF;
241: END IF;
242:
243: IF upper(column_name) = 'ADMISSION_CAT' OR
244: column_name is null Then
245: IF new_references.admission_cat <> UPPER(new_references.admission_cat) Then
246: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
247: IGS_GE_MSG_STACK.ADD;
248: App_Exception.Raise_Exception;
249: END IF;
250: END IF;
251:
252: IF upper(column_name) = 'ATTENDANCE_MODE' OR
253: column_name is null Then
254: IF new_references.attendance_mode <> UPPER(new_references.attendance_mode) Then
255: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
256: IGS_GE_MSG_STACK.ADD;
257: App_Exception.Raise_Exception;
258: END IF;
259: END IF;
260:
261: IF upper(column_name) = 'ATTENDANCE_TYPE' OR
262: column_name is null Then
263: IF new_references.attendance_type <> UPPER(new_references.attendance_type) Then
264: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
265: IGS_GE_MSG_STACK.ADD;
266: App_Exception.Raise_Exception;
267: END IF;
268: END IF;
269:
270: IF upper(column_name) = 'CAL_TYPE' OR
271: column_name is null Then
272: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
273: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
274: IGS_GE_MSG_STACK.ADD;
275: App_Exception.Raise_Exception;
276: END IF;
277: END IF;
278:
279: IF upper(column_name) = 'COURSE_CD' OR
280: column_name is null Then
281: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
282: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
287:
288: IF upper(column_name) = 'LOCATION_CD' OR
289: column_name is null Then
290: IF new_references.location_cd <> UPPER(new_references.location_cd) Then
291: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
292: IGS_GE_MSG_STACK.ADD;
293: App_Exception.Raise_Exception;
294: END IF;
295: END IF;
296:
297: IF upper(column_name) = 'UNIT_SET_CD' OR
298: column_name is null Then
299: IF new_references.unit_set_cd <> UPPER(new_references.unit_set_cd) Then
300: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303: END IF;
304: END IF;
305:
306: IF upper(column_name) = 'SEQUENCE_NUMBER' OR
307: column_name is null Then
308: IF new_references.sequence_number < 0 OR new_references.sequence_number > 999999 Then
309: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
310: IGS_GE_MSG_STACK.ADD;
311: App_Exception.Raise_Exception;
312: END IF;
313: END IF;
314:
315: IF upper(column_name) = 'NUMBER_OF_PERIODS' OR
316: column_name is null Then
317: IF new_references.number_of_periods < 1 OR new_references.number_of_periods > 99 Then
318: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: END IF;
322: END IF;
323:
324: IF upper(column_name) = 'ALWAYS_PRE_ENROL_IND' OR
325: column_name is null Then
326: IF new_references.always_pre_enrol_ind NOT IN ('Y','N') THEN
327: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: END IF;
331: END IF;
332:
333: IF upper(column_name) = 'APRVD_CI_SEQUENCE_NUMBER' OR
334: column_name is null Then
335: IF new_references.aprvd_ci_sequence_number < 0 OR new_references.aprvd_ci_sequence_number > 999999 Then
336: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
337: IGS_GE_MSG_STACK.ADD;
338: App_Exception.Raise_Exception;
339: END IF;
340: END IF;
341:
342: IF upper(column_name) = 'VERSION_NUMBER' OR
343: column_name is null Then
344: IF new_references.version_number < 0 OR new_references.version_number > 999 Then
345: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
346: IGS_GE_MSG_STACK.ADD;
347: App_Exception.Raise_Exception;
348: END IF;
349: END IF;
350:
361: new_references.admission_cat ,
362: 'N'
363: ) THEN
364: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
365: IGS_GE_MSG_STACK.ADD;
366: App_Exception.Raise_Exception;
367: END IF;
368:
369: END IF;
375: IF NOT IGS_EN_ATD_MODE_PKG.Get_PK_For_Validation (
376: new_references.attendance_mode
377: ) THEN
378: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
379: IGS_GE_MSG_STACK.ADD;
380: App_Exception.Raise_Exception;
381: END IF;
382:
383: END IF;
389: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
390: new_references.attendance_type
391: ) THEN
392: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
393: IGS_GE_MSG_STACK.ADD;
394: App_Exception.Raise_Exception;
395: END IF;
396:
397: END IF;
403: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
404: new_references.admission_cal_type
405: ) THEN
406: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
407: IGS_GE_MSG_STACK.ADD;
408: App_Exception.Raise_Exception;
409: END IF;
410:
411: END IF;
421: new_references.cal_type,
422: new_references.aprvd_ci_sequence_number
423: ) THEN
424: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
425: IGS_GE_MSG_STACK.ADD;
426: App_Exception.Raise_Exception;
427: END IF;
428: END IF;
429:
440: new_references.version_number,
441: new_references.cal_type
442: ) THEN
443: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
444: IGS_GE_MSG_STACK.ADD;
445: App_Exception.Raise_Exception;
446: END IF;
447: END IF;
448:
454: new_references.location_cd ,
455: 'N'
456: ) THEN
457: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
458: IGS_GE_MSG_STACK.ADD;
459: App_Exception.Raise_Exception;
460: END IF;
461:
462: END IF;
523: Fetch cur_rowid INTO lv_rowid;
524: IF (cur_rowid%FOUND) THEN
525: Close cur_rowid;
526: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_AC_FK');
527: IGS_GE_MSG_STACK.ADD;
528: App_Exception.Raise_Exception;
529: Return;
530: END IF;
531: Close cur_rowid;
549: Fetch cur_rowid INTO lv_rowid;
550: IF (cur_rowid%FOUND) THEN
551: Close cur_rowid;
552: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_AM_FK');
553: IGS_GE_MSG_STACK.ADD;
554: App_Exception.Raise_Exception;
555: Return;
556: END IF;
557: Close cur_rowid;
575: Fetch cur_rowid INTO lv_rowid;
576: IF (cur_rowid%FOUND) THEN
577: Close cur_rowid;
578: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_ATT_FK');
579: IGS_GE_MSG_STACK.ADD;
580: App_Exception.Raise_Exception;
581: Return;
582: END IF;
583: Close cur_rowid;
601: Fetch cur_rowid INTO lv_rowid;
602: IF (cur_rowid%FOUND) THEN
603: Close cur_rowid;
604: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_CAT_ADM_FK');
605: IGS_GE_MSG_STACK.ADD;
606: App_Exception.Raise_Exception;
607: Return;
608: END IF;
609: Close cur_rowid;
629: Fetch cur_rowid INTO lv_rowid;
630: IF (cur_rowid%FOUND) THEN
631: Close cur_rowid;
632: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_CI_APRVD_FK');
633: IGS_GE_MSG_STACK.ADD;
634: App_Exception.Raise_Exception;
635: Return;
636: END IF;
637: Close cur_rowid;
659: Fetch cur_rowid INTO lv_rowid;
660: IF (cur_rowid%FOUND) THEN
661: Close cur_rowid;
662: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_CO_FK');
663: IGS_GE_MSG_STACK.ADD;
664: App_Exception.Raise_Exception;
665: Return;
666: END IF;
667: Close cur_rowid;
685: Fetch cur_rowid INTO lv_rowid;
686: IF (cur_rowid%FOUND) THEN
687: Close cur_rowid;
688: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POS_LOC_FK');
689: IGS_GE_MSG_STACK.ADD;
690: App_Exception.Raise_Exception;
691: Return;
692: END IF;
693: Close cur_rowid;
752: new_references.cal_type,
753: new_references.sequence_number
754: ) THEN
755: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
756: IGS_GE_MSG_STACK.ADD;
757: App_Exception.Raise_Exception;
758: END IF;
759: Check_Constraints;
760: Check_Parent_Existance;
774: new_references.cal_type,
775: new_references.sequence_number
776: ) THEN
777: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
778: IGS_GE_MSG_STACK.ADD;
779: App_Exception.Raise_Exception;
780: END IF;
781: Check_Constraints;
782: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
839: X_LAST_UPDATE_LOGIN := -1;
840: end if;
841: else
842: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
843: IGS_GE_MSG_STACK.ADD;
844: app_exception.raise_exception;
845: end if;
846:
847: Before_DML( p_action => 'INSERT',
959: fetch c1 into tlinfo;
960: if (c1%notfound) then
961: close c1;
962: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
963: IGS_GE_MSG_STACK.ADD;
964: app_exception.raise_exception;
965: return;
966: end if;
967: close c1;
995: ) then
996: null;
997: else
998: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
999: IGS_GE_MSG_STACK.ADD;
1000: app_exception.raise_exception;
1001: end if;
1002: return;
1003: end LOCK_ROW;
1038: X_LAST_UPDATE_LOGIN := -1;
1039: end if;
1040: else
1041: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1042: IGS_GE_MSG_STACK.ADD;
1043: app_exception.raise_exception;
1044: end if;
1045: Before_DML( p_action => 'UDPATE',
1046: x_rowid => X_ROWID,