[Home] [Help]
38: -- Populate Old Values.
39: Open cur_old_ref_values;
40: Fetch cur_old_ref_values INTO old_references;
41: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: Close cur_old_ref_values;
45: App_Exception.Raise_Exception;
46: Return;
81: ELSE
82: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
83: new_references.dflt_restricted_att_type
84: ) THEN
85: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception;
88: END IF;
89: END IF;
94: ELSE
95: IF NOT IGS_FI_ENCMB_TYPE_PKG.Get_PK_For_Validation (
96: new_references.encumbrance_type
97: ) THEN
98: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101: END IF;
102: END IF;
108: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
109: 'PROGRESSION_OUTCOME_TYPE',
110: new_references.s_progression_outcome_type
111: ) THEN
112: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception;
115: END IF;
116: END IF;
170:
171: Open cur_rowid;
172: Fetch cur_rowid INTO lv_rowid;
173: IF (cur_rowid%FOUND) THEN
174: Fnd_Message.Set_Name ('IGS', 'IGS_PR_POT_ATT_FK');
175: IGS_GE_MSG_STACK.ADD;
176: Close cur_rowid;
177: App_Exception.Raise_Exception;
178: Return;
196:
197: Open cur_rowid;
198: Fetch cur_rowid INTO lv_rowid;
199: IF (cur_rowid%FOUND) THEN
200: Fnd_Message.Set_Name ('IGS', 'IGS_PR_POT_ET_FK');
201: IGS_GE_MSG_STACK.ADD;
202: Close cur_rowid;
203: App_Exception.Raise_Exception;
204: Return;
222:
223: Open cur_rowid;
224: Fetch cur_rowid INTO lv_rowid;
225: IF (cur_rowid%FOUND) THEN
226: Fnd_Message.Set_Name ('IGS', 'IGS_PR_POT_SPOT_FK');
227: IGS_GE_MSG_STACK.ADD;
228: Close cur_rowid;
229: App_Exception.Raise_Exception;
230: Return;
237: p_message_name VARCHAR2(30);
238: BEGIN
239: IF ( p_inserting = TRUE OR (p_updating = TRUE AND new_references.encumbrance_type <> old_references.encumbrance_type) ) THEN
240: IF NOT igs_en_val_etde.enrp_val_et_closed(new_references.encumbrance_type,p_message_name) THEN
241: Fnd_Message.Set_Name('IGS', p_message_name);
242: IGS_GE_MSG_STACK.ADD;
243: App_Exception.Raise_Exception;
244: END IF;
245: END IF;
293:
294: IF Get_PK_For_Validation (
295: new_references.progression_outcome_type
296: ) THEN
297: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
298: IGS_GE_MSG_STACK.ADD;
299: App_Exception.Raise_Exception;
300: END IF;
301: Check_Constraints;
312: -- Call all the procedures related to Before Insert.
313: IF Get_PK_For_Validation (
314: new_references.progression_outcome_type
315: ) THEN
316: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
317: IGS_GE_MSG_STACK.ADD;
318: App_Exception.Raise_Exception;
319: END IF;
320: Check_Constraints;
361: if X_LAST_UPDATE_LOGIN is NULL then
362: X_LAST_UPDATE_LOGIN := -1;
363: end if;
364: else
365: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
366: IGS_GE_MSG_STACK.ADD;
367: app_exception.raise_exception;
368: end if;
369: Before_DML (
455: begin
456: open c1;
457: fetch c1 into tlinfo;
458: if (c1%notfound) then
459: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
460: IGS_GE_MSG_STACK.ADD;
461: close c1;
462: app_exception.raise_exception;
463: return;
481: AND (X_COMMENTS is null)))
482: ) then
483: null;
484: else
485: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
486: IGS_GE_MSG_STACK.ADD;
487: app_exception.raise_exception;
488: end if;
489: return;
519: if X_LAST_UPDATE_LOGIN is NULL then
520: X_LAST_UPDATE_LOGIN := -1;
521: end if;
522: else
523: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
524: IGS_GE_MSG_STACK.ADD;
525: app_exception.raise_exception;
526: end if;
527: Before_DML (
649: END IF ;
650:
651: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
652: IF new_references.CLOSED_IND<> upper(new_references.CLOSED_IND) then
653: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
654: IGS_GE_MSG_STACK.ADD;
655: App_Exception.Raise_Exception ;
656: END IF;
657:
655: App_Exception.Raise_Exception ;
656: END IF;
657:
658: IF new_references.CLOSED_IND not in ('Y','N') then
659: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
660: IGS_GE_MSG_STACK.ADD;
661: App_Exception.Raise_Exception ;
662: END IF;
663:
664: END IF ;
665:
666: IF upper(Column_name) = 'ENCUMBRANCE_TYPE' OR COLUMN_NAME IS NULL THEN
667: IF new_references.ENCUMBRANCE_TYPE<> upper(new_references.ENCUMBRANCE_TYPE) then
668: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
669: IGS_GE_MSG_STACK.ADD;
670: App_Exception.Raise_Exception ;
671: END IF;
672:
673: END IF ;
674:
675: IF upper(Column_name) = 'PROGRESSION_OUTCOME_TYPE' OR COLUMN_NAME IS NULL THEN
676: IF new_references.PROGRESSION_OUTCOME_TYPE<> upper(new_references.PROGRESSION_OUTCOME_TYPE) then
677: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
678: IGS_GE_MSG_STACK.ADD;
679: App_Exception.Raise_Exception ;
680: END IF;
681:
682: END IF ;
683:
684: IF upper(Column_name) = 'S_PROGRESSION_OUTCOME_TYPE' OR COLUMN_NAME IS NULL THEN
685: IF new_references.S_PROGRESSION_OUTCOME_TYPE<> upper(new_references.S_PROGRESSION_OUTCOME_TYPE) then
686: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
687: IGS_GE_MSG_STACK.ADD;
688: App_Exception.Raise_Exception ;
689: END IF;
690:
691: END IF ;
692:
693: IF upper(Column_name) = 'DFLT_RESTRICTED_ENROLMENT_CP' OR COLUMN_NAME IS NULL THEN
694: IF new_references.DFLT_RESTRICTED_ENROLMENT_CP < 0 or new_references.DFLT_RESTRICTED_ENROLMENT_CP > 999.999 then
695: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
696: IGS_GE_MSG_STACK.ADD;
697: App_Exception.Raise_Exception ;
698: END IF;
699: