48: Open cur_old_ref_values;
49: Fetch cur_old_ref_values INTO old_references;
50: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
51: Close cur_old_ref_values;
52: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
53: IGS_GE_MSG_STACK.ADD;
54: App_Exception.Raise_Exception;
55: Return;
56: END IF;
103: -- The following code checks for check constraints on the Columns.
104: IF Upper(Column_Name) = 'RANK' OR
105: Column_Name IS NULL THEN
106: IF NOT (new_references.rank > 0) THEN
107: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
108: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_SS_DSRD_RANK_NONEGATE'));
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111: END IF;
104: IF Upper(Column_Name) = 'RANK' OR
105: Column_Name IS NULL THEN
106: IF NOT (new_references.rank > 0) THEN
107: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
108: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_SS_DSRD_RANK_NONEGATE'));
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111: END IF;
112: END IF;
131: ,new_references.admission_appl_number
132: ,new_references.nominated_course_cd
133: ,new_references.person_id
134: ) THEN
135: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
136: IGS_GE_MSG_STACK.ADD;
137: app_exception.raise_exception;
138: END IF;
139: END Check_Uniqueness ;
166: new_references.admission_appl_number,
167: new_references.nominated_course_cd,
168: new_references.sequence_number
169: ) THEN
170: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
171: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PROGRAM_APPL'));
172: IGS_GE_MSG_STACK.ADD;
173: App_Exception.Raise_Exception;
174: END IF;
167: new_references.nominated_course_cd,
168: new_references.sequence_number
169: ) THEN
170: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
171: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PROGRAM_APPL'));
172: IGS_GE_MSG_STACK.ADD;
173: App_Exception.Raise_Exception;
174: END IF;
175:
181: ELSIF NOT Igs_En_Unit_Set_Pkg.Get_PK_For_Validation (
182: new_references.unit_set_cd,
183: new_references.version_number
184: ) THEN
185: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
186: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_PS_UNIT_SET'));
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
182: new_references.unit_set_cd,
183: new_references.version_number
184: ) THEN
185: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
186: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_PS_UNIT_SET'));
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190:
305: Open cur_rowid;
306: Fetch cur_rowid INTO lv_rowid;
307: IF (cur_rowid%FOUND) THEN
308: Close cur_rowid;
309: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUTS_ACAI_FK');
310: IGS_GE_MSG_STACK.ADD;
311: App_Exception.Raise_Exception;
312: Return;
313: END IF;
341: Open cur_rowid;
342: Fetch cur_rowid INTO lv_rowid;
343: IF (cur_rowid%FOUND) THEN
344: Close cur_rowid;
345: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUTS_EUS_FK');
346: IGS_GE_MSG_STACK.ADD;
347: App_Exception.Raise_Exception;
348: Return;
349: END IF;
389: Open cur_rowid;
390: Fetch cur_rowid INTO lv_rowid;
391: IF (cur_rowid%FOUND) THEN
392: Close cur_rowid;
393: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUTS_EUS_FK');
394: IGS_GE_MSG_STACK.ADD;
395: App_Exception.Raise_Exception;
396: Return;
397: END IF;
571: IF (p_action = 'INSERT') THEN
572: -- Call all the procedures related to Before Insert.
573: IF Get_Pk_For_Validation(
574: new_references.unit_set_id) THEN
575: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
576: IGS_GE_MSG_STACK.ADD;
577: App_Exception.Raise_Exception;
578: END IF;
579:
587: ,c_appl_rec.location_cd
588: ,c_appl_rec.attendance_mode
589: ,c_appl_rec.attendance_type
590: ) THEN
591: Fnd_Message.Set_name('IGS','IGS_AD_PRGOFOP_NOT_VALID');
592: IGS_GE_MSG_STACK.ADD;
593: App_Exception.Raise_Exception;
594: END IF;
595:
608: ,c_appl_rec.location_cd
609: ,c_appl_rec.attendance_mode
610: ,c_appl_rec.attendance_type
611: ) THEN
612: Fnd_Message.Set_name('IGS','IGS_AD_PRGOFOP_NOT_VALID');
613: IGS_GE_MSG_STACK.ADD;
614: App_Exception.Raise_Exception;
615: END IF;
616: Check_Uniqueness;
622: ELSIF (p_action = 'VALIDATE_INSERT') THEN
623: -- Call all the procedures related to Before Insert.
624: IF Get_PK_For_Validation (
625: new_references.unit_set_id) THEN
626: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
627: IGS_GE_MSG_STACK.ADD;
628: App_Exception.Raise_Exception;
629: END IF;
630:
733: else
734: X_PROGRAM_UPDATE_DATE := SYSDATE;
735: end if;
736: else
737: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
738: IGS_GE_MSG_STACK.ADD;
739: app_exception.raise_exception;
740: end if;
741:
820: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
821: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
822: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
823: -- that the ownerof policy function does not have privilege to access.
824: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
825: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
826: IGS_GE_MSG_STACK.ADD;
827: app_exception.raise_exception;
828: ELSE
821: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
822: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
823: -- that the ownerof policy function does not have privilege to access.
824: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
825: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
826: IGS_GE_MSG_STACK.ADD;
827: app_exception.raise_exception;
828: ELSE
829: RAISE;
865: begin
866: open c1;
867: fetch c1 into tlinfo;
868: if (c1%notfound) then
869: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
870: IGS_GE_MSG_STACK.ADD;
871: close c1;
872: app_exception.raise_exception;
873: return;
882: AND (tlinfo.RANK = X_RANK)
883: ) then
884: null;
885: else
886: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
887: IGS_GE_MSG_STACK.ADD;
888: app_exception.raise_exception;
889: end if;
890: return;
934: if X_LAST_UPDATE_LOGIN is NULL then
935: X_LAST_UPDATE_LOGIN := -1;
936: end if;
937: else
938: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
939: IGS_GE_MSG_STACK.ADD;
940: app_exception.raise_exception;
941: end if;
942: Before_DML(
989: PROGRAM_APPLICATION_ID = PROGRAM_APPLICATION_ID,
990: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
991: where ROWID = X_ROWID;
992: if (sql%notfound) then
993: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
994: igs_ge_msg_stack.add;
995: IF (x_mode = 'S') THEN
996: igs_sc_gen_001.unset_ctx('R');
997: END IF;
1016: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1017: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1018: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1019: -- that the ownerof policy function does not have privilege to access.
1020: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1021: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1022: IGS_GE_MSG_STACK.ADD;
1023: app_exception.raise_exception;
1024: ELSE
1017: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1018: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1019: -- that the ownerof policy function does not have privilege to access.
1020: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1021: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1022: IGS_GE_MSG_STACK.ADD;
1023: app_exception.raise_exception;
1024: ELSE
1025: RAISE;
1108: END IF;
1109: delete from IGS_AD_UNIT_SETS
1110: where ROWID = X_ROWID;
1111: if (sql%notfound) then
1112: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1113: igs_ge_msg_stack.add;
1114: IF (x_mode = 'S') THEN
1115: igs_sc_gen_001.unset_ctx('R');
1116: END IF;
1134: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1135: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1136: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1137: -- that the ownerof policy function does not have privilege to access.
1138: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1139: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1140: IGS_GE_MSG_STACK.ADD;
1141: app_exception.raise_exception;
1142: ELSE
1135: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1136: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1137: -- that the ownerof policy function does not have privilege to access.
1138: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1139: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1140: IGS_GE_MSG_STACK.ADD;
1141: app_exception.raise_exception;
1142: ELSE
1143: RAISE;