eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FA_CDE_PKG dependencies on FA_STD_TYPES

Line 16: X_dpr_ptr fa_std_types.dpr_struct

12:
13:
14:
15: Function faxgpr (
16: X_dpr_ptr fa_std_types.dpr_struct
17: ,X_period fa_std_types.fa_cp_struct
18: ,X_projecting_flag BOOLEAN
19: ,X_prodn in out nocopy NUMBER,
20: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)

Line 17: ,X_period fa_std_types.fa_cp_struct

13:
14:
15: Function faxgpr (
16: X_dpr_ptr fa_std_types.dpr_struct
17: ,X_period fa_std_types.fa_cp_struct
18: ,X_projecting_flag BOOLEAN
19: ,X_prodn in out nocopy NUMBER,
20: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
21:

Line 518: X_dpr in out nocopy fa_std_types.dpr_struct

514: return (FALSE);
515: END faxgrl;
516:
517: Function faxcfyf (
518: X_dpr in out nocopy fa_std_types.dpr_struct
519: ,X_d_pers_per_yr number
520: ,X_rate_source_rule varchar2
521: ,X_y_begin number
522: ,X_y_dead number

Line 544: h_p_period_fracs fa_std_types.table_fa_cp_struct;

540: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
541: return boolean is
542: h_by_dfrac number;
543: h_dy_dfrac number;
544: h_p_period_fracs fa_std_types.table_fa_cp_struct;
545: h_d_period_fracs fa_std_types.table_fa_cp_struct;
546: h_ctr number;
547: h_b_temp number;
548: h_d_temp number;

Line 545: h_d_period_fracs fa_std_types.table_fa_cp_struct;

541: return boolean is
542: h_by_dfrac number;
543: h_dy_dfrac number;
544: h_p_period_fracs fa_std_types.table_fa_cp_struct;
545: h_d_period_fracs fa_std_types.table_fa_cp_struct;
546: h_ctr number;
547: h_b_temp number;
548: h_d_temp number;
549: h_r_temp number;

Line 766: X_dy_frac * X_d_pers_per_yr,fa_std_types.FA_ROUND_DECIMAL));

762: if p_pers_per_yr = X_d_pers_per_yr then
763: X_dp_d_ptr := X_pp_dead;
764: else
765: X_dp_d_ptr := ceil ( round (
766: X_dy_frac * X_d_pers_per_yr,fa_std_types.FA_ROUND_DECIMAL));
767: end if;
768:
769: h_d_temp := (X_dp_d_ptr - 1) / X_d_pers_per_yr;
770: else

Line 796: fa_std_types.FA_ROUND_DECIMAL) >= round (

792: h_d_temp := 0;
793: for i in 1..X_d_pers_per_yr loop
794: h_ctr := i;
795: if round (h_d_temp+h_d_period_fracs(i-1).frac,
796: fa_std_types.FA_ROUND_DECIMAL) >= round (
797: X_dy_frac,fa_std_types.FA_ROUND_DECIMAL) then
798: exit;
799: end if;
800: h_d_temp := h_d_temp + h_d_period_fracs(i-1).frac;

Line 797: X_dy_frac,fa_std_types.FA_ROUND_DECIMAL) then

793: for i in 1..X_d_pers_per_yr loop
794: h_ctr := i;
795: if round (h_d_temp+h_d_period_fracs(i-1).frac,
796: fa_std_types.FA_ROUND_DECIMAL) >= round (
797: X_dy_frac,fa_std_types.FA_ROUND_DECIMAL) then
798: exit;
799: end if;
800: h_d_temp := h_d_temp + h_d_period_fracs(i-1).frac;
801: end loop;

