DBA Data[Home] [Help]

APPS.FA_AMORT_PVT dependencies on FA_STD_TYPES

Line 2840: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then

2836:
2837: /*
2838: if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
2839: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
2840: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
2841: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) +
2842: nvl(p_asset_fin_rec_adj.adjusted_capacity, 0);
2843: end if;
2844: */

Line 3494: l_dpr_in FA_STD_TYPES.dpr_struct;

3490: l_cost_of_removal NUMBER := 0;
3491:
3492:
3493: --+++++++++++++++ For calling faxcde +++++++++++++++
3494: l_dpr_in FA_STD_TYPES.dpr_struct;
3495: l_dpr_out FA_STD_TYPES.dpr_out_struct;
3496: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
3497: l_running_mode NUMBER;
3498:

Line 3495: l_dpr_out FA_STD_TYPES.dpr_out_struct;

3491:
3492:
3493: --+++++++++++++++ For calling faxcde +++++++++++++++
3494: l_dpr_in FA_STD_TYPES.dpr_struct;
3495: l_dpr_out FA_STD_TYPES.dpr_out_struct;
3496: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
3497: l_running_mode NUMBER;
3498:
3499: --

Line 3496: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

3492:
3493: --+++++++++++++++ For calling faxcde +++++++++++++++
3494: l_dpr_in FA_STD_TYPES.dpr_struct;
3495: l_dpr_out FA_STD_TYPES.dpr_out_struct;
3496: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
3497: l_running_mode NUMBER;
3498:
3499: --
3500: -- These are used to store return values from faxcde which

Line 5392: l_running_mode := fa_std_types.FA_DPR_NORMAL;

5388:
5389: --
5390: -- Not for what-if yet
5391: --
5392: l_running_mode := fa_std_types.FA_DPR_NORMAL;
5393:
5394:
5395: if (not fa_cache_pkg.fazccmt(
5396: fa_amort_pvt.t_deprn_method_code(i),

Line 5443: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and

5439: -- Skip faxcde call for raf
5440: -- If rate source rule is FLAT and depreciable basis is Cost
5441: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
5442: -- always return NULL in place of FALSE, which is incorrect
5443: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5444: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
5445: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5446: 'PERIOD END AVERAGE',
5447: 'USE RECOVERABLE COST',

Line 5444: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and

5440: -- If rate source rule is FLAT and depreciable basis is Cost
5441: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
5442: -- always return NULL in place of FALSE, which is incorrect
5443: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5444: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
5445: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5446: 'PERIOD END AVERAGE',
5447: 'USE RECOVERABLE COST',
5448: 'BEGINNING PERIOD'))) or

Line 5499: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)

5495: -- 1. formula; or
5496: -- 2. (calc or table) and cost
5497:
5498: l_dpr_in.update_override_status :=
5499: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
5500: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
5501: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
5502: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
5503: end if;

Line 5500: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)

5496: -- 2. (calc or table) and cost
5497:
5498: l_dpr_in.update_override_status :=
5499: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
5500: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
5501: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
5502: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
5503: end if;
5504:

Line 5501: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))

5497:
5498: l_dpr_in.update_override_status :=
5499: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
5500: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
5501: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
5502: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
5503: end if;
5504:
5505: --* HHIRAGA modified on Oct/Nov in 2003.

Line 5502: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));

5498: l_dpr_in.update_override_status :=
5499: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
5500: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
5501: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
5502: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
5503: end if;
5504:
5505: --* HHIRAGA modified on Oct/Nov in 2003.
5506: -- Changed parameter to period counter when the recalculation of

Line 5573: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

5569: if fa_cache_pkg.fa_deprn_override_enabled then
5570: if l_dpr_in.update_override_status then
5571: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
5572: else
5573: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
5574: end if;
5575: end if;
5576:
5577: l_asset_fin_rec_new.adjusted_cost := l_dpr_out.new_adj_cost;

Line 7735: l_dpr FA_STD_TYPES.FA_DEPRN_ROW_STRUCT;

