71: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
72: Close cur_old_ref_values;
73: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
74: IGS_GE_MSG_STACK.ADD;
75: App_Exception.Raise_Exception;
76: Return;
77: END IF;
78: Close cur_old_ref_values;
79:
129: new_references.institution_cd,
130: v_message_name) = FALSE THEN
131: Fnd_Message.Set_Name('IGS', v_message_name);
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
136: END BeforeRowInsertUpdate1;
137:
175: Column_Name IS NULL THEN
176: IF NOT (new_references.preferred_ind IN ('Y', 'N')) THEN
177: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
178: IGS_GE_MSG_STACK.ADD;
179: App_Exception.Raise_Exception;
180: END IF;
181: END IF;
182:
183: -- The following code checks for check constraints on the Columns.
185: Column_Name IS NULL THEN
186: IF NOT (new_references.unique_ind IN ('N', 'Y')) THEN
187: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
188: IGS_GE_MSG_STACK.ADD;
189: App_Exception.Raise_Exception;
190: END IF;
191: END IF;
192:
193:
195: Column_Name IS NULL THEN
196: IF NOT (new_references.region_ind IN ('N', 'Y')) THEN
197: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
198: IGS_GE_MSG_STACK.ADD;
199: App_Exception.Raise_Exception;
200: END IF;
201: END IF;
202:
203: IF UPPER(Column_Name) = 'PERSON_ID_TYPE' OR
204: Column_Name IS NULL THEN
205: IF new_references.PERSON_ID_TYPE <> UPPER(new_references.person_id_type) THEN
206: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
207: IGS_GE_MSG_STACK.ADD;
208: App_Exception.Raise_Exception;
209: END IF;
210: END IF;
211:
212: IF UPPER(Column_Name) = 'S_PERSON_ID_TYPE' OR
213: Column_Name IS NULL THEN
214: IF new_references.S_PERSON_ID_TYPE <> UPPER(new_references.s_person_id_type) THEN
215: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
216: IGS_GE_MSG_STACK.ADD;
217: App_Exception.Raise_Exception;
218: END IF;
219: END IF;
220:
221:
245: new_references.institution_cd) THEN
246: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
247: IGS_GE_MSG_STACK.ADD;
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: END IF;
252: IF (((old_references.s_person_id_type = new_references.s_person_id_type)) OR
253: ((new_references.s_person_id_type IS NULL))) THEN
256: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
257: 'PERSON_ID_TYPE',new_references.s_person_id_type) THEN
258: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
259: IGS_GE_MSG_STACK.ADD;
260: App_Exception.Raise_Exception;
261: END IF;
262:
263: END IF;
264: END Check_Parent_Existance;
364: IF (cur_rowid%FOUND) THEN
365: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PIT_INS_FK');
366: IGS_GE_MSG_STACK.ADD;
367: Close cur_rowid;
368: App_Exception.Raise_Exception;
369: Return;
370: END IF;
371: Close cur_rowid;
372: END GET_FK_IGS_OR_INSTITUTION;
447: IF Get_PK_For_Validation (
448: new_references.person_id_type ) THEN
449: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
450: IGS_GE_MSG_STACK.ADD;
451: App_Exception.Raise_Exception;
452: END IF;
453:
454: Check_Constraints; -- if procedure present
455: Check_Parent_Existance; -- if procedure present
466: IF Get_PK_For_Validation (
467: new_references.person_id_type ) THEN
468: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
469: IGS_GE_MSG_STACK.ADD;
470: App_Exception.Raise_Exception;
471: END IF;
472:
473: Check_Constraints; -- if procedure present
474:
552: end if;
553: else
554: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
555: IGS_GE_MSG_STACK.ADD;
556: app_exception.raise_exception;
557: end if;
558: Before_DML(
559: p_action=>'INSERT',
560: x_rowid=>X_ROWID,
655: if (c1%notfound) then
656: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
657: IGS_GE_MSG_STACK.ADD;
658: close c1;
659: app_exception.raise_exception;
660: return;
661: end if;
662: close c1;
663: if ( (tlinfo.DESCRIPTION = X_DESCRIPTION)
687: null;
688: else
689: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
690: IGS_GE_MSG_STACK.ADD;
691: app_exception.raise_exception;
692: end if;
693: return;
694: end LOCK_ROW;
695:
736: end if;
737: else
738: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
739: IGS_GE_MSG_STACK.ADD;
740: app_exception.raise_exception;
741: end if;
742: Before_DML(
743: p_action=>'UPDATE',
744: x_rowid=>X_ROWID,