[Home] [Help]
46: Fetch cur_old_ref_values INTO old_references;
47: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
48: Close cur_old_ref_values;
49: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
50: IGS_GE_MSG_STACK.ADD;
51: App_Exception.Raise_Exception;
52: Return;
53: END IF;
54: Close cur_old_ref_values;
105: Column_Name IS NULL THEN
106: IF NOT (new_references.years_of_study <= 10
107: AND new_references.years_of_study > 0) THEN
108: Fnd_Message.Set_Name('IGS','IGS_AD_YOS');
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111: END IF;
112: END IF;
113:
115: IF Upper(Column_Name) = 'HONORS' OR
116: Column_Name IS NULL THEN
117: IF NOT (new_references.honors IN ('Y','N')) THEN
118: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
119: IGS_GE_MSG_STACK.ADD;
120: App_Exception.Raise_Exception;
121: END IF;
122: END IF;
123:
141: new_references.person_id
142: ,new_references.subject_id
143: ) THEN
144: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
145: IGS_GE_MSG_STACK.ADD;
146: app_exception.raise_exception;
147: END IF;
148: END Check_Uniqueness ;
149: PROCEDURE Check_Parent_Existance AS
168: 'SUBJECT_OF_STUDY',
169: 'N'
170: ) THEN
171: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
172: IGS_GE_MSG_STACK.ADD;
173: App_Exception.Raise_Exception;
174: END IF;
175:
176: IF (((old_references.person_id = new_references.person_id)) OR
179: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
180: new_references.person_id
181: ) THEN
182: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
183: IGS_GE_MSG_STACK.ADD;
184: App_Exception.Raise_Exception;
185: END IF;
186:
187: END Check_Parent_Existance;
287: Fetch cur_rowid INTO lv_rowid;
288: IF (cur_rowid%FOUND) THEN
289: Close cur_rowid;
290: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APH_ACDC_FK');
291: IGS_GE_MSG_STACK.ADD;
292: App_Exception.Raise_Exception;
293: Return;
294: END IF;
295: Close cur_rowid;
324: Fetch cur_rowid INTO lv_rowid;
325: IF (cur_rowid%FOUND) THEN
326: Close cur_rowid;
327: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APH_PE_FK');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: Return;
331: END IF;
332: Close cur_rowid;
382: Null;
383: IF Get_Pk_For_Validation(
384: new_references.past_history_id) THEN
385: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
386: IGS_GE_MSG_STACK.ADD;
387: App_Exception.Raise_Exception;
388: END IF;
389: Check_Uniqueness;
390: Check_Constraints;
402: -- Call all the procedures related to Before Insert.
403: IF Get_PK_For_Validation (
404: new_references.past_history_id) THEN
405: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
406: IGS_GE_MSG_STACK.ADD;
407: App_Exception.Raise_Exception;
408: END IF;
409: Check_Uniqueness;
410: Check_Constraints;
494: X_LAST_UPDATE_LOGIN := -1;
495: end if;
496: else
497: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
498: IGS_GE_MSG_STACK.ADD;
499: app_exception.raise_exception;
500: end if;
501:
502: X_PAST_HISTORY_ID := -1;
584: open c1;
585: fetch c1 into tlinfo;
586: if (c1%notfound) then
587: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
588: IGS_GE_MSG_STACK.ADD;
589: close c1;
590: app_exception.raise_exception;
591: return;
592: end if;
600: ) then
601: null;
602: else
603: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
604: IGS_GE_MSG_STACK.ADD;
605: app_exception.raise_exception;
606: end if;
607: return;
608: end LOCK_ROW;
644: X_LAST_UPDATE_LOGIN := -1;
645: end if;
646: else
647: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
648: IGS_GE_MSG_STACK.ADD;
649: app_exception.raise_exception;
650: end if;
651: Before_DML(
652: p_action=>'UPDATE',