7731: AND ADJ.ADJUSTMENT_TYPE in ('RESERVE', 'EXPENSE');
7732:
7733:
7734: l_calling_fn VARCHAR2(100) := 'FA_AMORT_PVT.GetDeprnRec';
7735: l_dpr FA_STD_TYPES.FA_DEPRN_ROW_STRUCT;
7736: l_run_mode VARCHAR2(20) := 'TRANSACTION';
7737: l_status BOOLEAN;
7738:
7739: l_deprn_rsv number;

Line 11401: fa_std_types.FA_NO_OVERRIDE deprn_override_flag,

11397: th.transaction_key transaction_key,
11398: th.amortization_start_date amortization_start_date,
11399: th.calling_interface calling_interface,
11400: th.mass_transaction_id mass_transaction_id,
11401: fa_std_types.FA_NO_OVERRIDE deprn_override_flag,
11402: th.member_transaction_header_id member_transaction_header_id,
11403: th.trx_reference_id trx_reference_id,
11404: th.invoice_transaction_id,
11405: '1st SELECT in c_get_ths_adj'

Line 11470: fa_std_types.FA_NO_OVERRIDE deprn_override_flag,

11466: th.transaction_key transaction_key,
11467: th.amortization_start_date amortization_start_date,
11468: th.calling_interface calling_interface,
11469: th.mass_transaction_id mass_transaction_id,
11470: fa_std_types.FA_NO_OVERRIDE deprn_override_flag,
11471: th.member_transaction_header_id member_transaction_header_id,
11472: th.trx_reference_id trx_reference_id,
11473: th.invoice_transaction_id,
11474: '2nd SELECT in c_get_ths_adj'

Line 11916: l_dpr_in FA_STD_TYPES.dpr_struct;

11912:
11913: l_limit CONSTANT BINARY_INTEGER := 1800; -- main transaction_cursor limit constant;
11914:
11915: --+++++++++++++++ For calling faxcde +++++++++++++++
11916: l_dpr_in FA_STD_TYPES.dpr_struct;
11917: l_dpr_out FA_STD_TYPES.dpr_out_struct;
11918: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
11919: l_running_mode NUMBER;
11920:

Line 11917: l_dpr_out FA_STD_TYPES.dpr_out_struct;

11913: l_limit CONSTANT BINARY_INTEGER := 1800; -- main transaction_cursor limit constant;
11914:
11915: --+++++++++++++++ For calling faxcde +++++++++++++++
11916: l_dpr_in FA_STD_TYPES.dpr_struct;
11917: l_dpr_out FA_STD_TYPES.dpr_out_struct;
11918: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
11919: l_running_mode NUMBER;
11920:
11921: --++++++++++ For storing retirement values ++++++++++

Line 11918: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

11914:
11915: --+++++++++++++++ For calling faxcde +++++++++++++++
11916: l_dpr_in FA_STD_TYPES.dpr_struct;
11917: l_dpr_out FA_STD_TYPES.dpr_out_struct;
11918: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
11919: l_running_mode NUMBER;
11920:
11921: --++++++++++ For storing retirement values ++++++++++
11922: l_retirement_id NUMBER(15);

Line 12131: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then

12127: end if;
12128: end if;
12129:
12130: -- Bug 5726160
12131: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then
12132:
12133: if p_trans_rec.transaction_type_code = 'REINSTATEMENT' then
12134:
12135: begin

Line 13248: l_running_mode := fa_std_types.FA_DPR_NORMAL;

13244:
13245: --
13246: -- Not for what-if yet
13247: --
13248: l_running_mode := fa_std_types.FA_DPR_NORMAL;
13249: --tk_util.debug('2 rec_cost: '||to_char(px_asset_fin_rec_new.recoverable_cost));
13250:
13251: if (l_process_this_trx) then
13252:

Line 13280: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and

13276:
13277: -- skip faxcde call for raf
13278: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
13279: -- always return NULL in place of FALSE, which is incorrect
13280: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
13281: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
13282: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
13283: 'PERIOD END AVERAGE',
13284: 'USE RECOVERABLE COST',

Line 13281: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and

13277: -- skip faxcde call for raf
13278: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
13279: -- always return NULL in place of FALSE, which is incorrect
13280: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
13281: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
13282: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
13283: 'PERIOD END AVERAGE',
13284: 'USE RECOVERABLE COST',
13285: 'BEGINNING PERIOD'))) or

