[Home] [Help]
53: Open cur_old_ref_values;
54: Fetch cur_old_ref_values INTO old_references;
55: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
56: Close cur_old_ref_values;
57: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
58: IGS_GE_MSG_STACK.ADD;
59: App_Exception.Raise_Exception;
60: Return;
61: END IF;
143: OPEN c_birth_date(new_references.person_id);
144: FETCH c_birth_date INTO l_birth_date;
145: CLOSE c_birth_date;
146: IF ((l_birth_date IS NOT NULL) AND (l_birth_date > new_references.appl_dt)) THEN
147: FND_MESSAGE.SET_NAME('IGS','IGS_AD_DOB_ERROR');
148: FND_MESSAGE.SET_TOKEN ('NAME',fnd_message.get_string('IGS','IGS_AD_APPL_DT'));
149: IGS_GE_MSG_STACK.ADD;
150: APP_EXCEPTION.RAISE_EXCEPTION;
151: END IF;
144: FETCH c_birth_date INTO l_birth_date;
145: CLOSE c_birth_date;
146: IF ((l_birth_date IS NOT NULL) AND (l_birth_date > new_references.appl_dt)) THEN
147: FND_MESSAGE.SET_NAME('IGS','IGS_AD_DOB_ERROR');
148: FND_MESSAGE.SET_TOKEN ('NAME',fnd_message.get_string('IGS','IGS_AD_APPL_DT'));
149: IGS_GE_MSG_STACK.ADD;
150: APP_EXCEPTION.RAISE_EXCEPTION;
151: END IF;
152: --
187: v_message_name,
188: v_return_type) = FALSE THEN
189: IF NVL(v_return_type, '-1') = cst_error THEN
190: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
191: FND_MESSAGE.SET_NAME('IGS',v_message_name);
192: IGS_GE_MSG_STACK.ADD;
193: APP_EXCEPTION.RAISE_EXCEPTION;
194: END IF;
195: END IF;
200: new_references.acad_cal_type,
201: new_references.acad_ci_sequence_number,
202: v_message_name) = FALSE THEN
203: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
204: FND_MESSAGE.SET_NAME('IGS',v_message_name);
205: IF v_message_name = 'IGS_AD_ADM_CAL_INSTNOT_DEFINE' THEN
206: FND_MESSAGE.SET_TOKEN('CAL_TYPE',new_references.acad_cal_type);
207: END IF;
208: IGS_GE_MSG_STACK.ADD;
202: v_message_name) = FALSE THEN
203: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
204: FND_MESSAGE.SET_NAME('IGS',v_message_name);
205: IF v_message_name = 'IGS_AD_ADM_CAL_INSTNOT_DEFINE' THEN
206: FND_MESSAGE.SET_TOKEN('CAL_TYPE',new_references.acad_cal_type);
207: END IF;
208: IGS_GE_MSG_STACK.ADD;
209: APP_EXCEPTION.RAISE_EXCEPTION;
210: END IF;
219: new_references.admission_cat,
220: new_references.s_admission_process_type,
221: v_message_name) = FALSE THEN
222: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
223: FND_MESSAGE.SET_NAME('IGS',v_message_name);
224: IGS_GE_MSG_STACK.ADD;
225: APP_EXCEPTION.RAISE_EXCEPTION;
226: END IF;
227: --
230: IF IGS_AD_VAL_AA.admp_val_aa_adm_cat (
231: new_references.admission_cat,
232: v_message_name) = FALSE THEN
233: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
234: FND_MESSAGE.SET_NAME('IGS',v_message_name);
235: IGS_GE_MSG_STACK.ADD;
236: APP_EXCEPTION.RAISE_EXCEPTION;
237: END IF;
238: END IF; -- p_inserting.
244: IF IGS_AD_VAL_AA.admp_val_aa_update (
245: old_references.adm_appl_status,
246: v_message_name) = FALSE THEN
247: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
248: FND_MESSAGE.SET_NAME('IGS',v_message_name);
249: IGS_GE_MSG_STACK.ADD;
250: APP_EXCEPTION.RAISE_EXCEPTION;
251: END IF;
252: END IF;
254: IF ((old_references.acad_cal_type <> new_references.acad_cal_type) OR
255: (old_references.acad_ci_sequence_number <> new_references.acad_ci_sequence_number) OR (old_references.adm_cal_type <> new_references.adm_cal_type) OR
256: (old_references.adm_ci_sequence_number <> new_references.adm_ci_sequence_number)) THEN
257: --raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(2537));
258: FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_COMPERIOD_NOTALLOW');
259: IGS_GE_MSG_STACK.ADD;
260: APP_EXCEPTION.RAISE_EXCEPTION;
261: END IF;
262: --
265: IF ((old_references.admission_cat <> new_references.admission_cat) OR
266: (old_references.s_admission_process_type <> new_references.s_admission_process_type) OR
267: (old_references.application_type IS NOT NULL AND old_references.application_type <> new_references.application_type )) THEN
268: --raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(2538));
269: FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_ADMPRC_CAT_NOTALLO');
270: IGS_GE_MSG_STACK.ADD;
271: APP_EXCEPTION.RAISE_EXCEPTION;
272: END IF;
273: --
273: --
274: -- Cannot update the Choice Number for UK Profile.
275: --
276: IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE') = 'GB' AND (old_references.choice_number <> new_references.choice_number) THEN
277: FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_CH_NUM');
278: IGS_GE_MSG_STACK.ADD;
279: APP_EXCEPTION.RAISE_EXCEPTION;
280: END IF;
281: --
281: --
282: -- Cannot update the Choice Number for Alternate Application ID for UK Profile.
283: --
284: IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE') = 'GB' AND (old_references.alt_appl_id <> new_references.alt_appl_id) THEN
285: FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_ALT_APPL_ID');
286: IGS_GE_MSG_STACK.ADD;
287: APP_EXCEPTION.RAISE_EXCEPTION;
288: END IF;
289:
295: IF IGS_AD_VAL_AA.admp_val_aa_delete (
296: old_references.adm_appl_status,
297: v_message_name) = FALSE THEN
298: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
299: FND_MESSAGE.SET_NAME('IGS',v_message_name);
300: IGS_GE_MSG_STACK.ADD;
301: APP_EXCEPTION.RAISE_EXCEPTION;
302: END IF;
303: END IF; -- p_deleting.
310: IF IGS_AD_VAL_AA.admp_val_aa_appl_dt (
311: new_references.appl_dt,
312: v_message_name) = FALSE THEN
313: --raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
314: FND_MESSAGE.SET_NAME('IGS',v_message_name);
315: IGS_GE_MSG_STACK.ADD;
316: APP_EXCEPTION.RAISE_EXCEPTION;
317: END IF;
318: END IF;
328: new_references.admission_appl_number,
329: new_references.adm_appl_status,
330: v_message_name) = FALSE THEN
331: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
332: FND_MESSAGE.SET_NAME('IGS',v_message_name);
333: IGS_GE_MSG_STACK.ADD;
334: APP_EXCEPTION.RAISE_EXCEPTION;
335: END IF;
336: END IF;
348: v_fees_required_ind,
349: v_cond_offer_fee_allowed_ind,
350: v_message_name) = FALSE THEN
351: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
352: FND_MESSAGE.SET_NAME('IGS',v_message_name);
353: IGS_GE_MSG_STACK.ADD;
354: APP_EXCEPTION.RAISE_EXCEPTION;
355: END IF;
356: END IF;
369: v_message_name,
370: v_return_type) = FALSE THEN
371: IF NVL(v_return_type, '-1') = cst_error THEN
372: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
373: FND_MESSAGE.SET_NAME('IGS',v_message_name);
374: IGS_GE_MSG_STACK.ADD;
375: APP_EXCEPTION.RAISE_EXCEPTION;
376: END IF;
377: END IF;
385: THEN
386: IF new_references.appl_fee_amt < 0 OR
387: new_references.appl_fee_amt IS NULL THEN
388:
389: FND_MESSAGE.SET_NAME('IGS','IGS_AD_FEE_AMT_NON_NEGATIVE');
390: IGS_GE_MSG_STACK.ADD;
391: APP_EXCEPTION.RAISE_EXCEPTION;
392: END IF;
393: END IF;
443: old_references.person_id,
444: old_references.admission_appl_number,
445: v_message_name) = FALSE THEN
446: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
447: FND_MESSAGE.SET_NAME('IGS',v_message_name);
448: IGS_GE_MSG_STACK.ADD;
449: APP_EXCEPTION.RAISE_EXCEPTION;
450: END IF;
451: END IF;
471: new_references.adm_ci_sequence_number,
472: new_references.acad_cal_type,
473: new_references.acad_ci_sequence_number
474: )THEN
475: FND_MESSAGE.SET_NAME('IGS','IGS_AD_ACACAL_ADMCAL_NOTEXIST');
476: IGS_GE_MSG_STACK.ADD;
477: APP_EXCEPTION.RAISE_EXCEPTION;
478: END IF;
479: END IF;
484: ELSE
485: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
486: new_references.person_id
487: )THEN
488: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
489: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PERSON'));
490: IGS_GE_MSG_STACK.ADD;
491: APP_EXCEPTION.RAISE_EXCEPTION;
492: END IF;
485: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
486: new_references.person_id
487: )THEN
488: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
489: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_PERSON'));
490: IGS_GE_MSG_STACK.ADD;
491: APP_EXCEPTION.RAISE_EXCEPTION;
492: END IF;
493: END IF;
498: ELSE
499: IF NOT IGS_AD_SS_APPL_TYP_PKG.Get_PK_For_Validation (
500: new_references.application_type,'N'
501: )THEN
502: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
503: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_TYPE'));
504: APP_EXCEPTION.RAISE_EXCEPTION;
505: END IF;
506: END IF;
499: IF NOT IGS_AD_SS_APPL_TYP_PKG.Get_PK_For_Validation (
500: new_references.application_type,'N'
501: )THEN
502: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
503: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_TYPE'));
504: APP_EXCEPTION.RAISE_EXCEPTION;
505: END IF;
506: END IF;
507:
512: ELSE
513: IF NOT IGS_AD_APPL_STAT_PKG.Get_PK_For_Validation (
514: new_references.adm_appl_status ,'N'
515: )THEN
516: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
517: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
518: IGS_GE_MSG_STACK.ADD;
519: APP_EXCEPTION.RAISE_EXCEPTION;
520: END IF;
513: IF NOT IGS_AD_APPL_STAT_PKG.Get_PK_For_Validation (
514: new_references.adm_appl_status ,'N'
515: )THEN
516: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
517: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
518: IGS_GE_MSG_STACK.ADD;
519: APP_EXCEPTION.RAISE_EXCEPTION;
520: END IF;
521: END IF;
526: ELSE
527: IF NOT IGS_AD_FEE_STAT_PKG.Get_PK_For_Validation (
528: new_references.adm_fee_status , 'N'
529: )THEN
530: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
531: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
532: IGS_GE_MSG_STACK.ADD;
533: APP_EXCEPTION.RAISE_EXCEPTION;
534: END IF;
527: IF NOT IGS_AD_FEE_STAT_PKG.Get_PK_For_Validation (
528: new_references.adm_fee_status , 'N'
529: )THEN
530: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
531: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
532: IGS_GE_MSG_STACK.ADD;
533: APP_EXCEPTION.RAISE_EXCEPTION;
534: END IF;
535: END IF;
550: new_references.admission_cat,
551: new_references.s_admission_process_type ,
552: 'N'
553: )THEN
554: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
555: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT_ADM_CAL'));
556: IGS_GE_MSG_STACK.ADD;
557: APP_EXCEPTION.RAISE_EXCEPTION;
558: END IF;
551: new_references.s_admission_process_type ,
552: 'N'
553: )THEN
554: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
555: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT_ADM_CAL'));
556: IGS_GE_MSG_STACK.ADD;
557: APP_EXCEPTION.RAISE_EXCEPTION;
558: END IF;
559: END IF;
568: new_references.admission_cat,
569: new_references.s_admission_process_type ,
570: 'N'
571: )THEN
572: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
573: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
574: IGS_GE_MSG_STACK.ADD;
575: APP_EXCEPTION.RAISE_EXCEPTION;
576: END IF;
569: new_references.s_admission_process_type ,
570: 'N'
571: )THEN
572: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
573: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
574: IGS_GE_MSG_STACK.ADD;
575: APP_EXCEPTION.RAISE_EXCEPTION;
576: END IF;
577: END IF;
576: END IF;
577: END IF;
578:
579: IF new_references.spcl_grp_1 IS NOT NULL AND NOT igs_ad_code_classes_pkg.Get_PK_For_Validation(new_references.spcl_grp_1,'N') THEN
580: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
581: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_GRP'));
582: IGS_GE_MSG_STACK.ADD;
583: APP_EXCEPTION.RAISE_EXCEPTION;
584: END IF;
577: END IF;
578:
579: IF new_references.spcl_grp_1 IS NOT NULL AND NOT igs_ad_code_classes_pkg.Get_PK_For_Validation(new_references.spcl_grp_1,'N') THEN
580: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
581: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_GRP'));
582: IGS_GE_MSG_STACK.ADD;
583: APP_EXCEPTION.RAISE_EXCEPTION;
584: END IF;
585: IF new_references.spcl_grp_1 IS NOT NULL AND NOT igs_ad_code_classes_pkg.Get_PK_For_Validation(new_references.spcl_grp_1,'N') THEN
582: IGS_GE_MSG_STACK.ADD;
583: APP_EXCEPTION.RAISE_EXCEPTION;
584: END IF;
585: IF new_references.spcl_grp_1 IS NOT NULL AND NOT igs_ad_code_classes_pkg.Get_PK_For_Validation(new_references.spcl_grp_1,'N') THEN
586: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
587: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_GRP'));
588: IGS_GE_MSG_STACK.ADD;
589: APP_EXCEPTION.RAISE_EXCEPTION;
590: END IF;
583: APP_EXCEPTION.RAISE_EXCEPTION;
584: END IF;
585: IF new_references.spcl_grp_1 IS NOT NULL AND NOT igs_ad_code_classes_pkg.Get_PK_For_Validation(new_references.spcl_grp_1,'N') THEN
586: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
587: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_GRP'));
588: IGS_GE_MSG_STACK.ADD;
589: APP_EXCEPTION.RAISE_EXCEPTION;
590: END IF;
591:
687: Open cur_rowid;
688: Fetch cur_rowid INTO lv_rowid;
689: IF (cur_rowid%FOUND) THEN
690: Close cur_rowid;
691: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_SSAT_FK');
692: IGS_GE_MSG_STACK.ADD;
693: App_Exception.Raise_Exception;
694: Return;
695: END IF;
718: Open cur_rowid;
719: Fetch cur_rowid INTO lv_rowid;
720: IF (cur_rowid%FOUND) THEN
721: Close cur_rowid;
722: Fnd_Message.Set_Name ('IGS', 'IGS_CA_AA_CIR_FK');
723: IGS_GE_MSG_STACK.ADD;
724: App_Exception.Raise_Exception;
725: Return;
726: END IF;
744: Open cur_rowid;
745: Fetch cur_rowid INTO lv_rowid;
746: IF (cur_rowid%FOUND) THEN
747: Close cur_rowid;
748: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_PE_FK');
749: IGS_GE_MSG_STACK.ADD;
750: App_Exception.Raise_Exception;
751: Return;
752: END IF;
770: Open cur_rowid;
771: Fetch cur_rowid INTO lv_rowid;
772: IF (cur_rowid%FOUND) THEN
773: Close cur_rowid;
774: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_AAS_FK');
775: IGS_GE_MSG_STACK.ADD;
776: App_Exception.Raise_Exception;
777: Return;
778: END IF;
796: Open cur_rowid;
797: Fetch cur_rowid INTO lv_rowid;
798: IF (cur_rowid%FOUND) THEN
799: Close cur_rowid;
800: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_AFS_FK');
801: IGS_GE_MSG_STACK.ADD;
802: App_Exception.Raise_Exception;
803: Return;
804: END IF;
828: Open cur_rowid;
829: Fetch cur_rowid INTO lv_rowid;
830: IF (cur_rowid%FOUND) THEN
831: Close cur_rowid;
832: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_APAPC_FK');
833: IGS_GE_MSG_STACK.ADD;
834: App_Exception.Raise_Exception;
835: Return;
836: END IF;
856: Open cur_rowid;
857: Fetch cur_rowid INTO lv_rowid;
858: IF (cur_rowid%FOUND) THEN
859: Close cur_rowid;
860: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_APC_FK');
861: IGS_GE_MSG_STACK.ADD;
862: App_Exception.Raise_Exception;
863: Return;
864: END IF;
888: Open cur_rowid1;
889: Fetch cur_rowid1 INTO lv_rowid;
890: IF (cur_rowid1%FOUND) THEN
891: Close cur_rowid1;
892: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AA_ACDC_FK1');
893: IGS_GE_MSG_STACK.ADD;
894: App_Exception.Raise_Exception;
895: Return;
896: END IF;
930: END IF;
931:
932: IF upper(column_name) = 'ADMISSION_APPL_NUMBER' OR column_name IS NULL THEN
933: IF new_references.admission_appl_number < 0 OR new_references.admission_appl_number > 99 THEN
934: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
935: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_APPL_NO'));
936: IGS_GE_MSG_STACK.ADD;
937: APP_EXCEPTION.RAISE_EXCEPTION;
938: END IF;
931:
932: IF upper(column_name) = 'ADMISSION_APPL_NUMBER' OR column_name IS NULL THEN
933: IF new_references.admission_appl_number < 0 OR new_references.admission_appl_number > 99 THEN
934: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
935: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_APPL_NO'));
936: IGS_GE_MSG_STACK.ADD;
937: APP_EXCEPTION.RAISE_EXCEPTION;
938: END IF;
939: END IF;
938: END IF;
939: END IF;
940: IF upper(column_name) = 'ACAD_CI_SEQUENCE_NUMBER' OR column_name IS NULL THEN
941: IF new_references.acad_ci_sequence_number < 1 OR new_references.acad_ci_sequence_number > 999999 THEN
942: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
943: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
944: IGS_GE_MSG_STACK.ADD;
945: APP_EXCEPTION.RAISE_EXCEPTION;
946: END IF;
939: END IF;
940: IF upper(column_name) = 'ACAD_CI_SEQUENCE_NUMBER' OR column_name IS NULL THEN
941: IF new_references.acad_ci_sequence_number < 1 OR new_references.acad_ci_sequence_number > 999999 THEN
942: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
943: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
944: IGS_GE_MSG_STACK.ADD;
945: APP_EXCEPTION.RAISE_EXCEPTION;
946: END IF;
947: END IF;
946: END IF;
947: END IF;
948: IF upper(column_name) = 'ADM_CI_SEQUENCE_NUMBER' OR column_name IS NULL THEN
949: IF (new_references.adm_ci_sequence_number < 1 OR new_references.adm_ci_sequence_number > 999999) THEN
950: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
951: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
952: IGS_GE_MSG_STACK.ADD;
953: APP_EXCEPTION.RAISE_EXCEPTION;
954: END IF;
947: END IF;
948: IF upper(column_name) = 'ADM_CI_SEQUENCE_NUMBER' OR column_name IS NULL THEN
949: IF (new_references.adm_ci_sequence_number < 1 OR new_references.adm_ci_sequence_number > 999999) THEN
950: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
951: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
952: IGS_GE_MSG_STACK.ADD;
953: APP_EXCEPTION.RAISE_EXCEPTION;
954: END IF;
955: END IF;
954: END IF;
955: END IF;
956: IF upper(column_name) = 'TAC_APPL_IND' OR column_name IS NULL THEN
957: IF new_references.tac_appl_ind NOT IN ('Y','N') THEN
958: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
959: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_TAC_APPL_IND'));
960: IGS_GE_MSG_STACK.ADD;
961: APP_EXCEPTION.RAISE_EXCEPTION;
962: END IF;
955: END IF;
956: IF upper(column_name) = 'TAC_APPL_IND' OR column_name IS NULL THEN
957: IF new_references.tac_appl_ind NOT IN ('Y','N') THEN
958: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
959: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_TAC_APPL_IND'));
960: IGS_GE_MSG_STACK.ADD;
961: APP_EXCEPTION.RAISE_EXCEPTION;
962: END IF;
963: END IF;
962: END IF;
963: END IF;
964: IF upper(column_name) = 'APPLICATION_TYPE' OR column_name IS NULL THEN -- Added as part of Enh Bug 2599457
965: IF new_references.application_type IS NULL THEN
966: FND_MESSAGE.SET_NAME('IGS','IGS_AD_APPL_TYPE_NULL');
967: IGS_GE_MSG_STACK.ADD;
968: APP_EXCEPTION.RAISE_EXCEPTION;
969: END IF;
970: END IF;
969: END IF;
970: END IF;
971: IF upper(column_name) = 'ACAD_CAL_TYPE' OR column_name IS NULL THEN
972: IF new_references.acad_cal_type IS NULL THEN
973: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
974: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
975: IGS_GE_MSG_STACK.ADD;
976: APP_EXCEPTION.RAISE_EXCEPTION;
977: END IF;
970: END IF;
971: IF upper(column_name) = 'ACAD_CAL_TYPE' OR column_name IS NULL THEN
972: IF new_references.acad_cal_type IS NULL THEN
973: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
974: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ACAD_CAL'));
975: IGS_GE_MSG_STACK.ADD;
976: APP_EXCEPTION.RAISE_EXCEPTION;
977: END IF;
978: END IF;
977: END IF;
978: END IF;
979: IF upper(column_name) = 'ADMISSION_CAT' OR column_name IS NULL THEN
980: IF new_references.admission_cat IS NULL THEN
981: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
982: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
983: IGS_GE_MSG_STACK.ADD;
984: APP_EXCEPTION.RAISE_EXCEPTION;
985: END IF;
978: END IF;
979: IF upper(column_name) = 'ADMISSION_CAT' OR column_name IS NULL THEN
980: IF new_references.admission_cat IS NULL THEN
981: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
982: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
983: IGS_GE_MSG_STACK.ADD;
984: APP_EXCEPTION.RAISE_EXCEPTION;
985: END IF;
986: END IF;
985: END IF;
986: END IF;
987: IF upper(column_name) = 'ADM_APPL_STATUS' OR column_name IS NULL THEN
988: IF new_references.adm_appl_status IS NULL THEN
989: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
990: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
991: IGS_GE_MSG_STACK.ADD;
992: APP_EXCEPTION.RAISE_EXCEPTION;
993: END IF;
986: END IF;
987: IF upper(column_name) = 'ADM_APPL_STATUS' OR column_name IS NULL THEN
988: IF new_references.adm_appl_status IS NULL THEN
989: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
990: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_APPL_STATUS'));
991: IGS_GE_MSG_STACK.ADD;
992: APP_EXCEPTION.RAISE_EXCEPTION;
993: END IF;
994: END IF;
993: END IF;
994: END IF;
995: IF upper(column_name) = 'ADM_CAL_TYPE' OR column_name IS NULL THEN
996: IF new_references.adm_cal_type IS NULL THEN
997: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
998: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
999: IGS_GE_MSG_STACK.ADD;
1000: APP_EXCEPTION.RAISE_EXCEPTION;
1001: END IF;
994: END IF;
995: IF upper(column_name) = 'ADM_CAL_TYPE' OR column_name IS NULL THEN
996: IF new_references.adm_cal_type IS NULL THEN
997: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
998: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_CAL'));
999: IGS_GE_MSG_STACK.ADD;
1000: APP_EXCEPTION.RAISE_EXCEPTION;
1001: END IF;
1002: END IF;
1001: END IF;
1002: END IF;
1003: IF upper(column_name) = 'ADM_FEE_STATUS' OR column_name IS NULL THEN
1004: IF new_references.adm_fee_status IS NULL THEN
1005: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1006: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
1007: IGS_GE_MSG_STACK.ADD;
1008: APP_EXCEPTION.RAISE_EXCEPTION;
1009: END IF;
1002: END IF;
1003: IF upper(column_name) = 'ADM_FEE_STATUS' OR column_name IS NULL THEN
1004: IF new_references.adm_fee_status IS NULL THEN
1005: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1006: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_FEE_STATUS'));
1007: IGS_GE_MSG_STACK.ADD;
1008: APP_EXCEPTION.RAISE_EXCEPTION;
1009: END IF;
1010: END IF;
1009: END IF;
1010: END IF;
1011: IF upper(column_name) = 'S_ADMISSION_PROCESS_TYPE' OR column_name IS NULL THEN
1012: IF new_references.s_admission_process_type IS NULL THEN
1013: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1014: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
1015: IGS_GE_MSG_STACK.ADD;
1016: APP_EXCEPTION.RAISE_EXCEPTION;
1017: END IF;
1010: END IF;
1011: IF upper(column_name) = 'S_ADMISSION_PROCESS_TYPE' OR column_name IS NULL THEN
1012: IF new_references.s_admission_process_type IS NULL THEN
1013: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1014: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ADM_PRCS_CAT'));
1015: IGS_GE_MSG_STACK.ADD;
1016: APP_EXCEPTION.RAISE_EXCEPTION;
1017: END IF;
1018: END IF;
1016: APP_EXCEPTION.RAISE_EXCEPTION;
1017: END IF;
1018: END IF;
1019: IF new_references.Common_app IS NOT NULL AND new_references.common_app NOT IN ('Y','N') THEN
1020: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1021: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_COM_APP'));
1022: IGS_GE_MSG_STACK.ADD;
1023: APP_EXCEPTION.RAISE_EXCEPTION;
1024: END IF;
1017: END IF;
1018: END IF;
1019: IF new_references.Common_app IS NOT NULL AND new_references.common_app NOT IN ('Y','N') THEN
1020: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
1021: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_COM_APP'));
1022: IGS_GE_MSG_STACK.ADD;
1023: APP_EXCEPTION.RAISE_EXCEPTION;
1024: END IF;
1025:
1107: IF GET_PK_FOR_VALIDATION(
1108: new_references.person_id,
1109: new_references.admission_appl_number
1110: )THEN
1111: FND_MESSAGE.SET_NAME('IGS','IGS_GE_MULTI_ORG_DUP_REC');
1112: IGS_GE_MSG_STACK.ADD;
1113: APP_EXCEPTION.RAISE_EXCEPTION;
1114: END IF;
1115: Check_Constraints;
1134: IF GET_PK_FOR_VALIDATION(
1135: new_references.person_id,
1136: new_references.admission_appl_number
1137: )THEN
1138: FND_MESSAGE.SET_NAME('IGS','IGS_GE_MULTI_ORG_DUP_REC');
1139: IGS_GE_MSG_STACK.ADD;
1140: APP_EXCEPTION.RAISE_EXCEPTION;
1141: END IF;
1142: Check_Constraints;
1263: else
1264: X_PROGRAM_UPDATE_DATE := SYSDATE;
1265: end if;
1266: else
1267: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1268: IGS_GE_MSG_STACK.ADD;
1269: app_exception.raise_exception;
1270: end if;
1271:
1394: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1395: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1396: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1397: -- that the ownerof policy function does not have privilege to access.
1398: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1399: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1400: IGS_GE_MSG_STACK.ADD;
1401: app_exception.raise_exception;
1402: ELSE
1395: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1396: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1397: -- that the ownerof policy function does not have privilege to access.
1398: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1399: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1400: IGS_GE_MSG_STACK.ADD;
1401: app_exception.raise_exception;
1402: ELSE
1403: RAISE;
1455: open c1;
1456: fetch c1 into tlinfo;
1457: if (c1%notfound) then
1458: close c1;
1459: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1460: IGS_GE_MSG_STACK.ADD;
1461: app_exception.raise_exception;
1462: return;
1463: end if;
1499: AND (x_appl_fee_amt IS NULL)))
1500: ) THEN
1501: NULL;
1502: ELSE
1503: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
1504: IGS_GE_MSG_STACK.ADD;
1505: APP_EXCEPTION.RAISE_EXCEPTION;
1506: end if;
1507: return;
1552: if X_LAST_UPDATE_LOGIN is NULL then
1553: X_LAST_UPDATE_LOGIN := -1;
1554: end if;
1555: else
1556: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1557: IGS_GE_MSG_STACK.ADD;
1558: app_exception.raise_exception;
1559: end if;
1560: Before_DML (
1628: appl_fee_amt = new_references.appl_fee_amt
1629: where ROWID = X_ROWID
1630: ;
1631: if (sql%notfound) then
1632: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1633: igs_ge_msg_stack.add;
1634: IF (x_mode = 'S') THEN
1635: igs_sc_gen_001.unset_ctx('R');
1636: END IF;
1654: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1655: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1656: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1657: -- that the ownerof policy function does not have privilege to access.
1658: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1659: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1660: IGS_GE_MSG_STACK.ADD;
1661: app_exception.raise_exception;
1662: ELSE
1655: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1656: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1657: -- that the ownerof policy function does not have privilege to access.
1658: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1659: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1660: IGS_GE_MSG_STACK.ADD;
1661: app_exception.raise_exception;
1662: ELSE
1663: RAISE;
1767: END IF;
1768: delete from IGS_AD_APPL_ALL
1769: where ROWID = X_ROWID;
1770: if (sql%notfound) then
1771: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1772: igs_ge_msg_stack.add;
1773: IF (x_mode = 'S') THEN
1774: igs_sc_gen_001.unset_ctx('R');
1775: END IF;
1793: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
1794: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1795: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1796: -- that the ownerof policy function does not have privilege to access.
1797: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1798: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1799: IGS_GE_MSG_STACK.ADD;
1800: app_exception.raise_exception;
1801: ELSE
1794: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
1795: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
1796: -- that the ownerof policy function does not have privilege to access.
1797: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1798: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
1799: IGS_GE_MSG_STACK.ADD;
1800: app_exception.raise_exception;
1801: ELSE
1802: RAISE;