[Home] [Help]
270: WHEN OTHERS THEN
271: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
272: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_db_disb.log_parameters.exception','Exception:'||SQLERRM);
273: END IF;
274: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
275: fnd_message.set_token('NAME','IGF_DB_DISB.LOG_PARAMETERS');
276: igs_ge_msg_stack.add;
277:
278: END log_parameters;
271: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
272: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_db_disb.log_parameters.exception','Exception:'||SQLERRM);
273: END IF;
274: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
275: fnd_message.set_token('NAME','IGF_DB_DISB.LOG_PARAMETERS');
276: igs_ge_msg_stack.add;
277:
278: END log_parameters;
279:
352:
353:
354: EXCEPTION
355: WHEN OTHERS THEN
356: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
357: fnd_message.set_token('NAME','IGF_DB_DISB.GET_CUT_OFF_DT '||SQLERRM);
358: fnd_file.put_line(fnd_file.log,SQLERRM);
359: igs_ge_msg_stack.add;
360: app_exception.raise_exception;
353:
354: EXCEPTION
355: WHEN OTHERS THEN
356: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
357: fnd_message.set_token('NAME','IGF_DB_DISB.GET_CUT_OFF_DT '||SQLERRM);
358: fnd_file.put_line(fnd_file.log,SQLERRM);
359: igs_ge_msg_stack.add;
360: app_exception.raise_exception;
361:
397:
398:
399: EXCEPTION
400: WHEN OTHERS THEN
401: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
402: fnd_message.set_token('NAME','IGF_DB_DISB.GET_FUND_DESC ' ||SQLERRM);
403: fnd_file.put_line(fnd_file.log,SQLERRM);
404: igs_ge_msg_stack.add;
405: app_exception.raise_exception;
398:
399: EXCEPTION
400: WHEN OTHERS THEN
401: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
402: fnd_message.set_token('NAME','IGF_DB_DISB.GET_FUND_DESC ' ||SQLERRM);
403: fnd_file.put_line(fnd_file.log,SQLERRM);
404: igs_ge_msg_stack.add;
405: app_exception.raise_exception;
406:
463: END IF;
464:
465: EXCEPTION
466: WHEN OTHERS THEN
467: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
468: fnd_message.set_token('NAME','IGF_DB_DISB.PER_IN_FA '||SQLERRM);
469: fnd_file.put_line(fnd_file.log,SQLERRM);
470: igs_ge_msg_stack.add;
471: app_exception.raise_exception;
464:
465: EXCEPTION
466: WHEN OTHERS THEN
467: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
468: fnd_message.set_token('NAME','IGF_DB_DISB.PER_IN_FA '||SQLERRM);
469: fnd_file.put_line(fnd_file.log,SQLERRM);
470: igs_ge_msg_stack.add;
471: app_exception.raise_exception;
472:
617: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.create_actual.debug','disb_dtl_rec.disb_adj_amt:'||disb_dtl_rec.disb_adj_amt);
618: END IF;
619:
620: lv_rowid := NULL;
621: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT');
622: fnd_message.set_token('AWARD_ID',TO_CHAR(disb_dtl_rec.award_id));
623: fnd_message.set_token('DISB_NUM',TO_CHAR(disb_dtl_rec.disb_num));
624: fnd_file.put_line(fnd_file.log,RPAD(' ',28) ||fnd_message.get);
625: fnd_file.new_line(fnd_file.log,1);
618: END IF;
619:
620: lv_rowid := NULL;
621: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT');
622: fnd_message.set_token('AWARD_ID',TO_CHAR(disb_dtl_rec.award_id));
623: fnd_message.set_token('DISB_NUM',TO_CHAR(disb_dtl_rec.disb_num));
624: fnd_file.put_line(fnd_file.log,RPAD(' ',28) ||fnd_message.get);
625: fnd_file.new_line(fnd_file.log,1);
626:
619:
620: lv_rowid := NULL;
621: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT');
622: fnd_message.set_token('AWARD_ID',TO_CHAR(disb_dtl_rec.award_id));
623: fnd_message.set_token('DISB_NUM',TO_CHAR(disb_dtl_rec.disb_num));
624: fnd_file.put_line(fnd_file.log,RPAD(' ',28) ||fnd_message.get);
625: fnd_file.new_line(fnd_file.log,1);
626:
627: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
620: lv_rowid := NULL;
621: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT');
622: fnd_message.set_token('AWARD_ID',TO_CHAR(disb_dtl_rec.award_id));
623: fnd_message.set_token('DISB_NUM',TO_CHAR(disb_dtl_rec.disb_num));
624: fnd_file.put_line(fnd_file.log,RPAD(' ',28) ||fnd_message.get);
625: fnd_file.new_line(fnd_file.log,1);
626:
627: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
628: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.create_actual.debug','creating actual disbursment with disb_gross_amt '|| disb_dtl_rec.disb_gross_amt);
724: WHEN app_exception.record_lock_exception THEN
725: RAISE;
726:
727: WHEN OTHERS THEN
728: fnd_message.clear;
729:
730: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
731: fnd_message.set_token('NAME','IGF_DB_DISB.CREATE_ACTUAL '||SQLERRM);
732: fnd_file.put_line(fnd_file.log,SQLERRM);
726:
727: WHEN OTHERS THEN
728: fnd_message.clear;
729:
730: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
731: fnd_message.set_token('NAME','IGF_DB_DISB.CREATE_ACTUAL '||SQLERRM);
732: fnd_file.put_line(fnd_file.log,SQLERRM);
733: igs_ge_msg_stack.initialize;
734: igs_ge_msg_stack.add;
727: WHEN OTHERS THEN
728: fnd_message.clear;
729:
730: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
731: fnd_message.set_token('NAME','IGF_DB_DISB.CREATE_ACTUAL '||SQLERRM);
732: fnd_file.put_line(fnd_file.log,SQLERRM);
733: igs_ge_msg_stack.initialize;
734: igs_ge_msg_stack.add;
735: app_exception.raise_exception;
1122: WHEN app_exception.record_lock_exception THEN
1123: RAISE;
1124:
1125: WHEN ORIG_STATUS THEN
1126: fnd_message.set_name('IGF','IGF_AW_LOAN_SENT');
1127: fnd_file.put_line(fnd_file.log,RPAD(' ',26) ||fnd_message.get);
1128:
1129: WHEN OTHERS THEN
1130: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1123: RAISE;
1124:
1125: WHEN ORIG_STATUS THEN
1126: fnd_message.set_name('IGF','IGF_AW_LOAN_SENT');
1127: fnd_file.put_line(fnd_file.log,RPAD(' ',26) ||fnd_message.get);
1128:
1129: WHEN OTHERS THEN
1130: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1131: fnd_message.set_token('NAME','IGF_DB_DISB.REVERT_DISB '||SQLERRM);
1126: fnd_message.set_name('IGF','IGF_AW_LOAN_SENT');
1127: fnd_file.put_line(fnd_file.log,RPAD(' ',26) ||fnd_message.get);
1128:
1129: WHEN OTHERS THEN
1130: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1131: fnd_message.set_token('NAME','IGF_DB_DISB.REVERT_DISB '||SQLERRM);
1132: fnd_file.put_line(fnd_file.log,SQLERRM);
1133: igs_ge_msg_stack.add;
1134: app_exception.raise_exception;
1127: fnd_file.put_line(fnd_file.log,RPAD(' ',26) ||fnd_message.get);
1128:
1129: WHEN OTHERS THEN
1130: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1131: fnd_message.set_token('NAME','IGF_DB_DISB.REVERT_DISB '||SQLERRM);
1132: fnd_file.put_line(fnd_file.log,SQLERRM);
1133: igs_ge_msg_stack.add;
1134: app_exception.raise_exception;
1135:
1167: CLOSE cur_pays_prg;
1168:
1169: EXCEPTION
1170: WHEN OTHERS THEN
1171: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1172: fnd_message.set_token('NAME','IGF_DB_DISB.DELETE_PAYS '||SQLERRM);
1173: fnd_file.put_line(fnd_file.log,SQLERRM);
1174: igs_ge_msg_stack.add;
1175: app_exception.raise_exception;
1168:
1169: EXCEPTION
1170: WHEN OTHERS THEN
1171: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1172: fnd_message.set_token('NAME','IGF_DB_DISB.DELETE_PAYS '||SQLERRM);
1173: fnd_file.put_line(fnd_file.log,SQLERRM);
1174: igs_ge_msg_stack.add;
1175: app_exception.raise_exception;
1176:
1330: RETURN lb_result;
1331:
1332: EXCEPTION
1333: WHEN OTHERS THEN
1334: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1335: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_TODO_RESULT '||SQLERRM);
1336: fnd_file.put_line(fnd_file.log,SQLERRM);
1337: igs_ge_msg_stack.add;
1338: app_exception.raise_exception;
1331:
1332: EXCEPTION
1333: WHEN OTHERS THEN
1334: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1335: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_TODO_RESULT '||SQLERRM);
1336: fnd_file.put_line(fnd_file.log,SQLERRM);
1337: igs_ge_msg_stack.add;
1338: app_exception.raise_exception;
1339:
1460: END LOOP;
1461:
1462: EXCEPTION
1463: WHEN OTHERS THEN
1464: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1465: fnd_message.set_token('NAME','IGF_DB_DISB.INSERT_PAYS_PRG_UTS '||SQLERRM);
1466: fnd_file.put_line(fnd_file.log,SQLERRM);
1467: igs_ge_msg_stack.add;
1468: app_exception.raise_exception;
1461:
1462: EXCEPTION
1463: WHEN OTHERS THEN
1464: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1465: fnd_message.set_token('NAME','IGF_DB_DISB.INSERT_PAYS_PRG_UTS '||SQLERRM);
1466: fnd_file.put_line(fnd_file.log,SQLERRM);
1467: igs_ge_msg_stack.add;
1468: app_exception.raise_exception;
1469:
1552: END IF;
1553:
1554: EXCEPTION
1555: WHEN OTHERS THEN
1556: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1557: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_PAYS_PRG '||SQLERRM);
1558: fnd_file.put_line(fnd_file.log,SQLERRM);
1559: igs_ge_msg_stack.add;
1560: app_exception.raise_exception;
1553:
1554: EXCEPTION
1555: WHEN OTHERS THEN
1556: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1557: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_PAYS_PRG '||SQLERRM);
1558: fnd_file.put_line(fnd_file.log,SQLERRM);
1559: igs_ge_msg_stack.add;
1560: app_exception.raise_exception;
1561:
1642: END IF;
1643:
1644: EXCEPTION
1645: WHEN OTHERS THEN
1646: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1647: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_PAYS_UTS '||SQLERRM);
1648: fnd_file.put_line(fnd_file.log,SQLERRM);
1649: igs_ge_msg_stack.add;
1650: app_exception.raise_exception;
1643:
1644: EXCEPTION
1645: WHEN OTHERS THEN
1646: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1647: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_PAYS_UTS '||SQLERRM);
1648: fnd_file.put_line(fnd_file.log,SQLERRM);
1649: igs_ge_msg_stack.add;
1650: app_exception.raise_exception;
1651:
1708: END IF;
1709:
1710: EXCEPTION
1711: WHEN OTHERS THEN
1712: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1713: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_FED_ELIG '||SQLERRM);
1714: fnd_file.put_line(fnd_file.log,SQLERRM);
1715: igs_ge_msg_stack.add;
1716: app_exception.raise_exception;
1709:
1710: EXCEPTION
1711: WHEN OTHERS THEN
1712: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1713: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_FED_ELIG '||SQLERRM);
1714: fnd_file.put_line(fnd_file.log,SQLERRM);
1715: igs_ge_msg_stack.add;
1716: app_exception.raise_exception;
1717:
1829: END IF;
1830:
1831: EXCEPTION
1832: WHEN OTHERS THEN
1833: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1834: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_FCLASS_RESULT '||SQLERRM);
1835: fnd_file.put_line(fnd_file.log,SQLERRM);
1836: igs_ge_msg_stack.add;
1837: app_exception.raise_exception;
1830:
1831: EXCEPTION
1832: WHEN OTHERS THEN
1833: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1834: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_FCLASS_RESULT '||SQLERRM);
1835: fnd_file.put_line(fnd_file.log,SQLERRM);
1836: igs_ge_msg_stack.add;
1837: app_exception.raise_exception;
1838:
1896: l_fte);
1897:
1898: EXCEPTION
1899: WHEN OTHERS THEN
1900: p_result := fnd_message.get;
1901: RETURN FALSE;
1902: END;
1903:
1904: OPEN cur_get_rng(p_ld_cal_type,lv_key_att_type);
1920: END IF;
1921:
1922: EXCEPTION
1923: WHEN OTHERS THEN
1924: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1925: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_ATT_RESULT '||SQLERRM);
1926: fnd_file.put_line(fnd_file.log,SQLERRM);
1927: igs_ge_msg_stack.add;
1928: app_exception.raise_exception;
1921:
1922: EXCEPTION
1923: WHEN OTHERS THEN
1924: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1925: fnd_message.set_token('NAME','IGF_DB_DISB.CHK_ATT_RESULT '||SQLERRM);
1926: fnd_file.put_line(fnd_file.log,SQLERRM);
1927: igs_ge_msg_stack.add;
1928: app_exception.raise_exception;
1929:
2060: IF ln_old_fund = 0 OR
2061: (ln_old_fund <> ln_new_fund AND ln_old_fund > 1)
2062: THEN
2063: fnd_file.new_line(fnd_file.log,1);
2064: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN');
2065: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2066: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2067: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2068: END IF;
2061: (ln_old_fund <> ln_new_fund AND ln_old_fund > 1)
2062: THEN
2063: fnd_file.new_line(fnd_file.log,1);
2064: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN');
2065: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2066: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2067: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2068: END IF;
2069:
2062: THEN
2063: fnd_file.new_line(fnd_file.log,1);
2064: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN');
2065: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2066: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2067: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2068: END IF;
2069:
2070: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2063: fnd_file.new_line(fnd_file.log,1);
2064: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN');
2065: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2066: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2067: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2068: END IF;
2069:
2070: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2071: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_verf_enf.debug','ln_enfr_disb:'||ln_enfr_disb);
2072: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_verf_enf.debug','lv_fund_type:'||lv_fund_type);
2073: END IF;
2074:
2075: fnd_file.new_line(fnd_file.log,1);
2076: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2077: -- 'Processing disbursement for award
2078: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2079: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2080: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2074:
2075: fnd_file.new_line(fnd_file.log,1);
2076: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2077: -- 'Processing disbursement for award
2078: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2079: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2080: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2081: fnd_file.new_line(fnd_file.log,1);
2082: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2075: fnd_file.new_line(fnd_file.log,1);
2076: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2077: -- 'Processing disbursement for award
2078: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2079: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2080: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2081: fnd_file.new_line(fnd_file.log,1);
2082: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2083: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_verf_enf.debug','processing disb '||awd_disb_rec.disb_num||' of award '||awd_disb_rec.award_id);
2076: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2077: -- 'Processing disbursement for award
2078: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2079: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2080: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2081: fnd_file.new_line(fnd_file.log,1);
2082: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2083: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_verf_enf.debug','processing disb '||awd_disb_rec.disb_num||' of award '||awd_disb_rec.award_id);
2084: END IF;
2104: lb_pays_uts := chk_pays_uts( awd_disb_rec.fund_id,awd_disb_rec.base_id);
2105:
2106: IF lb_log_detail THEN
2107: IF NOT lb_pays_prg THEN
2108: fnd_message.set_name('IGF','IGF_DB_FAIL_PPRG');
2109: -- 'Disbursement failed Fund Pays Only Program check'
2110: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2111: END IF;
2112: IF NOT lb_pays_uts THEN
2106: IF lb_log_detail THEN
2107: IF NOT lb_pays_prg THEN
2108: fnd_message.set_name('IGF','IGF_DB_FAIL_PPRG');
2109: -- 'Disbursement failed Fund Pays Only Program check'
2110: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2111: END IF;
2112: IF NOT lb_pays_uts THEN
2113: fnd_message.set_name('IGF','IGF_DB_FAIL_PUNT');
2114: -- 'Disbursement failed Fund Pays Only Unit check'
2109: -- 'Disbursement failed Fund Pays Only Program check'
2110: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2111: END IF;
2112: IF NOT lb_pays_uts THEN
2113: fnd_message.set_name('IGF','IGF_DB_FAIL_PUNT');
2114: -- 'Disbursement failed Fund Pays Only Unit check'
2115: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2116: END IF;
2117: END IF;
2111: END IF;
2112: IF NOT lb_pays_uts THEN
2113: fnd_message.set_name('IGF','IGF_DB_FAIL_PUNT');
2114: -- 'Disbursement failed Fund Pays Only Unit check'
2115: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2116: END IF;
2117: END IF;
2118: END IF;
2119: --
2135: lb_fclass_result := chk_fclass_result(awd_disb_rec.base_id,awd_disb_rec.fund_id,
2136: awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number);
2137: IF lb_log_detail THEN
2138: IF NOT lb_fclass_result THEN
2139: fnd_message.set_name('IGF','IGF_DB_FAIL_FCLS');
2140: --Disbursement failed Pays Only Fee Class Check
2141: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2142: END IF;
2143: END IF;
2137: IF lb_log_detail THEN
2138: IF NOT lb_fclass_result THEN
2139: fnd_message.set_name('IGF','IGF_DB_FAIL_FCLS');
2140: --Disbursement failed Pays Only Fee Class Check
2141: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2142: END IF;
2143: END IF;
2144:
2145: END IF;
2161: END IF;
2162:
2163: IF NVL(ln_credit_pts,0) < NVL(awd_disb_rec.min_credit_pts,0) THEN
2164: lb_cp_result := FALSE;
2165: fnd_message.set_name('IGF','IGF_DB_FAIL_CRP');
2166: fnd_file.put_line(fnd_file.log,RPAD(' ',20) || fnd_message.get);
2167: END IF;
2168: END IF;
2169:
2162:
2163: IF NVL(ln_credit_pts,0) < NVL(awd_disb_rec.min_credit_pts,0) THEN
2164: lb_cp_result := FALSE;
2165: fnd_message.set_name('IGF','IGF_DB_FAIL_CRP');
2166: fnd_file.put_line(fnd_file.log,RPAD(' ',20) || fnd_message.get);
2167: END IF;
2168: END IF;
2169:
2170: --Attendance Type
2181: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_verf_enf.debug','awd_disb_rec.attendance_type_code:'||awd_disb_rec.attendance_type_code);
2182: END IF;
2183:
2184: IF NOT lb_att_result THEN
2185: fnd_message.set_name('IGF','IGF_DB_FAIL_ATT');
2186: IF p_message IS NOT NULL THEN
2187: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||p_message);
2188: END IF;
2189: --Disbursement failed Attendance Type Check
2186: IF p_message IS NOT NULL THEN
2187: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||p_message);
2188: END IF;
2189: --Disbursement failed Attendance Type Check
2190: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2191: END IF;
2192: END IF;
2193:
2194: IF lb_pays_prg AND
2203:
2204: get_adisb_rec.elig_status := 'V';
2205: get_adisb_rec.elig_status_date := TRUNC(SYSDATE);
2206:
2207: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_PASS');
2208: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2209: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2210: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2211:
2204: get_adisb_rec.elig_status := 'V';
2205: get_adisb_rec.elig_status_date := TRUNC(SYSDATE);
2206:
2207: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_PASS');
2208: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2209: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2210: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2211:
2212: ln_enfr_disb_p := 1 + ln_enfr_disb_p;
2205: get_adisb_rec.elig_status_date := TRUNC(SYSDATE);
2206:
2207: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_PASS');
2208: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2209: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2210: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2211:
2212: ln_enfr_disb_p := 1 + ln_enfr_disb_p;
2213:
2206:
2207: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_PASS');
2208: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2209: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2210: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2211:
2212: ln_enfr_disb_p := 1 + ln_enfr_disb_p;
2213:
2214: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2264: );
2265:
2266: ELSE
2267:
2268: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_FAIL');
2269: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2270: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2271: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2272: revert_disb(awd_disb_rec.row_id,'R',lv_fund_type); -- 'R' - failed enforcement
2265:
2266: ELSE
2267:
2268: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_FAIL');
2269: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2270: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2271: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2272: revert_disb(awd_disb_rec.row_id,'R',lv_fund_type); -- 'R' - failed enforcement
2273: END IF;
2266: ELSE
2267:
2268: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_FAIL');
2269: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2270: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2271: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2272: revert_disb(awd_disb_rec.row_id,'R',lv_fund_type); -- 'R' - failed enforcement
2273: END IF;
2274:
2267:
2268: fnd_message.set_name('IGF','IGF_DB_VERF_ENFR_RTN_FAIL');
2269: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2270: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2271: fnd_file.put_line(fnd_file.log,RPAD(' ',20) ||fnd_message.get);
2272: revert_disb(awd_disb_rec.row_id,'R',lv_fund_type); -- 'R' - failed enforcement
2273: END IF;
2274:
2275: END LOOP;
2280: WHEN app_exception.record_lock_exception THEN
2281: RAISE;
2282:
2283: WHEN OTHERS THEN
2284: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2285: fnd_message.set_token('NAME','IGF_DB_DISB.DISB_VERF_ENF '||SQLERRM);
2286: fnd_file.put_line(fnd_file.log,SQLERRM);
2287: igs_ge_msg_stack.add;
2288: app_exception.raise_exception;
2281: RAISE;
2282:
2283: WHEN OTHERS THEN
2284: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2285: fnd_message.set_token('NAME','IGF_DB_DISB.DISB_VERF_ENF '||SQLERRM);
2286: fnd_file.put_line(fnd_file.log,SQLERRM);
2287: igs_ge_msg_stack.add;
2288: app_exception.raise_exception;
2289:
2535: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','cur_awd_disb%NOTFOUND');
2536: END IF;
2537: IF p_fund_id IS NULL THEN
2538: -- Add a new message having just one parameter.
2539: fnd_message.set_name('IGF','IGF_DB_NO_PLAN_REC');
2540: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2541: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2542: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2543: END IF;
2536: END IF;
2537: IF p_fund_id IS NULL THEN
2538: -- Add a new message having just one parameter.
2539: fnd_message.set_name('IGF','IGF_DB_NO_PLAN_REC');
2540: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2541: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2542: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2543: END IF;
2544: ELSE
2542: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2543: END IF;
2544: ELSE
2545: -- Add old message having two parameters.
2546: fnd_message.set_name('IGF','IGF_DB_NO_STD_FUND');
2547: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2548: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
2549: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2550: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2543: END IF;
2544: ELSE
2545: -- Add old message having two parameters.
2546: fnd_message.set_name('IGF','IGF_DB_NO_STD_FUND');
2547: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2548: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
2549: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2550: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2551: END IF;
2544: ELSE
2545: -- Add old message having two parameters.
2546: fnd_message.set_name('IGF','IGF_DB_NO_STD_FUND');
2547: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2548: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
2549: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2550: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2551: END IF;
2552: END IF;
2549: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2550: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','no planned disbursments for '||igf_gr_gen.get_per_num(p_base_id));
2551: END IF;
2552: END IF;
2553: p_result := fnd_message.get;
2554: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||p_result);
2555: -- No Planned Disbursements found for Student
2556: CLOSE cur_awd_disb;
2557:
2620: END IF;
2621: LOOP
2622: BEGIN
2623: -- clear message stack
2624: fnd_message.clear;
2625:
2626: -- First we need to check if the fund being disbursed is of type either DL or CL or PELL
2627: -- Store the type of fund as we need it in subsequent processing
2628:
2650: IF ln_old_fund = 0 OR
2651: (ln_old_fund <> ln_new_fund AND ln_old_fund > 1)
2652: THEN
2653: fnd_file.new_line(fnd_file.log,1);
2654: fnd_message.set_name('IGF','IGF_DB_PROCESS_STD_FUND');
2655: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2656: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2657: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
2658: END IF;
2651: (ln_old_fund <> ln_new_fund AND ln_old_fund > 1)
2652: THEN
2653: fnd_file.new_line(fnd_file.log,1);
2654: fnd_message.set_name('IGF','IGF_DB_PROCESS_STD_FUND');
2655: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2656: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2657: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
2658: END IF;
2659:
2652: THEN
2653: fnd_file.new_line(fnd_file.log,1);
2654: fnd_message.set_name('IGF','IGF_DB_PROCESS_STD_FUND');
2655: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2656: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2657: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
2658: END IF;
2659:
2660: fnd_file.new_line(fnd_file.log,1);
2653: fnd_file.new_line(fnd_file.log,1);
2654: fnd_message.set_name('IGF','IGF_DB_PROCESS_STD_FUND');
2655: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
2656: fnd_message.set_token('FDESC',get_fund_desc(awd_disb_rec.fund_id));
2657: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
2658: END IF;
2659:
2660: fnd_file.new_line(fnd_file.log,1);
2661: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2657: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
2658: END IF;
2659:
2660: fnd_file.new_line(fnd_file.log,1);
2661: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2662: -- 'Processing disbursement for award
2663: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2664: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2665: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2659:
2660: fnd_file.new_line(fnd_file.log,1);
2661: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2662: -- 'Processing disbursement for award
2663: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2664: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2665: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2666: fnd_file.new_line(fnd_file.log,1);
2667:
2660: fnd_file.new_line(fnd_file.log,1);
2661: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2662: -- 'Processing disbursement for award
2663: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2664: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2665: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2666: fnd_file.new_line(fnd_file.log,1);
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2661: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD_DISB');
2662: -- 'Processing disbursement for award
2663: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2664: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2665: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
2666: fnd_file.new_line(fnd_file.log,1);
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2669: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','awd_disb_rec.award_id:'||awd_disb_rec.award_id);
2670: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','awd_disb_rec.disb_num:'||awd_disb_rec.disb_num);
2671: END IF;
2672:
2673: IF NVL(awd_disb_rec.disb_exp_dt,TRUNC(SYSDATE)+1) <= TRUNC(SYSDATE) THEN
2674: fnd_message.set_name('IGF','IGF_DB_CANCEL_EXP');
2675: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2676: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2677: -- 'Cancelling disbursement for award
2678: p_result := fnd_message.get;
2671: END IF;
2672:
2673: IF NVL(awd_disb_rec.disb_exp_dt,TRUNC(SYSDATE)+1) <= TRUNC(SYSDATE) THEN
2674: fnd_message.set_name('IGF','IGF_DB_CANCEL_EXP');
2675: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2676: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2677: -- 'Cancelling disbursement for award
2678: p_result := fnd_message.get;
2679: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2672:
2673: IF NVL(awd_disb_rec.disb_exp_dt,TRUNC(SYSDATE)+1) <= TRUNC(SYSDATE) THEN
2674: fnd_message.set_name('IGF','IGF_DB_CANCEL_EXP');
2675: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2676: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2677: -- 'Cancelling disbursement for award
2678: p_result := fnd_message.get;
2679: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2680: revert_disb(awd_disb_rec.row_id,'X',lv_fund_type);
2674: fnd_message.set_name('IGF','IGF_DB_CANCEL_EXP');
2675: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2676: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2677: -- 'Cancelling disbursement for award
2678: p_result := fnd_message.get;
2679: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2680: revert_disb(awd_disb_rec.row_id,'X',lv_fund_type);
2681: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2682: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','cancelled award '||awd_disb_rec.award_id||' '||awd_disb_rec.disb_num);
2695: -- This is only for conc job, on-line disbursement would
2696: -- bypass this validation
2697: --
2698: IF lv_fund_type = 'P' AND NOT chk_fed_elig( awd_disb_rec.base_id,'P') AND lv_call_from <> 'FORM' THEN
2699: fnd_message.set_name('IGF','IGF_GR_PELL_INELIGIBLE');
2700: p_result := fnd_message.get;
2701: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2702:
2703: ELSIF ( lv_fund_type = 'P' AND lv_call_from = 'FORM' )
2696: -- bypass this validation
2697: --
2698: IF lv_fund_type = 'P' AND NOT chk_fed_elig( awd_disb_rec.base_id,'P') AND lv_call_from <> 'FORM' THEN
2699: fnd_message.set_name('IGF','IGF_GR_PELL_INELIGIBLE');
2700: p_result := fnd_message.get;
2701: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2702:
2703: ELSIF ( lv_fund_type = 'P' AND lv_call_from = 'FORM' )
2704: OR
2702:
2703: ELSIF ( lv_fund_type = 'P' AND lv_call_from = 'FORM' )
2704: OR
2705: ( lv_fund_type <> 'P') THEN
2706: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT_FRC');
2707: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2708: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2709: --'Creating actual disbursement for award
2710: p_result := fnd_message.get;
2703: ELSIF ( lv_fund_type = 'P' AND lv_call_from = 'FORM' )
2704: OR
2705: ( lv_fund_type <> 'P') THEN
2706: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT_FRC');
2707: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2708: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2709: --'Creating actual disbursement for award
2710: p_result := fnd_message.get;
2711: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2704: OR
2705: ( lv_fund_type <> 'P') THEN
2706: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT_FRC');
2707: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2708: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2709: --'Creating actual disbursement for award
2710: p_result := fnd_message.get;
2711: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2712:
2706: fnd_message.set_name('IGF','IGF_DB_CREATE_ACT_FRC');
2707: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
2708: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
2709: --'Creating actual disbursement for award
2710: p_result := fnd_message.get;
2711: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||p_result);
2712:
2713: IF lv_fund_type ='D' THEN
2714: create_actual(awd_disb_rec.row_id,TRUE,TRUE,awd_disb_rec.fund_id);
2766: lb_elig_result := chk_fed_elig( awd_disb_rec.base_id,lv_fund_type);
2767:
2768: IF lb_log_detail THEN
2769: IF NOT lb_hold_result THEN
2770: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
2771: p_result := fnd_message.get;
2772: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2773: END IF;
2774:
2767:
2768: IF lb_log_detail THEN
2769: IF NOT lb_hold_result THEN
2770: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
2771: p_result := fnd_message.get;
2772: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2773: END IF;
2774:
2775: IF NOT lb_todo_result AND lv_message_name IS NOT NULL THEN
2772: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2773: END IF;
2774:
2775: IF NOT lb_todo_result AND lv_message_name IS NOT NULL THEN
2776: fnd_message.set_name('IGF',lv_message_name);
2777: -- 'Disbursement failed Fund To Do check'
2778: p_result := fnd_message.get;
2779: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2780: END IF;
2774:
2775: IF NOT lb_todo_result AND lv_message_name IS NOT NULL THEN
2776: fnd_message.set_name('IGF',lv_message_name);
2777: -- 'Disbursement failed Fund To Do check'
2778: p_result := fnd_message.get;
2779: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2780: END IF;
2781:
2782: IF NOT lb_pays_prg THEN
2779: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2780: END IF;
2781:
2782: IF NOT lb_pays_prg THEN
2783: fnd_message.set_name('IGF','IGF_DB_FAIL_PPRG');
2784: -- 'Disbursement failed Fund Pays Only Program check'
2785: p_result := fnd_message.get;
2786: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2787: END IF;
2781:
2782: IF NOT lb_pays_prg THEN
2783: fnd_message.set_name('IGF','IGF_DB_FAIL_PPRG');
2784: -- 'Disbursement failed Fund Pays Only Program check'
2785: p_result := fnd_message.get;
2786: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2787: END IF;
2788:
2789: IF NOT lb_pays_uts THEN
2786: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2787: END IF;
2788:
2789: IF NOT lb_pays_uts THEN
2790: fnd_message.set_name('IGF','IGF_DB_FAIL_PUNT');
2791: -- 'Disbursement failed Fund Pays Only Unit check'
2792: p_result := fnd_message.get;
2793: fnd_file.put_line(fnd_file.log,RPAD(' ',17) || p_result);
2794: END IF;
2788:
2789: IF NOT lb_pays_uts THEN
2790: fnd_message.set_name('IGF','IGF_DB_FAIL_PUNT');
2791: -- 'Disbursement failed Fund Pays Only Unit check'
2792: p_result := fnd_message.get;
2793: fnd_file.put_line(fnd_file.log,RPAD(' ',17) || p_result);
2794: END IF;
2795: END IF;
2796:
2795: END IF;
2796:
2797: IF NOT lb_elig_result THEN
2798: IF lv_fund_type = 'P' THEN
2799: fnd_message.set_name('IGF','IGF_GR_PELL_INELIGIBLE');
2800: -- 'Disbursement failed Pell Eligiblity check'
2801: END IF;
2802: IF lv_fund_type IN ('D','F') THEN
2803: fnd_message.set_name('IGF','IGF_DB_FAIL_FEDL_ELIG');
2799: fnd_message.set_name('IGF','IGF_GR_PELL_INELIGIBLE');
2800: -- 'Disbursement failed Pell Eligiblity check'
2801: END IF;
2802: IF lv_fund_type IN ('D','F') THEN
2803: fnd_message.set_name('IGF','IGF_DB_FAIL_FEDL_ELIG');
2804: -- 'Disbursement failed NSLDS Eligiblity check'
2805: END IF;
2806: p_result := fnd_message.get;
2807: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2802: IF lv_fund_type IN ('D','F') THEN
2803: fnd_message.set_name('IGF','IGF_DB_FAIL_FEDL_ELIG');
2804: -- 'Disbursement failed NSLDS Eligiblity check'
2805: END IF;
2806: p_result := fnd_message.get;
2807: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2808: END IF;
2809:
2810: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2883: FETCH cur_get_loans INTO get_loans_rec;
2884: IF cur_get_loans%NOTFOUND THEN
2885: lb_active_result := FALSE;
2886: CLOSE cur_get_loans;
2887: fnd_message.set_name('IGF','IGF_SL_LOAN_ID_NOT_FOUND');
2888: p_result := fnd_message.get;
2889: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2890: -- message ' Loan Not created for this award
2891: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2884: IF cur_get_loans%NOTFOUND THEN
2885: lb_active_result := FALSE;
2886: CLOSE cur_get_loans;
2887: fnd_message.set_name('IGF','IGF_SL_LOAN_ID_NOT_FOUND');
2888: p_result := fnd_message.get;
2889: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2890: -- message ' Loan Not created for this award
2891: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2892: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','cur_get_loans%NOTFOUND');
2892: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','cur_get_loans%NOTFOUND');
2893: END IF;
2894: ELSIF cur_get_loans%FOUND THEN
2895: IF NVL(get_loans_rec.active,'N') <> 'Y' THEN
2896: fnd_message.set_name('IGF','IGF_DB_LOAN_INACTIVE');
2897: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2898: p_result := fnd_message.get;
2899: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2900: lb_active_result := FALSE;
2893: END IF;
2894: ELSIF cur_get_loans%FOUND THEN
2895: IF NVL(get_loans_rec.active,'N') <> 'Y' THEN
2896: fnd_message.set_name('IGF','IGF_DB_LOAN_INACTIVE');
2897: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2898: p_result := fnd_message.get;
2899: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2900: lb_active_result := FALSE;
2901: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2894: ELSIF cur_get_loans%FOUND THEN
2895: IF NVL(get_loans_rec.active,'N') <> 'Y' THEN
2896: fnd_message.set_name('IGF','IGF_DB_LOAN_INACTIVE');
2897: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2898: p_result := fnd_message.get;
2899: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2900: lb_active_result := FALSE;
2901: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2902: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','loan '||get_loans_rec.loan_number||' is inactive');
2911: lb_prom_result := FALSE;
2912: lb_orig_result := FALSE;
2913:
2914: CLOSE cur_pnote_stat;
2915: fnd_message.set_name('IGF','IGF_DB_LOAN_ORIG_NOT_FOUND');
2916: p_result := fnd_message.get;
2917: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2918: -- message ' Loan Not created for this award
2919: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2912: lb_orig_result := FALSE;
2913:
2914: CLOSE cur_pnote_stat;
2915: fnd_message.set_name('IGF','IGF_DB_LOAN_ORIG_NOT_FOUND');
2916: p_result := fnd_message.get;
2917: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2918: -- message ' Loan Not created for this award
2919: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2920: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','loan not created for '||get_loans_rec.loan_id);
2927: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','get_loans_rec.loan_status:'||get_loans_rec.loan_status);
2928: END IF;
2929: IF NVL(awd_disb_rec.org_record_req,'N') = 'Y' THEN
2930: IF NVL(get_loans_rec.loan_status,'N') <>'A' THEN
2931: fnd_message.set_name('IGF','IGF_DB_LOAN_ORIG_NOT_ACC');
2932: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2933: p_result := fnd_message.get;
2934: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2935:
2928: END IF;
2929: IF NVL(awd_disb_rec.org_record_req,'N') = 'Y' THEN
2930: IF NVL(get_loans_rec.loan_status,'N') <>'A' THEN
2931: fnd_message.set_name('IGF','IGF_DB_LOAN_ORIG_NOT_ACC');
2932: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2933: p_result := fnd_message.get;
2934: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2935:
2936: lb_orig_result := FALSE;
2929: IF NVL(awd_disb_rec.org_record_req,'N') = 'Y' THEN
2930: IF NVL(get_loans_rec.loan_status,'N') <>'A' THEN
2931: fnd_message.set_name('IGF','IGF_DB_LOAN_ORIG_NOT_ACC');
2932: fnd_message.set_token('LOAN_NUMBER',get_loans_rec.loan_number);
2933: p_result := fnd_message.get;
2934: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2935:
2936: lb_orig_result := FALSE;
2937: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2961: END IF;
2962:
2963: IF lb_invalid_pnote THEN
2964: lb_prom_result := FALSE;
2965: fnd_message.set_name('IGF','IGF_DB_PNOTE_NOT_ACC');
2966: p_result := fnd_message.get;
2967: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2968: -- message 'Prom Note not accepted'
2969: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2962:
2963: IF lb_invalid_pnote THEN
2964: lb_prom_result := FALSE;
2965: fnd_message.set_name('IGF','IGF_DB_PNOTE_NOT_ACC');
2966: p_result := fnd_message.get;
2967: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2968: -- message 'Prom Note not accepted'
2969: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2970: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','prom note not accepted');
2984:
2985: IF cur_get_pell%NOTFOUND THEN
2986: CLOSE cur_get_pell;
2987: lb_orig_result := FALSE;
2988: fnd_message.set_name('IGF','IGF_DB_GRANT_ID_NOT_FOUND');
2989: p_result := fnd_message.get;
2990: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2991: -- message 'Pell Origination record not found'
2992: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2985: IF cur_get_pell%NOTFOUND THEN
2986: CLOSE cur_get_pell;
2987: lb_orig_result := FALSE;
2988: fnd_message.set_name('IGF','IGF_DB_GRANT_ID_NOT_FOUND');
2989: p_result := fnd_message.get;
2990: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
2991: -- message 'Pell Origination record not found'
2992: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2993: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','cur_get_pell%NOTFOUND');
2998: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','get_pell_rec.orig_action_code:'||get_pell_rec.orig_action_code);
2999: END IF;
3000: IF NVL(get_pell_rec.orig_action_code,'N') <> 'A' THEN
3001: lb_orig_result := FALSE;
3002: fnd_message.set_name('IGF','IGF_DB_GRANT_ORIG_NOT_ACC');
3003: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3004: p_result := fnd_message.get;
3005: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3006: -- message 'Origination not accepted'
2999: END IF;
3000: IF NVL(get_pell_rec.orig_action_code,'N') <> 'A' THEN
3001: lb_orig_result := FALSE;
3002: fnd_message.set_name('IGF','IGF_DB_GRANT_ORIG_NOT_ACC');
3003: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3004: p_result := fnd_message.get;
3005: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3006: -- message 'Origination not accepted'
3007: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3000: IF NVL(get_pell_rec.orig_action_code,'N') <> 'A' THEN
3001: lb_orig_result := FALSE;
3002: fnd_message.set_name('IGF','IGF_DB_GRANT_ORIG_NOT_ACC');
3003: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3004: p_result := fnd_message.get;
3005: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3006: -- message 'Origination not accepted'
3007: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3008: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','orig not accepted');
3037: awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number);
3038:
3039: IF lb_log_detail THEN
3040: IF NOT lb_fclass_result THEN
3041: fnd_message.set_name('IGF','IGF_DB_FAIL_FCLS');
3042: --Disbursement failed Pays Only Fee Class Check
3043: p_result := fnd_message.get;
3044: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3045: END IF;
3039: IF lb_log_detail THEN
3040: IF NOT lb_fclass_result THEN
3041: fnd_message.set_name('IGF','IGF_DB_FAIL_FCLS');
3042: --Disbursement failed Pays Only Fee Class Check
3043: p_result := fnd_message.get;
3044: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3045: END IF;
3046: END IF;
3047: --
3075: p_result := p_message;
3076: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3077: ELSIF NVL(p_term_aid,0) < term_amounts_rec.term_total THEN
3078: lb_pell_cal_result := FALSE;
3079: fnd_message.set_name('IGF','IGF_GR_PELL_DISB_FAIL');
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3076: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3077: ELSIF NVL(p_term_aid,0) < term_amounts_rec.term_total THEN
3078: lb_pell_cal_result := FALSE;
3079: fnd_message.set_name('IGF','IGF_GR_PELL_DISB_FAIL');
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3084: p_result := fnd_message.get;
3077: ELSIF NVL(p_term_aid,0) < term_amounts_rec.term_total THEN
3078: lb_pell_cal_result := FALSE;
3079: fnd_message.set_name('IGF','IGF_GR_PELL_DISB_FAIL');
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3084: p_result := fnd_message.get;
3085: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3078: lb_pell_cal_result := FALSE;
3079: fnd_message.set_name('IGF','IGF_GR_PELL_DISB_FAIL');
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3084: p_result := fnd_message.get;
3085: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3086:
3079: fnd_message.set_name('IGF','IGF_GR_PELL_DISB_FAIL');
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3084: p_result := fnd_message.get;
3085: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3086:
3087: END IF;
3080: fnd_message.set_token('TERM_TOTAL',term_amounts_rec.term_total);
3081: fnd_message.set_token('CALC_AMT',p_term_aid);
3082: fnd_message.set_token('LD_ALT_CODE',igf_gr_gen.get_alt_code(awd_disb_rec.ld_cal_type,awd_disb_rec.ld_sequence_number));
3083: fnd_message.set_token('ATT_TYPE',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT',awd_disb_rec.base_attendance_type_code));
3084: p_result := fnd_message.get;
3085: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3086:
3087: END IF;
3088:
3105: IF lb_orig_result THEN
3106: IF NVL(awd_disb_rec.disb_status,'N') NOT IN ('A','D') THEN
3107: lb_disb_result := FALSE;
3108:
3109: fnd_message.set_name('IGF','IGF_DB_CL_DISB_NOT_ACC');
3110: p_result := fnd_message.get;
3111: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3112: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','disbursment not accepted');
3106: IF NVL(awd_disb_rec.disb_status,'N') NOT IN ('A','D') THEN
3107: lb_disb_result := FALSE;
3108:
3109: fnd_message.set_name('IGF','IGF_DB_CL_DISB_NOT_ACC');
3110: p_result := fnd_message.get;
3111: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3112: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','disbursment not accepted');
3114: END IF;
3122: IF cur_get_disb%NOTFOUND THEN
3123: CLOSE cur_get_disb;
3124: lb_disb_result := FALSE;
3125:
3126: fnd_message.set_name('IGF','IGF_DB_GRANT_DISB_NOT_FOUND');
3127: p_result := fnd_message.get;
3128: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3129: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3130: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','disbursment records not found');
3123: CLOSE cur_get_disb;
3124: lb_disb_result := FALSE;
3125:
3126: fnd_message.set_name('IGF','IGF_DB_GRANT_DISB_NOT_FOUND');
3127: p_result := fnd_message.get;
3128: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3129: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3130: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','disbursment records not found');
3131: END IF;
3132: ELSIF cur_get_disb%FOUND THEN
3133: CLOSE cur_get_disb;
3134: IF NVL(get_disb_rec.disb_ack_act_status,'N') NOT IN ('A','C') THEN
3135: lb_disb_result := FALSE;
3136: fnd_message.set_name('IGF','IGF_DB_GRANT_DISB_NOT_ACC');
3137: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3138: p_result := fnd_message.get;
3139: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3140: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3133: CLOSE cur_get_disb;
3134: IF NVL(get_disb_rec.disb_ack_act_status,'N') NOT IN ('A','C') THEN
3135: lb_disb_result := FALSE;
3136: fnd_message.set_name('IGF','IGF_DB_GRANT_DISB_NOT_ACC');
3137: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3138: p_result := fnd_message.get;
3139: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3140: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3141: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug',get_pell_rec.origination_id||' not accepted');
3134: IF NVL(get_disb_rec.disb_ack_act_status,'N') NOT IN ('A','C') THEN
3135: lb_disb_result := FALSE;
3136: fnd_message.set_name('IGF','IGF_DB_GRANT_DISB_NOT_ACC');
3137: fnd_message.set_token('ORIGINATION_ID',get_pell_rec.origination_id);
3138: p_result := fnd_message.get;
3139: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3140: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3141: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug',get_pell_rec.origination_id||' not accepted');
3142: END IF;
3147:
3148: IF NVL(awd_disb_rec.fund_recv_req,'N') = 'Y' THEN
3149: IF lv_fund_type = 'F' THEN
3150: IF NVL(awd_disb_rec.fund_status,'N') <> 'Y' THEN
3151: fnd_message.set_name('IGF','IGF_DB_CL_NOT_FUNDED');
3152: p_result := fnd_message.get;
3153: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3154: lb_recv_result := FALSE;
3155: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3148: IF NVL(awd_disb_rec.fund_recv_req,'N') = 'Y' THEN
3149: IF lv_fund_type = 'F' THEN
3150: IF NVL(awd_disb_rec.fund_status,'N') <> 'Y' THEN
3151: fnd_message.set_name('IGF','IGF_DB_CL_NOT_FUNDED');
3152: p_result := fnd_message.get;
3153: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3154: lb_recv_result := FALSE;
3155: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3156: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','funds are not yet received');
3186: lb_cp_result := FALSE;
3187: --
3188: -- Call to Insert Hold
3189: --
3190: fnd_message.set_name('IGF','IGF_DB_FAIL_CRP');
3191: p_result := fnd_message.get;
3192: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3193: END IF;
3194: END IF;
3187: --
3188: -- Call to Insert Hold
3189: --
3190: fnd_message.set_name('IGF','IGF_DB_FAIL_CRP');
3191: p_result := fnd_message.get;
3192: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3193: END IF;
3194: END IF;
3195:
3206: p_message);
3207:
3208: END IF;
3209: IF NOT lb_att_result THEN
3210: fnd_message.set_name('IGF','IGF_DB_FAIL_ATT');
3211: --Disbursement failed Attendance Type Check
3212: p_result := fnd_message.get;
3213:
3214: IF p_message IS NOT NULL THEN
3208: END IF;
3209: IF NOT lb_att_result THEN
3210: fnd_message.set_name('IGF','IGF_DB_FAIL_ATT');
3211: --Disbursement failed Attendance Type Check
3212: p_result := fnd_message.get;
3213:
3214: IF p_message IS NOT NULL THEN
3215: p_result := p_message ||fnd_global.newline ||p_result;
3216: END IF;
3249: IF NVL(get_ver_rec.fed_verif_status,'N') = 'WITHOUTDOC' THEN
3250: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3251: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3252: lb_send_wdoc := TRUE;
3253: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3254: p_result := fnd_message.get;
3255: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3256: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3257: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','first disb without doc');
3250: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3251: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3252: lb_send_wdoc := TRUE;
3253: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3254: p_result := fnd_message.get;
3255: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3256: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3257: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','first disb without doc');
3258: END IF;
3257: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','first disb without doc');
3258: END IF;
3259: ELSE
3260: lb_send_wdoc := FALSE;
3261: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3262: p_result := fnd_message.get;
3263: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3264: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3265: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3258: END IF;
3259: ELSE
3260: lb_send_wdoc := FALSE;
3261: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3262: p_result := fnd_message.get;
3263: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3264: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3265: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3266: END IF;
3265: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3266: END IF;
3267: END IF;
3268: ELSE
3269: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3270: p_result := fnd_message.get;
3271: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3272: lb_send_wdoc := FALSE;
3273: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3266: END IF;
3267: END IF;
3268: ELSE
3269: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3270: p_result := fnd_message.get;
3271: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3272: lb_send_wdoc := FALSE;
3273: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3274: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc');
3307: IF NVL(get_ver_rec.fed_verif_status,'N') = 'WITHOUTDOC' THEN
3308: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3309: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3310: lb_send_wdoc := TRUE;
3311: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3312: p_result := fnd_message.get;
3313: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3314: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3315: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3308: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3309: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3310: lb_send_wdoc := TRUE;
3311: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3312: p_result := fnd_message.get;
3313: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3314: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3315: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3316: END IF;
3315: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3316: END IF;
3317: ELSE
3318: lb_send_wdoc := FALSE;
3319: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3320: p_result := fnd_message.get;
3321: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3322: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3323: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3316: END IF;
3317: ELSE
3318: lb_send_wdoc := FALSE;
3319: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3320: p_result := fnd_message.get;
3321: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3322: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3323: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3324: END IF;
3323: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3324: END IF;
3325: END IF;
3326: ELSE
3327: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3328: p_result := fnd_message.get;
3329: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3330: lb_send_wdoc := FALSE;
3331: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3324: END IF;
3325: END IF;
3326: ELSE
3327: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3328: p_result := fnd_message.get;
3329: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3330: lb_send_wdoc := FALSE;
3331: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3332: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc');
3363: IF NVL(get_ver_rec.fed_verif_status,'N') = 'WITHOUTDOC' THEN
3364: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3365: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3366: lb_send_wdoc := TRUE;
3367: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3368: p_result := fnd_message.get;
3369: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3370: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3371: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3364: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3365: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3366: lb_send_wdoc := TRUE;
3367: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3368: p_result := fnd_message.get;
3369: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3370: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3371: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3372: END IF;
3371: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3372: END IF;
3373: ELSE
3374: lb_send_wdoc := FALSE;
3375: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3376: p_result := fnd_message.get;
3377: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3378: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3379: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3372: END IF;
3373: ELSE
3374: lb_send_wdoc := FALSE;
3375: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3376: p_result := fnd_message.get;
3377: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3378: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3379: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3380: END IF;
3379: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3380: END IF;
3381: END IF;
3382: ELSE
3383: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3384: p_result := fnd_message.get;
3385: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3386: lb_send_wdoc := FALSE;
3387: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3380: END IF;
3381: END IF;
3382: ELSE
3383: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3384: p_result := fnd_message.get;
3385: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3386: lb_send_wdoc := FALSE;
3387: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3388: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc');
3415: IF NVL(get_ver_rec.fed_verif_status,'N') = 'WITHOUTDOC' THEN
3416: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3417: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3418: lb_send_wdoc := TRUE;
3419: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3420: p_result := fnd_message.get;
3421: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3422: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3423: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3416: IF NVL(awd_disb_rec.send_without_doc,'N') = 'Y' THEN
3417: IF awd_disb_rec.disb_num = igf_gr_gen.get_min_disb_number(awd_disb_rec.award_id) THEN
3418: lb_send_wdoc := TRUE;
3419: fnd_message.set_name('IGF','IGF_DB_ALW_FIRST_VER');
3420: p_result := fnd_message.get;
3421: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3422: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3423: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3424: END IF;
3423: fnd_log.string(fnd_log.level_statement,'igf.plsql.igd_db_disb.process_student.debug','verf is not without doc.first disb without doc');
3424: END IF;
3425: ELSE
3426: lb_send_wdoc := FALSE;
3427: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3428: p_result := fnd_message.get;
3429: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3430: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3431: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3424: END IF;
3425: ELSE
3426: lb_send_wdoc := FALSE;
3427: fnd_message.set_name('IGF','IGF_DB_FAIL_SEC_VER');
3428: p_result := fnd_message.get;
3429: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3430: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3431: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3432: END IF;
3431: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc.cannot make disb');
3432: END IF;
3433: END IF;
3434: ELSE
3435: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3436: p_result := fnd_message.get;
3437: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3438: lb_send_wdoc := FALSE;
3439: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3432: END IF;
3433: END IF;
3434: ELSE
3435: fnd_message.set_name('IGF','IGF_DB_FAIL_VERF_STAT');
3436: p_result := fnd_message.get;
3437: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3438: lb_send_wdoc := FALSE;
3439: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3440: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.process_student.debug','without doc');
3465: END IF;
3466: END IF;
3467:
3468: -- clear message stack
3469: fnd_message.clear;
3470:
3471: FETCH cur_awd_disb INTO awd_disb_rec;
3472: EXIT WHEN cur_awd_disb%NOTFOUND;
3473:
3476: WHEN app_exception.record_lock_exception THEN
3477: RAISE;
3478:
3479: WHEN gross_amt_zero THEN
3480: fnd_message.set_name('IGF','IGF_DB_CREATE_ZERO');
3481: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
3482: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
3483: p_result := fnd_message.get;
3484: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3477: RAISE;
3478:
3479: WHEN gross_amt_zero THEN
3480: fnd_message.set_name('IGF','IGF_DB_CREATE_ZERO');
3481: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
3482: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
3483: p_result := fnd_message.get;
3484: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3485: fnd_message.clear;
3478:
3479: WHEN gross_amt_zero THEN
3480: fnd_message.set_name('IGF','IGF_DB_CREATE_ZERO');
3481: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
3482: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
3483: p_result := fnd_message.get;
3484: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3485: fnd_message.clear;
3486: FETCH cur_awd_disb INTO awd_disb_rec;
3479: WHEN gross_amt_zero THEN
3480: fnd_message.set_name('IGF','IGF_DB_CREATE_ZERO');
3481: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
3482: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
3483: p_result := fnd_message.get;
3484: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3485: fnd_message.clear;
3486: FETCH cur_awd_disb INTO awd_disb_rec;
3487: EXIT WHEN cur_awd_disb%NOTFOUND;
3481: fnd_message.set_token('AWARD_ID',TO_CHAR(awd_disb_rec.award_id));
3482: fnd_message.set_token('DISB_NUM',TO_CHAR(awd_disb_rec.disb_num));
3483: p_result := fnd_message.get;
3484: fnd_file.put_line(fnd_file.log,RPAD(' ',17) ||p_result);
3485: fnd_message.clear;
3486: FETCH cur_awd_disb INTO awd_disb_rec;
3487: EXIT WHEN cur_awd_disb%NOTFOUND;
3488:
3489: WHEN skip_record THEN
3487: EXIT WHEN cur_awd_disb%NOTFOUND;
3488:
3489: WHEN skip_record THEN
3490: -- clear message stack
3491: fnd_message.clear;
3492: FETCH cur_awd_disb INTO awd_disb_rec;
3493: EXIT WHEN cur_awd_disb%NOTFOUND;
3494: END;
3495:
3547: END IF;
3548:
3549: fnd_file.new_line(fnd_file.log,1);
3550: fnd_file.new_line(fnd_file.log,1);
3551: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_TOT');
3552: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3548:
3549: fnd_file.new_line(fnd_file.log,1);
3550: fnd_file.new_line(fnd_file.log,1);
3551: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_TOT');
3552: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3549: fnd_file.new_line(fnd_file.log,1);
3550: fnd_file.new_line(fnd_file.log,1);
3551: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_TOT');
3552: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3551: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_TOT');
3552: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3552: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3553: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3554:
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3555: fnd_message.set_name('IGF','IGF_DB_ACT_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3556: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_act_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3557: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3558:
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3559: fnd_message.set_name('IGF','IGF_DB_PLAN_DISB_FAIL');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3560: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_plan_disb - ln_act_disb));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3561: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3562:
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3563: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_TOT');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3564: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3572: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb - ln_enfr_disb_p));
3565: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3566:
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3572: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb - ln_enfr_disb_p));
3573: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3567: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_P_TOT');
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3572: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb - ln_enfr_disb_p));
3573: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3574: fnd_file.new_line(fnd_file.log,1);
3575:
3568: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb_p));
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3572: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb - ln_enfr_disb_p));
3573: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3574: fnd_file.new_line(fnd_file.log,1);
3575:
3576:
3569: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3570:
3571: fnd_message.set_name('IGF','IGF_DB_ENFR_DISB_FAIL');
3572: fnd_message.set_token('TOT_NUM',TO_CHAR(ln_enfr_disb - ln_enfr_disb_p));
3573: fnd_file.put_line(fnd_file.log,RPAD(' ',15) ||fnd_message.get);
3574: fnd_file.new_line(fnd_file.log,1);
3575:
3576:
3577: EXCEPTION
3579: WHEN app_exception.record_lock_exception THEN
3580: RAISE;
3581:
3582: WHEN OTHERS THEN
3583: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3584: fnd_message.set_token('NAME','IGF_DB_DISB.PROCESS_STUDENT' || SQLERRM);
3585: fnd_file.put_line(fnd_file.log,SQLERRM);
3586: igs_ge_msg_stack.add;
3587: app_exception.raise_exception;
3580: RAISE;
3581:
3582: WHEN OTHERS THEN
3583: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3584: fnd_message.set_token('NAME','IGF_DB_DISB.PROCESS_STUDENT' || SQLERRM);
3585: fnd_file.put_line(fnd_file.log,SQLERRM);
3586: igs_ge_msg_stack.add;
3587: app_exception.raise_exception;
3588:
3701: END IF;
3702:
3703: IF l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
3704:
3705: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3706: fnd_file.new_line(fnd_file.log,2);
3707: fnd_file.put_line(fnd_file.log,fnd_message.get);
3708: fnd_file.new_line(fnd_file.log,2);
3709: RAISE PARAM_EXCEPTION;
3703: IF l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
3704:
3705: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3706: fnd_file.new_line(fnd_file.log,2);
3707: fnd_file.put_line(fnd_file.log,fnd_message.get);
3708: fnd_file.new_line(fnd_file.log,2);
3709: RAISE PARAM_EXCEPTION;
3710: END IF;
3711:
3711:
3712: OPEN c_award_det(l_ci_cal_type,l_ci_sequence_number);
3713: FETCH c_award_det INTO l_award_det;
3714: IF c_award_det%NOTFOUND THEN
3715: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
3716: fnd_file.put_line(fnd_file.log,fnd_message.get);
3717: fnd_file.new_line(fnd_file.log,1);
3718: CLOSE c_award_det;
3719: RETURN;
3712: OPEN c_award_det(l_ci_cal_type,l_ci_sequence_number);
3713: FETCH c_award_det INTO l_award_det;
3714: IF c_award_det%NOTFOUND THEN
3715: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
3716: fnd_file.put_line(fnd_file.log,fnd_message.get);
3717: fnd_file.new_line(fnd_file.log,1);
3718: CLOSE c_award_det;
3719: RETURN;
3720: ELSE
3731: );
3732:
3733:
3734: IF p_run_for ='P' AND (( p_base_id IS NOT NULL ) OR (p_fund_id IS NOT NULL )) THEN
3735: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3736: fnd_file.new_line(fnd_file.log,2);
3737: fnd_file.put_line(fnd_file.log,fnd_message.get);
3738: fnd_file.new_line(fnd_file.log,2);
3739: RAISE PARAM_EXCEPTION;
3733:
3734: IF p_run_for ='P' AND (( p_base_id IS NOT NULL ) OR (p_fund_id IS NOT NULL )) THEN
3735: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3736: fnd_file.new_line(fnd_file.log,2);
3737: fnd_file.put_line(fnd_file.log,fnd_message.get);
3738: fnd_file.new_line(fnd_file.log,2);
3739: RAISE PARAM_EXCEPTION;
3740: ELSIF p_run_for ='F' AND (( p_base_id IS NOT NULL ) OR (p_per_grp_id IS NOT NULL )) THEN
3741: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3737: fnd_file.put_line(fnd_file.log,fnd_message.get);
3738: fnd_file.new_line(fnd_file.log,2);
3739: RAISE PARAM_EXCEPTION;
3740: ELSIF p_run_for ='F' AND (( p_base_id IS NOT NULL ) OR (p_per_grp_id IS NOT NULL )) THEN
3741: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3742: fnd_file.new_line(fnd_file.log,2);
3743: fnd_file.put_line(fnd_file.log,fnd_message.get);
3744: fnd_file.new_line(fnd_file.log,2);
3745: RAISE PARAM_EXCEPTION;
3739: RAISE PARAM_EXCEPTION;
3740: ELSIF p_run_for ='F' AND (( p_base_id IS NOT NULL ) OR (p_per_grp_id IS NOT NULL )) THEN
3741: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3742: fnd_file.new_line(fnd_file.log,2);
3743: fnd_file.put_line(fnd_file.log,fnd_message.get);
3744: fnd_file.new_line(fnd_file.log,2);
3745: RAISE PARAM_EXCEPTION;
3746: ELSIF p_run_for ='S' AND (( p_per_grp_id IS NOT NULL ) OR (p_fund_id IS NOT NULL )) THEN
3747: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3743: fnd_file.put_line(fnd_file.log,fnd_message.get);
3744: fnd_file.new_line(fnd_file.log,2);
3745: RAISE PARAM_EXCEPTION;
3746: ELSIF p_run_for ='S' AND (( p_per_grp_id IS NOT NULL ) OR (p_fund_id IS NOT NULL )) THEN
3747: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3748: fnd_file.new_line(fnd_file.log,2);
3749: fnd_file.put_line(fnd_file.log,fnd_message.get);
3750: fnd_file.new_line(fnd_file.log,2);
3751: RAISE PARAM_EXCEPTION;
3745: RAISE PARAM_EXCEPTION;
3746: ELSIF p_run_for ='S' AND (( p_per_grp_id IS NOT NULL ) OR (p_fund_id IS NOT NULL )) THEN
3747: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3748: fnd_file.new_line(fnd_file.log,2);
3749: fnd_file.put_line(fnd_file.log,fnd_message.get);
3750: fnd_file.new_line(fnd_file.log,2);
3751: RAISE PARAM_EXCEPTION;
3752: END IF;
3753:
3751: RAISE PARAM_EXCEPTION;
3752: END IF;
3753:
3754: fnd_file.new_line(fnd_file.log,2);
3755: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD');
3756: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code (l_ci_cal_type,l_ci_sequence_number));
3757: -- Processing Disbursements for Award Year
3758: fnd_file.put_line(fnd_file.log,fnd_message.get);
3759: fnd_file.new_line(fnd_file.log,1);
3752: END IF;
3753:
3754: fnd_file.new_line(fnd_file.log,2);
3755: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD');
3756: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code (l_ci_cal_type,l_ci_sequence_number));
3757: -- Processing Disbursements for Award Year
3758: fnd_file.put_line(fnd_file.log,fnd_message.get);
3759: fnd_file.new_line(fnd_file.log,1);
3760:
3754: fnd_file.new_line(fnd_file.log,2);
3755: fnd_message.set_name('IGF','IGF_DB_PROCESS_AWD');
3756: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code (l_ci_cal_type,l_ci_sequence_number));
3757: -- Processing Disbursements for Award Year
3758: fnd_file.put_line(fnd_file.log,fnd_message.get);
3759: fnd_file.new_line(fnd_file.log,1);
3760:
3761: IF p_run_for ='P' AND p_per_grp_id IS NOT NULL THEN
3762:
3778: END IF;
3779:
3780: IF cur_per_grp%NOTFOUND THEN
3781: CLOSE cur_per_grp;
3782: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3783: -- No student found in Person Group
3784: fnd_file.put_line(fnd_file.log,RPAD(' ',5) || fnd_message.get);
3785: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','No persons in group '||p_per_grp_id);
3780: IF cur_per_grp%NOTFOUND THEN
3781: CLOSE cur_per_grp;
3782: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
3783: -- No student found in Person Group
3784: fnd_file.put_line(fnd_file.log,RPAD(' ',5) || fnd_message.get);
3785: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','No persons in group '||p_per_grp_id);
3787: END IF;
3788: ELSE
3786: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','No persons in group '||p_per_grp_id);
3787: END IF;
3788: ELSE
3789: IF cur_per_grp%FOUND THEN
3790: fnd_message.set_name('IGF','IGF_DB_PROCESS_PER_GRP');
3791: -- Processing Disbursements for Person Group
3792: OPEN cur_per_grp_name(p_per_grp_id);
3793: FETCH cur_per_grp_name INTO per_grp_rec;
3794: CLOSE cur_per_grp_name;
3791: -- Processing Disbursements for Person Group
3792: OPEN cur_per_grp_name(p_per_grp_id);
3793: FETCH cur_per_grp_name INTO per_grp_rec;
3794: CLOSE cur_per_grp_name;
3795: fnd_file.put_line(fnd_file.log,RPAD(' ',5) || fnd_message.get || ' ' || per_grp_rec.group_cd);
3796:
3797: -- Check if the person exists in FA.
3798: LOOP
3799:
3804:
3805: IF lv_person_number IS NOT NULL THEN
3806:
3807: IF ln_base_id IS NOT NULL THEN
3808: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3809: fnd_message.set_token('STDNT',lv_person_number);
3810: fnd_file.put_line(fnd_file.log,fnd_message.get);
3811:
3812: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3805: IF lv_person_number IS NOT NULL THEN
3806:
3807: IF ln_base_id IS NOT NULL THEN
3808: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3809: fnd_message.set_token('STDNT',lv_person_number);
3810: fnd_file.put_line(fnd_file.log,fnd_message.get);
3811:
3812: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3813: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','Processing student '||lv_person_number);
3806:
3807: IF ln_base_id IS NOT NULL THEN
3808: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3809: fnd_message.set_token('STDNT',lv_person_number);
3810: fnd_file.put_line(fnd_file.log,fnd_message.get);
3811:
3812: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3813: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','Processing student '||lv_person_number);
3814: END IF;
3815: --
3816: -- Check for Academic Holds, only if con job is run
3817: --
3818: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(ln_base_id)) = 'F' THEN
3819: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3820: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3821: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3822: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3823: END IF;
3816: -- Check for Academic Holds, only if con job is run
3817: --
3818: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(ln_base_id)) = 'F' THEN
3819: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3820: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3821: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3822: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3823: END IF;
3824: ELSE
3828: process_student(ln_base_id,lv_result);
3829:
3830:
3831: END IF;
3832: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3833: -- End of processing for person number
3834: fnd_message.set_token('PER_NUM',lv_person_number);
3835: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3836: fnd_file.new_line(fnd_file.log,1);
3830:
3831: END IF;
3832: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3833: -- End of processing for person number
3834: fnd_message.set_token('PER_NUM',lv_person_number);
3835: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3836: fnd_file.new_line(fnd_file.log,1);
3837: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3838: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3831: END IF;
3832: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3833: -- End of processing for person number
3834: fnd_message.set_token('PER_NUM',lv_person_number);
3835: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3836: fnd_file.new_line(fnd_file.log,1);
3837: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3838: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3839: END IF;
3838: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3839: END IF;
3840: ELSE
3841: -- log a message and skip this person
3842: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3843: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3844: fnd_message.set_token('AWD_YR',l_award_det.alternate_code);
3845: -- Person PER_NUM does not exist in FA
3846: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3839: END IF;
3840: ELSE
3841: -- log a message and skip this person
3842: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3843: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3844: fnd_message.set_token('AWD_YR',l_award_det.alternate_code);
3845: -- Person PER_NUM does not exist in FA
3846: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3847: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3840: ELSE
3841: -- log a message and skip this person
3842: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3843: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3844: fnd_message.set_token('AWD_YR',l_award_det.alternate_code);
3845: -- Person PER_NUM does not exist in FA
3846: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3847: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3848: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3842: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
3843: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
3844: fnd_message.set_token('AWD_YR',l_award_det.alternate_code);
3845: -- Person PER_NUM does not exist in FA
3846: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3847: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3848: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
3849: END IF;
3850: END IF;
3849: END IF;
3850: END IF;
3851:
3852: ELSE
3853: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3854: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3855: END IF;
3856:
3857: FETCH cur_per_grp INTO l_person_id;
3850: END IF;
3851:
3852: ELSE
3853: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
3854: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3855: END IF;
3856:
3857: FETCH cur_per_grp INTO l_person_id;
3858: EXIT WHEN cur_per_grp%NOTFOUND;
3866: ELSIF p_run_for ='S' AND p_base_id IS NOT NULL THEN
3867:
3868: lv_person_number := igf_gr_gen.get_per_num (p_base_id);
3869:
3870: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3871: fnd_message.set_token('STDNT',lv_person_number);
3872: fnd_file.put_line(fnd_file.log,fnd_message.get);
3873:
3874: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3867:
3868: lv_person_number := igf_gr_gen.get_per_num (p_base_id);
3869:
3870: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3871: fnd_message.set_token('STDNT',lv_person_number);
3872: fnd_file.put_line(fnd_file.log,fnd_message.get);
3873:
3874: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3875: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','Starting processing single student '||lv_person_number);
3868: lv_person_number := igf_gr_gen.get_per_num (p_base_id);
3869:
3870: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3871: fnd_message.set_token('STDNT',lv_person_number);
3872: fnd_file.put_line(fnd_file.log,fnd_message.get);
3873:
3874: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3875: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','Starting processing single student '||lv_person_number);
3876: END IF;
3878: -- Check for Academic Holds, only if con job is run
3879: --
3880:
3881: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(p_base_id)) = 'F' THEN
3882: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3883: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3884: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3885: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3886: END IF;
3879: --
3880:
3881: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(p_base_id)) = 'F' THEN
3882: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3883: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3884: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3885: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3886: END IF;
3887:
3891: END IF;
3892: process_student(p_base_id,lv_result);
3893:
3894: END IF;
3895: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3896: -- End of processing for person number
3897: fnd_message.set_token('PER_NUM',lv_person_number);
3898: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3899: fnd_file.new_line(fnd_file.log,1);
3893:
3894: END IF;
3895: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3896: -- End of processing for person number
3897: fnd_message.set_token('PER_NUM',lv_person_number);
3898: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3899: fnd_file.new_line(fnd_file.log,1);
3900: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3901: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3894: END IF;
3895: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3896: -- End of processing for person number
3897: fnd_message.set_token('PER_NUM',lv_person_number);
3898: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3899: fnd_file.new_line(fnd_file.log,1);
3900: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3901: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3902: END IF;
3912: END IF;
3913:
3914: IF cur_award_std%NOTFOUND THEN
3915: CLOSE cur_award_std;
3916: fnd_message.set_name('IGF','IGF_DB_NO_AWARDS');
3917: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
3918: -- No Awards found for this Fund
3919: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3920: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3913:
3914: IF cur_award_std%NOTFOUND THEN
3915: CLOSE cur_award_std;
3916: fnd_message.set_name('IGF','IGF_DB_NO_AWARDS');
3917: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
3918: -- No Awards found for this Fund
3919: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3920: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3921: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','No award for fund '||get_fund_desc(p_fund_id));
3915: CLOSE cur_award_std;
3916: fnd_message.set_name('IGF','IGF_DB_NO_AWARDS');
3917: fnd_message.set_token('FDESC',get_fund_desc(p_fund_id));
3918: -- No Awards found for this Fund
3919: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
3920: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3921: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','No award for fund '||get_fund_desc(p_fund_id));
3922: END IF;
3923: ELSE
3927: IF award_std_rec.fed_fund_code NOT IN ('FWS','SPNSR') THEN
3928: LOOP
3929: lv_person_number := igf_gr_gen.get_per_num (award_std_rec.base_id);
3930:
3931: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3932: fnd_message.set_token('STDNT',lv_person_number);
3933: fnd_file.put_line(fnd_file.log,fnd_message.get);
3934:
3935: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3928: LOOP
3929: lv_person_number := igf_gr_gen.get_per_num (award_std_rec.base_id);
3930:
3931: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3932: fnd_message.set_token('STDNT',lv_person_number);
3933: fnd_file.put_line(fnd_file.log,fnd_message.get);
3934:
3935: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3936: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','starting processing '||lv_person_number);
3929: lv_person_number := igf_gr_gen.get_per_num (award_std_rec.base_id);
3930:
3931: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
3932: fnd_message.set_token('STDNT',lv_person_number);
3933: fnd_file.put_line(fnd_file.log,fnd_message.get);
3934:
3935: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3936: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','starting processing '||lv_person_number);
3937: END IF;
3938: --
3939: -- Check for Academic Holds, only if con job is run
3940: --
3941: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(award_std_rec.base_id)) = 'F' THEN
3942: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3943: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3944: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3945: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3946: END IF;
3939: -- Check for Academic Holds, only if con job is run
3940: --
3941: IF igf_aw_gen_005.get_stud_hold_effect('D',igf_gr_gen.get_person_id(award_std_rec.base_id)) = 'F' THEN
3942: fnd_message.set_name('IGF','IGF_AW_DISB_FUND_HOLD_FAIL');
3943: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3944: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3945: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','get_stud_hold_effect returned F');
3946: END IF;
3947: ELSE
3951: process_student(award_std_rec.base_id,lv_result,p_fund_id);
3952:
3953: END IF;
3954:
3955: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3956: -- End of processing for person number
3957: fnd_message.set_token('PER_NUM',lv_person_number);
3958: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3959: fnd_file.new_line(fnd_file.log,1);
3953: END IF;
3954:
3955: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3956: -- End of processing for person number
3957: fnd_message.set_token('PER_NUM',lv_person_number);
3958: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3959: fnd_file.new_line(fnd_file.log,1);
3960:
3961: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3954:
3955: fnd_message.set_name('IGF','IGF_DB_END_PROC_PER');
3956: -- End of processing for person number
3957: fnd_message.set_token('PER_NUM',lv_person_number);
3958: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3959: fnd_file.new_line(fnd_file.log,1);
3960:
3961: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3962: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','end processing '||lv_person_number);
3968: END LOOP;
3969: CLOSE cur_award_std;
3970:
3971: ELSE
3972: fnd_message.set_name('IGF','IGF_DB_NO_FWSS');
3973: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3974: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3975: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','unsupported fund type '||award_std_rec.fed_fund_code);
3976: END IF;
3969: CLOSE cur_award_std;
3970:
3971: ELSE
3972: fnd_message.set_name('IGF','IGF_DB_NO_FWSS');
3973: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
3974: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3975: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_db_disb.disb_process.debug','unsupported fund type '||award_std_rec.fed_fund_code);
3976: END IF;
3977: END IF;
3976: END IF;
3977: END IF;
3978: END IF;
3979: ELSE
3980: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3981: fnd_file.new_line(fnd_file.log,2);
3982: fnd_file.put_line(fnd_file.log,fnd_message.get);
3983: fnd_file.new_line(fnd_file.log,2);
3984: RAISE PARAM_EXCEPTION;
3978: END IF;
3979: ELSE
3980: fnd_message.set_name('IGF','IGF_AW_PARAM_ERR');
3981: fnd_file.new_line(fnd_file.log,2);
3982: fnd_file.put_line(fnd_file.log,fnd_message.get);
3983: fnd_file.new_line(fnd_file.log,2);
3984: RAISE PARAM_EXCEPTION;
3985:
3986: END IF;
3993: WHEN param_exception THEN
3994:
3995: ROLLBACK;
3996: retcode :=2;
3997: fnd_message.set_name('IGF','IGF_DB_PARAM_EX');
3998: igs_ge_msg_stack.add;
3999: igs_ge_msg_stack.conc_exception_hndl;
4000:
4001: WHEN app_exception.record_lock_exception THEN
4001: WHEN app_exception.record_lock_exception THEN
4002:
4003: ROLLBACK;
4004: retcode := 2;
4005: fnd_message.set_name('IGF','IGF_GE_LOCK_ERROR');
4006: igs_ge_msg_stack.add;
4007: errbuf := fnd_message.get;
4008:
4009: WHEN OTHERS THEN
4003: ROLLBACK;
4004: retcode := 2;
4005: fnd_message.set_name('IGF','IGF_GE_LOCK_ERROR');
4006: igs_ge_msg_stack.add;
4007: errbuf := fnd_message.get;
4008:
4009: WHEN OTHERS THEN
4010:
4011: ROLLBACK;
4009: WHEN OTHERS THEN
4010:
4011: ROLLBACK;
4012: retcode := 2;
4013: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
4014: fnd_file.put_line(fnd_file.log,SQLERRM);
4015: igs_ge_msg_stack.add;
4016: errbuf := fnd_message.get;
4017:
4012: retcode := 2;
4013: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
4014: fnd_file.put_line(fnd_file.log,SQLERRM);
4015: igs_ge_msg_stack.add;
4016: errbuf := fnd_message.get;
4017:
4018: END disb_process;
4019:
4020: