[Home] [Help]
94: --Nishikant 01NOV2002 SEVIS Build. Enh Bug#2641905.
95: -- The notification flag was being fetched from cursor earlier. now its
96: -- modified to call the function igs_ss_enr_details.get_notification,
97: -- to get the value for it and to make the way common across all the packages.
98: --svenkata 20-NOV-2002 Modified the call to the function igs_en_val_sua.enrp_val_sua_discont to add value 'N' for the parameter
99: -- p_legacy. Bug#2661533.
100: --bdeviset 11-Apr-2005 Modified cursor c_sca in procedure Enrp_Prc_Sca_Blk_Trn for bug# 3701057
101: --sgurusam 29-Jun-2005 EN 317 TD: Imparted object modifications. Added parameter p_calling_obj with value 'JOB'
102: --ctyagi 20-SEPT-2005 Modified call to eval_rsv_seat for bug 4362302
1743: END IF;
1744: --Start of the main process
1745: --Sort usecs placing superiors before subordinates
1746: l_enr_uoo_ids:=enrl_sort_usecs(t_sua_disc,p_teach_cal_type,p_teach_ci_sequence_number); --l_enr_uoo_ids is used as a dummy here
1747: l_enr_uoo_ids:=enrl_sort_usecs(t_sua_enroll,p_teach_cal_type,p_teach_ci_sequence_number);--l_enr_uoo_ids passed to igs_en_val_sua.enr_sub_units
1748:
1749: FOR rec_sca IN c_sca
1750: LOOP
1751: BEGIN
1901: p_uoo_id => rec_get_sua_d.uoo_id) = 'N' THEN
1902:
1903: l_message_name:=NULL;
1904: l_message_token:=NULL;
1905: IF igs_en_val_sua.enrp_val_discont_aus(p_administrative_unit_status => p_administrative_unit_status,
1906: p_discontinued_dt => NVL(p_discontinued_dt,SYSDATE),
1907: p_cal_type => p_teach_cal_type,
1908: p_ci_sequence_number => p_teach_ci_sequence_number,
1909: p_message_name => l_message_name,
1955: --Drop subordinates if usec is a superior
1956: --IF drop fails, log error and abort
1957: IF rec_get_sua_d.relation_type='SUPERIOR' AND l_action_processed THEN
1958: l_message_name:= NULL;
1959: igs_en_val_sua.drop_sub_units(
1960: p_person_id => rec_sca.person_id ,
1961: p_course_cd => rec_sca.course_cd ,
1962: p_uoo_id => rec_get_sua_d.uoo_id ,
1963: p_load_cal_type => p_load_cal_type ,
2224: l_enrol_count := l_enrol_count + 1;
2225: l_sub_success:=NULL;l_sub_waitlist:=NULL;l_sub_failed:=NULL;
2226: IF l_ret_stat <> 'D' AND l_relation_type='SUPERIOR' THEN
2227: --enroll subordinates if
2228: igs_en_val_sua.enr_sub_units(
2229: p_person_id => rec_sca.person_id,
2230: p_course_cd => rec_sca.course_cd,
2231: p_uoo_id => l_uoo_id,
2232: p_waitlist_flag => l_waitlist_ind,
2359: p_uoo_id => rec_get_sua_d.uoo_id) = 'N' THEN
2360:
2361: l_message_name:=NULL;
2362: l_message_token:=NULL;
2363: IF igs_en_val_sua.enrp_val_discont_aus(p_administrative_unit_status => p_administrative_unit_status,
2364: p_discontinued_dt => NVL(p_discontinued_dt,SYSDATE),
2365: p_cal_type => p_teach_cal_type,
2366: p_ci_sequence_number => p_teach_ci_sequence_number,
2367: p_message_name => l_message_name,
2386: END IF;
2387: END IF;
2388: IF NVL(rec_get_sua_d.relation_type,'NONE')='SUPERIOR' AND l_action_processed THEN
2389: l_message_name:= NULL;
2390: igs_en_val_sua.drop_sub_units(
2391: p_person_id => rec_sca.person_id ,
2392: p_course_cd => rec_sca.course_cd ,
2393: p_uoo_id => rec_get_sua_d.uoo_id ,
2394: p_load_cal_type => p_load_cal_type ,
2744: -- w.r.t. bug no: 2711193
2745: --svenkata 7-Jan-03 Incorporated the logic for 'When first Reach Attendance Type'. The routine enrp_val_coo_att is being called to get the
2746: Att Typ before updating the CP.The routine eval_unit_forced_type is then called called to evaluate with the
2747: fetched value-Bug#2737263
2748: -- pradhakr 20-Jan-2003 Added a parameter no_assessment_ind to the procedue call IGS_EN_VAL_SUA.enrp_val_sua_ovrd_cp
2749: -- as part of ENCR26 build.
2750: --rvivekan 22-oct-2003 Placements build#3052438. Added code to sort the usecs based on relation_type. Also added handling
2751: -- to enroll subordinates when a superior is enrolled and to drop subordinates when a superior is dropped
2752: -- vkarthik 13-Feb-04 Waitlist priority/prefernce weightages were not passed to the API and hence
3607: ELSE
3608: l_message := NULL;
3609: l_dummy_bolean:= TRUE;
3610: --Validating the enroll credit points
3611: l_dummy_bolean:=IGS_EN_VAL_SUA.ENRP_VAL_SUA_OVRD_CP(
3612: p_from_unit_cd,
3613: p_to_uv_version_number,
3614: rec_f_unit.override_enrolled_cp,
3615: NULL,
3999:
4000: IF ((p_unit_attempt_status <> cst_unconfirm) AND
4001: (p_enforce_val = 'Y')) THEN
4002: -- Validate that the student is able to enrol in the IGS_PS_UNIT.
4003: IF NOT IGS_EN_VAL_SUA.enrp_val_sua_cnfrm(
4004: p_person_id,
4005: p_course_cd,
4006: p_from_unit_cd,
4007: p_to_uv_version_number,
4049: cst_information || '|' || v_fail_type);
4050: v_update_uoo := FALSE;
4051: END IF;
4052: END IF;
4053: ELSE -- IGS_EN_VAL_SUA.enrp_val_sua_cnfrm
4054: -- Check if warnings exist and log warnings.
4055: IF v_message_name is not null THEN
4056:
4057: IGS_GE_INS_SLE.genp_set_log_entry(
4066: END IF;
4067: --IF source uoo is a superior then drop all subordinates
4068: IF v_update_uoo AND l_source_uoo_rel='SUPERIOR' THEN
4069: l_msg_name:=NULL;
4070: igs_en_val_sua.drop_sub_units(
4071: p_person_id => p_person_id ,
4072: p_course_cd => p_course_cd ,
4073: p_uoo_id => p_from_uoo_id ,
4074: p_load_cal_type => p_load_cal_type ,
4416: --Also confirm the subordinates if the superior is ENROLLED
4417: IF (v_update_uoo) AND l_dest_uoo_rel='SUPERIOR' THEN
4418: l_sub_success:=NULL;l_sub_waitlist:=NULL;l_sub_failed:=NULL;
4419: SAVEPOINT s_enr_sub_units;
4420: igs_en_val_sua.enr_sub_units(
4421: p_person_id => p_person_id,
4422: p_course_cd => p_course_cd,
4423: p_uoo_id => p_destination_uoo_id,
4424: p_waitlist_flag => l_waitlist_ind,