[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;
70: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl(
71: new_references.unit_cd,
72: new_references.version_number,
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: ELSE
79: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl(
80: old_references.unit_cd,
81: old_references.version_number,
82: v_message_name) = FALSE THEN
83: Fnd_Message.Set_Name('IGS',v_message_name);
84: IGS_GE_MSG_STACK.ADD;
85: App_Exception.Raise_Exception;
86: END IF;
87: END IF;
95: new_references.s_rule_call_cd,
96: 'UNIT',
97: new_references.rul_sequence_number,
98: v_message_name) = FALSE THEN
99: Fnd_Message.Set_Name('IGS',v_message_name);
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END IF;
119: END IF;
120:
121: IF Upper(Column_Name)='S_RULE_CALL_CD' OR Column_Name IS NULL Then
122: IF New_References.s_rule_call_cd <> UPPER(New_References.s_rule_call_cd) Then
123: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: END IF;
127: END IF;
128:
129: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
130: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
131: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
144: NULL;
145: ELSE
146: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
147: new_references.rul_sequence_number) THEN
148: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
149: IGS_GE_MSG_STACK.ADD;
150: App_Exception.Raise_Exception;
151: END IF;
152:
158: NULL;
159: ELSE
160: IF NOT IGS_RU_CALL_PKG.Get_PK_For_Validation (
161: new_references.s_rule_call_cd) THEN
162: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
163: IGS_GE_MSG_STACK.ADD;
164: App_Exception.Raise_Exception;
165: END IF;
166:
175: ELSE
176: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
177: new_references.unit_cd,
178: new_references.version_number) THEN
179: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: END IF;
183:
232: Open 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_UVR_RUL_FK');
237: IGS_GE_MSG_STACK.ADD;
238: App_Exception.Raise_Exception;
239: Return;
240: END IF;
258: Open cur_rowid;
259: Fetch cur_rowid INTO lv_rowid;
260: IF (cur_rowid%FOUND) THEN
261: Close cur_rowid;
262: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UVR_SRC_FK');
263: IGS_GE_MSG_STACK.ADD;
264: App_Exception.Raise_Exception;
265: Return;
266: END IF;
286: Open cur_rowid;
287: Fetch cur_rowid INTO lv_rowid;
288: IF (cur_rowid%FOUND) THEN
289: Close cur_rowid;
290: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UVR_UV_FK');
291: IGS_GE_MSG_STACK.ADD;
292: App_Exception.Raise_Exception;
293: Return;
294: END IF;
330: BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
331: IF Get_PK_For_Validation (New_References.unit_cd,
332: New_References.version_number,
333: New_References.s_rule_call_cd) THEN
334: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
335: IGS_GE_MSG_STACK.ADD;
336: App_Exception.Raise_Exception;
337: END IF;
338: Check_Constraints;
348: ELSIF (p_action = 'VALIDATE_INSERT') THEN
349: IF Get_PK_For_Validation (New_References.unit_cd,
350: New_References.version_number,
351: New_References.s_rule_call_cd) THEN
352: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
353: IGS_GE_MSG_STACK.ADD;
354: App_Exception.Raise_Exception;
355: END IF;
356: Check_Constraints;
401: if X_LAST_UPDATE_LOGIN is NULL then
402: X_LAST_UPDATE_LOGIN := -1;
403: end if;
404: else
405: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
406: IGS_GE_MSG_STACK.ADD;
407: app_exception.raise_exception;
408: end if;
409:
474: open c1;
475: fetch c1 into tlinfo;
476: if (c1%notfound) then
477: close c1;
478: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
479: IGS_GE_MSG_STACK.ADD;
480: app_exception.raise_exception;
481: return;
482: end if;
485: if ( (tlinfo.RUL_SEQUENCE_NUMBER = X_RUL_SEQUENCE_NUMBER)
486: ) then
487: null;
488: else
489: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
490: IGS_GE_MSG_STACK.ADD;
491: app_exception.raise_exception;
492: end if;
493: return;
518: if X_LAST_UPDATE_LOGIN is NULL then
519: X_LAST_UPDATE_LOGIN := -1;
520: end if;
521: else
522: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
523: IGS_GE_MSG_STACK.ADD;
524: app_exception.raise_exception;
525: end if;
526: