[Home] [Help]
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;
78: column_name is NULL THEN
79: IF new_references.s_cal_status <> 'INACTIVE' AND
80: new_references.s_cal_status <> 'ACTIVE' AND
81: new_references.s_cal_status <> 'PLANNED' THEN
82: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
83: IGS_GE_MSG_STACK.ADD;
84: App_Exception.Raise_Exception;
85: END IF;
86: END IF;
86: END IF;
87: --IF upper(Column_Name) = 'CAL_STATUS' OR
88: --column_name is NULL THEN
89: --IF new_references.cal_status <> UPPER(new_references.cal_status) THEN
90: --Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
91: --IGS_GE_MSG_STACK.ADD;
92: --App_Exception.Raise_Exception;
93: --END IF;
94: --END IF;
95: IF upper(Column_Name) = 'CLOSED_IND' OR
96: column_name is NULL THEN
97: IF new_references.closed_ind <> 'Y' AND
98: new_references.closed_ind <> '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;
112: ELSIF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
113: 'CALENDAR_STATUS',
114: new_references.cal_status
115: ) THEN
116: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: END Check_Parent_Existance;
172:
173: Open cur_rowid;
174: Fetch cur_rowid INTO lv_rowid;
175: IF (cur_rowid%FOUND) THEN
176: fnd_message.set_name('IGS','IGS_CA_STAT_LKUPV_FK');
177: IGS_GE_MSG_STACK.ADD;
178: Close cur_rowid;
179: App_Exception.Raise_Exception;
180: Return;
217: -- Call all the procedures related to Before Insert.
218: Null;
219: IF Get_PK_For_Validation ( new_references.cal_status)
220: THEN
221: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
222: IGS_GE_MSG_STACK.ADD;
223: App_Exception.Raise_Exception;
224: END IF;
225: Check_Constraints;
232: ELSIF (p_action = 'VALIDATE_INSERT') THEN
233: -- Call all the procedures related to Before Insert.
234: IF Get_PK_For_Validation ( new_references.cal_status)
235: THEN
236: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
237: IGS_GE_MSG_STACK.ADD;
238: App_Exception.Raise_Exception;
239: END IF;
240: Check_Constraints;
273: if X_LAST_UPDATE_LOGIN is NULL then
274: X_LAST_UPDATE_LOGIN := -1;
275: end if;
276: else
277: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
278: IGS_GE_MSG_STACK.ADD;
279: app_exception.raise_exception;
280: end if;
281: Before_DML (
342: open c1;
343: fetch c1 into tlinfo;
344: if (c1%notfound) then
345: close c1;
346: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
347: IGS_GE_MSG_STACK.ADD;
348: app_exception.raise_exception;
349: return;
350: end if;
355: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
356: ) then
357: null;
358: else
359: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
360: IGS_GE_MSG_STACK.ADD;
361: app_exception.raise_exception;
362: end if;
363: return;
388: if X_LAST_UPDATE_LOGIN is NULL then
389: X_LAST_UPDATE_LOGIN := -1;
390: end if;
391: else
392: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
393: IGS_GE_MSG_STACK.ADD;
394: app_exception.raise_exception;
395: end if;
396: Before_DML (