33: Fetch cur_old_ref_values INTO old_references;
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
35: Close cur_old_ref_values;
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: App_Exception.Raise_Exception;
38: Return;
39: END IF;
40: Close cur_old_ref_values;
41:
111:
112: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
113: IF new_references.CLOSED_IND not in ('Y','N') then
114: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
115: App_Exception.Raise_Exception ;
116: END IF;
117: END IF ;
118:
119: IF upper(Column_name) = 'GRADUAND_STATUS' OR COLUMN_NAME IS NULL THEN
118:
119: IF upper(Column_name) = 'GRADUAND_STATUS' OR COLUMN_NAME IS NULL THEN
120: IF new_references.GRADUAND_STATUS<> upper(new_references.GRADUAND_STATUS) then
121: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
122: App_Exception.Raise_Exception ;
123: END IF;
124:
125: END IF ;
126:
126:
127: IF upper(Column_name) = 'S_GRADUAND_STATUS' OR COLUMN_NAME IS NULL THEN
128: IF new_references.S_GRADUAND_STATUS<> upper(new_references.S_GRADUAND_STATUS) then
129: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
130: App_Exception.Raise_Exception ;
131: END IF;
132:
133: IF new_references.S_GRADUAND_STATUS not in ( 'POTENTIAL' , 'ELIGIBLE' , 'SURRENDER' , 'GRADUATED' ) then
134: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
131: END IF;
132:
133: IF new_references.S_GRADUAND_STATUS not in ( 'POTENTIAL' , 'ELIGIBLE' , 'SURRENDER' , 'GRADUATED' ) then
134: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
135: App_Exception.Raise_Exception ;
136: END IF;
137:
138: END IF ;
139: END CHECK_CONSTRAINTS;
170: IF (p_action = 'INSERT') THEN
171: -- Call all the procedures related to Before Insert.
172: IF GET_PK_FOR_VALIDATION(NEW_REFERENCES.graduand_status) THEN
173: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
174: App_Exception.Raise_Exception;
175: END IF;
176:
177: check_constraints;
178: ELSIF (p_action = 'UPDATE') THEN
184: Check_Child_Existance;
185: ELSIF (p_action = 'VALIDATE_INSERT') THEN
186: IF GET_PK_FOR_VALIDATION(NEW_REFERENCES.graduand_status) THEN
187: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
188: App_Exception.Raise_Exception;
189: END IF;
190:
191: check_constraints;
192: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
232: X_LAST_UPDATE_LOGIN := -1;
233: end if;
234: else
235: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
236: app_exception.raise_exception;
237: end if;
238:
239: Before_DML (
240: p_action => 'INSERT',
302: fetch c1 into tlinfo;
303: if (c1%notfound) then
304: close c1;
305: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
306: app_exception.raise_exception;
307: return;
308: end if;
309: close c1;
310:
314: ) then
315: null;
316: else
317: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
318: app_exception.raise_exception;
319: end if;
320: return;
321: end LOCK_ROW;
322:
346: X_LAST_UPDATE_LOGIN := -1;
347: end if;
348: else
349: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
350: app_exception.raise_exception;
351: end if;
352:
353: Before_DML (
354: p_action => 'UPDATE',