[Home] [Help]
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;
36: Close cur_old_ref_values;
37: -- Populate New Values.
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;
74: -- Validate SYSTEM ENCUMBRANCE EFFECT TYPE.
75: IF p_inserting OR
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;
85: END BeforeRowInsertUpdateDelete1;
86: PROCEDURE Check_Constraints (
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;
109:
110: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
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;
119: END Check_Constraints;
120: PROCEDURE Check_Parent_Existance AS
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;
135: IF (((old_references.s_encmb_effect_type = new_references.s_encmb_effect_type)) OR
136: ((new_references.s_encmb_effect_type IS NULL))) THEN
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;
148: END Check_Parent_Existance;
149:
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;
168: Close cur_rowid;
169: END GET_FK_IGS_FI_ENCMB_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;
233: Check_Parent_Existance;
234: ELSIF (p_action = 'UPDATE') THEN
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;
252: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
253: Check_Constraints;
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 (
291: p_action => 'INSERT',
292: x_rowid => x_rowid,
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;
351: close c1;
352: if ( ((tlinfo.COMMENTS = X_COMMENTS)
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;
363: end LOCK_ROW;
364: procedure UPDATE_ROW (
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 (
394: p_action => 'UPDATE',
395: x_rowid => x_rowid,