[Home] [Help]
51: Fetch cur_old_ref_values INTO old_references;
52: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
53: Close cur_old_ref_values;
54: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
55: IGS_GE_MSG_STACK.ADD;
56: App_Exception.Raise_Exception;
57: Return;
58: END IF;
59: Close cur_old_ref_values;
112: IF Upper(Column_Name) = 'ASSIGN_TYPE' OR
113: Column_Name IS NULL THEN
114: IF NOT (new_references.assign_type IN ('M','A')) THEN
115: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119: END IF;
120:
141: ,new_references.nominated_course_cd
142: ,new_references.person_id
143: ) THEN
144: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
145: IGS_GE_MSG_STACK.ADD;
146: app_exception.raise_exception;
147: END IF;
148: END Check_Uniqueness ;
149: PROCEDURE Check_Parent_Existance AS
176: new_references.sequence_number
177: ) THEN
178: Fnd_Message.Set_Name ('FND','IGS_GE_PK_UK_NOT_FOUND');
179: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PROGRAM_APPL'));
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: END IF;
183: IF (((old_references.Program_Approval_Status = new_references.Program_Approval_Status)) OR
184: ((new_references.Program_Approval_Status IS NULL))) THEN
188: new_references.Program_Approval_Status) THEN
189: Fnd_Message.Set_Name ('FND','IGS_GE_PK_UK_NOT_FOUND');
190: --Message changed by ravishar
191: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PGM_APPROVAL_STATUS'));
192: IGS_GE_MSG_STACK.ADD;
193: App_Exception.Raise_Exception;
194: END IF;
195:
196: IF (((old_references.pgm_approver_id = new_references.pgm_approver_id)) OR
201: ) THEN
202: Fnd_Message.Set_Name ('FND','IGS_GE_PK_UK_NOT_FOUND');
203: --Message changed by ravishar
204: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PGM_APPROVER'));
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208:
209: END Check_Parent_Existance;
321: Fetch cur_rowid INTO lv_rowid;
322: IF (cur_rowid%FOUND) THEN
323: Close cur_rowid;
324: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAPGM_ACAI_FK');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: Return;
328: END IF;
329: Close cur_rowid;
358: Fetch cur_rowid INTO lv_rowid;
359: IF (cur_rowid%FOUND) THEN
360: Close cur_rowid;
361: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAPGM_PE_FK');
362: IGS_GE_MSG_STACK.ADD;
363: App_Exception.Raise_Exception;
364: Return;
365: END IF;
366: Close cur_rowid;
433: Null;
434: IF Get_Pk_For_Validation(
435: new_references.appl_pgmapprv_id) THEN
436: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
437: IGS_GE_MSG_STACK.ADD;
438: App_Exception.Raise_Exception;
439: END IF;
440: Check_Uniqueness;
441: Check_Constraints;
453: -- Call all the procedures related to Before Insert.
454: IF Get_PK_For_Validation (
455: new_references.appl_pgmapprv_id) THEN
456: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
457: IGS_GE_MSG_STACK.ADD;
458: App_Exception.Raise_Exception;
459: END IF;
460: Check_Uniqueness;
461: Check_Constraints;
569: X_PROGRAM_UPDATE_DATE := SYSDATE;
570: end if;
571: else
572: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
573: IGS_GE_MSG_STACK.ADD;
574: app_exception.raise_exception;
575: end if;
576:
577: X_APPL_PGMAPPRV_ID := -1;
670: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
671: -- that the ownerof policy function does not have privilege to access.
672: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
673: fnd_message.set_token ('ERR_CD', SQLCODE);
674: igs_ge_msg_stack.add;
675: app_exception.raise_exception;
676: ELSE
677: RAISE;
678: END IF;
727: open c1;
728: fetch c1 into tlinfo;
729: if (c1%notfound) then
730: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
731: IGS_GE_MSG_STACK.ADD;
732: close c1;
733: app_exception.raise_exception;
734: return;
735: end if;
753: ) then
754: null;
755: else
756: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
757: IGS_GE_MSG_STACK.ADD;
758: app_exception.raise_exception;
759: end if;
760: return;
761: end LOCK_ROW;
813: X_LAST_UPDATE_LOGIN := -1;
814: end if;
815: else
816: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
817: IGS_GE_MSG_STACK.ADD;
818: app_exception.raise_exception;
819: end if;
820: Before_DML(
821: p_action=>'UPDATE',
874: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
875: where ROWID = X_ROWID;
876: if (sql%notfound) then
877: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
878: igs_ge_msg_stack.add;
879: igs_sc_gen_001.unset_ctx('R');
880: app_exception.raise_exception;
881: end if;
882: IF (x_mode = 'S') THEN
897: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
898: -- that the ownerof policy function does not have privilege to access.
899: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
900: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
901: IGS_GE_MSG_STACK.ADD;
902: app_exception.raise_exception;
903: ELSE
904: RAISE;
905: END IF;
1002: delete from IGS_AD_APPL_PGMAPPRV
1003: where ROWID = X_ROWID;
1004: if (sql%notfound) then
1005: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1006: igs_ge_msg_stack.add;
1007: igs_sc_gen_001.unset_ctx('R');
1008: app_exception.raise_exception;
1009: end if;
1010: IF (x_mode = 'S') THEN
1024: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1025: -- that the ownerof policy function does not have privilege to access.
1026: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1027: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1028: IGS_GE_MSG_STACK.ADD;
1029: app_exception.raise_exception;
1030: ELSE
1031: RAISE;
1032: END IF;