[Home] [Help]
8: g_temp_integer BINARY_INTEGER;
9: g_temp_number number;
10: g_temp_char30 varchar2(30);
11:
12: g_release number := fa_cache_pkg.fazarel_release; -- Bug#8605817
13:
14: /* Global constant variables */
15:
16: G_ASSET_TYPE_GROUP varchar2(5) := 'GROUP';
75: FROM fa_calendar_periods fcp, fa_calendar_types fct, fa_fiscal_year ffy
76: WHERE pp_date BETWEEN fcp.start_date AND fcp.end_date
77: AND pp_date BETWEEN ffy.start_date AND ffy.end_date
78: AND fct.calendar_type = fcp.calendar_type
79: AND ffy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
80: AND fct.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar;
81:
82: RETURN l_pc;
83: EXCEPTION WHEN OTHERS THEN
76: WHERE pp_date BETWEEN fcp.start_date AND fcp.end_date
77: AND pp_date BETWEEN ffy.start_date AND ffy.end_date
78: AND fct.calendar_type = fcp.calendar_type
79: AND ffy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
80: AND fct.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar;
81:
82: RETURN l_pc;
83: EXCEPTION WHEN OTHERS THEN
84: if (p_log_level_rec.statement_level) then
185: CURSOR c_get_period_info IS
186: select start_date
187: , end_date
188: from fa_calendar_periods
189: where calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
190: and to_date (to_char (p_jdate), 'J') between start_date
191: and end_date;
192:
193: BEGIN
207: , x_period_rec.period_num;
208:
209: if (c_get_mc_deprn_period_info%NOTFOUND) then
210:
211: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
212: raise get_err;
213: end if;
214:
215: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
211: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
212: raise get_err;
213: end if;
214:
215: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
216: fa_cache_pkg.fazcbc_record.fiscal_year_name,
217: p_jdate,
218: x_period_rec.period_num,
219: x_period_rec.fiscal_year,
212: raise get_err;
213: end if;
214:
215: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
216: fa_cache_pkg.fazcbc_record.fiscal_year_name,
217: p_jdate,
218: x_period_rec.period_num,
219: x_period_rec.fiscal_year,
220: g_temp_number, p_log_level_rec => p_log_level_rec) then
221: raise get_err;
222: end if;
223:
224: x_period_rec.period_counter := x_period_rec.fiscal_year *
225: fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR +
226: x_period_rec.period_num;
227:
228: OPEN c_get_period_info;
229: FETCH c_get_period_info INTO x_period_rec.calendar_period_open_date,
247: , x_period_rec.period_num;
248:
249: if (c_get_deprn_period_info%NOTFOUND) then
250:
251: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
252: raise get_err;
253: end if;
254:
255: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
251: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
252: raise get_err;
253: end if;
254:
255: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
256: fa_cache_pkg.fazcbc_record.fiscal_year_name,
257: p_jdate,
258: x_period_rec.period_num,
259: x_period_rec.fiscal_year,
252: raise get_err;
253: end if;
254:
255: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.deprn_calendar,
256: fa_cache_pkg.fazcbc_record.fiscal_year_name,
257: p_jdate,
258: x_period_rec.period_num,
259: x_period_rec.fiscal_year,
260: g_temp_number, p_log_level_rec => p_log_level_rec) then
261: raise get_err;
262: end if;
263:
264: x_period_rec.period_counter := x_period_rec.fiscal_year *
265: fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR +
266: x_period_rec.period_num;
267:
268: OPEN c_get_period_info;
269: FETCH c_get_period_info INTO x_period_rec.calendar_period_open_date,
1037: , 'N'
1038: from fa_fiscal_year fy
1039: , fa_calendar_types ct
1040: , fa_calendar_periods cp
1041: where ct.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
1042: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1043: and ct.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1044: and ct.calendar_type = cp.calendar_type
1045: and cp.start_date between fy.start_date and fy.end_date
1038: from fa_fiscal_year fy
1039: , fa_calendar_types ct
1040: , fa_calendar_periods cp
1041: where ct.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
1042: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1043: and ct.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1044: and ct.calendar_type = cp.calendar_type
1045: and cp.start_date between fy.start_date and fy.end_date
1046: and fa_cache_pkg.fazcbc_record.last_period_counter + 1 >=
1039: , fa_calendar_types ct
1040: , fa_calendar_periods cp
1041: where ct.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
1042: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1043: and ct.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1044: and ct.calendar_type = cp.calendar_type
1045: and cp.start_date between fy.start_date and fy.end_date
1046: and fa_cache_pkg.fazcbc_record.last_period_counter + 1 >=
1047: fy.fiscal_year * ct.NUMBER_PER_FISCAL_YEAR + cp.PERIOD_NUM
1042: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1043: and ct.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1044: and ct.calendar_type = cp.calendar_type
1045: and cp.start_date between fy.start_date and fy.end_date
1046: and fa_cache_pkg.fazcbc_record.last_period_counter + 1 >=
1047: fy.fiscal_year * ct.NUMBER_PER_FISCAL_YEAR + cp.PERIOD_NUM
1048: and cp.end_date >= p_asset_fin_rec.date_placed_in_service
1049: order by period_counter;
1050:
2841: --tk_util.debug('p_asset_fin_rec_adj.adjusted_capacity: '||to_char(p_asset_fin_rec_adj.adjusted_capacity));
2842:
2843: /*
2844: if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
2845: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
2846: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
2847: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) +
2848: nvl(p_asset_fin_rec_adj.adjusted_capacity, 0);
2849: end if;
2842:
2843: /*
2844: if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
2845: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
2846: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
2847: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) +
2848: nvl(p_asset_fin_rec_adj.adjusted_capacity, 0);
2849: end if;
2850: */
3764: end if;
3765:
3766: l_trx_period_rec := l_period_rec;
3767:
3768: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
3769:
3770: if (p_log_level_rec.statement_level) then
3771: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazcct', p_log_level_rec => p_log_level_rec);
3772: end if;
3767:
3768: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
3769:
3770: if (p_log_level_rec.statement_level) then
3771: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazcct', p_log_level_rec => p_log_level_rec);
3772: end if;
3773:
3774: raise calc_failed;
3775:
4088: g_mem_ytd_impairment,g_mem_impairment_reserve;
4089:
4090: close c_get_mem_bs_row;
4091: /*Bug 8765735 and 8814747 - Start*/
4092: if (fa_cache_pkg.fazcdbr_record.rule_name = 'ENERGY PERIOD END BALANCE') then
4093: l_dpr.asset_id := p_reclassed_asset_id;
4094: l_dpr.book := p_asset_hdr_rec.book_type_code;
4095: l_dpr.period_ctr := l_trx_period_rec.period_counter;
4096: l_dpr.dist_id := 0;
4131: g_mem_ytd_impairment,g_mem_impairment_reserve;
4132:
4133: close c_get_mem_bs_row_mrc;
4134: /*Bug 8765735 and 8814747 - Start*/
4135: if (fa_cache_pkg.fazcdbr_record.rule_name = 'ENERGY PERIOD END BALANCE') then
4136: l_dpr.asset_id := p_reclassed_asset_id;
4137: l_dpr.book := p_asset_hdr_rec.book_type_code;
4138: l_dpr.period_ctr := l_trx_period_rec.period_counter;
4139: l_dpr.dist_id := 0;
4214: fa_debug_pkg.add(l_calling_fn, 'x_deprn_reserve', g_mem_deprn_reserve, p_log_level_rec => p_log_level_rec);
4215: fa_debug_pkg.add(l_calling_fn, 'x_eofy_reserve', g_mem_eofy_reserve, p_log_level_rec => p_log_level_rec);
4216: end if;
4217: /*115.211.211 branch to mainline porting - strats*/
4218: if (fa_cache_pkg.fazcdbr_record.rule_name <> 'ENERGY PERIOD END BALANCE') then
4219: if not GetPeriodInfo(to_number(to_char(p_reclassed_asset_dpis, 'J')),
4220: p_asset_hdr_rec.book_type_code,
4221: p_mrc_sob_type_code,
4222: p_asset_hdr_rec.set_of_books_id,
4859: --tk_util.debug('fa_amort_pvt.t_change_in_cost('||to_char(i)||'): '|| to_char(fa_amort_pvt.t_change_in_cost(i)));
4860: --tk_util.debug('td_salvage_value('||to_char(d)||'): '|| to_char(td_salvage_value(d)));
4861:
4862: if (p_reclass_src_dest = 'SOURCE') and (l_trx_period_rec.period_counter = fa_amort_pvt.t_period_counter(i)
4863: and (nvl(fa_cache_pkg.fazcdbr_record.rule_name,'ZZ') = 'ENERGY PERIOD END BALANCE')
4864: ) then
4865: fa_amort_pvt.t_change_in_cost(i) := fa_amort_pvt.t_change_in_cost(i) +
4866: (l_asset_fin_rec_reclass.cost - td_cost(d));
4867: fa_amort_pvt.t_change_in_cip_cost(i) := fa_amort_pvt.t_change_in_cip_cost(i) +
4913:
4914: fa_amort_pvt.t_rate_adjustment_factor(i) := fa_amort_pvt.t_rate_adjustment_factor(i - 1);
4915: end if;
4916: if (p_reclass_src_dest = 'SOURCE') and (l_trx_period_rec.period_counter = fa_amort_pvt.t_period_counter(i)
4917: and (nvl(fa_cache_pkg.fazcdbr_record.rule_name,'ZZ') <> 'ENERGY PERIOD END BALANCE')
4918: ) then
4919: fa_amort_pvt.t_change_in_cost(i) := fa_amort_pvt.t_change_in_cost(i) +
4920: (l_asset_fin_rec_reclass.cost - td_cost(d));
4921: fa_amort_pvt.t_change_in_cip_cost(i) := fa_amort_pvt.t_change_in_cip_cost(i) +
5106:
5107: if (i = 2) then
5108: if ( fa_amort_pvt.t_period_num(i) = 1) and
5109:
5110: (nvl(fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag, 'N') = 'Y') or
5111: ( (nvl(fa_amort_pvt.t_change_in_cost(i), 0) <> 0) or
5112: (nvl(fa_amort_pvt.t_change_in_cip_cost(i), 0) <> 0)) then
5113:
5114: fa_amort_pvt.t_reset_adjusted_cost_flag(i) := 'Y';
5115: if (p_log_level_rec.statement_level) then
5116: fa_debug_pkg.add(l_calling_fn, 'There is still something changed', 'Resetting adj cost required', p_log_level_rec => p_log_level_rec);
5117: fa_debug_pkg.add(l_calling_fn, 'Resetting adjusted cost', 'Still Required', p_log_level_rec => p_log_level_rec);
5118: end if;
5119: elsif (nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y') then -- Added for bug 8425794 / 8244128
5120: fa_amort_pvt.t_reset_adjusted_cost_flag(i) := 'Y';
5121: if (p_log_level_rec.statement_level) then
5122: fa_debug_pkg.add(l_calling_fn, 'There is still something changed', 'Resetting adj cost required', p_log_level_rec => p_log_level_rec);
5123: fa_debug_pkg.add(l_calling_fn, 'Resetting adjusted cost', 'Still Required', p_log_level_rec => p_log_level_rec);
5249: if ((l_bs_ind <= i) and
5250: (fa_amort_pvt.t_period_counter(i) < p_period_rec.period_counter)) or
5251: ((fa_amort_pvt.t_period_counter(i) = p_period_rec.period_counter) and
5252: ( (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
5253: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' ) ) then
5254:
5255: --tk_util.debug('fa_amort_pvt.t_expense_adjustment_amount('||to_char(i)||'): '||to_char(fa_amort_pvt.t_expense_adjustment_amount(i)));
5256: fa_amort_pvt.t_deprn_amount(i) := fa_amort_pvt.t_expense_adjustment_amount(i);
5257: --tk_util.debug('l_trx_period_rec.period_counter: '||to_char(l_trx_period_rec.period_counter));
5300: --Bug6987743: member reserve should be taken out is passed form
5301: -- outside (source is fa_trx_references
5302: -- Reserve adjustment amount has already been maintained before this line.
5303:
5304: if (fa_cache_pkg.fazcdbr_record.rule_name = 'ENERGY PERIOD END BALANCE') then
5305: x_deprn_reserve := (-1)*l_mem_deprn_reserve;
5306: else
5307: x_deprn_reserve := (fa_amort_pvt.t_deprn_reserve(i - 1) - l_old_reserve);
5308: end if;
5474: l_asset_fin_rec_new.super_group_id := fa_amort_pvt.t_super_group_id(i);
5475: l_asset_fin_rec_new.adjusted_capacity := fa_amort_pvt.t_adjusted_capacity(i); --Bug 8477192
5476:
5477: l_dpr_in.asset_num := p_asset_desc_rec.asset_number;
5478: l_dpr_in.calendar_type := fa_cache_pkg.fazcbc_record.deprn_calendar;
5479: l_dpr_in.book := p_asset_hdr_rec.book_type_code;
5480: l_dpr_in.asset_id := p_asset_hdr_rec.asset_id;
5481:
5482: l_dpr_in.adj_cost := fa_amort_pvt.t_recoverable_cost(i);
5572: --
5573: l_running_mode := fa_std_types.FA_DPR_NORMAL;
5574:
5575:
5576: if (not fa_cache_pkg.fazccmt(
5577: fa_amort_pvt.t_deprn_method_code(i),
5578: fa_amort_pvt.t_life_in_months(i),
5579: p_log_level_rec)) then
5580: if (p_log_level_rec.statement_level) then
5578: fa_amort_pvt.t_life_in_months(i),
5579: p_log_level_rec)) then
5580: if (p_log_level_rec.statement_level) then
5581: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5582: 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
5583: end if;
5584:
5585: raise calc_failed;
5586: end if;
5585: raise calc_failed;
5586: end if;
5587:
5588: if i = 1 then
5589: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
5590: fa_cache_pkg.fazcbc_record.fiscal_year_name,
5591: l_dpr_in.prorate_jdate,
5592: g_temp_number,
5593: l_dpr_in.y_begin,
5586: end if;
5587:
5588: if i = 1 then
5589: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
5590: fa_cache_pkg.fazcbc_record.fiscal_year_name,
5591: l_dpr_in.prorate_jdate,
5592: g_temp_number,
5593: l_dpr_in.y_begin,
5594: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5593: l_dpr_in.y_begin,
5594: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5595: if (p_log_level_rec.statement_level) then
5596: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5597: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5598: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5599: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5600: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5601: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5594: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5595: if (p_log_level_rec.statement_level) then
5596: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5597: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5598: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5599: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5600: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5601: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5602:
5595: if (p_log_level_rec.statement_level) then
5596: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5597: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5598: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5599: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5600: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5601: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5602:
5603: end if;
5596: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5597: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5598: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5599: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5600: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5601: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5602:
5603: end if;
5604:
5597: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5598: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5599: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5600: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5601: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5602:
5603: end if;
5604:
5605: raise calc_failed;
5611: -- If rate source rule is FLAT and depreciable basis is Cost
5612: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
5613: -- always return NULL in place of FALSE, which is incorrect
5614: -- Bug7487450: Skip hypo reserve calculation if it is UOP
5615: if (not (nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_PROD)) and
5616: (not (nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') = 'Y')) and /*bug#15897249 */
5617: (not((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5618: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule,' ') = fa_std_types.FAD_DBR_COST) and
5619: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5612: -- Bug4778244 Added the NVL to avoid condition if(not(null or false)) which will
5613: -- always return NULL in place of FALSE, which is incorrect
5614: -- Bug7487450: Skip hypo reserve calculation if it is UOP
5615: if (not (nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_PROD)) and
5616: (not (nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') = 'Y')) and /*bug#15897249 */
5617: (not((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5618: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule,' ') = fa_std_types.FAD_DBR_COST) and
5619: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5620: 'PERIOD END AVERAGE',
5613: -- always return NULL in place of FALSE, which is incorrect
5614: -- Bug7487450: Skip hypo reserve calculation if it is UOP
5615: if (not (nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_PROD)) and
5616: (not (nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') = 'Y')) and /*bug#15897249 */
5617: (not((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5618: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule,' ') = fa_std_types.FAD_DBR_COST) and
5619: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5620: 'PERIOD END AVERAGE',
5621: 'USE RECOVERABLE COST',
5614: -- Bug7487450: Skip hypo reserve calculation if it is UOP
5615: if (not (nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_PROD)) and
5616: (not (nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') = 'Y')) and /*bug#15897249 */
5617: (not((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5618: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule,' ') = fa_std_types.FAD_DBR_COST) and
5619: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5620: 'PERIOD END AVERAGE',
5621: 'USE RECOVERABLE COST',
5622: 'BEGINNING PERIOD')))) then
5615: if (not (nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_PROD)) and
5616: (not (nvl(fa_cache_pkg.fazcdrd_record.subtract_ytd_flag,'N') = 'Y')) and /*bug#15897249 */
5617: (not((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
5618: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule,' ') = fa_std_types.FAD_DBR_COST) and
5619: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
5620: 'PERIOD END AVERAGE',
5621: 'USE RECOVERABLE COST',
5622: 'BEGINNING PERIOD')))) then
5623:
5621: 'USE RECOVERABLE COST',
5622: 'BEGINNING PERIOD')))) then
5623:
5624: if (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
5625: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' then
5626: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
5627: fa_cache_pkg.fazcbc_record.fiscal_year_name,
5628: l_dpr_in.prorate_jdate,
5629: g_temp_number,
5622: 'BEGINNING PERIOD')))) then
5623:
5624: if (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
5625: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' then
5626: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
5627: fa_cache_pkg.fazcbc_record.fiscal_year_name,
5628: l_dpr_in.prorate_jdate,
5629: g_temp_number,
5630: l_dpr_in.y_begin,
5623:
5624: if (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
5625: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' then
5626: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
5627: fa_cache_pkg.fazcbc_record.fiscal_year_name,
5628: l_dpr_in.prorate_jdate,
5629: g_temp_number,
5630: l_dpr_in.y_begin,
5631: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5630: l_dpr_in.y_begin,
5631: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5632: if (p_log_level_rec.statement_level) then
5633: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5634: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5635: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5636: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5637: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5638: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5631: g_temp_integer, p_log_level_rec => p_log_level_rec) then
5632: if (p_log_level_rec.statement_level) then
5633: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5634: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5635: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5636: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5637: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5638: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5639:
5632: if (p_log_level_rec.statement_level) then
5633: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5634: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5635: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5636: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5637: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5638: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5639:
5640: end if;
5633: fa_debug_pkg.add(l_calling_fn, 'Error calling',
5634: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5635: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5636: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5637: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5638: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5639:
5640: end if;
5641:
5634: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
5635: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
5636: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
5637: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
5638: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
5639:
5640: end if;
5641:
5642: raise calc_failed;
5645: l_dpr_in.p_cl_begin := 1;
5646:
5647: if (fa_amort_pvt.t_period_num(i) = 1) then
5648: l_dpr_in.y_end := fa_amort_pvt.t_fiscal_year(i) - 1;
5649: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
5650: else
5651: l_dpr_in.y_end := fa_amort_pvt.t_fiscal_year(i);
5652: l_dpr_in.p_cl_end := fa_amort_pvt.t_period_num(i) - 1;
5653: end if;
5654:
5655: l_dpr_in.rate_adj_factor := 1;
5656:
5657: -- manual override
5658: if fa_cache_pkg.fa_deprn_override_enabled then
5659:
5660: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
5661: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
5662:
5656:
5657: -- manual override
5658: if fa_cache_pkg.fa_deprn_override_enabled then
5659:
5660: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
5661: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
5662:
5663: -- update override status only if satisfies condintion,
5664: -- otherwise do not update status when calculating RAF
5657: -- manual override
5658: if fa_cache_pkg.fa_deprn_override_enabled then
5659:
5660: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
5661: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
5662:
5663: -- update override status only if satisfies condintion,
5664: -- otherwise do not update status when calculating RAF
5665: -- 1. formula; or
5727: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
5728: end if;
5729:
5730: -- manual override
5731: if fa_cache_pkg.fa_deprn_override_enabled then
5732: if l_dpr_in.update_override_status then
5733: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
5734: else
5735: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
5771:
5772: else
5773: --bug#15897249 added if condition
5774: if ((not l_prev_adj_cost_flag) or (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
5775: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' or
5776: l_asset_fin_rec_new.adjusted_cost is null
5777: ) then
5778: l_asset_fin_rec_new.adjusted_cost := l_asset_fin_rec_new.recoverable_cost;
5779: end if;
5810:
5811: l_no_allocation_for_last := 'N';
5812: if fa_amort_pvt.t_period_num(i) = 1 then
5813: l_recalc_start_fy := fa_amort_pvt.t_fiscal_year(i) - 1;
5814: l_recalc_start_period_num := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
5815: else
5816: l_recalc_start_fy := fa_amort_pvt.t_fiscal_year(i);
5817: l_recalc_start_period_num := fa_amort_pvt.t_period_num(i) - 1;
5818: end if;
5857: fa_debug_pkg.add(l_calling_fn, 'l_old_recalc_end_period_num', l_old_recalc_end_period_num, p_log_level_rec => p_log_level_rec);
5858: end if;
5859:
5860: if l_old_recalc_end_fy is not NULL and l_old_recalc_end_period_num is not NULL then
5861: if l_old_recalc_end_period_num = fa_cache_pkg.fazcct_record.number_per_fiscal_year then
5862: l_old_recalc_end_fy := l_old_recalc_end_fy + 1;
5863: l_old_recalc_end_period_num := 1;
5864: else
5865: l_old_recalc_end_period_num := l_old_recalc_end_period_num + 1;
5874: end if;
5875:
5876: --* Calcualte recalc_start_period_counter
5877: if (l_first_process) then
5878: l_recalc_start_period_counter := l_recalc_start_fy*(fa_cache_pkg.fazcct_record.number_per_fiscal_year)
5879: + l_recalc_start_period_num;
5880:
5881: if p_mrc_sob_type_code <> 'R' then
5882: open c_chk_bs_row_exists;
6046: -- excess_allocation_option
6047: -- depreciation_option
6048: -- member_rollup_flag
6049:
6050: if (fa_cache_pkg.fazcdbr_record.rule_name = 'ENERGY PERIOD END BALANCE') and
6051: (p_asset_fin_rec_old.tracking_method = 'ALLOCATE') and
6052: (p_trans_rec.transaction_key = 'MS') then
6053: l_reserve_retired := 0;
6054: end if;
6060: -- if process reaches here.
6061: -- Bug7487450: need to call below if deprn basis is period update
6062: --
6063: if (fa_amort_pvt.t_reset_adjusted_cost_flag(i) = 'Y') or
6064: nvl(fa_cache_pkg.fazcdrd_record.period_update_flag,'N') = 'Y' then
6065: if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS
6066: (p_event_type => 'AMORT_ADJ',
6067: p_asset_fin_rec_new => l_asset_fin_rec_new,
6068: p_asset_fin_rec_old => l_asset_fin_rec_old,
6203: ((td_deprn_limit_amount(e) - td_deprn_limit_amount(e - 1)) <> 0) then
6204:
6205: if (fa_amort_pvt.t_period_num(j) = 1) then
6206: l_fiscal_year := fa_amort_pvt.t_fiscal_year(j) - 1;
6207: l_period_num := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
6208: else
6209: l_fiscal_year := fa_amort_pvt.t_fiscal_year(j);
6210: l_period_num := fa_amort_pvt.t_period_num(j) - 1;
6211: end if;
6224: if (fa_amort_pvt.t_reset_adjusted_cost_flag(j) = 'Y') or
6225: (j = (l_count)) then
6226: if (fa_amort_pvt.t_period_num(j) = 1) then
6227: l_fiscal_year := fa_amort_pvt.t_fiscal_year(j) - 1;
6228: l_period_num := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
6229: else
6230: l_fiscal_year := fa_amort_pvt.t_fiscal_year(j);
6231: l_period_num := fa_amort_pvt.t_period_num(j) - 1;
6232: end if;
6277: l_dpr_in.mrc_sob_type_code := p_mrc_sob_type_code;
6278: l_dpr_in.set_of_books_id := p_asset_hdr_rec.set_of_books_id;
6279:
6280: -- manual override
6281: if fa_cache_pkg.fa_deprn_override_enabled then
6282: l_dpr_in.update_override_status := TRUE;
6283: end if;
6284:
6285: --
6307: l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
6308: end if;
6309:
6310: -- manual override
6311: if fa_cache_pkg.fa_deprn_override_enabled then
6312: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
6313: end if;
6314:
6315: if (l_asset_fin_rec_new.adjusted_cost <> 0) or
6481: --
6482: -- Need to reset eofy and eop rec cost and salvage value
6483: -- for deprn basis call
6484: --
6485: if (l_count > fa_cache_pkg.fazcct_record.number_per_fiscal_year) then
6486: l_eofy_rec_cost := fa_amort_pvt.t_recoverable_cost(l_count - fa_amort_pvt.t_period_num(l_count));
6487: l_eofy_sal_val := fa_amort_pvt.t_salvage_value(l_count - fa_amort_pvt.t_period_num(l_count));
6488:
6489: if (l_count > 1) then
7654: and ds.book_type_code = p_asset_hdr_rec.book_type_code
7655: and ds.deprn_source_code = 'BOOKS'
7656: and dp.book_type_code = p_asset_hdr_rec.book_type_code
7657: and dp.period_counter = ds.period_counter + 1 --Bug6987743: add one
7658: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
7659: and fy.fiscal_year = (dp.period_counter - dp.period_num)/fa_cache_pkg.fazcct_record.number_per_fiscal_year
7660: and fy.fiscal_year = (p_period_rec.period_counter + 1 - p_period_rec.period_num)/
7661: fa_cache_pkg.fazcct_record.number_per_fiscal_year;
7662:
7655: and ds.deprn_source_code = 'BOOKS'
7656: and dp.book_type_code = p_asset_hdr_rec.book_type_code
7657: and dp.period_counter = ds.period_counter + 1 --Bug6987743: add one
7658: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
7659: and fy.fiscal_year = (dp.period_counter - dp.period_num)/fa_cache_pkg.fazcct_record.number_per_fiscal_year
7660: and fy.fiscal_year = (p_period_rec.period_counter + 1 - p_period_rec.period_num)/
7661: fa_cache_pkg.fazcct_record.number_per_fiscal_year;
7662:
7663: CURSOR c_get_books_rsv IS
7657: and dp.period_counter = ds.period_counter + 1 --Bug6987743: add one
7658: and fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
7659: and fy.fiscal_year = (dp.period_counter - dp.period_num)/fa_cache_pkg.fazcct_record.number_per_fiscal_year
7660: and fy.fiscal_year = (p_period_rec.period_counter + 1 - p_period_rec.period_num)/
7661: fa_cache_pkg.fazcct_record.number_per_fiscal_year;
7662:
7663: CURSOR c_get_books_rsv IS
7664: select ds.deprn_reserve
7665: , ds.bonus_deprn_reserve
7731: 'CR', -1 * ADJ.ADJUSTMENT_AMOUNT))),
7732: 0),
7733: NVL(SUM(DECODE(ADJ.ADJUSTMENT_TYPE,
7734: 'DEPRN ADJUST',
7735: DECODE(fa_cache_pkg.fazcbc_record.book_class,'TAX',
7736: DECODE(ADJ.DEBIT_CREDIT_FLAG,
7737: 'DR', ADJ.ADJUSTMENT_AMOUNT,
7738: 'CR', -1 * ADJ.ADJUSTMENT_AMOUNT)))),
7739: 0),
7839: 'CR', -1 * ADJ.ADJUSTMENT_AMOUNT))),
7840: 0),
7841: NVL(SUM(DECODE(ADJ.ADJUSTMENT_TYPE,
7842: 'DEPRN ADJUST',
7843: DECODE(fa_cache_pkg.fazcbc_record.book_class,'TAX',
7844: DECODE(ADJ.DEBIT_CREDIT_FLAG,
7845: 'DR', ADJ.ADJUSTMENT_AMOUNT,
7846: 'CR', -1 * ADJ.ADJUSTMENT_AMOUNT)))),
7847: 0),
11279: --
11280: x_asset_fin_rec_new.prorate_convention_code :=
11281: nvl(l_asset_fin_rec_adj.prorate_convention_code,
11282: nvl(px_asset_fin_rec.prorate_convention_code,
11283: fa_cache_pkg.fazccbd_record.prorate_convention_code));
11284:
11285: x_asset_fin_rec_new.depreciate_flag :=
11286: nvl(l_asset_fin_rec_adj.depreciate_flag,
11287: nvl(px_asset_fin_rec.depreciate_flag,
11284:
11285: x_asset_fin_rec_new.depreciate_flag :=
11286: nvl(l_asset_fin_rec_adj.depreciate_flag,
11287: nvl(px_asset_fin_rec.depreciate_flag,
11288: fa_cache_pkg.fazccbd_record.depreciate_flag));
11289:
11290: FA_UTIL_PVT.load_char_value
11291: (p_char_old => px_asset_fin_rec.bonus_rule,
11292: p_char_adj => l_asset_fin_rec_adj.bonus_rule,
11477: end if;
11478: --tk_util.debug('adj_rec_cost: '|| to_char(x_asset_fin_rec_new.adjusted_recoverable_cost));
11479:
11480:
11481: if (fa_cache_pkg.fazcbc_record.book_class = 'TAX' and
11482: x_asset_fin_rec_new.itc_amount_id is not null) then
11483: if not FA_ASSET_CALC_PVT.calc_itc_info
11484: (p_asset_hdr_rec => p_asset_hdr_rec,
11485: p_asset_fin_rec_adj => l_asset_fin_rec_adj,
11957: and (ret.transaction_header_id_out is null or -- Bug # 7307047
11958: ret.transaction_header_id_out = l_incoming_thid)
11959: and ret.RETIREMENT_PRORATE_CONVENTION = con.PRORATE_CONVENTION_CODE
11960: and ret.date_retired between con.start_date and con.end_date
11961: and cp.calendar_type = fa_cache_pkg.fazcbc_record.prorate_calendar
11962: and con.prorate_date between cp.start_date and cp.end_date
11963: and th.transaction_type_code in (G_TRX_TYPE_FUL_RET, G_TRX_TYPE_PAR_RET)
11964: -- and th.transaction_header_id >= c_transaction_header_id
11965: and th.transaction_header_id <> l_incoming_thid
11962: and con.prorate_date between cp.start_date and cp.end_date
11963: and th.transaction_type_code in (G_TRX_TYPE_FUL_RET, G_TRX_TYPE_PAR_RET)
11964: -- and th.transaction_header_id >= c_transaction_header_id
11965: and th.transaction_header_id <> l_incoming_thid
11966: and cptrx.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
11967: and ret.date_retired between cptrx.start_date and cptrx.end_date
11968: and th.transaction_header_id = ret.transaction_header_id_in
11969: --bug4363712
11970: -- and con.prorate_date >= c_transaction_date_entered
12805:
12806: LOOP
12807:
12808: --bug 12344343 start make l_start_from_addition = 1, in case of asset added with zero reserve
12809: IF fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag = 'Y' AND
12810: l_period_rec.fiscal_year = l_add_fiscal_year AND
12811: l_trans_rec.transaction_type_code = 'ADJUSTMENT' AND
12812: l_entered_reserve = 0 THEN
12813: l_start_from_addition := 1;
13009: if ((p_asset_fin_rec_old.group_asset_id is null and
13010: px_asset_fin_rec_new.group_asset_id is null)) or
13011: (l_trans_rec.transaction_type_code like '%RETIREMENT') then -- ENERGY
13012:
13013: if (fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag = 'Y') then
13014:
13015: if (p_log_level_rec.statement_level) then
13016: fa_debug_pkg.add(l_calling_fn, '========== Recalc Step 3.2.1 ==========','', p_log_level_rec => p_log_level_rec);
13017: end if;
13046: fa_debug_pkg.add(l_calling_fn, '========== Recalc Step 3.3 ==========','', p_log_level_rec => p_log_level_rec);
13047: end if;
13048:
13049:
13050: if (nvl(fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag, 'N') = 'N') or
13051: (l_eofy_reserve is not null) then
13052: --adding the following code for bug no.4016503
13053: --the retirement transaction is ignored during recalculate
13054: -- if it is reinstated by any following transaction.
13614:
13615: --tk_util.DumpDeprnRec(l_asset_deprn_rec, 'GD');
13616:
13617: l_dpr_in.asset_num := p_asset_desc_rec.asset_number;
13618: l_dpr_in.calendar_type := fa_cache_pkg.fazcbc_record.deprn_calendar;
13619: l_dpr_in.book := p_asset_hdr_rec.book_type_code;
13620: l_dpr_in.asset_id := p_asset_hdr_rec.asset_id;
13621:
13622: --
14159: --tk_util.debug('2 rec_cost: '||to_char(px_asset_fin_rec_new.recoverable_cost));
14160:
14161: if (l_process_this_trx) then
14162:
14163: if (not fa_cache_pkg.fazccmt(
14164: l_asset_fin_rec_new.deprn_method_code,
14165: l_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
14166: if (p_log_level_rec.statement_level) then
14167: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14164: l_asset_fin_rec_new.deprn_method_code,
14165: l_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
14166: if (p_log_level_rec.statement_level) then
14167: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14168: 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
14169: end if;
14170:
14171: raise calc_failed;
14172: end if;
14171: raise calc_failed;
14172: end if;
14173:
14174: l_energy_member := FALSE;
14175: --tk_util.debug('fa_cache_pkg.fazcdbr_record.rule_name: ' ||fa_cache_pkg.fazcdbr_record.rule_name);
14176: --tk_util.debug('p_asset_fin_rec_old.tracking_method: '||p_asset_fin_rec_old.tracking_method);
14177: --
14178: -- Set l_energy_member to skip periodic depreciation call in this functioin
14179: --
14176: --tk_util.debug('p_asset_fin_rec_old.tracking_method: '||p_asset_fin_rec_old.tracking_method);
14177: --
14178: -- Set l_energy_member to skip periodic depreciation call in this functioin
14179: --
14180: if (fa_cache_pkg.fazcdbr_record.rule_name = 'ENERGY PERIOD END BALANCE') and
14181: (p_asset_fin_rec_old.tracking_method = 'ALLOCATE') then
14182: l_energy_member := TRUE;
14183: end if;
14184:
14189:
14190: -- skip faxcde call for raf
14191: -- Bug4778244 Added the NVL to avoid condition not(null or false) which will
14192: -- always return NULL in the place of FALSE, which is incorrect
14193: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
14194: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
14195: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
14196:
14197: 'PERIOD END AVERAGE',
14190: -- skip faxcde call for raf
14191: -- Bug4778244 Added the NVL to avoid condition not(null or false) which will
14192: -- always return NULL in the place of FALSE, which is incorrect
14193: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
14194: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
14195: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
14196:
14197: 'PERIOD END AVERAGE',
14198: 'USE RECOVERABLE COST',
14191: -- Bug4778244 Added the NVL to avoid condition not(null or false) which will
14192: -- always return NULL in the place of FALSE, which is incorrect
14193: if (not(((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') = fa_std_types.FAD_RSR_FLAT) and
14194: (nvl(fa_cache_pkg.fazccmt_record.deprn_basis_rule, ' ') = fa_std_types.FAD_DBR_COST) and
14195: (nvl(fa_cache_pkg.fazcdbr_record.rule_name, ' ') in ('PERIOD END BALANCE',
14196:
14197: 'PERIOD END AVERAGE',
14198: 'USE RECOVERABLE COST',
14199: 'BEGINNING PERIOD'))) or
14196:
14197: 'PERIOD END AVERAGE',
14198: 'USE RECOVERABLE COST',
14199: 'BEGINNING PERIOD'))) or
14200: ((nvl(fa_cache_pkg.fazcdbr_record.rule_name,' ') = 'ENERGY PERIOD END BALANCE') and
14201: (nvl(p_asset_fin_rec_old.tracking_method,' ') = 'ALLOCATE')) or
14202: (nvl(l_trans_rec.transaction_key,'X') = 'ES') -- Japan Tax Phase3
14203: )) then
14204:
14201: (nvl(p_asset_fin_rec_old.tracking_method,' ') = 'ALLOCATE')) or
14202: (nvl(l_trans_rec.transaction_key,'X') = 'ES') -- Japan Tax Phase3
14203: )) then
14204:
14205: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
14206: fa_cache_pkg.fazcbc_record.fiscal_year_name,
14207: l_dpr_in.prorate_jdate,
14208: g_temp_number,
14209: l_dpr_in.y_begin,
14202: (nvl(l_trans_rec.transaction_key,'X') = 'ES') -- Japan Tax Phase3
14203: )) then
14204:
14205: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
14206: fa_cache_pkg.fazcbc_record.fiscal_year_name,
14207: l_dpr_in.prorate_jdate,
14208: g_temp_number,
14209: l_dpr_in.y_begin,
14210: g_temp_integer, p_log_level_rec => p_log_level_rec) then
14209: l_dpr_in.y_begin,
14210: g_temp_integer, p_log_level_rec => p_log_level_rec) then
14211: if (p_log_level_rec.statement_level) then
14212: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14213: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
14214: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
14215: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
14216: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
14217: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
14210: g_temp_integer, p_log_level_rec => p_log_level_rec) then
14211: if (p_log_level_rec.statement_level) then
14212: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14213: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
14214: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
14215: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
14216: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
14217: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
14218:
14211: if (p_log_level_rec.statement_level) then
14212: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14213: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
14214: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
14215: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
14216: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
14217: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
14218:
14219: end if;
14212: fa_debug_pkg.add(l_calling_fn, 'Error calling',
14213: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
14214: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
14215: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
14216: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
14217: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
14218:
14219: end if;
14220:
14213: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
14214: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
14215: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
14216: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
14217: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
14218:
14219: end if;
14220:
14221: raise calc_failed;
14220:
14221: raise calc_failed;
14222: end if;
14223:
14224: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
14225: raise calc_failed;
14226: end if;
14227:
14228: l_dpr_in.p_cl_begin := 1;
14228: l_dpr_in.p_cl_begin := 1;
14229:
14230: if (l_period_rec.period_num = 1) then
14231: l_dpr_in.y_end := l_period_rec.fiscal_year - 1;
14232: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
14233: else
14234: l_dpr_in.y_end := l_period_rec.fiscal_year;
14235: l_dpr_in.p_cl_end := l_period_rec.period_num - 1;
14236: end if;
14238: l_dpr_in.rate_adj_factor := 1;
14239: l_dpr_in.eofy_reserve := 0;
14240:
14241: -- manual override
14242: if fa_cache_pkg.fa_deprn_override_enabled then
14243:
14244: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
14245: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
14246:
14240:
14241: -- manual override
14242: if fa_cache_pkg.fa_deprn_override_enabled then
14243:
14244: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
14245: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
14246:
14247: -- update override status only if satisfies condintion,
14248: -- otherwise do not update status when calculating RAF
14241: -- manual override
14242: if fa_cache_pkg.fa_deprn_override_enabled then
14243:
14244: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
14245: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
14246:
14247: -- update override status only if satisfies condintion,
14248: -- otherwise do not update status when calculating RAF
14249: -- 1. formula; or
14303: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
14304: end if;
14305:
14306: -- manual override
14307: if fa_cache_pkg.fa_deprn_override_enabled then
14308: if l_dpr_in.update_override_status then
14309: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
14310: else
14311: p_trans_rec.deprn_override_flag := fa_std_types.FA_NO_OVERRIDE;
14336: -- In previous years and not in current year. Need to verify this is applicable for other rules
14337: -- also not only for USE FISCAL YEAR BEGINNING BASIS. This is coorect fix only because of fix
14338: -- 8208356, which makes sure that this is only addition.
14339: if l_dbr_event_type = 'AMORT_ADJ' and
14340: fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'NBV' and
14341: fa_cache_pkg.fazccmt_record.rate_source_rule = 'FLAT' and
14342: p_source_transaction_type_code = 'ADDITION' then
14343: if (p_mrc_sob_type_code = 'R') then
14344: OPEN c_get_mc_brow;
14337: -- also not only for USE FISCAL YEAR BEGINNING BASIS. This is coorect fix only because of fix
14338: -- 8208356, which makes sure that this is only addition.
14339: if l_dbr_event_type = 'AMORT_ADJ' and
14340: fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'NBV' and
14341: fa_cache_pkg.fazccmt_record.rate_source_rule = 'FLAT' and
14342: p_source_transaction_type_code = 'ADDITION' then
14343: if (p_mrc_sob_type_code = 'R') then
14344: OPEN c_get_mc_brow;
14345: FETCH c_get_mc_brow INTO l_brow_ytd_deprn, l_brow_deprn_reserve;
14348: OPEN c_get_brow;
14349: FETCH c_get_brow INTO l_brow_ytd_deprn, l_brow_deprn_reserve;
14350: CLOSE c_get_brow;
14351: end if;
14352: IF (fa_cache_pkg.fazcdbr_record.rule_name = 'USE FISCAL YEAR BEGINNING BASIS' and
14353: nvl(l_dpr_out.new_eofy_reserve,0) <> 0 and l_brow_deprn_reserve <> 0) THEN
14354: l_asset_fin_rec_new.eofy_reserve := l_brow_deprn_reserve - l_brow_ytd_deprn;
14355: ELSE
14356: l_asset_fin_rec_new.eofy_reserve := l_dpr_out.new_eofy_reserve;
14401: elsif l_trans_rec.transaction_type_code = G_TRX_TYPE_REV then
14402: if (l_trans_rec.transaction_header_id <> p_trans_rec.transaction_header_id) then
14403: /* Bug#7478702 In case of SORP when revaluation is done deprn_reserve is canceled against reval reserve
14404: so when calculating adjusted cost deprn_reserve is zero */
14405: if fa_cache_pkg.fazcbc_record.sorp_enabled_flag = 'Y' then
14406: l_asset_deprn_rec.deprn_reserve := 0;
14407: /* For Cost based method adjusted_cost is same as recoverable cost at the time of revaluation
14408: so setting impairment_reserve to zero */
14409: if fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'COST' then
14405: if fa_cache_pkg.fazcbc_record.sorp_enabled_flag = 'Y' then
14406: l_asset_deprn_rec.deprn_reserve := 0;
14407: /* For Cost based method adjusted_cost is same as recoverable cost at the time of revaluation
14408: so setting impairment_reserve to zero */
14409: if fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'COST' then
14410: l_asset_deprn_rec.impairment_reserve := 0;
14411: end if;
14412: else
14413: l_asset_deprn_rec.deprn_reserve := l_asset_deprn_rec.deprn_reserve +
14548: --Bug6978180 Added the following code to run for full retirement after extnd deprn.
14549: if nvl(l_trans_rec.transaction_key,'X') = 'ES' and
14550: p_trans_rec.transaction_type_code = 'FULL RETIREMENT'
14551: and nvl(l_asset_fin_rec_new.recoverable_cost,0) <> 0
14552: and fa_cache_pkg.fazccmt_record.rate_source_rule = 'CALCULATED'
14553: and p_asset_type_rec.asset_type <> 'GROUP'
14554: and fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'COST' then
14555:
14556: l_asset_fin_rec_new.adjusted_cost := l_asset_fin_rec_new.cost - nvl(l_asset_deprn_rec.deprn_reserve,0)
14550: p_trans_rec.transaction_type_code = 'FULL RETIREMENT'
14551: and nvl(l_asset_fin_rec_new.recoverable_cost,0) <> 0
14552: and fa_cache_pkg.fazccmt_record.rate_source_rule = 'CALCULATED'
14553: and p_asset_type_rec.asset_type <> 'GROUP'
14554: and fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'COST' then
14555:
14556: l_asset_fin_rec_new.adjusted_cost := l_asset_fin_rec_new.cost - nvl(l_asset_deprn_rec.deprn_reserve,0)
14557: - nvl(l_asset_deprn_rec.impairment_reserve ,0);
14558:
14813: -- Set FA_STD_TYPES.dpr_struct for depreciation(faxcde) call.
14814: --
14815: if (nvl(l_next_period_rec.period_counter, p_period_rec.period_counter) = 1) then
14816: l_dpr_in.y_end := nvl(l_next_period_rec.fiscal_year, p_period_rec.fiscal_year) - 1;
14817: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
14818: else
14819: l_dpr_in.y_end := nvl(l_next_period_rec.fiscal_year, p_period_rec.fiscal_year);
14820: l_dpr_in.p_cl_end := nvl(l_next_period_rec.period_num, p_period_rec.period_num) - 1;
14821: end if;
14829: -- until last period.
14830: --
14831: if (p_period_rec.period_num = 1) then
14832: l_dpr_in.y_end := p_period_rec.fiscal_year - 1;
14833: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
14834: else
14835: l_dpr_in.y_end := p_period_rec.fiscal_year;
14836: l_dpr_in.p_cl_end := p_period_rec.period_num - 1;
14837: end if;
14859: --Bug 6510877
14860: l_dpr_in.adj_capacity := l_asset_fin_rec_new.adjusted_capacity;
14861:
14862: -- manual override
14863: if fa_cache_pkg.fa_deprn_override_enabled then
14864: l_dpr_in.update_override_status := TRUE;
14865: end if;
14866:
14867: -- Bug fix 5893429
14953: end if;
14954:
14955:
14956: -- manual override
14957: if fa_cache_pkg.fa_deprn_override_enabled then
14958: p_trans_rec.deprn_override_flag := l_dpr_out.deprn_override_flag;
14959: end if;
14960:
14961: if (l_asset_fin_rec_new.adjusted_cost <> 0)or
15145: -- We have backported Fix for Bug 7459910 so this logic is not
15146: -- needed for basis reset when deprn basis rule is used.
15147: --
15148: if (
15149: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_NBV) and
15150: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FORMULA) and
15151: (fa_cache_pkg.fazccmt_record.deprn_basis_rule is null)
15152: )
15153: then
15146: -- needed for basis reset when deprn basis rule is used.
15147: --
15148: if (
15149: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_NBV) and
15150: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FORMULA) and
15151: (fa_cache_pkg.fazccmt_record.deprn_basis_rule is null)
15152: )
15153: then
15154: -- Call Depreciable Basis Rule for Formula/NBV Basis
15147: --
15148: if (
15149: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_NBV) and
15150: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FORMULA) and
15151: (fa_cache_pkg.fazccmt_record.deprn_basis_rule is null)
15152: )
15153: then
15154: -- Call Depreciable Basis Rule for Formula/NBV Basis
15155: if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS
15565:
15566: --
15567: -- Energy: Need to reinstate member reserve entry cre
15568: if (nvl(p_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
15569: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
15570: (px_trans_rec.transaction_type_code = 'REINSTATEMENT') then -- ENERGY
15571: if (p_log_level_rec.statement_level) then
15572: fa_debug_pkg.add(l_calling_fn, 'calling function ',
15573: 'FA_AMORT_PVT.calc_raf_adj_cost', p_log_level_rec => p_log_level_rec);
15893: calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
15894: return false;
15895: end if;
15896:
15897: if (not fa_cache_pkg.fazccmt(p_method_code,
15898: p_life, p_log_level_rec => p_log_level_rec)) then
15899: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
15900: return false;
15901: end if;
15899: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
15900: return false;
15901: end if;
15902:
15903: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule_id;
15904:
15905: if l_deprn_basis_formula is null then
15906: return true;
15907: end if;
15907: end if;
15908:
15909: -- if l_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then
15910: if l_deprn_basis_formula = 'STRICT_FLAT' then
15911: if (not fa_cache_pkg.fazccmt(p_method_code,
15912: p_life, p_log_level_rec => p_log_level_rec)) then
15913: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
15914: return false;
15915: end if;
15913: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
15914: return false;
15915: end if;
15916:
15917: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
15918: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
15919:
15920: if l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
15921: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
15914: return false;
15915: end if;
15916:
15917: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
15918: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
15919:
15920: if l_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and
15921: l_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
15922: if p_rec_cost is null then
16046: element => 'life',
16047: value => px_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec);
16048: end if;
16049:
16050: if (not FA_CACHE_PKG.fazccmt
16051: (px_asset_fin_rec_new.deprn_method_code,
16052: px_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
16053: FA_SRVR_MSG.ADD_MESSAGE(CALLING_FN => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
16054: return FALSE;
16053: FA_SRVR_MSG.ADD_MESSAGE(CALLING_FN => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
16054: return FALSE;
16055: end if;
16056:
16057: l_method_id := fa_cache_pkg.fazccmt_record.method_id;
16058: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
16059: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
16060:
16061: if fa_cache_pkg.fazccmt_record.exclude_salvage_value_flag = 'YES' then
16054: return FALSE;
16055: end if;
16056:
16057: l_method_id := fa_cache_pkg.fazccmt_record.method_id;
16058: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
16059: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
16060:
16061: if fa_cache_pkg.fazccmt_record.exclude_salvage_value_flag = 'YES' then
16062: l_excl_salvage_val_flag := TRUE;
16055: end if;
16056:
16057: l_method_id := fa_cache_pkg.fazccmt_record.method_id;
16058: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
16059: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
16060:
16061: if fa_cache_pkg.fazccmt_record.exclude_salvage_value_flag = 'YES' then
16062: l_excl_salvage_val_flag := TRUE;
16063: else
16057: l_method_id := fa_cache_pkg.fazccmt_record.method_id;
16058: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
16059: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
16060:
16061: if fa_cache_pkg.fazccmt_record.exclude_salvage_value_flag = 'YES' then
16062: l_excl_salvage_val_flag := TRUE;
16063: else
16064: l_excl_salvage_val_flag := FALSE;
16065: end if;
16063: else
16064: l_excl_salvage_val_flag := FALSE;
16065: end if;
16066:
16067: if fa_cache_pkg.fazccmt_record.depreciate_lastyear_flag = 'YES' then
16068: l_deprn_last_year_flag := TRUE;
16069: else
16070: l_deprn_last_year_flag := FALSE;
16071: end if;
16126:
16127: -- Added for Dated Adjustment
16128: if (px_trans_rec.amortization_start_date is not null) then
16129:
16130: l_last_per_ctr := fa_cache_pkg.fazcbc_record.last_period_counter;
16131: l_cur_fy := fa_cache_pkg.fazcbc_record.current_fiscal_year;
16132: l_cur_per_num := mod((l_last_per_ctr+1),l_cur_fy);
16133: l_fy_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
16134: l_amortization_start_jdate := to_number(to_char(px_trans_rec.amortization_start_date, 'J')); --BMR
16127: -- Added for Dated Adjustment
16128: if (px_trans_rec.amortization_start_date is not null) then
16129:
16130: l_last_per_ctr := fa_cache_pkg.fazcbc_record.last_period_counter;
16131: l_cur_fy := fa_cache_pkg.fazcbc_record.current_fiscal_year;
16132: l_cur_per_num := mod((l_last_per_ctr+1),l_cur_fy);
16133: l_fy_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
16134: l_amortization_start_jdate := to_number(to_char(px_trans_rec.amortization_start_date, 'J')); --BMR
16135:
16129:
16130: l_last_per_ctr := fa_cache_pkg.fazcbc_record.last_period_counter;
16131: l_cur_fy := fa_cache_pkg.fazcbc_record.current_fiscal_year;
16132: l_cur_per_num := mod((l_last_per_ctr+1),l_cur_fy);
16133: l_fy_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
16134: l_amortization_start_jdate := to_number(to_char(px_trans_rec.amortization_start_date, 'J')); --BMR
16135:
16136: if not fa_cache_pkg.fazccp(
16137: l_dpr_row.calendar_type,
16132: l_cur_per_num := mod((l_last_per_ctr+1),l_cur_fy);
16133: l_fy_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
16134: l_amortization_start_jdate := to_number(to_char(px_trans_rec.amortization_start_date, 'J')); --BMR
16135:
16136: if not fa_cache_pkg.fazccp(
16137: l_dpr_row.calendar_type,
16138: l_fy_name,
16139: l_amortization_start_jdate,
16140: l_amortize_per_num,
16145: end if;
16146:
16147: if (not((l_cur_fy = l_amortize_fy) and
16148: (l_cur_per_num = l_amortize_per_num))) then
16149: if not fa_cache_pkg.fazcct (l_dpr_row.calendar_type, p_log_level_rec => p_log_level_rec) then
16150: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
16151: return (FALSE);
16152: end if;
16153:
16154: -- if this transaction is not at current period, set ADJUSTMENT mode
16155: -- on Depreciable basis rule
16156: l_deprn_used_by_adjustment := 'ADJUSTMENT';
16157:
16158: l_pers_per_yr := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
16159:
16160: if (l_amortize_per_num = 1) then
16161: l_dpr_row.y_end := l_amortize_fy - 1;
16162: else
16172: end if; --if (px_trans_rec.amortization_start_date is not null)
16173:
16174: /* ER 14644811 */
16175: if nvl(px_trans_rec.transaction_key,'XX') = 'PR' then
16176: l_dpr_row.p_cl_end := mod((fa_cache_pkg.fazcbc_record.last_period_counter+1),fa_cache_pkg.fazcbc_record.current_fiscal_year);
16177: l_dpr_row.y_end := fa_cache_pkg.fazcbc_record.current_fiscal_year;
16178: end if;
16179:
16180: -- End Added for Dated Adjustment
16173:
16174: /* ER 14644811 */
16175: if nvl(px_trans_rec.transaction_key,'XX') = 'PR' then
16176: l_dpr_row.p_cl_end := mod((fa_cache_pkg.fazcbc_record.last_period_counter+1),fa_cache_pkg.fazcbc_record.current_fiscal_year);
16177: l_dpr_row.y_end := fa_cache_pkg.fazcbc_record.current_fiscal_year;
16178: end if;
16179:
16180: -- End Added for Dated Adjustment
16181:
16304: ----------------------------------------------
16305: /*Bug8230037 - Added condition based on sorp_enabled_flag
16306: - No need to call CALL_DEPRN_BASIS for Double Declining methods */
16307: if (not l_rate_source_rule = FA_STD_TYPES.FAD_RSR_CALC)
16308: and nvl(fa_cache_pkg.fazcbc_record.sorp_enabled_flag,'N') <> 'Y' then
16309: if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS (
16310: p_event_type => 'AMORT_ADJ',
16311: p_asset_fin_rec_new => px_asset_fin_rec_new,
16312: p_asset_fin_rec_old => p_asset_fin_rec_old,
16846:
16847: -- Skipping call to the function because it is not necessary for straight line
16848: -- or flat-cost with period end balance and use recoverable cost basis rules
16849: -- There are more cases which calling this function unnecessary but not include for this time.
16850: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
16851: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16852: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16853: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
16854:
16847: -- Skipping call to the function because it is not necessary for straight line
16848: -- or flat-cost with period end balance and use recoverable cost basis rules
16849: -- There are more cases which calling this function unnecessary but not include for this time.
16850: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
16851: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16852: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16853: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
16854:
16855: -- Get Eofy/Eop Recovearble Cost and Salvage Value
16848: -- or flat-cost with period end balance and use recoverable cost basis rules
16849: -- There are more cases which calling this function unnecessary but not include for this time.
16850: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
16851: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16852: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16853: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
16854:
16855: -- Get Eofy/Eop Recovearble Cost and Salvage Value
16856: if (not FA_CALC_DEPRN_BASIS1_PKG.GET_EOFY_EOP (
16849: -- There are more cases which calling this function unnecessary but not include for this time.
16850: if (not( (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC)
16851: or ((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16852: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16853: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE','USE RECOVERABLE COST'))))) then
16854:
16855: -- Get Eofy/Eop Recovearble Cost and Salvage Value
16856: if (not FA_CALC_DEPRN_BASIS1_PKG.GET_EOFY_EOP (
16857: p_asset_id => p_asset_hdr_rec.asset_id,
16887:
16888: -- Skipping call to faxcde because it is unnecessary for flat-cost with period end balance,
16889: -- use recoverable cost, period average, and beginning balance basis rules
16890: -- There are more cases which calling this function unnecessary but not include for this time.
16891: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16892: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16893: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
16894: 'USE RECOVERABLE COST', 'BEGINNING PERIOD'))
16895: --Bug 6312866 or fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD
16888: -- Skipping call to faxcde because it is unnecessary for flat-cost with period end balance,
16889: -- use recoverable cost, period average, and beginning balance basis rules
16890: -- There are more cases which calling this function unnecessary but not include for this time.
16891: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16892: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16893: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
16894: 'USE RECOVERABLE COST', 'BEGINNING PERIOD'))
16895: --Bug 6312866 or fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD
16896: ))) then
16889: -- use recoverable cost, period average, and beginning balance basis rules
16890: -- There are more cases which calling this function unnecessary but not include for this time.
16891: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16892: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16893: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
16894: 'USE RECOVERABLE COST', 'BEGINNING PERIOD'))
16895: --Bug 6312866 or fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD
16896: ))) then
16897:
16891: if (not(((fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
16892: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST) and
16893: (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'PERIOD END AVERAGE',
16894: 'USE RECOVERABLE COST', 'BEGINNING PERIOD'))
16895: --Bug 6312866 or fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD
16896: ))) then
16897:
16898: l_dpr_in.asset_num := p_asset_desc_rec.asset_number;
16899: l_dpr_in.calendar_type := fa_cache_pkg.fazcbc_record.deprn_calendar;
16895: --Bug 6312866 or fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD
16896: ))) then
16897:
16898: l_dpr_in.asset_num := p_asset_desc_rec.asset_number;
16899: l_dpr_in.calendar_type := fa_cache_pkg.fazcbc_record.deprn_calendar;
16900: l_dpr_in.book := p_asset_hdr_rec.book_type_code;
16901: l_dpr_in.asset_id := p_asset_hdr_rec.asset_id;
16902: l_dpr_in.adj_cost := px_asset_fin_rec_new.recoverable_cost;
16903: l_dpr_in.rec_cost := px_asset_fin_rec_new.recoverable_cost;
16959: -- Not for what-if yet
16960: --
16961: l_running_mode := fa_std_types.FA_DPR_NORMAL;
16962:
16963: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
16964: fa_cache_pkg.fazcbc_record.fiscal_year_name,
16965: l_dpr_in.prorate_jdate,
16966: l_temp_number,
16967: l_dpr_in.y_begin,
16960: --
16961: l_running_mode := fa_std_types.FA_DPR_NORMAL;
16962:
16963: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
16964: fa_cache_pkg.fazcbc_record.fiscal_year_name,
16965: l_dpr_in.prorate_jdate,
16966: l_temp_number,
16967: l_dpr_in.y_begin,
16968: l_temp_integer, p_log_level_rec => p_log_level_rec) then
16967: l_dpr_in.y_begin,
16968: l_temp_integer, p_log_level_rec => p_log_level_rec) then
16969: if (p_log_level_rec.statement_level) then
16970: fa_debug_pkg.add(l_calling_fn, 'Error calling',
16971: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
16972: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
16973: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
16974: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
16975: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
16968: l_temp_integer, p_log_level_rec => p_log_level_rec) then
16969: if (p_log_level_rec.statement_level) then
16970: fa_debug_pkg.add(l_calling_fn, 'Error calling',
16971: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
16972: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
16973: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
16974: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
16975: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
16976: end if;
16969: if (p_log_level_rec.statement_level) then
16970: fa_debug_pkg.add(l_calling_fn, 'Error calling',
16971: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
16972: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
16973: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
16974: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
16975: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
16976: end if;
16977:
16970: fa_debug_pkg.add(l_calling_fn, 'Error calling',
16971: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
16972: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
16973: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
16974: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
16975: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
16976: end if;
16977:
16978: raise calc_err;
16971: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
16972: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
16973: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
16974: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
16975: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
16976: end if;
16977:
16978: raise calc_err;
16979: end if;
16982: l_dpr_in.p_cl_begin := 1;
16983:
16984: if (p_period_rec.period_num = 1) then
16985: l_dpr_in.y_end := p_period_rec.fiscal_year - 1;
16986: l_dpr_in.p_cl_end := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
16987: else
16988: l_dpr_in.y_end := p_period_rec.fiscal_year;
16989: l_dpr_in.p_cl_end := p_period_rec.period_num - 1;
16990: end if;
16991:
16992: l_dpr_in.rate_adj_factor := 1;
16993:
16994: -- manual override
16995: if fa_cache_pkg.fa_deprn_override_enabled then
16996: if (not fa_cache_pkg.fazccmt(
16997: px_asset_fin_rec_new.deprn_method_code,
16998: px_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
16999: if (p_log_level_rec.statement_level) then
16992: l_dpr_in.rate_adj_factor := 1;
16993:
16994: -- manual override
16995: if fa_cache_pkg.fa_deprn_override_enabled then
16996: if (not fa_cache_pkg.fazccmt(
16997: px_asset_fin_rec_new.deprn_method_code,
16998: px_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
16999: if (p_log_level_rec.statement_level) then
17000: fa_debug_pkg.add(l_calling_fn, 'Error calling',
16997: px_asset_fin_rec_new.deprn_method_code,
16998: px_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec)) then
16999: if (p_log_level_rec.statement_level) then
17000: fa_debug_pkg.add(l_calling_fn, 'Error calling',
17001: 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
17002: end if;
17003:
17004: raise calc_err;
17005: end if;
17003:
17004: raise calc_err;
17005: end if;
17006:
17007: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
17008: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
17009:
17010: -- update override status only if satisfies condintion,
17011: -- otherwise do not update status when calculating RAF
17004: raise calc_err;
17005: end if;
17006:
17007: l_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
17008: l_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
17009:
17010: -- update override status only if satisfies condintion,
17011: -- otherwise do not update status when calculating RAF
17012: -- 1. formula; or
17065: end if;
17066:
17067: -- Bug 4129984.
17068:
17069: if ((fa_cache_pkg.fazcbc_record.AMORTIZE_REVAL_RESERVE_FLAG='YES') and
17070: (px_asset_fin_rec_new.Reval_Amortization_Basis is not null) and
17071: (p_asset_type_rec.asset_type = 'CAPITALIZED') and
17072: (px_asset_fin_rec_new.group_asset_id is null)) then
17073:
17109:
17110:
17111: -- code fix for bug no.3630495. added the following line to calculate the adjusted capacity
17112: if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
17113: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then -- ENERGY
17114: null;
17115: else
17116: px_asset_fin_rec_new.adjusted_capacity:=px_asset_fin_rec_new.production_capacity- nvl(l_dpr_out.new_ltd_prod, 0);
17117: end if;
17133: and bks.date_ineffective is null
17134: and dp.book_type_code = p_asset_hdr_rec.book_type_code
17135: and bks.date_effective between
17136: dp.period_open_date and nvl(dp.period_close_date, sysdate)
17137: and dp.fiscal_year = fa_cache_pkg.fazcbc_record.current_fiscal_year;
17138:
17139:
17140: -- Fix for Bug#4541399: We have to activate this code
17141: -- only when px_asset_fin_rec_new.eofy_reserve is NULL
17172: -- in future if other cases come
17173: if ((p_asset_fin_rec_old.period_counter_fully_reserved is not null)
17174: and ( p_asset_fin_rec_old.period_counter_fully_reserved <> nvl(px_asset_fin_rec_new.period_counter_fully_reserved,0) )
17175: and (p_asset_fin_rec_old.allowed_deprn_limit_amount <> px_asset_fin_rec_new.allowed_deprn_limit_amount)
17176: and fa_cache_pkg.fazccmt_record.deprn_basis_rule = 'NBV') then
17177: open c_year_switch;
17178: fetch c_year_switch into l_year_switch;
17179: if c_year_switch%NOTFOUND then
17180: px_asset_fin_rec_new.eofy_reserve := p_asset_deprn_rec_new.deprn_reserve;
17184:
17185: -- Start Bug 13086051
17186:
17187: l_total_ytd := p_asset_deprn_rec_new.ytd_deprn;
17188: if NVL(fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag,'N') = 'Y' then
17189: open l_recal_ytd;
17190: fetch l_recal_ytd into l_recal_ytd_count;
17191: close l_recal_ytd;
17192: IF ((l_recal_ytd_count > 0) and (l_total_ytd = l_deprn_reserve))then
17310:
17311: -- Bug7715880: BP fix for bug7446301. Removed tracking method condition so that process
17312: -- will satisfy following if condition even if the asset type is not GROUP
17313: -- if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
17314: IF (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
17315: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
17316: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) -
17317: nvl(p_asset_deprn_rec_new.ltd_production, 0);
17318: end if;
17311: -- Bug7715880: BP fix for bug7446301. Removed tracking method condition so that process
17312: -- will satisfy following if condition even if the asset type is not GROUP
17313: -- if (nvl(px_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and -- ENERGY
17314: IF (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') and -- ENERGY
17315: (fa_cache_pkg.fazccmt_record.rate_source_rule = FA_STD_TYPES.FAD_RSR_PROD) then
17316: px_asset_fin_rec_new.adjusted_capacity := nvl(px_asset_fin_rec_new.production_capacity, 0) -
17317: nvl(p_asset_deprn_rec_new.ltd_production, 0);
17318: end if;
17319: