[Home] [Help]
27: -- Populate Old Values.
28: Open cur_old_ref_values;
29: Fetch cur_old_ref_values INTO old_references;
30: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
31: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
32: IGS_GE_MSG_STACK.ADD;
33: Close cur_old_ref_values;
34: APP_EXCEPTION.RAISE_EXCEPTION;
35:
71: END IF;
72:
73: IF ((UPPER (column_name) = 'COURSE_CD') OR (column_name IS NULL)) THEN
74: IF (new_references.course_cd <> UPPER (new_references.course_cd)) THEN
75: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
76: IGS_GE_MSG_STACK.ADD;
77: APP_EXCEPTION.RAISE_EXCEPTION;
78: END IF;
79: END IF;
79: END IF;
80:
81: IF ((UPPER (column_name) = 'ENR_NOTE_TYPE') OR (column_name IS NULL)) THEN
82: IF (new_references.enr_note_type <> UPPER (new_references.enr_note_type)) THEN
83: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
84: IGS_GE_MSG_STACK.ADD;
85: APP_EXCEPTION.RAISE_EXCEPTION;
86: END IF;
87: END IF;
97: IF NOT IGS_EN_NOTE_TYPE_PKG.Get_PK_For_Validation (
98: new_references.enr_note_type
99: ) THEN
100:
101: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
102: IGS_GE_MSG_STACK.ADD;
103: APP_EXCEPTION.RAISE_EXCEPTION;
104:
105: END IF;
110: ELSE
111: IF NOT IGS_GE_NOTE_PKG.Get_PK_For_Validation (
112: new_references.reference_number
113: ) THEN
114: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
115: IGS_GE_MSG_STACK.ADD;
116: APP_EXCEPTION.RAISE_EXCEPTION;
117:
118: END IF;
126: IF NOT IGS_EN_STDNT_PS_ATT_PKG.Get_PK_For_Validation (
127: new_references.person_id,
128: new_references.course_cd
129: )THEN
130: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
131: IGS_GE_MSG_STACK.ADD;
132: APP_EXCEPTION.RAISE_EXCEPTION;
133:
134: END IF;
172: BEGIN
173: Open cur_rowid;
174: Fetch cur_rowid INTO lv_rowid;
175: IF (cur_rowid%FOUND) THEN
176: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAN_ENT_FK');
177: IGS_GE_MSG_STACK.ADD;
178: Close cur_rowid;
179: APP_EXCEPTION.RAISE_EXCEPTION;
180:
193: BEGIN
194: Open cur_rowid;
195: Fetch cur_rowid INTO lv_rowid;
196: IF (cur_rowid%FOUND) THEN
197: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAN_NOTE_FK');
198: IGS_GE_MSG_STACK.ADD;
199: Close cur_rowid;
200: APP_EXCEPTION.RAISE_EXCEPTION;
201:
216: BEGIN
217: Open cur_rowid;
218: Fetch cur_rowid INTO lv_rowid;
219: IF (cur_rowid%FOUND) THEN
220: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAN_SCA_FK');
221: IGS_GE_MSG_STACK.ADD;
222: Close cur_rowid;
223: APP_EXCEPTION.RAISE_EXCEPTION;
224:
260: new_references.course_cd,
261: new_references.reference_number
262: ) THEN
263:
264: Fnd_message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
265: IGS_GE_MSG_STACK.ADD;
266: APP_EXCEPTION.RAISE_EXCEPTION;
267:
268: END IF;
279: new_references.person_id,
280: new_references.course_cd,
281: new_references.reference_number
282: ) THEN
283: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
284: IGS_GE_MSG_STACK.ADD;
285: APP_EXCEPTION.RAISE_EXCEPTION;
286: END IF;
287: Check_Constraints;
320: if X_LAST_UPDATE_LOGIN is NULL then
321: X_LAST_UPDATE_LOGIN := -1;
322: end if;
323: else
324: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
325: IGS_GE_MSG_STACK.ADD;
326: APP_EXCEPTION.RAISE_EXCEPTION;
327: end if;
328: Before_DML(
376:
377: EXCEPTION
378: WHEN OTHERS THEN
379: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
380: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
381: fnd_message.set_token ('ERR_CD', SQLCODE);
382: igs_ge_msg_stack.add;
383: igs_sc_gen_001.unset_ctx('R');
384: app_exception.raise_exception;
377: EXCEPTION
378: WHEN OTHERS THEN
379: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
380: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
381: fnd_message.set_token ('ERR_CD', SQLCODE);
382: igs_ge_msg_stack.add;
383: igs_sc_gen_001.unset_ctx('R');
384: app_exception.raise_exception;
385: ELSE
403: begin
404: open c1;
405: fetch c1 into tlinfo;
406: if (c1%notfound) then
407: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
408: IGS_GE_MSG_STACK.ADD;
409: APP_EXCEPTION.RAISE_EXCEPTION;
410: close c1;
411: return;
414: if ( (tlinfo.ENR_NOTE_TYPE = X_ENR_NOTE_TYPE)
415: ) then
416: null;
417: else
418: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
419: IGS_GE_MSG_STACK.ADD;
420: APP_EXCEPTION.RAISE_EXCEPTION;
421: end if;
422: return;
446: if X_LAST_UPDATE_LOGIN is NULL then
447: X_LAST_UPDATE_LOGIN := -1;
448: end if;
449: else
450: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
451: IGS_GE_MSG_STACK.ADD;
452: APP_EXCEPTION.RAISE_EXCEPTION;
453: end if;
454: Before_DML(
473: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
474: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
475: where ROWID = X_ROWID;
476: if (sql%notfound) then
477: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
478: igs_ge_msg_stack.add;
479: igs_sc_gen_001.unset_ctx('R');
480: app_exception.raise_exception;
481: end if;
486:
487: EXCEPTION
488: WHEN OTHERS THEN
489: IF (SQLCODE = (-28115)) THEN
490: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
491: fnd_message.set_token ('ERR_CD', SQLCODE);
492: igs_ge_msg_stack.add;
493: igs_sc_gen_001.unset_ctx('R');
494: app_exception.raise_exception;
487: EXCEPTION
488: WHEN OTHERS THEN
489: IF (SQLCODE = (-28115)) THEN
490: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
491: fnd_message.set_token ('ERR_CD', SQLCODE);
492: igs_ge_msg_stack.add;
493: igs_sc_gen_001.unset_ctx('R');
494: app_exception.raise_exception;
495: ELSE
547: END IF;
548: delete from IGS_AS_SC_ATMPT_NOTE
549: where ROWID = X_ROWID;
550: if (sql%notfound) then
551: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
552: igs_ge_msg_stack.add;
553: igs_sc_gen_001.unset_ctx('R');
554: app_exception.raise_exception;
555: end if;