381: INTO lv_settled_flag;
382: CLOSE check_settled;
383:
384: IF(NVL(lv_settled_flag, 0) = 1) THEN
385: FND_FILE.PUT_LINE(FND_FILE.LOG,
386: 'Already run the settlement for this period.');
387: ELSE
388: -- get the precision
389: SELECT
438: IF (lv_jan = '01')
439: THEN
440: fbt_settlement_rec.projected_amount := ROUND(NVL(pn_projected_amount, 0), ln_precision);
441: ELSE
442: FND_FILE.PUT_LINE(FND_FILE.LOG,
443: 'Projected FBT Amount will be considered only for the period commencing from 01-JAN.');
444: END IF; -- (lv_jan = '01')
445: fbt_settlement_rec.settlement_date := SYSDATE;
446: fbt_settlement_rec.inv_supplier_id := pn_supplier_id;