[Home] [Help]
80: -- Populate Old Values.
81: OPEN cur_old_ref_values;
82: FETCH cur_old_ref_values INTO old_references;
83: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
84: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
85: IGS_GE_MSG_STACK.ADD;
86: CLOSE cur_old_ref_values;
87: APP_EXCEPTION.RAISE_EXCEPTION;
88:
239: new_references.igs_pr_class_std_id := column_value;
240: END IF;
241: IF ((UPPER (column_name) = 'STUDENT_CONFIRMED_IND') OR (column_name IS NULL)) THEN
242: IF new_references.student_confirmed_ind NOT IN ( 'Y' , 'N' ) THEN
243: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
244: IGS_GE_MSG_STACK.ADD;
245: APP_EXCEPTION.RAISE_EXCEPTION;
246: END IF;
247: END IF;
247: END IF;
248:
249: IF ((UPPER (column_name) = 'RULE_CHECK_IND ') OR (column_name IS NULL)) THEN
250: IF new_references.rule_check_ind NOT IN ( 'Y' , 'N' ) THEN
251: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
252: IGS_GE_MSG_STACK.ADD;
253: APP_EXCEPTION.RAISE_EXCEPTION;
254: END IF;
255: END IF;
255: END IF;
256:
257: IF ((UPPER (column_name) = 'PUBLISH_OUTCOMES_IND') OR (column_name IS NULL)) THEN
258: IF new_references.publish_outcomes_ind NOT IN ( 'Y' , 'N' ) 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;
263: END IF;
264:
265: IF ((UPPER (column_name) = 'ADVANCED_STANDING_IND ') OR (column_name IS NULL)) THEN
266: IF new_references.advanced_standing_ind NOT IN ( 'Y' , 'N' ) THEN
267: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
268: IGS_GE_MSG_STACK.ADD;
269: APP_EXCEPTION.RAISE_EXCEPTION;
270: END IF;
271: END IF;
271: END IF;
272:
273: IF ((UPPER (column_name) = 'COURSE_RQRMNT_COMPLETE_IND') OR (column_name IS NULL)) THEN
274: IF new_references.course_rqrmnt_complete_ind NOT IN ( 'Y' , 'N' ) THEN
275: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
276: IGS_GE_MSG_STACK.ADD;
277: APP_EXCEPTION.RAISE_EXCEPTION;
278: END IF;
279: END IF;
280:
281: IF ((UPPER (column_name) = 'ADM_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
282: IF new_references.adm_sequence_number < 1 OR
283: new_references.adm_sequence_number > 999999 THEN
284: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
285: IGS_GE_MSG_STACK.ADD;
286: APP_EXCEPTION.RAISE_EXCEPTION;
287: END IF;
288: END IF;
288: END IF;
289:
290: IF ((UPPER (column_name) = 'SELF_HELP_GROUP_IND ') OR (column_name IS NULL)) THEN
291: IF new_references.self_help_group_ind NOT IN ( 'Y' , 'N' ) THEN
292: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
293: IGS_GE_MSG_STACK.ADD;
294: APP_EXCEPTION.RAISE_EXCEPTION;
295: END IF;
296: END IF;
296: END IF;
297:
298: IF ((UPPER (column_name) = 'WAIVE_OPTION_CHECK_IND') OR (column_name IS NULL)) THEN
299: IF new_references.waive_option_check_ind NOT IN ( 'Y' , 'N' ) 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;
304: END IF;
305:
306: IF ((UPPER (column_name) = 'PROVISIONAL_IND ') OR (column_name IS NULL)) THEN
307: IF new_references.provisional_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;
312: END IF;
313:
314: IF ((UPPER (column_name) = 'ADM_NOMINATED_COURSE_CD') OR (column_name IS NULL)) THEN
315: IF (new_references.adm_nominated_course_cd <> UPPER (new_references.adm_nominated_course_cd)) THEN
316: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
317: IGS_GE_MSG_STACK.ADD;
318: APP_EXCEPTION.RAISE_EXCEPTION;
319: END IF;
320: END IF;
320: END IF;
321:
322: IF ((UPPER (column_name) = 'ATTENDANCE_MODE') OR (column_name IS NULL)) THEN
323: IF (new_references.attendance_mode <> UPPER (new_references.attendance_mode)) THEN
324: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
325: IGS_GE_MSG_STACK.ADD;
326: APP_EXCEPTION.RAISE_EXCEPTION;
327: END IF;
328: END IF;
328: END IF;
329:
330: IF ((UPPER (column_name) = 'ATTENDANCE_TYPE') OR (column_name IS NULL)) THEN
331: IF (new_references.attendance_type <> UPPER (new_references.attendance_type)) THEN
332: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
333: IGS_GE_MSG_STACK.ADD;
334: APP_EXCEPTION.RAISE_EXCEPTION;
335: END IF;
336: END IF;
336: END IF;
337:
338: IF ((UPPER (column_name) = 'CAL_TYPE') OR (column_name IS NULL)) THEN
339: IF (new_references.cal_type <> UPPER (new_references.cal_type)) THEN
340: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
341: IGS_GE_MSG_STACK.ADD;
342: APP_EXCEPTION.RAISE_EXCEPTION;
343: END IF;
344: END IF;
344: END IF;
345:
346: IF ((UPPER (column_name) = 'CORRESPONDENCE_CAT') OR (column_name IS NULL)) THEN
347: IF (new_references.correspondence_cat <> UPPER (new_references.correspondence_cat)) THEN
348: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
349: IGS_GE_MSG_STACK.ADD;
350: APP_EXCEPTION.RAISE_EXCEPTION;
351: END IF;
352: END IF;
352: END IF;
353:
354: IF ((UPPER (column_name) = 'COURSE_ATTEMPT_STATUS') OR (column_name IS NULL)) THEN
355: IF (new_references.course_attempt_status <> UPPER (new_references.course_attempt_status)) THEN
356: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
357: IGS_GE_MSG_STACK.ADD;
358: APP_EXCEPTION.RAISE_EXCEPTION;
359: END IF;
360: END IF;
360: END IF;
361:
362: IF ((UPPER (column_name) = 'COURSE_CD') OR (column_name IS NULL)) THEN
363: IF (new_references.course_cd <> UPPER (new_references.course_cd)) 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;
368: END IF;
369:
370: IF ((UPPER (column_name) = 'COURSE_RQRMNT_COMPLETE_IND') OR (column_name IS NULL)) THEN
371: IF (new_references.course_rqrmnt_complete_ind <> UPPER (new_references.course_rqrmnt_complete_ind)) THEN
372: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
373: IGS_GE_MSG_STACK.ADD;
374: APP_EXCEPTION.RAISE_EXCEPTION;
375: END IF;
376: END IF;
376: END IF;
377:
378: IF ((UPPER (column_name) = 'DERIVED_ATT_MODE') OR (column_name IS NULL)) THEN
379: IF (new_references.derived_att_mode <> UPPER (new_references.derived_att_mode)) THEN
380: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
381: IGS_GE_MSG_STACK.ADD;
382: APP_EXCEPTION.RAISE_EXCEPTION;
383: END IF;
384: END IF;
384: END IF;
385:
386: IF ((UPPER (column_name) = 'DERIVED_ATT_TYPE') OR (column_name IS NULL)) THEN
387: IF (new_references.derived_att_type <> UPPER (new_references.derived_att_type)) THEN
388: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
389: IGS_GE_MSG_STACK.ADD;
390: APP_EXCEPTION.RAISE_EXCEPTION;
391: END IF;
392: END IF;
392: END IF;
393:
394: IF ((UPPER (column_name) = 'DERIVED_COMPLETION_PERD') OR (column_name IS NULL)) THEN
395: IF (new_references.derived_completion_perd <> UPPER (new_references.derived_completion_perd)) THEN
396: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
397: IGS_GE_MSG_STACK.ADD;
398: APP_EXCEPTION.RAISE_EXCEPTION;
399: END IF;
400: END IF;
400: END IF;
401:
402: IF ((UPPER (column_name) = 'DISCONTINUATION_REASON_CD') OR (column_name IS NULL)) THEN
403: IF (new_references.DISCONTINUATION_REASON_CD <> UPPER (new_references.DISCONTINUATION_REASON_CD)) THEN
404: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
405: IGS_GE_MSG_STACK.ADD;
406: APP_EXCEPTION.RAISE_EXCEPTION;
407: END IF;
408: END IF;
408: END IF;
409:
410: IF ((UPPER (column_name) = 'EXAM_LOCATION_CD') OR (column_name IS NULL)) THEN
411: IF (new_references.exam_location_cd <> UPPER (new_references.exam_location_cd)) THEN
412: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
413: IGS_GE_MSG_STACK.ADD;
414: APP_EXCEPTION.RAISE_EXCEPTION;
415: END IF;
416: END IF;
416: END IF;
417:
418: IF ((UPPER (column_name) = 'FUNDING_SOURCE') OR (column_name IS NULL)) THEN
419: IF (new_references.funding_source <> UPPER (new_references.funding_source)) THEN
420: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
421: IGS_GE_MSG_STACK.ADD;
422: APP_EXCEPTION.RAISE_EXCEPTION;
423: END IF;
424: END IF;
424: END IF;
425:
426: IF ((UPPER (column_name) = 'LOCATION_CD') OR (column_name IS NULL)) THEN
427: IF (new_references.location_cd <> UPPER (new_references.location_cd)) THEN
428: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
429: IGS_GE_MSG_STACK.ADD;
430: APP_EXCEPTION.RAISE_EXCEPTION;
431: END IF;
432: END IF;
432: END IF;
433:
434: IF ((UPPER (column_name) = 'NOMINATED_COMPLETION_PERD') OR (column_name IS NULL)) THEN
435: IF (new_references.nominated_completion_perd <> UPPER (new_references.nominated_completion_perd)) THEN
436: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
437: IGS_GE_MSG_STACK.ADD;
438: APP_EXCEPTION.RAISE_EXCEPTION;
439: END IF;
440: END IF;
440: END IF;
441:
442: IF ((UPPER (column_name) = 'MANUAL_OVR_CMPL_DT_IND') OR (column_name IS NULL)) THEN
443: IF new_references.manual_ovr_cmpl_dt_ind NOT IN ( 'Y' , 'N' ) THEN
444: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
445: IGS_GE_MSG_STACK.ADD;
446: APP_EXCEPTION.RAISE_EXCEPTION;
447: END IF;
448: END IF;
617: new_references.course_cd ,
618: new_references.hist_start_dt
619: ) THEN
620:
621: Fnd_message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
622: IGS_GE_MSG_STACK.ADD;
623: APP_EXCEPTION.RAISE_EXCEPTION;
624:
625: END IF;
635: new_references.person_id ,
636: new_references.course_cd ,
637: new_references.hist_start_dt
638: ) THEN
639: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
640: IGS_GE_MSG_STACK.ADD;
641: APP_EXCEPTION.RAISE_EXCEPTION;
642: END IF;
643: Check_Constraints;
729: IF X_LAST_UPDATE_LOGIN IS NULL THEN
730: X_LAST_UPDATE_LOGIN := -1;
731: END IF;
732: ELSE
733: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
734: IGS_GE_MSG_STACK.ADD;
735: APP_EXCEPTION.RAISE_EXCEPTION;
736: END IF;
737: Before_DML(
1055: BEGIN
1056: OPEN c1;
1057: FETCH c1 INTO tlinfo;
1058: IF (c1%NOTFOUND) THEN
1059: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1060: IGS_GE_MSG_STACK.ADD;
1061: APP_EXCEPTION.RAISE_EXCEPTION;
1062: CLOSE c1;
1063: RETURN;
1220: AND (X_IGS_PR_CLASS_STD_ID IS NULL)))
1221: ) THEN
1222: NULL;
1223: ELSE
1224: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1225: IGS_GE_MSG_STACK.ADD;
1226: APP_EXCEPTION.RAISE_EXCEPTION;
1227: END IF;
1228: RETURN;
1304: IF X_LAST_UPDATE_LOGIN IS NULL THEN
1305: X_LAST_UPDATE_LOGIN := -1;
1306: END IF;
1307: ELSE
1308: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1309: IGS_GE_MSG_STACK.ADD;
1310: APP_EXCEPTION.RAISE_EXCEPTION;
1311: END IF;
1312: Before_DML(