Line 13340: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)

13336: -- 1. formula; or
13337: -- 2. (calc or table) and cost
13338:
13339: l_dpr_in.update_override_status :=
13340: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
13341: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
13342: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
13343: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
13344: end if;

Line 13341: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)

13337: -- 2. (calc or table) and cost
13338:
13339: l_dpr_in.update_override_status :=
13340: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
13341: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
13342: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
13343: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
13344: end if;
13345:

Line 13342: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))

13338:
13339: l_dpr_in.update_override_status :=
13340: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
13341: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
13342: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
13343: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
13344: end if;
13345:
13346: --+++++++ Call Tracking Function to populate Member in case ALLOCATE ++++++

Line 13343: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));

13339: l_dpr_in.update_override_status :=
13340: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
13341: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
13342: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
13343: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
13344: end if;
13345:
13346: --+++++++ Call Tracking Function to populate Member in case ALLOCATE ++++++
13347: if nvl(l_dpr_in.tracking_method,'OTHER') = 'ALLOCATE' then

Line 13404: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

13400: if fa_cache_pkg.fa_deprn_override_enabled then
13401: if l_dpr_in.update_override_status then
13402: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
13403: else
13404: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
13405: end if;
13406: end if;
13407:
13408: l_asset_fin_rec_new.adjusted_cost := l_dpr_out.new_adj_cost;

Line 13795: -- Set FA_STD_TYPES.dpr_struct for depreciation(faxcde) call.

13791: ,p_log_level_rec => p_log_level_rec);
13792: end if;
13793: --
13794: -- Find how many periods to depreciate until next transaction headers
13795: -- Set FA_STD_TYPES.dpr_struct for depreciation(faxcde) call.
13796: --
13797: if (nvl(l_next_period_rec.period_counter, p_period_rec.period_counter) = 1) then
13798: l_dpr_in.y_end := nvl(l_next_period_rec.fiscal_year, p_period_rec.fiscal_year) - 1;
13799: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;

Line 14000: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then

13996: p_trans_rec.transaction_type_code', p_trans_rec.transaction_type_code);
13997: end if;
13998:
13999: -- Bug 5726160
14000: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then
14001:
14002: if p_trans_rec.transaction_type_code = 'REINSTATEMENT' then
14003:
14004: if l_retirement_thid = l_trans_rec.transaction_header_id then

Line 14215: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then

14211: nvl(p_asset_deprn_rec.bonus_deprn_reserve, 0);
14212:
14213: elsif (p_trans_rec.transaction_type_code = 'REINSTATEMENT') then
14214: -- Bug 5726160
14215: if p_running_mode = fa_std_types.FA_DPR_CATCHUP then
14216: x_deprn_expense := nvl(l_asset_deprn_rec.deprn_reserve, 0) -
14217: nvl(l_catchup_begin_deprn_rec.deprn_reserve, 0);
14218: x_bonus_expense := nvl(l_asset_deprn_rec.bonus_deprn_reserve, 0) -
14219: nvl(l_catchup_begin_deprn_rec.bonus_deprn_reserve, 0);

Line 14588: l_dpr_row FA_STD_TYPES.dpr_struct;

14584:
14585: l_asset_fin_rec FA_API_TYPES.asset_fin_rec_type;
14586: l_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
14587:
14588: l_dpr_row FA_STD_TYPES.dpr_struct;
14589: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14590: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14591:
14592: l_cur_deprn_rsv number;

Line 14589: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

14585: l_asset_fin_rec FA_API_TYPES.asset_fin_rec_type;
14586: l_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
14587:
14588: l_dpr_row FA_STD_TYPES.dpr_struct;
14589: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14590: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14591:
14592: l_cur_deprn_rsv number;
14593: l_cur_bonus_deprn_rsv number;

Line 14590: l_dpr_out FA_STD_TYPES.dpr_out_struct;

14586: l_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
14587:
14588: l_dpr_row FA_STD_TYPES.dpr_struct;
14589: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14590: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14591:
14592: l_cur_deprn_rsv number;
14593: l_cur_bonus_deprn_rsv number;
14594:

Line 14715: FA_STD_TYPES.FA_DPR_NORMAL

14711:
14712: if (not FA_CDE_PKG.faxcde(l_dpr_row,
14713: l_dpr_arr,
14714: l_dpr_out,
14715: FA_STD_TYPES.FA_DPR_NORMAL
14716: ,p_log_level_rec => p_log_level_rec)) then
14717: FA_SRVR_MSG.ADD_MESSAGE
14718: (CALLING_FN=>'faxcde3'
14719: ,p_log_level_rec => p_log_level_rec);

Line 14791: -- if l_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then

14787: if l_deprn_basis_formula is null then
14788: return true;
14789: end if;
14790:
14791: -- if l_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then
14792: if l_deprn_basis_formula = 'STRICT_FLAT' then
14793: if (not fa_cache_pkg.fazccmt(p_method_code,
14794: p_life
14795: ,p_log_level_rec => p_log_level_rec)) then

Line 14804: if l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and

14800:
14801: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
14802: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
14803:
14804: if l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
14805: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
14806: if p_rec_cost is null then
14807: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac'
14808: ,p_log_level_rec => p_log_level_rec);

Line 14805: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then

14801: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
14802: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
14803:
14804: if l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
14805: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
14806: if p_rec_cost is null then
14807: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac'
14808: ,p_log_level_rec => p_log_level_rec);
14809: return false;

Line 14812: elsif l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and

14808: ,p_log_level_rec => p_log_level_rec);
14809: return false;
14810: end if;
14811: px_adj_cost := p_rec_cost;
14812: elsif l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
14813: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then
14814: if p_rec_cost is null or
14815: not ((p_prior_fy_exp is not null) or
14816: (p_deprn_rsv is not null and p_ytd_deprn is not null)) then

Line 14813: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then

14809: return false;
14810: end if;
14811: px_adj_cost := p_rec_cost;
14812: elsif l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
14813: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_NBV then
14814: if p_rec_cost is null or
14815: not ((p_prior_fy_exp is not null) or
14816: (p_deprn_rsv is not null and p_ytd_deprn is not null)) then
14817: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac'

Line 14851: l_dpr_row FA_STD_TYPES.dpr_struct;

14847: p_running_mode IN NUMBER,
14848: p_used_by_revaluation IN NUMBER,
14849: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
14850:
14851: l_dpr_row FA_STD_TYPES.dpr_struct;
14852: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14853: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14854: l_add_txn_id number;
14855: l_deprn_basis_rule varchar2(25);

Line 14852: l_dpr_out FA_STD_TYPES.dpr_out_struct;

14848: p_used_by_revaluation IN NUMBER,
14849: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
14850:
14851: l_dpr_row FA_STD_TYPES.dpr_struct;
14852: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14853: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14854: l_add_txn_id number;
14855: l_deprn_basis_rule varchar2(25);
14856: l_rate_source_rule varchar2(25);

Line 14853: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

14849: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
14850:
14851: l_dpr_row FA_STD_TYPES.dpr_struct;
14852: l_dpr_out FA_STD_TYPES.dpr_out_struct;
14853: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
14854: l_add_txn_id number;
14855: l_deprn_basis_rule varchar2(25);
14856: l_rate_source_rule varchar2(25);
14857: l_excl_salvage_val_flag boolean;

Line 14880: l_deprn_summary fa_std_types.fa_deprn_row_struct;

14876: l_last_per_ctr integer;
14877: l_amortize_per_ctr integer;
14878: l_adjustment_amount number;
14879: l_rsv_amount number;
14880: l_deprn_summary fa_std_types.fa_deprn_row_struct;
14881: l_dummy_bool boolean; --Used to call QUERY_BALANCES_INT
14882:
14883: l_temp_deprn_rsv number; -- reserve at the beginning of fy
14884: l_cur_total_rsv number;

Line 14914: if p_running_mode = fa_std_types.FA_DPR_PROJECT then

14910:
14911: begin <>
14912:
14913: -- override
14914: if p_running_mode = fa_std_types.FA_DPR_PROJECT then
14915: l_running_mode:= fa_std_types.FA_DPR_PROJECT;
14916: else
14917: l_running_mode:= fa_std_types.FA_DPR_NORMAL;
14918: end if;

