[Home] [Help]
222: end if;
223: end if;
224:
225: if (g_log_level_rec.statement_level) then
226: fa_debug_pkg.add(l_calling_fn,'BEGIN',1, p_log_level_rec => g_log_level_rec);
227: end if;
228:
229: if p_mrc_sob_type_code = 0 then
230: l_mrc_sob_type_code := 'P';
234:
235: l_run_date := to_date(p_run_date, 'DD/MM/YYYY HH24:MI:SS');
236:
237: if (g_log_level_rec.statement_level) then
238: fa_debug_pkg.add(l_calling_fn,'l_run_date',p_run_date, p_log_level_rec => g_log_level_rec);
239: end if;
240:
241: if (l_mrc_sob_type_code = 'R') then
242:
278:
279: end if;
280:
281: if (g_log_level_rec.statement_level) then
282: fa_debug_pkg.add(l_calling_fn,'BEGIN',2, p_log_level_rec => g_log_level_rec);
283: end if;
284:
285: if (l_mrc_sob_type_code = 'R') then
286: open c_mc_assets;
366:
367: end if;
368:
369: if (g_log_level_rec.statement_level) then
370: fa_debug_pkg.add(l_calling_fn,'BEGIN',3, p_log_level_rec => g_log_level_rec);
371: fa_debug_pkg.add(l_calling_fn,'l_eofy_flag',l_eofy_flag, p_log_level_rec => g_log_level_rec);
372: end if;
373:
374: l_rows_processed := l_asset_id_tbl.count;
367: end if;
368:
369: if (g_log_level_rec.statement_level) then
370: fa_debug_pkg.add(l_calling_fn,'BEGIN',3, p_log_level_rec => g_log_level_rec);
371: fa_debug_pkg.add(l_calling_fn,'l_eofy_flag',l_eofy_flag, p_log_level_rec => g_log_level_rec);
372: end if;
373:
374: l_rows_processed := l_asset_id_tbl.count;
375: if l_rows_processed = 0 then
377: end if;
378: for i in 1..l_asset_id_tbl.count loop
379:
380: if (g_log_level_rec.statement_level) then
381: fa_debug_pkg.add(l_calling_fn,'l_asset_id',l_asset_id_tbl(i));
382: end if;
383:
384: l_asset_id := l_asset_id_tbl(i);
385:
396: -- Bug4940246: Added following if statement
397: -- Do not call deprn basis rule if it is not eofy and period update is no or
398: -- it is eofy but period update and use eofy are no.
399: if (g_log_level_rec.statement_level) then
400: fa_debug_pkg.add(l_calling_fn,'l_period_update_flag_tbl', l_period_update_flag_tbl(i));
401: fa_debug_pkg.add(l_calling_fn,'l_use_eofy_reserve_flag', l_use_eofy_reserve_flag(i));
402: end if;
403:
404: if ((l_eofy_flag = 'N') and
397: -- Do not call deprn basis rule if it is not eofy and period update is no or
398: -- it is eofy but period update and use eofy are no.
399: if (g_log_level_rec.statement_level) then
400: fa_debug_pkg.add(l_calling_fn,'l_period_update_flag_tbl', l_period_update_flag_tbl(i));
401: fa_debug_pkg.add(l_calling_fn,'l_use_eofy_reserve_flag', l_use_eofy_reserve_flag(i));
402: end if;
403:
404: if ((l_eofy_flag = 'N') and
405: (l_period_update_flag_tbl(i) = 'N')) or
411: l_new_raf_tbl(i) := l_old_raf_tbl(i);
412: l_new_formula_factor_tbl(i):= l_old_formula_factor_tbl(i);
413:
414: if (g_log_level_rec.statement_level) then
415: fa_debug_pkg.add(l_calling_fn,'Not calling deprn basis function', l_new_adjusted_cost_tbl(i));
416: end if;
417:
418: else
419: l_status := FA_BASIS_OVERRIDE_INIT_PKG.faxccdb(
462: if l_status <> 0 then
463: raise mass_faxccdb_err;
464: end if;
465: if (g_log_level_rec.statement_level) then
466: fa_debug_pkg.add(l_calling_fn,'after faxccdb',1, p_log_level_rec => g_log_level_rec);
467: fa_debug_pkg.add(l_calling_fn,'new adj_cost',
468: l_new_adjusted_cost_tbl(i));
469: end if;
470:
463: raise mass_faxccdb_err;
464: end if;
465: if (g_log_level_rec.statement_level) then
466: fa_debug_pkg.add(l_calling_fn,'after faxccdb',1, p_log_level_rec => g_log_level_rec);
467: fa_debug_pkg.add(l_calling_fn,'new adj_cost',
468: l_new_adjusted_cost_tbl(i));
469: end if;
470:
471: end if; -- if ((l_eofy_flag = 'N') and -- Bug4940246
489: -- or deprn_basis_rule is COST or deprn_basis_rule_id doesn't exist
490: --
491:
492: if (g_log_level_rec.statement_level) then
493: fa_debug_pkg.add(l_calling_fn,'BEGIN',5, p_log_level_rec => g_log_level_rec);
494: end if;
495:
496: if (l_mrc_sob_type_code = 'R') then
497:
594: end if;
595: else
596:
597: if (g_log_level_rec.statement_level) then
598: fa_debug_pkg.add(l_calling_fn,'BEGIN',6, p_log_level_rec => g_log_level_rec);
599: end if;
600: if (l_eofy_flag = 'Y') then
601:
602: forall i IN 1..l_asset_id_tbl.count
653:
654: else
655:
656: if (g_log_level_rec.statement_level) then
657: fa_debug_pkg.add(l_calling_fn,'BEGIN',7, p_log_level_rec => g_log_level_rec);
658: end if;
659:
660: forall i IN 1..l_asset_id_tbl.count
661: update fa_books
704: -- Bug:5930979:Japan Tax Reform Project
705: if (l_mrc_sob_type_code <> 'R') then
706:
707: if (g_log_level_rec.statement_level) then
708: fa_debug_pkg.add(l_calling_fn,'++++ eofy_flag', l_eofy_flag, p_log_level_rec => g_log_level_rec);
709: end if;
710:
711: if (l_eofy_flag = 'Y') then
712:
712:
713: for i IN 1..l_asset_id_tbl.count loop
714:
715: if (g_log_level_rec.statement_level) then
716: fa_debug_pkg.add(l_calling_fn,'++++ asset_id', l_asset_id_tbl(i));
717: fa_debug_pkg.add(l_calling_fn,'++++ guarantee_rate_method_flag', l_guarantee_rate_flag_tbl(i));
718: end if;
719:
720: if nvl(l_guarantee_rate_flag_tbl(i),'NO') = 'YES' then
713: for i IN 1..l_asset_id_tbl.count loop
714:
715: if (g_log_level_rec.statement_level) then
716: fa_debug_pkg.add(l_calling_fn,'++++ asset_id', l_asset_id_tbl(i));
717: fa_debug_pkg.add(l_calling_fn,'++++ guarantee_rate_method_flag', l_guarantee_rate_flag_tbl(i));
718: end if;
719:
720: if nvl(l_guarantee_rate_flag_tbl(i),'NO') = 'YES' then
721:
809:
810: x_return_status := 0;
811:
812: if (g_log_level_rec.statement_level) then
813: fa_debug_pkg.add(l_calling_fn,'END',1, p_log_level_rec => g_log_level_rec);
814: end if;
815:
816:
817: EXCEPTION