[Home] [Help]
54: SET Used_Flag = 'YES'
55: WHERE ROWID = h.ROWID;
56:
57: IF SQL%NOTFOUND THEN
58: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgpr',
59: name => 'FA_DEPRN_FETCH_PROD',
60: p_log_level_rec => p_log_level_rec);
61: RAISE NO_DATA_FOUND;
62: END IF;
67: RETURN (TRUE);
68:
69: EXCEPTION
70: WHEN OTHERS THEN
71: fa_srvr_msg.add_sql_error(calling_fn => 'fa_cde_pkg.faxgpr', p_log_level_rec => p_log_level_rec);
72: RETURN (FALSE);
73: END FAXGPR;
74:
75: FUNCTION faxgtr (
95: WHEN NO_DATA_FOUND THEN
96: X_rate := 0;
97: RETURN (TRUE);
98: WHEN OTHERS THEN
99: fa_srvr_msg.add_sql_error(calling_fn => 'fa_cde_pkg.faxgtr', p_log_level_rec => p_log_level_rec);
100: RETURN (FALSE);
101: END FAXGTR;
102:
103: -- syoung: Take out remaining life calculation
375:
376: X_Success := 1;
377: EXCEPTION
378: WHEN NO_DATA_FOUND THEN
379: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
380: name => 'FA_FORMULA_RATE_NO_DATA_FOUND',
381: token1 => 'ASSET_ID',
382: value1 => TO_CHAR(X_Asset_Id),
383: p_log_level_rec => p_log_level_rec);
383: p_log_level_rec => p_log_level_rec);
384: X_rate := 0;
385: X_Success := -2;
386: WHEN ZERO_DIVIDE THEN
387: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
388: name => 'FA_FORMULA_RATE_ZERO_DIVIDE',
389: token1 => 'ASSET_ID',
390: value1 => TO_CHAR(X_Asset_Id),
391: p_log_level_rec => p_log_level_rec);
391: p_log_level_rec => p_log_level_rec);
392: X_rate := 0;
393: X_Success := 1;
394: WHEN cache_exception THEN
395: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
396: name => 'FA_SHARED_INVALID_METHOD_RATE',
397: p_log_level_rec => p_log_level_rec);
398: X_rate := 0;
399: X_Success := -7;
397: p_log_level_rec => p_log_level_rec);
398: X_rate := 0;
399: X_Success := -7;
400: WHEN rate_null_exception THEN
401: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
402: name => 'FA_FORMULA_RATE_NULL',
403: token1 => 'ASSET_ID',
404: value1 => TO_CHAR(X_Asset_Id),
405: p_log_level_rec => p_log_level_rec);
405: p_log_level_rec => p_log_level_rec);
406: X_rate := 0;
407: X_Success := -4;
408: WHEN rem_life_exception THEN
409: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
410: name => 'FA_FORMULA_RATE_LIFE',
411: token1 => 'ASSET_ID',
412: value1 => TO_CHAR(X_Asset_Id),
413: p_log_level_rec => p_log_level_rec);
413: p_log_level_rec => p_log_level_rec);
414: X_rate := 0;
415: X_Success := -5;
416: WHEN rate_neg_exception THEN
417: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxgfr',
418: name => 'FA_FORMULA_RATE_NEGATIVE',
419: token1 => 'ASSET_ID',
420: value1 => TO_CHAR(ROUND(X_Rate, 5)),
421: p_log_level_rec => p_log_level_rec);
421: p_log_level_rec => p_log_level_rec);
422: X_rate := 0;
423: X_Success := 1;
424: WHEN OTHERS THEN
425: fa_srvr_msg.add_sql_error(calling_fn => 'fa_cde_pkg.faxgfr',
426: p_log_level_rec => p_log_level_rec);
427: X_rate := 0;
428: X_Success := 0;
429: END FAXGFR;
580: last_pro_cal := fa_cache_pkg.fazcbc_record.PRORATE_CALENDAR;
581: last_divide_evenly_flag := SUBSTR (fa_cache_pkg.fazcbc_record.DEPRN_ALLOCATION_CODE,1,1) = 'E';
582:
583: IF NOT fa_cache_pkg.fazcct (last_pro_cal, p_log_level_rec => p_log_level_rec) THEN
584: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
585: RETURN (FALSE);
586: END IF;
587:
588: p_pers_per_yr := fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR;
587:
588: p_pers_per_yr := fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR;
589:
590: IF NOT fa_cache_pkg.fazcct (X_dpr.calendar_type, p_log_level_rec => p_log_level_rec) THEN
591: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
592: RETURN (FALSE);
593: END IF;
594: END IF;
595:
613: X_dpr.book,
614: X_y_begin,
615: h_p_period_fracs,
616: p_log_level_rec) THEN
617: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
618: RETURN (FALSE);
619: END IF;
620:
621: IF NOT fa_cache_pkg.fazcff(X_dpr.calendar_type,
622: X_dpr.book,
623: X_y_begin,
624: h_d_period_fracs,
625: p_log_level_rec) THEN
626: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
627: RETURN (FALSE);
628: END IF;
629:
630: X_by_frac := 0;
646: X_bp_frac := h_by_dfrac - h_b_temp;
647:
648: IF X_rate_source_rule = 'TABLE' THEN
649: IF h_by_dfrac <= 0 THEN
650: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcfyf',
651: name => 'FA_DEPRN_ILLEGAL_VALUE',
652: token1 => 'VARIABLE',
653: value1 => 'BY_DFRAC',
654: token2 => 'VALUE',
661: X_by_factor := 1/h_by_dfrac;
662:
663: ELSIF X_rate_source_rule = 'FLAT' THEN
664: IF h_by_dfrac <= 0 THEN
665: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcfyf',
666: name => 'FA_DEPRN_ILLEGAL_VALUE',
667: token1 => 'VARIABLE',
668: value1 => 'BY_DFRAC',
669: token2 => 'VALUE',
677:
678: ELSIF X_rate_source_rule IN ('PRODUCTION','CALCULATED', 'FORMULA') THEN
679: X_by_factor := 1;
680: ELSE
681: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf.switch', p_log_level_rec => p_log_level_rec);
682: RETURN(FALSE);
683: END IF;
684:
685: IF X_y_ret <> 0 THEN
707: X_dpr.book,
708: X_y_ret,
709: h_p_period_fracs,
710: p_log_level_rec) THEN
711: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
712: RETURN (FALSE);
713: END IF;
714:
715: -- Bug#4953366: if not fa_cache_pkg.fazcff (X_dpr.calendar_type, X_dpr.book, X_y_ret,
717: X_dpr.book,
718: h_cur_fy,
719: h_d_period_fracs,
720: p_log_level_rec) THEN
721: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
722: RETURN (FALSE);
723: END IF;
724:
725: --Bug# 8620551 - Added the conditon to check for daily prorate and first period.
767: END IF;
768:
769: IF X_y_ret = X_y_begin THEN
770: IF X_by_frac <= 0 THEN
771: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcfyf',
772: name => 'FA_DEPRN_ILLEGAL_VALUE',
773: token1 => 'VARIABLE',
774: value1 => 'BY_FRAC',
775: token2 => 'VALUE',
814: X_dpr.book,
815: X_y_dead,
816: h_p_period_fracs,
817: p_log_level_rec) THEN
818: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
819: RETURN (FALSE);
820: END IF;
821:
822: IF NOT fa_cache_pkg.fazcff(X_dpr.calendar_type,
823: X_dpr.book,
824: X_y_dead,
825: h_d_period_fracs,
826: p_log_level_rec) THEN
827: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
828: RETURN (FALSE);
829: END IF;
830:
831: -- Fixed loop ctr usage here - changed i to i-1
872: RETURN (TRUE);
873:
874: EXCEPTION
875: WHEN OTHERS THEN
876: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faxcfyf', p_log_level_rec => p_log_level_rec);
877: RETURN (FALSE);
878: END FAXCFYF;
879:
880: /*
1442:
1443: IF NOT fa_cache_pkg.fazccmt(dpr_in.method_code,
1444: dpr_in.life,
1445: p_log_level_rec => p_log_level_rec) THEN
1446: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1447: RETURN (FALSE);
1448: END IF;
1449:
1450: method_id := fa_cache_pkg.fazccmt_record.method_id;
1484: table_rate_src_flag OR
1485: flat_rate_src_flag OR
1486: formula_rate_src_flag) THEN
1487:
1488: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
1489: name => 'FA_SHARED_NO_RATE_SOURCE_RULE',
1490: TRANSLATE => FALSE,
1491: p_log_level_rec => p_log_level_rec);
1492: RETURN (FALSE);
1497: nbv_deprn_basis_flag := (deprn_basis_rule = 'NBV');
1498:
1499: IF NOT (cost_deprn_basis_flag OR nbv_deprn_basis_flag) THEN
1500:
1501: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
1502: name => 'FA_SHARED_NO_DEPRN_BASIS_RULE',
1503: TRANSLATE => FALSE,
1504: p_log_level_rec => p_log_level_rec);
1505: RETURN (FALSE);
1510: table_rate_src_flag OR
1511: formula_rate_src_flag OR -- ENERGY
1512: prod_rate_src_flag) THEN -- ENERGY
1513:
1514: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
1515: name => 'FA_SHARED_NBV_NOT_FLAT',
1516: TRANSLATE => FALSE,
1517: p_log_level_rec => p_log_level_rec);
1518: RETURN (FALSE);
1561: --
1562: -- Get the number of periods per year in the depreciation calendar
1563: --
1564: IF NOT fa_cache_pkg.fazcct(dpr_in.calendar_type, p_log_level_rec => p_log_level_rec) THEN
1565: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1566: RETURN (FALSE);
1567: END IF;
1568:
1569: perds_per_yr_dcal := fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR;
1571: --
1572: -- Get the number of periods per year in the rate calendar
1573: --
1574: IF NOT fa_cache_pkg.fazcct(prorate_calendar, p_log_level_rec => p_log_level_rec) THEN
1575: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1576: RETURN (FALSE);
1577: END IF;
1578:
1579: perds_per_yr_pcal := fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR;
1602: deprn_period_dcal_begin,
1603: deprn_year_dcal_begin,
1604: h_dummy,
1605: p_log_level_rec => p_log_level_rec) THEN
1606: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1607: RETURN (FALSE);
1608: END IF;
1609:
1610: --
1617: , deprn_period_pcal_begin
1618: , deprn_year_pcal_begin
1619: , h_dummy
1620: , p_log_level_rec => p_log_level_rec) THEN
1621: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1622: RETURN (FALSE);
1623: END IF;
1624:
1625: --
1631: , prorate_period_pcal_begin
1632: , prorate_year_pcal_begin
1633: , h_dummy
1634: , p_log_level_rec => p_log_level_rec) THEN
1635: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1636: RETURN (FALSE);
1637: END IF;
1638:
1639: IF deprn_year_dcal_begin < prorate_year_pcal_begin THEN
1664: , ret_period_dcal
1665: , ret_year_pcal
1666: , h_dummy
1667: , p_log_level_rec => p_log_level_rec) THEN
1668: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1669: RETURN (FALSE);
1670: END IF;
1671:
1672: -- assign y_ret to fy_ret as it gets overwritten in next call
1679: , ret_period_pcal
1680: , ret_year_pcal
1681: , h_dummy
1682: , p_log_level_rec => p_log_level_rec) THEN
1683: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1684: RETURN (FALSE);
1685: END IF;
1686:
1687: IF NOT fa_cache_pkg.fazccp(prorate_calendar
1690: , ret_prorate_period_pcal
1691: , ret_year_pcal
1692: , h_dummy
1693: , p_log_level_rec => p_log_level_rec) THEN
1694: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1695: RETURN (FALSE);
1696: END IF;
1697: ELSE
1698: ret_period_dcal := 0;
1734: , h_dummy_dpr
1735: , dpr_out
1736: , fmode
1737: , p_log_level_rec => p_log_level_rec) THEN
1738: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1739: RETURN (FALSE);
1740: END IF;
1741:
1742: dpr_in.rsv_known_flag := TRUE;
1845: , ret_year_frac
1846: , prd_flag
1847: , p_log_level_rec => p_log_level_rec) THEN
1848:
1849: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1850: RETURN (FALSE);
1851: END IF;
1852:
1853: ann_rounding_mode:= fadgpoar();
1947: , dpr.book
1948: , fyctr
1949: , perds_fracs_arr
1950: , p_log_level_rec => p_log_level_rec) THEN
1951: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
1952: RETURN (FALSE);
1953: END IF;
1954:
1955: IF (p_log_level_rec.statement_level) THEN
2027: , dpr_out.bonus_rate_used
2028: , dpr_out.deprn_factor_used
2029: , dpr_out.alternate_deprn_factor_used
2030: , p_log_level_rec) THEN
2031: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
2032: RETURN (FALSE);
2033: END IF;
2034:
2035: ELSE
2080: IF dpr_cur_fy_flag AND (calc_rate_src_flag) THEN
2081: -- Calculate the rate for Straight-Line Depreciation --
2082:
2083: IF (dpr.life < 1) THEN
2084: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde'
2085: , name => 'FA_DEPRN_ILLEGAL_VALUE'
2086: , token1 => 'VARIABLE'
2087: , value1 => 'Life'
2088: , token2 => 'VALUE'
2112: , fyctr - prorate_year_pcal_begin + 1
2113: , prorate_period_pcal_begin
2114: , ann_deprn_rate
2115: , p_log_level_rec) THEN
2116: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
2117: RETURN (FALSE);
2118: END IF;
2119:
2120: ELSIF (dpr_cur_fy_flag AND formula_rate_src_flag) THEN
2184: formula_rate_src_flag := (rate_source_rule = 'FORMULA');
2185: END IF;
2186:
2187: IF (success <= 0) THEN
2188: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
2189: RETURN (FALSE);
2190: END IF;
2191:
2192: ELSIF (dpr_cur_fy_flag AND flat_rate_src_flag) THEN
2291: --
2292: -- Check that RAF is between 0 and 1
2293: --
2294: IF dpr.rate_adj_factor NOT BETWEEN 0 AND 1 THEN
2295: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
2296: name => 'FA_DEPRN_ILLEGAL_VALUE',
2297: token1 => 'VARIABLE',
2298: value1 => 'Rate_Adjustment_Factor',
2299: token2 => 'VALUE',
2440: dpr.jdate_in_service,
2441: fyctr - prorate_year_pcal_begin + 1,
2442: deprn_ceiling_amt,
2443: p_log_level_rec) THEN
2444: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
2445: RETURN (FALSE);
2446: END IF;
2447:
2448: END IF;
3186: , dpr.rec_cost
3187: , dpr.override_period_counter
3188: , p_log_level_rec) THEN
3189:
3190: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faooda', p_log_level_rec => p_log_level_rec);
3191: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
3192: RETURN(FALSE);
3193:
3194: END IF;
3199: END IF;
3200:
3201: -- Bug#7953789 - start
3202: if return_code = 2 then
3203: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faooda', p_log_level_rec => p_log_level_rec);
3204: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
3205: end if;
3206: -- Bug#7953789 end
3207:
3344: h_dummy_dpr,
3345: dpr_out,
3346: fmode,
3347: p_log_level_rec => p_log_level_rec) THEN
3348: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
3349: RETURN (FALSE);
3350: END IF;
3351: perd_deprn_exp := actual_annual_deprn_amt - dpr_out.deprn_exp;
3352: END IF;
3371:
3372: END IF; -- ann_rounding_mode=ROUND_ALWAYS then
3373:
3374: ELSE
3375: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3376: name => 'FA_DEPRN_ILLEGAL_VALUE',
3377: token1 => 'VARIABLE',
3378: value1 => 'Deprn_Rounding_Flag',
3379: token2 => 'VALUE',
3409: period_fracs_single,
3410: deprn_projecting_flag,
3411: perd_prod,
3412: p_log_level_rec) THEN
3413: fa_srvr_msg.add_message ( calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
3414: RETURN (FALSE);
3415: END IF;
3416:
3417: IF dpr.rate_adj_factor <= 0 THEN
3414: RETURN (FALSE);
3415: END IF;
3416:
3417: IF dpr.rate_adj_factor <= 0 THEN
3418: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3419: name => 'FA_DEPRN_ILLEGAL_VALUE',
3420: token1 => 'VARIABLE',
3421: value1 => 'Rate_Adjustment_Factor',
3422: token2 => 'VALUE',
3426: RETURN (FALSE);
3427: END IF;
3428:
3429: IF dpr.capacity <= 0 THEN
3430: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3431: name => 'FA_DEPRN_ILLEGAL_VALUE',
3432: token1 => 'VARIABLE',
3433: value1 => 'Capacity',
3434: token2 => 'VALUE',
3458: prod_life_complete := 'N';
3459: END;
3460:
3461: IF prod_life_complete = 'N' then
3462: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3463: name => 'FA_DEPRN_ILLEGAL_VALUE',
3464: token1 => 'VARIABLE',
3465: value1 => 'Adjusted_Capacity',
3466: token2 => 'VALUE',
3512: -- Round perd_deprn_exp ONLY if Projecting
3513: --
3514:
3515: IF NOT fa_utils_pkg.faxrnd(perd_deprn_exp, dpr.book, dpr.set_of_books_id, p_log_level_rec => p_log_level_rec) THEN
3516: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
3517: RETURN (FALSE);
3518: END IF;
3519:
3520: -- bonus: Assignment to perd_bonus_deprn_amount earlier should be checked.
3518: END IF;
3519:
3520: -- bonus: Assignment to perd_bonus_deprn_amount earlier should be checked.
3521: IF NOT fa_utils_pkg.faxrnd(perd_bonus_deprn_amount, dpr.book, dpr.set_of_books_id, p_log_level_rec => p_log_level_rec) THEN
3522: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
3523: RETURN (FALSE);
3524: END IF;
3525:
3526: END IF; -- (deprn_projecting_flag or
3806: * (1 - dpr.cost_frac))
3807: + NVL(perd_deprn_exp,0) + NVL(year_deprn_exp,0);
3808:
3809: IF NOT fa_utils_pkg.faxrnd(l_adjusted_rsv_absval, dpr.book, dpr.set_of_books_id, p_log_level_rec) THEN
3810: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
3811: RETURN (FALSE);
3812: END IF;
3813:
3814: IF (p_log_level_rec.statement_level) THEN
3837: IF (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) AND
3838: (adj_rec_cost_absval < rsv_absval) AND
3839: NOT (deprn_projecting_flag) THEN
3840:
3841: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3842: name => 'FA_OVER_DEPRN_LIMIT',
3843: TRANSLATE=> FALSE, p_log_level_rec => p_log_level_rec);
3844: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
3845: RETURN(FALSE);
3871: IF NOT dpr_cur_fy_flag THEN
3872:
3873: IF deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE THEN
3874:
3875: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3876: name => 'FA_NO_DEPRECIATION',
3877: TRANSLATE => FALSE,
3878: p_log_level_rec => p_log_level_rec);
3879: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4216: px_new_raf => dpr.rate_adj_factor,
4217: px_new_formula_factor => dpr.formula_factor,
4218: x_annual_deprn_rounding_flag => dpr.deprn_rounding_flag,
4219: p_log_level_rec => p_log_level_rec)) THEN
4220: fa_srvr_msg.add_message (calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
4221: RETURN (FALSE);
4222: END IF;
4223: ELSE
4224: IF (p_log_level_rec.statement_level) THEN
4670: RETURN (TRUE);
4671:
4672: EXCEPTION
4673: WHEN OTHERS THEN
4674: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faxcde', p_log_level_rec => p_log_level_rec);
4675: RETURN (FALSE);
4676:
4677: END FAXCDE;
4678:
4734: RETURN (TRUE);
4735:
4736: EXCEPTION
4737: WHEN OTHERS THEN
4738: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faprds', p_log_level_rec => p_log_level_rec);
4739: RETURN (FALSE);
4740:
4741: END FAPRDS;
4742:
4779: RETURN (TRUE);
4780:
4781: EXCEPTION
4782: WHEN OTHERS THEN
4783: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faprdos', p_log_level_rec => p_log_level_rec);
4784: RETURN (FALSE);
4785: END FAPRDOS;
4786:
4787: FUNCTION fadgpoar RETURN INTEGER IS
5019:
5020: -- Data Validation for manual override feature
5021: IF (NVL(bonus_rule,'NONE') = 'NONE' AND override_bonus_amt IS NOT NULL) THEN
5022: -- need to raise an error even for projection because projection needs to output the bonus account on the report.
5023: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faodda',
5024: name => 'FA_NO_BONUS_RULE',
5025: TRANSLATE => FALSE,
5026: p_log_level_rec => p_log_level_rec);
5027: return_code:= 3;
5175: return(TRUE);
5176: --Bug#7953789 - end
5177:
5178: WHEN faodda_err THEN
5179: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5180: RETURN(FALSE);
5181:
5182: WHEN NO_DATA_FOUND THEN
5183: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
5186:
5187: WHEN OTHERS THEN
5188: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
5189: return_code:= 6;
5190: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5191: RETURN(TRUE);
5192:
5193: END FAODDA;
5194:
5329: X_new_deprn_amount => h_new_deprn_amount,
5330: X_new_bonus_amount => h_new_bonus_amount,
5331: p_log_level_rec => p_log_level_rec);
5332: IF x_ret_code <> 0 THEN
5333: fa_srvr_msg.add_message (calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5334: RETURN (FALSE);
5335: ELSE
5336: IF (p_log_level_rec.statement_level) THEN
5337: fa_debug_pkg.ADD(l_calling_fn, 'new_deprn_amount ', h_new_deprn_amount, p_log_level_rec => p_log_level_rec);
5385: X_life_complete_flag => h_life_complete_flag,
5386: X_fully_reserved_flag => h_fully_reserved_flag,
5387: p_log_level_rec => p_log_level_rec);
5388: IF x_ret_code <> 0 THEN
5389: fa_srvr_msg.add_message (calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5390: RETURN (FALSE);
5391: ELSE
5392: IF NVL(h_life_complete_flag,'N') = 'Y' THEN
5393: x_life_complete_flag := TRUE;
5411: RETURN(TRUE);
5412:
5413: EXCEPTION
5414: WHEN OTHERS THEN
5415: fa_srvr_msg.add_message (calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5416: RETURN(TRUE);
5417:
5418: END FATRKM;
5419:
5522: X_Success := 1;
5523:
5524: EXCEPTION
5525: WHEN faxgpolr_err THEN
5526: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faxgpolr', p_log_level_rec => p_log_level_rec);
5527: X_rate := 0;
5528: X_Success := 0;
5529:
5530: WHEN OTHERS THEN
5527: X_rate := 0;
5528: X_Success := 0;
5529:
5530: WHEN OTHERS THEN
5531: fa_srvr_msg.add_sql_error (calling_fn => 'fa_cde_pkg.faxgpolr', p_log_level_rec => p_log_level_rec);
5532: X_rate := 0;
5533: X_Success := 0;
5534:
5535: END faxgpolr;