28: -- Populate Old Values.
29: Open cur_old_ref_values;
30: Fetch cur_old_ref_values INTO old_references;
31: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
32: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
33: IGS_GE_MSG_STACK.ADD;
34: App_Exception.Raise_Exception;
35: Close cur_old_ref_values;
36: Return;
113:
114: IF Get_PK_For_Validation (
115: new_references.institution_status
116: ) then
117: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121:
135: if Get_PK_For_Validation (
136: new_references.institution_status
137: ) then
138:
139: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: end if;
143:
190: if X_LAST_UPDATE_LOGIN is NULL then
191: X_LAST_UPDATE_LOGIN := -1;
192: end if;
193: else
194: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
195: app_exception.raise_exception;
196: end if;
197: Before_DML(
198: p_action=>'INSERT',
259: begin
260: open c1;
261: fetch c1 into tlinfo;
262: if (c1%notfound) then
263: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
264: app_exception.raise_exception;
265: close c1;
266: return;
267: end if;
271: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
272: ) then
273: null;
274: else
275: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
276: app_exception.raise_exception;
277: end if;
278: return;
279: end LOCK_ROW;
303: if X_LAST_UPDATE_LOGIN is NULL then
304: X_LAST_UPDATE_LOGIN := -1;
305: end if;
306: else
307: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
308: app_exception.raise_exception;
309: end if;
310: Before_DML(
311: p_action=>'UPDATE',
406: new_references.S_INSTITUTION_STATUS:= COLUMN_VALUE ;
407: END IF ;
408: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
409: IF new_references.CLOSED_IND<> upper(new_references.CLOSED_IND) then
410: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
411: IGS_GE_MSG_STACK.ADD;
412: App_Exception.Raise_Exception ;
413: END IF;
414: IF new_references.CLOSED_IND not in ('Y','N') then
411: IGS_GE_MSG_STACK.ADD;
412: App_Exception.Raise_Exception ;
413: END IF;
414: IF new_references.CLOSED_IND not in ('Y','N') then
415: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
416: IGS_GE_MSG_STACK.ADD;
417: App_Exception.Raise_Exception ;
418: END IF;
419: END IF ;
418: END IF;
419: END IF ;
420: IF upper(Column_name) = 'INSTITUTION_STATUS' OR COLUMN_NAME IS NULL THEN
421: IF new_references.INSTITUTION_STATUS<> upper(new_references.INSTITUTION_STATUS) then
422: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
423: IGS_GE_MSG_STACK.ADD;
424: App_Exception.Raise_Exception ;
425: END IF;
426: END IF ;
425: END IF;
426: END IF ;
427: IF upper(Column_name) = 'S_INSTITUTION_STATUS' OR COLUMN_NAME IS NULL THEN
428: IF new_references.S_INSTITUTION_STATUS<> upper(new_references.S_INSTITUTION_STATUS) then
429: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
430: IGS_GE_MSG_STACK.ADD;
431: App_Exception.Raise_Exception ;
432: END IF;
433: IF new_references.S_INSTITUTION_STATUS NOT IN ( 'INACTIVE' , 'ACTIVE' ) then
430: IGS_GE_MSG_STACK.ADD;
431: App_Exception.Raise_Exception ;
432: END IF;
433: IF new_references.S_INSTITUTION_STATUS NOT IN ( 'INACTIVE' , 'ACTIVE' ) then
434: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
435: IGS_GE_MSG_STACK.ADD;
436: App_Exception.Raise_Exception ;
437: END IF;
438: END IF ;