47: Open cur_old_ref_values;
48: Fetch cur_old_ref_values INTO old_references;
49: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
50: Close cur_old_ref_values;
51: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
52: IGS_GE_MSG_STACK.ADD;
53: App_Exception.Raise_Exception;
54: Return;
55: END IF;
111: -- The following code checks for check constraints on the Columns.
112: IF Upper(Column_Name) = 'UNIT_FLAG' OR
113: Column_Name IS NULL THEN
114: IF NOT (new_references.unit_flag IN ('Y', 'N')) THEN
115: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119: END IF;
121: -- The following code checks for check constraints on the Columns.
122: IF Upper(Column_Name) = 'CLOSE_IND' OR
123: Column_Name IS NULL THEN
124: IF NOT (new_references.close_ind IN ('Y', 'N')) THEN
125: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129: END IF;
131: -- The following code checks for check constraints on the Columns.
132: IF Upper(Column_Name) = 'INST_FLAG' OR
133: Column_Name IS NULL THEN
134: IF NOT (new_references.inst_flag IN ('Y', 'N')) THEN
135: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
252: -- Call all the procedures related to Before Insert.
253: Null;
254: IF Get_Pk_For_Validation(
255: new_references.org_alternate_id_type) THEN
256: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: END IF;
260: Check_Constraints;
269: ELSIF (p_action = 'VALIDATE_INSERT') THEN
270: -- Call all the procedures related to Before Insert.
271: IF Get_PK_For_Validation (
272: new_references.org_alternate_id_type) THEN
273: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
274: IGS_GE_MSG_STACK.ADD;
275: App_Exception.Raise_Exception;
276: END IF;
277: Check_Constraints;
357: if X_LAST_UPDATE_LOGIN is NULL then
358: X_LAST_UPDATE_LOGIN := -1;
359: end if;
360: else
361: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
362: IGS_GE_MSG_STACK.ADD;
363: app_exception.raise_exception;
364: end if;
365: Before_DML(
448: begin
449: open c1;
450: fetch c1 into tlinfo;
451: if (c1%notfound) then
452: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
453: IGS_GE_MSG_STACK.ADD;
454: close c1;
455: app_exception.raise_exception;
456: return;
477: AND (X_PREF_UNIT_IND is null)))
478: ) then
479: null;
480: else
481: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
482: IGS_GE_MSG_STACK.ADD;
483: app_exception.raise_exception;
484: end if;
485: return;
525: if X_LAST_UPDATE_LOGIN is NULL then
526: X_LAST_UPDATE_LOGIN := -1;
527: end if;
528: else
529: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
530: IGS_GE_MSG_STACK.ADD;
531: app_exception.raise_exception;
532: end if;
533: Before_DML(