[Home] [Help]
912: FOR UPDATE OF person_id NOWAIT;
913:
914: CURSOR get_app_source (p_app_source_id NUMBER) IS
915: SELECT system_status
916: FROM igs_ad_code_classes
917: WHERE code_id = p_app_source_id AND
918: class = 'SYS_APPL_SOURCE';
919:
920: CURSOR c_apcs(
932:
933: Rec_IGS_AD_PS_APPL_Inst c_upd_acai%ROWTYPE;
934: LV_ROWID VARCHAR2(25);
935: l_org_id NUMBER(15);
936: v_app_source igs_ad_code_classes.system_status%TYPE;
937: v_check_course_encumb VARCHAR2(1) DEFAULT 'N';
938: v_unit_set_appl_ind VARCHAR2(1) DEFAULT 'N';
939:
940: --begin apadegal adtd001 igs.m
2016: AND CLOSED_FLAG = 'N';
2017:
2018: CURSOR c_def_qual_code(cp_qual_type IN VARCHAR2)
2019: IS
2020: SELECT CODE_ID FROM IGS_AD_CODE_CLASSES
2021: WHERE CLASS=cp_qual_type AND CLASS_TYPE_CODE = 'IGS_AD_QUAL_TYPE'
2022: AND SYSTEM_DEFAULT = 'Y';
2023:
2024: l_def_qual_code IGS_AD_CODE_CLASSES.CODE_ID%TYPE;
2020: SELECT CODE_ID FROM IGS_AD_CODE_CLASSES
2021: WHERE CLASS=cp_qual_type AND CLASS_TYPE_CODE = 'IGS_AD_QUAL_TYPE'
2022: AND SYSTEM_DEFAULT = 'Y';
2023:
2024: l_def_qual_code IGS_AD_CODE_CLASSES.CODE_ID%TYPE;
2025:
2026: BEGIN
2027:
2028: OPEN c_adm_cat(p_person_id,p_admission_appl_number);