Line 14915: l_running_mode:= fa_std_types.FA_DPR_PROJECT;

14911: begin <>
14912:
14913: -- override
14914: if p_running_mode = fa_std_types.FA_DPR_PROJECT then
14915: l_running_mode:= fa_std_types.FA_DPR_PROJECT;
14916: else
14917: l_running_mode:= fa_std_types.FA_DPR_NORMAL;
14918: end if;
14919: -- End of Manual Override

Line 14917: l_running_mode:= fa_std_types.FA_DPR_NORMAL;

14913: -- override
14914: if p_running_mode = fa_std_types.FA_DPR_PROJECT then
14915: l_running_mode:= fa_std_types.FA_DPR_PROJECT;
14916: else
14917: l_running_mode:= fa_std_types.FA_DPR_NORMAL;
14918: end if;
14919: -- End of Manual Override
14920:
14921: if (p_log_level_rec.statement_level) then

Line 14978: value => FA_STD_TYPES.FA_DPR_ROUND_ADJ

14974: ,p_log_level_rec => p_log_level_rec);
14975: FA_DEBUG_PKG.ADD
14976: (fname => 'FA_AMORT_PKG.faxraf',
14977: element => 'FA_STD TYPE deprn_rnd- before faxbds',
14978: value => FA_STD_TYPES.FA_DPR_ROUND_ADJ
14979: ,p_log_level_rec => p_log_level_rec);
14980: end if;
14981:
14982: if not FA_EXP_PVT.faxbds

Line 15003: l_dpr_row.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

14999: l_cur_ytd := l_dpr_row.ytd_deprn;
15000:
15001: -- override
15002: l_dpr_row.used_by_adjustment := TRUE;
15003: l_dpr_row.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
15004:
15005: -- l_err_string := 'FA_AMT_CAL_DP_EXP';
15006: if (p_log_level_rec.statement_level) then
15007: FA_DEBUG_PKG.ADD

