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 6: FUNCTION faxiat (X_fin_ptr FA_STD_TYPES.fin_info_struct,

2: /* $Header: FAAMRT1B.pls 120.16 2011/10/24 11:37:46 spooyath ship $ */
3:
4: adj_ptr_faxiat FA_ADJUST_TYPE_PKG.fa_adj_row_struct;
5:
6: FUNCTION faxiat (X_fin_ptr FA_STD_TYPES.fin_info_struct,
7: X_deprn_exp number,
8: X_bonus_deprn_exp number,
9: X_ann_adj_amt number,
10: X_ccid number,

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

170: adj_ptr_faxiat.mrc_sob_type_code := X_mrc_sob_type_code;
171:
172: /* manual override */
173:
174: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
175: fa_std_types.FA_OVERRIDE_BONUS,
176: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
177: adj_ptr_faxiat.deprn_override_flag := 'Y';
178: else

Line 175: fa_std_types.FA_OVERRIDE_BONUS,

171:
172: /* manual override */
173:
174: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
175: fa_std_types.FA_OVERRIDE_BONUS,
176: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
177: adj_ptr_faxiat.deprn_override_flag := 'Y';
178: else
179: adj_ptr_faxiat.deprn_override_flag := '';

Line 176: fa_std_types.FA_OVERRIDE_DPR_BONUS) then

172: /* manual override */
173:
174: if X_fin_ptr.deprn_override_flag in (fa_std_types.FA_OVERRIDE_DPR,
175: fa_std_types.FA_OVERRIDE_BONUS,
176: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
177: adj_ptr_faxiat.deprn_override_flag := 'Y';
178: else
179: adj_ptr_faxiat.deprn_override_flag := '';
180: end if;

Line 234: fa_std_types.FA_OVERRIDE_BONUS,

230: adj_ptr_faxiat.flush_adj_flag:=TRUE;
231:
232: -- override
233: if X_fin_ptr.deprn_override_flag in (
234: fa_std_types.FA_OVERRIDE_BONUS,
235: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
236: adj_ptr_faxiat.deprn_override_flag := 'Y';
237: else
238: adj_ptr_faxiat.deprn_override_flag := '';

Line 235: fa_std_types.FA_OVERRIDE_DPR_BONUS) then

231:
232: -- override
233: if X_fin_ptr.deprn_override_flag in (
234: fa_std_types.FA_OVERRIDE_BONUS,
235: fa_std_types.FA_OVERRIDE_DPR_BONUS) then
236: adj_ptr_faxiat.deprn_override_flag := 'Y';
237: else
238: adj_ptr_faxiat.deprn_override_flag := '';
239: end if;

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

290: CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
291: return FALSE;
292: END faxiat;
293:
294: FUNCTION faxraf(X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
295: X_new_raf in out nocopy number,
296: X_new_adj_cost in out nocopy number,
297: X_new_adj_capacity in out nocopy number,
298: X_new_reval_amo_basis in out nocopy number,

Line 308: h_dpr_row FA_STD_TYPES.dpr_struct;

304: X_set_of_books_id in number,
305: p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
306:
307: return boolean is
308: h_dpr_row FA_STD_TYPES.dpr_struct;
309: h_dpr_out FA_STD_TYPES.dpr_out_struct;
310: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
311: h_add_txn_id number;
312: h_deprn_basis_rule varchar2(25);

Line 309: h_dpr_out FA_STD_TYPES.dpr_out_struct;

305: p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
306:
307: return boolean is
308: h_dpr_row FA_STD_TYPES.dpr_struct;
309: h_dpr_out FA_STD_TYPES.dpr_out_struct;
310: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
311: h_add_txn_id number;
312: h_deprn_basis_rule varchar2(25);
313: h_rate_source_rule varchar2(25);

Line 310: h_dpr_arr FA_STD_TYPES.dpr_arr_type;

306:
307: return boolean is
308: h_dpr_row FA_STD_TYPES.dpr_struct;
309: h_dpr_out FA_STD_TYPES.dpr_out_struct;
310: h_dpr_arr FA_STD_TYPES.dpr_arr_type;
311: h_add_txn_id number;
312: h_deprn_basis_rule varchar2(25);
313: h_rate_source_rule varchar2(25);
314: h_excl_salvage_val_flag boolean;

Line 345: deprn_summary fa_std_types.fa_deprn_row_struct;

341: last_per_ctr integer;
342: amortize_per_ctr integer;
343: adjustment_amount number;
344: h_rsv_amount number;
345: deprn_summary fa_std_types.fa_deprn_row_struct;
346: h_dummy_bool boolean;--Used to call QUERY_BALANCES_INT
347: -- End Added for Dated Adjustment
348: temp_deprn_rsv number; -- reserve at the beginning of fy
349: -- Added for bonus rule

Line 365: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;

361: running_mode number;
362: used_by_revaluation number;
363:
364: -- Added for Depreciable Basis Formula
365: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;
366: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;
367:
368: l_ind binary_integer;
369:

Line 366: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;

362: used_by_revaluation number;
363:
364: -- Added for Depreciable Basis Formula
365: h_rule_in FA_STD_TYPES.fa_deprn_rule_in_struct;
366: h_rule_out FA_STD_TYPES.fa_deprn_rule_out_struct;
367:
368: l_ind binary_integer;
369:
370: cursor check_period_of_addition is

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

448:
449: begin <>
450:
451: -- override
452: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
453: running_mode:= fa_std_types.FA_DPR_PROJECT;
454: else
455: running_mode:= fa_std_types.FA_DPR_NORMAL;
456: end if;

Line 453: running_mode:= fa_std_types.FA_DPR_PROJECT;

449: begin <>
450:
451: -- override
452: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
453: running_mode:= fa_std_types.FA_DPR_PROJECT;
454: else
455: running_mode:= fa_std_types.FA_DPR_NORMAL;
456: end if;
457: -- End of Manual Override

Line 455: running_mode:= fa_std_types.FA_DPR_NORMAL;

451: -- override
452: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
453: running_mode:= fa_std_types.FA_DPR_PROJECT;
454: else
455: running_mode:= fa_std_types.FA_DPR_NORMAL;
456: end if;
457: -- End of Manual Override
458:
459: if (p_log_level_rec.statement_level)

Line 516: value=>FA_STD_TYPES.FA_DPR_ROUND_ADJ, p_log_level_rec => p_log_level_rec);

512: element=>'deprn_rounding_flag- before faxbds',
513: value=>X_fin_info_ptr.deprn_rounding_flag, p_log_level_rec => p_log_level_rec);
514: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
515: element=>'FA_STD TYPE deprn_rnd- before faxbds',
516: value=>FA_STD_TYPES.FA_DPR_ROUND_ADJ, p_log_level_rec => p_log_level_rec);
517: end if;
518:
519: /*
520: if (not FA_EXP_PKG.faxbds(fin_info_ptr=>X_fin_info_ptr,

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

541:
542:
543: -- override
544: h_dpr_row.used_by_adjustment := TRUE;
545: h_dpr_row.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
546: -- End of override
547:
548: h_err_string := 'FA_AMT_CAL_DP_EXP';
549: if (p_log_level_rec.statement_level)

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

609: if X_fin_info_ptr.used_by_revaluation = 1 then
610: used_by_revaluation:= 1;
611: end if;
612:
613: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
614: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
615: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
616: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
617: used_by_revaluation = 1);

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

610: used_by_revaluation:= 1;
611: end if;
612:
613: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
614: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
615: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
616: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
617: used_by_revaluation = 1);
618:

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

611: end if;
612:
613: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
614: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
615: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
616: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
617: used_by_revaluation = 1);
618:
619: if (p_log_level_rec.statement_level) then

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

612:
613: use_override := ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
614: (((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
615: (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
616: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
617: used_by_revaluation = 1);
618:
619: if (p_log_level_rec.statement_level) then
620: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',

Line 657: fa_std_types.deprn_override_trigger_enabled:= FALSE;

653: return FALSE;
654: end if;
655:
656: -- Override
657: fa_std_types.deprn_override_trigger_enabled:= FALSE;
658: if use_override then -- pass deprn_override_flag to faxiat
659: X_fin_info_ptr.deprn_override_flag:= h_dpr_out.deprn_override_flag;
660: if (p_log_level_rec.statement_level) then
661: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',

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

663: value=>h_dpr_out.deprn_override_flag, p_log_level_rec => p_log_level_rec);
664: end if;
665: else
666: -- pass fa_no_override to faxiat
667: X_fin_info_ptr.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
668: -- update the status fa_deprn_override from 'SELECTED' to 'POST'
669: UPDATE FA_DEPRN_OVERRIDE
670: SET status = 'POST'
671: WHERE

Line 676: fa_std_types.deprn_override_trigger_enabled:= TRUE;

672: used_by = 'ADJUSTMENT' and
673: status = 'SELECTED' and
674: transaction_header_id is null;
675: end if;
676: fa_std_types.deprn_override_trigger_enabled:= TRUE;
677: -- End of Manual Override
678:
679:
680: -- In most cases, New Adjusted_Cost = New Net Book Value;

Line 700: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)

696: -- new_raval_amo_basis and Production rate source rule are
697: -- not calculated on Depreciable Basis Formula
698:
699: X_new_reval_amo_basis := h_dpr_row.reval_rsv;
700: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)
701: then
702: X_new_raf :=1;
703: X_new_adj_capacity := X_fin_info_ptr.capacity - h_dpr_out.new_ltd_prod;
704: X_new_formula_factor := 1;

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

767:
768: else -- Not use Depreciable Basis Formula
769:
770:
771: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST) then
772: X_new_adj_cost := X_fin_info_ptr.rec_cost - h_current_rsv;
773: else -- implies NBV
774: X_new_adj_cost := X_fin_info_ptr.rec_cost - h_current_total_rsv;
775: end if;

Line 803: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND

799: if (sign(X_fin_info_ptr.rec_cost)<>0)
800: then
801: h_temp := X_fin_info_ptr.rec_cost - h_dpr_out.new_deprn_rsv;
802: X_new_raf := h_temp / X_fin_info_ptr.rec_cost;
803: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
804: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
805:
806: X_new_formula_factor := h_dpr_out.new_adj_cost /
807: X_fin_info_ptr.rec_cost;

Line 804: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

800: then
801: h_temp := X_fin_info_ptr.rec_cost - h_dpr_out.new_deprn_rsv;
802: X_new_raf := h_temp / X_fin_info_ptr.rec_cost;
803: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
804: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
805:
806: X_new_formula_factor := h_dpr_out.new_adj_cost /
807: X_fin_info_ptr.rec_cost;
808: else

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

822: -- If Flat-Rate NBV-Based, RAF = old RAF (should be 1)
823: -- If Production, then RAF = 1, Adj_Capacity = (Capacity-LTD_Prod)
824: -- Otherwise, RAF = (Rec_Cost - New_Deprn_Rsv) / Rec_Cost (as above)
825:
826: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
827: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
828: then
829: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
830: then

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

823: -- If Production, then RAF = 1, Adj_Capacity = (Capacity-LTD_Prod)
824: -- Otherwise, RAF = (Rec_Cost - New_Deprn_Rsv) / Rec_Cost (as above)
825:
826: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
827: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
828: then
829: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
830: then
831: X_new_raf :=1;

Line 829: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)

825:
826: if ((h_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
827: OR (h_rate_source_rule=FA_STD_TYPES.FAD_RSR_TABLE))
828: then
829: if (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV)
830: then
831: X_new_raf :=1;
832: X_new_formula_factor := 1;
833: end if;

Line 836: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)

832: X_new_formula_factor := 1;
833: end if;
834: end if;
835:
836: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
837: then
838: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
839: then
840: X_new_raf := 1;

Line 838: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)

834: end if;
835:
836: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
837: then
838: if (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
839: then
840: X_new_raf := 1;
841: X_new_adj_cost := X_fin_info_ptr.rec_cost;
842: X_new_formula_factor := 1;

Line 847: elsif (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)

843: else
844: X_new_raf := X_fin_info_ptr.rate_adj_factor;
845: X_new_formula_factor := 1;
846: end if;
847: elsif (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD)
848: then
849: X_new_raf :=1;
850: X_new_adj_capacity := X_fin_info_ptr.capacity - h_dpr_out.new_ltd_prod;
851: X_new_formula_factor := 1;

Line 1266: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)

1262:
1263: else -- Not Use Depreciable Basis Formula
1264: fa_rx_conc_mesg_pkg.log('x_new_raf E: ' || to_char(x_new_raf));
1265: -- bug 2699656
1266: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
1267: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
1268: then
1269: h_dpr_row.adj_cost := X_fin_info_ptr.rec_cost;
1270: else

Line 1267: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)

1263: else -- Not Use Depreciable Basis Formula
1264: fa_rx_conc_mesg_pkg.log('x_new_raf E: ' || to_char(x_new_raf));
1265: -- bug 2699656
1266: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT)
1267: and (h_deprn_basis_rule=FA_STD_TYPES.FAD_DBR_COST)
1268: then
1269: h_dpr_row.adj_cost := X_fin_info_ptr.rec_cost;
1270: else
1271:

Line 1449: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND

1445: X_new_formula_factor := h_rule_out.new_formula_factor;
1446:
1447: else -- Do Not Use Depreciable Basis Formula
1448:
1449: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
1450: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1451:
1452: -- bug 2111490
1453: -- temp_deprn_rsv is not containing bonus_deprn_rsv

Line 1450: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

1446:
1447: else -- Do Not Use Depreciable Basis Formula
1448:
1449: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA AND
1450: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1451:
1452: -- bug 2111490
1453: -- temp_deprn_rsv is not containing bonus_deprn_rsv
1454: X_new_adj_cost := X_fin_info_ptr.rec_cost -

Line 1543: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND

1539: end if;--if (X_fin_info_ptr.amortization_start_date is not null)
1540:
1541:
1542: -- bug 3572689
1543: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND
1544: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1545:
1546: x_new_raf := 1;
1547: x_new_formula_factor := 1;

Line 1544: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then

1540:
1541:
1542: -- bug 3572689
1543: if (h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT AND
1544: h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV) then
1545:
1546: x_new_raf := 1;
1547: x_new_formula_factor := 1;
1548: end if;

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

1554: (CALLING_FN => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
1555: return FALSE;
1556: end faxraf;
1557: ---------------------------------------------------------------------------
1558: FUNCTION faxama (X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
1559: X_new_raf in out nocopy number,
1560: X_new_adj_cost in out nocopy number,
1561: X_new_adj_capacity in out nocopy number,
1562: X_new_reval_amo_basis in out nocopy number,

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

1686: -- backdate amortization enhancement - begin
1687: -- this function will get books row of addition transaction
1688: -- and call faxcde to calculate what the actual reserve is from the
1689: -- prorate period upto right before the amortization period
1690: FUNCTION get_reserve(X_fin_info_ptr in out nocopy fa_std_types.fin_info_struct,
1691: x_add_txn_id in number,
1692: x_amortize_fy in integer,
1693: x_amortize_per_num in integer,
1694: x_pers_per_yr in integer,

Line 1702: l_fin_info FA_STD_TYPES.fin_info_struct;

1698: x_bonus_deprn_rsv out nocopy number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
1699: return boolean is
1700:
1701: bk_rec fa_books%rowtype;
1702: l_fin_info FA_STD_TYPES.fin_info_struct;
1703: l_dpr_row FA_STD_TYPES.dpr_struct;
1704: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1705: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1706: dummy_var varchar2(15);

Line 1703: l_dpr_row FA_STD_TYPES.dpr_struct;

1699: return boolean is
1700:
1701: bk_rec fa_books%rowtype;
1702: l_fin_info FA_STD_TYPES.fin_info_struct;
1703: l_dpr_row FA_STD_TYPES.dpr_struct;
1704: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1705: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1706: dummy_var varchar2(15);
1707: dummy_num number;

Line 1704: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

1700:
1701: bk_rec fa_books%rowtype;
1702: l_fin_info FA_STD_TYPES.fin_info_struct;
1703: l_dpr_row FA_STD_TYPES.dpr_struct;
1704: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1705: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1706: dummy_var varchar2(15);
1707: dummy_num number;
1708: running_mode number;

Line 1705: l_dpr_out FA_STD_TYPES.dpr_out_struct;

1701: bk_rec fa_books%rowtype;
1702: l_fin_info FA_STD_TYPES.fin_info_struct;
1703: l_dpr_row FA_STD_TYPES.dpr_struct;
1704: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
1705: l_dpr_out FA_STD_TYPES.dpr_out_struct;
1706: dummy_var varchar2(15);
1707: dummy_num number;
1708: running_mode number;
1709:

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

1709:
1710: begin
1711:
1712: -- Override for what-if adjustment
1713: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1714: running_mode:= fa_std_types.FA_DPR_PROJECT;
1715: else
1716: running_mode:= fa_std_types.FA_DPR_NORMAL;
1717: end if;

Line 1714: running_mode:= fa_std_types.FA_DPR_PROJECT;

1710: begin
1711:
1712: -- Override for what-if adjustment
1713: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1714: running_mode:= fa_std_types.FA_DPR_PROJECT;
1715: else
1716: running_mode:= fa_std_types.FA_DPR_NORMAL;
1717: end if;
1718: -- End of Manual Override

Line 1716: running_mode:= fa_std_types.FA_DPR_NORMAL;

1712: -- Override for what-if adjustment
1713: if X_fin_info_ptr.running_mode = fa_std_types.FA_DPR_PROJECT then
1714: running_mode:= fa_std_types.FA_DPR_PROJECT;
1715: else
1716: running_mode:= fa_std_types.FA_DPR_NORMAL;
1717: end if;
1718: -- End of Manual Override
1719:
1720: l_fin_info := X_fin_info_ptr;

Line 1945: -- FA_STD_TYPES.FA_DPR_NORMAL)) then

1941: if (not FA_CDE_PKG.faxcde(l_dpr_row,
1942: l_dpr_arr,
1943: l_dpr_out,
1944: running_mode, p_log_level_rec => p_log_level_rec)) then
1945: -- FA_STD_TYPES.FA_DPR_NORMAL)) then
1946: FA_SRVR_MSG.ADD_MESSAGE
1947: (CALLING_FN => 'FA_AMORT_PKG.get_reserve',
1948: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1949: return FALSE;

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

2005: return true;
2006: end if;
2007:
2008: -- following cache call is redundant as cache shoudl already be loaded - BMR (double check)
2009: -- if h_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then
2010: if h_deprn_basis_formula = 'STRICT_FLAT' then
2011: if ( not fa_cache_pkg.fazccmt(x_method_code,
2012: x_life, p_log_level_rec => p_log_level_rec)) then
2013: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);

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

2016:
2017: h_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
2018: h_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
2019:
2020: if h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
2021: if x_rec_cost is null then
2022: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
2023: return false;
2024: end if;

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

2024: end if;
2025:
2026: x_adj_cost := x_rec_cost;
2027:
2028: elsif h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then
2029:
2030: if x_rec_cost is null or
2031: not ( (x_prior_fy_exp is not null) or
2032: (x_deprn_rsv is not null and x_ytd_deprn is not null) ) then