[Home] [Help]
42: -- Populate Old Values.
43: Open cur_old_ref_values;
44: Fetch cur_old_ref_values INTO old_references;
45: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_GE_MSG_STACK.ADD;
48: App_Exception.Raise_Exception;
49: Close cur_old_ref_values;
50: Return;
177: if Get_PK_For_Validation (
178: new_references.institution_cd,
179: new_references.hist_start_dt
180: ) then
181: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
182: IGS_GE_MSG_STACK.ADD;
183: App_Exception.Raise_Exception;
184: end if;
185: Check_Constraints ;
193: if Get_PK_For_Validation (
194: new_references.institution_cd,
195: new_references.hist_start_dt
196: ) then
197: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
198: IGS_GE_MSG_STACK.ADD;
199: App_Exception.Raise_Exception;
200: end if;
201: Check_Constraints ;
262: if X_LAST_UPDATE_LOGIN is NULL then
263: X_LAST_UPDATE_LOGIN := -1;
264: end if;
265: else
266: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
267: IGS_GE_MSG_STACK.ADD;
268: app_exception.raise_exception;
269: end if;
270: Before_DML(
415: begin
416: open c1;
417: fetch c1 into tlinfo;
418: if (c1%notfound) then
419: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
420: app_exception.raise_exception;
421: close c1;
422: return;
423: end if;
466:
467: ) then
468: null;
469: else
470: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
471: app_exception.raise_exception;
472: end if;
473: return;
474: end LOCK_ROW;
513: if X_LAST_UPDATE_LOGIN is NULL then
514: X_LAST_UPDATE_LOGIN := -1;
515: end if;
516: else
517: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
518: IGS_GE_MSG_STACK.ADD;
519: app_exception.raise_exception;
520: end if;
521: Before_DML(
716: -- bug: 2425349 Removed the code that checked the institution_cd and hist_who
717:
718: IF upper(Column_name) = 'INSTITUTION_STATUS' OR COLUMN_NAME IS NULL THEN
719: IF new_references.INSTITUTION_STATUS<> upper(new_references.INSTITUTION_STATUS) then
720: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
721: IGS_GE_MSG_STACK.ADD;
722: App_Exception.Raise_Exception ;
723: END IF;
724: END IF ;
723: END IF;
724: END IF ;
725: IF upper(Column_name) = 'LOCAL_INSTITUTION_IND' OR COLUMN_NAME IS NULL THEN
726: IF new_references.LOCAL_INSTITUTION_IND<> upper(new_references.LOCAL_INSTITUTION_IND) then
727: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
728: IGS_GE_MSG_STACK.ADD;
729: App_Exception.Raise_Exception ;
730: END IF;
731: IF new_references.LOCAL_INSTITUTION_IND not in ('Y','N') then
728: IGS_GE_MSG_STACK.ADD;
729: App_Exception.Raise_Exception ;
730: END IF;
731: IF new_references.LOCAL_INSTITUTION_IND not in ('Y','N') then
732: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
733: IGS_GE_MSG_STACK.ADD;
734: App_Exception.Raise_Exception ;
735: END IF;
736: END IF ;
735: END IF;
736: END IF ;
737: IF upper(Column_name) = 'OS_IND' OR COLUMN_NAME IS NULL THEN
738: IF new_references.OS_IND<> upper(new_references.OS_IND) then
739: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
740: IGS_GE_MSG_STACK.ADD;
741: App_Exception.Raise_Exception ;
742: END IF;
743: IF new_references.OS_IND not in ('Y','N') then
740: IGS_GE_MSG_STACK.ADD;
741: App_Exception.Raise_Exception ;
742: END IF;
743: IF new_references.OS_IND not in ('Y','N') then
744: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
745: IGS_GE_MSG_STACK.ADD;
746: App_Exception.Raise_Exception ;
747: END IF;
748: END IF ;