[Home] [Help]
27: Open cur_old_ref_values;
28: Fetch cur_old_ref_values INTO old_references;
29: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
30: Close cur_old_ref_values;
31: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
32: IGS_GE_MSG_STACK.ADD;
33: App_Exception.Raise_Exception;
34: Return;
35: END IF;
65: IF p_inserting OR p_updating THEN
66: IF IGS_EN_VAL_ETDE.enrp_val_et_closed (
67: new_references.encumbrance_type,
68: v_message_name) = FALSE THEN
69: Fnd_Message.Set_Name('IGS',v_message_name);
70: IGS_GE_MSG_STACK.ADD;
71: App_Exception.Raise_Exception;
72: END IF;
73: END IF;
76: (p_updating AND (old_references.s_encmb_effect_type <> new_references.s_encmb_effect_type)) THEN
77: IF IGS_EN_VAL_ETDE.enrp_val_seet_closed (
78: new_references.s_encmb_effect_type,
79: v_message_name) = FALSE THEN
80: Fnd_Message.Set_Name('IGS',v_message_name);
81: IGS_GE_MSG_STACK.ADD;
82: App_Exception.Raise_Exception;
83: END IF;
84: END IF;
100: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
101: column_name is null Then
102: IF new_references.ENCUMBRANCE_TYPE <>
103: UPPER(new_references.ENCUMBRANCE_TYPE) Then
104: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
105: IGS_GE_MSG_STACK.ADD;
106: App_Exception.Raise_Exception;
107: END IF;
108: END IF;
110: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
111: column_name is null Then
112: IF new_references.S_ENCMB_EFFECT_TYPE <>
113: UPPER(new_references.S_ENCMB_EFFECT_TYPE) Then
114: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
115: IGS_GE_MSG_STACK.ADD;
116: App_Exception.Raise_Exception;
117: END IF;
118: END IF;
126: IF NOT IGS_FI_ENCMB_TYPE_PKG.Get_PK_For_Validation (
127: new_references.encumbrance_type
128: )
129: THEN
130: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
139: ELSE
140: IF NOT IGS_EN_ENCMB_EFCTTYP_Pkg.Get_PK_For_Validation (
141: new_references.s_encmb_effect_type
142: ) THEN
143: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
159: Open cur_rowid;
160: Fetch cur_rowid INTO lv_rowid;
161: IF (cur_rowid%FOUND) THEN
162: Close cur_rowid;
163: Fnd_Message.Set_Name ('IGS', 'IGS_FI_ETDE_ET_FK');
164: IGS_GE_MSG_STACK.ADD;
165: App_Exception.Raise_Exception;
166: Return;
167: END IF;
224: IF Get_PK_For_Validation (
225: new_references.encumbrance_type ,
226: new_references.s_encmb_effect_type
227: ) THEN
228: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
229: IGS_GE_MSG_STACK.ADD;
230: App_Exception.Raise_Exception;
231: END IF;
232: Check_Constraints;
243: IF Get_PK_For_Validation (
244: new_references.encumbrance_type ,
245: new_references.s_encmb_effect_type
246: ) THEN
247: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: Check_Constraints;
282: if X_LAST_UPDATE_LOGIN is NULL then
283: X_LAST_UPDATE_LOGIN := -1;
284: end if;
285: else
286: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
287: IGS_GE_MSG_STACK.ADD;
288: app_exception.raise_exception;
289: end if;
290: 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;
354: AND (X_COMMENTS is null)))
355: ) then
356: null;
357: else
358: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
359: IGS_GE_MSG_STACK.ADD;
360: app_exception.raise_exception;
361: end if;
362: return;
385: if X_LAST_UPDATE_LOGIN is NULL then
386: X_LAST_UPDATE_LOGIN := -1;
387: end if;
388: else
389: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
390: IGS_GE_MSG_STACK.ADD;
391: app_exception.raise_exception;
392: end if;
393: Before_DML (