[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;
77: IF IGS_PS_VAL_COUSR.crsp_val_iud_us_dtl(
78: new_references.unit_set_cd,
79: new_references.version_number,
80: v_message_name) = FALSE THEN
81: Fnd_Message.Set_Name('IGS', v_message_name);
82: IGS_GE_MSG_STACK.ADD;
83: App_Exception.Raise_Exception;
84: END IF;
85: ELSE
86: IF IGS_PS_VAL_COUSR.crsp_val_iud_us_dtl(
87: old_references.unit_set_cd,
88: old_references.version_number,
89: v_message_name) = FALSE THEN
90: Fnd_Message.Set_Name('IGS', v_message_name);
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
94: END IF;
102: new_references.s_rule_call_cd,
103: 'USET',
104: new_references.rul_sequence_number,
105: v_message_name) = FALSE THEN
106: Fnd_Message.Set_Name('IGS', v_message_name);
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
133:
134: IF upper(column_name) = 'S_RULE_CALL_CD' OR
135: Column_name is null THEN
136: IF new_references.s_rule_call_cd <> UPPER(new_references.s_rule_call_cd) THEN
137: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141: END IF;
142:
143: IF upper(column_name) = 'RUL_SEQUENCE_NUMBER' OR
144: Column_name is null THEN
145: IF new_references.rul_sequence_number NOT BETWEEN 0 AND 999999 THEN
146: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150: END IF;
151:
152: IF upper(column_name) = 'UNIT_SET_CD' OR
153: Column_name is null THEN
154: IF new_references.unit_set_cd <> UPPER(new_references.unit_set_cd) THEN
155: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
156: IGS_GE_MSG_STACK.ADD;
157: App_Exception.Raise_Exception;
158: END IF;
159: END IF;
169: ELSE
170: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
171: new_references.rul_sequence_number
172: )Then
173: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
174: IGS_GE_MSG_STACK.ADD;
175: App_Exception.Raise_Exception;
176: END IF ;
177: END IF;
182: ELSE
183: IF NOT IGS_RU_CALL_PKG.Get_PK_For_Validation (
184: new_references.s_rule_call_cd
185: )Then
186: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF ;
190: END IF;
198: IF NOT IGS_EN_UNIT_SET_PKG.Get_PK_For_Validation (
199: new_references.unit_set_cd,
200: new_references.version_number
201: )Then
202: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
203: IGS_GE_MSG_STACK.ADD;
204: App_Exception.Raise_Exception;
205: END IF ;
206: END IF;
253: Open cur_rowid;
254: Fetch cur_rowid INTO lv_rowid;
255: IF (cur_rowid%FOUND) THEN
256: Close cur_rowid;
257: Fnd_Message.Set_Name ('IGS', 'IGS_EN_USR_RUL_FK');
258: IGS_GE_MSG_STACK.ADD;
259: App_Exception.Raise_Exception;
260: Return;
261: END IF;
279: Open cur_rowid;
280: Fetch cur_rowid INTO lv_rowid;
281: IF (cur_rowid%FOUND) THEN
282: Close cur_rowid;
283: Fnd_Message.Set_Name ('IGS', 'IGS_EN_USR_SRC_FK');
284: IGS_GE_MSG_STACK.ADD;
285: App_Exception.Raise_Exception;
286: Return;
287: END IF;
307: Open cur_rowid;
308: Fetch cur_rowid INTO lv_rowid;
309: IF (cur_rowid%FOUND) THEN
310: Close cur_rowid;
311: Fnd_Message.Set_Name ('IGS', 'IGS_EN_USR_US_FK');
312: IGS_GE_MSG_STACK.ADD;
313: App_Exception.Raise_Exception;
314: Return;
315: END IF;
353: new_references.unit_set_cd ,
354: new_references.version_number ,
355: new_references.s_rule_call_cd
356: ) THEN
357: FND_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
358: IGS_GE_MSG_STACK.ADD;
359: App_Exception.Raise_Exception;
360: END if;
361: Check_constraints;
373: new_references.unit_set_cd ,
374: new_references.version_number ,
375: new_references.s_rule_call_cd
376: ) THEN
377: FND_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
378: IGS_GE_MSG_STACK.ADD;
379: App_Exception.Raise_Exception;
380: END if;
381: Check_constraints;
437: if X_LAST_UPDATE_LOGIN is NULL then
438: X_LAST_UPDATE_LOGIN := -1;
439: end if;
440: else
441: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
442: IGS_GE_MSG_STACK.ADD;
443: app_exception.raise_exception;
444: end if;
445: Before_DML (
508: open c1;
509: fetch c1 into tlinfo;
510: if (c1%notfound) then
511: close c1;
512: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
513: IGS_GE_MSG_STACK.ADD;
514: app_exception.raise_exception;
515: return;
516: end if;
519: if ( (tlinfo.RUL_SEQUENCE_NUMBER = X_RUL_SEQUENCE_NUMBER)
520: ) then
521: null;
522: else
523: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
524: IGS_GE_MSG_STACK.ADD;
525: app_exception.raise_exception;
526: end if;
527: return;
552: if X_LAST_UPDATE_LOGIN is NULL then
553: X_LAST_UPDATE_LOGIN := -1;
554: end if;
555: else
556: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
557: IGS_GE_MSG_STACK.ADD;
558: app_exception.raise_exception;
559: end if;
560: Before_DML (