[Home] [Help]
35: sommukhe 27-SEP-2005 BUG #4632652.FND logging included.
36: smvk 28-Jul-2004 Bug # 3793580. Allowing the user to import instructors for No Set Day USO.
37: Coded to call procedure get_uso_id to get USO ID. Removed cursors used to derive USO id.
38: smvk 07-Nov-2003 Bug # 3138353. Added new procedure validate_unit_dtls to do unit level cross subprocesses validation.
39: smvk 10-Oct-2003 Bug # 3052445. Modified the signature of igs_ps_validate_lgcy_pkg.validate_waitlist_allowed without org unit code.
40: smvk 23-Sep-2003 Bug # 3121311, Removed the call to procedures uso_effective_dates and validate_instructor.
41: sarakshi 02-sep-2003 Enh#3052452,removed the reference of the column sup_unit_allowed_ind and sub_unit_allowed_ind
42: vvutukur 05-Aug-2003 Enh#3045069.PSP Enh Build. Modified trim_values,create_uoo,validate_uoo_db_cons,
43: validate_derivations,validate_db_cons.
219:
220: --Validate all mandatory parameter,which are required for subprocess to continue
221:
222: IF p_unit_ver_rec.unit_cd IS NULL THEN
223: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
224: p_unit_ver_rec.status:='E';
225: END IF;
226:
227: IF p_unit_ver_rec.version_number IS NULL THEN
224: p_unit_ver_rec.status:='E';
225: END IF;
226:
227: IF p_unit_ver_rec.version_number IS NULL THEN
228: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
229: p_unit_ver_rec.status:='E';
230: END IF;
231:
232: IF p_unit_ver_rec.start_dt IS NULL THEN
229: p_unit_ver_rec.status:='E';
230: END IF;
231:
232: IF p_unit_ver_rec.start_dt IS NULL THEN
233: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_START_DATE','LEGACY_TOKENS',FALSE);
234: p_unit_ver_rec.status:='E';
235: END IF;
236:
237: IF p_unit_ver_rec.unit_status IS NULL THEN
234: p_unit_ver_rec.status:='E';
235: END IF;
236:
237: IF p_unit_ver_rec.unit_status IS NULL THEN
238: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_STATUS','LEGACY_TOKENS',FALSE);
239: p_unit_ver_rec.status:='E';
240: END IF;
241:
242: IF p_unit_ver_rec.title IS NULL THEN
239: p_unit_ver_rec.status:='E';
240: END IF;
241:
242: IF p_unit_ver_rec.title IS NULL THEN
243: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TITLE','LEGACY_TOKENS',FALSE);
244: p_unit_ver_rec.status:='E';
245: END IF;
246:
247: IF p_unit_ver_rec.short_title IS NULL THEN
244: p_unit_ver_rec.status:='E';
245: END IF;
246:
247: IF p_unit_ver_rec.short_title IS NULL THEN
248: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','SHORT_TITLE','LEGACY_TOKENS',FALSE);
249: p_unit_ver_rec.status:='E';
250: END IF;
251:
252: IF p_unit_ver_rec.credit_point_descriptor IS NULL THEN
249: p_unit_ver_rec.status:='E';
250: END IF;
251:
252: IF p_unit_ver_rec.credit_point_descriptor IS NULL THEN
253: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','CREDIT_POINT_DESCRIPTOR','LEGACY_TOKENS',FALSE);
254: p_unit_ver_rec.status:='E';
255: END IF;
256:
257: IF p_unit_ver_rec.enrolled_credit_points IS NULL THEN
254: p_unit_ver_rec.status:='E';
255: END IF;
256:
257: IF p_unit_ver_rec.enrolled_credit_points IS NULL THEN
258: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ENROL_CREDIT_PTS','LEGACY_TOKENS',FALSE);
259: p_unit_ver_rec.status:='E';
260: END IF;
261:
262: IF p_unit_ver_rec.unit_level IS NULL THEN
259: p_unit_ver_rec.status:='E';
260: END IF;
261:
262: IF p_unit_ver_rec.unit_level IS NULL THEN
263: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_LEVEL','LEGACY_TOKENS',FALSE);
264: p_unit_ver_rec.status:='E';
265: END IF;
266:
267: IF p_unit_ver_rec.coord_person_number IS NULL THEN
264: p_unit_ver_rec.status:='E';
265: END IF;
266:
267: IF p_unit_ver_rec.coord_person_number IS NULL THEN
268: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','CORD_PERSON_NUM','LEGACY_TOKENS',FALSE);
269: p_unit_ver_rec.status:='E';
270: END IF;
271:
272: IF p_unit_ver_rec.owner_org_unit_cd IS NULL THEN
269: p_unit_ver_rec.status:='E';
270: END IF;
271:
272: IF p_unit_ver_rec.owner_org_unit_cd IS NULL THEN
273: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','OWNER_ORG_UNIT_CD','LEGACY_TOKENS',FALSE);
274: p_unit_ver_rec.status:='E';
275: END IF;
276:
277: IF p_unit_ver_rec.curriculum_id IS NULL AND
276:
277: IF p_unit_ver_rec.curriculum_id IS NULL AND
278: p_unit_ver_rec.curriculum_description IS NOT NULL AND
279: FND_PROFILE.VALUE('IGS_PS_CURRICULUM_ID')= 'Y' THEN
280: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','CURRICULUM_ID','LEGACY_TOKENS',FALSE);
281: p_unit_ver_rec.status:='E';
282: END IF;
283:
284: --This validation is added as a part of bug#2702240
282: END IF;
283:
284: --This validation is added as a part of bug#2702240
285: IF p_unit_ver_rec.level_code IS NULL THEN
286: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','LEVEL_CODE','LEGACY_TOKENS',FALSE);
287: p_unit_ver_rec.status:='E';
288: END IF;
289:
290: END validate_parameters;
304: vvutukur 10-Aug-2003 Enh#3045069.PSP Enh Build.Assigned initial value 'X' for repeatable_ind instead of 'N'.
305: sarakshi 11-Dec-2002 Bug#2702240,derived values for state_financail_aid,federal_financial_aid,
306: institutional_financial_aid,same_teaching_period,exclude_from_cp_limit,
307: record_exclusion_flag,ss_display_ind,special_permission_ind
308: smvk 26-Dec-2002 Bug # 2721495. Calling the procedure igs_ps_validate_lgcy_pkg.get_party_id
309: instead of function igs_ge_gen_003.get_person_id to derive the person id.
310: ***********************************************************************************************/
311: CURSOR c_unit_lvl(cp_level_code igs_ps_unit_type_lvl.level_code%TYPE) IS
312: SELECT unit_type_id
452: OPEN c_repeat_code(p_unit_ver_rec.repeat_code);
453: FETCH c_repeat_code INTO l_n_rpt_fmly_id;
454: CLOSE c_repeat_code;
455:
456: igs_ps_validate_lgcy_pkg.get_party_id(p_unit_ver_rec.coord_person_number,l_n_coord_person_id);
457: IF l_n_coord_person_id IS NULL THEN
458: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','CORD_PERSON_NUM','LEGACY_TOKENS',FALSE);
459: p_unit_ver_rec.status:='E';
460: END IF;
454: CLOSE c_repeat_code;
455:
456: igs_ps_validate_lgcy_pkg.get_party_id(p_unit_ver_rec.coord_person_number,l_n_coord_person_id);
457: IF l_n_coord_person_id IS NULL THEN
458: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','CORD_PERSON_NUM','LEGACY_TOKENS',FALSE);
459: p_unit_ver_rec.status:='E';
460: END IF;
461:
462: --derive cal type and seq number for enrol load alternate code
468: l_d_start_date,
469: l_d_end_date,
470: l_b_ret_status);
471: IF l_b_ret_status <> 'SINGLE' THEN
472: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','ENROL_ALT_CODE','LEGACY_TOKENS',FALSE);
473: p_unit_ver_rec.status:='E';
474: END IF;
475: END IF;
476:
483: l_d_start_date,
484: l_d_end_date,
485: l_b_ret_status);
486: IF l_b_ret_status <> 'SINGLE' THEN
487: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','OFFER_ALT_CODE','LEGACY_TOKENS',FALSE);
488: p_unit_ver_rec.status:='E';
489: END IF;
490: END IF;
491:
490: END IF;
491:
492: --Derive the owner org unit start date
493: IF NOT igs_re_val_rsup.get_org_unit_dtls(p_unit_ver_rec.owner_org_unit_cd,l_d_owner_ou_start_dt) THEN
494: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','OWNER_ORG_UNIT_CD','LEGACY_TOKENS',FALSE);
495: p_unit_ver_rec.status:='E';
496: END IF;
497:
498:
559: BEGIN
560: --Check for Pk validations
561: IF igs_ps_unit_ver_pkg.get_pk_for_validation(p_unit_ver_rec.unit_cd,
562: p_unit_ver_rec.version_number) THEN
563: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS','UNIT_VERSION','LEGACY_TOKENS',FALSE);
564: p_unit_ver_rec.status:='W';
565: RETURN;
566: END IF;
567:
566: END IF;
567:
568: IF FND_PROFILE.VALUE('IGS_PS_CURRICULUM_ID')= 'Y' AND p_unit_ver_rec.curriculum_description IS NOT NULL THEN
569: IF igs_ps_unt_crclm_pkg.get_pk_for_validation(p_unit_ver_rec.curriculum_id) THEN
570: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS','CURRICULUM_ID','LEGACY_TOKENS',FALSE);
571: p_unit_ver_rec.status:='W';
572: RETURN;
573: END IF;
574: END IF;
576: --Check UK for validations
577: IF igs_ps_unit_subtitle_pkg.get_uk_for_validation(p_unit_ver_rec.unit_cd,
578: p_unit_ver_rec.version_number,
579: p_unit_ver_rec.subtitle) THEN
580: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS','SUBTITLE','LEGACY_TOKENS',FALSE);
581: p_unit_ver_rec.status:='W';
582: RETURN;
583: END IF;
584:
586: BEGIN
587: igs_ps_unit_ver_pkg.check_constraints('UNIT_CD',p_unit_ver_rec.unit_cd);
588: EXCEPTION
589: WHEN OTHERS THEN
590: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_CD','LEGACY_TOKENS',TRUE);
591: p_unit_ver_rec.status :='E';
592: END;
593:
594: BEGIN
594: BEGIN
595: igs_ps_unit_ver_pkg.check_constraints('ABBREVIATION',p_unit_ver_rec.abbreviation);
596: EXCEPTION
597: WHEN OTHERS THEN
598: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','ABBREVIATION','LEGACY_TOKENS',TRUE);
599: p_unit_ver_rec.status :='E';
600: END;
601:
602: BEGIN
602: BEGIN
603: igs_ps_unit_ver_pkg.check_constraints('ASSESSABLE_IND',p_unit_ver_rec.assessable_ind);
604: EXCEPTION
605: WHEN OTHERS THEN
606: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','ASSESSABLE_IND','LEGACY_TOKENS',TRUE);
607: p_unit_ver_rec.status :='E';
608: END;
609:
610: BEGIN
610: BEGIN
611: igs_ps_unit_ver_pkg.check_constraints('AWARD_COURSE_ONLY_IND',p_unit_ver_rec.award_course_only_ind);
612: EXCEPTION
613: WHEN OTHERS THEN
614: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','AWARD_COURSE_ONLY_IND','LEGACY_TOKENS',TRUE);
615: p_unit_ver_rec.status :='E';
616: END;
617:
618: BEGIN
618: BEGIN
619: igs_ps_unit_ver_pkg.check_constraints('CREDIT_POINT_DESCRIPTOR',p_unit_ver_rec.credit_point_descriptor);
620: EXCEPTION
621: WHEN OTHERS THEN
622: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','CREDIT_POINT_DESCRIPTOR','LEGACY_TOKENS',TRUE);
623: p_unit_ver_rec.status :='E';
624: END;
625:
626: BEGIN
626: BEGIN
627: igs_ps_unit_ver_pkg.check_constraints('INDUSTRIAL_IND',p_unit_ver_rec.industrial_ind);
628: EXCEPTION
629: WHEN OTHERS THEN
630: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','INDUSTRIAL_IND','LEGACY_TOKENS',TRUE);
631: p_unit_ver_rec.status :='E';
632: END;
633:
634: BEGIN
634: BEGIN
635: igs_ps_unit_ver_pkg.check_constraints('POINTS_OVERRIDE_IND',p_unit_ver_rec.points_override_ind);
636: EXCEPTION
637: WHEN OTHERS THEN
638: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','POINTS_OVERRIDE_IND','LEGACY_TOKENS',TRUE);
639: p_unit_ver_rec.status :='E';
640: END;
641:
642: BEGIN
642: BEGIN
643: igs_ps_unit_ver_pkg.check_constraints('PRACTICAL_IND',p_unit_ver_rec.practical_ind);
644: EXCEPTION
645: WHEN OTHERS THEN
646: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','PRACTICAL_IND','LEGACY_TOKENS',TRUE);
647: p_unit_ver_rec.status :='E';
648: END;
649:
650: BEGIN
650: BEGIN
651: igs_ps_unit_ver_pkg.check_constraints('REPEATABLE_IND',p_unit_ver_rec.repeatable_ind);
652: EXCEPTION
653: WHEN OTHERS THEN
654: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','REPEATABLE_IND','LEGACY_TOKENS',TRUE);
655: p_unit_ver_rec.status :='E';
656: END;
657:
658: BEGIN
658: BEGIN
659: igs_ps_unit_ver_pkg.check_constraints('RESEARCH_UNIT_IND',p_unit_ver_rec.research_unit_ind);
660: EXCEPTION
661: WHEN OTHERS THEN
662: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','RESEARCH_UNIT_IND','LEGACY_TOKENS',TRUE);
663: p_unit_ver_rec.status :='E';
664: END;
665:
666: BEGIN
666: BEGIN
667: igs_ps_unit_ver_pkg.check_constraints('SUPP_EXAM_PERMITTED_IND',p_unit_ver_rec.supp_exam_permitted_ind);
668: EXCEPTION
669: WHEN OTHERS THEN
670: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SUPP_EXAM_PERMITTED_IND','LEGACY_TOKENS',TRUE);
671: p_unit_ver_rec.status :='E';
672: END;
673:
674: BEGIN
674: BEGIN
675: igs_ps_unit_ver_pkg.check_constraints('TITLE_OVERRIDE_IND',p_unit_ver_rec.title_override_ind);
676: EXCEPTION
677: WHEN OTHERS THEN
678: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','TITLE_OVERRIDE_IND','LEGACY_TOKENS',TRUE);
679: p_unit_ver_rec.status :='E';
680: END;
681:
682: -----------------------------------Following checks are done as a part of bug#2702240---------------
684: BEGIN
685: igs_ps_unit_ver_pkg.check_constraints('STATE_FINANCIAL_AID',p_unit_ver_rec.state_financial_aid);
686: EXCEPTION
687: WHEN OTHERS THEN
688: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','STATE_FINANCIAL_AID','LEGACY_TOKENS',TRUE);
689: p_unit_ver_rec.status :='E';
690: END;
691:
692: BEGIN
692: BEGIN
693: igs_ps_unit_ver_pkg.check_constraints('FEDERAL_FINANCIAL_AID',p_unit_ver_rec.federal_financial_aid);
694: EXCEPTION
695: WHEN OTHERS THEN
696: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','FEDERAL_FINANCIAL_AID','LEGACY_TOKENS',TRUE);
697: p_unit_ver_rec.status :='E';
698: END;
699:
700: BEGIN
700: BEGIN
701: igs_ps_unit_ver_pkg.check_constraints('INSTITUTIONAL_FINANCIAL_AID',p_unit_ver_rec.institutional_financial_aid);
702: EXCEPTION
703: WHEN OTHERS THEN
704: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','INSTITUTIONAL_FINANCIAL_AID','LEGACY_TOKENS',TRUE);
705: p_unit_ver_rec.status :='E';
706: END;
707:
708: BEGIN
708: BEGIN
709: igs_ps_unit_ver_pkg.check_constraints('SAME_TEACHING_PERIOD',p_unit_ver_rec.same_teaching_period);
710: EXCEPTION
711: WHEN OTHERS THEN
712: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SAME_TEACHING_PERIOD','LEGACY_TOKENS',TRUE);
713: p_unit_ver_rec.status :='E';
714: END;
715:
716: BEGIN
716: BEGIN
717: igs_ps_unit_ver_pkg.check_constraints('EXCLUDE_FROM_MAX_CP_LIMIT',p_unit_ver_rec.exclude_from_max_cp_limit);
718: EXCEPTION
719: WHEN OTHERS THEN
720: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','EXCLUDE_FROM_MAX_CP_LIMIT','LEGACY_TOKENS',TRUE);
721: p_unit_ver_rec.status :='E';
722: END;
723:
724: BEGIN
724: BEGIN
725: igs_ps_unit_ver_pkg.check_constraints('RECORD_EXCLUSION_FLAG',p_unit_ver_rec.record_exclusion_flag);
726: EXCEPTION
727: WHEN OTHERS THEN
728: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','RECORD_EXCLUSION_FLAG','LEGACY_TOKENS',TRUE);
729: p_unit_ver_rec.status :='E';
730: END;
731:
732: BEGIN
732: BEGIN
733: igs_ps_unit_ver_pkg.check_constraints('SS_DISPLAY_IND',p_unit_ver_rec.ss_display_ind);
734: EXCEPTION
735: WHEN OTHERS THEN
736: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SS_DISPLAY_IND','LEGACY_TOKENS',TRUE);
737: p_unit_ver_rec.status :='E';
738: END;
739:
740: BEGIN
740: BEGIN
741: igs_ps_unit_ver_pkg.check_constraints('SPECIAL_PERMISSION_IND',p_unit_ver_rec.special_permission_ind);
742: EXCEPTION
743: WHEN OTHERS THEN
744: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SPECIAL_PERMISSION_IND','LEGACY_TOKENS',TRUE);
745: p_unit_ver_rec.status :='E';
746: END;
747:
748: --should not call the TBH chcek constraint as some other validation are also there
746: END;
747:
748: --should not call the TBH chcek constraint as some other validation are also there
749: IF p_unit_ver_rec.ivr_enrol_ind NOT IN ('Y','N') THEN
750: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','IVR_ENROL_IND','LEGACY_TOKENS',FALSE);
751: p_unit_ver_rec.status :='E';
752: END IF;
753:
754: --should not call the TBH chcek constraint as some other validation are also there
752: END IF;
753:
754: --should not call the TBH chcek constraint as some other validation are also there
755: IF p_unit_ver_rec.ss_enrol_ind NOT IN ('Y','N') THEN
756: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SS_ENROL_IND','LEGACY_TOKENS',FALSE);
757: p_unit_ver_rec.status :='E';
758: END IF;
759:
760: IF p_unit_ver_rec.subtitle_approved_ind NOT IN ('Y','N') THEN
757: p_unit_ver_rec.status :='E';
758: END IF;
759:
760: IF p_unit_ver_rec.subtitle_approved_ind NOT IN ('Y','N') THEN
761: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SUBTITLE_APPROVED_IND','LEGACY_TOKENS',FALSE);
762: p_unit_ver_rec.status :='E';
763: END IF;
764:
765: IF p_unit_ver_rec.subtitle_closed_ind NOT IN ('Y','N') THEN
762: p_unit_ver_rec.status :='E';
763: END IF;
764:
765: IF p_unit_ver_rec.subtitle_closed_ind NOT IN ('Y','N') THEN
766: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','SUBTITLE_CLOSED_IND','LEGACY_TOKENS',FALSE);
767: p_unit_ver_rec.status :='E';
768: END IF;
769:
770: IF p_unit_ver_rec.curriculum_closed_ind NOT IN ('Y','N') THEN
767: p_unit_ver_rec.status :='E';
768: END IF;
769:
770: IF p_unit_ver_rec.curriculum_closed_ind NOT IN ('Y','N') THEN
771: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','CURRICULUM_CLOSED_IND','LEGACY_TOKENS',FALSE);
772: p_unit_ver_rec.status :='E';
773: END IF;
774:
775:
776: BEGIN
777: igs_ps_unit_ver_pkg.check_constraints('ANON_UNIT_GRADING_IND',p_unit_ver_rec.anon_unit_grading_ind);
778: EXCEPTION
779: WHEN OTHERS THEN
780: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','ANON_UNIT_GRADING_IND','LEGACY_TOKENS',TRUE);
781: p_unit_ver_rec.status :='E';
782: END;
783:
784: BEGIN
784: BEGIN
785: igs_ps_unit_ver_pkg.check_constraints('ANON_ASSESS_GRADING_IND',p_unit_ver_rec.anon_assess_grading_ind);
786: EXCEPTION
787: WHEN OTHERS THEN
788: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','ANON_ASSESS_GRADING_IND','LEGACY_TOKENS',TRUE);
789: p_unit_ver_rec.status :='E';
790: END;
791:
792: BEGIN
792: BEGIN
793: igs_ps_unit_ver_pkg.check_constraints('AUDITABLE_IND',p_unit_ver_rec.auditable_ind);
794: EXCEPTION
795: WHEN OTHERS THEN
796: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','AUDITABLE_IND','LEGACY_TOKENS',TRUE);
797: p_unit_ver_rec.status :='E';
798: END;
799:
800: BEGIN
800: BEGIN
801: igs_ps_unit_ver_pkg.check_constraints('AUDIT_PERMISSION_IND',p_unit_ver_rec.audit_permission_ind);
802: EXCEPTION
803: WHEN OTHERS THEN
804: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','AUDIT_PERMISSION_IND','LEGACY_TOKENS',TRUE);
805: p_unit_ver_rec.status :='E';
806: END;
807: -----------------------------------------------------------------------------------------------------
808:
809: BEGIN
810: igs_ps_unit_ver_pkg.check_constraints('UNIT_INT_COURSE_LEVEL_CD',p_unit_ver_rec.unit_int_course_level_cd);
811: EXCEPTION
812: WHEN OTHERS THEN
813: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_INT_COURSE_LEVEL_CD','LEGACY_TOKENS',TRUE);
814: p_unit_ver_rec.status :='E';
815: END;
816:
817: BEGIN
817: BEGIN
818: igs_ps_unit_ver_pkg.check_constraints('UNIT_STATUS',p_unit_ver_rec.unit_status);
819: EXCEPTION
820: WHEN OTHERS THEN
821: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_STATUS','LEGACY_TOKENS',TRUE);
822: p_unit_ver_rec.status :='E';
823: END;
824:
825: BEGIN
825: BEGIN
826: igs_ps_unit_ver_pkg.check_constraints('UNIT_LEVEL',p_unit_ver_rec.unit_level);
827: EXCEPTION
828: WHEN OTHERS THEN
829: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_LEVEL','LEGACY_TOKENS',TRUE);
830: p_unit_ver_rec.status :='E';
831: END;
832:
833: BEGIN
833: BEGIN
834: igs_ps_unit_ver_pkg.check_constraints('ACHIEVABLE_CREDIT_POINTS',p_unit_ver_rec.achievable_credit_points);
835: EXCEPTION
836: WHEN OTHERS THEN
837: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ACHIEVABLE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
838: p_unit_ver_rec.status :='E';
839: END;
840:
841: BEGIN
841: BEGIN
842: igs_ps_unit_ver_pkg.check_constraints('POINTS_INCREMENT',p_unit_ver_rec.points_increment);
843: EXCEPTION
844: WHEN OTHERS THEN
845: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','POINTS_INCREMENT','LEGACY_TOKENS',TRUE);
846: p_unit_ver_rec.status :='E';
847: END;
848:
849: BEGIN
849: BEGIN
850: igs_ps_unit_ver_pkg.check_constraints('POINTS_MIN',p_unit_ver_rec.points_min);
851: EXCEPTION
852: WHEN OTHERS THEN
853: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','POINTS_MIN','LEGACY_TOKENS',TRUE);
854: p_unit_ver_rec.status :='E';
855: END;
856:
857: BEGIN
857: BEGIN
858: igs_ps_unit_ver_pkg.check_constraints('POINTS_MAX',p_unit_ver_rec.points_max);
859: EXCEPTION
860: WHEN OTHERS THEN
861: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','POINTS_MAX','LEGACY_TOKENS',TRUE);
862: p_unit_ver_rec.status :='E';
863: END;
864:
865: BEGIN
865: BEGIN
866: igs_ps_unit_ver_pkg.check_constraints('ENROLLED_CREDIT_POINTS',p_unit_ver_rec.enrolled_credit_points);
867: EXCEPTION
868: WHEN OTHERS THEN
869: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ENROLLED_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
870: p_unit_ver_rec.status :='E';
871: END;
872:
873: BEGIN
873: BEGIN
874: igs_ps_unit_ver_pkg.check_constraints('VERSION_NUMBER',p_unit_ver_rec.version_number);
875: EXCEPTION
876: WHEN OTHERS THEN
877: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VER_NUM_1_999',NULL,NULL,TRUE);
878: p_unit_ver_rec.status :='E';
879: END;
880:
881: IF p_unit_ver_rec.billing_credit_points IS NOT NULL THEN
882: BEGIN
883: igs_ps_unit_ver_pkg.check_constraints ( 'BILLING_CREDIT_POINTS', p_unit_ver_rec.billing_credit_points);
884: EXCEPTION
885: WHEN OTHERS THEN
886: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999', 'BILLING_CREDIT_POINTS', 'LEGACY_TOKENS', TRUE);
887: p_unit_ver_rec.status := 'E';
888: END;
889: END IF;
890:
890:
891:
892: --Fk validations
893: IF (NOT igs_ps_unit_stat_pkg.get_pk_for_validation(p_unit_ver_rec.unit_status)) THEN
894: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_STATUS','LEGACY_TOKENS',FALSE);
895: p_unit_ver_rec.status:='E';
896: END IF;
897:
898: IF l_n_rpt_fmly_id IS NOT NULL THEN
896: END IF;
897:
898: IF l_n_rpt_fmly_id IS NOT NULL THEN
899: IF (NOT igs_ps_rpt_fmly_pkg.get_pk_for_validation(l_n_rpt_fmly_id)) THEN
900: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_REPEAT','LEGACY_TOKENS',FALSE);
901: p_unit_ver_rec.status:='E';
902: END IF;
903: END IF;
904:
902: END IF;
903: END IF;
904:
905: IF (NOT igs_ps_unit_level_pkg.get_pk_for_validation(p_unit_ver_rec.unit_level)) THEN
906: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_LEVEL','LEGACY_TOKENS',FALSE);
907: p_unit_ver_rec.status:='E';
908: END IF;
909:
910: IF p_unit_ver_rec.unit_int_course_level_cd IS NOT NULL THEN
908: END IF;
909:
910: IF p_unit_ver_rec.unit_int_course_level_cd IS NOT NULL THEN
911: IF (NOT igs_ps_unit_int_lvl_pkg.get_pk_for_validation(p_unit_ver_rec.unit_int_course_level_cd)) THEN
912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_INT_COURSE_LEVEL_CD','LEGACY_TOKENS',FALSE);
913: p_unit_ver_rec.status:='E';
914: END IF;
915: END IF;
916:
915: END IF;
916:
917: IF p_unit_ver_rec.rev_account_cd IS NOT NULL THEN
918: IF (NOT igs_fi_acc_pkg.get_pk_for_validation(p_unit_ver_rec.rev_account_cd)) THEN
919: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','REV_ACC_CD','LEGACY_TOKENS',FALSE);
920: p_unit_ver_rec.status:='E';
921: END IF;
922: END IF;
923:
924: --Validating the credit point descriptor, bug#2702240
925: OPEN cur_credit_point_des(p_unit_ver_rec.credit_point_descriptor);
926: FETCH cur_credit_point_des INTO l_var;
927: IF cur_credit_point_des%NOTFOUND THEN
928: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','CREDIT_POINT_DESCRIPTOR','LEGACY_TOKENS',FALSE);
929: p_unit_ver_rec.status:='E';
930: END IF;
931:
932: --validating the level_code passed is a valid one
930: END IF;
931:
932: --validating the level_code passed is a valid one
933: IF l_n_unit_type_id IS NULL THEN
934: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','LEVEL_CODE','LEGACY_TOKENS',FALSE);
935: p_unit_ver_rec.status:='E';
936: END IF;
937:
938: -- Added as a part of 2702263
940: BEGIN
941: igs_ps_unit_ver_pkg.check_constraints('CLAIMABLE_HOURS',p_unit_ver_rec.claimable_hours);
942: EXCEPTION
943: WHEN OTHERS THEN
944: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','CLAIMABLE_HOURS','LEGACY_TOKENS',TRUE);
945: p_unit_ver_rec.status :='E';
946: END;
947: END IF;
948:
950: BEGIN
951: igs_ps_unit_ver_pkg.check_constraints('LECTURE_CREDIT_POINTS',p_unit_ver_rec.lecture_credit_points);
952: EXCEPTION
953: WHEN OTHERS THEN
954: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LECTURE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
955: p_unit_ver_rec.status :='E';
956: END;
957: END IF;
958:
960: BEGIN
961: igs_ps_unit_ver_pkg.check_constraints('LAB_CREDIT_POINTS',p_unit_ver_rec.lab_credit_points);
962: EXCEPTION
963: WHEN OTHERS THEN
964: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LAB_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
965: p_unit_ver_rec.status :='E';
966: END;
967: END IF;
968:
970: BEGIN
971: igs_ps_unit_ver_pkg.check_constraints('OTHER_CREDIT_POINTS',p_unit_ver_rec.other_credit_points);
972: EXCEPTION
973: WHEN OTHERS THEN
974: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','OTHER_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
975: p_unit_ver_rec.status :='E';
976: END;
977: END IF;
978:
980: BEGIN
981: igs_ps_unit_ver_pkg.check_constraints('CLOCK_HOURS',p_unit_ver_rec.clock_hours);
982: EXCEPTION
983: WHEN OTHERS THEN
984: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CLOCK_HOURS','LEGACY_TOKENS',TRUE);
985: p_unit_ver_rec.status :='E';
986: END;
987: END IF;
988:
990: BEGIN
991: igs_ps_unit_ver_pkg.check_constraints('CONTINUING_EDUCATION_UNITS',p_unit_ver_rec.continuing_education_units);
992: EXCEPTION
993: WHEN OTHERS THEN
994: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CONTINUING_EDUCATION_UNITS','LEGACY_TOKENS',TRUE);
995: p_unit_ver_rec.status :='E';
996: END;
997: END IF;
998:
1000: BEGIN
1001: igs_ps_unit_ver_pkg.check_constraints('ADVANCE_MAXIMUM',p_unit_ver_rec.advance_maximum);
1002: EXCEPTION
1003: WHEN OTHERS THEN
1004: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ADVANCE_MAXIMUM','LEGACY_TOKENS',TRUE);
1005: p_unit_ver_rec.status :='E';
1006: END;
1007: END IF;
1008:
1010: BEGIN
1011: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_EXPECTED',p_unit_ver_rec.enrollment_expected);
1012: EXCEPTION
1013: WHEN OTHERS THEN
1014: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_EXPECTED','LEGACY_TOKENS',TRUE);
1015: p_unit_ver_rec.status :='E';
1016: END;
1017: END IF;
1018:
1020: BEGIN
1021: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_MINIMUM',p_unit_ver_rec.enrollment_minimum);
1022: EXCEPTION
1023: WHEN OTHERS THEN
1024: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_MINIMUM','LEGACY_TOKENS',TRUE);
1025: p_unit_ver_rec.status :='E';
1026: END;
1027: END IF;
1028:
1030: BEGIN
1031: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_MAXIMUM',p_unit_ver_rec.enrollment_maximum);
1032: EXCEPTION
1033: WHEN OTHERS THEN
1034: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_MAXIMUM','LEGACY_TOKENS',TRUE);
1035: p_unit_ver_rec.status :='E';
1036: END;
1037: END IF;
1038:
1040: BEGIN
1041: igs_ps_unit_ver_pkg.check_constraints('OVERRIDE_ENROLLMENT_MAX',p_unit_ver_rec.override_enrollment_max);
1042: EXCEPTION
1043: WHEN OTHERS THEN
1044: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','OVERRIDE_ENROLLMENT_MAX','LEGACY_TOKENS',TRUE);
1045: p_unit_ver_rec.status :='E';
1046: END;
1047: END IF;
1048:
1050: BEGIN
1051: igs_ps_unit_ver_pkg.check_constraints('MAX_AUDITORS_ALLOWED',p_unit_ver_rec.max_auditors_allowed);
1052: EXCEPTION
1053: WHEN OTHERS THEN
1054: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999','MAX_AUDITORS_ALLOWED','LEGACY_TOKENS',TRUE);
1055: p_unit_ver_rec.status :='E';
1056: END;
1057: END IF;
1058:
1060: BEGIN
1061: igs_ps_unit_ver_pkg.check_constraints('WORK_LOAD_CP_LECTURE',p_unit_ver_rec.work_load_cp_lecture);
1062: EXCEPTION
1063: WHEN OTHERS THEN
1064: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LECTURE','LEGACY_TOKENS',TRUE);
1065: p_unit_ver_rec.status :='E';
1066: END;
1067: END IF;
1068:
1071: BEGIN
1072: igs_ps_unit_ver_pkg.check_constraints('WORK_LOAD_CP_LAB',p_unit_ver_rec.work_load_cp_lab);
1073: EXCEPTION
1074: WHEN OTHERS THEN
1075: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LAB','LEGACY_TOKENS',TRUE);
1076: p_unit_ver_rec.status :='E';
1077: END;
1078: END IF;
1079:
1081: BEGIN
1082: igs_ps_unit_ver_pkg.check_constraints('MAX_REPEAT_CREDIT_POINTS',p_unit_ver_rec.max_repeat_credit_points);
1083: EXCEPTION
1084: WHEN OTHERS THEN
1085: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','MAX_REPEAT_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
1086: p_unit_ver_rec.status :='E';
1087: END;
1088: END IF;
1089:
1091: BEGIN
1092: igs_ps_unit_ver_pkg.check_constraints('SAME_TEACH_PERIOD_REPEATS_CP',p_unit_ver_rec.same_teach_period_repeats_cp);
1093: EXCEPTION
1094: WHEN OTHERS THEN
1095: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','SAME_TEACH_PERIOD_REPEATS_CP','LEGACY_TOKENS',TRUE);
1096: p_unit_ver_rec.status :='E';
1097: END;
1098: END IF;
1099:
1101: BEGIN
1102: igs_ps_unit_ver_pkg.check_constraints('WORK_LOAD_OTHER',p_unit_ver_rec.work_load_other);
1103: EXCEPTION
1104: WHEN OTHERS THEN
1105: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_OTHER','LEGACY_TOKENS',TRUE);
1106: p_unit_ver_rec.status :='E';
1107: END;
1108: END IF;
1109:
1111: BEGIN
1112: igs_ps_unit_ver_pkg.check_constraints('CONTACT_HRS_LECTURE',p_unit_ver_rec.contact_hrs_lecture);
1113: EXCEPTION
1114: WHEN OTHERS THEN
1115: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LECTURE','LEGACY_TOKENS',TRUE);
1116: p_unit_ver_rec.status :='E';
1117: END;
1118: END IF;
1119:
1121: BEGIN
1122: igs_ps_unit_ver_pkg.check_constraints('CONTACT_HRS_LAB',p_unit_ver_rec.contact_hrs_lab);
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LAB','LEGACY_TOKENS',TRUE);
1126: p_unit_ver_rec.status :='E';
1127: END;
1128: END IF;
1129:
1131: BEGIN
1132: igs_ps_unit_ver_pkg.check_constraints('CONTACT_HRS_OTHER',p_unit_ver_rec.contact_hrs_other);
1133: EXCEPTION
1134: WHEN OTHERS THEN
1135: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_OTHER','LEGACY_TOKENS',TRUE);
1136: p_unit_ver_rec.status :='E';
1137: END;
1138: END IF;
1139:
1141: BEGIN
1142: igs_ps_unit_ver_pkg.check_constraints('NON_SCHD_REQUIRED_HRS',p_unit_ver_rec.non_schd_required_hrs);
1143: EXCEPTION
1144: WHEN OTHERS THEN
1145: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','NON_SCHD_REQUIRED_HRS','LEGACY_TOKENS',TRUE);
1146: p_unit_ver_rec.status :='E';
1147: END;
1148: END IF;
1149:
1151: BEGIN
1152: igs_ps_unit_ver_pkg.check_constraints('MAX_REPEATS_FOR_CREDIT',p_unit_ver_rec.max_repeats_for_credit);
1153: EXCEPTION
1154: WHEN OTHERS THEN
1155: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999','MAX_REPEATS_FOR_CREDIT','LEGACY_TOKENS',TRUE);
1156: p_unit_ver_rec.status :='E';
1157: END;
1158: END IF;
1159:
1161: BEGIN
1162: igs_ps_unit_ver_pkg.check_constraints('MAX_REPEATS_FOR_FUNDING',p_unit_ver_rec.max_repeats_for_funding);
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999','MAX_REPEATS_FOR_FUNDING','LEGACY_TOKENS',TRUE);
1166: p_unit_ver_rec.status :='E';
1167: END;
1168: END IF;
1169:
1171: BEGIN
1172: igs_ps_unit_ver_pkg.check_constraints('SAME_TEACH_PERIOD_REPEATS',p_unit_ver_rec.same_teach_period_repeats);
1173: EXCEPTION
1174: WHEN OTHERS THEN
1175: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999','SAME_TEACH_PERIOD_REPEATS','LEGACY_TOKENS',TRUE);
1176: p_unit_ver_rec.status :='E';
1177: END;
1178: END IF;
1179:
1181: BEGIN
1182: igs_ps_unit_ver_pkg.check_constraints('OVRD_WKLD_VAL_FLAG',p_unit_ver_rec.ovrd_wkld_val_flag);
1183: EXCEPTION
1184: WHEN OTHERS THEN
1185: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','OVRD_WKLD_VAL_FLAG','LEGACY_TOKENS',TRUE);
1186: p_unit_ver_rec.status :='E';
1187: END;
1188:
1189: IF p_unit_ver_rec.workload_val_code IS NOT NULL THEN
1187: END;
1188:
1189: IF p_unit_ver_rec.workload_val_code IS NOT NULL THEN
1190: IF NOT igs_lookups_view_pkg.get_pk_for_validation('WKLD_VAL_TYPE',p_unit_ver_rec.workload_val_code) THEN
1191: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'WKLD_VAL_TYPE','LEGACY_TOKENS', FALSE);
1192: p_unit_ver_rec.status := 'E';
1193: END IF;
1194: END IF;
1195:
1197: BEGIN
1198: igs_ps_unit_ver_pkg.check_constraints('BILLING_HRS',p_unit_ver_rec.billing_hrs);
1199: EXCEPTION
1200: WHEN OTHERS THEN
1201: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','BILLING_HRS','LEGACY_TOKENS',TRUE);
1202: p_unit_ver_rec.status :='E';
1203: END;
1204: END IF;
1205:
1245:
1246: END IF;
1247:
1248: IF p_unit_ver_rec.status = 'S' THEN
1249: igs_ps_validate_lgcy_pkg.unit_version(p_unit_ver_rec,l_n_coord_person_id);
1250:
1251: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1252: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_version.status_after_Business_validation',
1253: 'Unit code:'||p_unit_ver_rec.unit_cd||' '||'Version number:'||p_unit_ver_rec.version_number||' '||
1650: PROCEDURE validate_parameters ( p_teach_resp_rec IN OUT NOCOPY igs_ps_generic_pub.unit_tr_rec_type ) AS
1651: BEGIN
1652: /* Check for Mandatory Parameters */
1653: IF p_teach_resp_rec.unit_cd IS NULL THEN
1654: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1655: p_teach_resp_rec.status := 'E';
1656: END IF;
1657: IF p_teach_resp_rec.version_number IS NULL THEN
1658: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1654: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1655: p_teach_resp_rec.status := 'E';
1656: END IF;
1657: IF p_teach_resp_rec.version_number IS NULL THEN
1658: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1659: p_teach_resp_rec.status := 'E';
1660: END IF;
1661: IF p_teach_resp_rec.org_unit_cd IS NULL THEN
1662: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1658: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1659: p_teach_resp_rec.status := 'E';
1660: END IF;
1661: IF p_teach_resp_rec.org_unit_cd IS NULL THEN
1662: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1663: p_teach_resp_rec.status := 'E';
1664: END IF;
1665: IF p_teach_resp_rec.percentage IS NULL THEN
1666: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1662: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1663: p_teach_resp_rec.status := 'E';
1664: END IF;
1665: IF p_teach_resp_rec.percentage IS NULL THEN
1666: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1667: p_teach_resp_rec.status := 'E';
1668: END IF;
1669: END validate_parameters;
1670:
1671: -- Carry out derivations and validate them
1672: PROCEDURE validate_derivations ( p_teach_resp_rec IN OUT NOCOPY igs_ps_generic_pub.unit_tr_rec_type ) AS
1673: BEGIN
1674: IF NOT igs_re_val_rsup.get_org_unit_dtls ( p_teach_resp_rec.org_unit_cd, l_d_ou_start_dt ) THEN
1675: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1676: p_teach_resp_rec.status := 'E';
1677: END IF;
1678: END validate_derivations;
1679:
1686: x_unit_cd => p_teach_resp_rec.unit_cd,
1687: x_version_number => p_teach_resp_rec.version_number,
1688: x_org_unit_cd => p_teach_resp_rec.org_unit_cd,
1689: x_ou_start_dt => l_d_ou_start_dt ) THEN
1690: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_TEACH_RESP', 'LEGACY_TOKENS', FALSE);
1691: p_teach_resp_rec.status := 'W';
1692: RETURN;
1693: END IF;
1694:
1696: BEGIN
1697: igs_ps_tch_resp_pkg.check_constraints ( 'UNIT_CD', p_teach_resp_rec.unit_cd );
1698: EXCEPTION
1699: WHEN OTHERS THEN
1700: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'UNIT_CD', 'LEGACY_TOKENS', TRUE);
1701: p_teach_resp_rec.status := 'E';
1702: END;
1703:
1704: BEGIN
1704: BEGIN
1705: igs_ps_tch_resp_pkg.check_constraints ( 'PERCENTAGE', p_teach_resp_rec.percentage );
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PER_0_100', null, null, TRUE);
1709: p_teach_resp_rec.status := 'E';
1710: END;
1711:
1712: /* Validate FK Constraints */
1712: /* Validate FK Constraints */
1713: IF NOT igs_or_unit_pkg.get_pk_for_validation (
1714: p_teach_resp_rec.org_unit_cd,
1715: l_d_ou_start_dt ) THEN
1716: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1717: p_teach_resp_rec.status := 'E';
1718: END IF;
1719: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation (
1720: p_teach_resp_rec.unit_cd,
1718: END IF;
1719: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation (
1720: p_teach_resp_rec.unit_cd,
1721: p_teach_resp_rec.version_number ) THEN
1722: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
1723: p_teach_resp_rec.status := 'E';
1724: END IF;
1725:
1726: END validate_db_cons;
1849:
1850: END LOOP;
1851:
1852: /* Post Insert Validations */
1853: IF NOT igs_ps_validate_lgcy_pkg.post_teach_resp(p_tab_teach_resp) THEN
1854: p_c_rec_status := 'E';
1855: END IF;
1856:
1857: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1896: PROCEDURE validate_parameters ( p_unit_dscp_rec IN OUT NOCOPY igs_ps_generic_pub.unit_dscp_rec_type ) AS
1897: BEGIN
1898: /* Check for Mandatory Parameters */
1899: IF p_unit_dscp_rec.unit_cd IS NULL THEN
1900: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1901: p_unit_dscp_rec.status := 'E';
1902: END IF;
1903: IF p_unit_dscp_rec.version_number IS NULL THEN
1904: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1900: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1901: p_unit_dscp_rec.status := 'E';
1902: END IF;
1903: IF p_unit_dscp_rec.version_number IS NULL THEN
1904: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1905: p_unit_dscp_rec.status := 'E';
1906: END IF;
1907: IF p_unit_dscp_rec.discipline_group_cd IS NULL THEN
1908: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DISCIPLINE_GROUP_CD', 'LEGACY_TOKENS', FALSE);
1904: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1905: p_unit_dscp_rec.status := 'E';
1906: END IF;
1907: IF p_unit_dscp_rec.discipline_group_cd IS NULL THEN
1908: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DISCIPLINE_GROUP_CD', 'LEGACY_TOKENS', FALSE);
1909: p_unit_dscp_rec.status := 'E';
1910: END IF;
1911: IF p_unit_dscp_rec.percentage IS NULL THEN
1912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1908: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DISCIPLINE_GROUP_CD', 'LEGACY_TOKENS', FALSE);
1909: p_unit_dscp_rec.status := 'E';
1910: END IF;
1911: IF p_unit_dscp_rec.percentage IS NULL THEN
1912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1913: p_unit_dscp_rec.status := 'E';
1914: END IF;
1915: END validate_parameters;
1916:
1922: IF igs_ps_unit_dscp_pkg.get_pk_for_validation (
1923: x_unit_cd => p_unit_dscp_rec.unit_cd,
1924: x_version_number => p_unit_dscp_rec.version_number,
1925: x_discipline_group_cd => p_unit_dscp_rec.discipline_group_cd ) THEN
1926: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_DISCIPLINE', 'LEGACY_TOKENS', FALSE);
1927: p_unit_dscp_rec.status := 'W';
1928: RETURN;
1929: END IF;
1930:
1932: BEGIN
1933: igs_ps_unit_dscp_pkg.check_constraints ( 'UNIT_CD', p_unit_dscp_rec.unit_cd );
1934: EXCEPTION
1935: WHEN OTHERS THEN
1936: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'UNIT_CD', 'LEGACY_TOKENS', TRUE);
1937: p_unit_dscp_rec.status := 'E';
1938: END;
1939:
1940: BEGIN
1940: BEGIN
1941: igs_ps_unit_dscp_pkg.check_constraints ( 'DISCIPLINE_GROUP_CD', p_unit_dscp_rec.discipline_group_cd );
1942: EXCEPTION
1943: WHEN OTHERS THEN
1944: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'DISCIPLINE_GROUP_CD', 'LEGACY_TOKENS', TRUE);
1945: p_unit_dscp_rec.status := 'E';
1946: END;
1947:
1948: BEGIN
1948: BEGIN
1949: igs_ps_unit_dscp_pkg.check_constraints ( 'PERCENTAGE', p_unit_dscp_rec.percentage );
1950: EXCEPTION
1951: WHEN OTHERS THEN
1952: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PER_0_100', null, null, TRUE);
1953: p_unit_dscp_rec.status := 'E';
1954: END;
1955:
1956: /* Validate FK Constraints */
1954: END;
1955:
1956: /* Validate FK Constraints */
1957: IF NOT igs_ps_dscp_pkg.get_pk_for_validation (p_unit_dscp_rec.discipline_group_cd) THEN
1958: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'DISCIPLINE_GROUP_CD', 'LEGACY_TOKENS', FALSE);
1959: p_unit_dscp_rec.status := 'E';
1960: END IF;
1961:
1962: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation (p_unit_dscp_rec.unit_cd, p_unit_dscp_rec.version_number) THEN
1959: p_unit_dscp_rec.status := 'E';
1960: END IF;
1961:
1962: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation (p_unit_dscp_rec.unit_cd, p_unit_dscp_rec.version_number) THEN
1963: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
1964: p_unit_dscp_rec.status := 'E';
1965: END IF;
1966:
1967: END validate_db_cons;
2059: END IF;
2060: END LOOP;
2061:
2062: /* Post Insert Checks */
2063: IF NOT igs_ps_validate_lgcy_pkg.post_unit_discip(p_tab_unit_dscp) THEN
2064: p_c_rec_status := 'E';
2065: END IF;
2066:
2067: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2103: BEGIN
2104:
2105: /* Check for Mandatory Parameters */
2106: IF p_grd_sch_rec.unit_cd IS NULL THEN
2107: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
2108: p_grd_sch_rec.status := 'E';
2109: END IF;
2110: IF p_grd_sch_rec.version_number IS NULL THEN
2111: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2107: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
2108: p_grd_sch_rec.status := 'E';
2109: END IF;
2110: IF p_grd_sch_rec.version_number IS NULL THEN
2111: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2112: p_grd_sch_rec.status := 'E';
2113: END IF;
2114: IF p_grd_sch_rec.grading_schema_code IS NULL THEN
2115: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
2111: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2112: p_grd_sch_rec.status := 'E';
2113: END IF;
2114: IF p_grd_sch_rec.grading_schema_code IS NULL THEN
2115: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
2116: p_grd_sch_rec.status := 'E';
2117: END IF;
2118: IF p_grd_sch_rec.grd_schm_version_number IS NULL THEN
2119: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
2115: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
2116: p_grd_sch_rec.status := 'E';
2117: END IF;
2118: IF p_grd_sch_rec.grd_schm_version_number IS NULL THEN
2119: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
2120: p_grd_sch_rec.status := 'E';
2121: END IF;
2122: IF p_grd_sch_rec.default_flag IS NULL THEN
2123: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DEFAULT_FLAG', 'LEGACY_TOKENS', FALSE);
2119: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
2120: p_grd_sch_rec.status := 'E';
2121: END IF;
2122: IF p_grd_sch_rec.default_flag IS NULL THEN
2123: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DEFAULT_FLAG', 'LEGACY_TOKENS', FALSE);
2124: p_grd_sch_rec.status := 'E';
2125: END IF;
2126:
2127: END validate_parameters;
2135: x_unit_version_number => p_grd_sch_rec.version_number,
2136: x_grading_schema_code => p_grd_sch_rec.grading_schema_code,
2137: x_grd_schm_version_number => p_grd_sch_rec.grd_schm_version_number,
2138: x_unit_code => p_grd_sch_rec.unit_cd ) THEN
2139: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_GRADING_SCHM', 'LEGACY_TOKENS', FALSE);
2140: p_grd_sch_rec.status := 'W';
2141: RETURN;
2142: END IF;
2143:
2145: BEGIN
2146: igs_ps_unit_grd_schm_pkg.check_constraints ( 'DEFAULT_FLAG', p_grd_sch_rec.default_flag );
2147: EXCEPTION
2148: WHEN OTHERS THEN
2149: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'DEFAULT_FLAG', 'LEGACY_TOKENS', TRUE);
2150: p_grd_sch_rec.status := 'E';
2151: END;
2152:
2153: /* Validate FK Constraints */
2151: END;
2152:
2153: /* Validate FK Constraints */
2154: IF NOT igs_as_grd_schema_pkg.get_pk_for_validation ( p_grd_sch_rec.grading_schema_code, p_grd_sch_rec.grd_schm_version_number) THEN
2155: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_GRADING_SCHM', 'LEGACY_TOKENS', FALSE);
2156: p_grd_sch_rec.status := 'E';
2157: END IF;
2158:
2159: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation ( p_grd_sch_rec.unit_cd, p_grd_sch_rec.version_number ) THEN
2156: p_grd_sch_rec.status := 'E';
2157: END IF;
2158:
2159: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation ( p_grd_sch_rec.unit_cd, p_grd_sch_rec.version_number ) THEN
2160: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
2161: p_grd_sch_rec.status := 'E';
2162: END IF;
2163: END validate_db_cons;
2164:
2198:
2199: /* Business Validations */
2200: /* Proceed with business validations only if the status is Success, 'S' */
2201: IF p_tab_grd_sch(I).status = 'S' THEN
2202: igs_ps_validate_lgcy_pkg.validate_unit_grd_sch ( p_tab_grd_sch(I) );
2203:
2204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_grd_sch.status_after_Business_Validation',
2206: 'Unit code:'||p_tab_grd_sch(I).unit_cd||' '||'Version number:'||p_tab_grd_sch(I).version_number||' '||
2259: END IF;
2260: END LOOP;
2261:
2262: /* Post Insert Checks */
2263: IF NOT igs_ps_validate_lgcy_pkg.post_unit_grd_sch (p_tab_grd_sch) THEN
2264: p_c_rec_status := 'E';
2265: END IF;
2266:
2267: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2484: PROCEDURE validate_uo_parameters ( p_usec_rec IN OUT NOCOPY igs_ps_generic_pub.usec_rec_type ) AS
2485: BEGIN
2486: /* Check for Mandatory Fields */
2487: IF p_usec_rec.unit_cd IS NULL OR p_usec_rec.unit_cd = FND_API.G_MISS_CHAR THEN
2488: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
2489: p_usec_rec.status := 'E';
2490: END IF;
2491: IF p_usec_rec.version_number IS NULL OR p_usec_rec.version_number = FND_API.G_MISS_NUM THEN
2492: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2488: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
2489: p_usec_rec.status := 'E';
2490: END IF;
2491: IF p_usec_rec.version_number IS NULL OR p_usec_rec.version_number = FND_API.G_MISS_NUM THEN
2492: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2493: p_usec_rec.status := 'E';
2494: END IF;
2495: IF p_usec_rec.teach_cal_alternate_code IS NULL OR p_usec_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
2496: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2492: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
2493: p_usec_rec.status := 'E';
2494: END IF;
2495: IF p_usec_rec.teach_cal_alternate_code IS NULL OR p_usec_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
2496: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2497: p_usec_rec.status := 'E';
2498: END IF;
2499: END validate_uo_parameters;
2500:
2509: p_start_dt => l_d_start_dt,
2510: p_end_dt => l_d_end_dt,
2511: p_return_status => l_c_message );
2512: IF ( l_c_message <> 'SINGLE' ) THEN
2513: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2514: p_usec_rec.status := 'E';
2515: END IF;
2516: l_c_message := NULL;
2517: END validate_uo_derivations;
2540: BEGIN
2541: igs_ps_unit_ofr_pkg.check_constraints ( 'UNIT_CD', p_usec_rec.unit_cd );
2542: EXCEPTION
2543: WHEN OTHERS THEN
2544: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'UNIT_CD', 'LEGACY_TOKENS', TRUE);
2545: p_usec_rec.status := 'E';
2546: END;
2547:
2548: BEGIN
2548: BEGIN
2549: igs_ps_unit_ofr_pkg.check_constraints ( 'CAL_TYPE', l_c_cal_type );
2550: EXCEPTION
2551: WHEN OTHERS THEN
2552: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ALT_CODE', 'LEGACY_TOKENS', TRUE);
2553: p_usec_rec.status := 'E';
2554: END;
2555:
2556: /* Validate FK Constraints */
2555:
2556: /* Validate FK Constraints */
2557: BEGIN
2558: IF NOT igs_ca_type_pkg.get_pk_for_validation ( l_c_cal_type ) THEN
2559: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'CAL_TYPE', 'LEGACY_TOKENS', FALSE);
2560: p_usec_rec.status := 'E';
2561: END IF;
2562: END;
2563:
2562: END;
2563:
2564: BEGIN
2565: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation ( p_usec_rec.unit_cd, p_usec_rec.version_number ) THEN
2566: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
2567: p_usec_rec.status := 'E';
2568: END IF;
2569: END;
2570: END validate_uo_db_cons;
2629: ELSE
2630: /* Business validations */
2631: -- Check if the calendar category is 'TEACHING'
2632: IF ( p_usec_rec.status = 'S' ) THEN
2633: IF NOT igs_ps_validate_lgcy_pkg.validate_cal_cat ( l_c_cal_type, 'TEACHING' ) THEN
2634: fnd_message.set_name ( 'IGS', 'IGS_PS_CALTYPE_TEACHING_CAL' );
2635: fnd_msg_pub.add;
2636: p_usec_rec.status := 'E';
2637: END IF;
2729:
2730: -- Check for existence of Calender Instance
2731: IF NOT igs_ca_inst_pkg.get_pk_for_validation ( x_cal_type => l_c_cal_type,
2732: x_sequence_number => l_n_seq_num ) THEN
2733: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2734: p_usec_rec.status := 'E';
2735: END IF;
2736:
2737: -- Check for existence of Unit Offering
2737: -- Check for existence of Unit Offering
2738: IF NOT igs_ps_unit_ofr_pkg.get_pk_for_validation ( x_unit_cd => p_usec_rec.unit_cd,
2739: x_version_number => p_usec_rec.version_number,
2740: x_cal_type => l_c_cal_type ) THEN
2741: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_OFR_PAT', 'LEGACY_TOKENS', FALSE);
2742: p_usec_rec.status := 'E';
2743: END IF;
2744:
2745: -- Check Constraints checking.
2747: BEGIN
2748: igs_ps_unit_ofr_pat_pkg.check_constraints ( 'WAITLIST_ALLOWED', p_usec_rec.waitlist_allowed);
2749: EXCEPTION
2750: WHEN OTHERS THEN
2751: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'WAITLIST_ALLOWED', 'LEGACY_TOKENS', TRUE);
2752: p_usec_rec.status := 'E';
2753: END;
2754: END IF;
2755:
2757: BEGIN
2758: igs_ps_unit_ofr_pat_pkg.check_constraints ( 'MAX_STUDENTS_PER_WAITLIST', p_usec_rec.max_students_per_waitlist);
2759: EXCEPTION
2760: WHEN OTHERS THEN
2761: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999', 'MAX_STUDENTS_PER_WAITLIST', 'LEGACY_TOKENS', TRUE);
2762: p_usec_rec.status := 'E';
2763: END;
2764: END IF;
2765:
2810: IF ( p_usec_rec.status = 'S' ) THEN
2811:
2812: -- Check if waitlist_allowed is 'Y' then check if waitlisting is allowed at organization level.
2813: IF p_usec_rec.waitlist_allowed = 'Y' THEN
2814: IF NOT igs_ps_validate_lgcy_pkg.validate_waitlist_allowed ( l_c_cal_type, l_n_seq_num ) THEN
2815: fnd_message.set_name ( 'IGS', 'IGS_EN_WAIT_NOT_ALW' );
2816: fnd_msg_pub.add;
2817: p_usec_rec.status := 'E';
2818: END IF;
2911: BEGIN
2912:
2913: /* Check for Mandatory Fields */
2914: IF p_usec_rec.location_cd IS NULL OR p_usec_rec.location_cd = FND_API.G_MISS_CHAR THEN
2915: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
2916: p_usec_rec.status := 'E';
2917: END IF;
2918: IF p_usec_rec.unit_class IS NULL OR p_usec_rec.unit_class = FND_API.G_MISS_CHAR THEN
2919: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
2915: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
2916: p_usec_rec.status := 'E';
2917: END IF;
2918: IF p_usec_rec.unit_class IS NULL OR p_usec_rec.unit_class = FND_API.G_MISS_CHAR THEN
2919: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
2920: p_usec_rec.status := 'E';
2921: END IF;
2922:
2923: END validate_uoo_parameters;
2968: p_start_dt => l_d_sup_start_dt,
2969: p_end_dt => l_d_sup_end_dt,
2970: p_return_status => l_c_message );
2971: IF ( l_c_message <> 'SINGLE' ) THEN
2972: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'SUP_TEACH_CAL_ALT_CD', 'LEGACY_TOKENS', FALSE);
2973: p_usec_rec.status := 'E';
2974: END IF;
2975:
2976:
2975:
2976:
2977: -- Derive sup_uoo_id
2978: l_c_message := NULL;
2979: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_rec.sup_unit_cd,
2980: p_ver_num => p_usec_rec.sup_version_number,
2981: p_cal_type => l_c_sup_cal_type,
2982: p_seq_num => l_n_sup_seq_num,
2983: p_loc_cd => p_usec_rec.sup_location_cd,
2984: p_unit_class => p_usec_rec.sup_unit_class,
2985: p_uoo_id => l_n_sup_uoo_id,
2986: p_message => l_c_message );
2987: IF ( l_c_message IS NOT NULL ) THEN
2988: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
2989: p_usec_rec.status := 'E';
2990: END IF;
2991:
2992: END IF;
3016: x_cal_type => l_c_cal_type,
3017: x_ci_sequence_number => l_n_seq_num,
3018: x_location_cd => p_usec_rec.location_cd,
3019: x_unit_class => p_usec_rec.unit_class ) THEN
3020: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
3021: p_usec_rec.status := 'W';
3022: RETURN;
3023: END IF;
3024: END IF;
3029: BEGIN
3030: igs_ps_unit_ofr_opt_pkg.check_constraints('NOT_MULTIPLE_SECTION_FLAG',p_usec_rec.not_multiple_section_flag);
3031: EXCEPTION
3032: WHEN OTHERS THEN
3033: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',
3034: 'NOT_MULTIPLE_SECTION_FLAG',
3035: 'LEGACY_TOKENS',
3036: TRUE);
3037: p_usec_rec.status :='E';
3041: BEGIN
3042: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'UNIT_CLASS', p_usec_rec.unit_class );
3043: EXCEPTION
3044: WHEN OTHERS THEN
3045: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'UNIT_CLASS', 'LEGACY_TOKENS', TRUE);
3046: p_usec_rec.status := 'E';
3047: END;
3048:
3049: --call number cannot be negative
3047: END;
3048:
3049: --call number cannot be negative
3050: IF p_usec_rec.call_number IS NOT NULL AND p_usec_rec.call_number < 1 THEN
3051: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'CALL_NUMBER', 'LEGACY_TOKENS', FALSE);
3052: p_usec_rec.status := 'E';
3053: END IF;
3054:
3055: BEGIN
3055: BEGIN
3056: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'GRADING_SCHEMA_CD', p_usec_rec.grading_schema_cd );
3057: EXCEPTION
3058: WHEN OTHERS THEN
3059: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'USEC_GRADING_SCHM_CD', 'LEGACY_TOKENS', TRUE);
3060: p_usec_rec.status := 'E';
3061: END;
3062:
3063: BEGIN
3063: BEGIN
3064: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'LOCATION_CD', p_usec_rec.location_cd );
3065: EXCEPTION
3066: WHEN OTHERS THEN
3067: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'LOCATION_CD', 'LEGACY_TOKENS', TRUE);
3068: p_usec_rec.status := 'E';
3069: END;
3070:
3071: BEGIN
3071: BEGIN
3072: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'UNIT_QUOTA', p_usec_rec.unit_quota );
3073: EXCEPTION
3074: WHEN OTHERS THEN
3075: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999', 'UNIT_QUOTA', 'LEGACY_TOKENS', TRUE);
3076: p_usec_rec.status := 'E';
3077: END;
3078:
3079: IF p_usec_rec.unit_quota_reserved_places IS NOT NULL THEN
3080: BEGIN
3081: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'UNIT_QUOTA_RESERVED_PLACES', p_usec_rec.unit_quota_reserved_places );
3082: EXCEPTION
3083: WHEN OTHERS THEN
3084: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999', 'UNIT_QUOTA_RESERVED_PLACES', 'LEGACY_TOKENS', TRUE);
3085: p_usec_rec.status := 'E';
3086: END;
3087: END IF;
3088:
3089: BEGIN
3090: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'CI_SEQUENCE_NUMBER', l_n_seq_num );
3091: EXCEPTION
3092: WHEN OTHERS THEN
3093: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999', 'CAL_SEQ_NUM', 'LEGACY_TOKENS', TRUE);
3094: p_usec_rec.status := 'E';
3095: END;
3096:
3097: BEGIN
3097: BEGIN
3098: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'GRADING_SCHEMA_PRCDNCE_IND', p_usec_rec.grading_schema_prcdnce_ind );
3099: EXCEPTION
3100: WHEN OTHERS THEN
3101: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'GRADING_SCHEMA_PRCDNCE_IND', 'LEGACY_TOKENS', TRUE);
3102: p_usec_rec.status := 'E';
3103: END;
3104:
3105: BEGIN
3105: BEGIN
3106: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'IVRS_AVAILABLE_IND', p_usec_rec.ivrs_available_ind );
3107: EXCEPTION
3108: WHEN OTHERS THEN
3109: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'IVRS_AVAILABLE_IND', 'LEGACY_TOKENS', TRUE);
3110: p_usec_rec.status := 'E';
3111: END;
3112:
3113: BEGIN
3113: BEGIN
3114: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'OFFERED_IND', p_usec_rec.offered_ind );
3115: EXCEPTION
3116: WHEN OTHERS THEN
3117: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'OFFERED_IND', 'LEGACY_TOKENS', TRUE);
3118: p_usec_rec.status := 'E';
3119: END;
3120:
3121: BEGIN
3121: BEGIN
3122: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'NON_STD_USEC_IND', p_usec_rec.non_std_usec_ind );
3123: EXCEPTION
3124: WHEN OTHERS THEN
3125: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'NON_STD_USEC_IND', 'LEGACY_TOKENS', TRUE);
3126: p_usec_rec.status := 'E';
3127: END;
3128:
3129: BEGIN
3129: BEGIN
3130: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'AUDITABLE_IND', p_usec_rec.auditable_ind );
3131: EXCEPTION
3132: WHEN OTHERS THEN
3133: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'AUDITABLE_IND', 'LEGACY_TOKENS', TRUE);
3134: p_usec_rec.status := 'E';
3135: END;
3136:
3137: BEGIN
3137: BEGIN
3138: igs_ps_unit_ofr_opt_pkg.check_constraints ( 'AUDIT_PERMISSION_IND', p_usec_rec.audit_permission_ind );
3139: EXCEPTION
3140: WHEN OTHERS THEN
3141: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'AUDIT_PERMISSION_IND', 'LEGACY_TOKENS', TRUE);
3142: p_usec_rec.status := 'E';
3143: END;
3144:
3145: -- Check whether Owner Organization Unit Code is valid, if it is passed.
3143: END;
3144:
3145: -- Check whether Owner Organization Unit Code is valid, if it is passed.
3146: IF ( p_usec_rec.owner_org_unit_cd IS NOT NULL ) THEN
3147: IF NOT igs_ps_validate_lgcy_pkg.validate_org_unit_cd ( p_usec_rec.owner_org_unit_cd, 'UNIT_SECTION_LGCY' ) THEN
3148: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
3149: p_usec_rec.status := 'E';
3150: END IF;
3151: END IF;
3144:
3145: -- Check whether Owner Organization Unit Code is valid, if it is passed.
3146: IF ( p_usec_rec.owner_org_unit_cd IS NOT NULL ) THEN
3147: IF NOT igs_ps_validate_lgcy_pkg.validate_org_unit_cd ( p_usec_rec.owner_org_unit_cd, 'UNIT_SECTION_LGCY' ) THEN
3148: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
3149: p_usec_rec.status := 'E';
3150: END IF;
3151: END IF;
3152:
3152:
3153: -- Check for existence of Revenue Account Code, if passed
3154: IF ( p_usec_rec.rev_account_cd IS NOT NULL ) THEN
3155: IF NOT igs_fi_acc_pkg.get_pk_for_validation ( x_account_cd => p_usec_rec.rev_account_cd ) THEN
3156: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'REV_ACC_CD', 'LEGACY_TOKENS', FALSE);
3157: p_usec_rec.status := 'E';
3158: END IF;
3159: END IF;
3160:
3164: IF NOT igs_ps_unit_ofr_pat_pkg.get_pk_for_validation ( x_unit_cd => p_usec_rec.unit_cd,
3165: x_version_number => p_usec_rec.version_number,
3166: x_cal_type => l_c_cal_type,
3167: x_ci_sequence_number => l_n_seq_num ) THEN
3168: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_OFR_PAT', 'LEGACY_TOKENS', FALSE);
3169: p_usec_rec.status := 'E';
3170: END IF;
3171:
3172: -- Check for existence of Location Code
3170: END IF;
3171:
3172: -- Check for existence of Location Code
3173: IF NOT igs_ad_location_pkg.get_pk_for_validation ( p_usec_rec.location_cd ) THEN
3174: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
3175: p_usec_rec.status := 'E';
3176: END IF;
3177:
3178: -- Check for existence of Unit Status
3176: END IF;
3177:
3178: -- Check for existence of Unit Status
3179: IF NOT igs_as_unit_class_pkg.get_pk_for_validation ( p_usec_rec.unit_class ) THEN
3180: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
3181: p_usec_rec.status := 'E';
3182: END IF;
3183:
3184: -- Check for existence of Grading Schema
3182: END IF;
3183:
3184: -- Check for existence of Grading Schema
3185: IF NOT igs_as_grd_schema_pkg.get_pk_for_validation ( p_usec_rec.grading_schema_cd, p_usec_rec.gs_version_number ) THEN
3186: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
3187: p_usec_rec.status := 'E';
3188: END IF;
3189:
3190: -- Check the existence of Unit Contact Number, if passed
3189:
3190: -- Check the existence of Unit Contact Number, if passed
3191: IF p_usec_rec.unit_contact_number IS NOT NULL THEN
3192: IF NOT igs_pe_person_pkg.get_pk_for_validation ( l_n_unit_contact_id ) THEN
3193: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_CONT_NUM', 'LEGACY_TOKENS', FALSE);
3194: p_usec_rec.status := 'E';
3195: END IF;
3196: END IF;
3197:
3196: END IF;
3197:
3198: -- Check the Unit Section Status
3199: IF NOT igs_lookups_view_pkg.get_pk_for_validation('UNIT_SECTION_STATUS',p_usec_rec.unit_section_status) THEN
3200: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'USEC_STATUS', 'LEGACY_TOKENS', FALSE);
3201: p_usec_rec.status := 'E';
3202: END IF;
3203:
3204: --Validate default enroll flag
3205: BEGIN
3206: igs_ps_unit_ofr_opt_pkg.check_constraints('DEFAULT_ENROLL_FLAG',p_usec_rec.default_enroll_flag);
3207: EXCEPTION
3208: WHEN OTHERS THEN
3209: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','DEFAULT_ENROLL_FLAG','LEGACY_TOKENS',TRUE);
3210: p_usec_rec.status :='E';
3211: END;
3212:
3213:
3417: END IF;
3418:
3419: -- If unit contact number is not null the derive person id associated with it.
3420: IF p_usec_rec.unit_contact_number IS NOT NULL THEN
3421: igs_ps_validate_lgcy_pkg.get_party_id( p_usec_rec.unit_contact_number,l_n_unit_contact_id );
3422: IF l_n_unit_contact_id IS NULL THEN
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'UNIT_CONT_NUM', 'LEGACY_TOKENS', FALSE);
3424: p_usec_rec.status := 'E';
3425: END IF;
3419: -- If unit contact number is not null the derive person id associated with it.
3420: IF p_usec_rec.unit_contact_number IS NOT NULL THEN
3421: igs_ps_validate_lgcy_pkg.get_party_id( p_usec_rec.unit_contact_number,l_n_unit_contact_id );
3422: IF l_n_unit_contact_id IS NULL THEN
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'UNIT_CONT_NUM', 'LEGACY_TOKENS', FALSE);
3424: p_usec_rec.status := 'E';
3425: END IF;
3426: END IF;
3427:
3436: IF ( p_usec_rec.grading_schema_cd IS NULL AND p_usec_rec.gs_version_number IS NULL ) THEN
3437: OPEN c_grd_sch ( p_usec_rec.unit_cd, p_usec_rec.version_number );
3438: FETCH c_grd_sch into p_usec_rec.grading_schema_cd, p_usec_rec.gs_version_number;
3439: IF ( c_grd_sch%NOTFOUND ) THEN
3440: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
3441: p_usec_rec.status := 'E';
3442: END IF;
3443: CLOSE c_grd_sch;
3444: END IF;
3491: ELSE
3492: IF (fnd_profile.value('IGS_PS_CALL_NUMBER') = 'AUTO' AND p_usec_rec.call_number IS NOT NULL) THEN
3493:
3494: -- Profile is AUTO and values is passed to call_number so raise error
3495: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'CALL_NUMBER', 'LEGACY_TOKENS', FALSE);
3496: p_usec_rec.status := 'E';
3497: END IF;
3498: END IF;
3499:
3499:
3500: IF p_usec_rec.unit_section_status IS NULL THEN
3501: p_usec_rec.unit_section_status :=c_usec_rec.unit_section_status;
3502: ELSIF p_usec_rec.unit_section_status = FND_API.G_MISS_CHAR THEN
3503: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'USEC_STATUS', 'LEGACY_TOKENS', FALSE);
3504: p_usec_rec.status := 'E';
3505: END IF;
3506:
3507: IF p_usec_rec.unit_section_start_date IS NULL THEN
3560:
3561: IF p_usec_rec.grading_schema_cd IS NULL THEN
3562: p_usec_rec.grading_schema_cd := c_usec_rec.grading_schema_cd;
3563: ELSIF p_usec_rec.grading_schema_cd = FND_API.G_MISS_CHAR THEN
3564: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
3565: p_usec_rec.status := 'E';
3566: END IF;
3567:
3568: IF p_usec_rec.gs_version_number IS NULL THEN
3567:
3568: IF p_usec_rec.gs_version_number IS NULL THEN
3569: p_usec_rec.gs_version_number := c_usec_rec.gs_version_number;
3570: ELSIF p_usec_rec.gs_version_number = FND_API.G_MISS_NUM THEN
3571: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'GS_VERSION_NUMBER', 'LEGACY_TOKENS', FALSE);
3572: p_usec_rec.status := 'E';
3573: END IF;
3574:
3575: IF p_usec_rec.unit_contact_number IS NULL THEN
3586:
3587: IF p_usec_rec.owner_org_unit_cd IS NULL THEN
3588: p_usec_rec.owner_org_unit_cd := c_usec_rec.owner_org_unit_cd;
3589: ELSIF p_usec_rec.owner_org_unit_cd = FND_API.G_MISS_CHAR THEN
3590: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'OWNER_ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
3591: p_usec_rec.status := 'E';
3592: END IF;
3593:
3594: IF p_usec_rec.attendance_required_ind IS NULL THEN
3706:
3707: END IF;
3708:
3709: IF p_usec_rec.status = 'S' AND p_calling_context ='S' THEN
3710: IF igs_ps_validate_lgcy_pkg.check_import_allowed( p_unit_cd => p_usec_rec.unit_cd,
3711: p_version_number =>p_usec_rec.version_number,
3712: p_alternate_code =>p_usec_rec.teach_cal_alternate_code,
3713: p_location_cd => p_usec_rec.location_cd,
3714: p_unit_class => p_usec_rec.unit_class,
3755:
3756: /* Business validations */
3757: IF ( p_usec_rec.status = 'S' ) THEN
3758: -- Check for validation by calling validate_uoo
3759: igs_ps_validate_lgcy_pkg.validate_uoo ( p_usec_rec, l_c_cal_type, l_n_seq_num,l_n_sup_uoo_id,l_insert_update,l_conc_flag ) ;
3760:
3761: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3762: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_uoo.status_after_Business validations',
3763: 'Unit code:'||p_usec_rec.unit_cd||' '||'Version number:'||p_usec_rec.version_number||' '||'teach_cal_alternate_code:'
4051: PROCEDURE get_uoo_id ( p_usec_rec IN OUT NOCOPY igs_ps_generic_pub.usec_rec_type) AS
4052: l_c_message VARCHAR2(30);
4053: BEGIN
4054: -- Derive uoo_id
4055: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_rec.unit_cd,
4056: p_ver_num => p_usec_rec.version_number,
4057: p_cal_type => l_c_cal_type,
4058: p_seq_num => l_n_seq_num,
4059: p_loc_cd => p_usec_rec.location_cd,
4076:
4077: IF p_insert_update = 'I' THEN
4078: /* Check for Unique Key Constraints */
4079: IF igs_ps_usec_cps_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4080: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_CPS', 'LEGACY_TOKENS', FALSE);
4081: p_usec_rec.status := 'W';
4082: RETURN;
4083: END IF;
4084: END IF;
4084: END IF;
4085:
4086: /* Check for Foreign Key Constraints */
4087: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4088: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4089: p_usec_rec.status := 'E';
4090: END IF;
4091:
4092: IF p_usec_rec.minimum_credit_points IS NOT NULL THEN
4093: BEGIN
4094: igs_ps_usec_cps_pkg.check_constraints('MINIMUM_CREDIT_POINTS',p_usec_rec.minimum_credit_points);
4095: EXCEPTION
4096: WHEN OTHERS THEN
4097: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','MINIMUM_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4098: p_usec_rec.status :='E';
4099: END;
4100: END IF;
4101:
4103: BEGIN
4104: igs_ps_usec_cps_pkg.check_constraints('MAXIMUM_CREDIT_POINTS',p_usec_rec.maximum_credit_points);
4105: EXCEPTION
4106: WHEN OTHERS THEN
4107: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','MAXIMUM_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4108: p_usec_rec.status :='E';
4109: END;
4110: END IF;
4111:
4113: BEGIN
4114: igs_ps_usec_cps_pkg.check_constraints('VARIABLE_INCREMENT',p_usec_rec.variable_increment);
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','VARIABLE_INCREMENT','LEGACY_TOKENS',TRUE);
4118: p_usec_rec.status :='E';
4119: END;
4120: END IF;
4121:
4124: BEGIN
4125: igs_ps_usec_cps_pkg.check_constraints('LECTURE_CREDIT_POINTS',p_usec_rec.lecture_credit_points);
4126: EXCEPTION
4127: WHEN OTHERS THEN
4128: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LECTURE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4129: p_usec_rec.status :='E';
4130: END;
4131: END IF;
4132:
4134: BEGIN
4135: igs_ps_usec_cps_pkg.check_constraints('LAB_CREDIT_POINTS',p_usec_rec.lab_credit_points);
4136: EXCEPTION
4137: WHEN OTHERS THEN
4138: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LAB_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4139: p_usec_rec.status :='E';
4140: END;
4141: END IF;
4142:
4144: BEGIN
4145: igs_ps_usec_cps_pkg.check_constraints('OTHER_CREDIT_POINTS',p_usec_rec.other_credit_points);
4146: EXCEPTION
4147: WHEN OTHERS THEN
4148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','OTHER_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4149: p_usec_rec.status :='E';
4150: END;
4151: END IF;
4152:
4154: BEGIN
4155: igs_ps_usec_cps_pkg.check_constraints('CLOCK_HOURS',p_usec_rec.clock_hours);
4156: EXCEPTION
4157: WHEN OTHERS THEN
4158: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CLOCK_HOURS','LEGACY_TOKENS',TRUE);
4159: p_usec_rec.status :='E';
4160: END;
4161: END IF;
4162:
4164: BEGIN
4165: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_CP_LECTURE',p_usec_rec.work_load_cp_lecture);
4166: EXCEPTION
4167: WHEN OTHERS THEN
4168: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LECTURE','LEGACY_TOKENS',TRUE);
4169: p_usec_rec.status :='E';
4170: END;
4171: END IF;
4172:
4175: BEGIN
4176: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_CP_LAB',p_usec_rec.work_load_cp_lab);
4177: EXCEPTION
4178: WHEN OTHERS THEN
4179: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LAB','LEGACY_TOKENS',TRUE);
4180: p_usec_rec.status :='E';
4181: END;
4182: END IF;
4183:
4186: BEGIN
4187: igs_ps_usec_cps_pkg.check_constraints('ACHIEVABLE_CREDIT_POINTS',p_usec_rec.achievable_credit_points);
4188: EXCEPTION
4189: WHEN OTHERS THEN
4190: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ACHIEVABLE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4191: p_usec_rec.status :='E';
4192: END;
4193: END IF;
4194:
4196: BEGIN
4197: igs_ps_usec_cps_pkg.check_constraints('ENROLLED_CREDIT_POINTS',p_usec_rec.enrolled_credit_points);
4198: EXCEPTION
4199: WHEN OTHERS THEN
4200: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ENROLLED_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4201: p_usec_rec.status :='E';
4202: END;
4203:
4204: --Validate billing credit points
4206: BEGIN
4207: igs_ps_usec_cps_pkg.check_constraints( 'BILLING_CREDIT_POINTS', p_usec_rec.billing_credit_points);
4208: EXCEPTION
4209: WHEN OTHERS THEN
4210: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999', 'BILLING_CREDIT_POINTS', 'LEGACY_TOKENS', TRUE);
4211: p_usec_rec.status := 'E';
4212: END;
4213: END IF;
4214:
4216: BEGIN
4217: igs_ps_usec_cps_pkg.check_constraints( 'BILLING_HRS', p_usec_rec.billing_hrs);
4218: EXCEPTION
4219: WHEN OTHERS THEN
4220: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999', 'BILLING_HRS', 'LEGACY_TOKENS', TRUE);
4221: p_usec_rec.status := 'E';
4222: END;
4223: END IF;
4224: IF p_usec_rec.continuing_education_units IS NOT NULL THEN
4225: BEGIN
4226: igs_ps_usec_cps_pkg.check_constraints('CONTINUING_EDUCATION_UNITS',p_usec_rec.continuing_education_units);
4227: EXCEPTION
4228: WHEN OTHERS THEN
4229: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CONTINUING_EDUCATION_UNITS','LEGACY_TOKENS',TRUE);
4230: p_usec_rec.status :='E';
4231: END;
4232: END IF;
4233:
4235: BEGIN
4236: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_OTHER',p_usec_rec.work_load_other);
4237: EXCEPTION
4238: WHEN OTHERS THEN
4239: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_OTHER','LEGACY_TOKENS',TRUE);
4240: p_usec_rec.status :='E';
4241: END;
4242: END IF;
4243:
4245: BEGIN
4246: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_LECTURE',p_usec_rec.contact_hrs_lecture);
4247: EXCEPTION
4248: WHEN OTHERS THEN
4249: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LECTURE','LEGACY_TOKENS',TRUE);
4250: p_usec_rec.status :='E';
4251: END;
4252: END IF;
4253:
4255: BEGIN
4256: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_LAB',p_usec_rec.contact_hrs_lab);
4257: EXCEPTION
4258: WHEN OTHERS THEN
4259: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LAB','LEGACY_TOKENS',TRUE);
4260: p_usec_rec.status :='E';
4261: END;
4262: END IF;
4263:
4265: BEGIN
4266: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_OTHER',p_usec_rec.contact_hrs_other);
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_OTHER','LEGACY_TOKENS',TRUE);
4270: p_usec_rec.status :='E';
4271: END;
4272: END IF;
4273:
4275: BEGIN
4276: igs_ps_usec_cps_pkg.check_constraints('NON_SCHD_REQUIRED_HRS',p_usec_rec.non_schd_required_hrs);
4277: EXCEPTION
4278: WHEN OTHERS THEN
4279: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','NON_SCHD_REQUIRED_HRS','LEGACY_TOKENS',TRUE);
4280: p_usec_rec.status :='E';
4281: END;
4282: END IF;
4283:
4285: BEGIN
4286: igs_ps_usec_ref_pkg.check_constraints ( 'EXCLUDE_FROM_MAX_CP_LIMIT', p_usec_rec.exclude_from_max_cp_limit);
4287: EXCEPTION
4288: WHEN OTHERS THEN
4289: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'EXCLUDE_FROM_MAX_CP_LIMIT', 'LEGACY_TOKENS', TRUE);
4290: p_usec_rec.status := 'E';
4291: END;
4292: END IF;
4293:
4295: BEGIN
4296: igs_ps_usec_cps_pkg.check_constraints('CLAIMABLE_HOURS',p_usec_rec.claimable_hours);
4297: EXCEPTION
4298: WHEN OTHERS THEN
4299: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','CLAIMABLE_HOURS','LEGACY_TOKENS',TRUE);
4300: p_usec_rec.status :='E';
4301: END;
4302: END IF;
4303:
4531:
4532: /* Business validations */
4533: IF ( p_usec_rec.status = 'S' ) THEN
4534: -- Check for validation by calling validate_cps
4535: igs_ps_validate_lgcy_pkg.validate_cps ( p_usec_rec,l_n_uoo_id,l_insert_update ) ;
4536:
4537: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4538: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_cp.status_after_Business_validation',
4539: 'Unit code:'||p_usec_rec.unit_cd||' '||'Version number:'||p_usec_rec.version_number||' '||'teach_cal_alternate_code:'
4661: BEGIN
4662: IF p_insert_update = 'I' THEN
4663: /* Check for Unique Key Constraints */
4664: IF igs_ps_usec_ref_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4665: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_SEC_REF', 'LEGACY_TOKENS', FALSE);
4666: p_usec_rec.status := 'W';
4667: RETURN;
4668: END IF;
4669: END IF;
4669: END IF;
4670:
4671: /* Check for Foreign Key Constraints */
4672: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4673: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4674: p_usec_rec.status := 'E';
4675: END IF;
4676:
4677:
4680: BEGIN
4681: igs_ps_usec_ref_pkg.check_constraints ( 'REFERENCE_SUBTITLE_MOD_FLAG', p_usec_rec.reference_subtitle_mod_flag);
4682: EXCEPTION
4683: WHEN OTHERS THEN
4684: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'REFERENCE_SUBTITLE_MOD_FLAG', 'LEGACY_TOKENS', TRUE);
4685: p_usec_rec.status := 'E';
4686: END;
4687: END IF;
4688:
4690: BEGIN
4691: igs_ps_usec_ref_pkg.check_constraints ( 'REFERENCE_CLASS_SCH_EXCL_FLAG', p_usec_rec.reference_class_sch_excl_flag);
4692: EXCEPTION
4693: WHEN OTHERS THEN
4694: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'REFERENCE_CLASS_SCH_EXCL_FLAG', 'LEGACY_TOKENS', TRUE);
4695: p_usec_rec.status := 'E';
4696: END;
4697: END IF;
4698:
4700: BEGIN
4701: igs_ps_usec_ref_pkg.check_constraints ( 'REFERENCE_REC_EXCLUSION_FLAG', p_usec_rec.reference_rec_exclusion_flag);
4702: EXCEPTION
4703: WHEN OTHERS THEN
4704: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'REFERENCE_REC_EXCLUSION_FLAG', 'LEGACY_TOKENS', TRUE);
4705: p_usec_rec.status := 'E';
4706: END;
4707: END IF;
4708:
4955: /* Business validations */
4956: IF ( p_usec_rec.status = 'S' ) THEN
4957: -- Check for validation by calling validate_ref
4958: l_n_subtitle_id := NULL;
4959: igs_ps_validate_lgcy_pkg.validate_ref ( p_usec_rec, l_n_subtitle_id ,l_n_uoo_id,l_insert_update);
4960:
4961: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4962: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_ref.status_after_Business_validation',
4963: 'Unit code:'||p_usec_rec.unit_cd||' '||'Version number:'||p_usec_rec.version_number||' '||'teach_cal_alternate_code:'
5233: IF p_insert_update = 'I' THEN
5234: IF igs_ps_usec_lim_wlst_pkg.get_uk_for_validation(l_n_uoo_id) THEN
5235: p_usec_rec.status :='W';
5236: fnd_message.set_name('IGS','IGS_PS_USEC_ENR_LMTS');
5237: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get, NULL, FALSE);
5238: END IF;
5239: END IF;
5240:
5241: IF p_usec_rec.enrollment_expected IS NOT NULL THEN
5242: BEGIN
5243: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_EXPECTED',p_usec_rec.enrollment_expected);
5244: EXCEPTION
5245: WHEN OTHERS THEN
5246: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_EXPECTED','LEGACY_TOKENS',TRUE);
5247: p_usec_rec.status :='E';
5248: END;
5249: END IF;
5250:
5252: BEGIN
5253: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_MINIMUM',p_usec_rec.enrollment_minimum);
5254: EXCEPTION
5255: WHEN OTHERS THEN
5256: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_MINIMUM','LEGACY_TOKENS',TRUE);
5257: p_usec_rec.status :='E';
5258: END;
5259: END IF;
5260:
5262: BEGIN
5263: igs_ps_unit_ver_pkg.check_constraints('ENROLLMENT_MAXIMUM',p_usec_rec.enrollment_maximum);
5264: EXCEPTION
5265: WHEN OTHERS THEN
5266: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ENROLLMENT_MAXIMUM','LEGACY_TOKENS',TRUE);
5267: p_usec_rec.status :='E';
5268: END;
5269: END IF;
5270:
5272: BEGIN
5273: igs_ps_unit_ver_pkg.check_constraints('ADVANCE_MAXIMUM',p_usec_rec.advance_maximum);
5274: EXCEPTION
5275: WHEN OTHERS THEN
5276: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','ADVANCE_MAXIMUM','LEGACY_TOKENS',TRUE);
5277: p_usec_rec.status :='E';
5278: END;
5279: END IF;
5280:
5282: BEGIN
5283: igs_ps_unit_ver_pkg.check_constraints('OVERRIDE_ENROLLMENT_MAX',p_usec_rec.override_enrollment_maximum);
5284: EXCEPTION
5285: WHEN OTHERS THEN
5286: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','OVERRIDE_ENROLLMENT_MAX','LEGACY_TOKENS',TRUE);
5287: p_usec_rec.status :='E';
5288: END;
5289: END IF;
5290:
5292: BEGIN
5293: igs_ps_unit_ver_pkg.check_constraints('MAX_AUDITORS_ALLOWED',p_usec_rec. max_auditors_allowed);
5294: EXCEPTION
5295: WHEN OTHERS THEN
5296: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','MAX_AUDITORS_ALLOWED','LEGACY_TOKENS',TRUE);
5297: p_usec_rec.status :='E';
5298: END;
5299: END IF;
5300:
5302: BEGIN
5303: igs_ps_unit_ofr_pat_pkg.check_constraints ('WAITLIST_ALLOWED', p_usec_rec.usec_waitlist_allowed);
5304: EXCEPTION
5305: WHEN OTHERS THEN
5306: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','WAITLIST_ALLOWED', 'LEGACY_TOKENS', TRUE);
5307: p_usec_rec.status := 'E';
5308: END;
5309: END IF;
5310:
5312: BEGIN
5313: igs_ps_unit_ofr_pat_pkg.check_constraints('MAX_STUDENTS_PER_WAITLIST',p_usec_rec.usec_max_students_per_waitlist);
5314: EXCEPTION
5315: WHEN OTHERS THEN
5316: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999999','MAX_STUDENTS_PER_WAITLIST','LEGACY_TOKENS',TRUE);
5317: p_usec_rec.status :='E';
5318: END;
5319: END IF;
5320:
5318: END;
5319: END IF;
5320:
5321: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5322: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5323: p_usec_rec.status := 'E';
5324: END IF;
5325:
5326: END validate_db_cons;
5390:
5391: END IF;
5392:
5393: IF p_usec_rec.status = 'S' THEN
5394: igs_ps_validate_lgcy_pkg.validate_usec_el (p_usec_rec,l_n_uoo_id,l_insert_update);
5395:
5396: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5397: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_usec_el.status_after_business_validations',
5398: 'Unit code:'||p_usec_rec.unit_cd||' '||'Version number:'||p_usec_rec.version_number||' '||'teach_cal_alternate_code:'
5471: END IF;
5472:
5473: END IF;
5474:
5475: igs_ps_validate_lgcy_pkg.post_usec_limits(p_usec_rec,p_calling_context,l_n_uoo_id,l_insert_update);
5476:
5477: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5478: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_usec_el.status_after_post_usec_limits',
5479: 'Unit code:'||p_usec_rec.unit_cd||' '||'Version number:'||p_usec_rec.version_number||' '||'teach_cal_alternate_code:'
5689: BEGIN
5690:
5691: /* Check for Mandatory Parameters */
5692: IF p_usec_gs_rec.unit_cd IS NULL OR p_usec_gs_rec.unit_cd = FND_API.G_MISS_CHAR THEN
5693: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5694: p_usec_gs_rec.status := 'E';
5695: END IF;
5696: IF p_usec_gs_rec.version_number IS NULL OR p_usec_gs_rec.version_number = FND_API.G_MISS_NUM THEN
5697: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5693: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5694: p_usec_gs_rec.status := 'E';
5695: END IF;
5696: IF p_usec_gs_rec.version_number IS NULL OR p_usec_gs_rec.version_number = FND_API.G_MISS_NUM THEN
5697: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5698: p_usec_gs_rec.status := 'E';
5699: END IF;
5700: IF p_usec_gs_rec.teach_cal_alternate_code IS NULL OR p_usec_gs_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5701: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5697: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5698: p_usec_gs_rec.status := 'E';
5699: END IF;
5700: IF p_usec_gs_rec.teach_cal_alternate_code IS NULL OR p_usec_gs_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5701: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5702: p_usec_gs_rec.status := 'E';
5703: END IF;
5704: IF p_usec_gs_rec.location_cd IS NULL OR p_usec_gs_rec.location_cd = FND_API.G_MISS_CHAR THEN
5705: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5701: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5702: p_usec_gs_rec.status := 'E';
5703: END IF;
5704: IF p_usec_gs_rec.location_cd IS NULL OR p_usec_gs_rec.location_cd = FND_API.G_MISS_CHAR THEN
5705: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5706: p_usec_gs_rec.status := 'E';
5707: END IF;
5708: IF p_usec_gs_rec.unit_class IS NULL OR p_usec_gs_rec.unit_class = FND_API.G_MISS_CHAR THEN
5709: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5705: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5706: p_usec_gs_rec.status := 'E';
5707: END IF;
5708: IF p_usec_gs_rec.unit_class IS NULL OR p_usec_gs_rec.unit_class = FND_API.G_MISS_CHAR THEN
5709: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5710: p_usec_gs_rec.status := 'E';
5711: END IF;
5712: IF p_usec_gs_rec.grading_schema_code IS NULL OR p_usec_gs_rec.grading_schema_code = FND_API.G_MISS_CHAR THEN
5713: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
5709: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5710: p_usec_gs_rec.status := 'E';
5711: END IF;
5712: IF p_usec_gs_rec.grading_schema_code IS NULL OR p_usec_gs_rec.grading_schema_code = FND_API.G_MISS_CHAR THEN
5713: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
5714: p_usec_gs_rec.status := 'E';
5715: END IF;
5716: IF p_usec_gs_rec.grd_schm_version_number IS NULL OR p_usec_gs_rec.grd_schm_version_number = FND_API.G_MISS_NUM THEN
5717: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
5713: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_CD', 'LEGACY_TOKENS', FALSE);
5714: p_usec_gs_rec.status := 'E';
5715: END IF;
5716: IF p_usec_gs_rec.grd_schm_version_number IS NULL OR p_usec_gs_rec.grd_schm_version_number = FND_API.G_MISS_NUM THEN
5717: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
5718: p_usec_gs_rec.status := 'E';
5719: END IF;
5720: IF p_usec_gs_rec.default_flag IS NULL OR p_usec_gs_rec.default_flag = FND_API.G_MISS_CHAR THEN
5721: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DEFAULT_FLAG', 'LEGACY_TOKENS', FALSE);
5717: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_GRADING_SCHM_VER_NUM', 'LEGACY_TOKENS', FALSE);
5718: p_usec_gs_rec.status := 'E';
5719: END IF;
5720: IF p_usec_gs_rec.default_flag IS NULL OR p_usec_gs_rec.default_flag = FND_API.G_MISS_CHAR THEN
5721: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DEFAULT_FLAG', 'LEGACY_TOKENS', FALSE);
5722: p_usec_gs_rec.status := 'E';
5723: END IF;
5724: END validate_parameters;
5725:
5764: p_start_dt => l_d_start_dt,
5765: p_end_dt => l_d_end_dt,
5766: p_return_status => l_c_message );
5767: IF ( l_c_message <> 'SINGLE' ) THEN
5768: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5769: p_usec_gs_rec.status := 'E';
5770: END IF;
5771:
5772:
5771:
5772:
5773: -- Derive uoo_id
5774: l_c_message := NULL;
5775: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_gs_rec.unit_cd,
5776: p_ver_num => p_usec_gs_rec.version_number,
5777: p_cal_type => l_c_cal_type,
5778: p_seq_num => l_n_seq_num,
5779: p_loc_cd => p_usec_gs_rec.location_cd,
5780: p_unit_class => p_usec_gs_rec.unit_class,
5781: p_uoo_id => l_n_uoo_id,
5782: p_message => l_c_message );
5783: IF ( l_c_message IS NOT NULL ) THEN
5784: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5785: p_usec_gs_rec.status := 'E';
5786: END IF;
5787:
5788: END validate_derivations;
5794: /* Unique Key Validation */
5795: IF igs_ps_usec_grd_schm_pkg.get_uk_for_validation ( x_grading_schema_code => p_usec_gs_rec.grading_schema_code,
5796: x_grd_schm_version_number => p_usec_gs_rec.grd_schm_version_number,
5797: x_uoo_id => l_n_uoo_id ) THEN
5798: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_GRADING_SCHM', 'LEGACY_TOKENS', FALSE);
5799: p_usec_gs_rec.status := 'W';
5800: RETURN;
5801: END IF;
5802: END IF;
5805: BEGIN
5806: igs_ps_usec_grd_schm_pkg.check_constraints ( 'DEFAULT_FLAG', p_usec_gs_rec.default_flag );
5807: EXCEPTION
5808: WHEN OTHERS THEN
5809: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'DEFAULT_FLAG', 'LEGACY_TOKENS', TRUE);
5810: p_usec_gs_rec.status := 'E';
5811: END;
5812:
5813: /* Validate FK Constraints */
5811: END;
5812:
5813: /* Validate FK Constraints */
5814: IF NOT igs_as_grd_schema_pkg.get_pk_for_validation ( p_usec_gs_rec.grading_schema_code, p_usec_gs_rec.grd_schm_version_number) THEN
5815: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_GRADING_SCHM', 'LEGACY_TOKENS', FALSE);
5816: p_usec_gs_rec.status := 'E';
5817: END IF;
5818:
5819: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5816: p_usec_gs_rec.status := 'E';
5817: END IF;
5818:
5819: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5820: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5821: p_usec_gs_rec.status := 'E';
5822: END IF;
5823: END validate_db_cons;
5824:
5878:
5879:
5880: -- Find out whether record can go for import in context of cancelled/aborted
5881: IF p_tab_usec_gs(I).status = 'S' AND p_calling_context = 'S' THEN
5882: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
5883: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
5884: fnd_msg_pub.add;
5885: p_tab_usec_gs(I).status := 'A';
5886: END IF;
5897:
5898: IF l_tbl_uoo.count = 0 THEN
5899: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
5900: ELSE
5901: IF NOT igs_ps_validate_lgcy_pkg.isExists(l_n_uoo_id,l_tbl_uoo) THEN
5902: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
5903: END IF;
5904: END IF;
5905:
5928:
5929: /* Business Validations */
5930: /* Proceed with business validations only if the status is Success, 'S' */
5931: IF p_tab_usec_gs(I).status = 'S' THEN
5932: igs_ps_validate_lgcy_pkg.validate_usec_grd_sch ( p_tab_usec_gs(I),l_n_uoo_id );
5933:
5934: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5935: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_usec_grd_sch.status_after_Business_validation',
5936: 'Unit code:'||p_tab_usec_gs(I).unit_cd||' '||'Version number:'||p_tab_usec_gs(I).version_number||' '||'teach_cal_alternate_code:'
6018: END IF;--exists
6019: END LOOP;
6020:
6021: /* Post Insert/Update Checks */
6022: IF NOT igs_ps_validate_lgcy_pkg.post_usec_grd_sch (p_tab_usec_gs,l_tbl_uoo) THEN
6023: p_c_rec_status := 'E';
6024: END IF;
6025: l_tbl_uoo.DELETE;
6026:
6132: BEGIN
6133:
6134: /* Check for Mandatory Parameters */
6135: IF p_uso_rec.unit_cd IS NULL OR p_uso_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6136: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
6137: p_uso_rec.status := 'E';
6138: END IF;
6139: IF p_uso_rec.version_number IS NULL OR p_uso_rec.version_number = FND_API.G_MISS_NUM THEN
6140: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
6136: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
6137: p_uso_rec.status := 'E';
6138: END IF;
6139: IF p_uso_rec.version_number IS NULL OR p_uso_rec.version_number = FND_API.G_MISS_NUM THEN
6140: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
6141: p_uso_rec.status := 'E';
6142: END IF;
6143: IF p_uso_rec.teach_cal_alternate_code IS NULL OR p_uso_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
6144: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
6140: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VERSION', 'LEGACY_TOKENS', FALSE);
6141: p_uso_rec.status := 'E';
6142: END IF;
6143: IF p_uso_rec.teach_cal_alternate_code IS NULL OR p_uso_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
6144: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
6145: p_uso_rec.status := 'E';
6146: END IF;
6147: IF p_uso_rec.location_cd IS NULL OR p_uso_rec.location_cd = FND_API.G_MISS_CHAR THEN
6148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
6144: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
6145: p_uso_rec.status := 'E';
6146: END IF;
6147: IF p_uso_rec.location_cd IS NULL OR p_uso_rec.location_cd = FND_API.G_MISS_CHAR THEN
6148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
6149: p_uso_rec.status := 'E';
6150: END IF;
6151: IF p_uso_rec.unit_class IS NULL OR p_uso_rec.unit_class = FND_API.G_MISS_CHAR THEN
6152: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
6148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
6149: p_uso_rec.status := 'E';
6150: END IF;
6151: IF p_uso_rec.unit_class IS NULL OR p_uso_rec.unit_class = FND_API.G_MISS_CHAR THEN
6152: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
6153: p_uso_rec.status := 'E';
6154: END IF;
6155: IF p_uso_rec.occurrence_identifier IS NULL OR p_uso_rec.occurrence_identifier = FND_API.G_MISS_CHAR THEN
6156: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
6152: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
6153: p_uso_rec.status := 'E';
6154: END IF;
6155: IF p_uso_rec.occurrence_identifier IS NULL OR p_uso_rec.occurrence_identifier = FND_API.G_MISS_CHAR THEN
6156: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
6157: p_uso_rec.status := 'E';
6158: END IF;
6159:
6160: END validate_parameters;
6194: p_start_dt => l_d_start_dt,
6195: p_end_dt => l_d_end_dt,
6196: p_return_status => l_c_message );
6197: IF ( l_c_message <> 'SINGLE' ) THEN
6198: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
6199: p_uso_rec.status := 'E';
6200: END IF;
6201:
6202: l_c_message :=NULL;
6201:
6202: l_c_message :=NULL;
6203:
6204: -- Derive uoo_id
6205: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_uso_rec.unit_cd,
6206: p_ver_num => p_uso_rec.version_number,
6207: p_cal_type => l_c_cal_type,
6208: p_seq_num => l_n_seq_num,
6209: p_loc_cd => p_uso_rec.location_cd,
6210: p_unit_class => p_uso_rec.unit_class,
6211: p_uoo_id => l_n_uoo_id,
6212: p_message => l_c_message );
6213: IF ( l_c_message IS NOT NULL ) THEN
6214: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6215: p_uso_rec.status := 'E';
6216: END IF;
6217:
6218: -- Derive Building Identifier and associated Room Identifier.
6219: IF p_uso_rec.building_code IS NOT NULL AND p_uso_rec.building_code <> FND_API.G_MISS_CHAR THEN
6220: OPEN c_build_id ( p_uso_rec.building_code);
6221: FETCH c_build_id INTO l_n_building_code;
6222: IF ( c_build_id%NOTFOUND ) THEN
6223: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
6224: p_uso_rec.status := 'E';
6225: END IF;
6226: CLOSE c_build_id;
6227:
6229: IF p_uso_rec.room_code IS NOT NULL AND p_uso_rec.room_code <> FND_API.G_MISS_CHAR THEN
6230: OPEN c_room_id ( l_n_building_code, p_uso_rec.room_code );
6231: FETCH c_room_id INTO l_n_room_code;
6232: IF ( c_room_id%NOTFOUND ) THEN
6233: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
6234: p_uso_rec.status := 'E';
6235: END IF;
6236: CLOSE c_room_id;
6237: END IF;
6241: IF p_uso_rec.dedicated_building_code IS NOT NULL AND p_uso_rec.dedicated_building_code <> FND_API.G_MISS_CHAR THEN
6242: OPEN c_bld_id ( p_uso_rec.dedicated_building_code, p_uso_rec.location_cd );
6243: FETCH c_bld_id INTO l_n_dedicated_building_code;
6244: IF ( c_bld_id%NOTFOUND ) THEN
6245: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6246: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6247: p_uso_rec.status := 'E';
6248: END IF;
6249: CLOSE c_bld_id;
6242: OPEN c_bld_id ( p_uso_rec.dedicated_building_code, p_uso_rec.location_cd );
6243: FETCH c_bld_id INTO l_n_dedicated_building_code;
6244: IF ( c_bld_id%NOTFOUND ) THEN
6245: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6246: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6247: p_uso_rec.status := 'E';
6248: END IF;
6249: CLOSE c_bld_id;
6250:
6252: IF p_uso_rec.dedicated_room_code IS NOT NULL AND p_uso_rec.dedicated_room_code <> FND_API.G_MISS_CHAR THEN
6253: OPEN c_room_id ( l_n_dedicated_building_code, p_uso_rec.dedicated_room_code );
6254: FETCH c_room_id INTO l_n_dedicated_room_code;
6255: IF ( c_room_id%NOTFOUND ) THEN
6256: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6257: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6258: p_uso_rec.status := 'E';
6259: END IF;
6260: CLOSE c_room_id;
6253: OPEN c_room_id ( l_n_dedicated_building_code, p_uso_rec.dedicated_room_code );
6254: FETCH c_room_id INTO l_n_dedicated_room_code;
6255: IF ( c_room_id%NOTFOUND ) THEN
6256: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6257: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6258: p_uso_rec.status := 'E';
6259: END IF;
6260: CLOSE c_room_id;
6261: END IF;
6265: IF p_uso_rec.preferred_building_code IS NOT NULL AND p_uso_rec.preferred_building_code <> FND_API.G_MISS_CHAR THEN
6266: OPEN c_bld_id ( p_uso_rec.preferred_building_code, p_uso_rec.location_cd );
6267: FETCH c_bld_id INTO l_n_preferred_building_code;
6268: IF ( c_bld_id%NOTFOUND ) THEN
6269: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6270: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6271: p_uso_rec.status := 'E';
6272: END IF;
6273: CLOSE c_bld_id;
6266: OPEN c_bld_id ( p_uso_rec.preferred_building_code, p_uso_rec.location_cd );
6267: FETCH c_bld_id INTO l_n_preferred_building_code;
6268: IF ( c_bld_id%NOTFOUND ) THEN
6269: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6270: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6271: p_uso_rec.status := 'E';
6272: END IF;
6273: CLOSE c_bld_id;
6274:
6276: IF p_uso_rec.preferred_room_code IS NOT NULL AND p_uso_rec.preferred_room_code <> FND_API.G_MISS_CHAR THEN
6277: OPEN c_room_id ( l_n_preferred_building_code, p_uso_rec.preferred_room_code );
6278: FETCH c_room_id INTO l_n_preferred_room_code;
6279: IF ( c_room_id%NOTFOUND ) THEN
6280: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6281: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6282: p_uso_rec.status := 'E';
6283: END IF;
6284: CLOSE c_room_id;
6277: OPEN c_room_id ( l_n_preferred_building_code, p_uso_rec.preferred_room_code );
6278: FETCH c_room_id INTO l_n_preferred_room_code;
6279: IF ( c_room_id%NOTFOUND ) THEN
6280: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6281: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6282: p_uso_rec.status := 'E';
6283: END IF;
6284: CLOSE c_room_id;
6285: END IF;
6299: BEGIN
6300: igs_ps_usec_occurs_pkg.check_constraints ( 'NO_SET_DAY_IND', p_uso_rec.no_set_day_ind );
6301: EXCEPTION
6302: WHEN OTHERS THEN
6303: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'NO_SET_DAY_IND', 'LEGACY_TOKENS', TRUE);
6304: p_uso_rec.status := 'E';
6305: END;
6306:
6307: BEGIN
6307: BEGIN
6308: igs_ps_usec_occurs_pkg.check_constraints ( 'TO_BE_ANNOUNCED', p_uso_rec.to_be_announced );
6309: EXCEPTION
6310: WHEN OTHERS THEN
6311: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'TO_BE_ANNOUNCED', 'LEGACY_TOKENS', TRUE);
6312: p_uso_rec.status := 'E';
6313: END;
6314:
6315: BEGIN
6315: BEGIN
6316: igs_ps_usec_occurs_pkg.check_constraints ( 'MONDAY', p_uso_rec.monday );
6317: EXCEPTION
6318: WHEN OTHERS THEN
6319: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'MONDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6320: p_uso_rec.status := 'E';
6321: END;
6322:
6323: BEGIN
6323: BEGIN
6324: igs_ps_usec_occurs_pkg.check_constraints ( 'TUESDAY', p_uso_rec.tuesday );
6325: EXCEPTION
6326: WHEN OTHERS THEN
6327: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'TUESDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6328: p_uso_rec.status := 'E';
6329: END;
6330:
6331: BEGIN
6331: BEGIN
6332: igs_ps_usec_occurs_pkg.check_constraints ( 'WEDNESDAY', p_uso_rec.wednesday );
6333: EXCEPTION
6334: WHEN OTHERS THEN
6335: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'WEDNESDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6336: p_uso_rec.status := 'E';
6337: END;
6338:
6339: BEGIN
6339: BEGIN
6340: igs_ps_usec_occurs_pkg.check_constraints ( 'THURSDAY', p_uso_rec.thursday );
6341: EXCEPTION
6342: WHEN OTHERS THEN
6343: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'THURSDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6344: p_uso_rec.status := 'E';
6345: END;
6346:
6347: BEGIN
6347: BEGIN
6348: igs_ps_usec_occurs_pkg.check_constraints ( 'FRIDAY', p_uso_rec.friday );
6349: EXCEPTION
6350: WHEN OTHERS THEN
6351: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'FRIDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6352: p_uso_rec.status := 'E';
6353: END;
6354:
6355: BEGIN
6355: BEGIN
6356: igs_ps_usec_occurs_pkg.check_constraints ( 'SATURDAY', p_uso_rec.saturday );
6357: EXCEPTION
6358: WHEN OTHERS THEN
6359: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'SATURDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6360: p_uso_rec.status := 'E';
6361: END;
6362:
6363: BEGIN
6363: BEGIN
6364: igs_ps_usec_occurs_pkg.check_constraints ( 'SUNDAY', p_uso_rec.sunday );
6365: EXCEPTION
6366: WHEN OTHERS THEN
6367: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'SUNDAY', 'DT_OFFSET_CONSTRAINT_TYPE', TRUE);
6368: p_uso_rec.status := 'E';
6369: END;
6370:
6371:
6373: /* Unique Key Validation */
6374: IF igs_ps_usec_occurs_pkg.get_uk_for_validation ( x_uoo_id => l_n_uoo_id ,
6375: x_occurrence_identifier => p_uso_rec.occurrence_identifier
6376: ) THEN
6377: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
6378: p_uso_rec.status := 'W';
6379: RETURN;
6380: END IF;
6381: END IF;
6383: /* Validate FK Constraints */
6384:
6385: -- Check for the existence of Unit Section
6386: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
6387: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6388: p_uso_rec.status := 'E';
6389: END IF;
6390:
6391: -- Check for the existence of Buildings, if their codes are passed
6390:
6391: -- Check for the existence of Buildings, if their codes are passed
6392: IF l_n_building_code IS NOT NULL THEN
6393: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_building_code ) THEN
6394: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
6395: p_uso_rec.status := 'E';
6396: END IF;
6397: END IF;
6398:
6397: END IF;
6398:
6399: IF l_n_dedicated_building_code IS NOT NULL THEN
6400: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_dedicated_building_code ) THEN
6401: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6402: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6403: p_uso_rec.status := 'E';
6404: END IF;
6405: END IF;
6398:
6399: IF l_n_dedicated_building_code IS NOT NULL THEN
6400: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_dedicated_building_code ) THEN
6401: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6402: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6403: p_uso_rec.status := 'E';
6404: END IF;
6405: END IF;
6406:
6405: END IF;
6406:
6407: IF l_n_preferred_building_code IS NOT NULL THEN
6408: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_preferred_building_code ) THEN
6409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6410: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6411: p_uso_rec.status := 'E';
6412: END IF;
6413: END IF;
6406:
6407: IF l_n_preferred_building_code IS NOT NULL THEN
6408: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_preferred_building_code ) THEN
6409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6410: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6411: p_uso_rec.status := 'E';
6412: END IF;
6413: END IF;
6414:
6414:
6415: -- Check for the existence of Rooms, if their codes are passed
6416: IF l_n_room_code IS NOT NULL THEN
6417: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_room_code ) THEN
6418: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
6419: p_uso_rec.status := 'E';
6420: END IF;
6421: END IF;
6422:
6421: END IF;
6422:
6423: IF l_n_dedicated_room_code IS NOT NULL THEN
6424: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_dedicated_room_code ) THEN
6425: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6426: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6427: p_uso_rec.status := 'E';
6428: END IF;
6429: END IF;
6422:
6423: IF l_n_dedicated_room_code IS NOT NULL THEN
6424: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_dedicated_room_code ) THEN
6425: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6426: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6427: p_uso_rec.status := 'E';
6428: END IF;
6429: END IF;
6430:
6429: END IF;
6430:
6431: IF l_n_preferred_room_code IS NOT NULL THEN
6432: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_preferred_room_code ) THEN
6433: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6434: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6435: p_uso_rec.status := 'E';
6436: END IF;
6437: END IF;
6430:
6431: IF l_n_preferred_room_code IS NOT NULL THEN
6432: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_preferred_room_code ) THEN
6433: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6434: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6435: p_uso_rec.status := 'E';
6436: END IF;
6437: END IF;
6438:
6439: -- Following validation added as part of bug#2972950 for the PSP Scheduling Enhancements TD
6440: -- If preferred region code is not NULL check it has a valid value
6441: IF p_uso_rec.preferred_region_code IS NOT NULL THEN
6442: IF NOT igs_lookups_view_pkg.get_pk_for_validation ('IGS_OR_LOC_REGION',p_uso_rec.preferred_region_code) THEN
6443: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','PREFERRED_REGION_CODE','LEGACY_TOKENS',FALSE);
6444: p_uso_rec.status := 'E';
6445: ELSIF NOT igs_or_loc_region_pkg.get_pk_for_validation(p_uso_rec.location_cd,p_uso_rec.preferred_region_code) THEN
6446: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','PREFERRED_REGION_CODE','LEGACY_TOKENS',FALSE);
6447: p_uso_rec.status := 'E';
6442: IF NOT igs_lookups_view_pkg.get_pk_for_validation ('IGS_OR_LOC_REGION',p_uso_rec.preferred_region_code) THEN
6443: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','PREFERRED_REGION_CODE','LEGACY_TOKENS',FALSE);
6444: p_uso_rec.status := 'E';
6445: ELSIF NOT igs_or_loc_region_pkg.get_pk_for_validation(p_uso_rec.location_cd,p_uso_rec.preferred_region_code) THEN
6446: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','PREFERRED_REGION_CODE','LEGACY_TOKENS',FALSE);
6447: p_uso_rec.status := 'E';
6448: END IF;
6449: END IF;
6450:
6774:
6775: OPEN cur_room(l_n_building_code,p_uso_rec.room_code);
6776: FETCH cur_room INTO l_n_room_code;
6777: IF cur_room%NOTFOUND THEN
6778: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
6779: p_uso_rec.status := 'E';
6780: END IF;
6781: CLOSE cur_room;
6782: END IF;
6796: ELSIF p_uso_rec.dedicated_room_code IS NOT NULL THEN
6797: OPEN cur_room(l_n_dedicated_building_code,p_uso_rec.dedicated_room_code);
6798: FETCH cur_room INTO l_n_dedicated_room_code;
6799: IF cur_room%NOTFOUND THEN
6800: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6801: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6802: p_uso_rec.status := 'E';
6803: END IF;
6804: CLOSE cur_room;
6797: OPEN cur_room(l_n_dedicated_building_code,p_uso_rec.dedicated_room_code);
6798: FETCH cur_room INTO l_n_dedicated_room_code;
6799: IF cur_room%NOTFOUND THEN
6800: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
6801: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6802: p_uso_rec.status := 'E';
6803: END IF;
6804: CLOSE cur_room;
6805: END IF;
6818: ELSIF p_uso_rec.preferred_room_code IS NOT NULL THEN
6819: OPEN cur_room(l_n_preferred_building_code,p_uso_rec.preferred_room_code);
6820: FETCH cur_room INTO l_n_preferred_room_code;
6821: IF cur_room%NOTFOUND THEN
6822: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6823: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6824: p_uso_rec.status := 'E';
6825: END IF;
6826: CLOSE cur_room;
6819: OPEN cur_room(l_n_preferred_building_code,p_uso_rec.preferred_room_code);
6820: FETCH cur_room INTO l_n_preferred_room_code;
6821: IF cur_room%NOTFOUND THEN
6822: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
6823: igs_ps_validate_lgcy_pkg.get_lkup_meaning('ROOM_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
6824: p_uso_rec.status := 'E';
6825: END IF;
6826: CLOSE cur_room;
6827: END IF;
6929: END IF;
6930:
6931: -- Find out whether record can go for import in context of cancelled/aborted
6932: IF p_tab_usec_occur(I).status = 'S' AND p_calling_context ='S' THEN
6933: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
6934: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6935: fnd_msg_pub.add;
6936: p_tab_usec_occur(I).status := 'A';
6937: END IF;
6975:
6976: /* Business Validations */
6977: /* Proceed with business validations only if the status is Success, 'S' */
6978: IF p_tab_usec_occur(I).status = 'S' THEN
6979: igs_ps_validate_lgcy_pkg.validate_usec_occurs ( p_tab_usec_occur(I), l_n_uoo_id, l_d_start_dt, l_d_end_dt,
6980: l_n_building_code,l_n_room_code,
6981: l_n_dedicated_building_code,l_n_dedicated_room_code,
6982: l_n_preferred_building_code,l_n_preferred_room_code,l_n_uso_id,
6983: l_insert_update,p_calling_context,l_notify_status,l_c_schedule_status
7372: -- Validate the Mandatory Parameters for creation of unit referrence code
7373: PROCEDURE validate_unit_parameters( p_ref_cd_rec IN OUT NOCOPY igs_ps_generic_pub.unit_ref_rec_type) AS
7374: BEGIN
7375: IF p_ref_cd_rec.unit_cd IS NULL OR p_ref_cd_rec.unit_cd = FND_API.G_MISS_CHAR THEN
7376: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD','LEGACY_TOKENS', FALSE);
7377: p_ref_cd_rec.status := 'E';
7378: END IF;
7379: IF p_ref_cd_rec.version_number IS NULL OR p_ref_cd_rec.version_number = FND_API.G_MISS_NUM THEN
7380: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM','LEGACY_TOKENS', FALSE);
7376: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD','LEGACY_TOKENS', FALSE);
7377: p_ref_cd_rec.status := 'E';
7378: END IF;
7379: IF p_ref_cd_rec.version_number IS NULL OR p_ref_cd_rec.version_number = FND_API.G_MISS_NUM THEN
7380: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM','LEGACY_TOKENS', FALSE);
7381: p_ref_cd_rec.status := 'E';
7382: END IF;
7383: IF p_ref_cd_rec.data_type IS NULL OR p_ref_cd_rec.data_type = FND_API.G_MISS_CHAR THEN
7384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DATA_TYPE','LEGACY_TOKENS', FALSE);
7380: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM','LEGACY_TOKENS', FALSE);
7381: p_ref_cd_rec.status := 'E';
7382: END IF;
7383: IF p_ref_cd_rec.data_type IS NULL OR p_ref_cd_rec.data_type = FND_API.G_MISS_CHAR THEN
7384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DATA_TYPE','LEGACY_TOKENS', FALSE);
7385: p_ref_cd_rec.status := 'E';
7386: END IF;
7387: IF p_ref_cd_rec.reference_cd_type IS NULL OR p_ref_cd_rec.reference_cd_type = FND_API.G_MISS_CHAR THEN
7388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'REFERENCE_CD_TYPE','LEGACY_TOKENS', FALSE);
7384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'DATA_TYPE','LEGACY_TOKENS', FALSE);
7385: p_ref_cd_rec.status := 'E';
7386: END IF;
7387: IF p_ref_cd_rec.reference_cd_type IS NULL OR p_ref_cd_rec.reference_cd_type = FND_API.G_MISS_CHAR THEN
7388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'REFERENCE_CD_TYPE','LEGACY_TOKENS', FALSE);
7389: p_ref_cd_rec.status := 'E';
7390: END IF;
7391: IF p_ref_cd_rec.reference_cd IS NULL OR p_ref_cd_rec.reference_cd = FND_API.G_MISS_CHAR THEN
7392: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'REFERENCE_CD','LEGACY_TOKENS', FALSE);
7388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'REFERENCE_CD_TYPE','LEGACY_TOKENS', FALSE);
7389: p_ref_cd_rec.status := 'E';
7390: END IF;
7391: IF p_ref_cd_rec.reference_cd IS NULL OR p_ref_cd_rec.reference_cd = FND_API.G_MISS_CHAR THEN
7392: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'REFERENCE_CD','LEGACY_TOKENS', FALSE);
7393: p_ref_cd_rec.status := 'E';
7394: END IF;
7395: END validate_unit_parameters;
7396:
7398: PROCEDURE validate_usec_parameters( p_ref_cd_rec IN OUT NOCOPY igs_ps_generic_pub.unit_ref_rec_type) AS
7399: BEGIN
7400: validate_unit_parameters( p_ref_cd_rec );
7401: IF p_ref_cd_rec.teach_cal_alternate_code IS NULL OR p_ref_cd_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
7402: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
7403: p_ref_cd_rec.status := 'E';
7404: END IF;
7405: IF p_ref_cd_rec.location_cd IS NULL OR p_ref_cd_rec.location_cd = FND_API.G_MISS_CHAR THEN
7406: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS', FALSE);
7402: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
7403: p_ref_cd_rec.status := 'E';
7404: END IF;
7405: IF p_ref_cd_rec.location_cd IS NULL OR p_ref_cd_rec.location_cd = FND_API.G_MISS_CHAR THEN
7406: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS', FALSE);
7407: p_ref_cd_rec.status := 'E';
7408: END IF;
7409: IF p_ref_cd_rec.unit_class IS NULL OR p_ref_cd_rec.unit_class = FND_API.G_MISS_CHAR THEN
7410: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS','LEGACY_TOKENS', FALSE);
7406: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS', FALSE);
7407: p_ref_cd_rec.status := 'E';
7408: END IF;
7409: IF p_ref_cd_rec.unit_class IS NULL OR p_ref_cd_rec.unit_class = FND_API.G_MISS_CHAR THEN
7410: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS','LEGACY_TOKENS', FALSE);
7411: p_ref_cd_rec.status := 'E';
7412: END IF;
7413:
7414: IF p_ref_cd_rec.data_type = 'OCCURRENCE' AND
7412: END IF;
7413:
7414: IF p_ref_cd_rec.data_type = 'OCCURRENCE' AND
7415: (p_ref_cd_rec.occurrence_identifier IS NULL OR p_ref_cd_rec.occurrence_identifier = FND_API.G_MISS_CHAR) AND (p_ref_cd_rec.production_uso_id IS NULL OR p_ref_cd_rec.production_uso_id = FND_API.G_MISS_NUM) THEN
7416: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID','IGS_PS_LOG_PARAMETERS', FALSE);
7417: p_ref_cd_rec.status := 'E';
7418: END IF;
7419:
7420: IF p_calling_context IN ('G','S') AND p_ref_cd_rec.data_type = 'UNIT' THEN
7433: validate_unit_parameters(p_ref_cd_rec);
7434: ELSIF p_ref_cd_rec.data_type = 'SECTION' OR p_ref_cd_rec.data_type = 'OCCURRENCE' THEN
7435: validate_usec_parameters(p_ref_cd_rec);
7436: ELSE
7437: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'DATA_TYPE','LEGACY_TOKENS', FALSE);
7438: p_ref_cd_rec.status := 'E';
7439: END IF;
7440: END validate_parameters;
7441:
7459:
7460: -- Deriving the Calendar Type and Calendar Sequence Number
7461: igs_ge_gen_003.get_calendar_instance(p_ref_cd_rec.teach_cal_alternate_code, '''TEACHING''', l_c_cal_type,l_n_seq_num,l_d_start,l_d_end,l_ret_status);
7462: IF l_ret_status <> 'SINGLE' THEN
7463: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
7464: p_ref_cd_rec.status := 'E';
7465: END IF;
7466:
7467: -- Deriving the Unit Offering Option Identifier
7465: END IF;
7466:
7467: -- Deriving the Unit Offering Option Identifier
7468: l_ret_status := NULL;
7469: igs_ps_validate_lgcy_pkg.get_uoo_id(p_ref_cd_rec.unit_cd, p_ref_cd_rec.version_number , l_c_cal_type, l_n_seq_num, p_ref_cd_rec.location_cd, p_ref_cd_rec.unit_class,l_n_uoo_id,l_ret_status);
7470: IF l_ret_status IS NOT NULL THEN
7471: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION','LEGACY_TOKENS', FALSE);
7472: p_ref_cd_rec.status := 'E';
7473: END IF;
7467: -- Deriving the Unit Offering Option Identifier
7468: l_ret_status := NULL;
7469: igs_ps_validate_lgcy_pkg.get_uoo_id(p_ref_cd_rec.unit_cd, p_ref_cd_rec.version_number , l_c_cal_type, l_n_seq_num, p_ref_cd_rec.location_cd, p_ref_cd_rec.unit_class,l_n_uoo_id,l_ret_status);
7470: IF l_ret_status IS NOT NULL THEN
7471: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION','LEGACY_TOKENS', FALSE);
7472: p_ref_cd_rec.status := 'E';
7473: END IF;
7474:
7475: -- Deriving the Unit Section Reference Identifier
7475: -- Deriving the Unit Section Reference Identifier
7476: OPEN c_usec_ref_id (l_n_uoo_id);
7477: FETCH c_usec_ref_id INTO l_n_usec_ref_id;
7478: IF c_usec_ref_id%NOTFOUND THEN
7479: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7480: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7481: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7482: NULL, FALSE);
7483: p_ref_cd_rec.status := 'E';
7476: OPEN c_usec_ref_id (l_n_uoo_id);
7477: FETCH c_usec_ref_id INTO l_n_usec_ref_id;
7478: IF c_usec_ref_id%NOTFOUND THEN
7479: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7480: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7481: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7482: NULL, FALSE);
7483: p_ref_cd_rec.status := 'E';
7484: END IF;
7477: FETCH c_usec_ref_id INTO l_n_usec_ref_id;
7478: IF c_usec_ref_id%NOTFOUND THEN
7479: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7480: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7481: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7482: NULL, FALSE);
7483: p_ref_cd_rec.status := 'E';
7484: END IF;
7485: CLOSE c_usec_ref_id;
7508:
7509: -- Deriving the Calendar Type and Calendar Sequence Number
7510: igs_ge_gen_003.get_calendar_instance(p_ref_cd_rec.teach_cal_alternate_code, '''TEACHING''', l_c_cal_type,l_n_seq_num,l_d_start,l_d_end,l_ret_status);
7511: IF l_ret_status <> 'SINGLE' THEN
7512: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
7513: p_ref_cd_rec.status := 'E';
7514: END IF;
7515:
7516: -- Deriving the Unit Offering Option Identifier
7514: END IF;
7515:
7516: -- Deriving the Unit Offering Option Identifier
7517: l_ret_status := NULL;
7518: igs_ps_validate_lgcy_pkg.get_uoo_id(p_ref_cd_rec.unit_cd, p_ref_cd_rec.version_number , l_c_cal_type, l_n_seq_num, p_ref_cd_rec.location_cd, p_ref_cd_rec.unit_class,l_n_uoo_id,l_ret_status);
7519: IF l_ret_status IS NOT NULL THEN
7520: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION','LEGACY_TOKENS', FALSE);
7521: p_ref_cd_rec.status := 'E';
7522: END IF;
7516: -- Deriving the Unit Offering Option Identifier
7517: l_ret_status := NULL;
7518: igs_ps_validate_lgcy_pkg.get_uoo_id(p_ref_cd_rec.unit_cd, p_ref_cd_rec.version_number , l_c_cal_type, l_n_seq_num, p_ref_cd_rec.location_cd, p_ref_cd_rec.unit_class,l_n_uoo_id,l_ret_status);
7519: IF l_ret_status IS NOT NULL THEN
7520: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION','LEGACY_TOKENS', FALSE);
7521: p_ref_cd_rec.status := 'E';
7522: END IF;
7523:
7524:
7528: -- Error message is return in the out parameter l_c_msg if any.
7529: l_c_msg := NULL;
7530:
7531:
7532: igs_ps_validate_lgcy_pkg.get_uso_id( p_uoo_id => l_n_uoo_id,
7533: p_occurrence_identifier => p_ref_cd_rec.occurrence_identifier,
7534: p_uso_id => l_n_uso_id,
7535: p_message => l_c_msg
7536: );
7579: p_ref_cd_rec.gen_ref_flag := 'Y' ;-- Defauling to 'Y' that is generic reference codes
7580: ELSE
7581: IF p_ref_cd_rec.gen_ref_flag NOT IN ('Y','N') THEN
7582: fnd_message.set_name('IGS','IGS_PS_LGCY_GEN_FLAG');
7583: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get,NULL,FALSE);
7584: p_ref_cd_rec.status:='E';
7585: END IF;
7586: END IF;
7587:
7603: IF p_ref_cd_rec.gen_ref_flag = 'Y' THEN -- if generic reference code
7604: IF igs_ps_unit_ref_cd_pkg.get_uk_for_validation(p_ref_cd_rec.unit_cd,
7605: p_ref_cd_rec.version_number,
7606: p_ref_cd_rec.reference_cd_type) THEN
7607: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_REFERENCE_CD','LEGACY_TOKENS', FALSE);
7608: p_ref_cd_rec.status := 'W';
7609: RETURN;
7610: END IF;
7611: ELSE -- else Unit requirement reference code
7614: p_ref_cd_rec.reference_cd_type,
7615: p_ref_cd_rec.reference_cd
7616: ) THEN
7617: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_REQ_REF');
7618: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get,NULL, FALSE);
7619: p_ref_cd_rec.status := 'W';
7620: RETURN;
7621: END IF;
7622: END IF;
7625: BEGIN
7626: igs_ps_unit_ref_cd_pkg.check_constraints('UNIT_CD', p_ref_cd_rec.unit_cd);
7627: EXCEPTION
7628: WHEN OTHERS THEN
7629: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'UNIT_CD','LEGACY_TOKENS', TRUE);
7630: p_ref_cd_rec.status := 'E';
7631: END;
7632:
7633: -- Check Constraints: Reference Code Should be in Upper Case
7634: BEGIN
7635: igs_ps_unit_ref_cd_pkg.check_constraints('REFERENCE_CD', p_ref_cd_rec.reference_cd);
7636: EXCEPTION
7637: WHEN OTHERS THEN
7638: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'REFERENCE_CD','LEGACY_TOKENS', TRUE);
7639: p_ref_cd_rec.status := 'E';
7640: END;
7641:
7642: -- Check Constraints: Reference Code Type Should be in Upper Case
7643: BEGIN
7644: igs_ps_unit_ref_cd_pkg.check_constraints('REFERENCE_CD_TYPE', p_ref_cd_rec.reference_cd_type);
7645: EXCEPTION
7646: WHEN OTHERS THEN
7647: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE', 'REFERENCE_CD_TYPE','LEGACY_TOKENS', TRUE);
7648: p_ref_cd_rec.status := 'E';
7649: END;
7650:
7651: -- Following validation added as part of bug#2972950 for the PSP Enhancements TD
7654: IF c_res_flag%FOUND THEN
7655: IF rec_res_flag.restricted_flag = 'Y' THEN
7656: -- Foreign Key Validations : Reference Code doesn't exists
7657: IF NOT igs_ge_ref_cd_pkg.get_uk_for_validation(p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7658: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'REFERENCE_CD','LEGACY_TOKENS', FALSE);
7659: p_ref_cd_rec.status := 'E';
7660: END IF;
7661: END IF;
7662: ELSE
7659: p_ref_cd_rec.status := 'E';
7660: END IF;
7661: END IF;
7662: ELSE
7663: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_INVALID_REF_CD_TYPE',NULL,NULL,FALSE);
7664: p_ref_cd_rec.status := 'E';
7665: END IF;
7666: CLOSE c_res_flag;
7667:
7666: CLOSE c_res_flag;
7667:
7668: -- Foreign Key Validations : Unit Version doesn't exists
7669: IF NOT igs_ps_unit_ver_pkg.get_pk_for_validation(p_ref_cd_rec.unit_cd, p_ref_cd_rec.version_number) THEN
7670: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_VERSION','LEGACY_TOKENS', FALSE);
7671: p_ref_cd_rec.status := 'E';
7672: END IF;
7673:
7674: END validate_unit_db_cons;
7682: --Unique Key Validation
7683: --Enh#2972950,impact of change of signature of igs_ps_usec_ref_cd_pkg.get_uk_for_validation
7684: IF p_ref_cd_rec.gen_ref_flag = 'Y' THEN -- if generic reference code
7685: IF igs_ps_usec_ref_cd_pkg.get_uk_for_validation(l_n_usec_ref_id,p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7686: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7687: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7688: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7689: NULL, FALSE);
7690: p_ref_cd_rec.status := 'W';
7683: --Enh#2972950,impact of change of signature of igs_ps_usec_ref_cd_pkg.get_uk_for_validation
7684: IF p_ref_cd_rec.gen_ref_flag = 'Y' THEN -- if generic reference code
7685: IF igs_ps_usec_ref_cd_pkg.get_uk_for_validation(l_n_usec_ref_id,p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7686: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7687: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7688: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7689: NULL, FALSE);
7690: p_ref_cd_rec.status := 'W';
7691: RETURN;
7684: IF p_ref_cd_rec.gen_ref_flag = 'Y' THEN -- if generic reference code
7685: IF igs_ps_usec_ref_cd_pkg.get_uk_for_validation(l_n_usec_ref_id,p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7686: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7687: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7688: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7689: NULL, FALSE);
7690: p_ref_cd_rec.status := 'W';
7691: RETURN;
7692: END IF;
7692: END IF;
7693: ELSE -- else Unit Section requirement reference code
7694: IF igs_ps_us_req_ref_cd_pkg.get_uk_for_validation(l_n_usec_ref_id,p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7695: fnd_message.set_name('IGS','IGS_PS_LGCY_USEC_REQ_REF');
7696: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',fnd_message.get,NULL, FALSE);
7697: p_ref_cd_rec.status := 'W';
7698: RETURN;
7699: END IF;
7700: END IF;
7706: IF c_res_flag%FOUND THEN
7707: IF rec_res_flag.restricted_flag = 'Y' THEN
7708: -- Foreign Key Validations : Reference Code doesn't exists
7709: IF NOT igs_ge_ref_cd_pkg.get_uk_for_validation(p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7710: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'REFERENCE_CD','LEGACY_TOKENS', FALSE);
7711: p_ref_cd_rec.status := 'E';
7712: END IF;
7713: END IF;
7714: ELSE
7711: p_ref_cd_rec.status := 'E';
7712: END IF;
7713: END IF;
7714: ELSE
7715: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_INVALID_REF_CD_TYPE',NULL,NULL,FALSE);
7716: p_ref_cd_rec.status := 'E';
7717: END IF;
7718: CLOSE c_res_flag;
7719:
7718: CLOSE c_res_flag;
7719:
7720: -- Foreign Key Validation : Unit Section doesn't exists
7721: IF NOT igs_ps_usec_ref_pkg.get_pk_for_validation(l_n_usec_ref_id) THEN
7722: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7723: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7724: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7725: NULL, FALSE);
7726: p_ref_cd_rec.status := 'E';
7719:
7720: -- Foreign Key Validation : Unit Section doesn't exists
7721: IF NOT igs_ps_usec_ref_pkg.get_pk_for_validation(l_n_usec_ref_id) THEN
7722: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7723: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7724: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7725: NULL, FALSE);
7726: p_ref_cd_rec.status := 'E';
7727: END IF;
7720: -- Foreign Key Validation : Unit Section doesn't exists
7721: IF NOT igs_ps_usec_ref_pkg.get_pk_for_validation(l_n_usec_ref_id) THEN
7722: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS',
7723: igs_ps_validate_lgcy_pkg.get_lkup_meaning('UNIT_SECTION','LEGACY_TOKENS') || ' ' ||
7724: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7725: NULL, FALSE);
7726: p_ref_cd_rec.status := 'E';
7727: END IF;
7728:
7736: -- Unique Key Validation
7737: IF igs_ps_usec_ocur_ref_pkg.get_uk_for_validation( p_ref_cd_rec.reference_cd_type ,
7738: p_ref_cd_rec.reference_cd ,
7739: l_n_uso_id ) THEN
7740: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7741: igs_ps_validate_lgcy_pkg.get_lkup_meaning('USEC_OCCUR','LEGACY_TOKENS') || ' ' ||
7742: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7743: NULL, FALSE);
7744: p_ref_cd_rec.status := 'W';
7737: IF igs_ps_usec_ocur_ref_pkg.get_uk_for_validation( p_ref_cd_rec.reference_cd_type ,
7738: p_ref_cd_rec.reference_cd ,
7739: l_n_uso_id ) THEN
7740: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7741: igs_ps_validate_lgcy_pkg.get_lkup_meaning('USEC_OCCUR','LEGACY_TOKENS') || ' ' ||
7742: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7743: NULL, FALSE);
7744: p_ref_cd_rec.status := 'W';
7745: RETURN;
7738: p_ref_cd_rec.reference_cd ,
7739: l_n_uso_id ) THEN
7740: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS',
7741: igs_ps_validate_lgcy_pkg.get_lkup_meaning('USEC_OCCUR','LEGACY_TOKENS') || ' ' ||
7742: igs_ps_validate_lgcy_pkg.get_lkup_meaning('REFERENCE_CD','LEGACY_TOKENS'),
7743: NULL, FALSE);
7744: p_ref_cd_rec.status := 'W';
7745: RETURN;
7746: END IF;
7752: IF c_res_flag%FOUND THEN
7753: IF rec_res_flag.restricted_flag = 'Y' THEN
7754: -- Foreign Key Validations : Reference Code doesn't exists
7755: IF NOT igs_ge_ref_cd_pkg.get_uk_for_validation(p_ref_cd_rec.reference_cd_type,p_ref_cd_rec.reference_cd) THEN
7756: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'REFERENCE_CD','LEGACY_TOKENS', FALSE);
7757: p_ref_cd_rec.status := 'E';
7758: END IF;
7759: END IF;
7760: ELSE
7757: p_ref_cd_rec.status := 'E';
7758: END IF;
7759: END IF;
7760: ELSE
7761: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_INVALID_REF_CD_TYPE',NULL,NULL,FALSE);
7762: p_ref_cd_rec.status := 'E';
7763: END IF;
7764: CLOSE c_res_flag;
7765:
7764: CLOSE c_res_flag;
7765:
7766: -- Foreign Key Validation : Unit Section Occurrence doesn't exists
7767: IF NOT igs_ps_usec_occurs_pkg.get_pk_for_validation(l_n_uso_id) THEN
7768: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_OCCUR','LEGACY_TOKENS', FALSE);
7769: p_ref_cd_rec.status := 'E';
7770: END IF;
7771:
7772:
7954: END IF;
7955:
7956: -- Find out whether record can go for import in context of cancelled/aborted
7957: IF p_tab_ref_cd(i).status = 'S' AND p_calling_context ='S' THEN
7958: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
7959: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7960: fnd_msg_pub.add;
7961: p_tab_ref_cd(i).status := 'A';
7962: END IF;
7989:
7990: END IF;
7991:
7992: IF p_tab_ref_cd(i).status = 'S' THEN
7993: igs_ps_validate_lgcy_pkg.validate_unit_reference(p_tab_ref_cd(i),l_n_uoo_id,l_n_uso_id,p_calling_context);
7994:
7995: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7996: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_ref_code.status_after_Business_Validation',
7997: 'Data Type:'||p_tab_ref_cd(i).data_type||' '||'Unit code:'||p_tab_ref_cd(i).unit_cd||' '||'Version number:'
8358:
8359: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
8360: IF p_uso_ins_rec.instructor_person_number IS NULL OR p_uso_ins_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
8361: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8362: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
8363: p_uso_ins_rec.status := 'E';
8364: END IF;
8365:
8366: IF p_uso_ins_rec.unit_cd IS NULL OR p_uso_ins_rec.unit_cd = FND_API.G_MISS_CHAR THEN
8363: p_uso_ins_rec.status := 'E';
8364: END IF;
8365:
8366: IF p_uso_ins_rec.unit_cd IS NULL OR p_uso_ins_rec.unit_cd = FND_API.G_MISS_CHAR THEN
8367: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
8368: p_uso_ins_rec.status := 'E';
8369: END IF;
8370:
8371: IF p_uso_ins_rec.version_number IS NULL OR p_uso_ins_rec.version_number = FND_API.G_MISS_NUM THEN
8368: p_uso_ins_rec.status := 'E';
8369: END IF;
8370:
8371: IF p_uso_ins_rec.version_number IS NULL OR p_uso_ins_rec.version_number = FND_API.G_MISS_NUM THEN
8372: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
8373: p_uso_ins_rec.status := 'E';
8374: END IF;
8375:
8376: -- if the production USO id is not provided then Teching calendar alternate code, location code and
8376: -- if the production USO id is not provided then Teching calendar alternate code, location code and
8377: -- unit class are required.
8378: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
8379: IF p_uso_ins_rec.teach_cal_alternate_code IS NULL OR p_uso_ins_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
8380: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
8381: p_uso_ins_rec.status := 'E';
8382: END IF;
8383: IF p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR THEN
8384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
8380: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
8381: p_uso_ins_rec.status := 'E';
8382: END IF;
8383: IF p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR THEN
8384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
8385: p_uso_ins_rec.status := 'E';
8386: END IF;
8387: IF p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR THEN
8388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
8384: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
8385: p_uso_ins_rec.status := 'E';
8386: END IF;
8387: IF p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR THEN
8388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
8389: p_uso_ins_rec.status := 'E';
8390: END IF;
8391: END IF;
8392:
8394: (p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR ) AND
8395: (p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR) THEN
8396: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
8397: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
8398: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
8399: p_uso_ins_rec.status := 'E';
8400: END IF;
8401: END IF;
8402:
8401: END IF;
8402:
8403: IF (p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM ) AND
8404: (p_uso_ins_rec.occurrence_identifier IS NULL OR p_uso_ins_rec.occurrence_identifier = FND_API.G_MISS_CHAR) THEN
8405: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID','IGS_PS_LOG_PARAMETERS', FALSE);
8406: p_uso_ins_rec.status := 'E';
8407: END IF;
8408:
8409:
8445: l_n_uso_id := NULL;
8446: l_n_uoo_id := NULL;
8447:
8448: -- Derive the Instructor identifier
8449: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
8450: IF l_n_ins_id IS NULL THEN
8451: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8452: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8453: p_uso_ins_rec.status := 'E';
8448: -- Derive the Instructor identifier
8449: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
8450: IF l_n_ins_id IS NULL THEN
8451: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8452: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8453: p_uso_ins_rec.status := 'E';
8454: END IF;
8455:
8456: -- if the production unit section occurrence identifier is provided then validate it
8463: FETCH c_uoo_id INTO l_n_uoo_id;
8464: CLOSE c_uoo_id;
8465: ELSE
8466: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
8467: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8468: p_uso_ins_rec.status := 'E';
8469: END IF;
8470: ELSE
8471: -- Deriving the value of Unit section Occurrence identifier
8472:
8473: -- Deriving the Calendar Type and Calendar Sequence Number
8474: igs_ge_gen_003.get_calendar_instance(p_uso_ins_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
8475: IF l_c_ret_status <> 'SINGLE' THEN
8476: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
8477: p_uso_ins_rec.status := 'E';
8478: END IF;
8479: -- Deriving the Unit Offering Option Identifier
8480: l_c_ret_status := NULL;
8477: p_uso_ins_rec.status := 'E';
8478: END IF;
8479: -- Deriving the Unit Offering Option Identifier
8480: l_c_ret_status := NULL;
8481: igs_ps_validate_lgcy_pkg.get_uoo_id(p_uso_ins_rec.unit_cd, p_uso_ins_rec.version_number, l_c_cal_type, l_n_seq_num, p_uso_ins_rec.location_cd, p_uso_ins_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8482: IF l_c_ret_status IS NOT NULL THEN
8483: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8484: p_uso_ins_rec.status := 'E';
8485: END IF;
8479: -- Deriving the Unit Offering Option Identifier
8480: l_c_ret_status := NULL;
8481: igs_ps_validate_lgcy_pkg.get_uoo_id(p_uso_ins_rec.unit_cd, p_uso_ins_rec.version_number, l_c_cal_type, l_n_seq_num, p_uso_ins_rec.location_cd, p_uso_ins_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8482: IF l_c_ret_status IS NOT NULL THEN
8483: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8484: p_uso_ins_rec.status := 'E';
8485: END IF;
8486:
8487:
8486:
8487:
8488: --Derive the unit section occurrence id
8489: l_c_msg := NULL;
8490: igs_ps_validate_lgcy_pkg.get_uso_id( p_uoo_id => l_n_uoo_id,
8491: p_occurrence_identifier => p_uso_ins_rec.occurrence_identifier,
8492: p_uso_id => l_n_uso_id,
8493: p_message => l_c_msg
8494: );
8521: -- Check uniqueness validation
8522: IF igs_ps_uso_instrctrs_pkg.get_uk_for_validation(l_n_uso_id, l_n_ins_id) THEN
8523: p_uso_ins_rec.status :='W';
8524: fnd_message.set_name('IGS','IGS_PS_USO_INS');
8525: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get, NULL, FALSE);
8526: RETURN;
8527: END IF;
8528:
8529: -- Check Constraints
8530: BEGIN
8531: igs_ps_unit_ver_pkg.check_constraints( 'UNIT_CD',p_uso_ins_rec.unit_cd);
8532: EXCEPTION
8533: WHEN OTHERS THEN
8534: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_CD','LEGACY_TOKENS',TRUE);
8535: p_uso_ins_rec.status :='E';
8536: END;
8537:
8538: BEGIN
8538: BEGIN
8539: igs_ps_unit_ver_pkg.check_constraints('VERSION_NUMBER',p_uso_ins_rec.version_number);
8540: EXCEPTION
8541: WHEN OTHERS THEN
8542: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VER_NUM_1_999',NULL,NULL,TRUE);
8543: p_uso_ins_rec.status :='E';
8544: END;
8545:
8546: -- Foreign Key Checking
8545:
8546: -- Foreign Key Checking
8547: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
8548: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8549: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
8550: p_uso_ins_rec.status := 'E';
8551: END IF;
8552: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
8553: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
8549: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
8550: p_uso_ins_rec.status := 'E';
8551: END IF;
8552: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
8553: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
8554: p_uso_ins_rec.status := 'E';
8555: END IF;
8556:
8557: IF p_uso_ins_rec.production_uso_id IS NOT NULL THEN
8667: END IF;
8668: END IF;
8669:
8670: IF p_tab_uso_ins(I).status = 'S' THEN
8671: igs_ps_validate_lgcy_pkg.post_uso_ins(l_n_ins_id, l_n_uoo_id, p_tab_uso_ins(I),I);
8672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
8673: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_uso_ins.status_after_post_uso_ins',
8674: 'Unit code:'||p_tab_uso_ins(I).unit_cd||' '||'Version number:'||p_tab_uso_ins(I).version_number||' '||
8675: 'teach_cal_alternate_code:'||p_tab_uso_ins(I).teach_cal_alternate_code||' '||'Location_cd:'||p_tab_uso_ins(I).location_cd
8702: END IF;
8703:
8704: END IF;
8705: END LOOP;
8706: IF NOT igs_ps_validate_lgcy_pkg.post_uso_ins_busi(p_tab_uso_ins) THEN
8707: p_c_rec_status := 'E';
8708: END IF;
8709:
8710: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN