[Home] [Help]
35: -- Populate Old Values.
36: Open cur_old_ref_values;
37: Fetch cur_old_ref_values INTO old_references;
38: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: Close cur_old_ref_values;
42: App_Exception.Raise_Exception;
43: Return;
85: */
86: IF IGS_PR_VAL_PRA.prgp_val_prgc_closed (
87: new_references.progression_rule_cat,
88: v_message_name) = FALSE THEN
89: Fnd_Message.Set_Name('IGS',v_message_name);
90: IGS_GE_MSG_STACK.ADD;
91: App_Exception.Raise_Exception;
92: END IF;
93: END IF;
104: IF NOT IGS_PR_RU_CAT_PKG.Get_PK_For_Validation (
105: new_references.progression_rule_cat
106: ) THEN
107:
108: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111:
112: END IF;
118: ELSE
119: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
120: new_references.rul_sequence_number
121: ) THEN
122: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
123: IGS_GE_MSG_STACK.ADD;
124: App_Exception.Raise_Exception;
125:
126: END IF;
181:
182: Open cur_rowid;
183: Fetch cur_rowid INTO lv_rowid;
184: IF (cur_rowid%FOUND) THEN
185: Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRR_PRGC_FK');
186: IGS_GE_MSG_STACK.ADD;
187: Close cur_rowid;
188: App_Exception.Raise_Exception;
189: Return;
207:
208: Open cur_rowid;
209: Fetch cur_rowid INTO lv_rowid;
210: IF (cur_rowid%FOUND) THEN
211: Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRR_RUL_FK');
212: IGS_GE_MSG_STACK.ADD;
213: Close cur_rowid;
214: App_Exception.Raise_Exception;
215: Return;
261: IF Get_PK_For_Validation (
262: new_references.progression_rule_cat,
263: new_references.progression_rule_cd
264: ) THEN
265: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
266: IGS_GE_MSG_STACK.ADD;
267: App_Exception.Raise_Exception;
268:
269: END IF;
280: IF Get_PK_For_Validation (
281: new_references.progression_rule_cat,
282: new_references.progression_rule_cd
283: ) THEN
284: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
285: IGS_GE_MSG_STACK.ADD;
286: App_Exception.Raise_Exception;
287:
288: END IF;
330: if X_LAST_UPDATE_LOGIN is NULL then
331: X_LAST_UPDATE_LOGIN := -1;
332: end if;
333: else
334: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
335: IGS_GE_MSG_STACK.ADD;
336: app_exception.raise_exception;
337: end if;
338: Before_DML (
409: begin
410: open c1;
411: fetch c1 into tlinfo;
412: if (c1%notfound) then
413: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
414: IGS_GE_MSG_STACK.ADD;
415: close c1;
416: app_exception.raise_exception;
417: return;
426: AND (X_MESSAGE is null)))
427: ) then
428: null;
429: else
430: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
431: IGS_GE_MSG_STACK.ADD;
432: app_exception.raise_exception;
433: end if;
434: return;
461: if X_LAST_UPDATE_LOGIN is NULL then
462: X_LAST_UPDATE_LOGIN := -1;
463: end if;
464: else
465: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
466: IGS_GE_MSG_STACK.ADD;
467: app_exception.raise_exception;
468: end if;
469: Before_DML (
579: END IF ;
580:
581: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
582: IF new_references.CLOSED_IND not in ('Y','N') then
583: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
584: IGS_GE_MSG_STACK.ADD;
585: App_Exception.Raise_Exception ;
586: END IF;
587: END IF ;
587: END IF ;
588:
589: IF upper(Column_name) = 'PROGRESSION_RULE_CAT' OR COLUMN_NAME IS NULL THEN
590: IF new_references.PROGRESSION_RULE_CAT<> upper(new_references.PROGRESSION_RULE_CAT) then
591: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
592: IGS_GE_MSG_STACK.ADD;
593: App_Exception.Raise_Exception ;
594: END IF;
595:
596: END IF ;
597:
598: IF (Column_name) = 'PROGRESSION_RULE_CD' OR COLUMN_NAME IS NULL THEN
599: IF new_references.PROGRESSION_RULE_CD<> (new_references.PROGRESSION_RULE_CD) then
600: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
601: IGS_GE_MSG_STACK.ADD;
602: App_Exception.Raise_Exception ;
603: END IF;
604: