[Home] [Help]
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: Close cur_old_ref_values;
41: App_Exception.Raise_Exception;
42:
43: Return;
77: new_references.prg_cal_type,
78: new_references.prg_ci_sequence_number
79: ) THEN
80: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
81: IGS_GE_MSG_STACK.ADD;
82: App_Exception.Raise_Exception;
83:
84: END IF;
85:
95: new_references.person_id,
96: new_references.course_cd
97: ) THEN
98: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101:
102: END IF;
103:
112: 'PRG_CHECK_TYPE',
113: new_references.s_prg_check_type
114: ) THEN
115: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118:
119: END IF;
120:
188: Open cur_rowid;
189: Fetch cur_rowid INTO lv_rowid;
190: IF (cur_rowid%FOUND) THEN
191: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCHK_CI_FK');
192: IGS_GE_MSG_STACK.ADD;
193: Close cur_rowid;
194: App_Exception.Raise_Exception;
195:
196: Return;
217: Open cur_rowid;
218: Fetch cur_rowid INTO lv_rowid;
219: IF (cur_rowid%FOUND) THEN
220: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCHK_SCA_FK');
221: IGS_GE_MSG_STACK.ADD;
222: Close cur_rowid;
223: App_Exception.Raise_Exception;
224:
225: Return;
244: Open cur_rowid;
245: Fetch cur_rowid INTO lv_rowid;
246: IF (cur_rowid%FOUND) THEN
247: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCHK_SPCT_FK');
248: IGS_GE_MSG_STACK.ADD;
249: Close cur_rowid;
250: App_Exception.Raise_Exception;
251:
252: Return;
297: new_references.prg_cal_type,
298: new_references.prg_ci_sequence_number,
299: new_references.rule_check_dt) THEN
300: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303:
304: END IF;
305: CHECK_CONSTRAINTS;
317: new_references.prg_cal_type,
318: new_references.prg_ci_sequence_number,
319: new_references.rule_check_dt) THEN
320: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
321: IGS_GE_MSG_STACK.ADD;
322: App_Exception.Raise_Exception;
323:
324: END IF;
325: CHECK_CONSTRAINTS;
365: X_LAST_UPDATE_LOGIN := -1;
366: end if;
367: else
368: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
369: IGS_GE_MSG_STACK.ADD;
370: app_exception.raise_exception;
371: end if;
372:
373: Before_DML (
430: WHEN OTHERS THEN
431: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
432: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
433: fnd_message.set_token ('ERR_CD', SQLCODE);
434: igs_ge_msg_stack.add;
435: igs_sc_gen_001.unset_ctx('R');
436: app_exception.raise_exception;
437: ELSE
438: igs_sc_gen_001.unset_ctx('R');
460: open c1;
461: fetch c1 into tlinfo;
462: if (c1%notfound) then
463: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
464: IGS_GE_MSG_STACK.ADD;
465: close c1;
466: app_exception.raise_exception;
467:
468: return;
473: ) then
474: null;
475: else
476: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
477: IGS_GE_MSG_STACK.ADD;
478: app_exception.raise_exception;
479: end if;
480: return;
481: end LOCK_ROW;
508: X_LAST_UPDATE_LOGIN := -1;
509: end if;
510: else
511: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
512: IGS_GE_MSG_STACK.ADD;
513: app_exception.raise_exception;
514: end if;
515:
516: Before_DML (
540: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
541: where ROWID = X_ROWID;
542: if (sql%notfound) then
543: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
544: igs_ge_msg_stack.add;
545: igs_sc_gen_001.unset_ctx('R');
546: app_exception.raise_exception;
547: end if;
548: IF (x_mode = 'S') THEN
553: WHEN OTHERS THEN
554: IF (SQLCODE = (-28115)) THEN
555: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
556: fnd_message.set_token ('ERR_CD', SQLCODE);
557: igs_ge_msg_stack.add;
558: igs_sc_gen_001.unset_ctx('R');
559: app_exception.raise_exception;
560: ELSE
561: igs_sc_gen_001.unset_ctx('R');
624: delete from IGS_PR_STDNT_PR_CK
625: where ROWID = X_ROWID;
626: if (sql%notfound) then
627: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
628: igs_ge_msg_stack.add;
629: igs_sc_gen_001.unset_ctx('R');
630: app_exception.raise_exception;
631: end if;
632: IF (x_mode = 'S') THEN
656: IF upper(Column_name) = 'PRG_CI_SEQUENCE_NUMBER' OR column_name IS NULL THEN
657: IF new_references.prg_ci_sequence_number < 1
658: AND new_references.prg_ci_sequence_number > 999999 THEN
659: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
660: IGS_GE_MSG_STACK.ADD;
661: App_Exception.Raise_Exception;
662: END IF;
663: END IF;
664: IF upper(Column_name) = 'COURSE_CD' OR column_name IS NULL THEN
663: END IF;
664: IF upper(Column_name) = 'COURSE_CD' OR column_name IS NULL THEN
665: IF new_references.course_cd <> UPPER(new_references.course_cd) THEN
666: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
667: IGS_GE_MSG_STACK.ADD;
668: App_Exception.Raise_Exception;
669: END IF;
670: END IF;
671: IF upper(Column_name) = 'PRG_CAL_TYPE' OR column_name IS NULL THEN
670: END IF;
671: IF upper(Column_name) = 'PRG_CAL_TYPE' OR column_name IS NULL THEN
672: IF new_references.prg_cal_type <> UPPER(new_references.prg_cal_type) THEN
673: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
674: IGS_GE_MSG_STACK.ADD;
675: App_Exception.Raise_Exception;
676: END IF;
677: END IF;
678: IF upper(Column_name) = 'S_PRG_CHECK_TYPE' OR column_name IS NULL THEN
677: END IF;
678: IF upper(Column_name) = 'S_PRG_CHECK_TYPE' OR column_name IS NULL THEN
679: IF new_references.s_prg_check_type <> UPPER(new_references.s_prg_check_type) THEN
680: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
681: IGS_GE_MSG_STACK.ADD;
682: App_Exception.Raise_Exception;
683: END IF;
684: END IF;
685: END Check_Constraints;