[Home] [Help]
1381: -- Purpose : This procedure validates Advance Standing details that are
1382: -- to be transfered is exists for source program.
1383: --Change History:
1384: --Who When What
1385: --bdeviset 06-SEP-2006 Bug# 5525374.The message retunred from IGS_EN_GEN_010.adv_stand_trans (IGS_EN_STDNT_ADV_STND_EXIST)
1386: -- is a warning message and should be added to the stack only when p_show_warning is passed as 'Y'
1387: -------------------------------------------------------------------------------------------
1388:
1389: l_val VARCHAR2(1);
1404: OPEN c_is_adv_st_exists(p_person_id,p_source_program_cd,p_source_prog_ver);
1405: FETCH c_is_adv_st_exists INTO l_val;
1406: IF (c_is_adv_st_exists%FOUND) THEN
1407: CLOSE c_is_adv_st_exists;
1408: IGS_EN_GEN_010.adv_stand_trans(p_person_id => p_person_id,
1409: p_course_cd => p_source_program_cd,
1410: p_version_number => p_source_prog_ver,
1411: p_course_cd_new => p_dest_program_cd,
1412: p_version_number_new => p_dest_prog_ver,
1470:
1471: -- For each enrolled/waitlisted/invalid unit ateempt check whether it is in
1472: -- effective and future terms
1473: -- if so set the flag to true and exit
1474: IF IGS_EN_GEN_010.unit_effect_or_future_term(
1475: p_person_id => p_person_id,
1476: p_dest_course_cd => p_dest_program_cd,
1477: p_uoo_id => c_enroll_sua_rec.uoo_id,
1478: p_term_cal_type => p_term_cal_type ,
1773: -- but will be dropped from source.
1774: -- donot transfer enrolled/invalid/waitlisted unit attempts belonging to a past term
1775: -- compared to the effective term
1776: IF l_unit_dtls_rec.unit_attempt_status IN ( cst_enrolled,cst_invalid,cst_waitlist ) AND
1777: NOT igs_en_gen_010.unit_effect_or_future_term(p_person_id,p_dest_program_cd,l_unit_dtls_rec.uoo_id,p_term_cal_type,p_term_seq_num) THEN
1778: -- skip current unit attempt from transfer
1779: -- show warning when unit attempt is not transfered but will be dropped. i.e in intra career transfer
1780: IF p_show_warning = 'Y' THEN
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1797: END IF;
1798: ELSE
1799: -- create unit transfer record with the same transfer date as the parent program transfer record
1800: -- smaddali modified the logic to create unit transfer records for bug#4063726
1801: l_sut_status := IGS_EN_GEN_010.ENRP_INS_SUT_TRNSFR(p_person_id,
1802: p_dest_program_cd,
1803: p_source_program_cd,
1804: p_trans_actual_dt,
1805: l_unit_dtls_rec.unit_cd ,
1848: END IF;
1849:
1850:
1851: -- calling API to Perform actual unit of Transfer from src to dest Prgm
1852: l_sua_trans_status := igs_en_gen_010.enrp_Ins_Sua_Trnsfr(p_person_id,
1853: p_source_program_cd,
1854: p_dest_program_cd,
1855: p_dest_coo_id,
1856: l_unit_dtls_rec.unit_cd,
1991: l_uooids_str, -- add subordinate units also when superior is selected.
1992: p_drop,
1993: p_show_warning);
1994:
1995: l_del_all_sua_status := IGS_EN_GEN_010.Enrp_del_all_Sua_Trnsfr(p_person_id,
1996: p_source_program_cd,
1997: p_dest_program_cd,
1998: l_uooids_str,
1999: p_term_cal_type,
2523:
2524: END IF;--end of l_val_susa_status = FALSE
2525:
2526: IF l_val_susa_tran THEN
2527: IF IGS_EN_GEN_010.ENRP_INS_SUSA_TRNSFR (p_person_id,
2528: p_source_program_cd,
2529: p_dest_program_cd,
2530: l_unitset,
2531: l_unitset_att_rec.us_version_number,
2588:
2589: END IF;-- END OF l_message_name
2590:
2591:
2592: END IF; -- END OF IGS_EN_GEN_010.ENRP_INS_SUSA_TRNSFR IF THEN
2593:
2594: OPEN c_get_dest_unitset_att(p_person_id,p_dest_program_cd,l_unitset);
2595: FETCH c_get_dest_unitset_att INTO l_dest_unitset_att_rec;
2596: CLOSE c_get_dest_unitset_att;