[Home] [Help]
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: IGS_GE_MSG_STACK.ADD;
42: Close cur_old_ref_values;
43: APP_EXCEPTION.RAISE_EXCEPTION;
44:
45: Return;
46: END IF;
47: Close cur_old_ref_values;
96: new_references.venue_cd,
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;
103: -- Validate that the exam supervisor type is not closed.
104: IF p_inserting OR
108: v_message_name) = FALSE THEN
109: FND_MESSAGE.SET_NAME('IGS',v_message_name);
110: IGS_GE_MSG_STACK.ADD;
111: IGS_GE_MSG_STACK.ADD;
112: APP_EXCEPTION.RAISE_EXCEPTION;
113: END IF;
114: END IF;
115: END BeforeRowInsertUpdate1;
116: PROCEDURE Check_Parent_Existance AS
122: new_references.ese_id
123: ) THEN
124: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
125: IGS_GE_MSG_STACK.ADD;
126: APP_EXCEPTION.RAISE_EXCEPTION;
127: END IF;
128:
129:
130: IF (((old_references.exam_supervisor_type = new_references.exam_supervisor_type)) OR
133: ELSIF NOT IGS_AS_EXM_SPRVSRTYP_PKG.Get_PK_For_Validation (
134: new_references.exam_supervisor_type )THEN
135: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
136: IGS_GE_MSG_STACK.ADD;
137: APP_EXCEPTION.RAISE_EXCEPTION;
138: END IF;
139:
140:
141: IF (((old_references.person_id = new_references.person_id)) OR
144: ELSIF NOT IGS_AS_EXM_SUPRVISOR_PKG.Get_PK_For_Validation (
145: new_references.person_id ) THEN
146: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
147: IGS_GE_MSG_STACK.ADD;
148: APP_EXCEPTION.RAISE_EXCEPTION;
149: END IF;
150:
151:
152: END Check_Parent_Existance;
199: IF (cur_rowid%FOUND) THEN
200: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ESVS_ESE_UFK');
201: IGS_GE_MSG_STACK.ADD;
202: Close cur_rowid;
203: APP_EXCEPTION.RAISE_EXCEPTION;
204:
205: Return;
206: END IF;
207: Close cur_rowid;
220: IF (cur_rowid%FOUND) THEN
221: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ESVS_EST_FK');
222: IGS_GE_MSG_STACK.ADD;
223: Close cur_rowid;
224: APP_EXCEPTION.RAISE_EXCEPTION;
225:
226: Return;
227: END IF;
228: Close cur_rowid;
241: IF (cur_rowid%FOUND) THEN
242: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ESVS_ESU_FK');
243: IGS_GE_MSG_STACK.ADD;
244: Close cur_rowid;
245: APP_EXCEPTION.RAISE_EXCEPTION;
246:
247: Return;
248: END IF;
249: Close cur_rowid;
305: NEW_REFERENCES.end_time
306: ) THEN
307: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
308: IGS_GE_MSG_STACK.ADD;
309: APP_EXCEPTION.RAISE_EXCEPTION;
310: END IF;
311:
312: Check_Constraints;
313: Check_Parent_Existance;
329: NEW_REFERENCES.start_time ,
330: NEW_REFERENCES.end_time ) THEN
331: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
332: IGS_GE_MSG_STACK.ADD;
333: APP_EXCEPTION.RAISE_EXCEPTION;
334: END IF;
335: Check_Constraints;
336: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
337: Check_Constraints;
383: end if;
384: else
385: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
386: IGS_GE_MSG_STACK.ADD;
387: APP_EXCEPTION.RAISE_EXCEPTION;
388: end if;
389: Before_DML(
390: p_action=>'INSERT',
391: x_rowid=>X_ROWID,
481: fetch c1 into tlinfo;
482: if (c1%notfound) then
483: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
484: IGS_GE_MSG_STACK.ADD;
485: APP_EXCEPTION.RAISE_EXCEPTION;
486: close c1;
487: return;
488: end if;
489: close c1;
499: null;
500: else
501: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
502: IGS_GE_MSG_STACK.ADD;
503: APP_EXCEPTION.RAISE_EXCEPTION;
504: end if;
505: return;
506: end LOCK_ROW;
507: procedure UPDATE_ROW (
539: end if;
540: else
541: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
542: IGS_GE_MSG_STACK.ADD;
543: APP_EXCEPTION.RAISE_EXCEPTION;
544: end if;
545: Before_DML(
546: p_action=>'UPDATE',
547: x_rowid=>X_ROWID,
683: column_name is null Then
684: IF new_references.DT_ALIAS <> UPPER(new_references.DT_ALIAS) Then
685: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
686: IGS_GE_MSG_STACK.ADD;
687: APP_EXCEPTION.RAISE_EXCEPTION;
688: END IF;
689: END IF;
690: IF upper(column_name) = 'EXAM_CAL_TYPE' OR
691: column_name is null Then
691: column_name is null Then
692: IF new_references.EXAM_CAL_TYPE <> UPPER(new_references.EXAM_CAL_TYPE) Then
693: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
694: IGS_GE_MSG_STACK.ADD;
695: APP_EXCEPTION.RAISE_EXCEPTION;
696: END IF;
697: END IF;
698: IF upper(column_name) = 'EXAM_SUPERVISOR_TYPE' OR
699: column_name is null Then
699: column_name is null Then
700: IF new_references.EXAM_SUPERVISOR_TYPE <> UPPER(new_references.EXAM_SUPERVISOR_TYPE) Then
701: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
702: IGS_GE_MSG_STACK.ADD;
703: APP_EXCEPTION.RAISE_EXCEPTION;
704: END IF;
705: END IF;
706: IF upper(column_name) = 'VENUE_CD' OR
707: column_name is null Then
707: column_name is null Then
708: IF new_references.VENUE_CD <> UPPER(new_references.VENUE_CD) Then
709: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
710: IGS_GE_MSG_STACK.ADD;
711: APP_EXCEPTION.RAISE_EXCEPTION;
712: END IF;
713: END IF;
714:
715: IF upper(column_name) = 'DAI_SEQUENCE_NUMBER' OR
716: column_name is null Then
717: IF new_references.DAI_SEQUENCE_NUMBER < 1 OR new_references.DAI_SEQUENCE_NUMBER > 999999 Then
718: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
719: IGS_GE_MSG_STACK.ADD;
720: APP_EXCEPTION.RAISE_EXCEPTION;
721: END IF;
722: END IF;
723: IF upper(column_name) = 'EXAM_CI_SEQUENCE_NUMBER' OR
724: column_name is null Then
724: column_name is null Then
725: IF new_references.EXAM_CI_SEQUENCE_NUMBER < 1 OR new_references.EXAM_CI_SEQUENCE_NUMBER > 999999 Then
726: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
727: IGS_GE_MSG_STACK.ADD;
728: APP_EXCEPTION.RAISE_EXCEPTION;
729: END IF;
730: END IF;
731:
732: