215: -- after the IF condition since we need the student id for ALT loans (student = borrower) irrespective of parent count
216: -- For FLP and DLP only parent is needed and hence it only one parent, that is returned else NULL
217: p_student_person_id := l_parent_id_rec.student_id;
218: g_student_person_id := l_parent_id_rec.student_id; -- Bug # 4636920 - bvisvana
219: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
220: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_borrower_parent_id.debug',
221: 'p_loan_id - ' || p_loan_id ||
222: '|student_id - ' || l_parent_id_rec.student_id ||
223: '|p_parent_person_id - ' || p_parent_person_id ||
216: -- For FLP and DLP only parent is needed and hence it only one parent, that is returned else NULL
217: p_student_person_id := l_parent_id_rec.student_id;
218: g_student_person_id := l_parent_id_rec.student_id; -- Bug # 4636920 - bvisvana
219: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
220: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_borrower_parent_id.debug',
221: 'p_loan_id - ' || p_loan_id ||
222: '|student_id - ' || l_parent_id_rec.student_id ||
223: '|p_parent_person_id - ' || p_parent_person_id ||
224: '|Parent .parent_count - ' ||l_parent_id_rec.parent_count);
546:
547: p_atd_entity_id_txt := NULL;
548: p_rep_entity_id_txt := NULL;
549:
550: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
551: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_dl_entity_id.debug','Entry p_base_id, p_cal_type, p_seq_num ' || p_base_id || ' : ' || p_cal_type || ' : ' || p_seq_num);
552: END IF;
553:
554: -- Get attending Pell Id from Org Setup.
547: p_atd_entity_id_txt := NULL;
548: p_rep_entity_id_txt := NULL;
549:
550: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
551: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_dl_entity_id.debug','Entry p_base_id, p_cal_type, p_seq_num ' || p_base_id || ' : ' || p_cal_type || ' : ' || p_seq_num);
552: END IF;
553:
554: -- Get attending Pell Id from Org Setup.
555: igf_sl_gen.get_stu_fao_code(
559: x_return_status => l_ret_status,
560: x_msg_data => l_msg_data
561: );
562:
563: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
564: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_dl_entity_id.debug','after get fao code');
565: END IF;
566:
567: IF (l_ret_status = 'E')
560: x_msg_data => l_msg_data
561: );
562:
563: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
564: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.get_dl_entity_id.debug','after get fao code');
565: END IF;
566:
567: IF (l_ret_status = 'E')
568: THEN
789: loan_num_rec cur_loan_num%ROWTYPE;
790:
791: BEGIN
792:
793: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
794: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','Entry ret_loan_number');
795: END IF;
796:
797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
790:
791: BEGIN
792:
793: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
794: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','Entry ret_loan_number');
795: END IF;
796:
797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
798:
796:
797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
798:
799: -- Direct Loan's Loan Number
800: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
801: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','DL Loan Number Step 1');
802: END IF;
803:
804: -- Loan TYPE is S from DLS,P from DLP and U from DLU
797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
798:
799: -- Direct Loan's Loan Number
800: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
801: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','DL Loan Number Step 1');
802: END IF;
803:
804: -- Loan TYPE is S from DLS,P from DLP and U from DLU
805: lv_loan_type := SUBSTR(TRIM(award_rec.fed_fund_code),3,1);
811: l_ssn := igf_gr_gen.get_ssn_digits(award_rec.ssn);
812:
813: -- Bug 3102439. To get School ID for Direct Loan.
814: igf_sl_gen.get_stu_fao_code(p_base_id, 'DL_SCH_CD', x_dlsch_cd, x_return_status, x_msg_data);
815: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
816: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','after get DL SCHOOL CODE');
817: END IF;
818: IF (x_return_status = 'E') THEN
819: log_message(award_rec.award_id);
812:
813: -- Bug 3102439. To get School ID for Direct Loan.
814: igf_sl_gen.get_stu_fao_code(p_base_id, 'DL_SCH_CD', x_dlsch_cd, x_return_status, x_msg_data);
815: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
816: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','after get DL SCHOOL CODE');
817: END IF;
818: IF (x_return_status = 'E') THEN
819: log_message(award_rec.award_id);
820: fnd_message.set_name('IGF', x_msg_data);
845:
846: ELSIF igf_sl_gen.chk_cl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
847:
848: -- CommonLine Loan's Loan Number
849: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
850: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 1');
851: END IF;
852:
853: -- Range is 1 to 46655. So, RECYCLE option should be provided.
846: ELSIF igf_sl_gen.chk_cl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
847:
848: -- CommonLine Loan's Loan Number
849: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
850: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 1');
851: END IF;
852:
853: -- Range is 1 to 46655. So, RECYCLE option should be provided.
854: SELECT igf_sl_cl_loan_seq_s.NEXTVAL into lv_incr_seq FROM DUAL;
856: lv_incr_seq_char := igf_sl_gen.base10_to_base36(lv_incr_seq);
857:
858: -- Bug 3102439. To get OPE ID.
859: igf_sl_gen.get_stu_fao_code(p_base_id, 'OPE_ID_NUM', x_ope_cd, x_return_status, x_msg_data);
860: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
861: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 2 x_ope_cd ' || x_ope_cd);
862: END IF;
863: IF (x_return_status = 'E') THEN
864: log_message(award_rec.award_id);
857:
858: -- Bug 3102439. To get OPE ID.
859: igf_sl_gen.get_stu_fao_code(p_base_id, 'OPE_ID_NUM', x_ope_cd, x_return_status, x_msg_data);
860: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
861: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 2 x_ope_cd ' || x_ope_cd);
862: END IF;
863: IF (x_return_status = 'E') THEN
864: log_message(award_rec.award_id);
865: fnd_message.set_name('IGF', x_msg_data);
868: END IF;
869:
870: -- Bug 3102439. To get SCH_NON_ED_BRC_ID.
871: igf_sl_gen.get_stu_fao_code(p_base_id, 'SCH_NON_ED_BRC_ID', x_sch_non_ed_brc_cd, x_return_status, x_msg_data);
872: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
873: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 3 x_sch_non_ed_brc_cd ' || x_sch_non_ed_brc_cd ||' : x_msg_data ' || x_msg_data);
874: END IF;
875: IF (x_return_status = 'E') THEN
876: IF (x_msg_data = 'IGF_AP_SCH_NONED_NOTFND') THEN
869:
870: -- Bug 3102439. To get SCH_NON_ED_BRC_ID.
871: igf_sl_gen.get_stu_fao_code(p_base_id, 'SCH_NON_ED_BRC_ID', x_sch_non_ed_brc_cd, x_return_status, x_msg_data);
872: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
873: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','FFEL Loan Number Step 3 x_sch_non_ed_brc_cd ' || x_sch_non_ed_brc_cd ||' : x_msg_data ' || x_msg_data);
874: END IF;
875: IF (x_return_status = 'E') THEN
876: IF (x_msg_data = 'IGF_AP_SCH_NONED_NOTFND') THEN
877: -- construct source non ed branch id from the last two digits of the school id
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: RAISE SKIP_THIS_RECORD;
885: END IF;
886: END IF;
887: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
888: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','Construct Loan Number ');
889: END IF;
890:
891: lv_loan_number := LPAD(x_ope_cd, 6,'0')
884: RAISE SKIP_THIS_RECORD;
885: END IF;
886: END IF;
887: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
888: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug','Construct Loan Number ');
889: END IF;
890:
891: lv_loan_number := LPAD(x_ope_cd, 6,'0')
892: || LPAD(NVL(x_sch_non_ed_brc_cd,'0'),4,'0')
894: || LPAD(p_incr_date_code,3,'0')
895: || LPAD(lv_incr_seq_char,3,'0');
896: END IF;
897:
898: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
899: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug',' Loan Number = lv_loan_number ' || lv_loan_number);
900: END IF;
901:
902: RETURN lv_loan_number;
895: || LPAD(lv_incr_seq_char,3,'0');
896: END IF;
897:
898: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
899: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.ret_loan_number.debug',' Loan Number = lv_loan_number ' || lv_loan_number);
900: END IF;
901:
902: RETURN lv_loan_number;
903:
1114: CLOSE c_awd_yr;
1115:
1116: l_person_number := igf_gr_gen.get_per_num ( p_base_id);
1117: -- Call to get the class standing and program_type
1118: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1119: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.return_entities.debug','The values passed to igf_aw_packng_subfns.get_class_stnd base id :' || p_base_id);
1120: END IF;
1121:
1122: lv_class_standing := igf_aw_packng_subfns.get_class_stnd( p_base_id,
1115:
1116: l_person_number := igf_gr_gen.get_per_num ( p_base_id);
1117: -- Call to get the class standing and program_type
1118: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1119: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.return_entities.debug','The values passed to igf_aw_packng_subfns.get_class_stnd base id :' || p_base_id);
1120: END IF;
1121:
1122: lv_class_standing := igf_aw_packng_subfns.get_class_stnd( p_base_id,
1123: g_person_id,
1123: g_person_id,
1124: g_adplans_id,
1125: g_award_id,
1126: lv_program_type ) ;
1127: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1128: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.return_entities.debug','The class standing from igf_aw_packng_subfns.get_class_stnd :' || lv_class_standing);
1129: END IF;
1130:
1131: IF lv_class_standing IS NULL OR lv_program_type IS NULL THEN
1124: g_adplans_id,
1125: g_award_id,
1126: lv_program_type ) ;
1127: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1128: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.return_entities.debug','The class standing from igf_aw_packng_subfns.get_class_stnd :' || lv_class_standing);
1129: END IF;
1130:
1131: IF lv_class_standing IS NULL OR lv_program_type IS NULL THEN
1132: -- Bug # 5078693 - bvisvana - Message out that Class standing has to be defined.
1300: fnd_message.set_name(substr(lv_message,1,3),lv_message);
1301: fnd_file.put_line(fnd_file.log,fnd_message.get);
1302: END IF;
1303:
1304: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1305: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad Begin Date :' || lv_acad_begin_date);
1306: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad End Date :' || lv_acad_end_date);
1307: END IF;
1308:
1301: fnd_file.put_line(fnd_file.log,fnd_message.get);
1302: END IF;
1303:
1304: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1305: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad Begin Date :' || lv_acad_begin_date);
1306: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad End Date :' || lv_acad_end_date);
1307: END IF;
1308:
1309: IF igf_sl_gen.chk_dl_stafford(award_rec.fed_fund_code) = 'TRUE' THEN
1302: END IF;
1303:
1304: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1305: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad Begin Date :' || lv_acad_begin_date);
1306: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_dl_records.debug',' Acad End Date :' || lv_acad_end_date);
1307: END IF;
1308:
1309: IF igf_sl_gen.chk_dl_stafford(award_rec.fed_fund_code) = 'TRUE' THEN
1310: lv_orig_fee_perct := dl_setup_rec.orig_fee_perct_stafford;
1640: lv_cl_loan_type := 'AL';
1641: ELSIF award_rec.fed_fund_code = 'GPLUSFL' THEN
1642: lv_cl_loan_type := 'GB';
1643: END IF;
1644: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1645: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The fed_fund_code being used is :' || award_rec.fed_fund_code );
1646: END IF;
1647:
1648: -- l_get_base_id := NULL;
1641: ELSIF award_rec.fed_fund_code = 'GPLUSFL' THEN
1642: lv_cl_loan_type := 'GB';
1643: END IF;
1644: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1645: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The fed_fund_code being used is :' || award_rec.fed_fund_code );
1646: END IF;
1647:
1648: -- l_get_base_id := NULL;
1649: OPEN c_get_base_id(p_loan_id);
1660:
1661: l_rel_code := NULL;
1662: l_party_id := NULL;
1663:
1664: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1665: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The values passed to pick_setup base_id :' || l_get_base_id.base_id );
1666: END IF;
1667: -- this will return the current active FFELP setup for this person
1668: igf_sl_award.pick_setup(l_get_base_id.base_id,p_cal_type,p_sequence_number,l_rel_code,l_person_id,l_party_id,award_rec.alt_rel_code);
1661: l_rel_code := NULL;
1662: l_party_id := NULL;
1663:
1664: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1665: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The values passed to pick_setup base_id :' || l_get_base_id.base_id );
1666: END IF;
1667: -- this will return the current active FFELP setup for this person
1668: igf_sl_award.pick_setup(l_get_base_id.base_id,p_cal_type,p_sequence_number,l_rel_code,l_person_id,l_party_id,award_rec.alt_rel_code);
1669:
1667: -- this will return the current active FFELP setup for this person
1668: igf_sl_award.pick_setup(l_get_base_id.base_id,p_cal_type,p_sequence_number,l_rel_code,l_person_id,l_party_id,award_rec.alt_rel_code);
1669:
1670: -- log the messages in the logging framework
1671: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1672: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The values returned from pick setup RelCode :' || l_rel_code || ' The Party ID :' || l_party_id);
1673: END IF;
1674:
1675: -- if both the rel_code and party_id is null then raise the exception SKIP_THIS_RECORD
1668: igf_sl_award.pick_setup(l_get_base_id.base_id,p_cal_type,p_sequence_number,l_rel_code,l_person_id,l_party_id,award_rec.alt_rel_code);
1669:
1670: -- log the messages in the logging framework
1671: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1672: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','The values returned from pick setup RelCode :' || l_rel_code || ' The Party ID :' || l_party_id);
1673: END IF;
1674:
1675: -- if both the rel_code and party_id is null then raise the exception SKIP_THIS_RECORD
1676: IF l_rel_code IS NULL AND l_party_id IS NULL THEN
1779: l_b_alien_reg_num_txt := NULL;
1780: IF l_parent_person_id IS NOT NULL THEN
1781: OPEN citizenship_dtl_cur (l_parent_person_id); --get borrower citizenship status
1782: FETCH citizenship_dtl_cur INTO citizenship_dtl_rec;
1783: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1784: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','Borrower citizenship status is ' || citizenship_dtl_rec.restatus_code );
1785: END IF;
1786: IF citizenship_dtl_cur%FOUND THEN
1787: --get FA Citizenship Status Code
1780: IF l_parent_person_id IS NOT NULL THEN
1781: OPEN citizenship_dtl_cur (l_parent_person_id); --get borrower citizenship status
1782: FETCH citizenship_dtl_cur INTO citizenship_dtl_rec;
1783: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1784: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','Borrower citizenship status is ' || citizenship_dtl_rec.restatus_code );
1785: END IF;
1786: IF citizenship_dtl_cur%FOUND THEN
1787: --get FA Citizenship Status Code
1788: OPEN cur_fa_mapping (p_citizenship_status => citizenship_dtl_rec.restatus_code,
1789: p_cal_type => p_cal_type,
1790: p_sequence_number => p_sequence_number);
1791: FETCH cur_fa_mapping INTO l_cur_fa_rec;
1792: CLOSE cur_fa_mapping;
1793: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1794: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','Borrower Alein reg number is ' || l_cur_fa_rec.fa_citi_stat_code);
1795: END IF;
1796:
1797: IF NVL(l_cur_fa_rec.fa_citi_stat_code,'*') = '2' THEN
1790: p_sequence_number => p_sequence_number);
1791: FETCH cur_fa_mapping INTO l_cur_fa_rec;
1792: CLOSE cur_fa_mapping;
1793: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1794: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','Borrower Alein reg number is ' || l_cur_fa_rec.fa_citi_stat_code);
1795: END IF;
1796:
1797: IF NVL(l_cur_fa_rec.fa_citi_stat_code,'*') = '2' THEN
1798: igf_sl_gen.get_person_details(l_parent_person_id, alien_dtl_cur); --get Alein reg number
1942:
1943: --
1944: -- update award if fees information has changed
1945: --
1946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','before racalc fees');
1948: END IF;
1949:
1950: igf_sl_award.recalc_fees(
1943: --
1944: -- update award if fees information has changed
1945: --
1946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','before racalc fees');
1948: END IF;
1949:
1950: igf_sl_award.recalc_fees(
1951: p_award_id => l_get_base_id.award_id,
1953: p_rel_code => l_rel_code,
1954: p_sequence_number => p_sequence_number,
1955: p_cal_type => p_cal_type);
1956:
1957: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1958: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','after racalc fees');
1959: END IF;
1960:
1961:
1954: p_sequence_number => p_sequence_number,
1955: p_cal_type => p_cal_type);
1956:
1957: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1958: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.debug','after racalc fees');
1959: END IF;
1960:
1961:
1962: EXCEPTION
1967: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.INSERT_LOR_CL_RECORDS');
1968: igs_ge_msg_stack.add;
1969: app_exception.raise_exception;
1970: WHEN OTHERS THEN
1971: IF FND_LOG.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level THEN
1972: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.exception',SQLERRM);
1973: END IF;
1974: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1975: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.INSERT_LOR_CL_RECORDS');
1968: igs_ge_msg_stack.add;
1969: app_exception.raise_exception;
1970: WHEN OTHERS THEN
1971: IF FND_LOG.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level THEN
1972: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.insert_lor_cl_records.exception',SQLERRM);
1973: END IF;
1974: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1975: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.INSERT_LOR_CL_RECORDS');
1976: fnd_file.put_line(fnd_file.log,SQLERRM);
2121:
2122: get_fa_base_details(cur_loan_rec.base_id, g_s_default_status, g_grade_level_dl,g_grade_level_cl,
2123: g_enrollment_code, lv_isir_present, g_anticip_compl_date,gn_transaction_num,gv_unsub_elig_for_depnt);
2124:
2125: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2122: get_fa_base_details(cur_loan_rec.base_id, g_s_default_status, g_grade_level_dl,g_grade_level_cl,
2123: g_enrollment_code, lv_isir_present, g_anticip_compl_date,gn_transaction_num,gv_unsub_elig_for_depnt);
2124:
2125: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2123: g_enrollment_code, lv_isir_present, g_anticip_compl_date,gn_transaction_num,gv_unsub_elig_for_depnt);
2124:
2125: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2124:
2125: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2125: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2126: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'after call to get_fa_base_details');
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2134: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gv_unsub_elig_for_depnt= ' || gv_unsub_elig_for_depnt);
2127: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_s_default_status= ' || g_s_default_status);
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2134: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gv_unsub_elig_for_depnt= ' || gv_unsub_elig_for_depnt);
2135: END IF;
2128: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_dl= ' || g_grade_level_dl);
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2134: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gv_unsub_elig_for_depnt= ' || gv_unsub_elig_for_depnt);
2135: END IF;
2136:
2129: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_grade_level_cl= ' || g_grade_level_cl);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2134: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gv_unsub_elig_for_depnt= ' || gv_unsub_elig_for_depnt);
2135: END IF;
2136:
2137: OPEN c_tbh_cur(cur_loan_rec.loan_id);
2130: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_enrollment_code= ' || g_enrollment_code);
2131: --fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'lv_isir_present= ' || lv_isir_present);
2132: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'g_anticip_compl_date= ' || g_anticip_compl_date);
2133: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gn_transaction_num= ' || gn_transaction_num);
2134: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'gv_unsub_elig_for_depnt= ' || gv_unsub_elig_for_depnt);
2135: END IF;
2136:
2137: OPEN c_tbh_cur(cur_loan_rec.loan_id);
2138: FETCH c_tbh_cur INTO l_tbh_rec;
2149: RAISE NO_DATA_FOUND;
2150: END IF;
2151: CLOSE c_tbh_loans_cur;
2152:
2153: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2154: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'fed fund code is ' ||cur_loan_rec.fed_fund_code);
2155: END IF;
2156:
2157: IF cur_loan_rec.fed_fund_code in ('FLP','FLS','FLU','ALT','GPLUSFL') THEN
2150: END IF;
2151: CLOSE c_tbh_loans_cur;
2152:
2153: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2154: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'fed fund code is ' ||cur_loan_rec.fed_fund_code);
2155: END IF;
2156:
2157: IF cur_loan_rec.fed_fund_code in ('FLP','FLS','FLU','ALT','GPLUSFL') THEN
2158: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2154: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'fed fund code is ' ||cur_loan_rec.fed_fund_code);
2155: END IF;
2156:
2157: IF cur_loan_rec.fed_fund_code in ('FLP','FLS','FLU','ALT','GPLUSFL') THEN
2158: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2159: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'inside FFELP');
2160: END IF;
2161:
2162: --Bug# 5006583
2155: END IF;
2156:
2157: IF cur_loan_rec.fed_fund_code in ('FLP','FLS','FLU','ALT','GPLUSFL') THEN
2158: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2159: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'inside FFELP');
2160: END IF;
2161:
2162: --Bug# 5006583
2163: IF cur_loan_rec.loan_status = 'S' OR (cur_loan_rec.loan_chg_status = 'S') THEN
2239: IF cur_loan_rec.fed_fund_code IN ('FLP', 'ALT', 'GPLUSFL') THEN -- Check if that is plus/alt loans and get borrower id for the same if available.
2240: OPEN cur_borrower_id(cur_loan_rec.loan_id); --get borrower id
2241: FETCH cur_borrower_id INTO l_cur_borrower_rec;
2242: CLOSE cur_borrower_id;
2243: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2244: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower Id for the fed_fund_code is ' || l_cur_borrower_rec.p_person_id );
2245: END IF;
2246: l_tbh_rec.b_alien_reg_num_txt := NULL;
2247: IF l_cur_borrower_rec.p_person_id IS NOT NULL THEN
2240: OPEN cur_borrower_id(cur_loan_rec.loan_id); --get borrower id
2241: FETCH cur_borrower_id INTO l_cur_borrower_rec;
2242: CLOSE cur_borrower_id;
2243: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2244: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower Id for the fed_fund_code is ' || l_cur_borrower_rec.p_person_id );
2245: END IF;
2246: l_tbh_rec.b_alien_reg_num_txt := NULL;
2247: IF l_cur_borrower_rec.p_person_id IS NOT NULL THEN
2248: OPEN citizenship_dtl_cur (l_cur_borrower_rec.p_person_id); --get borrower citizenship status
2246: l_tbh_rec.b_alien_reg_num_txt := NULL;
2247: IF l_cur_borrower_rec.p_person_id IS NOT NULL THEN
2248: OPEN citizenship_dtl_cur (l_cur_borrower_rec.p_person_id); --get borrower citizenship status
2249: FETCH citizenship_dtl_cur INTO citizenship_dtl_rec;
2250: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2251: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower citizenship status is ' || citizenship_dtl_rec.restatus_code );
2252: END IF;
2253: IF citizenship_dtl_cur%FOUND THEN
2254:
2247: IF l_cur_borrower_rec.p_person_id IS NOT NULL THEN
2248: OPEN citizenship_dtl_cur (l_cur_borrower_rec.p_person_id); --get borrower citizenship status
2249: FETCH citizenship_dtl_cur INTO citizenship_dtl_rec;
2250: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2251: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower citizenship status is ' || citizenship_dtl_rec.restatus_code );
2252: END IF;
2253: IF citizenship_dtl_cur%FOUND THEN
2254:
2255: OPEN cur_fa_mapping (citizenship_dtl_rec.restatus_code, --get FA Citizenship Status Code
2256: p_ci_cal_type,
2257: p_ci_sequence_number);
2258: FETCH cur_fa_mapping INTO l_cur_fa_rec;
2259: CLOSE cur_fa_mapping;
2260: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2261: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower Alein reg number is ' || l_cur_fa_rec.fa_citi_stat_code);
2262: END IF;
2263: IF NVL(l_cur_fa_rec.fa_citi_stat_code,'*') = '2' THEN
2264: igf_sl_gen.get_person_details(l_cur_borrower_rec.p_person_id, alien_dtl_cur); --get Alein reg number
2257: p_ci_sequence_number);
2258: FETCH cur_fa_mapping INTO l_cur_fa_rec;
2259: CLOSE cur_fa_mapping;
2260: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2261: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Borrower Alein reg number is ' || l_cur_fa_rec.fa_citi_stat_code);
2262: END IF;
2263: IF NVL(l_cur_fa_rec.fa_citi_stat_code,'*') = '2' THEN
2264: igf_sl_gen.get_person_details(l_cur_borrower_rec.p_person_id, alien_dtl_cur); --get Alein reg number
2265: FETCH alien_dtl_cur INTO alien_dtl_rec;
2304: END IF;
2305: END IF;
2306:
2307: IF cur_loan_rec.fed_fund_code in ('DLP','DLS','DLU') THEN
2308: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2309: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'inside FFELP');
2310: END IF;
2311:
2312: IF (cur_loan_rec.loan_status IN ('S','C','T')) OR (cur_loan_rec.loan_chg_status IN ('S','C','T')) THEN
2305: END IF;
2306:
2307: IF cur_loan_rec.fed_fund_code in ('DLP','DLS','DLU') THEN
2308: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2309: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug', 'inside FFELP');
2310: END IF;
2311:
2312: IF (cur_loan_rec.loan_status IN ('S','C','T')) OR (cur_loan_rec.loan_chg_status IN ('S','C','T')) THEN
2313: lb_update := FALSE;
2368:
2369: -- Get Entity IDs
2370: get_dl_entity_id(cur_loan_rec.base_id, cur_loan_rec.ci_cal_type, cur_loan_rec.ci_sequence_number,
2371: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2372: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2373: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2374: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2376: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2369: -- Get Entity IDs
2370: get_dl_entity_id(cur_loan_rec.base_id, cur_loan_rec.ci_cal_type, cur_loan_rec.ci_sequence_number,
2371: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2372: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2373: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2374: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2376: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2377: END IF;
2370: get_dl_entity_id(cur_loan_rec.base_id, cur_loan_rec.ci_cal_type, cur_loan_rec.ci_sequence_number,
2371: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2372: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2373: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2374: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2376: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2377: END IF;
2378: IF gv_return_status = 'E' THEN
2371: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2372: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2373: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2374: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2376: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2377: END IF;
2378: IF gv_return_status = 'E' THEN
2379: log_message(cur_loan_rec.award_id);
2372: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2373: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2374: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2376: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2377: END IF;
2378: IF gv_return_status = 'E' THEN
2379: log_message(cur_loan_rec.award_id);
2380: fnd_file.put_line(fnd_file.log, gv_message);
2401: get_borrower_parent_id (
2402: p_loan_id => l_tbh_rec.loan_id,
2403: p_parent_person_id => l_parent_person_id,
2404: p_student_person_id => l_student_person_id);
2405: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2406: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_parent_person_id :' || l_parent_person_id);
2407: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_student_person_id :' || l_student_person_id);
2408: END IF;
2409: -- FA 161 CL4 Build , If person has more than one parent then check whether the person id present has 'Parent of' relationship
2402: p_loan_id => l_tbh_rec.loan_id,
2403: p_parent_person_id => l_parent_person_id,
2404: p_student_person_id => l_student_person_id);
2405: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2406: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_parent_person_id :' || l_parent_person_id);
2407: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_student_person_id :' || l_student_person_id);
2408: END IF;
2409: -- FA 161 CL4 Build , If person has more than one parent then check whether the person id present has 'Parent of' relationship
2410: IF l_parent_person_id IS NULL AND l_tbh_rec.p_person_id IS NOT NULL THEN
2403: p_parent_person_id => l_parent_person_id,
2404: p_student_person_id => l_student_person_id);
2405: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2406: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_parent_person_id :' || l_parent_person_id);
2407: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','The values returned from get_borrower_parent_id l_student_person_id :' || l_student_person_id);
2408: END IF;
2409: -- FA 161 CL4 Build , If person has more than one parent then check whether the person id present has 'Parent of' relationship
2410: IF l_parent_person_id IS NULL AND l_tbh_rec.p_person_id IS NOT NULL THEN
2411: OPEN get_parent_id_cur (l_tbh_rec.loan_id );
2411: OPEN get_parent_id_cur (l_tbh_rec.loan_id );
2412: FETCH get_parent_id_cur INTO get_parent_id_rec;
2413: IF get_parent_id_cur%FOUND THEN
2414: l_parent_person_id := l_tbh_rec.p_person_id;
2415: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2416: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Parent id :' || l_parent_person_id);
2417: END IF;
2418: END IF;
2419: CLOSE get_parent_id_cur;
2412: FETCH get_parent_id_cur INTO get_parent_id_rec;
2413: IF get_parent_id_cur%FOUND THEN
2414: l_parent_person_id := l_tbh_rec.p_person_id;
2415: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2416: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.update_loan_rec.debug','Parent id :' || l_parent_person_id);
2417: END IF;
2418: END IF;
2419: CLOSE get_parent_id_cur;
2420: END IF;
2585: EXCEPTION
2586: WHEN OTHERS THEN
2587: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2588: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.UPDATE_LOAN_REC');
2589: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
2590: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.update_loan_rec.exception','Exception:'||SQLERRM);
2591: END IF;
2592: igs_ge_msg_stack.add;
2593: app_exception.raise_exception;
2586: WHEN OTHERS THEN
2587: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2588: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.UPDATE_LOAN_REC');
2589: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
2590: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.update_loan_rec.exception','Exception:'||SQLERRM);
2591: END IF;
2592: igs_ge_msg_stack.add;
2593: app_exception.raise_exception;
2594:
2716: l_aid => l_aid,
2717: l_std_loan_tab => l_loan_tab,
2718: p_msg_name => l_msg_name
2719: );
2720: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2721: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from check_loan_limits l_aid :' || l_aid);
2722: END IF;
2723: -- If the returned l_aid is 0 with no message returned or l_aid is greater than 0 then
2724: -- the set up is fine otherwise show the corresponding error message in the log.
2717: l_std_loan_tab => l_loan_tab,
2718: p_msg_name => l_msg_name
2719: );
2720: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2721: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from check_loan_limits l_aid :' || l_aid);
2722: END IF;
2723: -- If the returned l_aid is 0 with no message returned or l_aid is greater than 0 then
2724: -- the set up is fine otherwise show the corresponding error message in the log.
2725: IF l_msg_name IS NOT NULL THEN
2770: gv_rep_entity_id_txt := NULL;
2771: gv_message := NULL;
2772: gv_return_status := NULL;
2773:
2774: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2775: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values passed to get_fabase_details Base_id :' || award_rec.base_id);
2776: END IF;
2777: -- Get the S_Default_status from NSLDS Matched Table, and
2778: -- also the Student Grade Level code and Enrollment Code
2771: gv_message := NULL;
2772: gv_return_status := NULL;
2773:
2774: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2775: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values passed to get_fabase_details Base_id :' || award_rec.base_id);
2776: END IF;
2777: -- Get the S_Default_status from NSLDS Matched Table, and
2778: -- also the Student Grade Level code and Enrollment Code
2779:
2780: get_fa_base_details(award_rec.base_id, g_s_default_status, g_grade_level_dl,g_grade_level_cl,
2781: g_enrollment_code, lv_isir_present, g_anticip_compl_date,gn_transaction_num,gv_unsub_elig_for_depnt);
2782:
2783:
2784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2781: g_enrollment_code, lv_isir_present, g_anticip_compl_date,gn_transaction_num,gv_unsub_elig_for_depnt);
2782:
2783:
2784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2782:
2783:
2784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2790: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details gn_transaction_num :' || gn_transaction_num);
2783:
2784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2790: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details gn_transaction_num :' || gn_transaction_num);
2791: END IF;
2784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2790: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details gn_transaction_num :' || gn_transaction_num);
2791: END IF;
2792:
2785: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Default Status :' || g_s_default_status);
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2790: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details gn_transaction_num :' || gn_transaction_num);
2791: END IF;
2792:
2793: -- If the Award is a Loan and has a Fund-Source of FEDERAL, then
2786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_cl :' || g_grade_level_cl);
2787: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Grade_level_dl :' || g_grade_level_dl);
2788: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details Enrollment Code :' || g_enrollment_code);
2789: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details anticip_compl_date :' || g_anticip_compl_date);
2790: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_fabase_details gn_transaction_num :' || gn_transaction_num);
2791: END IF;
2792:
2793: -- If the Award is a Loan and has a Fund-Source of FEDERAL, then
2794: -- Payment ISIR record should be present in the system for the Student.
2812: award_rec.ci_sequence_number,
2813: l_fund_type) THEN
2814: get_dl_entity_id(award_rec.base_id,award_rec.ci_cal_type,award_rec.ci_sequence_number,
2815: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2818: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2820: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2813: l_fund_type) THEN
2814: get_dl_entity_id(award_rec.base_id,award_rec.ci_cal_type,award_rec.ci_sequence_number,
2815: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2818: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2820: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2821: END IF;
2814: get_dl_entity_id(award_rec.base_id,award_rec.ci_cal_type,award_rec.ci_sequence_number,
2815: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2818: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2820: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2821: END IF;
2822: END IF;
2815: gv_atd_entity_id_txt,gv_rep_entity_id_txt,gv_message,gv_return_status);
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2818: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2820: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2821: END IF;
2822: END IF;
2823:
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_return_status :' || gv_return_status);
2818: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_message :' || gv_message);
2819: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_atd_entity_id_txt :' || gv_atd_entity_id_txt);
2820: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug','The values returned from get_dl_entity_id gv_rep_entity_id_txt :' || gv_rep_entity_id_txt);
2821: END IF;
2822: END IF;
2823:
2824: IF gv_return_status = 'E' THEN
2903: g_accepted_amt := award_rec.accepted_amt;
2904: gn_award_id := award_rec.award_id;
2905: -- bvisvana - Bug # 4575843 - Before creating the loan record check whether the award accepted amount is in whole numbers
2906: IF ((g_accepted_amt - TRUNC(g_accepted_amt)) <> 0) THEN
2907: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2908: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' g_accepted_amt is not a whole number');
2909: END IF;
2910: fnd_message.set_name('IGF','IGF_AW_ACCEPT_AMT_WHOLE_NUM');
2911: fnd_file.put_line(fnd_file.log, fnd_message.get);
2904: gn_award_id := award_rec.award_id;
2905: -- bvisvana - Bug # 4575843 - Before creating the loan record check whether the award accepted amount is in whole numbers
2906: IF ((g_accepted_amt - TRUNC(g_accepted_amt)) <> 0) THEN
2907: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2908: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' g_accepted_amt is not a whole number');
2909: END IF;
2910: fnd_message.set_name('IGF','IGF_AW_ACCEPT_AMT_WHOLE_NUM');
2911: fnd_file.put_line(fnd_file.log, fnd_message.get);
2912: RAISE SKIP_THIS_RECORD;
2911: fnd_file.put_line(fnd_file.log, fnd_message.get);
2912: RAISE SKIP_THIS_RECORD;
2913: END IF;
2914:
2915: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2916: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' gn_award_id ' || gn_award_id);
2917: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' g_accepted_amt : ' || g_accepted_amt);
2918: END IF;
2919:
2912: RAISE SKIP_THIS_RECORD;
2913: END IF;
2914:
2915: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2916: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' gn_award_id ' || gn_award_id);
2917: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' g_accepted_amt : ' || g_accepted_amt);
2918: END IF;
2919:
2920: -- Modified the call of the IGF_SL_LOANS_PKG.INSERT_ROW to include the
2913: END IF;
2914:
2915: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2916: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' gn_award_id ' || gn_award_id);
2917: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' g_accepted_amt : ' || g_accepted_amt);
2918: END IF;
2919:
2920: -- Modified the call of the IGF_SL_LOANS_PKG.INSERT_ROW to include the
2921: -- borrower determination code as part of Refunds DLD 2144600
2942: x_legacy_record_flag => NULL,
2943: x_external_loan_id_txt => NULL
2944: );
2945:
2946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' after insert of loan record ');
2948: END IF;
2949:
2950: -- Procedure call for Inserting Origination Records into IGF_SL_LOR
2943: x_external_loan_id_txt => NULL
2944: );
2945:
2946: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2947: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' after insert of loan record ');
2948: END IF;
2949:
2950: -- Procedure call for Inserting Origination Records into IGF_SL_LOR
2951:
2949:
2950: -- Procedure call for Inserting Origination Records into IGF_SL_LOR
2951:
2952: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' calling insert_lor_dl_records');
2955: END IF;
2956: insert_lor_dl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id);
2957:
2950: -- Procedure call for Inserting Origination Records into IGF_SL_LOR
2951:
2952: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2953: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2954: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' calling insert_lor_dl_records');
2955: END IF;
2956: insert_lor_dl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id);
2957:
2958: ELSIF igf_sl_gen.chk_cl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2955: END IF;
2956: insert_lor_dl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id);
2957:
2958: ELSIF igf_sl_gen.chk_cl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2959: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2960: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' calling insert_lor_cl_records ');
2961: END IF;
2962: insert_lor_cl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id, g_anticip_compl_date, g_grade_level_cl);
2963: END IF;
2956: insert_lor_dl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id);
2957:
2958: ELSIF igf_sl_gen.chk_cl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2959: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2960: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' calling insert_lor_cl_records ');
2961: END IF;
2962: insert_lor_cl_records(p_ci_cal_type, p_ci_sequence_number, ln_loan_id, g_anticip_compl_date, g_grade_level_cl);
2963: END IF;
2964:
3009: fnd_file.put_line(fnd_file.log,fnd_message.get);
3010: fnd_file.new_line(fnd_file.log,2);
3011: END IF;
3012:
3013: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3014: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' End of create_loan_records ');
3015: END IF;
3016:
3017: EXCEPTION
3010: fnd_file.new_line(fnd_file.log,2);
3011: END IF;
3012:
3013: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3014: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.insert_loan_records.debug',' End of create_loan_records ');
3015: END IF;
3016:
3017: EXCEPTION
3018:
3076: EXCEPTION
3077: WHEN OTHERS THEN
3078: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3079: fnd_message.set_token('NAME','IGF_SL_DL_GEN_XML.PER_IN_FA');
3080: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3081: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_dl_gen_xml.per_in_fa.exception','Exception:'||SQLERRM);
3082: END IF;
3083: igs_ge_msg_stack.add;
3084: app_exception.raise_exception;
3077: WHEN OTHERS THEN
3078: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3079: fnd_message.set_token('NAME','IGF_SL_DL_GEN_XML.PER_IN_FA');
3080: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3081: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_dl_gen_xml.per_in_fa.exception','Exception:'||SQLERRM);
3082: END IF;
3083: igs_ge_msg_stack.add;
3084: app_exception.raise_exception;
3085:
3267:
3268: BEGIN
3269:
3270: igf_aw_gen.set_org_id(NULL);
3271: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3272: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Start of main');
3273: END IF;
3274:
3275: retcode := 0;
3268: BEGIN
3269:
3270: igf_aw_gen.set_org_id(NULL);
3271: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3272: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Start of main');
3273: END IF;
3274:
3275: retcode := 0;
3276: l_msg_name := NULL;
3279: l_found_loans := 'N';
3280: l_head := 'N';
3281:
3282:
3283: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3284: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Main inti');
3285: END IF;
3286:
3287: --Splitting the Award Year Value to ci_cal_type and ci_sequence_number
3280: l_head := 'N';
3281:
3282:
3283: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3284: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Main inti');
3285: END IF;
3286:
3287: --Splitting the Award Year Value to ci_cal_type and ci_sequence_number
3288: p_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
3287: --Splitting the Award Year Value to ci_cal_type and ci_sequence_number
3288: p_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
3289: p_ci_sequence_number := TO_NUMBER(LTRIM(RTRIM(SUBSTR(p_award_year,11))));
3290:
3291: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3292: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','get award year cal type ' || p_ci_cal_type ||' seq num ' || p_ci_sequence_number);
3293: END IF;
3294:
3295: --Get the alternate code
3288: p_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
3289: p_ci_sequence_number := TO_NUMBER(LTRIM(RTRIM(SUBSTR(p_award_year,11))));
3290:
3291: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3292: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','get award year cal type ' || p_ci_cal_type ||' seq num ' || p_ci_sequence_number);
3293: END IF;
3294:
3295: --Get the alternate code
3296: OPEN cur_alternate_code;
3304: RAISE NO_DATA_FOUND;
3305: END IF;
3306: CLOSE cur_alternate_code;
3307:
3308: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3309: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','get award year alt code ' || g_alternate_code ||' awd start date ' || g_start_date || ' awd end date '|| g_end_date);
3310: END IF;
3311:
3312: --List of all Parameters:
3305: END IF;
3306: CLOSE cur_alternate_code;
3307:
3308: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3309: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','get award year alt code ' || g_alternate_code ||' awd start date ' || g_start_date || ' awd end date '|| g_end_date);
3310: END IF;
3311:
3312: --List of all Parameters:
3313: ln_rec_count := 0;
3318: EXIT WHEN cur_get_parameters%NOTFOUND;
3319: END LOOP;
3320: CLOSE cur_get_parameters;
3321:
3322: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3323: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','after getting parameter lkp desc');
3324: END IF;
3325:
3326: --Show the parameters passed -- print all parameters passed
3319: END LOOP;
3320: CLOSE cur_get_parameters;
3321:
3322: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3323: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','after getting parameter lkp desc');
3324: END IF;
3325:
3326: --Show the parameters passed -- print all parameters passed
3327: g_process_log := l_para_rec(8);
3359: OPEN cur_dl_setup;
3360: FETCH cur_dl_setup INTO dl_setup_rec;
3361: IF cur_dl_setup%NOTFOUND THEN
3362: lb_dl_setup := FALSE;
3363: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3364: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','direct loan setup not found');
3365: END IF;
3366: END IF;
3367: CLOSE cur_dl_setup;
3360: FETCH cur_dl_setup INTO dl_setup_rec;
3361: IF cur_dl_setup%NOTFOUND THEN
3362: lb_dl_setup := FALSE;
3363: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3364: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','direct loan setup not found');
3365: END IF;
3366: END IF;
3367: CLOSE cur_dl_setup;
3368:
3370: OPEN cur_cl_setup;
3371: FETCH cur_cl_setup INTO cl_setup_rec;
3372: IF cur_cl_setup%NOTFOUND THEN
3373: lb_cl_setup := FALSE;
3374: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','FFELP loan setup not found');
3376: END IF;
3377: END IF;
3378: CLOSE cur_cl_setup;
3371: FETCH cur_cl_setup INTO cl_setup_rec;
3372: IF cur_cl_setup%NOTFOUND THEN
3373: lb_cl_setup := FALSE;
3374: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3375: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','FFELP loan setup not found');
3376: END IF;
3377: END IF;
3378: CLOSE cur_cl_setup;
3379:
3413: fnd_file.new_line(fnd_file.log, 1);
3414: RETURN;
3415: END IF;
3416:
3417: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3418: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','base id and pgroup id check');
3419: END IF;
3420:
3421: IF p_dyn_pid_grp IS NOT NULL AND p_award_id IS NOT NULL THEN
3414: RETURN;
3415: END IF;
3416:
3417: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3418: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','base id and pgroup id check');
3419: END IF;
3420:
3421: IF p_dyn_pid_grp IS NOT NULL AND p_award_id IS NOT NULL THEN
3422: fnd_message.set_name('IGF','IGF_SL_COD_INV_PARAM');
3458: END IF;
3459:
3460: FETCH cur_per_grp INTO l_person_id;
3461:
3462: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3463: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Starting to process person group '|| p_dyn_pid_grp);
3464: END IF;
3465:
3466: IF cur_per_grp%NOTFOUND THEN
3459:
3460: FETCH cur_per_grp INTO l_person_id;
3461:
3462: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3463: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Starting to process person group '|| p_dyn_pid_grp);
3464: END IF;
3465:
3466: IF cur_per_grp%NOTFOUND THEN
3467: CLOSE cur_per_grp;
3466: IF cur_per_grp%NOTFOUND THEN
3467: CLOSE cur_per_grp;
3468: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3469: fnd_file.put_line(fnd_file.log,fnd_message.get);
3470: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3471: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','No persons in group '|| p_dyn_pid_grp);
3472: END IF;
3473: ELSE
3474: IF cur_per_grp%FOUND THEN -- Check if the person exists in FA.
3467: CLOSE cur_per_grp;
3468: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3469: fnd_file.put_line(fnd_file.log,fnd_message.get);
3470: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3471: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','No persons in group '|| p_dyn_pid_grp);
3472: END IF;
3473: ELSE
3474: IF cur_per_grp%FOUND THEN -- Check if the person exists in FA.
3475: lb_record_exist := FALSE;
3481: IF ln_base_id IS NOT NULL THEN
3482: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3483: fnd_message.set_token('STDNT',lv_person_number);
3484: fnd_file.put_line(fnd_file.log, fnd_message.get);
3485: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3486: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3487: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3488: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3489: END IF;
3482: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3483: fnd_message.set_token('STDNT',lv_person_number);
3484: fnd_file.put_line(fnd_file.log, fnd_message.get);
3485: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3486: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3487: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3488: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3489: END IF;
3490: create_loan_records(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number, lb_dl_setup, lb_cl_setup );
3483: fnd_message.set_token('STDNT',lv_person_number);
3484: fnd_file.put_line(fnd_file.log, fnd_message.get);
3485: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3486: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3487: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3488: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3489: END IF;
3490: create_loan_records(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number, lb_dl_setup, lb_cl_setup );
3491: IF NOT lb_record_exist THEN
3484: fnd_file.put_line(fnd_file.log, fnd_message.get);
3485: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3486: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3487: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3488: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3489: END IF;
3490: create_loan_records(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number, lb_dl_setup, lb_cl_setup );
3491: IF NOT lb_record_exist THEN
3492: lb_record_exist := TRUE;
3495: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3496: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3497: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(p_ci_cal_type,p_ci_sequence_number));
3498: fnd_file.put_line(fnd_file.log,fnd_message.get);
3499: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3500: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3501: END IF;
3502: END IF; -- base id not found
3503: ELSE
3496: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3497: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(p_ci_cal_type,p_ci_sequence_number));
3498: fnd_file.put_line(fnd_file.log,fnd_message.get);
3499: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3500: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3501: END IF;
3502: END IF; -- base id not found
3503: ELSE
3504: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3556: END IF;
3557:
3558: FETCH cur_per_grp INTO l_person_id;
3559:
3560: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3561: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Starting to process person group '|| p_dyn_pid_grp);
3562: END IF;
3563:
3564: IF cur_per_grp%NOTFOUND THEN
3557:
3558: FETCH cur_per_grp INTO l_person_id;
3559:
3560: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3561: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','Starting to process person group '|| p_dyn_pid_grp);
3562: END IF;
3563:
3564: IF cur_per_grp%NOTFOUND THEN
3565: CLOSE cur_per_grp;
3564: IF cur_per_grp%NOTFOUND THEN
3565: CLOSE cur_per_grp;
3566: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3567: fnd_file.put_line(fnd_file.log,fnd_message.get);
3568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3569: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','No persons in group '|| p_dyn_pid_grp);
3570: END IF;
3571: ELSE
3572: IF cur_per_grp%FOUND THEN -- Check if the person exists in FA.
3565: CLOSE cur_per_grp;
3566: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3567: fnd_file.put_line(fnd_file.log,fnd_message.get);
3568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3569: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','No persons in group '|| p_dyn_pid_grp);
3570: END IF;
3571: ELSE
3572: IF cur_per_grp%FOUND THEN -- Check if the person exists in FA.
3573: lb_record_exist := FALSE;
3579: IF ln_base_id IS NOT NULL THEN
3580: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3581: fnd_message.set_token('STDNT',lv_person_number);
3582: fnd_file.put_line(fnd_file.log, fnd_message.get);
3583: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3584: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3585: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3586: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3587: END IF;
3580: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3581: fnd_message.set_token('STDNT',lv_person_number);
3582: fnd_file.put_line(fnd_file.log, fnd_message.get);
3583: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3584: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3585: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3586: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3587: END IF;
3588: update_loan_rec(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number);
3581: fnd_message.set_token('STDNT',lv_person_number);
3582: fnd_file.put_line(fnd_file.log, fnd_message.get);
3583: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3584: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3585: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3586: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3587: END IF;
3588: update_loan_rec(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number);
3589: IF NOT lb_record_exist THEN
3582: fnd_file.put_line(fnd_file.log, fnd_message.get);
3583: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3584: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG base id ' || ln_base_id);
3585: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG lv_person_number ' || lv_person_number);
3586: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug','PIDG l_person_id ' || l_person_id);
3587: END IF;
3588: update_loan_rec(p_award_id, p_fund_id, ln_base_id,p_ci_cal_type, p_ci_sequence_number);
3589: IF NOT lb_record_exist THEN
3590: lb_record_exist := TRUE;
3593: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3594: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3595: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(p_ci_cal_type,p_ci_sequence_number));
3596: fnd_file.put_line(fnd_file.log,fnd_message.get);
3597: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3598: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3599: END IF;
3600: END IF; -- base id not found
3601: ELSE
3594: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3595: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(p_ci_cal_type,p_ci_sequence_number));
3596: fnd_file.put_line(fnd_file.log,fnd_message.get);
3597: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3598: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_lar_creation.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3599: END IF;
3600: END IF; -- base id not found
3601: ELSE
3602: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3630: ROLLBACK;
3631: retcode :=2;
3632: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
3633: fnd_file.put_line(fnd_file.log,SQLERRM);
3634: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3635: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.main.debug','SLQERRM ' || SQLERRM);
3636: END IF;
3637: igs_ge_msg_stack.conc_exception_hndl;
3638:
3631: retcode :=2;
3632: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
3633: fnd_file.put_line(fnd_file.log,SQLERRM);
3634: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
3635: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_lar_creation.main.debug','SLQERRM ' || SQLERRM);
3636: END IF;
3637: igs_ge_msg_stack.conc_exception_hndl;
3638:
3639: END insert_loan_records;