[Home] [Help]
2439: -- in 'Insert' action, added as part bug 3433446
2440: -- stutta 10-MAR-2004 Added call to igs_en_gen_015.get_academic_cal to get acad cal
2441: -- instance and pass it to c_teach_to_load cursor. BUG# 3481403
2442: -- stutta 16-Mar-2004 Passing new parameter p_update_rec in call
2443: -- to igs_en_spa_terms_api.create_update_term_rec. Bug # 3421436
2444: -- stutta 11-Jan-2004 Modified c_teach_to_load to allow term record creation for terms
2445: -- which are subordinate to any instance of the academic cal type.
2446: -- Bug #4016319
2447: -- ckasu 27-NOV-2005 Added logic inorder to perform/by pass validations when this was called from
2526:
2527: CURSOR c_term (p_person_id number, p_course_cd varchar2,
2528: p_term_cal_type varchar2, p_term_ci_sequence_number number) IS
2529: SELECT 'x'
2530: FROM igs_en_spa_terms spat, igs_en_stdnt_ps_att curspa, igs_ps_ver curcv,
2531: igs_en_stdnt_ps_att spa, igs_ps_ver cv
2532: WHERE spat.person_id = p_person_id
2533: AND term_cal_type = p_term_cal_type AND term_sequence_number = p_term_ci_sequence_number
2534: AND curspa.person_id=spat.person_id AND curspa.course_cd=p_course_Cd
2548:
2549: rec_sca c_sca%ROWTYPE;
2550: l_message_name VARCHAR2(200);
2551:
2552: CURSOR c_other_key_recs ( cp_person_id IGS_EN_SPA_TERMS.PERSON_ID%TYPE,
2553: cp_term_cal_type IGS_CA_INST.CAL_TYPE%TYPE,
2554: cp_term_sequence_number IGS_CA_INST.SEQUENCE_NUMBER%TYPE,
2555: cp_program_cd IGS_PS_VER.COURSE_CD%TYPE,
2556: cp_acad_cal_type IGS_EN_SPA_TERMS.ACAD_CAL_TYPE%TYPE) IS
2552: CURSOR c_other_key_recs ( cp_person_id IGS_EN_SPA_TERMS.PERSON_ID%TYPE,
2553: cp_term_cal_type IGS_CA_INST.CAL_TYPE%TYPE,
2554: cp_term_sequence_number IGS_CA_INST.SEQUENCE_NUMBER%TYPE,
2555: cp_program_cd IGS_PS_VER.COURSE_CD%TYPE,
2556: cp_acad_cal_type IGS_EN_SPA_TERMS.ACAD_CAL_TYPE%TYPE) IS
2557: SELECT 'X'
2558: FROM IGS_EN_SPA_TERMS
2559: WHERE person_id = cp_person_id
2560: AND program_cd <> cp_program_cd
2554: cp_term_sequence_number IGS_CA_INST.SEQUENCE_NUMBER%TYPE,
2555: cp_program_cd IGS_PS_VER.COURSE_CD%TYPE,
2556: cp_acad_cal_type IGS_EN_SPA_TERMS.ACAD_CAL_TYPE%TYPE) IS
2557: SELECT 'X'
2558: FROM IGS_EN_SPA_TERMS
2559: WHERE person_id = cp_person_id
2560: AND program_cd <> cp_program_cd
2561: AND term_cal_type = cp_term_cal_type
2562: AND term_sequence_number = cp_term_sequence_number
2565:
2566: CURSOR c_spa_terms (p_person_id IN number, p_course_cd IN varchar2,
2567: p_cal_type IN varchar2, p_ci_sequence_number IN number) IS
2568: SELECT spat.ROWID ROW_ID, spat.*
2569: FROM igs_en_spa_terms spat
2570: WHERE spat.person_id = p_person_id
2571: AND program_cd=p_course_cd AND plan_sht_status IN ('PLAN', 'NONE')
2572: AND EXISTS
2573: (SELECT load_cal_type,load_ci_sequence_number FROM igs_ca_load_to_teach_v ltCal
2892: IF (rec_sca.student_confirmed_ind = 'Y') THEN
2893: FOR rec_tl in c_teach_to_load(rec_sca.cal_type)
2894: LOOP
2895: IF NVL(fnd_profile.value('CAREER_MODEL_ENABLED'),'N') = 'N' OR
2896: ('PRIMARY'=igs_en_spa_terms_api.get_spat_primary_prg (new_references.person_id, new_references.course_cd,
2897: rec_tl.load_cal_type, rec_tl.load_ci_sequence_number)) THEN
2898:
2899: OPEN c_term (new_references.person_id, new_references.course_cd,
2900: rec_tl.load_cal_type, rec_tl.load_ci_sequence_number);
2901: FETCH c_term INTO l_dummy;
2902: l_message_name := NULL;
2903:
2904: IF c_term%NOTFOUND THEN
2905: igs_en_spa_terms_api.create_update_term_rec (
2906: p_person_id => new_references.person_id,
2907: p_program_cd => new_references.course_cd,
2908: p_term_cal_type => rec_tl.load_cal_type ,
2909: p_term_sequence_number => rec_tl.load_ci_sequence_number ,
2928:
2929: FOR rec_spa_terms IN
2930: c_spa_terms(new_references.person_id, new_references.course_cd, new_references.cal_type , new_references.ci_sequence_number)
2931: LOOP
2932: igs_en_spa_terms_pkg.update_row(
2933: x_rowid =>rec_spa_terms.row_id,
2934: x_term_record_id =>rec_spa_terms.term_record_id,
2935: x_person_id =>rec_spa_terms.person_id,
2936: x_program_cd =>rec_spa_terms.program_cd,