[Home] [Help]
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;
44: END IF;
45: Close cur_old_ref_values;
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:
86: END IF;
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:
104: END IF;
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:
121:
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;
197: END IF;
198: Close cur_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;
226: END IF;
227: Close cur_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;
253: END IF;
254: Close cur_rowid;
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;
306: ELSIF (p_action = 'UPDATE') THEN
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;
326: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
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 (
374: p_action => 'INSERT',
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');
439: RAISE;
440: END IF;
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;
469: end if;
470: close c1;
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;
482:
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 (
517: p_action => 'UPDATE',
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
549: igs_sc_gen_001.unset_ctx('R');
550: END IF;
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');
562: RAISE;
563: END IF;
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
633: igs_sc_gen_001.unset_ctx('R');
634: END IF;
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
665: IF new_references.course_cd <> UPPER(new_references.course_cd) THEN
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
672: IF new_references.prg_cal_type <> UPPER(new_references.prg_cal_type) THEN
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
679: IF new_references.s_prg_check_type <> UPPER(new_references.s_prg_check_type) THEN
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;
686: