32: Open cur_old_ref_values;
33: Fetch cur_old_ref_values INTO old_references;
34: IF (cur_old_ref_values%NOTFOUND) AND p_action NOT IN ('INSERT','VALIDATE_INSERT') THEN
35: Close cur_old_ref_values;
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: App_Exception.Raise_Exception;
39: Return;
40: END IF;
70: IF IGS_AD_VAL_TAC.admp_val_tac_upd(
71: new_references.tac_admission_cd,
72: new_references.closed_ind,
73: v_message_name) = FALSE THEN
74: Fnd_Message.Set_Name('IGS', v_message_name);
75: IGS_GE_MSG_STACK.ADD;
76: App_Exception.Raise_Exception;
77: END IF;
78: END IF;
95: END IF;
96:
97: IF upper(Column_Name) = 'CLOSED_IND' OR Column_Name IS NULL THEN
98: IF new_references.closed_ind NOT IN ('Y','N') THEN
99: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END IF;
102: END IF;
103: END IF;
104: IF upper(Column_Name) = 'TAC_ADMISSION_CD' OR Column_Name IS NULL THEN
105: IF new_references.tac_admission_cd <> UPPER(new_references.tac_admission_cd) THEN
106: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
177: -- Call all the procedures related to Before Insert.
178: IF Get_PK_For_Validation (
179: new_references.tac_admission_cd
180: ) THEN
181: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
182: IGS_GE_MSG_STACK.ADD;
183: App_Exception.Raise_Exception;
184: END IF;
185: Check_Constraints;
192: ELSIF (p_action = 'VALIDATE_INSERT') THEN
193: IF Get_PK_For_Validation (
194: new_references.tac_admission_cd
195: ) THEN
196: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
197: IGS_GE_MSG_STACK.ADD;
198: App_Exception.Raise_Exception;
199: END IF;
200: Check_Constraints;
240: if X_LAST_UPDATE_LOGIN is NULL then
241: X_LAST_UPDATE_LOGIN := -1;
242: end if;
243: else
244: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
245: IGS_GE_MSG_STACK.ADD;
246: app_exception.raise_exception;
247: end if;
248:
310: open c1;
311: fetch c1 into tlinfo;
312: if (c1%notfound) then
313: close c1;
314: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
315: IGS_GE_MSG_STACK.ADD;
316: app_exception.raise_exception;
317: return;
318: end if;
322: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
323: ) then
324: null;
325: else
326: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
327: IGS_GE_MSG_STACK.ADD;
328: app_exception.raise_exception;
329: end if;
330: return;
354: if X_LAST_UPDATE_LOGIN is NULL then
355: X_LAST_UPDATE_LOGIN := -1;
356: end if;
357: else
358: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
359: IGS_GE_MSG_STACK.ADD;
360: app_exception.raise_exception;
361: end if;
362: Before_DML (