[Home] [Help]
44: Open cur_old_ref_values;
45: Fetch cur_old_ref_values INTO old_references;
46: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
47: Close cur_old_ref_values;
48: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49: IGS_GE_MSG_STACK.ADD;
50: App_Exception.Raise_Exception;
51: Return;
52: END IF;
94: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (
95: new_references.adm_cal_type,
96: new_references.adm_ci_sequence_number
97: )THEN
98: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
99: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
100: IGS_GE_MSG_STACK.ADD;
101: APP_EXCEPTION.RAISE_EXCEPTION;
102: END IF;
95: new_references.adm_cal_type,
96: new_references.adm_ci_sequence_number
97: )THEN
98: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
99: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
100: IGS_GE_MSG_STACK.ADD;
101: APP_EXCEPTION.RAISE_EXCEPTION;
102: END IF;
103: END IF;
111: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (
112: new_references.acad_cal_type,
113: new_references.acad_ci_sequence_number
114: )THEN
115: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
116: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
117: IGS_GE_MSG_STACK.ADD;
118: APP_EXCEPTION.RAISE_EXCEPTION;
119: END IF;
112: new_references.acad_cal_type,
113: new_references.acad_ci_sequence_number
114: )THEN
115: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
116: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
117: IGS_GE_MSG_STACK.ADD;
118: APP_EXCEPTION.RAISE_EXCEPTION;
119: END IF;
120: END IF;
125: ELSE
126: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
127: new_references.person_id
128: )THEN
129: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
130: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PERSON'));
131: IGS_GE_MSG_STACK.ADD;
132: APP_EXCEPTION.RAISE_EXCEPTION;
133: END IF;
126: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
127: new_references.person_id
128: )THEN
129: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
130: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PERSON'));
131: IGS_GE_MSG_STACK.ADD;
132: APP_EXCEPTION.RAISE_EXCEPTION;
133: END IF;
134: END IF;
139: ELSE
140: IF NOT IGS_AD_APPL_STAT_PKG.Get_PK_For_Validation (
141: new_references.adm_appl_status
142: )THEN
143: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
144: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
145: IGS_GE_MSG_STACK.ADD;
146: APP_EXCEPTION.RAISE_EXCEPTION;
147: END IF;
140: IF NOT IGS_AD_APPL_STAT_PKG.Get_PK_For_Validation (
141: new_references.adm_appl_status
142: )THEN
143: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
144: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
145: IGS_GE_MSG_STACK.ADD;
146: APP_EXCEPTION.RAISE_EXCEPTION;
147: END IF;
148: END IF;
153: ELSE
154: IF NOT IGS_AD_FEE_STAT_PKG.Get_PK_For_Validation (
155: new_references.adm_fee_status
156: )THEN
157: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
158: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
159: IGS_GE_MSG_STACK.ADD;
160: APP_EXCEPTION.RAISE_EXCEPTION;
161: END IF;
154: IF NOT IGS_AD_FEE_STAT_PKG.Get_PK_For_Validation (
155: new_references.adm_fee_status
156: )THEN
157: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
158: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
159: IGS_GE_MSG_STACK.ADD;
160: APP_EXCEPTION.RAISE_EXCEPTION;
161: END IF;
162: END IF;
170: IF NOT IGS_AD_PRCS_CAT_PKG.Get_PK_For_Validation (
171: new_references.admission_cat,
172: new_references.s_admission_process_type
173: )THEN
174: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
175: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
176: IGS_GE_MSG_STACK.ADD;
177: APP_EXCEPTION.RAISE_EXCEPTION;
178: END IF;
171: new_references.admission_cat,
172: new_references.s_admission_process_type
173: )THEN
174: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
175: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
176: IGS_GE_MSG_STACK.ADD;
177: APP_EXCEPTION.RAISE_EXCEPTION;
178: END IF;
179: END IF;
224: END IF;
225:
226: IF upper(column_name) = 'TAC_APPL_IND' OR column_name IS NULL THEN
227: IF new_references.tac_appl_ind NOT IN ('Y','N') THEN
228: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
229: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_TAC_APPL_IND'));
230: IGS_GE_MSG_STACK.ADD;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232: END IF;
225:
226: IF upper(column_name) = 'TAC_APPL_IND' OR column_name IS NULL THEN
227: IF new_references.tac_appl_ind NOT IN ('Y','N') THEN
228: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
229: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_TAC_APPL_IND'));
230: IGS_GE_MSG_STACK.ADD;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232: END IF;
233: END IF;
293: new_references.person_id,
294: new_references.admission_appl_number,
295: new_references.hist_start_dt
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;
315: new_references.person_id,
316: new_references.admission_appl_number,
317: new_references.hist_start_dt
318: )THEN
319: FND_MESSAGE.SET_NAME('IGS','IGS_GE_MULTI_ORG_DUP_REC');
320: IGS_GE_MSG_STACK.ADD;
321: APP_EXCEPTION.RAISE_EXCEPTION;
322: END IF;
323: Check_Constraints;
379: if X_LAST_UPDATE_LOGIN is NULL then
380: X_LAST_UPDATE_LOGIN := -1;
381: end if;
382: else
383: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
384: IGS_GE_MSG_STACK.ADD;
385: app_exception.raise_exception;
386: end if;
387: Before_DML (
476: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
477: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
478: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
479: -- that the ownerof policy function does not have privilege to access.
480: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
481: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
482: IGS_GE_MSG_STACK.ADD;
483: app_exception.raise_exception;
484: ELSE
477: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
478: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
479: -- that the ownerof policy function does not have privilege to access.
480: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
481: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
482: IGS_GE_MSG_STACK.ADD;
483: app_exception.raise_exception;
484: ELSE
485: RAISE;
526: open c1;
527: fetch c1 into tlinfo;
528: if (c1%notfound) then
529: close c1;
530: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
531: IGS_GE_MSG_STACK.ADD;
532: app_exception.raise_exception;
533: return;
534: end if;
568: AND (X_TAC_APPL_IND is null)))
569: ) then
570: null;
571: else
572: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
573: IGS_GE_MSG_STACK.ADD;
574: app_exception.raise_exception;
575: end if;
576: return;
612: if X_LAST_UPDATE_LOGIN is NULL then
613: X_LAST_UPDATE_LOGIN := -1;
614: end if;
615: else
616: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
617: IGS_GE_MSG_STACK.ADD;
618: app_exception.raise_exception;
619: end if;
620: Before_DML (
661: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
662: where ROWID = X_ROWID
663: ;
664: if (sql%notfound) then
665: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
666: IGS_GE_MSG_STACK.ADD;
667: app_exception.raise_exception;
668: end if;
669: After_DML (
678: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
679: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
680: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
681: -- that the ownerof policy function does not have privilege to access.
682: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
683: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
684: IGS_GE_MSG_STACK.ADD;
685: app_exception.raise_exception;
686: ELSE
679: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
680: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
681: -- that the ownerof policy function does not have privilege to access.
682: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
683: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
684: IGS_GE_MSG_STACK.ADD;
685: app_exception.raise_exception;
686: ELSE
687: RAISE;
771:
772: delete from IGS_AD_APPL_HIST_ALL
773: where ROWID = X_ROWID;
774: if (sql%notfound) then
775: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
776: IGS_GE_MSG_STACK.ADD;
777: app_exception.raise_exception;
778: end if;
779: After_DML (
787: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
788: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
789: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
790: -- that the ownerof policy function does not have privilege to access.
791: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
792: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
793: IGS_GE_MSG_STACK.ADD;
794: app_exception.raise_exception;
795: ELSE
788: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
789: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
790: -- that the ownerof policy function does not have privilege to access.
791: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
792: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
793: IGS_GE_MSG_STACK.ADD;
794: app_exception.raise_exception;
795: ELSE
796: RAISE;