[Home] [Help]
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;
41: Close cur_old_ref_values;
73:
74: IF Upper(Column_Name)='S_RULE_CALL_CD' OR Column_Name IS NULL Then
75: IF New_References.S_Rule_Call_Cd <> UPPER(New_References.S_Rule_Call_Cd) Then
76: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
77: IGS_GE_MSG_STACK.ADD;
78: App_Exception.Raise_Exception;
79: END IF;
80: END IF;
81:
81:
82: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
83: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
84: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
85: IGS_GE_MSG_STACK.ADD;
86: App_Exception.Raise_Exception;
87: END IF;
88: END IF;
89:
98: ELSE
99: IF NOT IGS_RU_CALL_PKG.Get_PK_For_Validation (
100: new_references.s_rule_call_cd) THEN
101: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105:
106:
112: ELSE
113: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
114: new_references.unit_cd) THEN
115: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119:
120:
126: ELSE
127: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
128: new_references.rul_sequence_number) THEN
129: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
130: IGS_GE_MSG_STACK.ADD;
131: App_Exception.Raise_Exception;
132: END IF;
133:
134:
181: Fetch cur_rowid INTO lv_rowid;
182: IF (cur_rowid%FOUND) THEN
183: Close cur_rowid;
184: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UR_SRC_FK');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: Return;
188: END IF;
189: Close cur_rowid;
207: Fetch cur_rowid INTO lv_rowid;
208: IF (cur_rowid%FOUND) THEN
209: Close cur_rowid;
210: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UR_UN_FK');
211: IGS_GE_MSG_STACK.ADD;
212: App_Exception.Raise_Exception;
213: Return;
214: END IF;
215: Close cur_rowid;
233: Fetch cur_rowid INTO lv_rowid;
234: IF (cur_rowid%FOUND) THEN
235: Close cur_rowid;
236: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UR_RUL_FK');
237: IGS_GE_MSG_STACK.ADD;
238: App_Exception.Raise_Exception;
239: Return;
240: END IF;
241: Close cur_rowid;
273: -- Call all the procedures related to Before Insert.
274: IF Get_PK_For_Validation (New_References.unit_cd,
275: New_References.s_rule_call_cd) THEN
276: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
277: IGS_GE_MSG_STACK.ADD;
278: App_Exception.Raise_Exception;
279: END IF;
280: Check_Constraints;
281: Check_Parent_Existance;
288: ELSIF (p_action = 'VALIDATE_INSERT') THEN
289: IF Get_PK_For_Validation (New_References.unit_cd,
290: New_References.s_rule_call_cd) THEN
291: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
292: IGS_GE_MSG_STACK.ADD;
293: App_Exception.Raise_Exception;
294: END IF;
295: Check_Constraints;
296: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
339: X_LAST_UPDATE_LOGIN := -1;
340: end if;
341: else
342: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
343: IGS_GE_MSG_STACK.ADD;
344: app_exception.raise_exception;
345: end if;
346:
347: Before_DML(
408: fetch c1 into tlinfo;
409: if (c1%notfound) then
410: close c1;
411: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
412: IGS_GE_MSG_STACK.ADD;
413: app_exception.raise_exception;
414: return;
415: end if;
416: close c1;
419: ) then
420: null;
421: else
422: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
423: IGS_GE_MSG_STACK.ADD;
424: app_exception.raise_exception;
425: end if;
426: return;
427: end LOCK_ROW;
451: X_LAST_UPDATE_LOGIN := -1;
452: end if;
453: else
454: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
455: IGS_GE_MSG_STACK.ADD;
456: app_exception.raise_exception;
457: end if;
458:
459: Before_DML(