[Home] [Help]
34: -- Populate Old Values.
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: Close cur_old_ref_values;
41: App_Exception.Raise_Exception;
42: Return;
80: new_references.progression_rule_cat,
81: new_references.pra_sequence_number,
82: new_references.pro_sequence_number
83: ) THEN
84: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
85: IGS_GE_MSG_STACK.ADD;
86: App_Exception.Raise_Exception;
87: END IF;
88: END IF;
93: ELSE
94: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
95: new_references.unit_cd
96: ) THEN
97: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
153:
154: Open cur_rowid;
155: Fetch cur_rowid INTO lv_rowid;
156: IF (cur_rowid%FOUND) THEN
157: Fnd_Message.Set_Name ('IGS', 'IGS_PR_POPU_PRO_FK');
158: IGS_GE_MSG_STACK.ADD;
159: Close cur_rowid;
160: App_Exception.Raise_Exception;
161: Return;
179:
180: Open cur_rowid;
181: Fetch cur_rowid INTO lv_rowid;
182: IF (cur_rowid%FOUND) THEN
183: Fnd_Message.Set_Name ('IGS', 'IGS_PR_POPU_UN_FK');
184: IGS_GE_MSG_STACK.ADD;
185: Close cur_rowid;
186: App_Exception.Raise_Exception;
187: Return;
218: OPEN c_parent( new_references.progression_rule_cat, new_references.pra_sequence_number, new_references.pro_sequence_number );
219: FETCH c_parent INTO l_dummy;
220: IF c_parent%NOTFOUND THEN
221: CLOSE c_parent;
222: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
223: IGS_GE_MSG_STACK.ADD;
224: APP_EXCEPTION.RAISE_EXCEPTION;
225: END IF;
226: CLOSE c_parent;
231: OPEN c_parent( new_references.progression_rule_cat, new_references.pra_sequence_number, new_references.pro_sequence_number );
232: FETCH c_parent INTO l_dummy;
233: IF c_parent%NOTFOUND THEN
234: CLOSE c_parent;
235: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
236: IGS_GE_MSG_STACK.ADD;
237: APP_EXCEPTION.RAISE_EXCEPTION;
238: END IF;
239: CLOSE c_parent;
282: new_references.pra_sequence_number,
283: new_references.pro_sequence_number,
284: new_references.unit_cd
285: ) THEN
286: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: END IF;
290: Check_Constraints;
300: new_references.pra_sequence_number,
301: new_references.pro_sequence_number,
302: new_references.unit_cd
303: ) THEN
304: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
305: IGS_GE_MSG_STACK.ADD;
306: App_Exception.Raise_Exception;
307: END IF;
308: Check_Constraints;
348: if X_LAST_UPDATE_LOGIN is NULL then
349: X_LAST_UPDATE_LOGIN := -1;
350: end if;
351: else
352: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
353: IGS_GE_MSG_STACK.ADD;
354: app_exception.raise_exception;
355: end if;
356: Before_DML (
420: begin
421: open c1;
422: fetch c1 into tlinfo;
423: if (c1%notfound) then
424: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
425: IGS_GE_MSG_STACK.ADD;
426: close c1;
427: app_exception.raise_exception;
428: return;
432: if ( (tlinfo.S_UNIT_TYPE = X_S_UNIT_TYPE)
433: ) then
434: null;
435: else
436: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
437: IGS_GE_MSG_STACK.ADD;
438: app_exception.raise_exception;
439: end if;
440: return;
466: if X_LAST_UPDATE_LOGIN is NULL then
467: X_LAST_UPDATE_LOGIN := -1;
468: end if;
469: else
470: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
471: IGS_GE_MSG_STACK.ADD;
472: app_exception.raise_exception;
473: end if;
474: Before_DML (
581: END IF ;
582:
583: IF upper(Column_name) = 'S_UNIT_TYPE' OR COLUMN_NAME IS NULL THEN
584: IF new_references.S_UNIT_TYPE<> upper(new_references.S_UNIT_TYPE) then
585: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
586: IGS_GE_MSG_STACK.ADD;
587: App_Exception.Raise_Exception ;
588: END IF;
589:
590: END IF ;
591:
592: IF upper(Column_name) = 'PROGRESSION_RULE_CAT' OR COLUMN_NAME IS NULL THEN
593: IF new_references.PROGRESSION_RULE_CAT<> upper(new_references.PROGRESSION_RULE_CAT) then
594: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
595: IGS_GE_MSG_STACK.ADD;
596: App_Exception.Raise_Exception ;
597: END IF;
598:
599: END IF ;
600:
601: IF upper(Column_name) = 'UNIT_CD' OR COLUMN_NAME IS NULL THEN
602: IF new_references.UNIT_CD <> upper(new_references.UNIT_CD) then
603: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
604: IGS_GE_MSG_STACK.ADD;
605: App_Exception.Raise_Exception ;
606: END IF;
607:
608: END IF ;
609:
610: IF upper(Column_name) = 'PRA_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
611: IF new_references.PRA_SEQUENCE_NUMBER < 1 or new_references.PRA_SEQUENCE_NUMBER > 999999 then
612: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
613: IGS_GE_MSG_STACK.ADD;
614: App_Exception.Raise_Exception ;
615: END IF;
616:
619: -- This has been commented as 'S_UNIT_TYPE' has be checked already
620:
621: /*IF upper(Column_name) = 'S_UNIT_TYPE' OR COLUMN_NAME IS NULL THEN
622: IF new_references.S_UNIT_TYPE not in ('REQUIRED' , 'EXCLUDED' ) then
623: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
624: IGS_GE_MSG_STACK.ADD;
625: App_Exception.Raise_Exception ;
626: END IF;
627: