[Home] [Help]
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: IGS_GE_MSG_STACK.ADD;
41: Close cur_old_ref_values;
42: APP_EXCEPTION.RAISE_EXCEPTION;
43:
44: Return;
45: END IF;
46: Close cur_old_ref_values;
93: new_references.exam_ci_sequence_number,
94: v_message_name) = FALSE THEN
95: FND_MESSAGE.SET_NAME('IGS',v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: APP_EXCEPTION.RAISE_EXCEPTION;
98: END IF;
99: -- Validate the start/end time.
100: IF IGS_AS_VAL_ESE.genp_val_strt_end_tm( new_references.start_time,
101: new_references.end_time,
101: new_references.end_time,
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 BeforeRowInsert1;
108:
109: PROCEDURE Check_Parent_Existance AS
123: new_references.exam_cal_type,
124: new_references.exam_ci_sequence_number ) THEN
125: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
126: IGS_GE_MSG_STACK.ADD;
127: APP_EXCEPTION.RAISE_EXCEPTION;
128: END IF;
129:
130:
131: IF (((old_references.exam_cal_type = new_references.exam_cal_type) OR
137: new_references.exam_cal_type,
138: new_references.exam_ci_sequence_number )THEN
139: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
140: IGS_GE_MSG_STACK.ADD;
141: APP_EXCEPTION.RAISE_EXCEPTION;
142:
143:
144: END IF;
145: END Check_Parent_Existance;
264: IF (cur_rowid%FOUND) THEN
265: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ESE_CI_FK');
266: IGS_GE_MSG_STACK.ADD;
267: Close cur_rowid;
268: APP_EXCEPTION.RAISE_EXCEPTION;
269:
270: Return;
271: END IF;
272: Close cur_rowid;
287: IF (cur_rowid%FOUND) THEN
288: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ESE_DAI_FK');
289: IGS_GE_MSG_STACK.ADD;
290: Close cur_rowid;
291: APP_EXCEPTION.RAISE_EXCEPTION;
292:
293: Return;
294: END IF;
295: Close cur_rowid;
347: NEW_REFERENCES.start_time ,
348: NEW_REFERENCES.end_time ) THEN
349: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
350: IGS_GE_MSG_STACK.ADD;
351: APP_EXCEPTION.RAISE_EXCEPTION;
352: END IF;
353: Check_Uniqueness;
354: Check_Constraints;
355: Check_Parent_Existance;
370: NEW_REFERENCES.start_time ,
371: NEW_REFERENCES.end_time) THEN
372: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
373: IGS_GE_MSG_STACK.ADD;
374: APP_EXCEPTION.RAISE_EXCEPTION;
375: END IF;
376: Check_Uniqueness;
377: Check_Constraints;
378: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
426: end if;
427: else
428: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
429: IGS_GE_MSG_STACK.ADD;
430: APP_EXCEPTION.RAISE_EXCEPTION;
431: end if;
432: Before_DML(
433: p_action=>'INSERT',
434: x_rowid=>X_ROWID,
524: fetch c1 into tlinfo;
525: if (c1%notfound) then
526: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
527: IGS_GE_MSG_STACK.ADD;
528: APP_EXCEPTION.RAISE_EXCEPTION;
529: close c1;
530: return;
531: end if;
532: close c1;
541: null;
542: else
543: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
544: IGS_GE_MSG_STACK.ADD;
545: APP_EXCEPTION.RAISE_EXCEPTION;
546: end if;
547: return;
548: end LOCK_ROW;
549: procedure UPDATE_ROW (
580: end if;
581: else
582: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
583: IGS_GE_MSG_STACK.ADD;
584: APP_EXCEPTION.RAISE_EXCEPTION;
585: end if;
586: Before_DML(
587: p_action=>'UPDATE',
588: x_rowid=>X_ROWID,
700: IF Get_UK_For_Validation (
701: new_references.ESE_ID) THEN
702: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
703: IGS_GE_MSG_STACK.ADD;
704: APP_EXCEPTION.RAISE_EXCEPTION;
705: END IF;
706: End Check_Uniqueness;
707:
708: PROCEDURE Check_Constraints (
728: IF upper(column_name) = 'DT_ALIAS' OR column_name is null Then
729: IF new_references.DT_ALIAS <> UPPER(new_references.DT_ALIAS) Then
730: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
731: IGS_GE_MSG_STACK.ADD;
732: APP_EXCEPTION.RAISE_EXCEPTION;
733: END IF;
734: END IF;
735: IF upper(column_name) = 'EXAM_CAL_TYPE' OR
736: column_name is null Then
736: column_name is null Then
737: IF new_references.EXAM_CAL_TYPE <> UPPER(new_references.EXAM_CAL_TYPE) Then
738: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
739: IGS_GE_MSG_STACK.ADD;
740: APP_EXCEPTION.RAISE_EXCEPTION;
741: END IF;
742: END IF;
743: IF upper(column_name) = 'EXAM_CI_SEQUENCE_NUMBER' OR
744: column_name is null Then
744: column_name is null Then
745: IF new_references.EXAM_CI_SEQUENCE_NUMBER < 1 OR new_references.EXAM_CI_SEQUENCE_NUMBER > 999999 Then
746: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
747: IGS_GE_MSG_STACK.ADD;
748: APP_EXCEPTION.RAISE_EXCEPTION;
749: END IF;
750: END IF;
751: IF upper(column_name) = 'EXAM_SESSION_NUMBER' OR
752: column_name is null Then
752: column_name is null Then
753: IF new_references.EXAM_SESSION_NUMBER < 0 OR new_references.EXAM_SESSION_NUMBER > 99 Then
754: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
755: IGS_GE_MSG_STACK.ADD;
756: APP_EXCEPTION.RAISE_EXCEPTION;
757: END IF;
758: END IF;
759: IF upper(column_name) = 'DAI_SEQUENCE_NUMBER' OR
760: column_name is null Then
760: column_name is null Then
761: IF new_references.DAI_SEQUENCE_NUMBER < 1 OR NEW_REFERENCES.DAI_SEQUENCE_NUMBER > 999999 Then
762: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
763: IGS_GE_MSG_STACK.ADD;
764: APP_EXCEPTION.RAISE_EXCEPTION;
765: END IF;
766: END IF;
767:
768: IF upper(Column_name) = 'ESE_ID' OR column_name is null Then
768: IF upper(Column_name) = 'ESE_ID' OR column_name is null Then
769: IF new_references.ESE_ID < 0 OR new_references.ESE_ID > 999999 Then
770: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
771: IGS_GE_MSG_STACK.ADD;
772: APP_EXCEPTION.RAISE_EXCEPTION;
773: END IF;
774: END IF;
775:
776: END Check_Constraints;