Line 15096: l_use_override := ((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or

15092: if p_used_by_revaluation = 1 then
15093: l_used_by_revaluation:= 1;
15094: end if;
15095:
15096: l_use_override := ((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
15097: (((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
15098: (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
15099: (l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)));
15100:

Line 15097: (((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or

15093: l_used_by_revaluation:= 1;
15094: end if;
15095:
15096: l_use_override := ((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
15097: (((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
15098: (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
15099: (l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)));
15100:
15101: -- Set Tracking related variables

Line 15098: (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and

15094: end if;
15095:
15096: l_use_override := ((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
15097: (((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
15098: (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
15099: (l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)));
15100:
15101: -- Set Tracking related variables
15102: l_dpr_row.tracking_method := p_asset_fin_rec_old.tracking_method;

Line 15099: (l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)));

15095:
15096: l_use_override := ((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FORMULA) or
15097: (((l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) or
15098: (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_TABLE)) and
15099: (l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)));
15100:
15101: -- Set Tracking related variables
15102: l_dpr_row.tracking_method := p_asset_fin_rec_old.tracking_method;
15103: l_dpr_row.allocate_to_fully_ret_flag := p_asset_fin_rec_old.allocate_to_fully_ret_flag;

Line 15121: FA_STD_TYPES.FA_DPR_NORMAL

15117: if (not FA_CDE_PKG.faxcde
15118: (l_dpr_row,
15119: l_dpr_arr,
15120: l_dpr_out,
15121: FA_STD_TYPES.FA_DPR_NORMAL
15122: ,p_log_level_rec => p_log_level_rec)) then
15123: FA_SRVR_MSG.ADD_MESSAGE
15124: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
15125: NAME=>'FA_AMT_CAL_DP_EXP'

Line 15153: fa_std_types.deprn_override_trigger_enabled:= FALSE;

15149: return FALSE;
15150: end if;
15151:
15152: -- Override
15153: fa_std_types.deprn_override_trigger_enabled:= FALSE;
15154: if l_use_override then -- pass deprn_override_flag to faxiat
15155: px_trans_rec.deprn_override_flag:= l_dpr_out.deprn_override_flag;
15156: if (p_log_level_rec.statement_level) then
15157: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',

Line 15164: px_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;

15160: ,p_log_level_rec => p_log_level_rec);
15161: end if;
15162: else
15163: -- pass fa_no_override to faxiat
15164: px_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
15165: -- update the status fa_deprn_override from 'SELECTED' to 'POST'
15166: UPDATE FA_DEPRN_OVERRIDE
15167: SET status = 'POST'
15168: WHERE used_by = 'ADJUSTMENT'

Line 15173: fa_std_types.deprn_override_trigger_enabled:= TRUE;

15169: AND status = 'SELECTED'
15170: AND transaction_header_id is null;
15171: end if;
15172:
15173: fa_std_types.deprn_override_trigger_enabled:= TRUE;
15174:
15175: --
15176: -- In most cases, New Adjusted_Cost = New Net Book Value;
15177: -- New Rate_Adjustment_Factor = New Net Book Value / New Deprn_Reserve

Line 15191: if (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then

15187: -- not calculated on Depreciable Basis Formula
15188:
15189: px_asset_fin_rec_new.reval_amortization_basis := l_dpr_row.reval_rsv;
15190:
15191: if (l_rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
15192: px_asset_fin_rec_new.rate_adjustment_factor := 1;
15193: px_asset_fin_rec_new.adjusted_capacity
15194: := px_asset_fin_rec_new.production_capacity -
15195: l_dpr_out.new_ltd_prod;

Line 15203: if (not l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) then

15199: ----------------------------------------------
15200: -- Call Depreciable Basis Rule
15201: -- for Amortized Adjustment of current period
15202: ----------------------------------------------
15203: if (not l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC) then
15204: if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS (
15205: p_event_type => 'AMORT_ADJ',
15206: p_asset_fin_rec_new => px_asset_fin_rec_new,
15207: p_asset_fin_rec_old => p_asset_fin_rec_old,

Line 15517: FA_STD_TYPES.FA_DPR_NORMAL

15513: if (not FA_CDE_PKG.faxcde
15514: (l_dpr_row,
15515: l_dpr_arr,
15516: l_dpr_out,
15517: FA_STD_TYPES.FA_DPR_NORMAL
15518: ,p_log_level_rec => p_log_level_rec)) then
15519: FA_SRVR_MSG.ADD_MESSAGE
15520: (CALLING_FN=>'faxcde2'
15521: ,p_log_level_rec => p_log_level_rec);

Line 15664: l_dpr_in FA_STD_TYPES.dpr_struct;

15660: l_rate_source_rule VARCHAR2(25);
15661: l_deprn_basis_rule VARCHAR2(25);
15662:
15663: --+++++++++++++++ For calling faxcde +++++++++++++++
15664: l_dpr_in FA_STD_TYPES.dpr_struct;
15665: l_dpr_out FA_STD_TYPES.dpr_out_struct;
15666: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
15667: l_running_mode NUMBER;
15668:

Line 15665: l_dpr_out FA_STD_TYPES.dpr_out_struct;

15661: l_deprn_basis_rule VARCHAR2(25);
15662:
15663: --+++++++++++++++ For calling faxcde +++++++++++++++
15664: l_dpr_in FA_STD_TYPES.dpr_struct;
15665: l_dpr_out FA_STD_TYPES.dpr_out_struct;
15666: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
15667: l_running_mode NUMBER;
15668:
15669: l_deprn_reserve NUMBER;

Line 15666: l_dpr_arr FA_STD_TYPES.dpr_arr_type;

15662:
15663: --+++++++++++++++ For calling faxcde +++++++++++++++
15664: l_dpr_in FA_STD_TYPES.dpr_struct;
15665: l_dpr_out FA_STD_TYPES.dpr_out_struct;
15666: l_dpr_arr FA_STD_TYPES.dpr_arr_type;
15667: l_running_mode NUMBER;
15668:
15669: l_deprn_reserve NUMBER;
15670: l_temp_integer BINARY_INTEGER;

Line 15709: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)

15705:
15706: -- Skipping call to the function because it is not necessary for straight line
15707: -- or flat-cost with period end balance and use recoverable cost basis rules
15708: -- There are more cases which calling this function unnecessary but not include for this time.
15709: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
15710: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15711: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15712: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
15713:

Line 15710: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and

15706: -- Skipping call to the function because it is not necessary for straight line
15707: -- or flat-cost with period end balance and use recoverable cost basis rules
15708: -- There are more cases which calling this function unnecessary but not include for this time.
15709: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
15710: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15711: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15712: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
15713:
15714: -- Get Eofy/Eop Recovearble Cost and Salvage Value

Line 15711: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and

15707: -- or flat-cost with period end balance and use recoverable cost basis rules
15708: -- There are more cases which calling this function unnecessary but not include for this time.
15709: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
15710: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15711: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15712: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
15713:
15714: -- Get Eofy/Eop Recovearble Cost and Salvage Value
15715: if (not FA_CALC_DEPRN_BASIS1_PKG.GET_EOFY_EOP (

Line 15751: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and

15747:
15748: -- Skipping call to faxcde because it is unnecessary for flat-cost with period end balance,
15749: -- use recoverable cost, period average, and beginning balance basis rules
15750: -- There are more cases which calling this function unnecessary but not include for this time.
15751: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15752: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15753: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
15754: 'USE RECOVERABLE COST', 'BEGINNING PERIOD')) or
15755: fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD))) then

Line 15752: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and

15748: -- Skipping call to faxcde because it is unnecessary for flat-cost with period end balance,
15749: -- use recoverable cost, period average, and beginning balance basis rules
15750: -- There are more cases which calling this function unnecessary but not include for this time.
15751: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15752: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15753: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
15754: 'USE RECOVERABLE COST', 'BEGINNING PERIOD')) or
15755: fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD))) then
15756:

Line 15755: fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD))) then

15751: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
15752: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
15753: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
15754: 'USE RECOVERABLE COST', 'BEGINNING PERIOD')) or
15755: fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD))) then
15756:
15757: l_dpr_in.asset_num := p_asset_desc_rec.asset_number;
15758: l_dpr_in.calendar_type := fa_cache_pkg.fazcbc_record.deprn_calendar;
15759: l_dpr_in.book := p_asset_hdr_rec.book_type_code;

Line 15819: l_running_mode := fa_std_types.FA_DPR_NORMAL;

15815:
15816: --
15817: -- Not for what-if yet
15818: --
15819: l_running_mode := fa_std_types.FA_DPR_NORMAL;
15820:
15821: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
15822: fa_cache_pkg.fazcbc_record.fiscal_year_name,
15823: l_dpr_in.prorate_jdate,

Line 15880: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)

