[Home] [Help]
338: l_Trans_Rec VARCHAR2(4000) := NULL; -- ## Variable to store the Disbursement Detail Record
339: l_Rec_count NUMBER := 0; -- ## Variable to store the Record Count
340: l_orig_fee_perct_stafford igf_sl_dl_setup.orig_fee_perct_stafford%TYPE;
341: l_orig_fee_perct_plus igf_sl_dl_setup.orig_fee_perct_plus%TYPE;
342: l_int_rebate_amt igf_aw_awd_disb.fee_1%TYPE; -- This field's data type is similar to Fees.
343:
344: -- ## Cursor to Retrieve the disbursements being credited to the Students Account
345:
346: CURSOR cur_disb_dtl IS
379: AND fmast.fund_code = fcat.fund_code;
380:
381: CURSOR cur_min_disb_num (cp_award_id igf_aw_award_all.award_id%TYPE) IS
382: SELECT MIN(disb_num)
383: FROM igf_aw_awd_disb
384: WHERE award_id = cp_award_id;
385:
386:
387: CURSOR cur_get_prev_date (cp_award_id igf_aw_db_chg_dtls.award_id%TYPE,
434:
435: --Interest Rebate = Net Disb Amt - (Gross Disb- Loan Fee)
436: --Loan Fee Amount = orig fee perct (PLUS or STAFFORD) * Gross Disb
437: --Using this Formula the Interest Rebate Amount was being calculated.
438: --Since this interest rebate amount is available in the IGF_AW_AWD_DISB
439: --we can make use of the same instead of re-calculating here.
440: --Hence removing code which calculated the value and using same from IGF_AW_AWD_DISB.
441:
442: l_int_rebate_amt := lcur_disb_dtl.interest_rebate_amt;
436: --Loan Fee Amount = orig fee perct (PLUS or STAFFORD) * Gross Disb
437: --Using this Formula the Interest Rebate Amount was being calculated.
438: --Since this interest rebate amount is available in the IGF_AW_AWD_DISB
439: --we can make use of the same instead of re-calculating here.
440: --Hence removing code which calculated the value and using same from IGF_AW_AWD_DISB.
441:
442: l_int_rebate_amt := lcur_disb_dtl.interest_rebate_amt;
443:
444: l_Trans_Rec := RPAD(NVL(lcur_disb_dtl.loan_number,' '),21) ||