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_AMORT_PKG dependencies on FA_STD_TYPES

Line 7: FUNCTION faxiat (X_fin_ptr FA_STD_TYPES.fin_info_struct,

3:
4: adj_ptr_faxiat FA_ADJUST_TYPE_PKG.fa_adj_row_struct;
5:
6:
7: FUNCTION faxiat (X_fin_ptr FA_STD_TYPES.fin_info_struct,
8: X_deprn_exp number,
9: X_bonus_deprn_exp number,
10: X_ann_adj_amt number,
11: X_ccid number,

Line 189: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,

185: adj_ptr_faxiat.mrc_sob_type_code := X_mrc_sob_type_code;
186:
187: /* manual override */
188:
189: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
190: fa_std_types.FA_OVERRIDE_BONUS,
191: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
192: adj_ptr_faxiat.deprn_override_flag := 'Y';
193: else

Line 190: fa_std_types.FA_OVERRIDE_BONUS,

186:
187: /* manual override */
188:
189: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
190: fa_std_types.FA_OVERRIDE_BONUS,
191: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
192: adj_ptr_faxiat.deprn_override_flag := 'Y';
193: else
194: adj_ptr_faxiat.deprn_override_flag := '';

Line 191: fa_std_types.FA_OVERRIDE_DPR_BONUS) then

187: /* manual override */
188:
189: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
190: fa_std_types.FA_OVERRIDE_BONUS,
191: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
192: adj_ptr_faxiat.deprn_override_flag := 'Y';
193: else
194: adj_ptr_faxiat.deprn_override_flag := '';
195: end if;

Line 254: fa_std_types.FA_OVERRIDE_BONUS,

250: adj_ptr_faxiat.flush_adj_flag:=TRUE;
251:
252: -- override
253: if X_fin_ptr.deprn_override_flag in (
254: fa_std_types.FA_OVERRIDE_BONUS,
255: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
256: adj_ptr_faxiat.deprn_override_flag := 'Y';
257: else
258: adj_ptr_faxiat.deprn_override_flag := '';

Line 255: fa_std_types.FA_OVERRIDE_DPR_BONUS) then

251:
252: -- override
253: if X_fin_ptr.deprn_override_flag in (
254: fa_std_types.FA_OVERRIDE_BONUS,
255: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
256: adj_ptr_faxiat.deprn_override_flag := 'Y';
257: else
258: adj_ptr_faxiat.deprn_override_flag := '';
259: end if;

Line 321: FUNCTION faxraf(X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,

317: ,p_log_level_rec => p_log_level_rec);
318: return FALSE;
319: END faxiat;
320:
321: FUNCTION faxraf(X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
322: X_new_raf in out nocopy number,
323: X_new_adj_cost in out nocopy number,
324: X_new_adj_capacity in out nocopy number,
325: X_new_reval_amo_basis in out nocopy number,

Line 334: h_dpr_row FA_STD_TYPES.dpr_struct;

330: X_mrc_sob_type_code in varchar2,
331: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
332:
333: return boolean is
334: h_dpr_row FA_STD_TYPES.dpr_struct;
335: h_dpr_out FA_STD_TYPES.dpr_out_struct;
336: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
337: h_add_txn_id number;
338: h_deprn_basis_rule varchar2(25);

Line 335: h_dpr_out FA_STD_TYPES.dpr_out_struct;

331: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
332:
333: return boolean is
334: h_dpr_row FA_STD_TYPES.dpr_struct;
335: h_dpr_out FA_STD_TYPES.dpr_out_struct;
336: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
337: h_add_txn_id number;
338: h_deprn_basis_rule varchar2(25);
339: h_rate_source_rule varchar2(25);

Line 336: h_dpr_arr FA_STD_TYPES.dpr_arr_type;

332:
333: return boolean is
334: h_dpr_row FA_STD_TYPES.dpr_struct;
335: h_dpr_out FA_STD_TYPES.dpr_out_struct;
336: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
337: h_add_txn_id number;
338: h_deprn_basis_rule varchar2(25);
339: h_rate_source_rule varchar2(25);
340: h_excl_salvage_val_flag boolean;

Line 371: deprn_summary fa_std_types.fa_deprn_row_struct;

367: last_per_ctr integer;
368: amortize_per_ctr integer;
369: adjustment_amount number;
370: h_rsv_amount number;
371: deprn_summary fa_std_types.fa_deprn_row_struct;
372: h_dummy_bool boolean;--Used to call QUERY_BALANCES_INT
373: -- End Added for Dated Adjustment
374: temp_deprn_rsv number; -- reserve at the beginning of fy
375: -- Added for bonus rule

Line 391: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;

387: running_mode number;
388: used_by_revaluation number;
389:
390: -- Added for Depreciable Basis Formula
391: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;
392: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;
393:
394: cursor check_period_of_addition is
395: select 'Y' -- 'Y' if the current period of the asset is period of addition.

Line 392: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;

388: used_by_revaluation number;
389:
390: -- Added for Depreciable Basis Formula
391: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;
392: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;
393:
394: cursor check_period_of_addition is
395: select 'Y' -- 'Y' if the current period of the asset is period of addition.
396: from dual

Line 469: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then

465:
466: begin <>
467:
468: -- override
469: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
470: running_mode:= fa_std_types.FA_DPR_PROJECT;
471: else
472: running_mode:= fa_std_types.FA_DPR_NORMAL;
473: end if;

Line 470: running_mode:= fa_std_types.FA_DPR_PROJECT;

466: begin <>
467:
468: -- override
469: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
470: running_mode:= fa_std_types.FA_DPR_PROJECT;
471: else
472: running_mode:= fa_std_types.FA_DPR_NORMAL;
473: end if;
474: -- End of Manual Override

Line 472: running_mode:= fa_std_types.FA_DPR_NORMAL;

468: -- override
469: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
470: running_mode:= fa_std_types.FA_DPR_PROJECT;
471: else
472: running_mode:= fa_std_types.FA_DPR_NORMAL;
473: end if;
474: -- End of Manual Override
475:
476: if (p_log_level_rec.statement_level)

Line 532: value=>FA_STD_TYPES.FA_DPR_ROUND_ADJ,

528: value=>X_fin_info_ptr.deprn_rounding_flag,
529: p_log_level_rec => p_log_level_rec);
530: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
531: element=>'FA_STD TYPE deprn_rnd- before faxbds',
532: value=>FA_STD_TYPES.FA_DPR_ROUND_ADJ,
533: p_log_level_rec => p_log_level_rec);
534: end if;
535:
536: /*

Line 565: h_dpr_row.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

561:
562:
563: -- override
564: h_dpr_row.used_by_adjustment := TRUE;
565: h_dpr_row.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
566: -- End of override
567:
568: h_err_string := 'FA_AMT_CAL_DP_EXP';
569: if (p_log_level_rec.statement_level)

Line 636: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or

632: if X_fin_info_ptr.used_by_revaluation = 1 then
633: used_by_revaluation:= 1;
634: end if;
635:
636: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
637: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
638: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
639: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
640: used_by_revaluation = 1);

Line 637: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or

633: used_by_revaluation:= 1;
634: end if;
635:
636: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
637: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
638: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
639: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
640: used_by_revaluation = 1);
641:

Line 638: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and

634: end if;
635:
636: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
637: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
638: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
639: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
640: used_by_revaluation = 1);
641:
642: if (p_log_level_rec.statement_level) then

Line 639: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or

635:
636: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
637: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
638: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
639: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
640: used_by_revaluation = 1);
641:
642: if (p_log_level_rec.statement_level) then
643: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',

Line 684: fa_std_types.deprn_override_trigger_enabled:= FALSE;

680: return FALSE;
681: end if;
682:
683: -- Override
684: fa_std_types.deprn_override_trigger_enabled:= FALSE;
685: if use_override then -- pass deprn_override_flag to faxiat
686: X_fin_info_ptr.deprn_override_flag:= h_dpr_out.deprn_override_flag;
687: if (p_log_level_rec.statement_level) then
688: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',

Line 695: X_fin_info_ptr.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

691: p_log_level_rec => p_log_level_rec);
692: end if;
693: else
694: -- pass fa_no_override to faxiat
695: X_fin_info_ptr.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
696: -- update the status fa_deprn_override from 'SELECTED' to 'POST'
697: UPDATE FA_DEPRN_OVERRIDE
698: SET status = 'POST'
699: WHERE

Line 704: fa_std_types.deprn_override_trigger_enabled:= TRUE;

700: used_by = 'ADJUSTMENT' and
701: status = 'SELECTED' and
702: transaction_header_id is null;
703: end if;
704: fa_std_types.deprn_override_trigger_enabled:= TRUE;
705: -- End of Manual Override
706:
707:
708: -- In most cases, New Adjusted_Cost = New Net Book Value;

Line 728: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)

724: -- new_raval_amo_basis and Production rate source rule are
725: -- not calculated on Depreciable Basis Formula
726:
727: X_new_reval_amo_basis := h_dpr_row.reval_rsv;
728: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)
729: then
730: X_new_raf :=1;
731: X_new_adj_capacity := X_fin_info_ptr.capacity - h_dpr_out.new_ltd_prod;
732: X_new_formula_factor := 1;

Line 802: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST) then

798:
799: else -- Not use Depreciable Basis Formula
800:
801:
802: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST) then
803: X_new_adj_cost := X_fin_info_ptr.rec_cost - h_current_rsv;
804: else -- implies NBV
805: X_new_adj_cost := X_fin_info_ptr.rec_cost - h_current_total_rsv;
806: end if;

Line 835: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND

831: if (sign(X_fin_info_ptr.rec_cost)<>0)
832: then
833: h_temp := X_fin_info_ptr.rec_cost - h_dpr_out.new_deprn_rsv;
834: X_new_raf := h_temp / X_fin_info_ptr.rec_cost;
835: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
836: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
837:
838: X_new_formula_factor := h_dpr_out.new_adj_cost /
839: X_fin_info_ptr.rec_cost;

Line 836: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

832: then
833: h_temp := X_fin_info_ptr.rec_cost - h_dpr_out.new_deprn_rsv;
834: X_new_raf := h_temp / X_fin_info_ptr.rec_cost;
835: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
836: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
837:
838: X_new_formula_factor := h_dpr_out.new_adj_cost /
839: X_fin_info_ptr.rec_cost;
840: else

Line 858: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)

854: -- If Flat-Rate NBV-Based, RAF = old RAF (should be 1)
855: -- If Production, then RAF = 1, Adj_Capacity = (Capacity-LTD_Prod)
856: -- Otherwise, RAF = (Rec_Cost - New_Deprn_Rsv) / Rec_Cost (as above)
857:
858: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
859: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
860: then
861: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
862: then

Line 859: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))

855: -- If Production, then RAF = 1, Adj_Capacity = (Capacity-LTD_Prod)
856: -- Otherwise, RAF = (Rec_Cost - New_Deprn_Rsv) / Rec_Cost (as above)
857:
858: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
859: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
860: then
861: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
862: then
863: X_new_raf :=1;

Line 861: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)

857:
858: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
859: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
860: then
861: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
862: then
863: X_new_raf :=1;
864: X_new_formula_factor := 1;
865: end if;

Line 868: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)

864: X_new_formula_factor := 1;
865: end if;
866: end if;
867:
868: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
869: then
870: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
871: then
872: X_new_raf := 1;

Line 870: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)

866: end if;
867:
868: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
869: then
870: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
871: then
872: X_new_raf := 1;
873: X_new_adj_cost := X_fin_info_ptr.rec_cost;
874: X_new_formula_factor := 1;

Line 879: elsif (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)

875: else
876: X_new_raf := X_fin_info_ptr.rate_adj_factor;
877: X_new_formula_factor := 1;
878: end if;
879: elsif (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)
880: then
881: X_new_raf :=1;
882: X_new_adj_capacity := X_fin_info_ptr.capacity - h_dpr_out.new_ltd_prod;
883: X_new_formula_factor := 1;

Line 1309: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)

1305:
1306: else -- Not Use Depreciable Basis Formula
1307: fa_rx_conc_mesg_pkg.log('x_new_raf E: ' || to_char(x_new_raf));
1308: -- bug 2699656
1309: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
1310: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
1311: then
1312: h_dpr_row.adj_cost := X_fin_info_ptr.rec_cost;
1313: else

Line 1310: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)

1306: else -- Not Use Depreciable Basis Formula
1307: fa_rx_conc_mesg_pkg.log('x_new_raf E: ' || to_char(x_new_raf));
1308: -- bug 2699656
1309: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
1310: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
1311: then
1312: h_dpr_row.adj_cost := X_fin_info_ptr.rec_cost;
1313: else
1314:

Line 1513: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND

1509: X_new_formula_factor := h_rule_out.new_formula_factor;
1510:
1511: else -- Do Not Use Depreciable Basis Formula
1512:
1513: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
1514: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1515:
1516: -- bug 2111490
1517: -- temp_deprn_rsv is not containing bonus_deprn_rsv

Line 1514: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

1510:
1511: else -- Do Not Use Depreciable Basis Formula
1512:
1513: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
1514: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1515:
1516: -- bug 2111490
1517: -- temp_deprn_rsv is not containing bonus_deprn_rsv
1518: X_new_adj_cost := X_fin_info_ptr.rec_cost -

Line 1618: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND

1614: end if;--if (X_fin_info_ptr.amortization_start_date is not null)
1615:
1616:
1617: -- bug 3572689
1618: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND
1619: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1620:
1621: x_new_raf := 1;
1622: x_new_formula_factor := 1;

Line 1619: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

1615:
1616:
1617: -- bug 3572689
1618: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND
1619: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1620:
1621: x_new_raf := 1;
1622: x_new_formula_factor := 1;
1623: end if;

Line 1634: FUNCTION faxama (X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,

1630: ,p_log_level_rec => p_log_level_rec);
1631: return FALSE;
1632: end faxraf;
1633: ---------------------------------------------------------------------------
1634: FUNCTION faxama (X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
1635: X_new_raf in out nocopy number,
1636: X_new_adj_cost in out nocopy number,
1637: X_new_adj_capacity in out nocopy number,
1638: X_new_reval_amo_basis in out nocopy number,

Line 1775: FUNCTION get_reserve(X_fin_info_ptr in out nocopy fa_std_types.fin_info_struct,

1771: -- backdate amortization enhancement - begin
1772: -- this function will get books row of addition transaction
1773: -- and call faxcde to calculate what the actual reserve is from the
1774: -- prorate period upto right before the amortization period
1775: FUNCTION get_reserve(X_fin_info_ptr in out nocopy fa_std_types.fin_info_struct,
1776: x_add_txn_id in number,
1777: x_amortize_fy in integer,
1778: x_amortize_per_num in integer,
1779: x_pers_per_yr in integer,

Line 1787: l_fin_info FA_STD_TYPES.fin_info_struct;

1783: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1784: return boolean is
1785:
1786: bk_rec fa_books%rowtype;
1787: l_fin_info FA_STD_TYPES.fin_info_struct;
1788: l_dpr_row FA_STD_TYPES.dpr_struct;
1789: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1790: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1791: dummy_var varchar2(15);

Line 1788: l_dpr_row FA_STD_TYPES.dpr_struct;

1784: return boolean is
1785:
1786: bk_rec fa_books%rowtype;
1787: l_fin_info FA_STD_TYPES.fin_info_struct;
1788: l_dpr_row FA_STD_TYPES.dpr_struct;
1789: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1790: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1791: dummy_var varchar2(15);
1792: dummy_num number;

Line 1789: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

1785:
1786: bk_rec fa_books%rowtype;
1787: l_fin_info FA_STD_TYPES.fin_info_struct;
1788: l_dpr_row FA_STD_TYPES.dpr_struct;
1789: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1790: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1791: dummy_var varchar2(15);
1792: dummy_num number;
1793: running_mode number;

Line 1790: l_dpr_out FA_STD_TYPES.dpr_out_struct;

1786: bk_rec fa_books%rowtype;
1787: l_fin_info FA_STD_TYPES.fin_info_struct;
1788: l_dpr_row FA_STD_TYPES.dpr_struct;
1789: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1790: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1791: dummy_var varchar2(15);
1792: dummy_num number;
1793: running_mode number;
1794:

Line 1798: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then

1794:
1795: begin
1796:
1797: -- Override for what-if adjustment
1798: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1799: running_mode:= fa_std_types.FA_DPR_PROJECT;
1800: else
1801: running_mode:= fa_std_types.FA_DPR_NORMAL;
1802: end if;

Line 1799: running_mode:= fa_std_types.FA_DPR_PROJECT;

1795: begin
1796:
1797: -- Override for what-if adjustment
1798: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1799: running_mode:= fa_std_types.FA_DPR_PROJECT;
1800: else
1801: running_mode:= fa_std_types.FA_DPR_NORMAL;
1802: end if;
1803: -- End of Manual Override

Line 1801: running_mode:= fa_std_types.FA_DPR_NORMAL;

1797: -- Override for what-if adjustment
1798: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1799: running_mode:= fa_std_types.FA_DPR_PROJECT;
1800: else
1801: running_mode:= fa_std_types.FA_DPR_NORMAL;
1802: end if;
1803: -- End of Manual Override
1804:
1805: l_fin_info := X_fin_info_ptr;

Line 2031: -- FA_STD_TYPES.FA_DPR_NORMAL)) then

2027: l_dpr_arr,
2028: l_dpr_out,
2029: running_mode
2030: ,p_log_level_rec => p_log_level_rec)) then
2031: -- FA_STD_TYPES.FA_DPR_NORMAL)) then
2032: FA_SRVR_MSG.ADD_MESSAGE
2033: (CALLING_FN => 'FA_AMORT_PKG.get_reserve',
2034: NAME=>'FA_AMT_CAL_DP_EXP',
2035: p_log_level_rec => p_log_level_rec);

Line 2101: -- if h_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then

2097: return true;
2098: end if;
2099:
2100: -- following cache call is redundant as cache shoudl already be loaded - BMR (double check)
2101: -- if h_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then
2102: if h_deprn_basis_formula = 'STRICT_FLAT' then
2103: if ( not fa_cache_pkg.fazccmt(x_method_code,
2104: x_life
2105: ,p_log_level_rec => p_log_level_rec)) then

Line 2114: if h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then

2110:
2111: h_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
2112: h_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
2113:
2114: if h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
2115: if x_rec_cost is null then
2116: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac',
2117: p_log_level_rec => p_log_level_rec);
2118: return false;

Line 2123: elsif h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then

2119: end if;
2120:
2121: x_adj_cost := x_rec_cost;
2122:
2123: elsif h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then
2124:
2125: if x_rec_cost is null or
2126: not ( (x_prior_fy_exp is not null) or
2127: (x_deprn_rsv is not null and x_ytd_deprn is not null)) then