15876: -- 1. formula; or
15877: -- 2. (calc or table) and cost
15878:
15879: l_dpr_in.update_override_status :=
15880: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
15881: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
15882: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
15883: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
15884: end if;

Line 15881: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)

15877: -- 2. (calc or table) and cost
15878:
15879: l_dpr_in.update_override_status :=
15880: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
15881: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
15882: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
15883: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
15884: end if;
15885:

Line 15882: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))

15878:
15879: l_dpr_in.update_override_status :=
15880: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
15881: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
15882: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
15883: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
15884: end if;
15885:
15886: --* HHIRAGA modified on Oct/Nov in 2003.

Line 15883: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));

15879: l_dpr_in.update_override_status :=
15880: ((l_rate_source_rule = fa_std_types.FAD_RSR_FORMULA)
15881: OR (((l_rate_source_rule = fa_std_types.FAD_RSR_CALC)
15882: OR (l_rate_source_rule = fa_std_types.FAD_RSR_TABLE))
15883: AND (l_deprn_basis_rule = fa_std_types.FAD_DBR_COST)));
15884: end if;
15885:
15886: --* HHIRAGA modified on Oct/Nov in 2003.
15887: -- Changed parameter to period counter when the recalculation of

Line 16129: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then

16125:
16126: -- Bug7446301: Redoing fix for bug7209655. Removed tracking method condition so that process
16127: -- will satisfy following if condition even if the asset type is not GROUP
16128: if (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
16129: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
16130: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) -
16131: nvl(p_asset_deprn_rec_new.ltd_production, 0);
16132: end if;
16133: