[Home] [Help]
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: Close cur_old_ref_values;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
82: old_references.s_rule_call_cd,
83: new_references.s_rule_call_cd,
84: v_message_name) = FALSE THEN
85: Fnd_Message.Set_Name('IGS',v_message_name);
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception;
88: END IF;
89: END IF;
90: -- Validate the system IGS_RU_RULE call code
93: IF IGS_PR_VAL_PRGC.prgp_val_src_prg (
94: new_references.s_rule_call_cd,
95: v_message_name) = FALSE THEN
96: Fnd_Message.Set_Name('IGS',v_message_name);
97: IGS_GE_MSG_STACK.ADD;
98: App_Exception.Raise_Exception;
99: END IF;
100: END IF;
101:
111: IF NOT IGS_RU_CALL_PKG.Get_PK_For_Validation (
112: new_references.s_rule_call_cd
113: ) THEN
114: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
115: IGS_GE_MSG_STACK.ADD;
116: App_Exception.Raise_Exception;
117:
118: END IF;
119:
176: Open cur_rowid;
177: Fetch cur_rowid INTO lv_rowid;
178: IF (cur_rowid%FOUND) THEN
179: Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRGC_SRC_FK');
180: IGS_GE_MSG_STACK.ADD;
181: Close cur_rowid;
182: App_Exception.Raise_Exception;
183: Return;
184: END IF;
226: Check_Parent_Existance;
227: IF GET_PK_FOR_VALIDATION(
228: new_references.progression_rule_cat) THEN
229: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
230: IGS_GE_MSG_STACK.ADD;
231: App_Exception.Raise_Exception;
232:
233: END IF;
234: CHECK_CONSTRAINTS;
244: ELSIF (p_action = 'VALIDATE_INSERT') THEN
245: IF GET_PK_FOR_VALIDATION(
246: new_references.progression_rule_cat) THEN
247: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250:
251: END IF;
252: CHECK_CONSTRAINTS;
295: X_LAST_UPDATE_LOGIN := -1;
296: end if;
297: else
298: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
299: IGS_GE_MSG_STACK.ADD;
300: app_exception.raise_exception;
301: end if;
302:
303: Before_DML (
374: open c1;
375: fetch c1 into tlinfo;
376: if (c1%notfound) then
377: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
378: IGS_GE_MSG_STACK.ADD;
379: close c1;
380: app_exception.raise_exception;
381: return;
382: end if;
393: ) then
394: null;
395: else
396: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
397: IGS_GE_MSG_STACK.ADD;
398: app_exception.raise_exception;
399: end if;
400: return;
401: end LOCK_ROW;
428: X_LAST_UPDATE_LOGIN := -1;
429: end if;
430: else
431: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
432: IGS_GE_MSG_STACK.ADD;
433: app_exception.raise_exception;
434: end if;
435:
436: Before_DML (
542: IF UPPER(column_name) = 'CLOSED_IND' OR column_name IS NULL THEN
543:
544: IF new_references.closed_ind NOT IN ('Y','N') THEN
545: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
546: IGS_GE_MSG_STACK.ADD;
547: App_Exception.Raise_Exception;
548: END IF;
549: END IF;
550:
552:
553: IF UPPER(column_name) = 'PROGRESSION_RULE_CAT' OR column_name IS NULL THEN
554: IF new_references.progression_rule_cat <> UPPER(new_references.progression_rule_cat) THEN
555: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
556: IGS_GE_MSG_STACK.ADD;
557: App_Exception.Raise_Exception;
558: END IF;
559: END IF;
560:
560:
561: IF UPPER(column_name) = 'S_RULE_CALL_CD' OR column_name IS NULL THEN
562: IF new_references.s_rule_call_cd <> UPPER(new_references.s_rule_call_cd) THEN
563: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
564: IGS_GE_MSG_STACK.ADD;
565: App_Exception.Raise_Exception;
566: END IF;
567: END IF;
568: