395:
396: l_prs_grp_sql := IGS_PE_DYNAMIC_PERSID_GROUP.GET_DYNAMIC_SQL(p_person_id_grp, l_prs_grp_status, l_group_type);
397:
398: IF l_prs_grp_status <> 'S' THEN
399: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
400: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
401: errbuf := fnd_message.get();
402: fnd_file.put_line(fnd_file.log, errbuf); -- as this info is also important to end user.
403: retcode := '2';
396: l_prs_grp_sql := IGS_PE_DYNAMIC_PERSID_GROUP.GET_DYNAMIC_SQL(p_person_id_grp, l_prs_grp_status, l_group_type);
397:
398: IF l_prs_grp_status <> 'S' THEN
399: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
400: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
401: errbuf := fnd_message.get();
402: fnd_file.put_line(fnd_file.log, errbuf); -- as this info is also important to end user.
403: retcode := '2';
404: RETURN;
397:
398: IF l_prs_grp_status <> 'S' THEN
399: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
400: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
401: errbuf := fnd_message.get();
402: fnd_file.put_line(fnd_file.log, errbuf); -- as this info is also important to end user.
403: retcode := '2';
404: RETURN;
405: END IF;
485:
486: -- set the flag so that no further processing is required for the record
487: l_calc_tariff_flag := 'N';
488:
489: fnd_message.set_name('IGS','IGS_HE_UT_EXT_NOT_RECALC');
490: fnd_message.set_token('PERSON', l_person_number);
491: fnd_message.set_token('PROGRAM', c_st_spa.course_cd);
492: fnd_file.put_line(fnd_file.log, fnd_message.get());
493:
486: -- set the flag so that no further processing is required for the record
487: l_calc_tariff_flag := 'N';
488:
489: fnd_message.set_name('IGS','IGS_HE_UT_EXT_NOT_RECALC');
490: fnd_message.set_token('PERSON', l_person_number);
491: fnd_message.set_token('PROGRAM', c_st_spa.course_cd);
492: fnd_file.put_line(fnd_file.log, fnd_message.get());
493:
494: END IF;
487: l_calc_tariff_flag := 'N';
488:
489: fnd_message.set_name('IGS','IGS_HE_UT_EXT_NOT_RECALC');
490: fnd_message.set_token('PERSON', l_person_number);
491: fnd_message.set_token('PROGRAM', c_st_spa.course_cd);
492: fnd_file.put_line(fnd_file.log, fnd_message.get());
493:
494: END IF;
495:
488:
489: fnd_message.set_name('IGS','IGS_HE_UT_EXT_NOT_RECALC');
490: fnd_message.set_token('PERSON', l_person_number);
491: fnd_message.set_token('PROGRAM', c_st_spa.course_cd);
492: fnd_file.put_line(fnd_file.log, fnd_message.get());
493:
494: END IF;
495:
496: -- Further processing is done only if the flag is set to Y
600: x_org_id => igs_ge_gen_003.get_org_id );
601:
602: l_record_inserted := l_record_inserted + 1 ;
603:
604: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
601:
602: l_record_inserted := l_record_inserted + 1 ;
603:
604: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
602: l_record_inserted := l_record_inserted + 1 ;
603:
604: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
610: fnd_file.put_line(fnd_file.log, fnd_message.get());
603:
604: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
610: fnd_file.put_line(fnd_file.log, fnd_message.get());
611:
604: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
610: fnd_file.put_line(fnd_file.log, fnd_message.get());
611:
612: END IF;
605: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
610: fnd_file.put_line(fnd_file.log, fnd_message.get());
611:
612: END IF;
613:
606: Fnd_Message.Set_Token('COURSE_CODE',c_st_spa.course_cd);
607: Fnd_Message.Set_Token('EXAM_LEVEL',c_exam_level.Exam_level);
608: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
609: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
610: fnd_file.put_line(fnd_file.log, fnd_message.get());
611:
612: END IF;
613:
614: END LOOP; --end for Cur_exam_level
690: x_disadv_uplift_factor => c_st_spa_for_update.disadv_uplift_factor ,
691: x_enh_fund_elig_cd => c_st_spa_for_update.enh_fund_elig_cd,
692: x_exclude_flag => c_st_spa_for_update.exclude_flag);
693:
694: fnd_message.set_name('IGS','IGS_HE_TOTAL_TARIFF');
695: fnd_message.set_token('PERSON_NUMBER',l_person_number);
696: fnd_message.set_token('COURSE_CODE',c_st_spa.course_cd);
697: IF l_grade.to_grade IS NULL THEN -- jchin added 3484372
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
691: x_enh_fund_elig_cd => c_st_spa_for_update.enh_fund_elig_cd,
692: x_exclude_flag => c_st_spa_for_update.exclude_flag);
693:
694: fnd_message.set_name('IGS','IGS_HE_TOTAL_TARIFF');
695: fnd_message.set_token('PERSON_NUMBER',l_person_number);
696: fnd_message.set_token('COURSE_CODE',c_st_spa.course_cd);
697: IF l_grade.to_grade IS NULL THEN -- jchin added 3484372
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
699: ELSE
692: x_exclude_flag => c_st_spa_for_update.exclude_flag);
693:
694: fnd_message.set_name('IGS','IGS_HE_TOTAL_TARIFF');
695: fnd_message.set_token('PERSON_NUMBER',l_person_number);
696: fnd_message.set_token('COURSE_CODE',c_st_spa.course_cd);
697: IF l_grade.to_grade IS NULL THEN -- jchin added 3484372
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
699: ELSE
700: fnd_message.set_token('HIGH_QUAL', l_grade.full_grade_name);
694: fnd_message.set_name('IGS','IGS_HE_TOTAL_TARIFF');
695: fnd_message.set_token('PERSON_NUMBER',l_person_number);
696: fnd_message.set_token('COURSE_CODE',c_st_spa.course_cd);
697: IF l_grade.to_grade IS NULL THEN -- jchin added 3484372
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
699: ELSE
700: fnd_message.set_token('HIGH_QUAL', l_grade.full_grade_name);
701: END IF;
702: fnd_message.set_token('TOTAL_TARIFF',l_total_tariff_score);
696: fnd_message.set_token('COURSE_CODE',c_st_spa.course_cd);
697: IF l_grade.to_grade IS NULL THEN -- jchin added 3484372
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
699: ELSE
700: fnd_message.set_token('HIGH_QUAL', l_grade.full_grade_name);
701: END IF;
702: fnd_message.set_token('TOTAL_TARIFF',l_total_tariff_score);
703: fnd_file.put_line(fnd_file.log, fnd_message.get());
704:
698: fnd_message.set_token('HIGH_QUAL', 'NULL');
699: ELSE
700: fnd_message.set_token('HIGH_QUAL', l_grade.full_grade_name);
701: END IF;
702: fnd_message.set_token('TOTAL_TARIFF',l_total_tariff_score);
703: fnd_file.put_line(fnd_file.log, fnd_message.get());
704:
705: l_record_updated := l_record_updated + 1 ;
706:
699: ELSE
700: fnd_message.set_token('HIGH_QUAL', l_grade.full_grade_name);
701: END IF;
702: fnd_message.set_token('TOTAL_TARIFF',l_total_tariff_score);
703: fnd_file.put_line(fnd_file.log, fnd_message.get());
704:
705: l_record_updated := l_record_updated + 1 ;
706:
707: COMMIT;
711: END LOOP; -- Loop of Cursor Cur_st_spa
712:
713: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
714:
715: fnd_message.set_name('IGS','IGS_UC_UPD_REC_COUNT');
716: fnd_message.set_token('REC_CNT',l_record_updated);
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
712:
713: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
714:
715: fnd_message.set_name('IGS','IGS_UC_UPD_REC_COUNT');
716: fnd_message.set_token('REC_CNT',l_record_updated);
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
720: fnd_message.set_token('REC_CNT',l_record_inserted);
713: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
714:
715: fnd_message.set_name('IGS','IGS_UC_UPD_REC_COUNT');
716: fnd_message.set_token('REC_CNT',l_record_updated);
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
720: fnd_message.set_token('REC_CNT',l_record_inserted);
721: fnd_file.put_line(fnd_file.log, fnd_message.get());
715: fnd_message.set_name('IGS','IGS_UC_UPD_REC_COUNT');
716: fnd_message.set_token('REC_CNT',l_record_updated);
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
720: fnd_message.set_token('REC_CNT',l_record_inserted);
721: fnd_file.put_line(fnd_file.log, fnd_message.get());
722:
723: EXCEPTION
716: fnd_message.set_token('REC_CNT',l_record_updated);
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
720: fnd_message.set_token('REC_CNT',l_record_inserted);
721: fnd_file.put_line(fnd_file.log, fnd_message.get());
722:
723: EXCEPTION
724: WHEN OTHERS THEN
717: fnd_file.put_line(fnd_file.log, fnd_message.get());
718:
719: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
720: fnd_message.set_token('REC_CNT',l_record_inserted);
721: fnd_file.put_line(fnd_file.log, fnd_message.get());
722:
723: EXCEPTION
724: WHEN OTHERS THEN
725: IF l_cursor_id IS NOT NULL THEN
727: END IF;
728:
729: ROLLBACK;
730: IF SQLCODE=-1436 THEN
731: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
732: fnd_message.set_token('AWARD',NULL);
733: -- anwest Bug# 4035243 Peer review noted no actual logging
734: fnd_file.put_line(fnd_file.log, fnd_message.get());
735: ELSE
728:
729: ROLLBACK;
730: IF SQLCODE=-1436 THEN
731: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
732: fnd_message.set_token('AWARD',NULL);
733: -- anwest Bug# 4035243 Peer review noted no actual logging
734: fnd_file.put_line(fnd_file.log, fnd_message.get());
735: ELSE
736: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
730: IF SQLCODE=-1436 THEN
731: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
732: fnd_message.set_token('AWARD',NULL);
733: -- anwest Bug# 4035243 Peer review noted no actual logging
734: fnd_file.put_line(fnd_file.log, fnd_message.get());
735: ELSE
736: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
737: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.External_tariff_calc - '||SQLERRM);
738: -- anwest Bug# 4035243 Peer review noted no actual logging
732: fnd_message.set_token('AWARD',NULL);
733: -- anwest Bug# 4035243 Peer review noted no actual logging
734: fnd_file.put_line(fnd_file.log, fnd_message.get());
735: ELSE
736: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
737: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.External_tariff_calc - '||SQLERRM);
738: -- anwest Bug# 4035243 Peer review noted no actual logging
739: fnd_file.put_line(fnd_file.log, fnd_message.get());
740: END IF;
733: -- anwest Bug# 4035243 Peer review noted no actual logging
734: fnd_file.put_line(fnd_file.log, fnd_message.get());
735: ELSE
736: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
737: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.External_tariff_calc - '||SQLERRM);
738: -- anwest Bug# 4035243 Peer review noted no actual logging
739: fnd_file.put_line(fnd_file.log, fnd_message.get());
740: END IF;
741:
735: ELSE
736: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
737: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.External_tariff_calc - '||SQLERRM);
738: -- anwest Bug# 4035243 Peer review noted no actual logging
739: fnd_file.put_line(fnd_file.log, fnd_message.get());
740: END IF;
741:
742: IF ( fnd_log.level_unexpected >= l_debug_level ) THEN
743: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
742: IF ( fnd_log.level_unexpected >= l_debug_level ) THEN
743: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
744: END IF;
745:
746: fnd_message.retrieve (Errbuf);
747: Retcode := 2 ;
748: RETURN;
749:
750: END External_tariff_calc;
942: IF p_person_id_grp IS NOT NULL THEN
943: l_prs_grp_sql := IGS_PE_DYNAMIC_PERSID_GROUP.GET_DYNAMIC_SQL(p_person_id_grp, l_prs_grp_status, l_group_type);
944:
945: IF l_prs_grp_status <> 'S' THEN
946: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
947: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
948: errbuf := fnd_message.get();
949: fnd_file.put_line(fnd_file.log, errbuf); -- this message need to be displayed to user.
950: retcode := '2';
943: l_prs_grp_sql := IGS_PE_DYNAMIC_PERSID_GROUP.GET_DYNAMIC_SQL(p_person_id_grp, l_prs_grp_status, l_group_type);
944:
945: IF l_prs_grp_status <> 'S' THEN
946: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
947: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
948: errbuf := fnd_message.get();
949: fnd_file.put_line(fnd_file.log, errbuf); -- this message need to be displayed to user.
950: retcode := '2';
951: RETURN;
944:
945: IF l_prs_grp_status <> 'S' THEN
946: fnd_message.set_name('IGS','IGS_HE_UT_PRSN_ID_GRP_ERR');
947: fnd_message.set_token('PRSNIDGRP',p_person_id_grp);
948: errbuf := fnd_message.get();
949: fnd_file.put_line(fnd_file.log, errbuf); -- this message need to be displayed to user.
950: retcode := '2';
951: RETURN;
952: END IF;
1042: -- existing tariff calculated values to be retained and hence not tariff need
1043: -- to be calculated. Only log a message in the log
1044: l_calc_prsn_tariff := 'N';
1045:
1046: fnd_message.set_name('IGS','IGS_HE_UT_NOT_RECALC');
1047: fnd_message.set_token('PERSON', l_person_number);
1048: fnd_message.set_token('CALCTYPE', p_tariff_calc_type);
1049: fnd_file.put_line(fnd_file.log, fnd_message.get());
1050:
1043: -- to be calculated. Only log a message in the log
1044: l_calc_prsn_tariff := 'N';
1045:
1046: fnd_message.set_name('IGS','IGS_HE_UT_NOT_RECALC');
1047: fnd_message.set_token('PERSON', l_person_number);
1048: fnd_message.set_token('CALCTYPE', p_tariff_calc_type);
1049: fnd_file.put_line(fnd_file.log, fnd_message.get());
1050:
1051: END IF;
1044: l_calc_prsn_tariff := 'N';
1045:
1046: fnd_message.set_name('IGS','IGS_HE_UT_NOT_RECALC');
1047: fnd_message.set_token('PERSON', l_person_number);
1048: fnd_message.set_token('CALCTYPE', p_tariff_calc_type);
1049: fnd_file.put_line(fnd_file.log, fnd_message.get());
1050:
1051: END IF;
1052:
1045:
1046: fnd_message.set_name('IGS','IGS_HE_UT_NOT_RECALC');
1047: fnd_message.set_token('PERSON', l_person_number);
1048: fnd_message.set_token('CALCTYPE', p_tariff_calc_type);
1049: fnd_file.put_line(fnd_file.log, fnd_message.get());
1050:
1051: END IF;
1052:
1053: END IF; -- check for existence of parent record
1129: ,x_mode => 'R' );
1130:
1131: l_record_inserted := l_record_inserted + 1 ;
1132:
1133: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1130:
1131: l_record_inserted := l_record_inserted + 1 ;
1132:
1133: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1131: l_record_inserted := l_record_inserted + 1 ;
1132:
1133: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1139: fnd_file.put_line(fnd_file.log, fnd_message.get());
1132:
1133: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1139: fnd_file.put_line(fnd_file.log, fnd_message.get());
1140:
1133: Fnd_Message.Set_Name('IGS','IGS_HE_EXAM_LEVEL_TARIFF');
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1139: fnd_file.put_line(fnd_file.log, fnd_message.get());
1140:
1141: END LOOP; -- for distinct exam levels for a person
1134: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1139: fnd_file.put_line(fnd_file.log, fnd_message.get());
1140:
1141: END LOOP; -- for distinct exam levels for a person
1142:
1135: Fnd_Message.Set_Token('COURSE_CODE', '---');
1136: Fnd_Message.Set_Token('EXAM_LEVEL',prsn_exam_level_rec.Exam_level);
1137: Fnd_Message.Set_Token('SUBJECT_COUNT',l_qual_count);
1138: Fnd_Message.Set_Token('TARIFF_SCORE',l_tariff_score);
1139: fnd_file.put_line(fnd_file.log, fnd_message.get());
1140:
1141: END LOOP; -- for distinct exam levels for a person
1142:
1143: -- jchin bug 3678414 - display total tariff score
1140:
1141: END LOOP; -- for distinct exam levels for a person
1142:
1143: -- jchin bug 3678414 - display total tariff score
1144: Fnd_Message.Set_Name('IGS','IGS_HE_TOTAL_TARIFF');
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1141: END LOOP; -- for distinct exam levels for a person
1142:
1143: -- jchin bug 3678414 - display total tariff score
1144: Fnd_Message.Set_Name('IGS','IGS_HE_TOTAL_TARIFF');
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1149: fnd_file.put_line(fnd_file.log, fnd_message.get());
1142:
1143: -- jchin bug 3678414 - display total tariff score
1144: Fnd_Message.Set_Name('IGS','IGS_HE_TOTAL_TARIFF');
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1149: fnd_file.put_line(fnd_file.log, fnd_message.get());
1150:
1143: -- jchin bug 3678414 - display total tariff score
1144: Fnd_Message.Set_Name('IGS','IGS_HE_TOTAL_TARIFF');
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1149: fnd_file.put_line(fnd_file.log, fnd_message.get());
1150:
1151: END IF; -- l_calc_prsn_tariff = Y check. If no then bypass the above processing
1144: Fnd_Message.Set_Name('IGS','IGS_HE_TOTAL_TARIFF');
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1149: fnd_file.put_line(fnd_file.log, fnd_message.get());
1150:
1151: END IF; -- l_calc_prsn_tariff = Y check. If no then bypass the above processing
1152:
1145: Fnd_Message.Set_Token('PERSON_NUMBER',l_person_number);
1146: Fnd_Message.Set_Token('COURSE_CODE', '---');
1147: Fnd_Message.Set_Token('HIGH_QUAL', '---');
1148: Fnd_Message.Set_Token('TOTAL_TARIFF',l_total_tariff_score);
1149: fnd_file.put_line(fnd_file.log, fnd_message.get());
1150:
1151: END IF; -- l_calc_prsn_tariff = Y check. If no then bypass the above processing
1152:
1153: COMMIT;
1155: END LOOP; -- Loop of Cursor prsn_grp_cur i.e. list of all persons to be processed
1156:
1157: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1158:
1159: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
1160: fnd_message.set_token('REC_CNT',l_record_inserted);
1161: fnd_file.put_line(fnd_file.log, fnd_message.get());
1162:
1163: EXCEPTION
1156:
1157: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1158:
1159: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
1160: fnd_message.set_token('REC_CNT',l_record_inserted);
1161: fnd_file.put_line(fnd_file.log, fnd_message.get());
1162:
1163: EXCEPTION
1164: WHEN OTHERS THEN
1157: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1158:
1159: fnd_message.set_name('IGS','IGS_UC_INS_REC_COUNT');
1160: fnd_message.set_token('REC_CNT',l_record_inserted);
1161: fnd_file.put_line(fnd_file.log, fnd_message.get());
1162:
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: IF l_cursor_id IS NOT NULL THEN
1168:
1169: ROLLBACK;
1170:
1171: IF SQLCODE=-1436 THEN
1172: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1173: fnd_message.set_token('AWARD',NULL);
1174: ELSE
1175: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1176: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.internal_tariff_calc - '||SQLERRM);
1169: ROLLBACK;
1170:
1171: IF SQLCODE=-1436 THEN
1172: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1173: fnd_message.set_token('AWARD',NULL);
1174: ELSE
1175: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1176: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.internal_tariff_calc - '||SQLERRM);
1177: END IF;
1171: IF SQLCODE=-1436 THEN
1172: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1173: fnd_message.set_token('AWARD',NULL);
1174: ELSE
1175: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1176: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.internal_tariff_calc - '||SQLERRM);
1177: END IF;
1178:
1179: IF ( fnd_log.level_unexpected >= l_debug_level ) THEN
1172: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1173: fnd_message.set_token('AWARD',NULL);
1174: ELSE
1175: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1176: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.internal_tariff_calc - '||SQLERRM);
1177: END IF;
1178:
1179: IF ( fnd_log.level_unexpected >= l_debug_level ) THEN
1180: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
1179: IF ( fnd_log.level_unexpected >= l_debug_level ) THEN
1180: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
1181: END IF;
1182:
1183: fnd_message.retrieve (Errbuf);
1184: Retcode := 2 ;
1185: RETURN;
1186:
1187: END internal_tariff_calc;
1308: RETURN l_tariff_score;
1309:
1310: EXCEPTION
1311: WHEN OTHERS THEN
1312: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1313: Fnd_Message.Set_Token('NAME','IGS_HE_EXTRACT2_PKG.TOTAL_INTERNAL_TARIFF');
1314: IGS_GE_MSG_STACK.ADD;
1315: App_Exception.Raise_Exception;
1316:
1309:
1310: EXCEPTION
1311: WHEN OTHERS THEN
1312: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1313: Fnd_Message.Set_Token('NAME','IGS_HE_EXTRACT2_PKG.TOTAL_INTERNAL_TARIFF');
1314: IGS_GE_MSG_STACK.ADD;
1315: App_Exception.Raise_Exception;
1316:
1317: END total_internal_tariff;
1386:
1387: /* Checking whether the UK profile is enabled */
1388: IF NOT (igs_uc_utils.is_ucas_hesa_enabled) THEN
1389:
1390: fnd_message.set_name('IGS','IGS_UC_HE_NOT_ENABLED');
1391: fnd_file.put_line(fnd_file.log, fnd_message.get()); -- display to user also
1392: -- also log using the new logging framework
1393: IF (fnd_log.level_statement >= l_debug_level ) THEN
1394: fnd_log.string( fnd_log.level_statement, 'igs.plsql.hesa.ucas_tariff_calc.validation', fnd_message.get());
1387: /* Checking whether the UK profile is enabled */
1388: IF NOT (igs_uc_utils.is_ucas_hesa_enabled) THEN
1389:
1390: fnd_message.set_name('IGS','IGS_UC_HE_NOT_ENABLED');
1391: fnd_file.put_line(fnd_file.log, fnd_message.get()); -- display to user also
1392: -- also log using the new logging framework
1393: IF (fnd_log.level_statement >= l_debug_level ) THEN
1394: fnd_log.string( fnd_log.level_statement, 'igs.plsql.hesa.ucas_tariff_calc.validation', fnd_message.get());
1395: END IF;
1390: fnd_message.set_name('IGS','IGS_UC_HE_NOT_ENABLED');
1391: fnd_file.put_line(fnd_file.log, fnd_message.get()); -- display to user also
1392: -- also log using the new logging framework
1393: IF (fnd_log.level_statement >= l_debug_level ) THEN
1394: fnd_log.string( fnd_log.level_statement, 'igs.plsql.hesa.ucas_tariff_calc.validation', fnd_message.get());
1395: END IF;
1396: retcode := 3 ;
1397: RETURN ;
1398:
1407: IF p_calculate_tariff = 'Y' THEN
1408:
1409: IF get_calc_type_rec.external_calc_ind <> 'Y' THEN
1410: --Display log message that HESA Tariff calculation can only be done for External Flagged Calculation type.
1411: fnd_message.set_name('IGS','IGS_HE_UT_CALC_NOT_EXTERNAL');
1412: fnd_file.put_line(fnd_file.log, fnd_message.get());
1413: retcode := 3;
1414: RETURN;
1415: END IF;
1408:
1409: IF get_calc_type_rec.external_calc_ind <> 'Y' THEN
1410: --Display log message that HESA Tariff calculation can only be done for External Flagged Calculation type.
1411: fnd_message.set_name('IGS','IGS_HE_UT_CALC_NOT_EXTERNAL');
1412: fnd_file.put_line(fnd_file.log, fnd_message.get());
1413: retcode := 3;
1414: RETURN;
1415: END IF;
1416:
1417: END IF;
1418:
1419: -- If internal tariff calculation and start or end dates are not null then log an appropriate message and continue
1420: IF p_calculate_tariff = 'N' AND (p_start_date IS NOT NULL OR p_end_date IS NOT NULL) THEN
1421: fnd_message.set_name('IGS','IGS_HE_UT_DATE_NOT_RELEVANT');
1422: fnd_file.put_line(fnd_file.log, fnd_message.get());
1423: END IF;
1424:
1425: -- for Internal tariff calculation, parameters
1418:
1419: -- If internal tariff calculation and start or end dates are not null then log an appropriate message and continue
1420: IF p_calculate_tariff = 'N' AND (p_start_date IS NOT NULL OR p_end_date IS NOT NULL) THEN
1421: fnd_message.set_name('IGS','IGS_HE_UT_DATE_NOT_RELEVANT');
1422: fnd_file.put_line(fnd_file.log, fnd_message.get());
1423: END IF;
1424:
1425: -- for Internal tariff calculation, parameters
1426: -- p_course_cd, p_start_date, p_end_date, p_program_group and p_program_type
1464: WHEN OTHERS THEN
1465: ROLLBACK;
1466:
1467: IF SQLCODE=-1436 THEN
1468: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1469: fnd_message.set_token('AWARD',NULL);
1470: ELSE
1471: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1472: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.UCAS_TARIFF_CALC - '||SQLERRM);
1465: ROLLBACK;
1466:
1467: IF SQLCODE=-1436 THEN
1468: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1469: fnd_message.set_token('AWARD',NULL);
1470: ELSE
1471: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1472: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.UCAS_TARIFF_CALC - '||SQLERRM);
1473: END IF;
1467: IF SQLCODE=-1436 THEN
1468: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1469: fnd_message.set_token('AWARD',NULL);
1470: ELSE
1471: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1472: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.UCAS_TARIFF_CALC - '||SQLERRM);
1473: END IF;
1474:
1475: IF (fnd_log.level_unexpected >= l_debug_level) THEN
1468: fnd_message.set_name('IGS','IGS_HE_UT_AWD_CYCLIC_REL');
1469: fnd_message.set_token('AWARD',NULL);
1470: ELSE
1471: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1472: fnd_message.set_token('NAME','IGS_HE_UCAS_TARIFF_PKG.UCAS_TARIFF_CALC - '||SQLERRM);
1473: END IF;
1474:
1475: IF (fnd_log.level_unexpected >= l_debug_level) THEN
1476: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
1475: IF (fnd_log.level_unexpected >= l_debug_level) THEN
1476: fnd_log.message(fnd_log.level_unexpected, 'igs.plsql.hesa.ucas_tariff_calc.exception', FALSE);
1477: END IF;
1478:
1479: fnd_message.retrieve (Errbuf);
1480: Retcode := 2 ;
1481: igs_ge_msg_stack.conc_exception_hndl;
1482:
1483: END ucas_tariff_calc;