224: '|Parent .parent_count - ' ||l_parent_id_rec.parent_count);
225: END IF;
226: EXCEPTION
227: WHEN OTHERS THEN
228: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
229: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_BORROWER_PARENT_ID');
230: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
231: igs_ge_msg_stack.add;
232: app_exception.raise_exception;
225: END IF;
226: EXCEPTION
227: WHEN OTHERS THEN
228: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
229: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_BORROWER_PARENT_ID');
230: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
231: igs_ge_msg_stack.add;
232: app_exception.raise_exception;
233: END get_borrower_parent_id;
226: EXCEPTION
227: WHEN OTHERS THEN
228: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
229: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_BORROWER_PARENT_ID');
230: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
231: igs_ge_msg_stack.add;
232: app_exception.raise_exception;
233: END get_borrower_parent_id;
234:
431: );
432:
433: EXCEPTION
434: WHEN OTHERS THEN
435: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
436: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.POPULATE_COSIGNER_DATA');
437: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
438: igs_ge_msg_stack.add;
439: app_exception.raise_exception;
432:
433: EXCEPTION
434: WHEN OTHERS THEN
435: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
436: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.POPULATE_COSIGNER_DATA');
437: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
438: igs_ge_msg_stack.add;
439: app_exception.raise_exception;
440: END populate_cosigner_data;
433: EXCEPTION
434: WHEN OTHERS THEN
435: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
436: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.POPULATE_COSIGNER_DATA');
437: fnd_file.put_line(fnd_file.log,fnd_message.get || '-' || SQLERRM);
438: igs_ge_msg_stack.add;
439: app_exception.raise_exception;
440: END populate_cosigner_data;
441:
566:
567: IF (l_ret_status = 'E')
568: THEN
569: p_return_status := l_ret_status;
570: fnd_message.set_name('IGF', 'IGF_GR_NO_ATTEND_ENTITY_ID');
571: p_message := fnd_message.get;
572: RETURN;
573: END IF;
574:
567: IF (l_ret_status = 'E')
568: THEN
569: p_return_status := l_ret_status;
570: fnd_message.set_name('IGF', 'IGF_GR_NO_ATTEND_ENTITY_ID');
571: p_message := fnd_message.get;
572: RETURN;
573: END IF;
574:
575: IF ((l_ret_status = 'S') AND (p_atd_entity_id_txt IS NOT NULL))
586: END IF;
587:
588: IF (p_rep_entity_id_txt IS NULL)
589: THEN
590: fnd_message.set_name('IGF', 'IGF_GR_NOREP_ENTITY');
591: fnd_message.set_token('STU_NUMBER', igf_gr_gen.get_per_num(p_base_id));
592: p_message := fnd_message.get;
593: p_return_status := 'E';
594: RETURN;
587:
588: IF (p_rep_entity_id_txt IS NULL)
589: THEN
590: fnd_message.set_name('IGF', 'IGF_GR_NOREP_ENTITY');
591: fnd_message.set_token('STU_NUMBER', igf_gr_gen.get_per_num(p_base_id));
592: p_message := fnd_message.get;
593: p_return_status := 'E';
594: RETURN;
595: END IF;
588: IF (p_rep_entity_id_txt IS NULL)
589: THEN
590: fnd_message.set_name('IGF', 'IGF_GR_NOREP_ENTITY');
591: fnd_message.set_token('STU_NUMBER', igf_gr_gen.get_per_num(p_base_id));
592: p_message := fnd_message.get;
593: p_return_status := 'E';
594: RETURN;
595: END IF;
596:
596:
597: EXCEPTION
598:
599: WHEN OTHERS THEN
600: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
601: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_DL_ENTITY_ID');
602: fnd_file.put_line(fnd_file.log,SQLERRM);
603: igs_ge_msg_stack.add;
604: app_exception.raise_exception;
597: EXCEPTION
598:
599: WHEN OTHERS THEN
600: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
601: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_DL_ENTITY_ID');
602: fnd_file.put_line(fnd_file.log,SQLERRM);
603: igs_ge_msg_stack.add;
604: app_exception.raise_exception;
605:
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);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: RAISE SKIP_THIS_RECORD;
823: END IF;
824: lv_loan_number := LPAD(l_ssn,9,'0')
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);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: RAISE SKIP_THIS_RECORD;
823: END IF;
824: lv_loan_number := LPAD(l_ssn,9,'0')
825: || lv_loan_type
832: IF (cur_loan_num%FOUND) THEN
833: CLOSE cur_loan_num;
834:
835: log_message(award_rec.award_id);
836: fnd_message.set_name('IGF','IGF_SL_SSN_IN_USE');
837: fnd_message.set_token('VALUE',award_rec.ssn);
838: fnd_message.set_token('PER_NUM',award_rec.person_number);
839: fnd_file.put_line(fnd_file.log,fnd_message.get);
840: RAISE SKIP_THIS_RECORD;
833: CLOSE cur_loan_num;
834:
835: log_message(award_rec.award_id);
836: fnd_message.set_name('IGF','IGF_SL_SSN_IN_USE');
837: fnd_message.set_token('VALUE',award_rec.ssn);
838: fnd_message.set_token('PER_NUM',award_rec.person_number);
839: fnd_file.put_line(fnd_file.log,fnd_message.get);
840: RAISE SKIP_THIS_RECORD;
841: ELSE
834:
835: log_message(award_rec.award_id);
836: fnd_message.set_name('IGF','IGF_SL_SSN_IN_USE');
837: fnd_message.set_token('VALUE',award_rec.ssn);
838: fnd_message.set_token('PER_NUM',award_rec.person_number);
839: fnd_file.put_line(fnd_file.log,fnd_message.get);
840: RAISE SKIP_THIS_RECORD;
841: ELSE
842: CLOSE cur_loan_num;
835: log_message(award_rec.award_id);
836: fnd_message.set_name('IGF','IGF_SL_SSN_IN_USE');
837: fnd_message.set_token('VALUE',award_rec.ssn);
838: fnd_message.set_token('PER_NUM',award_rec.person_number);
839: fnd_file.put_line(fnd_file.log,fnd_message.get);
840: RAISE SKIP_THIS_RECORD;
841: ELSE
842: CLOSE cur_loan_num;
843: END IF;
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);
866: fnd_file.put_line(fnd_file.log, fnd_message.get);
867: RAISE SKIP_THIS_RECORD;
868: END IF;
869:
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);
866: fnd_file.put_line(fnd_file.log, fnd_message.get);
867: RAISE SKIP_THIS_RECORD;
868: END IF;
869:
870: -- Bug 3102439. To get SCH_NON_ED_BRC_ID.
878: -- school id assigned by the ED will always be of 8 characters in length
879: x_sch_non_ed_brc_cd := substr(x_ope_cd,7,2);
880: ELSE
881: log_message(award_rec.award_id);
882: fnd_message.set_name('IGF', x_msg_data);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: RAISE SKIP_THIS_RECORD;
885: END IF;
886: END IF;
879: x_sch_non_ed_brc_cd := substr(x_ope_cd,7,2);
880: ELSE
881: log_message(award_rec.award_id);
882: fnd_message.set_name('IGF', x_msg_data);
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
906: WHEN SKIP_THIS_RECORD THEN
907: RAISE;
908:
909: WHEN NO_DATA_FOUND THEN
910: fnd_message.set_name('IGF','IGF_GE_NO_DATA_FOUND');
911: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.RET_LOAN_NUMBER');
912: igs_ge_msg_stack.add;
913: app_exception.raise_exception;
914:
907: RAISE;
908:
909: WHEN NO_DATA_FOUND THEN
910: fnd_message.set_name('IGF','IGF_GE_NO_DATA_FOUND');
911: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.RET_LOAN_NUMBER');
912: igs_ge_msg_stack.add;
913: app_exception.raise_exception;
914:
915: WHEN OTHERS THEN
912: igs_ge_msg_stack.add;
913: app_exception.raise_exception;
914:
915: WHEN OTHERS THEN
916: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
917: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.RET_LOAN_NUMBER');
918: fnd_file.put_line(fnd_file.log,SQLERRM);
919: igs_ge_msg_stack.add;
920: app_exception.raise_exception;
913: app_exception.raise_exception;
914:
915: WHEN OTHERS THEN
916: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
917: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.RET_LOAN_NUMBER');
918: fnd_file.put_line(fnd_file.log,SQLERRM);
919: igs_ge_msg_stack.add;
920: app_exception.raise_exception;
921:
1033: END IF ;
1034:
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1038: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_DL_CL_STD_CODE');
1039: fnd_file.put_line(fnd_file.log,SQLERRM);
1040: igs_ge_msg_stack.add;
1041: app_exception.raise_exception;
1034:
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1038: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_DL_CL_STD_CODE');
1039: fnd_file.put_line(fnd_file.log,SQLERRM);
1040: igs_ge_msg_stack.add;
1041: app_exception.raise_exception;
1042: END get_dl_cl_std_code ;
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.
1133: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND');
1134: fnd_file.put_line(fnd_file.log,fnd_message.get);
1135: RAISE SKIP_THIS_RECORD;
1136: END IF;
1137: -- Call to get the dl_std_code
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.
1133: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND');
1134: fnd_file.put_line(fnd_file.log,fnd_message.get);
1135: RAISE SKIP_THIS_RECORD;
1136: END IF;
1137: -- Call to get the dl_std_code
1138: get_dl_cl_std_code ( p_base_id,
1142: lv_cl_std_code );
1143:
1144: IF lv_dl_std_code IS NULL THEN
1145: -- Bug 5078693 - bvisvana
1146: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND_GRDLVL');
1147: fnd_file.put_line(fnd_file.log,fnd_message.get);
1148: ELSE
1149: p_grd_dl := lv_dl_std_code ;
1150: END IF ;
1143:
1144: IF lv_dl_std_code IS NULL THEN
1145: -- Bug 5078693 - bvisvana
1146: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND_GRDLVL');
1147: fnd_file.put_line(fnd_file.log,fnd_message.get);
1148: ELSE
1149: p_grd_dl := lv_dl_std_code ;
1150: END IF ;
1151:
1150: END IF ;
1151:
1152: IF lv_cl_std_code IS NULL THEN
1153: -- Bug 5078693 - bvisvana
1154: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND_GRDLVL');
1155: fnd_file.put_line(fnd_file.log,fnd_message.get);
1156: ELSE
1157: p_grd_cl := lv_cl_std_code ;
1158: END IF ;
1151:
1152: IF lv_cl_std_code IS NULL THEN
1153: -- Bug 5078693 - bvisvana
1154: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND_GRDLVL');
1155: fnd_file.put_line(fnd_file.log,fnd_message.get);
1156: ELSE
1157: p_grd_cl := lv_cl_std_code ;
1158: END IF ;
1159:
1230: EXCEPTION
1231: WHEN SKIP_THIS_RECORD THEN
1232: RAISE SKIP_THIS_RECORD;
1233: WHEN OTHERS THEN
1234: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1235: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_FA_BASE_DETAILS');
1236: fnd_file.put_line(fnd_file.log,SQLERRM);
1237: igs_ge_msg_stack.add;
1238: app_exception.raise_exception;
1231: WHEN SKIP_THIS_RECORD THEN
1232: RAISE SKIP_THIS_RECORD;
1233: WHEN OTHERS THEN
1234: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1235: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.GET_FA_BASE_DETAILS');
1236: fnd_file.put_line(fnd_file.log,SQLERRM);
1237: igs_ge_msg_stack.add;
1238: app_exception.raise_exception;
1239: END get_fa_base_details;
1296: lv_message );
1297:
1298: -- bvisvana - Bug 5078761
1299: IF lv_message IS NOT NULL THEN
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
1297:
1298: -- bvisvana - Bug 5078761
1299: IF lv_message IS NOT NULL THEN
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);
1456: x_acad_end_date => lv_acad_end_date);
1457:
1458: EXCEPTION
1459: WHEN OTHERS THEN
1460: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1461: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.INSERT_LOR_DL_RECORDS');
1462: fnd_file.put_line(fnd_file.log,SQLERRM);
1463: igs_ge_msg_stack.add;
1464: app_exception.raise_exception;
1457:
1458: EXCEPTION
1459: WHEN OTHERS THEN
1460: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1461: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.INSERT_LOR_DL_RECORDS');
1462: fnd_file.put_line(fnd_file.log,SQLERRM);
1463: igs_ge_msg_stack.add;
1464: app_exception.raise_exception;
1465:
1651: CLOSE c_get_base_id;
1652: -- FACR116 Grant Loan Changes
1653: IF lv_cl_loan_type = 'AL' THEN
1654: IF award_rec.alt_loan_code IS NULL THEN
1655: fnd_message.set_name('IGF','IGF_AW_NO_ALT_LOAN_CODE');
1656: fnd_file.put_line(fnd_file.log,fnd_message.get);
1657: RAISE SKIP_THIS_RECORD;
1658: END IF;
1659: END IF;
1652: -- FACR116 Grant Loan Changes
1653: IF lv_cl_loan_type = 'AL' THEN
1654: IF award_rec.alt_loan_code IS NULL THEN
1655: fnd_message.set_name('IGF','IGF_AW_NO_ALT_LOAN_CODE');
1656: fnd_file.put_line(fnd_file.log,fnd_message.get);
1657: RAISE SKIP_THIS_RECORD;
1658: END IF;
1659: END IF;
1660:
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
1677: fnd_message.set_name('IGF','IGF_SL_NO_CL_SETUP');
1678: fnd_file.put_line(fnd_file.log,fnd_message.get);
1679: RAISE SKIP_THIS_RECORD;
1680: END IF;
1681:
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
1677: fnd_message.set_name('IGF','IGF_SL_NO_CL_SETUP');
1678: fnd_file.put_line(fnd_file.log,fnd_message.get);
1679: RAISE SKIP_THIS_RECORD;
1680: END IF;
1681:
1682: -- get the deatils from the igf_sl_cl_setup table for this relationship code and party id
1704: END IF;
1705: CLOSE c_tbh_loans_cur;
1706:
1707: IF (l_disb_count > 4 ) and (c_clsetup_rec.cl_version = 'RELEASE-4') THEN
1708: fnd_message.set_name('IGF','IGF_SL_CL4_NUM_OF_DISB_LOAN');
1709: fnd_message.set_token('LOAN_NUMBER',l_tbh_loans_rec.loan_number); -- bvisvana Bug # 4473160
1710: fnd_file.put_line(fnd_file.log,fnd_message.get);
1711: l_loan_status := 'N';
1712: END IF;
1705: CLOSE c_tbh_loans_cur;
1706:
1707: IF (l_disb_count > 4 ) and (c_clsetup_rec.cl_version = 'RELEASE-4') THEN
1708: fnd_message.set_name('IGF','IGF_SL_CL4_NUM_OF_DISB_LOAN');
1709: fnd_message.set_token('LOAN_NUMBER',l_tbh_loans_rec.loan_number); -- bvisvana Bug # 4473160
1710: fnd_file.put_line(fnd_file.log,fnd_message.get);
1711: l_loan_status := 'N';
1712: END IF;
1713:
1706:
1707: IF (l_disb_count > 4 ) and (c_clsetup_rec.cl_version = 'RELEASE-4') THEN
1708: fnd_message.set_name('IGF','IGF_SL_CL4_NUM_OF_DISB_LOAN');
1709: fnd_message.set_token('LOAN_NUMBER',l_tbh_loans_rec.loan_number); -- bvisvana Bug # 4473160
1710: fnd_file.put_line(fnd_file.log,fnd_message.get);
1711: l_loan_status := 'N';
1712: END IF;
1713:
1714: IF award_rec.fed_fund_code IN ('FLP', 'ALT') THEN -- Check if that is plus/alt loans and get parent id for the same.
1962: EXCEPTION
1963: WHEN SKIP_THIS_RECORD THEN
1964: RAISE SKIP_THIS_RECORD;
1965: WHEN NO_DATA_FOUND THEN
1966: fnd_message.set_name('IGF','IGF_GE_NO_DATA_FOUND');
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
1963: WHEN SKIP_THIS_RECORD THEN
1964: RAISE SKIP_THIS_RECORD;
1965: WHEN NO_DATA_FOUND THEN
1966: fnd_message.set_name('IGF','IGF_GE_NO_DATA_FOUND');
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
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);
1977: igs_ge_msg_stack.add;
1978: app_exception.raise_exception;
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);
1977: igs_ge_msg_stack.add;
1978: app_exception.raise_exception;
1979:
2161:
2162: --Bug# 5006583
2163: IF cur_loan_rec.loan_status = 'S' OR (cur_loan_rec.loan_chg_status = 'S') THEN
2164: lb_update := FALSE;
2165: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL_SENT');
2166: fnd_file.put_line(fnd_file.log,fnd_message.get);
2167: RAISE SKIP_THIS_RECORD;
2168:
2169: ELSIF (cur_loan_rec.loan_status IN ('C','T')) OR (cur_loan_rec.loan_chg_status IN ('C','T')) THEN
2162: --Bug# 5006583
2163: IF cur_loan_rec.loan_status = 'S' OR (cur_loan_rec.loan_chg_status = 'S') THEN
2164: lb_update := FALSE;
2165: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL_SENT');
2166: fnd_file.put_line(fnd_file.log,fnd_message.get);
2167: RAISE SKIP_THIS_RECORD;
2168:
2169: ELSIF (cur_loan_rec.loan_status IN ('C','T')) OR (cur_loan_rec.loan_chg_status IN ('C','T')) THEN
2170: lb_update := FALSE;
2168:
2169: ELSIF (cur_loan_rec.loan_status IN ('C','T')) OR (cur_loan_rec.loan_chg_status IN ('C','T')) THEN
2170: lb_update := FALSE;
2171: -- print updation failed mesg
2172: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL_CANCEL');
2173: fnd_file.put_line(fnd_file.log,fnd_message.get);
2174:
2175: RAISE SKIP_THIS_RECORD;
2176: ELSIF (cur_loan_rec.award_status IN ('CANCELLED')) THEN
2169: ELSIF (cur_loan_rec.loan_status IN ('C','T')) OR (cur_loan_rec.loan_chg_status IN ('C','T')) THEN
2170: lb_update := FALSE;
2171: -- print updation failed mesg
2172: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL_CANCEL');
2173: fnd_file.put_line(fnd_file.log,fnd_message.get);
2174:
2175: RAISE SKIP_THIS_RECORD;
2176: ELSIF (cur_loan_rec.award_status IN ('CANCELLED')) THEN
2177: lb_update := FALSE;
2174:
2175: RAISE SKIP_THIS_RECORD;
2176: ELSIF (cur_loan_rec.award_status IN ('CANCELLED')) THEN
2177: lb_update := FALSE;
2178: fnd_message.set_name('IGF','IGF_SL_CL_AW_CANC_SKIP_UPD'); -- print updation failed mesg Since Award is cancelled.
2179: fnd_file.put_line(fnd_file.log, fnd_message.get);
2180:
2181: RAISE SKIP_THIS_RECORD;
2182: ELSE
2175: RAISE SKIP_THIS_RECORD;
2176: ELSIF (cur_loan_rec.award_status IN ('CANCELLED')) THEN
2177: lb_update := FALSE;
2178: fnd_message.set_name('IGF','IGF_SL_CL_AW_CANC_SKIP_UPD'); -- print updation failed mesg Since Award is cancelled.
2179: fnd_file.put_line(fnd_file.log, fnd_message.get);
2180:
2181: RAISE SKIP_THIS_RECORD;
2182: ELSE
2183: lb_update := TRUE;
2216:
2217: IF l_tbh_rec.override_grade_level_code IS NULL THEN
2218: l_tbh_rec.grade_level_code := g_grade_level_cl;
2219: ELSE
2220: fnd_message.set_name('IGF','IGF_SL_CL_GRD_LEVEL_INVALID');
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: END IF;
2223: -- l_tbh_rec.enrollment_code := g_enrollment_code; -- updating enrollment_code with 'F'
2224: l_tbh_rec.cps_trans_num := gn_transaction_num;
2217: IF l_tbh_rec.override_grade_level_code IS NULL THEN
2218: l_tbh_rec.grade_level_code := g_grade_level_cl;
2219: ELSE
2220: fnd_message.set_name('IGF','IGF_SL_CL_GRD_LEVEL_INVALID');
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: END IF;
2223: -- l_tbh_rec.enrollment_code := g_enrollment_code; -- updating enrollment_code with 'F'
2224: l_tbh_rec.cps_trans_num := gn_transaction_num;
2225: l_tbh_rec.relationship_cd := l_rel_code;
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;
2314:
2315: -- print updation failed mesg
2316: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL');
2317: fnd_file.put_line(fnd_file.log,fnd_message.get);
2318:
2319: RAISE SKIP_THIS_RECORD;
2320: ELSE
2313: lb_update := FALSE;
2314:
2315: -- print updation failed mesg
2316: fnd_message.set_name('IGF','IGF_SL_LOAN_UPD_FAIL');
2317: fnd_file.put_line(fnd_file.log,fnd_message.get);
2318:
2319: RAISE SKIP_THIS_RECORD;
2320: ELSE
2321: lb_update := TRUE;
2324: l_tbh_loans_rec.loan_per_begin_date := get_loan_start_dt(cur_loan_rec.award_id);
2325: l_tbh_loans_rec.loan_per_end_date := get_loan_end_dt(cur_loan_rec.award_id);
2326:
2327: IF (l_tbh_loans_rec.loan_per_begin_date IS NULL OR l_tbh_loans_rec.loan_per_end_date IS NULL) THEN
2328: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2329: fnd_message.set_token('VALUE',cur_loan_rec.award_id);
2330: fnd_file.put_line(fnd_file.log, fnd_message.get);
2331: RAISE SKIP_THIS_RECORD;
2332: END IF;
2325: l_tbh_loans_rec.loan_per_end_date := get_loan_end_dt(cur_loan_rec.award_id);
2326:
2327: IF (l_tbh_loans_rec.loan_per_begin_date IS NULL OR l_tbh_loans_rec.loan_per_end_date IS NULL) THEN
2328: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2329: fnd_message.set_token('VALUE',cur_loan_rec.award_id);
2330: fnd_file.put_line(fnd_file.log, fnd_message.get);
2331: RAISE SKIP_THIS_RECORD;
2332: END IF;
2333:
2326:
2327: IF (l_tbh_loans_rec.loan_per_begin_date IS NULL OR l_tbh_loans_rec.loan_per_end_date IS NULL) THEN
2328: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2329: fnd_message.set_token('VALUE',cur_loan_rec.award_id);
2330: fnd_file.put_line(fnd_file.log, fnd_message.get);
2331: RAISE SKIP_THIS_RECORD;
2332: END IF;
2333:
2334: IF cur_loan_rec.loan_status = 'A' then
2565: END IF;
2566:
2567: EXCEPTION
2568: WHEN SKIP_THIS_RECORD THEN
2569: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2570: fnd_file.put_line(fnd_file.log, fnd_message.get);
2571: fnd_file.new_line(fnd_file.log,2);
2572: ROLLBACK TO IGFSL01B_SP2;
2573: WHEN OTHERS THEN
2566:
2567: EXCEPTION
2568: WHEN SKIP_THIS_RECORD THEN
2569: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2570: fnd_file.put_line(fnd_file.log, fnd_message.get);
2571: fnd_file.new_line(fnd_file.log,2);
2572: ROLLBACK TO IGFSL01B_SP2;
2573: WHEN OTHERS THEN
2574: -- Bug # 5079098 - This is to handle any exception thrown from other wrappers / proc / func / calls.
2573: WHEN OTHERS THEN
2574: -- Bug # 5079098 - This is to handle any exception thrown from other wrappers / proc / func / calls.
2575: -- Instead of throwing exception it needs to handled, skipped and continue with further loan records
2576: igs_ge_msg_stack.conc_exception_hndl;
2577: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2578: fnd_file.put_line(fnd_file.log, fnd_message.get);
2579: fnd_file.new_line(fnd_file.log,1);
2580: ROLLBACK TO IGFSL01B_SP2;
2581: END;
2574: -- Bug # 5079098 - This is to handle any exception thrown from other wrappers / proc / func / calls.
2575: -- Instead of throwing exception it needs to handled, skipped and continue with further loan records
2576: igs_ge_msg_stack.conc_exception_hndl;
2577: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2578: fnd_file.put_line(fnd_file.log, fnd_message.get);
2579: fnd_file.new_line(fnd_file.log,1);
2580: ROLLBACK TO IGFSL01B_SP2;
2581: END;
2582:
2583: END LOOP;
2584:
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;
2584:
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;
2683:
2684: IF award_rec_temp.fed_fund_code IN ('DLP','DLS','DLU') THEN
2685: IF NOT p_dl_setup THEN
2686: IF lb_print_dl THEN
2687: fnd_message.set_name('IGF','IGF_SL_NO_DL_SETUP');
2688: fnd_file.put_line(fnd_file.log,fnd_message.get);
2689: lb_print_dl := FALSE;
2690: END IF;
2691: RAISE SKIP_THIS_RECORD;
2684: IF award_rec_temp.fed_fund_code IN ('DLP','DLS','DLU') THEN
2685: IF NOT p_dl_setup THEN
2686: IF lb_print_dl THEN
2687: fnd_message.set_name('IGF','IGF_SL_NO_DL_SETUP');
2688: fnd_file.put_line(fnd_file.log,fnd_message.get);
2689: lb_print_dl := FALSE;
2690: END IF;
2691: RAISE SKIP_THIS_RECORD;
2692: END IF;
2694:
2695: IF award_rec_temp.fed_fund_code IN ('FLS','FLU','FLP','ALT','GPLUSFL') THEN
2696: IF NOT p_cl_setup THEN
2697: IF lb_print_cl THEN
2698: fnd_message.set_name('IGF','IGF_SL_NO_CL_SETUP');
2699: fnd_file.put_line(fnd_file.log,fnd_message.get);
2700: lb_print_cl := FALSE;
2701: END IF;
2702: RAISE SKIP_THIS_RECORD;
2695: IF award_rec_temp.fed_fund_code IN ('FLS','FLU','FLP','ALT','GPLUSFL') THEN
2696: IF NOT p_cl_setup THEN
2697: IF lb_print_cl THEN
2698: fnd_message.set_name('IGF','IGF_SL_NO_CL_SETUP');
2699: fnd_file.put_line(fnd_file.log,fnd_message.get);
2700: lb_print_cl := FALSE;
2701: END IF;
2702: RAISE SKIP_THIS_RECORD;
2703: END IF;
2725: IF l_msg_name IS NOT NULL THEN
2726: --Error has occured
2727: IF l_aid = 0 THEN
2728: -- Bug 5091652 - Treating no loan limit setup for class standings combinations as error
2729: fnd_message.set_name('IGF',l_msg_name);
2730: fnd_file.put_line(fnd_file.log,fnd_message.get);
2731: RAISE SKIP_THIS_RECORD;
2732: ELSIF l_aid < 0 THEN
2733: -- Get the warning messages for the corresponding error messages. Bug 5064622
2726: --Error has occured
2727: IF l_aid = 0 THEN
2728: -- Bug 5091652 - Treating no loan limit setup for class standings combinations as error
2729: fnd_message.set_name('IGF',l_msg_name);
2730: fnd_file.put_line(fnd_file.log,fnd_message.get);
2731: RAISE SKIP_THIS_RECORD;
2732: ELSIF l_aid < 0 THEN
2733: -- Get the warning messages for the corresponding error messages. Bug 5064622
2734: -- These messages are to be treated as warnings only.
2744: l_msg_name := 'IGF_AW_UNSUB_AGGR_LMT_WRN';
2745: ELSIF l_msg_name = 'IGF_AW_UNSUB_LMT_ERR' THEN
2746: l_msg_name := 'IGF_AW_UNSUB_LMT_WARN';
2747: END IF;
2748: fnd_message.set_name('IGF',l_msg_name);
2749: fnd_message.set_token('FUND_CODE',award_rec_temp.fed_fund_code);
2750: fnd_file.put_line(fnd_file.log,fnd_message.get);
2751: END IF ;
2752: -- RAISE SKIP_THIS_RECORD;
2745: ELSIF l_msg_name = 'IGF_AW_UNSUB_LMT_ERR' THEN
2746: l_msg_name := 'IGF_AW_UNSUB_LMT_WARN';
2747: END IF;
2748: fnd_message.set_name('IGF',l_msg_name);
2749: fnd_message.set_token('FUND_CODE',award_rec_temp.fed_fund_code);
2750: fnd_file.put_line(fnd_file.log,fnd_message.get);
2751: END IF ;
2752: -- RAISE SKIP_THIS_RECORD;
2753: END IF;
2746: l_msg_name := 'IGF_AW_UNSUB_LMT_WARN';
2747: END IF;
2748: fnd_message.set_name('IGF',l_msg_name);
2749: fnd_message.set_token('FUND_CODE',award_rec_temp.fed_fund_code);
2750: fnd_file.put_line(fnd_file.log,fnd_message.get);
2751: END IF ;
2752: -- RAISE SKIP_THIS_RECORD;
2753: END IF;
2754:
2796:
2797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2798: log_message(award_rec.award_id);
2799: IF gn_transaction_num IS NULL THEN
2800: fnd_message.set_name('IGF','IGF_AP_NOPAYMENT_ISIR');
2801: fnd_file.put_line(fnd_file.log, fnd_message.get);
2802: RAISE SKIP_THIS_RECORD;
2803: END IF;
2804:
2797: IF igf_sl_gen.chk_dl_fed_fund_code(award_rec.fed_fund_code) = 'TRUE' THEN
2798: log_message(award_rec.award_id);
2799: IF gn_transaction_num IS NULL THEN
2800: fnd_message.set_name('IGF','IGF_AP_NOPAYMENT_ISIR');
2801: fnd_file.put_line(fnd_file.log, fnd_message.get);
2802: RAISE SKIP_THIS_RECORD;
2803: END IF;
2804:
2805: -- MN 29-Dec-2004 Call get entity ids Only for Full Participant
2829: END IF;
2830: IF award_rec.fund_source = 'FEDERAL' AND lv_isir_present = FALSE THEN
2831: log_message(award_rec.award_id);
2832: -- Loan application record is not created as there is no Payment ISIR record for this federal loan
2833: fnd_message.set_name('IGF','IGF_SL_FEDLOAN_NO_FABASE');
2834: fnd_file.put_line(fnd_file.log, fnd_message.get);
2835: RAISE SKIP_THIS_RECORD;
2836:
2837: END IF;
2830: IF award_rec.fund_source = 'FEDERAL' AND lv_isir_present = FALSE THEN
2831: log_message(award_rec.award_id);
2832: -- Loan application record is not created as there is no Payment ISIR record for this federal loan
2833: fnd_message.set_name('IGF','IGF_SL_FEDLOAN_NO_FABASE');
2834: fnd_file.put_line(fnd_file.log, fnd_message.get);
2835: RAISE SKIP_THIS_RECORD;
2836:
2837: END IF;
2838:
2838:
2839: IF award_rec.SSN IS NULL THEN
2840:
2841: log_message(award_rec.award_id);
2842: fnd_message.set_name('IGF','IGF_SL_NO_SSN_PRESENT');
2843: fnd_message.set_token('VALUE',award_rec.person_number);
2844: fnd_file.put_line(fnd_file.log, fnd_message.get);
2845:
2846: RAISE SKIP_THIS_RECORD;
2839: IF award_rec.SSN IS NULL THEN
2840:
2841: log_message(award_rec.award_id);
2842: fnd_message.set_name('IGF','IGF_SL_NO_SSN_PRESENT');
2843: fnd_message.set_token('VALUE',award_rec.person_number);
2844: fnd_file.put_line(fnd_file.log, fnd_message.get);
2845:
2846: RAISE SKIP_THIS_RECORD;
2847: END IF;
2840:
2841: log_message(award_rec.award_id);
2842: fnd_message.set_name('IGF','IGF_SL_NO_SSN_PRESENT');
2843: fnd_message.set_token('VALUE',award_rec.person_number);
2844: fnd_file.put_line(fnd_file.log, fnd_message.get);
2845:
2846: RAISE SKIP_THIS_RECORD;
2847: END IF;
2848:
2852:
2853: IF (ld_loan_prd_start_dt IS NULL OR ld_loan_prd_end_dt IS NULL) THEN
2854:
2855: log_message(award_rec.award_id);
2856: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2857: fnd_message.set_token('VALUE',award_rec.award_id);
2858: fnd_file.put_line(fnd_file.log, fnd_message.get);
2859:
2860: RAISE SKIP_THIS_RECORD;
2853: IF (ld_loan_prd_start_dt IS NULL OR ld_loan_prd_end_dt IS NULL) THEN
2854:
2855: log_message(award_rec.award_id);
2856: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2857: fnd_message.set_token('VALUE',award_rec.award_id);
2858: fnd_file.put_line(fnd_file.log, fnd_message.get);
2859:
2860: RAISE SKIP_THIS_RECORD;
2861: END IF;
2854:
2855: log_message(award_rec.award_id);
2856: fnd_message.set_name('IGF','IGF_SL_ALL_CANCEL_DISB');
2857: fnd_message.set_token('VALUE',award_rec.award_id);
2858: fnd_file.put_line(fnd_file.log, fnd_message.get);
2859:
2860: RAISE SKIP_THIS_RECORD;
2861: END IF;
2862:
2874: -- Since same message applies , merging for all loan types
2875: IF g_grade_level_dl IS NULL OR g_grade_level_cl IS NULL THEN
2876: IF award_rec.fed_fund_code IN ('DLP','DLS','DLU','FLP','FLS','FLU','ALT','GPLUSFL') THEN
2877: l_mapping:='N';
2878: fnd_message.set_name('IGF','IGF_SL_NO_CLSTND');
2879: END IF;
2880: END IF;
2881:
2882: IF l_mapping ='N' THEN
2880: END IF;
2881:
2882: IF l_mapping ='N' THEN
2883: log_message(award_rec.award_id);
2884: fnd_message.set_token('PERSON_NUMBER',award_rec.person_number);
2885: fnd_message.set_token('AWARD_YEAR',award_rec.ci_alternate_code);
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: RAISE SKIP_THIS_RECORD;
2881:
2882: IF l_mapping ='N' THEN
2883: log_message(award_rec.award_id);
2884: fnd_message.set_token('PERSON_NUMBER',award_rec.person_number);
2885: fnd_message.set_token('AWARD_YEAR',award_rec.ci_alternate_code);
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: RAISE SKIP_THIS_RECORD;
2889:
2882: IF l_mapping ='N' THEN
2883: log_message(award_rec.award_id);
2884: fnd_message.set_token('PERSON_NUMBER',award_rec.person_number);
2885: fnd_message.set_token('AWARD_YEAR',award_rec.ci_alternate_code);
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: RAISE SKIP_THIS_RECORD;
2889:
2890: END IF;
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;
2913: END IF;
2914:
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;
2913: END IF;
2914:
2915: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2964:
2965: --Display Heading in OutputFile
2966: IF l_head <> 'Y' THEN
2967: fnd_file.put_line(fnd_file.output,RPAD(g_year,40,' ')||': '||award_rec.ci_alternate_code);
2968: fnd_message.set_name('IGF','IGF_SL_EFF_DATES');
2969: fnd_message.set_token('EFF_DATES',RPAD(award_rec.ci_start_dt,15,' ')||'-'||LPAD(award_rec.ci_end_dt,15,' '));
2970: fnd_file.put_line(fnd_file.output,fnd_message.get);
2971: fnd_file.new_line(fnd_file.output,1);
2972: l_head := 'Y';
2965: --Display Heading in OutputFile
2966: IF l_head <> 'Y' THEN
2967: fnd_file.put_line(fnd_file.output,RPAD(g_year,40,' ')||': '||award_rec.ci_alternate_code);
2968: fnd_message.set_name('IGF','IGF_SL_EFF_DATES');
2969: fnd_message.set_token('EFF_DATES',RPAD(award_rec.ci_start_dt,15,' ')||'-'||LPAD(award_rec.ci_end_dt,15,' '));
2970: fnd_file.put_line(fnd_file.output,fnd_message.get);
2971: fnd_file.new_line(fnd_file.output,1);
2972: l_head := 'Y';
2973: END IF;
2966: IF l_head <> 'Y' THEN
2967: fnd_file.put_line(fnd_file.output,RPAD(g_year,40,' ')||': '||award_rec.ci_alternate_code);
2968: fnd_message.set_name('IGF','IGF_SL_EFF_DATES');
2969: fnd_message.set_token('EFF_DATES',RPAD(award_rec.ci_start_dt,15,' ')||'-'||LPAD(award_rec.ci_end_dt,15,' '));
2970: fnd_file.put_line(fnd_file.output,fnd_message.get);
2971: fnd_file.new_line(fnd_file.output,1);
2972: l_head := 'Y';
2973: END IF;
2974:
2986:
2987: EXCEPTION
2988:
2989: WHEN SKIP_THIS_RECORD THEN
2990: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2991: fnd_file.put_line(fnd_file.log, fnd_message.get);
2992: fnd_file.new_line(fnd_file.log,2);
2993: ROLLBACK TO IGFSL01B_SP1;
2994: END;
2987: EXCEPTION
2988:
2989: WHEN SKIP_THIS_RECORD THEN
2990: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2991: fnd_file.put_line(fnd_file.log, fnd_message.get);
2992: fnd_file.new_line(fnd_file.log,2);
2993: ROLLBACK TO IGFSL01B_SP1;
2994: END;
2995:
2999: -- Display appropriate message if Loans records are created
3000:
3001: IF l_found_loans ='Y' THEN
3002: --Loan Application Records created
3003: fnd_message.set_name('IGF','IGF_SL_LOANS_CREATED');
3004: fnd_file.put_line(fnd_file.log,fnd_message.get);
3005: fnd_file.new_line(fnd_file.log,2);
3006: ELSIF l_found_loans ='N' THEN
3007: --Loan Application not created
3000:
3001: IF l_found_loans ='Y' THEN
3002: --Loan Application Records created
3003: fnd_message.set_name('IGF','IGF_SL_LOANS_CREATED');
3004: fnd_file.put_line(fnd_file.log,fnd_message.get);
3005: fnd_file.new_line(fnd_file.log,2);
3006: ELSIF l_found_loans ='N' THEN
3007: --Loan Application not created
3008: fnd_message.set_name('IGF','IGF_SL_NO_LOANS');
3004: fnd_file.put_line(fnd_file.log,fnd_message.get);
3005: fnd_file.new_line(fnd_file.log,2);
3006: ELSIF l_found_loans ='N' THEN
3007: --Loan Application not created
3008: fnd_message.set_name('IGF','IGF_SL_NO_LOANS');
3009: fnd_file.put_line(fnd_file.log,fnd_message.get);
3010: fnd_file.new_line(fnd_file.log,2);
3011: END IF;
3012:
3005: fnd_file.new_line(fnd_file.log,2);
3006: ELSIF l_found_loans ='N' THEN
3007: --Loan Application not created
3008: fnd_message.set_name('IGF','IGF_SL_NO_LOANS');
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
3016:
3017: EXCEPTION
3018:
3019: WHEN OTHERS THEN
3020: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3021: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.create_loan_records');
3022: fnd_file.put_line(fnd_file.log,SQLERRM);
3023: igs_ge_msg_stack.add;
3024: app_exception.raise_exception;
3017: EXCEPTION
3018:
3019: WHEN OTHERS THEN
3020: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
3021: fnd_message.set_token('NAME','IGF_SL_LAR_CREATION.create_loan_records');
3022: fnd_file.put_line(fnd_file.log,SQLERRM);
3023: igs_ge_msg_stack.add;
3024: app_exception.raise_exception;
3025:
3074: END IF;
3075:
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;
3075:
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;
3296: OPEN cur_alternate_code;
3297: FETCH cur_alternate_code INTO g_alternate_code,g_start_date,g_end_date;
3298: IF cur_alternate_code%NOTFOUND THEN
3299: CLOSE cur_alternate_code;
3300: fnd_message.set_name('IGF','IGF_SL_NO_CALENDAR');
3301: igs_ge_msg_stack.add;
3302: fnd_file.put_line(fnd_file.log,fnd_message.get);
3303:
3304: RAISE NO_DATA_FOUND;
3298: IF cur_alternate_code%NOTFOUND THEN
3299: CLOSE cur_alternate_code;
3300: fnd_message.set_name('IGF','IGF_SL_NO_CALENDAR');
3301: igs_ge_msg_stack.add;
3302: fnd_file.put_line(fnd_file.log,fnd_message.get);
3303:
3304: RAISE NO_DATA_FOUND;
3305: END IF;
3306: CLOSE cur_alternate_code;
3344: OPEN cur_check_fund_award(p_base_id, p_award_id, p_fund_id,p_ci_cal_type,p_ci_sequence_number);
3345: FETCH cur_check_fund_award INTO check_fund_award_rec;
3346: IF cur_check_fund_award%NOTFOUND THEN
3347: CLOSE cur_check_fund_award;
3348: fnd_message.set_name ('IGF','IGF_SL_NO_LOAN_AWARDS');
3349: fnd_file.put_line(fnd_file.log, fnd_message.get);
3350: fnd_file.new_line(fnd_file.log, 1);
3351: RETURN;
3352: ELSE
3345: FETCH cur_check_fund_award INTO check_fund_award_rec;
3346: IF cur_check_fund_award%NOTFOUND THEN
3347: CLOSE cur_check_fund_award;
3348: fnd_message.set_name ('IGF','IGF_SL_NO_LOAN_AWARDS');
3349: fnd_file.put_line(fnd_file.log, fnd_message.get);
3350: fnd_file.new_line(fnd_file.log, 1);
3351: RETURN;
3352: ELSE
3353: CLOSE cur_check_fund_award;
3385: IF p_base_id IS NOT NULL AND
3386: ( igf_gr_gen.get_per_num(p_base_id) IS NULL OR
3387: NOT check_fa_rec(p_base_id, p_ci_cal_type, p_ci_sequence_number))
3388: THEN
3389: fnd_message.set_name('IGF','IGF_SP_NO_FA_BASE_REC');
3390: fnd_file.put_line(fnd_file.log, fnd_message.get);
3391: fnd_file.new_line(fnd_file.log, 1);
3392: RETURN;
3393: END IF;
3386: ( igf_gr_gen.get_per_num(p_base_id) IS NULL OR
3387: NOT check_fa_rec(p_base_id, p_ci_cal_type, p_ci_sequence_number))
3388: THEN
3389: fnd_message.set_name('IGF','IGF_SP_NO_FA_BASE_REC');
3390: fnd_file.put_line(fnd_file.log, fnd_message.get);
3391: fnd_file.new_line(fnd_file.log, 1);
3392: RETURN;
3393: END IF;
3394: -- FA134
3396: OPEN cur_chk_pidgroup ( p_dyn_pid_grp);
3397: FETCH cur_chk_pidgroup INTO chk_pidgroup_rec;
3398: CLOSE cur_chk_pidgroup;
3399: IF chk_pidgroup_rec.group_id IS NULL THEN
3400: fnd_message.set_name('IGF','IGF_SL_COD_PERSID_GRP_INV');
3401: fnd_file.put_line(fnd_file.log, fnd_message.get);
3402: fnd_file.new_line(fnd_file.log, 1);
3403: RETURN;
3404: END IF;
3397: FETCH cur_chk_pidgroup INTO chk_pidgroup_rec;
3398: CLOSE cur_chk_pidgroup;
3399: IF chk_pidgroup_rec.group_id IS NULL THEN
3400: fnd_message.set_name('IGF','IGF_SL_COD_PERSID_GRP_INV');
3401: fnd_file.put_line(fnd_file.log, fnd_message.get);
3402: fnd_file.new_line(fnd_file.log, 1);
3403: RETURN;
3404: END IF;
3405: END IF;
3405: END IF;
3406: -- FA134
3407:
3408: IF p_dyn_pid_grp IS NOT NULL AND p_base_id IS NOT NULL THEN
3409: fnd_message.set_name('IGF','IGF_SL_COD_INV_PARAM');
3410: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3411: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_NUMBER'));
3412: fnd_file.put_line(fnd_file.log, fnd_message.get);
3413: fnd_file.new_line(fnd_file.log, 1);
3406: -- FA134
3407:
3408: IF p_dyn_pid_grp IS NOT NULL AND p_base_id IS NOT NULL THEN
3409: fnd_message.set_name('IGF','IGF_SL_COD_INV_PARAM');
3410: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3411: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_NUMBER'));
3412: fnd_file.put_line(fnd_file.log, fnd_message.get);
3413: fnd_file.new_line(fnd_file.log, 1);
3414: RETURN;
3407:
3408: IF p_dyn_pid_grp IS NOT NULL AND p_base_id IS NOT NULL THEN
3409: fnd_message.set_name('IGF','IGF_SL_COD_INV_PARAM');
3410: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3411: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_NUMBER'));
3412: fnd_file.put_line(fnd_file.log, fnd_message.get);
3413: fnd_file.new_line(fnd_file.log, 1);
3414: RETURN;
3415: END IF;
3408: IF p_dyn_pid_grp IS NOT NULL AND p_base_id IS NOT NULL THEN
3409: fnd_message.set_name('IGF','IGF_SL_COD_INV_PARAM');
3410: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3411: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_NUMBER'));
3412: fnd_file.put_line(fnd_file.log, fnd_message.get);
3413: fnd_file.new_line(fnd_file.log, 1);
3414: RETURN;
3415: END IF;
3416:
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');
3423: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3424: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','LOAN_NUMBER'));
3425: fnd_file.put_line(fnd_file.log, fnd_message.get);
3426: fnd_file.new_line(fnd_file.log, 1);
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');
3423: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3424: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','LOAN_NUMBER'));
3425: fnd_file.put_line(fnd_file.log, fnd_message.get);
3426: fnd_file.new_line(fnd_file.log, 1);
3427: RETURN;
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');
3423: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3424: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','LOAN_NUMBER'));
3425: fnd_file.put_line(fnd_file.log, fnd_message.get);
3426: fnd_file.new_line(fnd_file.log, 1);
3427: RETURN;
3428: END IF;
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');
3423: fnd_message.set_token('PARAM1',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'));
3424: fnd_message.set_token('PARAM2',igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','LOAN_NUMBER'));
3425: fnd_file.put_line(fnd_file.log, fnd_message.get);
3426: fnd_file.new_line(fnd_file.log, 1);
3427: RETURN;
3428: END IF;
3429: -- FA134
3441: END IF;
3442:
3443: IF p_dyn_pid_grp IS NOT NULL THEN
3444:
3445: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3446: fnd_message.set_token('P_PER_GRP',get_grp_name(p_dyn_pid_grp));
3447: fnd_file.new_line(fnd_file.log, 1);
3448: fnd_file.put_line(fnd_file.log, fnd_message.get);
3449:
3442:
3443: IF p_dyn_pid_grp IS NOT NULL THEN
3444:
3445: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3446: fnd_message.set_token('P_PER_GRP',get_grp_name(p_dyn_pid_grp));
3447: fnd_file.new_line(fnd_file.log, 1);
3448: fnd_file.put_line(fnd_file.log, fnd_message.get);
3449:
3450: --Bug #5021084
3444:
3445: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3446: fnd_message.set_token('P_PER_GRP',get_grp_name(p_dyn_pid_grp));
3447: fnd_file.new_line(fnd_file.log, 1);
3448: fnd_file.put_line(fnd_file.log, fnd_message.get);
3449:
3450: --Bug #5021084
3451: l_list := igf_ap_ss_pkg.get_pid( p_dyn_pid_grp,lv_status,lv_group_type);
3452:
3464: END IF;
3465:
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;
3465:
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
3478: lv_person_number := NULL;
3479: lv_person_number := per_in_fa (l_person_id,p_ci_cal_type,p_ci_sequence_number,ln_base_id);
3480: IF lv_person_number IS NOT NULL THEN
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);
3479: lv_person_number := per_in_fa (l_person_id,p_ci_cal_type,p_ci_sequence_number,ln_base_id);
3480: IF lv_person_number IS NOT NULL THEN
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);
3480: IF lv_person_number IS NOT NULL THEN
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);
3491: IF NOT lb_record_exist THEN
3492: lb_record_exist := TRUE;
3493: END IF;
3494: ELSE -- log a message and skip this person, base id not found
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
3492: lb_record_exist := TRUE;
3493: END IF;
3494: ELSE -- log a message and skip this person, base id not found
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');
3493: END IF;
3494: ELSE -- log a message and skip this person, base id not found
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;
3494: ELSE -- log a message and skip this person, base id not found
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
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');
3505: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3506: END IF; -- person number not null
3507:
3508: FETCH cur_per_grp INTO l_person_id;
3501: END IF;
3502: END IF; -- base id not found
3503: ELSE
3504: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3505: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3506: END IF; -- person number not null
3507:
3508: FETCH cur_per_grp INTO l_person_id;
3509: EXIT WHEN cur_per_grp%NOTFOUND;
3509: EXIT WHEN cur_per_grp%NOTFOUND;
3510: END LOOP;
3511: IF NOT lb_record_exist THEN
3512: fnd_file.new_line(fnd_file.log, 1);
3513: fnd_message.set_name('IGF','IGF_SL_NO_LOAN_AWARDS');--
3514: fnd_file.put_line(fnd_file.log, fnd_message.get);
3515: fnd_file.new_line(fnd_file.log, 1);
3516: RETURN;
3517: END IF;
3510: END LOOP;
3511: IF NOT lb_record_exist THEN
3512: fnd_file.new_line(fnd_file.log, 1);
3513: fnd_message.set_name('IGF','IGF_SL_NO_LOAN_AWARDS');--
3514: fnd_file.put_line(fnd_file.log, fnd_message.get);
3515: fnd_file.new_line(fnd_file.log, 1);
3516: RETURN;
3517: END IF;
3518: CLOSE cur_per_grp;
3537: END IF;
3538:
3539: IF p_dyn_pid_grp IS NOT NULL THEN
3540:
3541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3542: fnd_message.set_token('P_PER_GRP',get_grp_name( p_dyn_pid_grp));
3543: fnd_file.new_line(fnd_file.log, 1);
3544: fnd_file.put_line(fnd_file.log, fnd_message.get);
3545:
3538:
3539: IF p_dyn_pid_grp IS NOT NULL THEN
3540:
3541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3542: fnd_message.set_token('P_PER_GRP',get_grp_name( p_dyn_pid_grp));
3543: fnd_file.new_line(fnd_file.log, 1);
3544: fnd_file.put_line(fnd_file.log, fnd_message.get);
3545:
3546: --Bug #5021084
3540:
3541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
3542: fnd_message.set_token('P_PER_GRP',get_grp_name( p_dyn_pid_grp));
3543: fnd_file.new_line(fnd_file.log, 1);
3544: fnd_file.put_line(fnd_file.log, fnd_message.get);
3545:
3546: --Bug #5021084
3547: l_list := NULL;
3548: lv_group_type := NULL;
3562: END IF;
3563:
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;
3563:
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
3576: lv_person_number := NULL;
3577: lv_person_number := per_in_fa (l_person_id,p_ci_cal_type,p_ci_sequence_number,ln_base_id);
3578: IF lv_person_number IS NOT NULL THEN
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);
3577: lv_person_number := per_in_fa (l_person_id,p_ci_cal_type,p_ci_sequence_number,ln_base_id);
3578: IF lv_person_number IS NOT NULL THEN
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);
3578: IF lv_person_number IS NOT NULL THEN
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);
3589: IF NOT lb_record_exist THEN
3590: lb_record_exist := TRUE;
3591: END IF;
3592: ELSE -- log a message and skip this person, base id not found
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
3590: lb_record_exist := TRUE;
3591: END IF;
3592: ELSE -- log a message and skip this person, base id not found
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');
3591: END IF;
3592: ELSE -- log a message and skip this person, base id not found
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;
3592: ELSE -- log a message and skip this person, base id not found
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
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');
3603: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3604: END IF; -- person number not null
3605:
3606: FETCH cur_per_grp INTO l_person_id;
3599: END IF;
3600: END IF; -- base id not found
3601: ELSE
3602: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3603: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3604: END IF; -- person number not null
3605:
3606: FETCH cur_per_grp INTO l_person_id;
3607: EXIT WHEN cur_per_grp%NOTFOUND;
3607: EXIT WHEN cur_per_grp%NOTFOUND;
3608: END LOOP;
3609: IF NOT lb_record_exist THEN
3610: fnd_file.new_line(fnd_file.log, 1);
3611: fnd_message.set_name('IGF','IGF_SL_NO_LOAN_AWARDS');--
3612: fnd_file.put_line(fnd_file.log, fnd_message.get);
3613: fnd_file.new_line(fnd_file.log, 1);
3614: RETURN;
3615: END IF;
3608: END LOOP;
3609: IF NOT lb_record_exist THEN
3610: fnd_file.new_line(fnd_file.log, 1);
3611: fnd_message.set_name('IGF','IGF_SL_NO_LOAN_AWARDS');--
3612: fnd_file.put_line(fnd_file.log, fnd_message.get);
3613: fnd_file.new_line(fnd_file.log, 1);
3614: RETURN;
3615: END IF;
3616: CLOSE cur_per_grp;
3628:
3629: WHEN OTHERS THEN
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;