[Home] [Help]
93: get_term_time_rec cur_get_term_time%ROWTYPE;
94:
95: BEGIN
96:
97: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
98: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
99: 'In Params - > p_cal_type -> p_seq_number -> p_course_cd -> p_course_cd '
100: || ' -> ' || p_cal_type
101: || ' -> ' || p_seq_number
94:
95: BEGIN
96:
97: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
98: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
99: 'In Params - > p_cal_type -> p_seq_number -> p_course_cd -> p_course_cd '
100: || ' -> ' || p_cal_type
101: || ' -> ' || p_seq_number
102: || ' -> ' || p_course_cd
114:
115: --
116: -- If acad weeks is NULL or ZERO then return with error
117: --
118: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
119: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
120: 'Prog Level Weeks - > p_acad_weeks '
121: || ' -> ' || p_acad_weeks);
122: END IF;
115: --
116: -- If acad weeks is NULL or ZERO then return with error
117: --
118: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
119: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
120: 'Prog Level Weeks - > p_acad_weeks '
121: || ' -> ' || p_acad_weeks);
122: END IF;
123:
145: CLOSE cur_get_term_instr_time;
146:
147: p_term_weeks := get_term_instr_time_rec.term_instruction_time;
148:
149: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
150: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
151: 'Term Level Prog Overd Weeks - > p_term_weeks '
152: || ' -> ' || p_term_weeks);
153: END IF;
146:
147: p_term_weeks := get_term_instr_time_rec.term_instruction_time;
148:
149: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
150: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
151: 'Term Level Prog Overd Weeks - > p_term_weeks '
152: || ' -> ' || p_term_weeks);
153: END IF;
154:
184: p_result := 'E';
185: END IF;
186: END IF;
187:
188: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
189: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
190: 'Term Level Weeks - > p_term_weeks '
191: || ' -> ' || p_term_weeks);
192: END IF;
185: END IF;
186: END IF;
187:
188: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
189: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.debug',
190: 'Term Level Weeks - > p_term_weeks '
191: || ' -> ' || p_term_weeks);
192: END IF;
193:
195: WHEN OTHERS THEN
196: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
197: fnd_message.set_token('NAME','IGF_GR_PELL_CALC.GET_PM_3_ACAD_TERM_WKS '||SQLERRM);
198: igs_ge_msg_stack.add;
199: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
200: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.exception',
201: 'sql error message: '||SQLERRM);
202: END IF;
203: app_exception.raise_exception;
196: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
197: fnd_message.set_token('NAME','IGF_GR_PELL_CALC.GET_PM_3_ACAD_TERM_WKS '||SQLERRM);
198: igs_ge_msg_stack.add;
199: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
200: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pm_3_acad_term_wks.exception',
201: 'sql error message: '||SQLERRM);
202: END IF;
203: app_exception.raise_exception;
204:
257: IF (c_get_prog_frm_adm%FOUND) THEN
258: p_key_prog_cd := l_adm_rec.key_prog;
259: p_key_prog_ver := l_adm_rec.key_prog_ver;
260:
261: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
262: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.get_key_prog_ver_frm_adm.debug', 'Getting key program details from Admissions. Key program: ' ||p_key_prog_cd|| ', Version: ' ||p_key_prog_ver);
263: END IF;
264: END IF;
265:
258: p_key_prog_cd := l_adm_rec.key_prog;
259: p_key_prog_ver := l_adm_rec.key_prog_ver;
260:
261: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
262: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.get_key_prog_ver_frm_adm.debug', 'Getting key program details from Admissions. Key program: ' ||p_key_prog_cd|| ', Version: ' ||p_key_prog_ver);
263: END IF;
264: END IF;
265:
266: CLOSE c_get_prog_frm_adm;
405: );
406:
407: IF lb_cod_year
408: THEN -- cod year
409: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
410: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year');
411: END IF;
412:
413: l_atd_entity_id_txt := NULL;
406:
407: IF lb_cod_year
408: THEN -- cod year
409: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
410: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year');
411: END IF;
412:
413: l_atd_entity_id_txt := NULL;
414: l_rep_entity_id_txt := NULL;
464: END IF;
465:
466: cp_pell_setup_rec := NULL;
467:
468: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
469: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_rep_entity_id_txt ' || l_rep_entity_id_txt);
470: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_atd_entity_id_txt ' || l_atd_entity_id_txt);
471: END IF;
472:
465:
466: cp_pell_setup_rec := NULL;
467:
468: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
469: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_rep_entity_id_txt ' || l_rep_entity_id_txt);
470: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_atd_entity_id_txt ' || l_atd_entity_id_txt);
471: END IF;
472:
473: -- Retrieve the Default Pell Setup values
466: cp_pell_setup_rec := NULL;
467:
468: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
469: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_rep_entity_id_txt ' || l_rep_entity_id_txt);
470: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_atd_entity_id_txt ' || l_atd_entity_id_txt);
471: END IF;
472:
473: -- Retrieve the Default Pell Setup values
474: OPEN c_pell_def_setup_cod(
487: cp_message := fnd_message.get;
488: RETURN;
489: END IF;
490:
491: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
492: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year cp_pell_setup_rec.pell_seq_id ' || cp_pell_setup_rec.pell_seq_id);
493: END IF;
494:
495: CLOSE c_pell_def_setup_cod;
488: RETURN;
489: END IF;
490:
491: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
492: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year cp_pell_setup_rec.pell_seq_id ' || cp_pell_setup_rec.pell_seq_id);
493: END IF;
494:
495: CLOSE c_pell_def_setup_cod;
496:
509: THEN
510: -- Overridden setup exist hence use the Overidden fields
511: -- Populate the Non Default Values.
512: -- Not not all fields can be overridden , hence individually the columns are replaced
513: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
514: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_ovrd_setup_rec.rep_pell_id ' || l_ovrd_setup_rec.rep_pell_id);
515: END IF;
516:
517: cp_pell_setup_rec.academic_cal := l_ovrd_setup_rec.academic_cal;
510: -- Overridden setup exist hence use the Overidden fields
511: -- Populate the Non Default Values.
512: -- Not not all fields can be overridden , hence individually the columns are replaced
513: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
514: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',' COD Year l_ovrd_setup_rec.rep_pell_id ' || l_ovrd_setup_rec.rep_pell_id);
515: END IF;
516:
517: cp_pell_setup_rec.academic_cal := l_ovrd_setup_rec.academic_cal;
518: cp_pell_setup_rec.payment_method := l_ovrd_setup_rec.payment_method;
627: cp_pell_setup_rec.term_start_offset_num := l_ovrd_setup_rec.term_start_offset_num; -- museshad (Bug 5006587 - FA 162)
628: END IF;
629: END IF; -- cod year
630:
631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
632: THEN
633: fnd_log.STRING(
634: fnd_log.level_statement,
635: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',
629: END IF; -- cod year
630:
631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
632: THEN
633: fnd_log.STRING(
634: fnd_log.level_statement,
635: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',
636: 'Pell Setup -> Rep_pell_id->'
637: || cp_pell_setup_rec.rep_pell_id
630:
631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
632: THEN
633: fnd_log.STRING(
634: fnd_log.level_statement,
635: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.debug',
636: 'Pell Setup -> Rep_pell_id->'
637: || cp_pell_setup_rec.rep_pell_id
638: || ' Base_id->'
666: 'igf_gr_pell_calc.get_pell_setup ' || SQLERRM
667: );
668: igs_ge_msg_stack.ADD;
669:
670: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level
671: THEN
672: fnd_log.STRING(
673: fnd_log.level_exception,
674: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.exception',
668: igs_ge_msg_stack.ADD;
669:
670: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level
671: THEN
672: fnd_log.STRING(
673: fnd_log.level_exception,
674: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.exception',
675: 'sql error message: ' || SQLERRM
676: );
669:
670: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level
671: THEN
672: fnd_log.STRING(
673: fnd_log.level_exception,
674: 'igf.plsql.igf_gr_pell_calc.get_pell_setup.exception',
675: 'sql error message: ' || SQLERRM
676: );
677: END IF;
780:
781: cp_efc := ln_pell_efc ;
782: cp_return_status := 'S' ;
783:
784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_coa_efc.debug',
786: 'Pell EFC -> Pell Reg COA -> Pell Alt COA -> Pell Matrix -> '
787: || cp_efc ||' -> '||ln_reg_coa||' -> '||ln_alt_coa||' -> '||cp_pell_schedule_code);
788: END IF;
781: cp_efc := ln_pell_efc ;
782: cp_return_status := 'S' ;
783:
784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_coa_efc.debug',
786: 'Pell EFC -> Pell Reg COA -> Pell Alt COA -> Pell Matrix -> '
787: || cp_efc ||' -> '||ln_reg_coa||' -> '||ln_alt_coa||' -> '||cp_pell_schedule_code);
788: END IF;
789:
791: WHEN OTHERS THEN
792: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
793: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_coa_efc '||SQLERRM);
794: igs_ge_msg_stack.add;
795: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
796: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_coa_efc.exception','sql error message: '||SQLERRM);
797: END IF;
798: app_exception.raise_exception;
799:
792: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
793: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_coa_efc '||SQLERRM);
794: igs_ge_msg_stack.add;
795: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
796: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_coa_efc.exception','sql error message: '||SQLERRM);
797: END IF;
798: app_exception.raise_exception;
799:
800: END get_pell_coa_efc;
924: l_app VARCHAR2(50);
925: l_name VARCHAR2(30);
926: BEGIN
927:
928: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
929: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Before call to IGS_EN_GEN_015.GET_EFFECTIVE_CENSUS_DATE');
930: END IF;
931:
932: -- Get the Effective census date
925: l_name VARCHAR2(30);
926: BEGIN
927:
928: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
929: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Before call to IGS_EN_GEN_015.GET_EFFECTIVE_CENSUS_DATE');
930: END IF;
931:
932: -- Get the Effective census date
933: l_effctive_cens_dt := IGS_EN_GEN_015.GET_EFFECTIVE_CENSUS_DATE (
942: fnd_message.set_name('IGF','IGF_AW_EN_LD_STDA');
943: fnd_message.set_token('LD_CI_ALT_CODE',igf_gr_gen.get_alt_code(cp_ld_cal_type,cp_ld_sequence_number));
944: cp_message := fnd_message.get ;
945:
946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Error deriving Effective Census Date');
948: END IF;
949:
950: RETURN;
943: fnd_message.set_token('LD_CI_ALT_CODE',igf_gr_gen.get_alt_code(cp_ld_cal_type,cp_ld_sequence_number));
944: cp_message := fnd_message.get ;
945:
946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Error deriving Effective Census Date');
948: END IF;
949:
950: RETURN;
951: END IF;
949:
950: RETURN;
951: END IF;
952:
953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Effective Census Date:' ||l_effctive_cens_dt);
955: END IF;
956:
957: p_ld_start_dt := NULL;
950: RETURN;
951: END IF;
952:
953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Effective Census Date:' ||l_effctive_cens_dt);
955: END IF;
956:
957: p_ld_start_dt := NULL;
958: p_ld_end_dt := NULL;
957: p_ld_start_dt := NULL;
958: p_ld_end_dt := NULL;
959: p_ld_start_dt_offset := NULL;
960:
961: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
962: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','deriving start/end dates for '||
963: 'base_id:'||cp_base_id||
964: 'ld_cal_type:'||cp_ld_cal_type||
965: 'ld_sequence_number:'||cp_ld_sequence_number);
958: p_ld_end_dt := NULL;
959: p_ld_start_dt_offset := NULL;
960:
961: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
962: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','deriving start/end dates for '||
963: 'base_id:'||cp_base_id||
964: 'ld_cal_type:'||cp_ld_cal_type||
965: 'ld_sequence_number:'||cp_ld_sequence_number);
966: END IF;
971: p_ld_start_date => p_ld_start_dt,
972: p_ld_end_date => p_ld_end_dt
973: );
974:
975: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
976: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','p_ld_start_dt:'||p_ld_start_dt);
977: END IF;
978:
979: IF p_ld_start_dt IS NULL THEN
972: p_ld_end_date => p_ld_end_dt
973: );
974:
975: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
976: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','p_ld_start_dt:'||p_ld_start_dt);
977: END IF;
978:
979: IF p_ld_start_dt IS NULL THEN
980: cp_return_status := 'E';
986:
987: -- museshad (Bug 5006587 - Build FA 162). Adjust (+ or -) term start date with term offset. Use the new term start date to determine l_enrl_mode.
988: p_ld_start_dt_offset := p_ld_start_dt + NVL(cp_pell_setup_rec.term_start_offset_num, 0);
989:
990: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
991: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Offset: ' ||NVL(cp_pell_setup_rec.term_start_offset_num, 0));
992: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Start date with term offset: ' ||p_ld_start_dt_offset);
993: END IF;
994: -- museshad (Bug 5006587 - Build FA 162)
987: -- museshad (Bug 5006587 - Build FA 162). Adjust (+ or -) term start date with term offset. Use the new term start date to determine l_enrl_mode.
988: p_ld_start_dt_offset := p_ld_start_dt + NVL(cp_pell_setup_rec.term_start_offset_num, 0);
989:
990: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
991: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Offset: ' ||NVL(cp_pell_setup_rec.term_start_offset_num, 0));
992: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Start date with term offset: ' ||p_ld_start_dt_offset);
993: END IF;
994: -- museshad (Bug 5006587 - Build FA 162)
995:
988: p_ld_start_dt_offset := p_ld_start_dt + NVL(cp_pell_setup_rec.term_start_offset_num, 0);
989:
990: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
991: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Offset: ' ||NVL(cp_pell_setup_rec.term_start_offset_num, 0));
992: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Term Start date with term offset: ' ||p_ld_start_dt_offset);
993: END IF;
994: -- museshad (Bug 5006587 - Build FA 162)
995:
996: IF SYSDATE < p_ld_start_dt_offset THEN
996: IF SYSDATE < p_ld_start_dt_offset THEN
997: -- Use Before Term Start Attendance Type
998: l_enrl_mode := cp_pell_setup_rec.enr_before_ts_code ;
999:
1000: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1001: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >Before Term Start'
1002: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1003: END IF;
1004:
997: -- Use Before Term Start Attendance Type
998: l_enrl_mode := cp_pell_setup_rec.enr_before_ts_code ;
999:
1000: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1001: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >Before Term Start'
1002: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1003: END IF;
1004:
1005: ELSIF SYSDATE BETWEEN p_ld_start_dt_offset AND l_effctive_cens_dt THEN
1005: ELSIF SYSDATE BETWEEN p_ld_start_dt_offset AND l_effctive_cens_dt THEN
1006: -- Use Mid Term Attendance Type
1007: l_enrl_mode := cp_pell_setup_rec.enr_in_mt_code ;
1008:
1009: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1010: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >Term In Progress'
1011: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1012: END IF;
1013:
1006: -- Use Mid Term Attendance Type
1007: l_enrl_mode := cp_pell_setup_rec.enr_in_mt_code ;
1008:
1009: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1010: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >Term In Progress'
1011: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1012: END IF;
1013:
1014: ELSE
1014: ELSE
1015: -- Use After Census Attendance Type
1016: l_enrl_mode := cp_pell_setup_rec.enr_after_tc_code ;
1017:
1018: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1019: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >After Term Census'
1020: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1021: END IF;
1022:
1015: -- Use After Census Attendance Type
1016: l_enrl_mode := cp_pell_setup_rec.enr_after_tc_code ;
1017:
1018: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1019: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Enrl Term Rule Used >After Term Census'
1020: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1021: END IF;
1022:
1023: END IF;
1021: END IF;
1022:
1023: END IF;
1024:
1025: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1026: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','value of l_enrl_mode >'|| l_enrl_mode
1027: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1028: END IF;
1029:
1022:
1023: END IF;
1024:
1025: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1026: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','value of l_enrl_mode >'|| l_enrl_mode
1027: ||' for '||cp_ld_cal_type||'/'||cp_ld_sequence_number);
1028: END IF;
1029:
1030: -- Derive the Literal Value of the attendance Type
1079: cp_ld_sequence_number => cp_ld_sequence_number
1080: );
1081: FETCH c_get_ant_atype INTO cp_attendance_type;
1082: CLOSE c_get_ant_atype;
1083: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1084: fnd_log.string( fnd_log.level_statement,
1085: 'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug',
1086: 'Attendance Type from FA anticipated data is '|| NVL(l_attendance_type, ''));
1087: END IF;
1080: );
1081: FETCH c_get_ant_atype INTO cp_attendance_type;
1082: CLOSE c_get_ant_atype;
1083: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1084: fnd_log.string( fnd_log.level_statement,
1085: 'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug',
1086: 'Attendance Type from FA anticipated data is '|| NVL(l_attendance_type, ''));
1087: END IF;
1088: IF cp_attendance_type IS NULL THEN
1137: -- We do not know how this needs to be handles, so raise it again.
1138: RAISE;
1139: END IF;
1140: END;
1141: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1142: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Attendance Type from the igs_en_prc_load.enrp_get_inst_latt api is '||NVL(l_attendance_type, ''));
1143: END IF;
1144:
1145: END IF;
1138: RAISE;
1139: END IF;
1140: END;
1141: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1142: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug','Attendance Type from the igs_en_prc_load.enrp_get_inst_latt api is '||NVL(l_attendance_type, ''));
1143: END IF;
1144:
1145: END IF;
1146: CLOSE c_chk_enr;
1170: RETURN;
1171: END IF;
1172: CLOSE c_get_pell_att;
1173:
1174: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1175: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug',
1176: 'cp_attendance_type -> l_enrl_mode -> l_effctive_cens_dt -> '
1177: || cp_attendance_type ||' -> '||l_enrl_mode||' -> '||l_effctive_cens_dt);
1178: END IF;
1171: END IF;
1172: CLOSE c_get_pell_att;
1173:
1174: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1175: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.debug',
1176: 'cp_attendance_type -> l_enrl_mode -> l_effctive_cens_dt -> '
1177: || cp_attendance_type ||' -> '||l_enrl_mode||' -> '||l_effctive_cens_dt);
1178: END IF;
1179:
1182: WHEN OTHERS THEN
1183: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1184: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_attendance_type '||SQLERRM);
1185: igs_ge_msg_stack.add;
1186: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1187: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.exception','sql error message: '||SQLERRM);
1188: END IF;
1189: app_exception.raise_exception;
1190:
1183: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1184: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_attendance_type '||SQLERRM);
1185: igs_ge_msg_stack.add;
1186: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1187: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_attendance_type.exception','sql error message: '||SQLERRM);
1188: END IF;
1189: app_exception.raise_exception;
1190:
1191: END get_pell_attendance_type;
1256: l_aid_passed NUMBER;
1257:
1258: BEGIN
1259:
1260: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1261: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.debug',
1262: 'Parameters in get_pell_matrix -> caltype/seq/efc/attend/coa/cp_pell_schd ->' || cp_cal_type || '/' ||
1263: TO_CHAR(cp_sequence_num) || '/' || TO_CHAR(cp_efc) || '/' || cp_enrl_stat || '/' || TO_CHAR(cp_pell_coa) ||'/'||cp_pell_schd );
1264: END IF;
1257:
1258: BEGIN
1259:
1260: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1261: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.debug',
1262: 'Parameters in get_pell_matrix -> caltype/seq/efc/attend/coa/cp_pell_schd ->' || cp_cal_type || '/' ||
1263: TO_CHAR(cp_sequence_num) || '/' || TO_CHAR(cp_efc) || '/' || cp_enrl_stat || '/' || TO_CHAR(cp_pell_coa) ||'/'||cp_pell_schd );
1264: END IF;
1265:
1339: END IF;
1340:
1341: END IF;
1342:
1343: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1344: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.debug',
1345: 'cp_aid -> '|| cp_aid);
1346: END IF;
1347:
1340:
1341: END IF;
1342:
1343: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1344: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.debug',
1345: 'cp_aid -> '|| cp_aid);
1346: END IF;
1347:
1348: RETURN;
1354: WHEN OTHERS THEN
1355: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1356: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_matrix_amt '||SQLERRM);
1357: igs_ge_msg_stack.add;
1358: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1359: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.exception','sql error message: '||SQLERRM);
1360: END IF;
1361: app_exception.raise_exception;
1362:
1355: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1356: fnd_message.set_token('NAME','igf_gr_pell_calc.get_pell_matrix_amt '||SQLERRM);
1357: igs_ge_msg_stack.add;
1358: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1359: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.get_pell_matrix_amt.exception','sql error message: '||SQLERRM);
1360: END IF;
1361: app_exception.raise_exception;
1362:
1363: END get_pell_matrix_amt ;
1451: RETURN;
1452: END IF;
1453:
1454: -- Log useful values
1455: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1452: END IF;
1453:
1454: -- Log useful values
1455: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1453:
1454: -- Log useful values
1455: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1461: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1454: -- Log useful values
1455: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1461: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1462: END IF;
1455: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1461: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1462: END IF;
1463:
1456: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Into round_term_disbursements. Parameters received ...');
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1461: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1462: END IF;
1463:
1464: -- Set the attributes common to ONEs rounding factor
1457: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Rounding disbursements for the term: '||p_ld_cal_type||', '||p_ld_seq_num);
1458: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Term level amount: '||p_term_amt);
1459: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Teaching Period count: '||p_tp_count);
1460: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1461: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1462: END IF;
1463:
1464: -- Set the attributes common to ONEs rounding factor
1465: IF l_disb_round_factor = 'ONE_FIRST' OR l_disb_round_factor = 'ONE_LAST' THEN
1490: END IF;
1491: END IF;
1492:
1493: -- Log values
1494: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1495: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1496: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1497: END IF;
1498:
1491: END IF;
1492:
1493: -- Log values
1494: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1495: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1496: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1497: END IF;
1498:
1499: ------------------------------------
1492:
1493: -- Log values
1494: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1495: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1496: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1497: END IF;
1498:
1499: ------------------------------------
1500: -- EVEN Distribution
1522: -- Get the absolute difference value between preliminary and normal disbursement amount
1523: l_disb_diff := ABS(l_disb_diff);
1524:
1525: -- Log values
1526: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1523: l_disb_diff := ABS(l_disb_diff);
1524:
1525: -- Log values
1526: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1531: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_step: ' ||l_step);
1524:
1525: -- Log values
1526: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1531: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_step: ' ||l_step);
1532: END IF;
1525: -- Log values
1526: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1531: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_step: ' ||l_step);
1532: END IF;
1533:
1526: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1531: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_step: ' ||l_step);
1532: END IF;
1533:
1534: WHILE l_disb_no BETWEEN 1 AND p_pell_tab.COUNT
1527: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1528: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1529: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1530: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1531: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug', 'l_step: ' ||l_step);
1532: END IF;
1533:
1534: WHILE l_disb_no BETWEEN 1 AND p_pell_tab.COUNT
1535: LOOP
1541:
1542: -- Give the extra amount to each disbursement
1543: IF l_disb_diff >= l_extra_factor THEN
1544: -- Log
1545: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1546: fnd_log.string(fnd_log.level_statement,
1547: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1548: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt_extra);
1549: END IF;
1542: -- Give the extra amount to each disbursement
1543: IF l_disb_diff >= l_extra_factor THEN
1544: -- Log
1545: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1546: fnd_log.string(fnd_log.level_statement,
1547: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1548: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt_extra);
1549: END IF;
1550:
1551: p_pell_tab(l_disb_no).offered_amt := l_disb_amt_extra;
1552: l_disb_diff := NVL((l_disb_diff - l_extra_factor), 0);
1553: ELSE
1554: -- Log
1555: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1556: fnd_log.string(fnd_log.level_statement,
1557: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1558: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt);
1559: END IF;
1552: l_disb_diff := NVL((l_disb_diff - l_extra_factor), 0);
1553: ELSE
1554: -- Log
1555: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1556: fnd_log.string(fnd_log.level_statement,
1557: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1558: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt);
1559: END IF;
1560:
1589:
1590: IF l_term_disb_cnt <> l_special_disb_no THEN
1591: -- Other disbursements
1592: -- Log
1593: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1594: fnd_log.string(fnd_log.level_statement,
1595: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1596: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1597: ||' New rounded disb Amt= '||(TRUNC(NVL(p_pell_tab(l_disb_no).offered_amt, 0), l_trunc_factor)));
1590: IF l_term_disb_cnt <> l_special_disb_no THEN
1591: -- Other disbursements
1592: -- Log
1593: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1594: fnd_log.string(fnd_log.level_statement,
1595: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1596: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1597: ||' New rounded disb Amt= '||(TRUNC(NVL(p_pell_tab(l_disb_no).offered_amt, 0), l_trunc_factor)));
1598: END IF;
1603: l_disb_inter_sum_amt := NVL((l_disb_inter_sum_amt + p_pell_tab(l_disb_no).offered_amt), 0);
1604: ELSE
1605: -- Special (First/Last) disbursement
1606: -- Log
1607: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1608: fnd_log.string(fnd_log.level_statement,
1609: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1610: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1611: ||' New rounded disb Amt= '||(TRUNC(NVL((p_term_amt - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1604: ELSE
1605: -- Special (First/Last) disbursement
1606: -- Log
1607: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1608: fnd_log.string(fnd_log.level_statement,
1609: 'igf.plsql.igf_gr_pell_calc.round_term_disbursements.debug',
1610: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1611: ||' New rounded disb Amt= '||(TRUNC(NVL((p_term_amt - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1612: END IF;
1638: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1639: fnd_message.set_token('NAME','igf_gr_pell_calc.round_term_disbursements '||SQLERRM);
1640: igs_ge_msg_stack.add;
1641:
1642: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1643: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.exception','sql error message: '||SQLERRM);
1644: END IF;
1645:
1646: app_exception.raise_exception;
1639: fnd_message.set_token('NAME','igf_gr_pell_calc.round_term_disbursements '||SQLERRM);
1640: igs_ge_msg_stack.add;
1641:
1642: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1643: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.round_term_disbursements.exception','sql error message: '||SQLERRM);
1644: END IF;
1645:
1646: app_exception.raise_exception;
1647: END round_term_disbursements;
1682:
1683: BEGIN
1684: l_disb_round_factor := igf_aw_packaging.get_disb_round_factor(p_fund_id => p_fund_id);
1685:
1686: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1683: BEGIN
1684: l_disb_round_factor := igf_aw_packaging.get_disb_round_factor(p_fund_id => p_fund_id);
1685:
1686: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1691: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1684: l_disb_round_factor := igf_aw_packaging.get_disb_round_factor(p_fund_id => p_fund_id);
1685:
1686: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1691: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1692: END IF;
1685:
1686: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1691: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1692: END IF;
1693:
1686: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1691: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1692: END IF;
1693:
1694: -- Set the attributes common to ONEs rounding factor
1687: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Into round_all_disbursements. Parameters received ...');
1688: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'p_aid: '||p_aid);
1689: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'disb count: '||p_disb_count);
1690: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Disbursement rounding factor: '||l_disb_round_factor);
1691: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'Distribution plan code: ' || p_dist_plan_code);
1692: END IF;
1693:
1694: -- Set the attributes common to ONEs rounding factor
1695: IF l_disb_round_factor = 'ONE_FIRST' OR l_disb_round_factor = 'ONE_LAST' THEN
1720: END IF;
1721: END IF;
1722:
1723: -- Log values
1724: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1725: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1726: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1727: END IF;
1728:
1721: END IF;
1722:
1723: -- Log values
1724: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1725: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1726: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1727: END IF;
1728:
1729: IF p_dist_plan_code = 'E' THEN
1722:
1723: -- Log values
1724: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1725: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_trunc_factor: ' ||l_trunc_factor);
1726: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_extra_factor: ' ||l_extra_factor);
1727: END IF;
1728:
1729: IF p_dist_plan_code = 'E' THEN
1730:
1749: -- Get the absolute difference value between preliminary and normal disbursement amount
1750: l_disb_diff := ABS(l_disb_diff);
1751:
1752: -- Log values
1753: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1750: l_disb_diff := ABS(l_disb_diff);
1751:
1752: -- Log values
1753: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1758: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_step: ' ||l_step);
1751:
1752: -- Log values
1753: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1758: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_step: ' ||l_step);
1759: END IF;
1752: -- Log values
1753: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1758: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_step: ' ||l_step);
1759: END IF;
1760:
1753: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1758: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_step: ' ||l_step);
1759: END IF;
1760:
1761: WHILE l_disb_no BETWEEN 1 AND p_pell_tab.COUNT
1754: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_diff: ' ||l_disb_diff);
1755: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_prelim_amt: ' ||l_disb_prelim_amt);
1756: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt_extra: ' ||l_disb_amt_extra);
1757: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_disb_amt: ' ||l_disb_amt);
1758: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug', 'l_step: ' ||l_step);
1759: END IF;
1760:
1761: WHILE l_disb_no BETWEEN 1 AND p_pell_tab.COUNT
1762: LOOP
1765:
1766: -- Give the extra amount to each disbursement
1767: IF l_disb_diff >= l_extra_factor THEN
1768: -- Log
1769: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1770: fnd_log.string(fnd_log.level_statement,
1771: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1772: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt_extra);
1773: END IF;
1766: -- Give the extra amount to each disbursement
1767: IF l_disb_diff >= l_extra_factor THEN
1768: -- Log
1769: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1770: fnd_log.string(fnd_log.level_statement,
1771: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1772: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt_extra);
1773: END IF;
1774:
1775: p_pell_tab(l_disb_no).offered_amt := l_disb_amt_extra;
1776: l_disb_diff := NVL((l_disb_diff - l_extra_factor), 0);
1777: ELSE
1778: -- Log
1779: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1780: fnd_log.string(fnd_log.level_statement,
1781: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1782: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt);
1783: END IF;
1776: l_disb_diff := NVL((l_disb_diff - l_extra_factor), 0);
1777: ELSE
1778: -- Log
1779: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1780: fnd_log.string(fnd_log.level_statement,
1781: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1782: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt||' New rounded disb Amt= '||l_disb_amt);
1783: END IF;
1784:
1807:
1808: IF l_disb_no <> l_special_disb_no THEN
1809: -- Other disbursements
1810: -- Log
1811: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1812: fnd_log.string(fnd_log.level_statement,
1813: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1814: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1815: ||' New rounded disb Amt= '||(TRUNC(NVL(p_pell_tab(l_disb_no).offered_amt, 0), l_trunc_factor)));
1808: IF l_disb_no <> l_special_disb_no THEN
1809: -- Other disbursements
1810: -- Log
1811: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1812: fnd_log.string(fnd_log.level_statement,
1813: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1814: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1815: ||' New rounded disb Amt= '||(TRUNC(NVL(p_pell_tab(l_disb_no).offered_amt, 0), l_trunc_factor)));
1816: END IF;
1821: l_disb_inter_sum_amt := NVL((l_disb_inter_sum_amt + p_pell_tab(l_disb_no).offered_amt), 0);
1822: ELSE
1823: -- Special (First/Last) disbursement
1824: -- Log
1825: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1826: fnd_log.string(fnd_log.level_statement,
1827: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1828: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1829: ||' New rounded disb Amt= '||(TRUNC(NVL((p_aid - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1822: ELSE
1823: -- Special (First/Last) disbursement
1824: -- Log
1825: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1826: fnd_log.string(fnd_log.level_statement,
1827: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1828: 'Disb No= '||l_disb_no||' Old Disb Amt= '||p_pell_tab(l_disb_no).offered_amt
1829: ||' New rounded disb Amt= '||(TRUNC(NVL((p_aid - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1830: END IF;
1840: END IF;
1841:
1842: l_disb_no := NVL(l_disb_no, 0) + l_step;
1843: END LOOP;
1844: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1845: fnd_log.string(fnd_log.level_statement,
1846: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1847: 'Disb No= '||l_special_disb_no||' Old Disb Amt= '||p_pell_tab(l_special_disb_no).offered_amt
1848: ||' New rounded disb Amt= '|| (TRUNC(NVL((p_aid - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1841:
1842: l_disb_no := NVL(l_disb_no, 0) + l_step;
1843: END LOOP;
1844: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1845: fnd_log.string(fnd_log.level_statement,
1846: 'igf.plsql.igf_gr_pell_calc.round_all_disbursements.debug',
1847: 'Disb No= '||l_special_disb_no||' Old Disb Amt= '||p_pell_tab(l_special_disb_no).offered_amt
1848: ||' New rounded disb Amt= '|| (TRUNC(NVL((p_aid - l_disb_inter_sum_amt), 0), l_trunc_factor)));
1849: END IF;
1860: WHEN OTHERS THEN
1861: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1862: fnd_message.set_token('NAME','igf_gr_pell_calc.round_all_disbursements '||SQLERRM);
1863: igs_ge_msg_stack.add;
1864: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1865: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.exception','sql error message: '||SQLERRM);
1866: END IF;
1867: app_exception.raise_exception;
1868: END round_all_disbursements;
1861: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1862: fnd_message.set_token('NAME','igf_gr_pell_calc.round_all_disbursements '||SQLERRM);
1863: igs_ge_msg_stack.add;
1864: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1865: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.round_all_disbursements.exception','sql error message: '||SQLERRM);
1866: END IF;
1867: app_exception.raise_exception;
1868: END round_all_disbursements;
1869:
2235: l_pell_amt := 0;
2236: l_ft_pell_amt := 0;
2237: l_return_mesg_text := NULL;
2238:
2239: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2240: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2241: 'cp_plan_id -> '|| cp_plan_id);
2242: END IF;
2243: l_total_term_weeks := 0;
2236: l_ft_pell_amt := 0;
2237: l_return_mesg_text := NULL;
2238:
2239: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2240: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2241: 'cp_plan_id -> '|| cp_plan_id);
2242: END IF;
2243: l_total_term_weeks := 0;
2244: -- If no plan ID is passed , Not possible to calculate Pell hence return
2313: fnd_message.set_token('PERSON_NUMBER',igf_gr_gen.get_per_num(cp_base_id));
2314: cp_message := fnd_message.get ;
2315:
2316: -- Log error
2317: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2318: fnd_log.string(fnd_log.level_statement,
2319: 'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2320: 'Person Number ' ||igf_gr_gen.get_per_num(cp_base_id)|| ' not eligible for Pell because this person has already completed a Bacheolor/Professional program'
2321: );
2314: cp_message := fnd_message.get ;
2315:
2316: -- Log error
2317: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2318: fnd_log.string(fnd_log.level_statement,
2319: 'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2320: 'Person Number ' ||igf_gr_gen.get_per_num(cp_base_id)|| ' not eligible for Pell because this person has already completed a Bacheolor/Professional program'
2321: );
2322: END IF;
2334: cp_plan_id );
2335: FETCH c_terms INTO l_terms_rec;
2336: CLOSE c_terms;
2337:
2338: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2339: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','No terms found for base_id >' || TO_CHAR(cp_base_id) || ' plan_id >' || TO_CHAR(cp_plan_id) || ' = ' || TO_CHAR(NVL(l_terms_rec.total_terms,0)));
2340: END IF;
2341:
2342: IF NVL(l_terms_rec.total_terms,0) = 0 THEN
2335: FETCH c_terms INTO l_terms_rec;
2336: CLOSE c_terms;
2337:
2338: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2339: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','No terms found for base_id >' || TO_CHAR(cp_base_id) || ' plan_id >' || TO_CHAR(cp_plan_id) || ' = ' || TO_CHAR(NVL(l_terms_rec.total_terms,0)));
2340: END IF;
2341:
2342: IF NVL(l_terms_rec.total_terms,0) = 0 THEN
2343:
2375: l_program_version := l_get_ant_key_prog_ver_rec.key_prog_ver;
2376:
2377: IF l_program_cd IS NULL THEN
2378: -- FA Anticipated data does not have key program details. Error out
2379: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2380: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Cannot compute key program details.');
2381: END IF;
2382:
2383: cp_return_status := 'E';
2376:
2377: IF l_program_cd IS NULL THEN
2378: -- FA Anticipated data does not have key program details. Error out
2379: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2380: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Cannot compute key program details.');
2381: END IF;
2382:
2383: cp_return_status := 'E';
2384: fnd_message.set_name('IGS', 'IGS_EN_NO_KEY_PRG');
2388: END IF;
2389: END IF;
2390: END IF;
2391:
2392: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2393: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Key Program > Course cd>' || l_program_cd || ' Version >' || TO_CHAR(l_program_version) );
2394: END IF;
2395:
2396: l_message := NULL;
2389: END IF;
2390: END IF;
2391:
2392: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2393: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Key Program > Course cd>' || l_program_cd || ' Version >' || TO_CHAR(l_program_version) );
2394: END IF;
2395:
2396: l_message := NULL;
2397:
2412: END IF;
2413:
2414: cp_pell_seq_id := l_pell_setup_rec.pell_seq_id;
2415:
2416: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2417: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Pell Setup Retrival Succesful for Primary key PELL_SEQ_ID- > ' || TO_CHAR(l_pell_setup_rec.PELL_SEQ_ID));
2418: END IF;
2419:
2420: -- Check if the Pell Setup Payment periods are greater than the total number of payment periods
2413:
2414: cp_pell_seq_id := l_pell_setup_rec.pell_seq_id;
2415:
2416: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2417: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Pell Setup Retrival Succesful for Primary key PELL_SEQ_ID- > ' || TO_CHAR(l_pell_setup_rec.PELL_SEQ_ID));
2418: END IF;
2419:
2420: -- Check if the Pell Setup Payment periods are greater than the total number of payment periods
2421: IF l_terms_rec.total_terms > l_pell_setup_rec.payment_periods_num THEN
2422: fnd_message.set_name('IGF','IGF_GR_INVALID_PAY_PERIODS');
2423: fnd_message.set_token('REPORT_PELL_ID', l_pell_setup_rec.rep_pell_id);
2424: fnd_file.put_line(fnd_file.log, fnd_message.get);
2425:
2426: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2427: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Pell Setup pymnt prds - > ' || TO_CHAR(l_pell_setup_rec.payment_periods_num) || ' Actual periods ->' || TO_CHAR(l_terms_rec.total_terms));
2428: END IF;
2429: END IF;
2430:
2423: fnd_message.set_token('REPORT_PELL_ID', l_pell_setup_rec.rep_pell_id);
2424: fnd_file.put_line(fnd_file.log, fnd_message.get);
2425:
2426: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2427: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Pell Setup pymnt prds - > ' || TO_CHAR(l_pell_setup_rec.payment_periods_num) || ' Actual periods ->' || TO_CHAR(l_terms_rec.total_terms));
2428: END IF;
2429: END IF;
2430:
2431: -- Get fund attributes to set at Disbursement Level.
2466: cp_return_status => l_return_status
2467: );
2468:
2469: -- Assumed that get_pell_coa_efc() will not return any error.
2470: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2471: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Done with get_pell_coa_efc: l_coa= '||l_coa||
2472: ' l_efc: '||l_efc||' l_pell_schedule_code: '||l_pell_schedule_code);
2473: END IF;
2474:
2467: );
2468:
2469: -- Assumed that get_pell_coa_efc() will not return any error.
2470: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2471: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Done with get_pell_coa_efc: l_coa= '||l_coa||
2472: ' l_efc: '||l_efc||' l_pell_schedule_code: '||l_pell_schedule_code);
2473: END IF;
2474:
2475: get_pell_matrix_amt(
2486: cp_aid => l_full_time_amount
2487: );
2488:
2489: -- Assumed that get_pell_matrix_amt() will not return any error.
2490: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2491: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Done with get_pell_matrix_amt: l_full_time_amount= '|| l_full_time_amount);
2492: END IF;
2493:
2494: -- Check the if running in DP only Mode or COA/DP common Terms Mode
2487: );
2488:
2489: -- Assumed that get_pell_matrix_amt() will not return any error.
2490: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2491: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Done with get_pell_matrix_amt: l_full_time_amount= '|| l_full_time_amount);
2492: END IF;
2493:
2494: -- Check the if running in DP only Mode or COA/DP common Terms Mode
2495: OPEN c_terms_det (
2501: BEGIN -- << Start Block >>
2502: FETCH c_terms_det INTO l_terms_det_rec;
2503: EXIT WHEN c_terms_det%NOTFOUND;
2504:
2505: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2506: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Processing Term->' ||
2507: l_terms_det_rec.ld_cal_type || '/' || TO_CHAR(l_terms_det_rec.ld_sequence_number) || ' Teach->' ||
2508: l_terms_det_rec.tp_cal_type || '/' || TO_CHAR(l_terms_det_rec.tp_sequence_number) );
2509: END IF;
2502: FETCH c_terms_det INTO l_terms_det_rec;
2503: EXIT WHEN c_terms_det%NOTFOUND;
2504:
2505: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2506: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Processing Term->' ||
2507: l_terms_det_rec.ld_cal_type || '/' || TO_CHAR(l_terms_det_rec.ld_sequence_number) || ' Teach->' ||
2508: l_terms_det_rec.tp_cal_type || '/' || TO_CHAR(l_terms_det_rec.tp_sequence_number) );
2509: END IF;
2510:
2519: l_running_term := l_terms_det_rec.ld_sequence_number ;
2520: l_term_amt := 0 ;
2521: l_term_cnt := l_term_cnt + 1;
2522:
2523: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2524: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level call to get_pell_attendance_type ' );
2525: END IF;
2526:
2527: -- Get the Attndance Type for the Person
2520: l_term_amt := 0 ;
2521: l_term_cnt := l_term_cnt + 1;
2522:
2523: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2524: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level call to get_pell_attendance_type ' );
2525: END IF;
2526:
2527: -- Get the Attndance Type for the Person
2528: get_pell_attendance_type (
2539: cp_message := l_message ;
2540: cp_return_status := 'E' ;
2541: CLOSE c_terms_det ;
2542:
2543: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2544: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','returning back - current term '||l_terms_det_rec.ld_cal_type||'/'||l_terms_det_rec.ld_sequence_number);
2545: END IF;
2546:
2547: RETURN;
2540: cp_return_status := 'E' ;
2541: CLOSE c_terms_det ;
2542:
2543: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2544: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','returning back - current term '||l_terms_det_rec.ld_cal_type||'/'||l_terms_det_rec.ld_sequence_number);
2545: END IF;
2546:
2547: RETURN;
2548: ELSIF (l_return_status='E') AND l_pell_attend_type = 'XX' THEN
2548: ELSIF (l_return_status='E') AND l_pell_attend_type = 'XX' THEN
2549: -- IGF_GR_NO_OSS_ATTEND scenario- Not able to derive ACTUAL attendance type for the term.
2550: -- We can still continue by Skipping this disb and moving to next disb in the loop c_terms_det
2551: l_term_cnt := l_term_cnt - 1;
2552: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2553: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Not able to derive ACTUAL attendance type for the term '
2554: ||l_terms_det_rec.ld_cal_type ||'/'|| l_terms_det_rec.ld_sequence_number ||'. Raising next_disbursement to process next disbursement.');
2555: END IF;
2556:
2549: -- IGF_GR_NO_OSS_ATTEND scenario- Not able to derive ACTUAL attendance type for the term.
2550: -- We can still continue by Skipping this disb and moving to next disb in the loop c_terms_det
2551: l_term_cnt := l_term_cnt - 1;
2552: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2553: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Not able to derive ACTUAL attendance type for the term '
2554: ||l_terms_det_rec.ld_cal_type ||'/'|| l_terms_det_rec.ld_sequence_number ||'. Raising next_disbursement to process next disbursement.');
2555: END IF;
2556:
2557: RAISE next_disbursement;
2568: END IF;
2569: END IF;
2570: old_pell_att_type := l_pell_attend_type;
2571:
2572: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2573: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level call to get_pell_coa_efc ' );
2574: END IF;
2575:
2576: -- Get Pell COA and EFC
2569: END IF;
2570: old_pell_att_type := l_pell_attend_type;
2571:
2572: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2573: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level call to get_pell_coa_efc ' );
2574: END IF;
2575:
2576: -- Get Pell COA and EFC
2577: get_pell_coa_efc (
2592: ELSE
2593: cp_pell_schedule_code := l_pell_schedule ;
2594: END IF;
2595:
2596: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2597: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','**** values passed to matrix efc>'|| l_efc || '/schedule>' || l_pell_schedule || '/coa>' || l_coa || '/alt_exp>'
2598: || l_base_rec.pell_alt_expense || '/attend_type>' || l_pell_attend_type);
2599: END IF;
2600:
2593: cp_pell_schedule_code := l_pell_schedule ;
2594: END IF;
2595:
2596: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2597: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','**** values passed to matrix efc>'|| l_efc || '/schedule>' || l_pell_schedule || '/coa>' || l_coa || '/alt_exp>'
2598: || l_base_rec.pell_alt_expense || '/attend_type>' || l_pell_attend_type);
2599: END IF;
2600:
2601: -- Compute the Annual Pell Amount for the context attendance type
2612: cp_return_status => l_return_status,
2613: cp_aid => l_aid
2614: ) ;
2615:
2616: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2617: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(l_aid) );
2618: END IF;
2619:
2620: IF l_return_status IS NOT NULL AND l_return_status <> 'E' AND l_aid = 0 THEN
2613: cp_aid => l_aid
2614: ) ;
2615:
2616: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2617: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(l_aid) );
2618: END IF;
2619:
2620: IF l_return_status IS NOT NULL AND l_return_status <> 'E' AND l_aid = 0 THEN
2621: l_term_cnt := l_term_cnt - 1;
2618: END IF;
2619:
2620: IF l_return_status IS NOT NULL AND l_return_status <> 'E' AND l_aid = 0 THEN
2621: l_term_cnt := l_term_cnt - 1;
2622: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2623: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','reduced l_term_cnt:'||l_term_cnt);
2624: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','raising next_disbursement for '||l_terms_det_rec.ld_cal_type||'/'||l_terms_det_rec.ld_sequence_number ||' as matrix amt is zero');
2625: END IF;
2626: RAISE next_disbursement;
2619:
2620: IF l_return_status IS NOT NULL AND l_return_status <> 'E' AND l_aid = 0 THEN
2621: l_term_cnt := l_term_cnt - 1;
2622: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2623: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','reduced l_term_cnt:'||l_term_cnt);
2624: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','raising next_disbursement for '||l_terms_det_rec.ld_cal_type||'/'||l_terms_det_rec.ld_sequence_number ||' as matrix amt is zero');
2625: END IF;
2626: RAISE next_disbursement;
2627: END IF;
2620: IF l_return_status IS NOT NULL AND l_return_status <> 'E' AND l_aid = 0 THEN
2621: l_term_cnt := l_term_cnt - 1;
2622: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2623: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','reduced l_term_cnt:'||l_term_cnt);
2624: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','raising next_disbursement for '||l_terms_det_rec.ld_cal_type||'/'||l_terms_det_rec.ld_sequence_number ||' as matrix amt is zero');
2625: END IF;
2626: RAISE next_disbursement;
2627: END IF;
2628:
2664: -- Changed ROUNDing to two decimal places
2665: l_term_amt := ROUND(((l_aid * l_term_weeks) / l_actual_weeks), 2);
2666: l_total_term_weeks := l_total_term_weeks + l_term_weeks;
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2669: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2670: 'Payment Method = 3 - > l_actual_weeks - > l_term_weeks - > l_aid -> l_term_amt -> '
2671: || l_actual_weeks || ' -> ' || l_term_weeks
2672: || ' -> ' || l_aid
2665: l_term_amt := ROUND(((l_aid * l_term_weeks) / l_actual_weeks), 2);
2666: l_total_term_weeks := l_total_term_weeks + l_term_weeks;
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2669: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2670: 'Payment Method = 3 - > l_actual_weeks - > l_term_weeks - > l_aid -> l_term_amt -> '
2671: || l_actual_weeks || ' -> ' || l_term_weeks
2672: || ' -> ' || l_aid
2673: || ' -> ' || l_term_amt);
2674: END IF;
2675:
2676: ELSE -- the payment method is not equal to '3'
2677: l_term_amt := ROUND((l_aid/l_pell_setup_rec.payment_periods_num),2) ;
2678: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2679: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'l_aid***payment periods -> ' ||l_aid|| '***' ||l_pell_setup_rec.payment_periods_num);
2680: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2681: 'Payment Method is NOT 3 - > l_aid -> l_term_amt -> '
2682: || ' -> ' || l_aid
2675:
2676: ELSE -- the payment method is not equal to '3'
2677: l_term_amt := ROUND((l_aid/l_pell_setup_rec.payment_periods_num),2) ;
2678: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2679: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'l_aid***payment periods -> ' ||l_aid|| '***' ||l_pell_setup_rec.payment_periods_num);
2680: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2681: 'Payment Method is NOT 3 - > l_aid -> l_term_amt -> '
2682: || ' -> ' || l_aid
2683: || ' -> ' || l_term_amt);
2676: ELSE -- the payment method is not equal to '3'
2677: l_term_amt := ROUND((l_aid/l_pell_setup_rec.payment_periods_num),2) ;
2678: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2679: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'l_aid***payment periods -> ' ||l_aid|| '***' ||l_pell_setup_rec.payment_periods_num);
2680: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2681: 'Payment Method is NOT 3 - > l_aid -> l_term_amt -> '
2682: || ' -> ' || l_aid
2683: || ' -> ' || l_term_amt);
2684: END IF;
2690: IF l_ft_running_amount + l_term_amt > l_full_time_amount THEN
2691: l_term_amt := l_full_time_amount - l_ft_running_amount ;
2692: l_ft_running_amount := l_full_time_amount;
2693:
2694: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2695: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Reduced l_term_amt to ' ||l_term_amt|| ' so that it is within the full time Pell amt');
2696: END IF;
2697: ELSE
2698: l_ft_running_amount := l_ft_running_amount + l_term_amt ;
2691: l_term_amt := l_full_time_amount - l_ft_running_amount ;
2692: l_ft_running_amount := l_full_time_amount;
2693:
2694: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2695: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Reduced l_term_amt to ' ||l_term_amt|| ' so that it is within the full time Pell amt');
2696: END IF;
2697: ELSE
2698: l_ft_running_amount := l_ft_running_amount + l_term_amt ;
2699: END IF;
2734: ELSE
2735: l_disb_exp_dt := l_ofst_rec.ofst_absolute_val;
2736: END IF;
2737:
2738: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2739: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' /PL SQL Table count Before ' ||l_cnt);
2740: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' Teaching Period Percent: ' ||l_terms_det_rec.tp_perct_num);
2741: END IF;
2742:
2735: l_disb_exp_dt := l_ofst_rec.ofst_absolute_val;
2736: END IF;
2737:
2738: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2739: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' /PL SQL Table count Before ' ||l_cnt);
2740: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' Teaching Period Percent: ' ||l_terms_det_rec.tp_perct_num);
2741: END IF;
2742:
2743: -- Populate the PL/SQL Table with the Disbursement Details
2736: END IF;
2737:
2738: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2739: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' /PL SQL Table count Before ' ||l_cnt);
2740: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' Teaching Period Percent: ' ||l_terms_det_rec.tp_perct_num);
2741: END IF;
2742:
2743: -- Populate the PL/SQL Table with the Disbursement Details
2744: l_tp_amt := ROUND((l_term_amt * l_terms_det_rec.tp_perct_num/100),2) ;
2742:
2743: -- Populate the PL/SQL Table with the Disbursement Details
2744: l_tp_amt := ROUND((l_term_amt * l_terms_det_rec.tp_perct_num/100),2) ;
2745:
2746: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2747: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' l_tp_amt: ' ||l_tp_amt);
2748: END IF;
2749:
2750: IF cp_pell_tab IS NULL THEN
2743: -- Populate the PL/SQL Table with the Disbursement Details
2744: l_tp_amt := ROUND((l_term_amt * l_terms_det_rec.tp_perct_num/100),2) ;
2745:
2746: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2747: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',' l_tp_amt: ' ||l_tp_amt);
2748: END IF;
2749:
2750: IF cp_pell_tab IS NULL THEN
2751: cp_pell_tab := pell_tab();
2754: l_cnt := NVL(l_cnt,0) + 1 ;
2755: l_disb_num := l_disb_num + 1;
2756:
2757:
2758: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2759: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','### term_ld>' || l_terms_det_rec.ld_cal_type || '/tp_cal>' ||
2760: l_terms_det_rec.tp_cal_type || '/tp_seq>' || l_terms_det_rec.tp_sequence_number || '/term_amt>' || l_term_amt || '/tp_%>' || l_terms_det_rec.tp_perct_num
2761: || '/tp_amt>' || l_tp_amt ||' /PL SQL Table count After ' ||l_cnt);
2762: END IF;
2755: l_disb_num := l_disb_num + 1;
2756:
2757:
2758: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2759: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','### term_ld>' || l_terms_det_rec.ld_cal_type || '/tp_cal>' ||
2760: l_terms_det_rec.tp_cal_type || '/tp_seq>' || l_terms_det_rec.tp_sequence_number || '/term_amt>' || l_term_amt || '/tp_%>' || l_terms_det_rec.tp_perct_num
2761: || '/tp_amt>' || l_tp_amt ||' /PL SQL Table count After ' ||l_cnt);
2762: END IF;
2763:
2792: cp_pell_tab(l_cnt).base_attendance_type_code := l_pell_attend_type ;
2793:
2794: cp_aid := NVL(cp_aid,0) + NVL(l_tp_amt,0) ;
2795:
2796: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2797: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2798: 'l_tp_amt , cp_aid - LOOP ' || l_tp_amt || ' , ' || cp_aid);
2799: END IF;
2800: ELSE
2793:
2794: cp_aid := NVL(cp_aid,0) + NVL(l_tp_amt,0) ;
2795:
2796: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2797: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2798: 'l_tp_amt , cp_aid - LOOP ' || l_tp_amt || ' , ' || cp_aid);
2799: END IF;
2800: ELSE
2801: -- l_term_amt is NULL or 0
2798: 'l_tp_amt , cp_aid - LOOP ' || l_tp_amt || ' , ' || cp_aid);
2799: END IF;
2800: ELSE
2801: -- l_term_amt is NULL or 0
2802: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2803: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Ignoring term bcoz l_term_amt is 0');
2804: END IF;
2805: END IF; -- << NVL(l_term_amt, 0) > 0 >>
2806:
2799: END IF;
2800: ELSE
2801: -- l_term_amt is NULL or 0
2802: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2803: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'Ignoring term bcoz l_term_amt is 0');
2804: END IF;
2805: END IF; -- << NVL(l_term_amt, 0) > 0 >>
2806:
2807: EXCEPTION
2814: END LOOP; -- << c_terms_det End loop >>
2815:
2816: CLOSE c_terms_det;
2817:
2818: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2820: 'l_aid , cp_aid , l_acad_wks , l_term_total_weeks '
2821: || l_aid || ' , '|| cp_aid || ' , '
2822: || l_actual_weeks || ' , '|| l_total_term_weeks);
2815:
2816: CLOSE c_terms_det;
2817:
2818: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
2820: 'l_aid , cp_aid , l_acad_wks , l_term_total_weeks '
2821: || l_aid || ' , '|| cp_aid || ' , '
2822: || l_actual_weeks || ' , '|| l_total_term_weeks);
2823: END IF;
2829: cp_message := fnd_message.get;
2830: cp_return_status := 'E';
2831: cp_aid := 0;
2832:
2833: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2834: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'cp_pell_tab is NOT filled. Cannot proceed further.');
2835: END IF;
2836:
2837: RETURN;
2830: cp_return_status := 'E';
2831: cp_aid := 0;
2832:
2833: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2834: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug', 'cp_pell_tab is NOT filled. Cannot proceed further.');
2835: END IF;
2836:
2837: RETURN;
2838: END IF;
2876:
2877: -- Round all disbursements in the term
2878: l_return_status := 'S';
2879: -- Log
2880: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2881: fnd_log.string(fnd_log.level_statement,
2882: 'igf.plsql.igf_gr_pell_calc.calc_pell.debug Full Time Amount Validation',
2883: 'Calling round_term_disbursements for the term '||l_term_rec.ld_cal_type||', '||l_term_rec.ld_sequence_number);
2884: END IF;
2877: -- Round all disbursements in the term
2878: l_return_status := 'S';
2879: -- Log
2880: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2881: fnd_log.string(fnd_log.level_statement,
2882: 'igf.plsql.igf_gr_pell_calc.calc_pell.debug Full Time Amount Validation',
2883: 'Calling round_term_disbursements for the term '||l_term_rec.ld_cal_type||', '||l_term_rec.ld_sequence_number);
2884: END IF;
2885: IF NOT pell_att_flag AND l_term_exists THEN
2949: --
2950: -- Bug 3778277 This validation should happen only if the attendance type is same for all terms
2951: /*IF pell_att_flag AND cp_aid > l_aid THEN
2952: -- Total awarded amount is greater than the limit
2953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','raising IGF_AW_PELL_LMT_EXCEED with cp_aid/l_aid->'||cp_aid||'/'||l_aid);
2955: END IF;
2956: fnd_message.set_name('IGF','IGF_AW_PELL_LMT_EXCEED');
2957: cp_message := fnd_message.get;
2950: -- Bug 3778277 This validation should happen only if the attendance type is same for all terms
2951: /*IF pell_att_flag AND cp_aid > l_aid THEN
2952: -- Total awarded amount is greater than the limit
2953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug','raising IGF_AW_PELL_LMT_EXCEED with cp_aid/l_aid->'||cp_aid||'/'||l_aid);
2955: END IF;
2956: fnd_message.set_name('IGF','IGF_AW_PELL_LMT_EXCEED');
2957: cp_message := fnd_message.get;
2958: cp_return_status := 'E' ;
2969: cp_return_status => l_return_status,
2970: cp_message => l_return_mesg_text
2971: );
2972:
2973: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2974: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug Full Time Amount Validation',
2975: 'l_ft_pell_amt , cp_aid , l_return_status , l_return_mesg_text '
2976: || l_ft_pell_amt || ' , '|| cp_aid || ' , '
2977: || l_return_status || ' , '|| l_return_mesg_text);
2970: cp_message => l_return_mesg_text
2971: );
2972:
2973: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2974: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug Full Time Amount Validation',
2975: 'l_ft_pell_amt , cp_aid , l_return_status , l_return_mesg_text '
2976: || l_ft_pell_amt || ' , '|| cp_aid || ' , '
2977: || l_return_status || ' , '|| l_return_mesg_text);
2978: END IF;
3001:
3002: cp_return_status := 'S';
3003:
3004:
3005: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3006: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
3007: 'Aid Amount ' || cp_aid);
3008: END IF;
3009:
3002: cp_return_status := 'S';
3003:
3004:
3005: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3006: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_pell.debug',
3007: 'Aid Amount ' || cp_aid);
3008: END IF;
3009:
3010: EXCEPTION
3011: WHEN OTHERS THEN
3012: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3013: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_pell '||SQLERRM);
3014: igs_ge_msg_stack.add;
3015: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3016: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_pell.exception','sql error message: '||SQLERRM);
3017: END IF;
3018: app_exception.raise_exception;
3019:
3012: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3013: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_pell '||SQLERRM);
3014: igs_ge_msg_stack.add;
3015: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3016: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_pell.exception','sql error message: '||SQLERRM);
3017: END IF;
3018: app_exception.raise_exception;
3019:
3020: END calc_pell;
3144: -- Not eligible for Pell
3145: fnd_message.set_name('IGF','IGF_AW_NO_PELL_HIGH_DEG');
3146: fnd_message.set_token('PERSON_NUMBER',igf_gr_gen.get_per_num(cp_base_id));
3147: igs_ge_msg_stack.add;
3148: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3149: fnd_log.string(fnd_log.level_statement,
3150: 'igf.plsql.igf_gr_pell_calc.pell_elig.debug',
3151: 'Person Number ' ||igf_gr_gen.get_per_num(cp_base_id)|| ' not eligible for Pell because this person has already completed a Bacheolor/Professional program'
3152: );
3145: fnd_message.set_name('IGF','IGF_AW_NO_PELL_HIGH_DEG');
3146: fnd_message.set_token('PERSON_NUMBER',igf_gr_gen.get_per_num(cp_base_id));
3147: igs_ge_msg_stack.add;
3148: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3149: fnd_log.string(fnd_log.level_statement,
3150: 'igf.plsql.igf_gr_pell_calc.pell_elig.debug',
3151: 'Person Number ' ||igf_gr_gen.get_per_num(cp_base_id)|| ' not eligible for Pell because this person has already completed a Bacheolor/Professional program'
3152: );
3153: END IF;
3162: WHEN OTHERS THEN
3163: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3164: fnd_message.set_token('NAME','igf_gr_pell_calc.pell_elig '||SQLERRM);
3165: igs_ge_msg_stack.add;
3166: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3167: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.pell_elig.exception','sql error message: '||SQLERRM);
3168: END IF;
3169: app_exception.raise_exception;
3170:
3163: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3164: fnd_message.set_token('NAME','igf_gr_pell_calc.pell_elig '||SQLERRM);
3165: igs_ge_msg_stack.add;
3166: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3167: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.pell_elig.exception','sql error message: '||SQLERRM);
3168: END IF;
3169: app_exception.raise_exception;
3170:
3171: END pell_elig;
3303: l_program_version := l_get_ant_key_prog_ver_rec.key_prog_ver;
3304:
3305: IF l_program_cd IS NULL THEN
3306: -- FA Anticipated data does not have key program details. Error out
3307: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3308: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Cannot compute key program details.');
3309: END IF;
3310:
3311: cp_return_status := 'E' ;
3304:
3305: IF l_program_cd IS NULL THEN
3306: -- FA Anticipated data does not have key program details. Error out
3307: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3308: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Cannot compute key program details.');
3309: END IF;
3310:
3311: cp_return_status := 'E' ;
3312: fnd_message.set_name('IGS', 'IGS_EN_NO_KEY_PRG');
3316: END IF;
3317: END IF;
3318: END IF;
3319:
3320: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3321: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Key Program > Course cd>' || l_program_cd || ' Version >' || TO_CHAR(l_program_version) );
3322: END IF;
3323:
3324: l_message := NULL;
3317: END IF;
3318: END IF;
3319:
3320: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3321: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Key Program > Course cd>' || l_program_cd || ' Version >' || TO_CHAR(l_program_version) );
3322: END IF;
3323:
3324: l_message := NULL;
3325:
3338: cp_return_status := 'E' ;
3339: RETURN;
3340: END IF;
3341:
3342: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3343: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Pell Setup Retrival Succesful for Primary key PELL_SEQ_ID- > ' || TO_CHAR(l_pell_setup_rec.PELL_SEQ_ID));
3344: END IF;
3345:
3346:
3339: RETURN;
3340: END IF;
3341:
3342: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3343: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Pell Setup Retrival Succesful for Primary key PELL_SEQ_ID- > ' || TO_CHAR(l_pell_setup_rec.PELL_SEQ_ID));
3344: END IF;
3345:
3346:
3347: -- Get Pell COA and EFC
3379: cp_return_status => l_return_status,
3380: cp_aid => l_aid
3381: ) ;
3382:
3383: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3384: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(l_aid) );
3385: END IF;
3386:
3387: IF (l_return_status='E') THEN
3380: cp_aid => l_aid
3381: ) ;
3382:
3383: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3384: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(l_aid) );
3385: END IF;
3386:
3387: IF (l_return_status='E') THEN
3388: cp_message := l_message ;
3442: END IF;
3443: cp_term_aid := l_term_amt;
3444: cp_return_status := 'S';
3445:
3446: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3447: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','cp_term_aid ' || cp_term_aid );
3448: END IF;
3449:
3450: EXCEPTION
3443: cp_term_aid := l_term_amt;
3444: cp_return_status := 'S';
3445:
3446: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3447: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_term_pell.debug','cp_term_aid ' || cp_term_aid );
3448: END IF;
3449:
3450: EXCEPTION
3451: WHEN OTHERS THEN
3451: WHEN OTHERS THEN
3452: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3453: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_term_pell '||SQLERRM);
3454: igs_ge_msg_stack.add;
3455: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3456: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_term_pell.exception','sql error message: '||SQLERRM);
3457: END IF;
3458: app_exception.raise_exception;
3459:
3452: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3453: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_term_pell '||SQLERRM);
3454: igs_ge_msg_stack.add;
3455: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3456: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_term_pell.exception','sql error message: '||SQLERRM);
3457: END IF;
3458: app_exception.raise_exception;
3459:
3460: END calc_term_pell;
3582: cp_return_status => cp_return_status,
3583: cp_aid => cp_aid
3584: ) ;
3585:
3586: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3587: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(cp_aid) );
3588: END IF;
3589: IF (cp_return_status='E') THEN
3590: RETURN;
3583: cp_aid => cp_aid
3584: ) ;
3585:
3586: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3587: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','Term level return amount from get_pell_matrix_amt **************->' || TO_CHAR(cp_aid) );
3588: END IF;
3589: IF (cp_return_status='E') THEN
3590: RETURN;
3591: END IF;
3618: l_program_version := l_get_ant_key_prog_ver_rec.key_prog_ver;
3619:
3620: IF l_program_cd IS NULL THEN
3621: -- FA Anticipated data does not have key program details. Error out
3622: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3623: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','Cannot compute key program details');
3624: END IF;
3625:
3626: cp_return_status := 'E' ;
3619:
3620: IF l_program_cd IS NULL THEN
3621: -- FA Anticipated data does not have key program details. Error out
3622: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3623: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','Cannot compute key program details');
3624: END IF;
3625:
3626: cp_return_status := 'E' ;
3627: fnd_message.set_name('IGS', 'IGS_EN_NO_KEY_PRG');
3717: cp_ft_aid := ROUND(l_ft_aid,2) ;
3718:
3719: END IF;
3720:
3721: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3722: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','cp_ft_aid ' || cp_ft_aid );
3723: END IF;
3724:
3725: EXCEPTION
3718:
3719: END IF;
3720:
3721: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3722: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.debug','cp_ft_aid ' || cp_ft_aid );
3723: END IF;
3724:
3725: EXCEPTION
3726: WHEN OTHERS THEN
3726: WHEN OTHERS THEN
3727: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3728: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_ft_max_pell '||SQLERRM);
3729: igs_ge_msg_stack.add;
3730: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3731: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.exception','sql error message: '||SQLERRM);
3732: END IF;
3733: app_exception.raise_exception;
3734:
3727: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3728: fnd_message.set_token('NAME','igf_gr_pell_calc.calc_ft_max_pell '||SQLERRM);
3729: igs_ge_msg_stack.add;
3730: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3731: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_pell_calc.calc_ft_max_pell.exception','sql error message: '||SQLERRM);
3732: END IF;
3733: app_exception.raise_exception;
3734:
3735: