[Home] [Help]
35: -- Populate Old Values.
36: Open cur_old_ref_values;
37: Fetch cur_old_ref_values INTO old_references;
38: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40:
41: IGS_GE_MSG_STACK.ADD;
42: Close cur_old_ref_values;
43: APP_EXCEPTION.RAISE_EXCEPTION;
94: (p_updating AND
95: (new_references.exam_supervisor_type <> old_references.exam_supervisor_type)) THEN
96: IF IGS_AS_VAL_ESU.assp_val_est_closed(new_references.exam_supervisor_type,
97: v_message_name) = FALSE THEN
98: FND_message.SET_NAME('IGS',v_message_name);
99: IGS_GE_MSG_STACK.ADD;
100: APP_EXCEPTION.RAISE_EXCEPTION;
101: END IF;
102: END IF;
129: new_references.dai_sequence_number,
130: new_references.start_time,
131: new_references.end_time,
132: new_references.venue_cd ) THEN
133: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
134: IGS_GE_MSG_STACK.ADD;
135: APP_EXCEPTION.RAISE_EXCEPTION;
136:
137:
140: ((new_references.ese_id IS NULL))) THEN
141: NULL;
142: ELSIF NOT IGS_AS_EXAM_SESSION_PKG.Get_UK_For_Validation (
143: new_references.ese_id )THEN
144: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
145: IGS_GE_MSG_STACK.ADD;
146: APP_EXCEPTION.RAISE_EXCEPTION;
147:
148: END IF;
151: NULL;
152: ELSIF NOT IGS_AS_EXM_SPRVSRTYP_PKG.Get_PK_For_Validation (
153: new_references.exam_supervisor_type
154: )THEN
155: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
156: IGS_GE_MSG_STACK.ADD;
157: APP_EXCEPTION.RAISE_EXCEPTION;
158:
159: END IF;
161: ((new_references.person_id IS NULL))) THEN
162: NULL;
163: ELSIF NOT IGS_AS_EXM_SUPRVISOR_PKG.Get_PK_For_Validation (
164: new_references.person_id )THEN
165: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
166: IGS_GE_MSG_STACK.ADD;
167: APP_EXCEPTION.RAISE_EXCEPTION;
168:
169: END IF;
230: BEGIN
231: Open cur_rowid;
232: Fetch cur_rowid INTO lv_rowid;
233: IF (cur_rowid%FOUND) THEN
234: Fnd_Message.Set_Name ('IGS', 'IGS_AS_EIS_EI_FK');
235: IGS_GE_MSG_STACK.ADD;
236: Close cur_rowid;
237: APP_EXCEPTION.RAISE_EXCEPTION;
238:
251: BEGIN
252: Open cur_rowid;
253: Fetch cur_rowid INTO lv_rowid;
254: IF (cur_rowid%FOUND) THEN
255: Fnd_Message.Set_Name ('IGS', 'IGS_AS_EIS_ESE_UFK');
256: IGS_GE_MSG_STACK.ADD;
257: Close cur_rowid;
258: APP_EXCEPTION.RAISE_EXCEPTION;
259:
272: BEGIN
273: Open cur_rowid;
274: Fetch cur_rowid INTO lv_rowid;
275: IF (cur_rowid%FOUND) THEN
276: Fnd_Message.Set_Name ('IGS', 'IGS_AS_EIS_EST_FK');
277: IGS_GE_MSG_STACK.ADD;
278: Close cur_rowid;
279: APP_EXCEPTION.RAISE_EXCEPTION;
280:
293: BEGIN
294: Open cur_rowid;
295: Fetch cur_rowid INTO lv_rowid;
296: IF (cur_rowid%FOUND) THEN
297: Fnd_Message.Set_Name ('IGS', 'IGS_AS_EIS_ESU_FK');
298: IGS_GE_MSG_STACK.ADD;
299: Close cur_rowid;
300: APP_EXCEPTION.RAISE_EXCEPTION;
301:
361: NEW_REFERENCES.dai_sequence_number ,
362: NEW_REFERENCES.start_time ,
363: NEW_REFERENCES.end_time,
364: NEW_REFERENCES.venue_cd ) THEN
365: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
366: IGS_GE_MSG_STACK.ADD;
367: APP_EXCEPTION.RAISE_EXCEPTION;
368: END IF;
369:
385: NEW_REFERENCES.dai_sequence_number ,
386: NEW_REFERENCES.start_time ,
387: NEW_REFERENCES.end_time,
388: NEW_REFERENCES.venue_cd ) THEN
389: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
390: IGS_GE_MSG_STACK.ADD;
391: APP_EXCEPTION.RAISE_EXCEPTION;
392: END IF;
393:
442: if X_LAST_UPDATE_LOGIN is NULL then
443: X_LAST_UPDATE_LOGIN := -1;
444: end if;
445: else
446: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
447: IGS_GE_MSG_STACK.ADD;
448: APP_EXCEPTION.RAISE_EXCEPTION;
449: end if;
450: Before_DML(
544: begin
545: open c1;
546: fetch c1 into tlinfo;
547: if (c1%notfound) then
548: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
549: IGS_GE_MSG_STACK.ADD;
550: APP_EXCEPTION.RAISE_EXCEPTION;
551: close c1;
552: return;
562: AND (X_OVERRIDE_END_TIME is null)))
563: ) then
564: null;
565: else
566: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
567: IGS_GE_MSG_STACK.ADD;
568: APP_EXCEPTION.RAISE_EXCEPTION;
569: end if;
570: return;
603: if X_LAST_UPDATE_LOGIN is NULL then
604: X_LAST_UPDATE_LOGIN := -1;
605: end if;
606: else
607: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
608: IGS_GE_MSG_STACK.ADD;
609: APP_EXCEPTION.RAISE_EXCEPTION;
610: end if;
611: Before_DML(
754: end if;
755: IF upper(column_name) = 'DT_ALIAS' OR
756: column_name is null Then
757: IF new_references.DT_ALIAS <> UPPER(new_references.DT_ALIAS) Then
758: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
759: IGS_GE_MSG_STACK.ADD;
760: APP_EXCEPTION.RAISE_EXCEPTION;
761: END IF;
762: END IF;
762: END IF;
763: IF upper(column_name) = 'EXAM_CAL_TYPE' OR
764: column_name is null Then
765: IF new_references.EXAM_CAL_TYPE <> UPPER(new_references.EXAM_CAL_TYPE) Then
766: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
767: IGS_GE_MSG_STACK.ADD;
768: APP_EXCEPTION.RAISE_EXCEPTION;
769: END IF;
770: END IF;
770: END IF;
771: IF upper(column_name) = 'EXAM_SUPERVISOR_TYPE' OR
772: column_name is null Then
773: IF new_references.EXAM_SUPERVISOR_TYPE <> UPPER(new_references.EXAM_SUPERVISOR_TYPE) Then
774: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
775: IGS_GE_MSG_STACK.ADD;
776: APP_EXCEPTION.RAISE_EXCEPTION;
777: END IF;
778: END IF;
778: END IF;
779: IF upper(column_name) = 'VENUE_CD' OR
780: column_name is null Then
781: IF new_references.VENUE_CD <> UPPER(new_references.VENUE_CD) Then
782: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
783: IGS_GE_MSG_STACK.ADD;
784: APP_EXCEPTION.RAISE_EXCEPTION;
785: END IF;
786: END IF;
787:
788: IF upper(column_name) = 'DAI_SEQUENCE_NUMBER' OR
789: column_name is null Then
790: IF new_references.DAI_SEQUENCE_NUMBER < 1 OR new_references.DAI_SEQUENCE_NUMBER > 999999 THEN
791: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
792: IGS_GE_MSG_STACK.ADD;
793: APP_EXCEPTION.RAISE_EXCEPTION;
794: END IF;
795: END IF;
795: END IF;
796: IF upper(column_name) = 'EXAM_CI_SEQUENCE_NUMBER' OR
797: column_name is null Then
798: IF new_references.EXAM_CI_SEQUENCE_NUMBER < 1 OR new_references.EXAM_CI_SEQUENCE_NUMBER > 999999 Then
799: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
800: IGS_GE_MSG_STACK.ADD;
801: APP_EXCEPTION.RAISE_EXCEPTION;
802: END IF;
803: END IF;
803: END IF;
804: IF upper(column_name) = 'ESE_ID' OR
805: column_name is null Then
806: IF new_references.ESE_ID < 1 OR new_references.ESE_ID > 999999 Then
807: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
808: IGS_GE_MSG_STACK.ADD;
809: APP_EXCEPTION.RAISE_EXCEPTION;
810: END IF;
811: END IF;