[Home] [Help]
50: Open cur_old_ref_values;
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;
111: -- The following code checks for check constraints on the Columns.
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;
140: ,new_references.admission_appl_number
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 ;
174: new_references.admission_appl_number,
175: new_references.nominated_course_cd,
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;
175: new_references.nominated_course_cd,
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
185: NULL;
186: ELSIF NOT Igs_lookups_view_pkg.get_pk_for_validation(
187: 'PROGRAM_APPROVAL_STATUS',
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;
187: 'PROGRAM_APPROVAL_STATUS',
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:
198: NULL;
199: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
200: new_references.pgm_approver_id
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;
200: new_references.pgm_approver_id
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:
320: Open cur_rowid;
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;
357: Open 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;
432: -- Call all the procedures related to Before Insert.
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;
452: ELSIF (p_action = 'VALIDATE_INSERT') THEN
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;
568: else
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:
668: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
669: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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
669: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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;
726: begin
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;
752: AND (X_APPROVAL_NOTES is null)))
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;
812: if X_LAST_UPDATE_LOGIN is NULL then
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(
873: PROGRAM_APPLICATION_ID = PROGRAM_APPLICATION_ID,
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;
895: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
896: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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
896: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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;
1001: 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;
1022: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1023: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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
1023: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
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;