Line 1115: FUNCTION faxcde ( dpr_in in out nocopy fa_std_types.dpr_struct

1111:
1112: **
1113: */
1114:
1115: FUNCTION faxcde ( dpr_in in out nocopy fa_std_types.dpr_struct
1116: , dpr_arr in out nocopy fa_std_types.dpr_arr_type
1117: , dpr_out in out nocopy fa_std_types.dpr_out_struct
1118: , fmode number
1119: , p_ind binary_integer default 0

Line 1116: , dpr_arr in out nocopy fa_std_types.dpr_arr_type

1112: **
1113: */
1114:
1115: FUNCTION faxcde ( dpr_in in out nocopy fa_std_types.dpr_struct
1116: , dpr_arr in out nocopy fa_std_types.dpr_arr_type
1117: , dpr_out in out nocopy fa_std_types.dpr_out_struct
1118: , fmode number
1119: , p_ind binary_integer default 0
1120: ,p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)

Line 1117: , dpr_out in out nocopy fa_std_types.dpr_out_struct

1113: */
1114:
1115: FUNCTION faxcde ( dpr_in in out nocopy fa_std_types.dpr_struct
1116: , dpr_arr in out nocopy fa_std_types.dpr_arr_type
1117: , dpr_out in out nocopy fa_std_types.dpr_out_struct
1118: , fmode number
1119: , p_ind binary_integer default 0
1120: ,p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1121: return boolean is

Line 1125: dpr fa_std_types.dpr_struct;

1121: return boolean is
1122:
1123: l_calling_fn varchar2(20) := 'faxcde';
1124:
1125: dpr fa_std_types.dpr_struct;
1126: dpr_sub fa_std_types.dpr_struct;
1127: fy_fully_rsv number(5);
1128: fy_fully_rsv_1 number;
1129: deprn_perd_fully_rsv number;

Line 1126: dpr_sub fa_std_types.dpr_struct;

1122:
1123: l_calling_fn varchar2(20) := 'faxcde';
1124:
1125: dpr fa_std_types.dpr_struct;
1126: dpr_sub fa_std_types.dpr_struct;
1127: fy_fully_rsv number(5);
1128: fy_fully_rsv_1 number;
1129: deprn_perd_fully_rsv number;
1130: prate_perd_fully_rsv number;

Line 1192: period_fracs_single fa_std_types.fa_cp_struct;

1188: last_perd_frac number;
1189: last_year_frac number;
1190: ret_perd_frac number;
1191: ret_year_frac number;
1192: period_fracs_single fa_std_types.fa_cp_struct;
1193: perds_fracs_arr fa_std_types.table_fa_cp_struct;
1194: nbv_absval number;
1195: rec_cost_absval number;
1196: adj_rec_cost_absval number;

Line 1193: perds_fracs_arr fa_std_types.table_fa_cp_struct;

1189: last_year_frac number;
1190: ret_perd_frac number;
1191: ret_year_frac number;
1192: period_fracs_single fa_std_types.fa_cp_struct;
1193: perds_fracs_arr fa_std_types.table_fa_cp_struct;
1194: nbv_absval number;
1195: rec_cost_absval number;
1196: adj_rec_cost_absval number;
1197: rsv_absval number;

Line 1238: h_dummy_dpr fa_std_types.dpr_arr_type;

1234: prior_fy_bonus_exp_sum number;
1235: excl_sal_val_flag boolean;
1236: ann_rounding_mode integer;
1237: h_dummy number;
1238: h_dummy_dpr fa_std_types.dpr_arr_type;
1239: h_dummy_bool boolean;
1240: success integer;
1241: ceiling_diff_amt number;
1242: deprn_override_flag varchar2(1);

Line 1466: deprn_projecting_flag := (fmode = fa_std_types.FA_DPR_PROJECT);

1462: use_deprn_limit_flag := FALSE;
1463: adj_rec_cost := dpr_in.rec_cost;
1464: end if;
1465:
1466: deprn_projecting_flag := (fmode = fa_std_types.FA_DPR_PROJECT);
1467:
1468: --
1469: -- Get the following information from the FA_BOOK_CONTROLS cache
1470: -- 1. Rate Calendar

Line 1482: fa_std_types.FA_DEF_NBV_FRAC);

1478: -- BUG# 4027981 - use the mrc enabled cache for nbv_amount_threshold
1479:
1480: prorate_calendar := fa_cache_pkg.fazcbc_record.PRORATE_CALENDAR;
1481: nbv_frac_thresh := nvl(fa_cache_pkg.fazcbc_record.NBV_FRACTION_THRESHOLD,
1482: fa_std_types.FA_DEF_NBV_FRAC);
1483: nbv_amt_thresh := nvl(fa_cache_pkg.fazcbcs_record.NBV_AMOUNT_THRESHOLD,
1484: fa_std_types.FA_DEF_NBV_AMT);
1485: amo_reval_rsv_flag :=
1486: (fa_cache_pkg.fazcbc_record.AMORTIZE_REVAL_RESERVE_FLAG = 'YES');

Line 1484: fa_std_types.FA_DEF_NBV_AMT);

1480: prorate_calendar := fa_cache_pkg.fazcbc_record.PRORATE_CALENDAR;
1481: nbv_frac_thresh := nvl(fa_cache_pkg.fazcbc_record.NBV_FRACTION_THRESHOLD,
1482: fa_std_types.FA_DEF_NBV_FRAC);
1483: nbv_amt_thresh := nvl(fa_cache_pkg.fazcbcs_record.NBV_AMOUNT_THRESHOLD,
1484: fa_std_types.FA_DEF_NBV_AMT);
1485: amo_reval_rsv_flag :=
1486: (fa_cache_pkg.fazcbc_record.AMORTIZE_REVAL_RESERVE_FLAG = 'YES');
1487: fy_name := fa_cache_pkg.fazcbc_record.FISCAL_YEAR_NAME;
1488: cur_fy := fa_cache_pkg.fazcbc_record.CURRENT_FISCAL_YEAR;

Line 1798: if nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <>

1794:
1795: --
1796: -- Override depreciation functionality
1797: --
1798: if nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <>
1799: fa_std_types.FA_OVERRIDE_RECURSIVE then
1800: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
1801: end if;
1802:

Line 1799: fa_std_types.FA_OVERRIDE_RECURSIVE then

1795: --
1796: -- Override depreciation functionality
1797: --
1798: if nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <>
1799: fa_std_types.FA_OVERRIDE_RECURSIVE then
1800: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
1801: end if;
1802:
1803: -- Loop over all requested Fiscal Years --

Line 1800: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

1796: -- Override depreciation functionality
1797: --
1798: if nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <>
1799: fa_std_types.FA_OVERRIDE_RECURSIVE then
1800: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
1801: end if;
1802:
1803: -- Loop over all requested Fiscal Years --
1804: --

Line 2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,

2048:
2049: elsif (dpr_cur_fy_flag and flat_rate_src_flag) then
2050:
2051: -- Bug 3187975. If Polish method, use special rate logic
2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,
2053: FA_STD_TYPES.FAD_DBR_POLISH_2,
2054: FA_STD_TYPES.FAD_DBR_POLISH_3,
2055: FA_STD_TYPES.FAD_DBR_POLISH_4,
2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then

Line 2053: FA_STD_TYPES.FAD_DBR_POLISH_2,

2049: elsif (dpr_cur_fy_flag and flat_rate_src_flag) then
2050:
2051: -- Bug 3187975. If Polish method, use special rate logic
2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,
2053: FA_STD_TYPES.FAD_DBR_POLISH_2,
2054: FA_STD_TYPES.FAD_DBR_POLISH_3,
2055: FA_STD_TYPES.FAD_DBR_POLISH_4,
2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then
2057:

Line 2054: FA_STD_TYPES.FAD_DBR_POLISH_3,

2050:
2051: -- Bug 3187975. If Polish method, use special rate logic
2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,
2053: FA_STD_TYPES.FAD_DBR_POLISH_2,
2054: FA_STD_TYPES.FAD_DBR_POLISH_3,
2055: FA_STD_TYPES.FAD_DBR_POLISH_4,
2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then
2057:
2058: l_rate := dpr.adj_rate;

Line 2055: FA_STD_TYPES.FAD_DBR_POLISH_4,

2051: -- Bug 3187975. If Polish method, use special rate logic
2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,
2053: FA_STD_TYPES.FAD_DBR_POLISH_2,
2054: FA_STD_TYPES.FAD_DBR_POLISH_3,
2055: FA_STD_TYPES.FAD_DBR_POLISH_4,
2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then
2057:
2058: l_rate := dpr.adj_rate;
2059:

Line 2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then

2052: if (l_polish_rule in (FA_STD_TYPES.FAD_DBR_POLISH_1,
2053: FA_STD_TYPES.FAD_DBR_POLISH_2,
2054: FA_STD_TYPES.FAD_DBR_POLISH_3,
2055: FA_STD_TYPES.FAD_DBR_POLISH_4,
2056: FA_STD_TYPES.FAD_DBR_POLISH_5)) then
2057:
2058: l_rate := dpr.adj_rate;
2059:
2060: fa_cde_pkg.faxgpolr (

Line 2157: rate_adj_factor := fa_std_types.FA_DPR_SMALL_RAF;

2153: --
2154: -- If RAF = 0, then use a very small RAF
2155: -- so we don't divide by zero
2156: --
2157: rate_adj_factor := fa_std_types.FA_DPR_SMALL_RAF;
2158: else
2159: rate_adj_factor := dpr.rate_adj_factor;
2160: end if;
2161: --code fix for bug no.3909805. dpr.formula_factor can have null value.

Line 2447: -- Added condition dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE

2443: --
2444: -- Bug 3270280
2445: -- if ret_fy_flag then
2446: -- Bug3961991
2447: -- Added condition dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE
2448: -- so that following condition will not be true during recursive call.
2449: if ((ret_fy_flag) and (NOT depr_last_year_flag) or (ret_fy_flag and first_fy_flag))
2450: and dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE then
2451:

Line 2450: and dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE then

2446: -- Bug3961991
2447: -- Added condition dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE
2448: -- so that following condition will not be true during recursive call.
2449: if ((ret_fy_flag) and (NOT depr_last_year_flag) or (ret_fy_flag and first_fy_flag))
2450: and dpr_in.deprn_override_flag <> fa_std_types.FA_OVERRIDE_RECURSIVE then
2451:
2452: deprn_start_perd := ret_period_dcal;
2453: deprn_end_perd := ret_period_dcal;
2454:

Line 2511: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

2507: -- Commented out and moved period loop for period update method
2508: -- This is the point where for loop for each period located
2509: -- for perd_ctr in deprn_start_perd .. deprn_end_perd loop
2510: -- ************************************************************
2511: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
2512:
2513: --
2514: -- actual_deprn_start_perd is the first period in this fy
2515: -- for which the depreciation can be non-zero.

Line 2672: nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <> fa_std_types.FA_OVERRIDE_RECURSIVE then

2668: fa_debug_pkg.add('faxcde', 'FA_DEPRN_OVERRIDE_ENABLED', value, p_log_level_rec);
2669: end if;
2670:
2671: if value = 'Y' and
2672: nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE) <> fa_std_types.FA_OVERRIDE_RECURSIVE then
2673: l_bonus_ytd_deprn := 0;
2674:
2675: if fyctr = dpr.y_begin then
2676: l_ytd_deprn := dpr_in.ytd_deprn;

Line 2715: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

2711: , p_log_level_rec) then
2712:
2713: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faooda',
2714: p_log_level_rec => p_log_level_rec);
2715: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
2716: return(FALSE);
2717:
2718: end if;
2719:

Line 2747: -- dpr.deprn_rounding_flag:= fa_std_types.FA_DPR_ROUND_RES;

2743: --
2744: -- This is set appropriately in what-if so take what is passed
2745: -- to faxcde. or apply this only for the first year.
2746: --if deprn_projecting_flag then
2747: -- dpr.deprn_rounding_flag:= fa_std_types.FA_DPR_ROUND_RES;
2748: --end if;
2749:
2750: -- Bug #2686687
2751: -- Annual rounding should be performed if current period is

Line 2757: (deprn_override_flag = fa_std_types.FA_NO_OVERRIDE or

2753: -- when there was no override; OR
2754: -- when overridden only bonus depreciation amount
2755:
2756: if (perd_ctr=perds_per_yr_dcal and
2757: (deprn_override_flag = fa_std_types.FA_NO_OVERRIDE or
2758: deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS) and
2759: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') ='N' and
2760: nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') ='N') then
2761:

Line 2758: deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS) and

2754: -- when overridden only bonus depreciation amount
2755:
2756: if (perd_ctr=perds_per_yr_dcal and
2757: (deprn_override_flag = fa_std_types.FA_NO_OVERRIDE or
2758: deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS) and
2759: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') ='N' and
2760: nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') ='N') then
2761:
2762: if (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADD or

Line 2762: if (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADD or

2758: deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS) and
2759: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') ='N' and
2760: nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') ='N') then
2761:
2762: if (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADD or
2763: dpr.deprn_rounding_flag is null) then
2764: --
2765: -- Go into following logic if this is group (except sumup) or calculating member
2766: --

Line 2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or

2803: (nvl(dpr.prior_fy_bonus_exp,0) + prior_fy_bonus_exp_sum)));
2804: end if;
2805: end if; -- (nvl(dpr.asset_type, 'CAPITALIZED') = 'GROUP' and ..
2806:
2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or
2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or

Line 2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or

2804: end if;
2805: end if; -- (nvl(dpr.asset_type, 'CAPITALIZED') = 'GROUP' and ..
2806:
2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or
2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or
2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then

Line 2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or

2805: end if; -- (nvl(dpr.asset_type, 'CAPITALIZED') = 'GROUP' and ..
2806:
2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or
2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or
2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then
2813:

Line 2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or

2806:
2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or
2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or
2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then
2813:
2814: if ann_rounding_mode=ROUND_ALWAYS then

Line 2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or

2807: elsif (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADJ or
2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or
2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then
2813:
2814: if ann_rounding_mode=ROUND_ALWAYS then
2815: dpr_sub:= dpr_in;

Line 2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then

2808: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RET or
2809: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_REV or
2810: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_TFR or
2811: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_RES or
2812: dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_OVE) then
2813:
2814: if ann_rounding_mode=ROUND_ALWAYS then
2815: dpr_sub:= dpr_in;
2816: dpr_sub.bonus_deprn_rsv:= 0;

Line 2826: dpr_sub.deprn_override_flag:= fa_std_types.FA_OVERRIDE_RECURSIVE;

2822: dpr_sub.y_end:= fyctr;
2823: dpr_sub.p_cl_begin:= 1;
2824: dpr_sub.p_cl_end:= perds_per_yr_dcal - 1;
2825:
2826: dpr_sub.deprn_override_flag:= fa_std_types.FA_OVERRIDE_RECURSIVE;
2827:
2828: -- Bug3493721:
2829: -- Rounding should always be done during recursive call
2830: --

Line 2858: end if; -- (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADD or

2854: value2 => dpr.deprn_rounding_flag,
2855: translate => FALSE,
2856: p_log_level_rec => p_log_level_rec);
2857: return (FALSE);
2858: end if; -- (dpr.deprn_rounding_flag = fa_std_types.FA_DPR_ROUND_ADD or
2859:
2860: --
2861: -- Debug
2862: --

Line 2982: if (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) then

2978:
2979: end if; -- (deprn_projecting_flag or
2980:
2981: -- perform override depreciation for each uploaded data from the interface table
2982: if (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) then
2983:
2984: --Bug 5689910
2985: select adjusted_cost
2986: into l_temp_adj_cost

Line 3004: if deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS or

3000: fa_debug_pkg.add('faxcde', 'perd_bonus_deprn_amount(default)', perd_bonus_deprn_amount,p_log_level_rec);
3001: end if;
3002: end if;
3003:
3004: if deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS or
3005: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then
3006: perd_deprn_exp:= perd_deprn_exp - nvl(perd_bonus_deprn_amount, 0);
3007: perd_bonus_deprn_amount:= nvl(override_bonus_amt,0);
3008: end if;

Line 3005: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then

3001: end if;
3002: end if;
3003:
3004: if deprn_override_flag = fa_std_types.FA_OVERRIDE_BONUS or
3005: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then
3006: perd_deprn_exp:= perd_deprn_exp - nvl(perd_bonus_deprn_amount, 0);
3007: perd_bonus_deprn_amount:= nvl(override_bonus_amt,0);
3008: end if;
3009:

Line 3010: if deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR or

3006: perd_deprn_exp:= perd_deprn_exp - nvl(perd_bonus_deprn_amount, 0);
3007: perd_bonus_deprn_amount:= nvl(override_bonus_amt,0);
3008: end if;
3009:
3010: if deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR or
3011: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then
3012:
3013: if nvl(dpr.bonus_rule, 'NONE') <> 'NONE' then
3014: perd_deprn_exp:= override_depr_amt + nvl(perd_bonus_deprn_amount,0);

Line 3011: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then

3007: perd_bonus_deprn_amount:= nvl(override_bonus_amt,0);
3008: end if;
3009:
3010: if deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR or
3011: deprn_override_flag = fa_std_types.FA_OVERRIDE_DPR_BONUS then
3012:
3013: if nvl(dpr.bonus_rule, 'NONE') <> 'NONE' then
3014: perd_deprn_exp:= override_depr_amt + nvl(perd_bonus_deprn_amount,0);
3015: else

Line 3040: end if; -- (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) then

3036: perd_bonus_deprn_amount := 0;
3037:
3038: end if; -- Bug 5689910
3039:
3040: end if; -- (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) then
3041: -- End of override depreciation logic
3042:
3043: --
3044: -- If the remaining depreciation is small (absolutely OR

Line 3079: if deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then

3075: --
3076: -- Check the NBV against the constant value, and then
3077: -- against the fraction of the Adjusted Recoverable Cost
3078: --
3079: if deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then
3080: if (nbv_absval < nbv_amt_thresh) or
3081: (nbv_absval < nbv_frac_thresh * adj_rec_cost_absval) then
3082: last_period_deprn_exp := adj_rec_cost - (cur_deprn_rsv + nvl(year_deprn_exp,0));
3083:

Line 3111: end if; -- deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then

3107: end if; -- (nbv_deprn_basis_flag and (deprn_end_perd = perds_per_yr_dcal)) then
3108:
3109: end if; -- (nbv_absval < nbv_amt_thresh) or
3110:
3111: end if; -- deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then
3112:
3113: else
3114: perd_deprn_exp := 0;
3115: perd_bonus_deprn_amount := 0;

Line 3199: if (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then

3195: -- retired, or depreciate flag is unchecked.
3196: --
3197: -- NOTE: All life base methods will not value other than
3198: -- FA_OVER_DEPR_NULL or FA_OVER_DEPR_NO.
3199: if (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then
3200:
3201: -- BUg3315683:
3202: -- Group could have situation whether rsv_absval is greater than adj_rec_cost_absval
3203: -- but still not fully reserved because rsv is -ve and adj_rec_cost is +ve.

Line 3250: elsif (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_DEPRN) then

3246: dpr_out.life_comp_flag :=FALSE;
3247:
3248: end if;
3249:
3250: elsif (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_DEPRN) then
3251: -- continue depreciating
3252: null;
3253: else
3254:

Line 3290: if (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) and

3286: -- always equal to adjusted recoverable cost
3287: --
3288: if adj_rec_cost_absval <= l_adjusted_rsv_absval then -- Bug fix 5948890 (replaced rsv_absval with l_adjusted_rsv_absval)
3289:
3290: if (deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE) and
3291: (adj_rec_cost_absval < rsv_absval) and
3292: not (deprn_projecting_flag) then
3293:
3294: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',

Line 3298: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

3294: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3295: name => 'FA_OVER_DEPRN_LIMIT',
3296: translate=> FALSE,
3297: p_log_level_rec => p_log_level_rec);
3298: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
3299: Return(FALSE);
3300: end if;
3301:
3302: dpr_out.full_rsv_flag := TRUE;

Line 3320: end if; -- (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then

3316: dpr_out.full_rsv_flag := FALSE;
3317: dpr_out.life_comp_flag :=FALSE;
3318: end if; -- adj_rec_cost_absval <= rsv_absval then
3319:
3320: end if; -- (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then
3321:
3322: --
3323: -- If the Depreciate_Flag is 'NO', then don't depreciate
3324: --

Line 3327: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE then

3323: -- If the Depreciate_Flag is 'NO', then don't depreciate
3324: --
3325: if not dpr_cur_fy_flag then
3326:
3327: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE then
3328:
3329: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3330: name => 'FA_NO_DEPRECIATION',
3331: translate=> FALSE,

Line 3333: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

3329: fa_srvr_msg.add_message(calling_fn => 'fa_cde_pkg.faxcde',
3330: name => 'FA_NO_DEPRECIATION',
3331: translate=> FALSE,
3332: p_log_level_rec => p_log_level_rec);
3333: dpr_out.deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
3334: return(FALSE);
3335: else
3336: perd_deprn_exp := 0;
3337: perd_bonus_deprn_amount := 0;

Line 3354: if deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then

3350: end if;
3351:
3352: if dpr_out.full_rsv_flag then
3353:
3354: if deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then
3355:
3356: if (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then
3357:
3358: if (sign(adj_rec_cost) < 0 and

Line 3356: if (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then

3352: if dpr_out.full_rsv_flag then
3353:
3354: if deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then
3355:
3356: if (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_YES) then
3357:
3358: if (sign(adj_rec_cost) < 0 and
3359: (adj_rec_cost > (cur_deprn_rsv + nvl(year_deprn_exp,0)+ l_rsv_adj)))
3360: or

Line 3368: elsif (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_DEPRN) then

3364: else
3365: perd_deprn_exp := adj_rec_cost - (cur_deprn_rsv + nvl(year_deprn_exp,0)+ l_rsv_adj);
3366: end if;
3367:
3368: elsif (dpr.over_depreciate_option = fa_std_types.FA_OVER_DEPR_DEPRN) then
3369: null;
3370: else
3371: perd_deprn_exp := adj_rec_cost - (cur_deprn_rsv + nvl(year_deprn_exp,0)+ l_rsv_adj);
3372: end if;

Line 3379: end if; -- deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then

3375: -- According to hld, no bonus deprn amount should be charged in last period of life.
3376: -- Effects should be tested.
3377: perd_bonus_deprn_amount := 0;
3378:
3379: end if; -- deprn_override_flag = fa_std_types.FA_NO_OVERRIDE then
3380:
3381: if prod_rate_src_flag then
3382: --
3383: -- Reset to FALSE for Production-Based assets, because

Line 3404: nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE)

3400: ,p_log_level_rec => p_log_level_rec);
3401: end if;
3402:
3403: if nvl(dpr.tracking_method,'OTHER') = 'ALLOCATE' and
3404: nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE)
3405: <> fa_std_types.FA_OVERRIDE_RECURSIVE then
3406:
3407: -- Check if subtract ytd flag is enabled or not
3408: if nvl(p_subtract_ytd_flag,'N') = 'Y' then

Line 3405: <> fa_std_types.FA_OVERRIDE_RECURSIVE then

3401: end if;
3402:
3403: if nvl(dpr.tracking_method,'OTHER') = 'ALLOCATE' and
3404: nvl(dpr_in.deprn_override_flag, fa_std_types.FA_NO_OVERRIDE)
3405: <> fa_std_types.FA_OVERRIDE_RECURSIVE then
3406:
3407: -- Check if subtract ytd flag is enabled or not
3408: if nvl(p_subtract_ytd_flag,'N') = 'Y' then
3409:

Line 3507: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE and not (deprn_projecting_flag) then

3503: dpr_arr(dpr_arr_ctr).period_num := perd_ctr;
3504: dpr_arr(dpr_arr_ctr).fiscal_year := fyctr;
3505:
3506: -- Manual Override
3507: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE and not (deprn_projecting_flag) then
3508: dpr_out.deprn_override_flag:= deprn_override_flag;
3509: end if;
3510: -- End of Manual Override
3511:

Line 4038: X_dpr in fa_std_types.dpr_struct,

4034: END FAXCDE;
4035:
4036: FUNCTION faprds
4037: (
4038: X_dpr in fa_std_types.dpr_struct,
4039: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
4040: return boolean is
4041: begin <>
4042:

Line 4096: X_dpr in fa_std_types.dpr_out_struct,

4092: end FAPRDS;
4093:
4094: FUNCTION faprdos
4095: (
4096: X_dpr in fa_std_types.dpr_out_struct,
4097: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
4098: return boolean is
4099: begin <>
4100:

Line 4194: deprn_summary fa_std_types.fa_deprn_row_struct;

4190: h_reporting_flag varchar2(1);
4191: h_asset_id number(15);
4192: h_deprn_override_id number(15);
4193: h_success boolean;
4194: deprn_summary fa_std_types.fa_deprn_row_struct;
4195: perd_name varchar2(15);
4196: report_cost number;
4197: l_exchange_rate number;
4198: l_avg_rate number;

Line 4401: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;

4397: end if;
4398:
4399:
4400: IF override_depr_amt is not null THEN
4401: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;
4402: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;
4403: if (h_reporting_flag = 'R') then
4404: override_depr_amt:= override_depr_amt * l_avg_rate;
4405: end if;

Line 4402: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;

4398:
4399:
4400: IF override_depr_amt is not null THEN
4401: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;
4402: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR;
4403: if (h_reporting_flag = 'R') then
4404: override_depr_amt:= override_depr_amt * l_avg_rate;
4405: end if;
4406: IF override_bonus_amt is not null and not(prod_rate_src_flag) THEN

Line 4407: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR_BONUS;

4403: if (h_reporting_flag = 'R') then
4404: override_depr_amt:= override_depr_amt * l_avg_rate;
4405: end if;
4406: IF override_bonus_amt is not null and not(prod_rate_src_flag) THEN
4407: deprn_override_flag:= fa_std_types.FA_OVERRIDE_DPR_BONUS;
4408: if (h_reporting_flag = 'R') then
4409: override_bonus_amt:= override_bonus_amt * l_avg_rate;
4410: end if;
4411: END IF;

Line 4413: deprn_override_flag:= fa_std_types.FA_OVERRIDE_BONUS;

4409: override_bonus_amt:= override_bonus_amt * l_avg_rate;
4410: end if;
4411: END IF;
4412: ELSIF override_bonus_amt is not null and not(prod_rate_src_flag) THEN
4413: deprn_override_flag:= fa_std_types.FA_OVERRIDE_BONUS;
4414: if (h_reporting_flag = 'R') then
4415: override_bonus_amt:= override_bonus_amt * l_avg_rate;
4416: end if;
4417: ELSE

Line 4418: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

4414: if (h_reporting_flag = 'R') then
4415: override_bonus_amt:= override_bonus_amt * l_avg_rate;
4416: end if;
4417: ELSE
4418: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4419: END IF;
4420:
4421: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE
4422: AND not (deprn_projecting_flag)

Line 4421: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE

4417: ELSE
4418: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4419: END IF;
4420:
4421: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE
4422: AND not (deprn_projecting_flag)
4423: AND h_reporting_flag = 'P' then
4424:
4425: fa_std_types.deprn_override_trigger_enabled:= FALSE;

Line 4425: fa_std_types.deprn_override_trigger_enabled:= FALSE;

4421: if deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE
4422: AND not (deprn_projecting_flag)
4423: AND h_reporting_flag = 'P' then
4424:
4425: fa_std_types.deprn_override_trigger_enabled:= FALSE;
4426:
4427: IF used_by_adjustment = FALSE THEN
4428: UPDATE fa_deprn_override
4429: SET status = 'POSTED'

Line 4438: fa_std_types.deprn_override_trigger_enabled:= TRUE;

4434: SET status = 'SELECTED'
4435: WHERE deprn_override_id = h_deprn_override_id;
4436: END IF;
4437:
4438: fa_std_types.deprn_override_trigger_enabled:= TRUE;
4439: end if;
4440: return_code:= 4;
4441:
4442:

Line 4463: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

4459: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4460: p_log_level_rec => p_log_level_rec);
4461: return(FALSE);
4462: when no_data_found then
4463: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4464: return_code:= 5;
4465: return(TRUE);
4466: when others then
4467: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

Line 4467: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;

4463: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4464: return_code:= 5;
4465: return(TRUE);
4466: when others then
4467: deprn_override_flag:= fa_std_types.FA_NO_OVERRIDE;
4468: return_code:= 6;
4469: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4470: p_log_level_rec => p_log_level_rec);
4471: return(TRUE);

Line 4485: FUNCTION fatrkm(p_dpr in fa_std_types.dpr_struct,

4481: -- Main entry to call Tracking feature
4482: -- This function will call TRACK_MEMBER function
4483: --
4484: ------------------------------------------------------------------
4485: FUNCTION fatrkm(p_dpr in fa_std_types.dpr_struct,
4486: p_perd_deprn_exp in number,
4487: p_perd_bonus_deprn_amount in number,
4488: p_perd_ctr in number,
4489: p_fyctr in number,

Line 4558: if p_deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE then

4554: h_excess_alloc_option := p_dpr.excess_allocation_option;
4555: h_depreciation_option := p_dpr.depreciation_option;
4556: h_member_rollup_flag := p_dpr.member_rollup_flag;
4557:
4558: if p_deprn_override_flag <> fa_std_types.FA_NO_OVERRIDE then
4559: h_group_override := 'Y';
4560: else
4561: h_group_override := 'N';
4562: end if;