[Home] [Help]
368:
369: BEGIN
370:
371: if (p_log_level_rec.statement_level) then
372: fa_debug_pkg.add(l_calling_fn,'Process Depreciation', 'BEGIN', p_log_level_rec => p_log_level_rec);
373: end if;
374:
375: g_error_flag.DELETE ; --Bug#8614268
376: --
559:
560: end if;
561:
562: if (p_log_level_rec.statement_level) then
563: fa_debug_pkg.add(l_calling_fn, 'fetch count', t_asset_id.count, p_log_level_rec => p_log_level_rec);
564: end if;
565:
566: if (t_asset_id.count = 0) then
567:
577:
578: FOR i in 1..t_asset_id.count LOOP
579:
580: if (p_log_level_rec.statement_level) then
581: fa_debug_pkg.add(l_calling_fn, 'Processing', t_asset_id(i));
582: fa_debug_pkg.add(l_calling_fn, 'current period', p_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
583: fa_debug_pkg.add(l_calling_fn, 'impaired period', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
584: end if;
585:
578: FOR i in 1..t_asset_id.count LOOP
579:
580: if (p_log_level_rec.statement_level) then
581: fa_debug_pkg.add(l_calling_fn, 'Processing', t_asset_id(i));
582: fa_debug_pkg.add(l_calling_fn, 'current period', p_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
583: fa_debug_pkg.add(l_calling_fn, 'impaired period', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
584: end if;
585:
586: /*Phase5 Restrict Impairment posted on Asset added without reserve and depreciation flag as NO*/
579:
580: if (p_log_level_rec.statement_level) then
581: fa_debug_pkg.add(l_calling_fn, 'Processing', t_asset_id(i));
582: fa_debug_pkg.add(l_calling_fn, 'current period', p_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
583: fa_debug_pkg.add(l_calling_fn, 'impaired period', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
584: end if;
585:
586: /*Phase5 Restrict Impairment posted on Asset added without reserve and depreciation flag as NO*/
587: IF t_depreciate_flag(i) = 'NO' then
589: p_asset_id => t_asset_id(i)
590: , p_book_type_code => p_book_type_code
591: , p_log_level_rec => p_log_level_rec) then
592: IF (p_log_level_rec.statement_level) then
593: fa_debug_pkg.add(l_calling_fn, 'Error calling FA_ASSET_VAL_PVT.check_non_depreciating_asset',
594: t_asset_id(i), p_log_level_rec => p_log_level_rec);
595: fa_debug_pkg.add(l_calling_fn, 'You can not Post an impairment for this asset',
596: 'As this asset is added with depreciate flag as NO and without reserve', p_log_level_rec => p_log_level_rec);
597: END IF;
591: , p_log_level_rec => p_log_level_rec) then
592: IF (p_log_level_rec.statement_level) then
593: fa_debug_pkg.add(l_calling_fn, 'Error calling FA_ASSET_VAL_PVT.check_non_depreciating_asset',
594: t_asset_id(i), p_log_level_rec => p_log_level_rec);
595: fa_debug_pkg.add(l_calling_fn, 'You can not Post an impairment for this asset',
596: 'As this asset is added with depreciate flag as NO and without reserve', p_log_level_rec => p_log_level_rec);
597: END IF;
598: fa_srvr_msg.add_message(
599: calling_fn => null,
624: , p_mrc_sob_type_code => p_mrc_sob_type_code
625: , p_calling_fn => l_calling_fn
626: , p_log_level_rec => p_log_level_rec) then
627: if (p_log_level_rec.statement_level) then
628: fa_debug_pkg.add(l_calling_fn, 'Error calling',
629: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
630: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
631: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
632: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
626: , p_log_level_rec => p_log_level_rec) then
627: if (p_log_level_rec.statement_level) then
628: fa_debug_pkg.add(l_calling_fn, 'Error calling',
629: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
630: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
631: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
632: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
633: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
634:
628: fa_debug_pkg.add(l_calling_fn, 'Error calling',
629: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
630: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
631: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
632: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
633: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
634:
635: end if;
636:
663:
664: l_running_mode := 'STANDARD';
665:
666: if (p_log_level_rec.statement_level) then
667: fa_debug_pkg.add(l_calling_fn, 'Calling', 'query_balances_int', p_log_level_rec => p_log_level_rec);
668: end if;
669:
670: fa_query_balances_pkg.query_balances_int(
671: X_DPR_ROW => l_dpr_row,
677:
678: if (NOT l_status) then
679:
680: if (p_log_level_rec.statement_level) then
681: fa_debug_pkg.add(l_calling_fn, 'ERROR',
682: 'Calling fa_query_balances_pkg.query_balances_int', p_log_level_rec => p_log_level_rec);
683: end if;
684:
685: raise dpr_err;
685: raise dpr_err;
686: end if;
687:
688: if (p_log_level_rec.statement_level) then
689: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_adjust_exp', l_dpr_row.deprn_adjust_exp, p_log_level_rec => p_log_level_rec);
690: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_exp', l_dpr_row.deprn_exp, p_log_level_rec => p_log_level_rec);
691: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_rsv', l_dpr_row.deprn_rsv, p_log_level_rec => p_log_level_rec);
692: end if;
693:
686: end if;
687:
688: if (p_log_level_rec.statement_level) then
689: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_adjust_exp', l_dpr_row.deprn_adjust_exp, p_log_level_rec => p_log_level_rec);
690: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_exp', l_dpr_row.deprn_exp, p_log_level_rec => p_log_level_rec);
691: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_rsv', l_dpr_row.deprn_rsv, p_log_level_rec => p_log_level_rec);
692: end if;
693:
694: -- Bug5768359: Need to refrect exp into deprn adj amount in DD.
687:
688: if (p_log_level_rec.statement_level) then
689: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_adjust_exp', l_dpr_row.deprn_adjust_exp, p_log_level_rec => p_log_level_rec);
690: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_exp', l_dpr_row.deprn_exp, p_log_level_rec => p_log_level_rec);
691: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_rsv', l_dpr_row.deprn_rsv, p_log_level_rec => p_log_level_rec);
692: end if;
693:
694: -- Bug5768359: Need to refrect exp into deprn adj amount in DD.
695: l_dpr_row.deprn_adjust_exp := nvl(l_dpr_row.deprn_exp, 0);
693:
694: -- Bug5768359: Need to refrect exp into deprn adj amount in DD.
695: l_dpr_row.deprn_adjust_exp := nvl(l_dpr_row.deprn_exp, 0);
696: if (p_log_level_rec.statement_level) then
697: fa_debug_pkg.add(l_calling_fn, 'Query balance returned', 'following', p_log_level_rec => p_log_level_rec);
698: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_exp', l_dpr_row.deprn_exp, p_log_level_rec => p_log_level_rec);
699: end if;
700:
701:
694: -- Bug5768359: Need to refrect exp into deprn adj amount in DD.
695: l_dpr_row.deprn_adjust_exp := nvl(l_dpr_row.deprn_exp, 0);
696: if (p_log_level_rec.statement_level) then
697: fa_debug_pkg.add(l_calling_fn, 'Query balance returned', 'following', p_log_level_rec => p_log_level_rec);
698: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_exp', l_dpr_row.deprn_exp, p_log_level_rec => p_log_level_rec);
699: end if;
700:
701:
702: if (p_log_level_rec.statement_level) then
699: end if;
700:
701:
702: if (p_log_level_rec.statement_level) then
703: fa_debug_pkg.add(l_calling_fn, 'Start populating', 'l_dpr_in', p_log_level_rec => p_log_level_rec);
704: end if;
705:
706: /*Phase5 Restrict call to deprn engine faxcde for assets having depreciation flag equal to NO*/
707: /*Bug 9574021 Added condition for Extended Assets*/
706: /*Phase5 Restrict call to deprn engine faxcde for assets having depreciation flag equal to NO*/
707: /*Bug 9574021 Added condition for Extended Assets*/
708: IF ((t_depreciate_flag(i) = 'NO') OR (t_period_fully_reserve(i) is not null AND t_deprn_method_code(i) <> 'JP-STL-EXTND')) then
709: IF (p_log_level_rec.statement_level) then
710: fa_debug_pkg.add(l_calling_fn, '======================================',
711: 'NON DEPRECIATING/FULLY RESERVED ASSET', p_log_level_rec => p_log_level_rec);
712: fa_debug_pkg.add(l_calling_fn, 'Skipping the call to FAXCDE for asset',
713: t_asset_id(i), p_log_level_rec => p_log_level_rec);
714: fa_debug_pkg.add(l_calling_fn, '======================================',
708: IF ((t_depreciate_flag(i) = 'NO') OR (t_period_fully_reserve(i) is not null AND t_deprn_method_code(i) <> 'JP-STL-EXTND')) then
709: IF (p_log_level_rec.statement_level) then
710: fa_debug_pkg.add(l_calling_fn, '======================================',
711: 'NON DEPRECIATING/FULLY RESERVED ASSET', p_log_level_rec => p_log_level_rec);
712: fa_debug_pkg.add(l_calling_fn, 'Skipping the call to FAXCDE for asset',
713: t_asset_id(i), p_log_level_rec => p_log_level_rec);
714: fa_debug_pkg.add(l_calling_fn, '======================================',
715: 'NON DEPRECIATING/FULLY RESERVED ASSET', p_log_level_rec => p_log_level_rec);
716: END IF;
710: fa_debug_pkg.add(l_calling_fn, '======================================',
711: 'NON DEPRECIATING/FULLY RESERVED ASSET', p_log_level_rec => p_log_level_rec);
712: fa_debug_pkg.add(l_calling_fn, 'Skipping the call to FAXCDE for asset',
713: t_asset_id(i), p_log_level_rec => p_log_level_rec);
714: fa_debug_pkg.add(l_calling_fn, '======================================',
715: 'NON DEPRECIATING/FULLY RESERVED ASSET', p_log_level_rec => p_log_level_rec);
716: END IF;
717: ELSE --Deprn flag = YES
718:
777: l_dpr_in.update_override_status := TRUE;
778: end if;
779:
780: if (p_log_level_rec.statement_level) then
781: fa_debug_pkg.add(l_calling_fn, 'Calling', 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
782: end if;
783:
784: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
785: fa_cache_pkg.fazcbc_record.fiscal_year_name,
787: g_temp_number,
788: l_dpr_in.y_begin,
789: g_temp_integer, p_log_level_rec => p_log_level_rec) then
790: if (p_log_level_rec.statement_level) then
791: fa_debug_pkg.add(l_calling_fn, 'Error calling',
792: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
793: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
794: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
795: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
789: g_temp_integer, p_log_level_rec => p_log_level_rec) then
790: if (p_log_level_rec.statement_level) then
791: fa_debug_pkg.add(l_calling_fn, 'Error calling',
792: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
793: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
794: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
795: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
796: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
797: end if;
791: fa_debug_pkg.add(l_calling_fn, 'Error calling',
792: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
793: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
794: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
795: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
796: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
797: end if;
798:
799: raise dpr_err;
803: raise dpr_err;
804: end if;
805:
806: if (p_log_level_rec.statement_level) then
807: fa_debug_pkg.add(l_calling_fn, 't_adjustment_required_status',
808: t_adjustment_required_status(i));
809: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.deprn_rsv', l_dpr_in.deprn_rsv, p_log_level_rec => p_log_level_rec);
810: fa_debug_pkg.add(l_calling_fn, 't_deprn_start_date', t_deprn_start_date(i));
811: end if;
805:
806: if (p_log_level_rec.statement_level) then
807: fa_debug_pkg.add(l_calling_fn, 't_adjustment_required_status',
808: t_adjustment_required_status(i));
809: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.deprn_rsv', l_dpr_in.deprn_rsv, p_log_level_rec => p_log_level_rec);
810: fa_debug_pkg.add(l_calling_fn, 't_deprn_start_date', t_deprn_start_date(i));
811: end if;
812:
813: l_pa_dpr_out := null; --Bug#8744490
806: if (p_log_level_rec.statement_level) then
807: fa_debug_pkg.add(l_calling_fn, 't_adjustment_required_status',
808: t_adjustment_required_status(i));
809: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.deprn_rsv', l_dpr_in.deprn_rsv, p_log_level_rec => p_log_level_rec);
810: fa_debug_pkg.add(l_calling_fn, 't_deprn_start_date', t_deprn_start_date(i));
811: end if;
812:
813: l_pa_dpr_out := null; --Bug#8744490
814: --- ***************************** ---
839: l_pa_dpr_arr,
840: l_pa_dpr_out,
841: l_running_mode, p_log_level_rec => p_log_level_rec) then
842: if (p_log_level_rec.statement_level) then
843: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
844: end if;
845:
846: raise dpr_err;
847: end if;
879: l_dpr_in.p_cl_end := p_period_rec.period_num;
880: l_dpr_in.deprn_override_used_by := 'PRE'; --16275774
881:
882: if (p_log_level_rec.statement_level) then
883: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
884: end if;
885:
886: --+++++++ Call Depreciation engine to calculate periodic depreciation +++++++
887: if not FA_CDE_PKG.faxcde(l_dpr_in,
888: l_dpr_arr,
889: l_dpr_out,
890: l_running_mode, p_log_level_rec => p_log_level_rec) then
891: if (p_log_level_rec.statement_level) then
892: fa_debug_pkg.add(l_calling_fn, 'Error calling',
893: 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
894: end if;
895:
896: raise dpr_err;
898: END IF; --depreciate falg = 'NO' phase5
899: end if; -- (p_period_rec.period_counter > p_imp_period_rec.period_counter)
900:
901: if (p_log_level_rec.statement_level) then
902: fa_debug_pkg.add(l_calling_fn, 'Storing values in local pl/sql tables', 'process deprn', p_log_level_rec => p_log_level_rec);
903: end if;
904: /*Bug 9574021 Added condition for Extended Assets*/
905: IF t_depreciate_flag(i) = 'YES' AND (t_period_fully_reserve(i) is null OR t_deprn_method_code(i) = 'JP-STL-EXTND')then
906: --Bug5768359: adding l_dpr_row.deprn_exp to refrect cur per catchup.
934: t_capital_adjustment(i) := l_dpr_out.new_capital_adjustment; -- Bug 6666666
935: t_general_fund(i) := l_dpr_out.new_general_fund; -- Bug 6666666
936: t_reval_loss_balance(i) := l_dpr_row.reval_loss_balance ;
937: if (p_log_level_rec.statement_level) then
938: fa_debug_pkg.add(l_calling_fn, 'getting values from l_dpr_out struct', 'deprn run yes', p_log_level_rec => p_log_level_rec);
939: end if;
940: ELSE --t_depreciate_flag(i) = 'NO' /*override the values from l_dpr_row o/p of query balance*/
941: t_deprn_amount(i) := 0;
942: t_ytd_deprn(i) := l_dpr_row.ytd_deprn;
964: t_capital_adjustment(i) := l_dpr_row.capital_adjustment; -- Bug 6666666
965: t_general_fund(i) := l_dpr_row.general_fund; -- Bug 6666666
966: t_reval_loss_balance(i) := l_dpr_row.reval_loss_balance ;
967: if (p_log_level_rec.statement_level) then
968: fa_debug_pkg.add(l_calling_fn, 'getting values from l_dpr_row struct', 'deprn run NO', p_log_level_rec => p_log_level_rec);
969: end if;
970: END IF; --deprn flag = YES phase5
971:
972: if (p_log_level_rec.statement_level) then
969: end if;
970: END IF; --deprn flag = YES phase5
971:
972: if (p_log_level_rec.statement_level) then
973: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_adjust_exp', l_dpr_row.deprn_adjust_exp, p_log_level_rec => p_log_level_rec);
974: fa_debug_pkg.add(l_calling_fn, 't_deprn_adjustment_amount('||to_char(i)||')', t_deprn_adjustment_amount(i));
975: end if;
976:
977: --
970: END IF; --deprn flag = YES phase5
971:
972: if (p_log_level_rec.statement_level) then
973: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.deprn_adjust_exp', l_dpr_row.deprn_adjust_exp, p_log_level_rec => p_log_level_rec);
974: fa_debug_pkg.add(l_calling_fn, 't_deprn_adjustment_amount('||to_char(i)||')', t_deprn_adjustment_amount(i));
975: end if;
976:
977: --
978: -- Store appropriate amount in eofy_reserve
977: --
978: -- Store appropriate amount in eofy_reserve
979: --
980: if (p_log_level_rec.statement_level) then
981: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
982: fa_debug_pkg.add(l_calling_fn, 'deprn_method_code', t_deprn_method_code(i));
983: fa_debug_pkg.add(l_calling_fn, 'life_in_months', t_life_in_months(i));
984: end if;
985:
978: -- Store appropriate amount in eofy_reserve
979: --
980: if (p_log_level_rec.statement_level) then
981: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
982: fa_debug_pkg.add(l_calling_fn, 'deprn_method_code', t_deprn_method_code(i));
983: fa_debug_pkg.add(l_calling_fn, 'life_in_months', t_life_in_months(i));
984: end if;
985:
986: if (not fa_cache_pkg.fazccmt(
979: --
980: if (p_log_level_rec.statement_level) then
981: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
982: fa_debug_pkg.add(l_calling_fn, 'deprn_method_code', t_deprn_method_code(i));
983: fa_debug_pkg.add(l_calling_fn, 'life_in_months', t_life_in_months(i));
984: end if;
985:
986: if (not fa_cache_pkg.fazccmt(
987: t_deprn_method_code(i),
987: t_deprn_method_code(i),
988: t_life_in_months(i),
989: p_log_level_rec)) then
990: if (p_log_level_rec.statement_level) then
991: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
992: end if;
993:
994: raise dpr_err;
995: end if;
994: raise dpr_err;
995: end if;
996:
997: if (p_log_level_rec.statement_level) then
998: fa_debug_pkg.add(l_calling_fn, 'rate_source_rule', fa_cache_pkg.fazccmt_record.rate_source_rule, p_log_level_rec => p_log_level_rec);
999: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
1000: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
1001: end if;
1002:
995: end if;
996:
997: if (p_log_level_rec.statement_level) then
998: fa_debug_pkg.add(l_calling_fn, 'rate_source_rule', fa_cache_pkg.fazccmt_record.rate_source_rule, p_log_level_rec => p_log_level_rec);
999: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
1000: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
1001: end if;
1002:
1003: if (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
996:
997: if (p_log_level_rec.statement_level) then
998: fa_debug_pkg.add(l_calling_fn, 'rate_source_rule', fa_cache_pkg.fazccmt_record.rate_source_rule, p_log_level_rec => p_log_level_rec);
999: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
1000: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
1001: end if;
1002:
1003: if (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT) and
1004: (fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_NBV) and
1008: t_eofy_reserve(i) := nvl(l_dpr_out.new_eofy_reserve, 0);
1009: end if;
1010:
1011: if (p_log_level_rec.statement_level) then
1012: fa_debug_pkg.add(l_calling_fn, 'eofy reserve', t_eofy_reserve(i));
1013: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.impairment_rsv', l_dpr_row.impairment_rsv, p_log_level_rec => p_log_level_rec);
1014: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.rec_cost', l_dpr_in.rec_cost, p_log_level_rec => p_log_level_rec);
1015: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.new_deprn_rsv', l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1016: end if;
1009: end if;
1010:
1011: if (p_log_level_rec.statement_level) then
1012: fa_debug_pkg.add(l_calling_fn, 'eofy reserve', t_eofy_reserve(i));
1013: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.impairment_rsv', l_dpr_row.impairment_rsv, p_log_level_rec => p_log_level_rec);
1014: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.rec_cost', l_dpr_in.rec_cost, p_log_level_rec => p_log_level_rec);
1015: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.new_deprn_rsv', l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1016: end if;
1017:
1010:
1011: if (p_log_level_rec.statement_level) then
1012: fa_debug_pkg.add(l_calling_fn, 'eofy reserve', t_eofy_reserve(i));
1013: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.impairment_rsv', l_dpr_row.impairment_rsv, p_log_level_rec => p_log_level_rec);
1014: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.rec_cost', l_dpr_in.rec_cost, p_log_level_rec => p_log_level_rec);
1015: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.new_deprn_rsv', l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1016: end if;
1017:
1018: /* Phase5 excluding savage value when asset is using JP Logic for NBV calculation for Impairment*/
1011: if (p_log_level_rec.statement_level) then
1012: fa_debug_pkg.add(l_calling_fn, 'eofy reserve', t_eofy_reserve(i));
1013: fa_debug_pkg.add(l_calling_fn, 'l_dpr_row.impairment_rsv', l_dpr_row.impairment_rsv, p_log_level_rec => p_log_level_rec);
1014: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.rec_cost', l_dpr_in.rec_cost, p_log_level_rec => p_log_level_rec);
1015: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.new_deprn_rsv', l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1016: end if;
1017:
1018: /* Phase5 excluding savage value when asset is using JP Logic for NBV calculation for Impairment*/
1019: /*Bug 9576003 changed the variables to cal net_book_value in case of ELSE part*/
1029: l_asset_hdr_rec.book_type_code := p_book_type_code;
1030: l_asset_hdr_rec.set_of_books_id := p_set_of_books_id;
1031:
1032: if (p_log_level_rec.statement_level) then
1033: fa_debug_pkg.add(l_calling_fn,'Calling function ', 'FA_ASSET_VAL_PVT.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
1034: fa_debug_pkg.add(l_calling_fn, 'l_asset_hdr_rec.asset_id', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1035: fa_debug_pkg.add(l_calling_fn, 'p_book_type_code', p_book_type_code, p_log_level_rec => p_log_level_rec);
1036: end if;
1037:
1030: l_asset_hdr_rec.set_of_books_id := p_set_of_books_id;
1031:
1032: if (p_log_level_rec.statement_level) then
1033: fa_debug_pkg.add(l_calling_fn,'Calling function ', 'FA_ASSET_VAL_PVT.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
1034: fa_debug_pkg.add(l_calling_fn, 'l_asset_hdr_rec.asset_id', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1035: fa_debug_pkg.add(l_calling_fn, 'p_book_type_code', p_book_type_code, p_log_level_rec => p_log_level_rec);
1036: end if;
1037:
1038: if not FA_ASSET_VAL_PVT.validate_period_of_addition
1031:
1032: if (p_log_level_rec.statement_level) then
1033: fa_debug_pkg.add(l_calling_fn,'Calling function ', 'FA_ASSET_VAL_PVT.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
1034: fa_debug_pkg.add(l_calling_fn, 'l_asset_hdr_rec.asset_id', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1035: fa_debug_pkg.add(l_calling_fn, 'p_book_type_code', p_book_type_code, p_log_level_rec => p_log_level_rec);
1036: end if;
1037:
1038: if not FA_ASSET_VAL_PVT.validate_period_of_addition
1039: (p_asset_id => l_asset_hdr_rec.asset_id,
1041: p_mode => 'ABSOLUTE',
1042: px_period_of_addition => t_period_of_addition_flag(i),
1043: p_log_level_rec => p_log_level_rec) then
1044: if (p_log_level_rec.statement_level) then
1045: fa_debug_pkg.add(l_calling_fn,'Error Calling', 'FA_ASSET_VAL_PVT.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
1046: end if;
1047:
1048: raise dpr_err;
1049: end if;
1049: end if;
1050:
1051: -- Create (cip_)cost entries if this is asset's period of addition
1052: if (p_log_level_rec.statement_level) then
1053: fa_debug_pkg.add(l_calling_fn,'Is this period of addition? ', t_period_of_addition_flag(i));
1054: end if;
1055: --Bug#8614268 start
1056: if (p_log_level_rec.statement_level) then
1057: fa_debug_pkg.add(l_calling_fn,'Before checking impairments accts for category id',t_category_id(i), p_log_level_rec => p_log_level_rec);
1053: fa_debug_pkg.add(l_calling_fn,'Is this period of addition? ', t_period_of_addition_flag(i));
1054: end if;
1055: --Bug#8614268 start
1056: if (p_log_level_rec.statement_level) then
1057: fa_debug_pkg.add(l_calling_fn,'Before checking impairments accts for category id',t_category_id(i), p_log_level_rec => p_log_level_rec);
1058: end if;
1059: if not (fa_cache_pkg.fazccb (X_Book => p_book_type_code,
1060: X_Cat_Id => t_category_id(i),
1061: p_log_level_rec => p_log_level_rec)) then
1059: if not (fa_cache_pkg.fazccb (X_Book => p_book_type_code,
1060: X_Cat_Id => t_category_id(i),
1061: p_log_level_rec => p_log_level_rec)) then
1062: if (p_log_level_rec.statement_level) then
1063: fa_debug_pkg.add(l_calling_fn,'Error Calling','fa_cache_pkg.fazccb', p_log_level_rec => p_log_level_rec);
1064: end if;
1065: raise dpr_err;
1066: end if;
1067: if ((fa_cache_pkg.fazccb_record.IMPAIR_EXPENSE_ACCT is null) OR
1073: --Bug# 8614268 end
1074: END LOOP;
1075:
1076: if (p_log_level_rec.statement_level) then
1077: fa_debug_pkg.add(l_calling_fn,'t_net_book_value(1)', t_net_book_value(1));
1078: end if;
1079:
1080:
1081: if (p_mrc_sob_type_code = 'R') then
1163: --
1164: --
1165:
1166: if (p_log_level_rec.statement_level) then
1167: fa_debug_pkg.add(l_calling_fn,'Process Depreciation', 'END', p_log_level_rec => p_log_level_rec);
1168: end if;
1169:
1170: return true;
1171:
1172: EXCEPTION
1173: WHEN dpr_err THEN
1174:
1175: if (p_log_level_rec.statement_level) then
1176: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'prv_err', p_log_level_rec => p_log_level_rec);
1177: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1178: end if;
1179:
1180: return false;
1173: WHEN dpr_err THEN
1174:
1175: if (p_log_level_rec.statement_level) then
1176: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'prv_err', p_log_level_rec => p_log_level_rec);
1177: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1178: end if;
1179:
1180: return false;
1181:
1181:
1182: WHEN OTHERS THEN
1183:
1184: if (p_log_level_rec.statement_level) then
1185: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
1186: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1187: end if;
1188:
1189: return false;
1182: WHEN OTHERS THEN
1183:
1184: if (p_log_level_rec.statement_level) then
1185: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
1186: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1187: end if;
1188:
1189: return false;
1190:
1404:
1405: BEGIN
1406:
1407: if (p_log_level_rec.statement_level) then
1408: fa_debug_pkg.add(l_calling_fn,'calc_total_nbv', 'BEGIN', p_log_level_rec => p_log_level_rec);
1409: fa_debug_pkg.add(l_calling_fn,'period_counter', p_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
1410: end if;
1411:
1412: OPEN c_get_currency_info(p_set_of_books_id);
1405: BEGIN
1406:
1407: if (p_log_level_rec.statement_level) then
1408: fa_debug_pkg.add(l_calling_fn,'calc_total_nbv', 'BEGIN', p_log_level_rec => p_log_level_rec);
1409: fa_debug_pkg.add(l_calling_fn,'period_counter', p_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
1410: end if;
1411:
1412: OPEN c_get_currency_info(p_set_of_books_id);
1413: FETCH c_get_currency_info INTO l_precision;
1418: --
1419: -- May need to create outer loop to limit records to fetch
1420: --
1421: if (p_log_level_rec.statement_level) then
1422: fa_debug_pkg.add(l_calling_fn,'Fetching', 'from FA_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1423: end if;
1424:
1425: if (p_mrc_sob_type_code = 'R') then
1426: OPEN c_mc_get_impairments;
1450: CLOSE c_get_impairments;
1451: end if;
1452:
1453: if (p_log_level_rec.statement_level) then
1454: fa_debug_pkg.add(l_calling_fn,'Fecthed impairments', t_impairment_id.count, p_log_level_rec => p_log_level_rec);
1455: fa_debug_pkg.add(l_calling_fn,'fmv', t_fair_market_value(1));
1456: fa_debug_pkg.add(l_calling_fn,'nbv', t_net_book_value(1));
1457: fa_debug_pkg.add(l_calling_fn,'Updating', 'FA_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1458: end if;
1451: end if;
1452:
1453: if (p_log_level_rec.statement_level) then
1454: fa_debug_pkg.add(l_calling_fn,'Fecthed impairments', t_impairment_id.count, p_log_level_rec => p_log_level_rec);
1455: fa_debug_pkg.add(l_calling_fn,'fmv', t_fair_market_value(1));
1456: fa_debug_pkg.add(l_calling_fn,'nbv', t_net_book_value(1));
1457: fa_debug_pkg.add(l_calling_fn,'Updating', 'FA_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1458: end if;
1459:
1452:
1453: if (p_log_level_rec.statement_level) then
1454: fa_debug_pkg.add(l_calling_fn,'Fecthed impairments', t_impairment_id.count, p_log_level_rec => p_log_level_rec);
1455: fa_debug_pkg.add(l_calling_fn,'fmv', t_fair_market_value(1));
1456: fa_debug_pkg.add(l_calling_fn,'nbv', t_net_book_value(1));
1457: fa_debug_pkg.add(l_calling_fn,'Updating', 'FA_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1458: end if;
1459:
1460: if (p_mrc_sob_type_code = 'R') then
1453: if (p_log_level_rec.statement_level) then
1454: fa_debug_pkg.add(l_calling_fn,'Fecthed impairments', t_impairment_id.count, p_log_level_rec => p_log_level_rec);
1455: fa_debug_pkg.add(l_calling_fn,'fmv', t_fair_market_value(1));
1456: fa_debug_pkg.add(l_calling_fn,'nbv', t_net_book_value(1));
1457: fa_debug_pkg.add(l_calling_fn,'Updating', 'FA_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1458: end if;
1459:
1460: if (p_mrc_sob_type_code = 'R') then
1461: FORALL i in 1..t_impairment_id.count
1484: --
1485: -- Allocate
1486: --
1487: if (p_log_level_rec.statement_level) then
1488: fa_debug_pkg.add(l_calling_fn,'Updating', 'FA_ITF_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1489: end if;
1490:
1491: if (p_mrc_sob_type_code = 'R') then
1492: FORALL i in 1..t_impairment_id.count
1720: --
1721: -- Adjusting impairment amount and reval reserve
1722: --
1723: if (p_log_level_rec.statement_level) then
1724: fa_debug_pkg.add(l_calling_fn,'Updating impairment for reval', 'FA_ITF_IMPAIRMENTS', p_log_level_rec => p_log_level_rec);
1725: end if;
1726:
1727: if (p_mrc_sob_type_code = 'R') then
1728: FORALL i in 1..t_impairment_id.count
1823: , p_book_type_code => p_book_type_code
1824: , p_precision => l_precision
1825: , p_log_level_rec => p_log_level_rec
1826: ) THEN
1827: fa_debug_pkg.add(l_calling_fn,'SORP Error - sorp_processing returned an error', 'OTHERS', p_log_level_rec => p_log_level_rec);
1828: RETURN FALSE;
1829: END IF;
1830: END IF;
1831: END LOOP;
1830: END IF;
1831: END LOOP;
1832:
1833: if (p_log_level_rec.statement_level) then
1834: fa_debug_pkg.add(l_calling_fn,'calc_total_nbv', 'END', p_log_level_rec => p_log_level_rec);
1835: end if;
1836:
1837: return true;
1838:
1839: EXCEPTION
1840: WHEN calc_err THEN
1841:
1842: if (p_log_level_rec.statement_level) then
1843: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'calc_err', p_log_level_rec => p_log_level_rec);
1844: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1845: end if;
1846:
1847: return false;
1840: WHEN calc_err THEN
1841:
1842: if (p_log_level_rec.statement_level) then
1843: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'calc_err', p_log_level_rec => p_log_level_rec);
1844: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1845: end if;
1846:
1847: return false;
1848:
1848:
1849: WHEN OTHERS THEN
1850:
1851: if (p_log_level_rec.statement_level) then
1852: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
1853: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1854: end if;
1855:
1856: return false;
1849: WHEN OTHERS THEN
1850:
1851: if (p_log_level_rec.statement_level) then
1852: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
1853: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
1854: end if;
1855:
1856: return false;
1857:
2187:
2188: BEGIN
2189:
2190: if (p_log_level_rec.statement_level) then
2191: fa_debug_pkg.add(l_calling_fn,'BEGIN', p_asset_id, p_log_level_rec => p_log_level_rec);
2192: end if;
2193:
2194: OPEN c_get_period_rec;
2195: FETCH c_get_period_rec BULK COLLECT INTO fa_amort_pvt.t_period_counter
2257: CLOSE c_get_period_rec;
2258:
2259:
2260: if (p_log_level_rec.statement_level) then
2261: fa_debug_pkg.add(l_calling_fn,'c_get_period_rec returned', fa_amort_pvt.t_period_counter.count, p_log_level_rec => p_log_level_rec);
2262: end if;
2263:
2264:
2265: OPEN c_get_member_trx;
2288: ;
2289: CLOSE c_get_member_trx;
2290:
2291: if (p_log_level_rec.statement_level) then
2292: fa_debug_pkg.add(l_calling_fn,'c_get_member_trx returned', tt_transaction_header_id.count, p_log_level_rec => p_log_level_rec);
2293: end if;
2294:
2295: fa_amort_pvt.t_reset_adjusted_cost_flag(1) := 'Y';
2296: l_start_pc := fa_amort_pvt.t_period_counter(1);
2295: fa_amort_pvt.t_reset_adjusted_cost_flag(1) := 'Y';
2296: l_start_pc := fa_amort_pvt.t_period_counter(1);
2297:
2298: if (p_log_level_rec.statement_level) then
2299: fa_debug_pkg.add(l_calling_fn,'Before trx loop', l_start_pc, p_log_level_rec => p_log_level_rec);
2300: end if;
2301:
2302: FOR i in 1..tt_transaction_header_id.count LOOP
2303:
2304: l_process_this_trx := TRUE;
2305: loc := tt_period_counter(i) - l_start_pc + 1;
2306:
2307: if (p_log_level_rec.statement_level) then
2308: fa_debug_pkg.add(l_calling_fn,'trx type code('||to_char(i)||')', tt_transaction_type_code(i));
2309: fa_debug_pkg.add(l_calling_fn,'trx key('||to_char(i)||')', tt_transaction_key(i));
2310: fa_debug_pkg.add(l_calling_fn,'trx period counter('||to_char(i)||')', tt_period_counter(i));
2311: end if;
2312:
2305: loc := tt_period_counter(i) - l_start_pc + 1;
2306:
2307: if (p_log_level_rec.statement_level) then
2308: fa_debug_pkg.add(l_calling_fn,'trx type code('||to_char(i)||')', tt_transaction_type_code(i));
2309: fa_debug_pkg.add(l_calling_fn,'trx key('||to_char(i)||')', tt_transaction_key(i));
2310: fa_debug_pkg.add(l_calling_fn,'trx period counter('||to_char(i)||')', tt_period_counter(i));
2311: end if;
2312:
2313: -- If this trx is ret, then check to see if it's been reinstated or not
2306:
2307: if (p_log_level_rec.statement_level) then
2308: fa_debug_pkg.add(l_calling_fn,'trx type code('||to_char(i)||')', tt_transaction_type_code(i));
2309: fa_debug_pkg.add(l_calling_fn,'trx key('||to_char(i)||')', tt_transaction_key(i));
2310: fa_debug_pkg.add(l_calling_fn,'trx period counter('||to_char(i)||')', tt_period_counter(i));
2311: end if;
2312:
2313: -- If this trx is ret, then check to see if it's been reinstated or not
2314: -- Do not process if it's been reinstate.
2333: fa_amort_pvt.t_reset_adjusted_cost_flag(loc) := 'Y';
2334: fa_amort_pvt.t_change_in_cost(loc) := fa_amort_pvt.t_change_in_cost(loc) + tt_cost(i);
2335:
2336: if (p_log_level_rec.statement_level) then
2337: fa_debug_pkg.add(l_calling_fn,'trx type code('||to_char(i)||')', tt_transaction_type_code(i));
2338: end if;
2339:
2340: if (tt_transaction_type_code(i) = 'ADDITION') then
2341: OPEN c_get_init_rsv;
2349: end if;
2350:
2351:
2352: if (p_log_level_rec.statement_level) then
2353: fa_debug_pkg.add(l_calling_fn,'tt_salvage_value('||to_char(i)||')', tt_salvage_value(i));
2354: fa_debug_pkg.add(l_calling_fn,'tt_allowed_deprn_limit_amount('||to_char(i)||')', tt_allowed_deprn_limit_amount(i));
2355: end if;
2356:
2357: tbs_change_in_sal(loc) := tbs_change_in_sal(loc) + tt_salvage_value(i);
2350:
2351:
2352: if (p_log_level_rec.statement_level) then
2353: fa_debug_pkg.add(l_calling_fn,'tt_salvage_value('||to_char(i)||')', tt_salvage_value(i));
2354: fa_debug_pkg.add(l_calling_fn,'tt_allowed_deprn_limit_amount('||to_char(i)||')', tt_allowed_deprn_limit_amount(i));
2355: end if;
2356:
2357: tbs_change_in_sal(loc) := tbs_change_in_sal(loc) + tt_salvage_value(i);
2358: tbs_change_in_limit(loc) := tbs_change_in_limit(loc) + tt_allowed_deprn_limit_amount(i);
2357: tbs_change_in_sal(loc) := tbs_change_in_sal(loc) + tt_salvage_value(i);
2358: tbs_change_in_limit(loc) := tbs_change_in_limit(loc) + tt_allowed_deprn_limit_amount(i);
2359:
2360: if (p_log_level_rec.statement_level) then
2361: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_sal('||to_char(loc)||')', tbs_change_in_sal(loc));
2362: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_limit('||to_char(loc)||')', tbs_change_in_limit(loc));
2363: fa_debug_pkg.add(l_calling_fn,'tbs_transaction_header_id('||to_char(loc)||')', tbs_transaction_header_id(loc));
2364: end if;
2365:
2358: tbs_change_in_limit(loc) := tbs_change_in_limit(loc) + tt_allowed_deprn_limit_amount(i);
2359:
2360: if (p_log_level_rec.statement_level) then
2361: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_sal('||to_char(loc)||')', tbs_change_in_sal(loc));
2362: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_limit('||to_char(loc)||')', tbs_change_in_limit(loc));
2363: fa_debug_pkg.add(l_calling_fn,'tbs_transaction_header_id('||to_char(loc)||')', tbs_transaction_header_id(loc));
2364: end if;
2365:
2366: if (tbs_transaction_header_id(loc) < tt_transaction_header_id(i)) then
2359:
2360: if (p_log_level_rec.statement_level) then
2361: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_sal('||to_char(loc)||')', tbs_change_in_sal(loc));
2362: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_limit('||to_char(loc)||')', tbs_change_in_limit(loc));
2363: fa_debug_pkg.add(l_calling_fn,'tbs_transaction_header_id('||to_char(loc)||')', tbs_transaction_header_id(loc));
2364: end if;
2365:
2366: if (tbs_transaction_header_id(loc) < tt_transaction_header_id(i)) then
2367:
2365:
2366: if (tbs_transaction_header_id(loc) < tt_transaction_header_id(i)) then
2367:
2368: if (p_log_level_rec.statement_level) then
2369: fa_debug_pkg.add(l_calling_fn,'tt_transaction_header_id('||to_char(i)||')', tt_transaction_header_id(i));
2370: fa_debug_pkg.add(l_calling_fn,'tt_salvage_type_in('||to_char(i)||')', tt_salvage_type_in(i));
2371: end if;
2372:
2373: tbs_transaction_header_id(loc) := tt_transaction_header_id(i);
2366: if (tbs_transaction_header_id(loc) < tt_transaction_header_id(i)) then
2367:
2368: if (p_log_level_rec.statement_level) then
2369: fa_debug_pkg.add(l_calling_fn,'tt_transaction_header_id('||to_char(i)||')', tt_transaction_header_id(i));
2370: fa_debug_pkg.add(l_calling_fn,'tt_salvage_type_in('||to_char(i)||')', tt_salvage_type_in(i));
2371: end if;
2372:
2373: tbs_transaction_header_id(loc) := tt_transaction_header_id(i);
2374: fa_amort_pvt.t_deprn_method_code(loc) := tt_deprn_method_code(i);
2381: fa_amort_pvt.t_production_capacity(loc) := tt_production_capacity(i);
2382: end if;
2383:
2384: if (p_log_level_rec.statement_level) then
2385: fa_debug_pkg.add(l_calling_fn,'Find Unplan and Impairment Amount', tt_transaction_key(i));
2386: end if;
2387: -- *********************
2388: -- Find unplanned amount and impairment
2389: -- *********************
2405: FETCH c_get_adj_amount INTO l_adj_amount;
2406: CLOSE c_get_adj_amount;
2407:
2408: if (p_log_level_rec.statement_level) then
2409: fa_debug_pkg.add(l_calling_fn,'l_adj_amount', l_adj_amount, p_log_level_rec => p_log_level_rec);
2410: end if;
2411:
2412: l_ret_imp_amount := 0;
2413:
2458: l_dpr_in.book := l_asset_hdr_rec.book_type_code;
2459: l_dpr_in.asset_id := l_asset_hdr_rec.asset_id;
2460:
2461: if (p_log_level_rec.statement_level) then
2462: fa_debug_pkg.add(l_calling_fn,'calling', 'FA_UTIL_PVT.get_asset_fin_rec', p_log_level_rec => p_log_level_rec);
2463: end if;
2464:
2465: -- Populate fin rec
2466: if not FA_UTIL_PVT.get_asset_fin_rec
2471: raise pro_err;
2472: end if;
2473:
2474: if (p_log_level_rec.statement_level) then
2475: fa_debug_pkg.add(l_calling_fn,'period loop', 'Begin', p_log_level_rec => p_log_level_rec);
2476: end if;
2477:
2478: --
2479: -- Calculate periodic depreciation amounts
2496:
2497: if (l_skip) and (tbs_transaction_header_id(i) = 0) then
2498:
2499: if (p_log_level_rec.statement_level) then
2500: fa_debug_pkg.add(l_calling_fn,'Skip this period', fa_amort_pvt.t_period_counter(i));
2501: end if;
2502:
2503: l_bs_ind := l_bs_ind + 1;
2504: else
2502:
2503: l_bs_ind := l_bs_ind + 1;
2504: else
2505: if (p_log_level_rec.statement_level) then
2506: fa_debug_pkg.add(l_calling_fn,'tbs_transaction_header_id('||to_char(i)||')', tbs_transaction_header_id(i));
2507: end if;
2508:
2509: l_skip := FALSE;
2510:
2515: fa_amort_pvt.t_cost(i) := fa_amort_pvt.t_cost(i-1) + fa_amort_pvt.t_change_in_cost(i);
2516: end if;
2517:
2518: if (p_log_level_rec.statement_level) then
2519: fa_debug_pkg.add(l_calling_fn,'t_salvage_type('||to_char(i)||')', fa_amort_pvt.t_salvage_type(i));
2520: end if;
2521:
2522: if (fa_amort_pvt.t_salvage_type(i) is null) then
2523: fa_amort_pvt.t_salvage_type(i) := fa_amort_pvt.t_salvage_type(i-1);
2523: fa_amort_pvt.t_salvage_type(i) := fa_amort_pvt.t_salvage_type(i-1);
2524: end if;
2525:
2526: if (p_log_level_rec.statement_level) then
2527: fa_debug_pkg.add(l_calling_fn,'t_salvage_type('||to_char(i)||')', fa_amort_pvt.t_salvage_type(i));
2528: end if;
2529:
2530: if (fa_amort_pvt.t_salvage_type(i) = 'PCT') then
2531: if (p_log_level_rec.statement_level) then
2528: end if;
2529:
2530: if (fa_amort_pvt.t_salvage_type(i) = 'PCT') then
2531: if (p_log_level_rec.statement_level) then
2532: fa_debug_pkg.add(l_calling_fn,'t_percent_salvage_value('||to_char(i)||')', fa_amort_pvt.t_percent_salvage_value(i));
2533: end if;
2534:
2535: if (fa_amort_pvt.t_percent_salvage_value(i) is null) then
2536: if (i > 1) then
2540: end if;
2541: end if;
2542:
2543: if (p_log_level_rec.statement_level) then
2544: fa_debug_pkg.add(l_calling_fn,'t_percent_salvage_value('||to_char(i)||')', fa_amort_pvt.t_percent_salvage_value(i));
2545: end if;
2546:
2547: l_temp_num := fa_amort_pvt.t_cost(i) * fa_amort_pvt.t_percent_salvage_value(i);
2548: fa_round_pkg.fa_ceil(l_temp_num, p_book_type_code, p_log_level_rec => p_log_level_rec);
2548: fa_round_pkg.fa_ceil(l_temp_num, p_book_type_code, p_log_level_rec => p_log_level_rec);
2549: fa_amort_pvt.t_salvage_value(i) := l_temp_num;
2550: else
2551: if (p_log_level_rec.statement_level) then
2552: fa_debug_pkg.add(l_calling_fn,'tbs_change_in_sal('||to_char(i)||')', tbs_change_in_sal(i));
2553: end if;
2554:
2555: if (i > 1) then
2556: fa_amort_pvt.t_salvage_value(i) := fa_amort_pvt.t_salvage_value(i-1) + tbs_change_in_sal(i);
2559: end if;
2560: end if;
2561:
2562: if (p_log_level_rec.statement_level) then
2563: fa_debug_pkg.add(l_calling_fn,'t_salvage_value('||to_char(i)||')', fa_amort_pvt.t_salvage_value(i));
2564: fa_debug_pkg.add(l_calling_fn,'t_deprn_limit_type('||to_char(i)||')', fa_amort_pvt.t_deprn_limit_type(i));
2565: end if;
2566:
2567: if (fa_amort_pvt.t_deprn_limit_type(i) is null) then
2560: end if;
2561:
2562: if (p_log_level_rec.statement_level) then
2563: fa_debug_pkg.add(l_calling_fn,'t_salvage_value('||to_char(i)||')', fa_amort_pvt.t_salvage_value(i));
2564: fa_debug_pkg.add(l_calling_fn,'t_deprn_limit_type('||to_char(i)||')', fa_amort_pvt.t_deprn_limit_type(i));
2565: end if;
2566:
2567: if (fa_amort_pvt.t_deprn_limit_type(i) is null) then
2568: fa_amort_pvt.t_deprn_limit_type(i) := fa_amort_pvt.t_deprn_limit_type(i-1);
2568: fa_amort_pvt.t_deprn_limit_type(i) := fa_amort_pvt.t_deprn_limit_type(i-1);
2569: end if;
2570:
2571: if (p_log_level_rec.statement_level) then
2572: fa_debug_pkg.add(l_calling_fn,'t_deprn_limit_type('||to_char(i)||')', fa_amort_pvt.t_deprn_limit_type(i));
2573: end if;
2574:
2575: if (fa_amort_pvt.t_deprn_limit_type(i) = 'PCT') then
2576: if (fa_amort_pvt.t_allowed_deprn_limit(i) is null) then
2596: fa_amort_pvt.t_allowed_deprn_limit_amount(i) := null;
2597: end if;
2598:
2599: if (p_log_level_rec.statement_level) then
2600: fa_debug_pkg.add(l_calling_fn, 'sal_val('||to_char(i)||')', fa_amort_pvt.t_salvage_value(i));
2601: fa_debug_pkg.add(l_calling_fn, 'limit('||to_char(i)||')', fa_amort_pvt.t_allowed_deprn_limit_amount(i));
2602: end if;
2603:
2604: fa_amort_pvt.t_recoverable_cost(i) := fa_amort_pvt.t_cost(i) - fa_amort_pvt.t_salvage_value(i);
2597: end if;
2598:
2599: if (p_log_level_rec.statement_level) then
2600: fa_debug_pkg.add(l_calling_fn, 'sal_val('||to_char(i)||')', fa_amort_pvt.t_salvage_value(i));
2601: fa_debug_pkg.add(l_calling_fn, 'limit('||to_char(i)||')', fa_amort_pvt.t_allowed_deprn_limit_amount(i));
2602: end if;
2603:
2604: fa_amort_pvt.t_recoverable_cost(i) := fa_amort_pvt.t_cost(i) - fa_amort_pvt.t_salvage_value(i);
2605: fa_amort_pvt.t_adjusted_recoverable_cost(i) := fa_amort_pvt.t_cost(i) -
2605: fa_amort_pvt.t_adjusted_recoverable_cost(i) := fa_amort_pvt.t_cost(i) -
2606: nvl(fa_amort_pvt.t_allowed_deprn_limit_amount(i), 0);
2607:
2608: if (p_log_level_rec.statement_level) then
2609: fa_debug_pkg.add(l_calling_fn, 'rec cost('||to_char(i)||')', fa_amort_pvt.t_recoverable_cost(i));
2610: fa_debug_pkg.add(l_calling_fn, 'adj_rec_cost('||to_char(i)||')', fa_amort_pvt.t_adjusted_recoverable_cost(i));
2611: end if;
2612:
2613: if (fa_amort_pvt.t_deprn_method_code(i) is null) then
2606: nvl(fa_amort_pvt.t_allowed_deprn_limit_amount(i), 0);
2607:
2608: if (p_log_level_rec.statement_level) then
2609: fa_debug_pkg.add(l_calling_fn, 'rec cost('||to_char(i)||')', fa_amort_pvt.t_recoverable_cost(i));
2610: fa_debug_pkg.add(l_calling_fn, 'adj_rec_cost('||to_char(i)||')', fa_amort_pvt.t_adjusted_recoverable_cost(i));
2611: end if;
2612:
2613: if (fa_amort_pvt.t_deprn_method_code(i) is null) then
2614: fa_amort_pvt.t_deprn_method_code(i) := fa_amort_pvt.t_deprn_method_code(i-1);
2620: fa_amort_pvt.t_depreciate_flag(i) := fa_amort_pvt.t_depreciate_flag(i-1);
2621: end if;
2622:
2623: if (p_log_level_rec.statement_level) then
2624: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_period_counter', fa_amort_pvt.t_period_counter(i));
2625: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
2626: end if;
2627:
2628: --
2621: end if;
2622:
2623: if (p_log_level_rec.statement_level) then
2624: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_period_counter', fa_amort_pvt.t_period_counter(i));
2625: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
2626: end if;
2627:
2628: --
2629: -- Want to populate fa_amort_pvt tables but not necessary to calculate deprn basis
2668:
2669: end if;
2670:
2671: if (p_log_level_rec.statement_level) then
2672: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_deprn_reserve', fa_amort_pvt.t_deprn_reserve(i));
2673: end if;
2674:
2675:
2676: l_asset_fin_rec_old := l_asset_fin_rec_new;
2676: l_asset_fin_rec_old := l_asset_fin_rec_new;
2677: l_asset_fin_rec_new.cost := fa_amort_pvt.t_cost(i);
2678:
2679: if (p_log_level_rec.statement_level) then
2680: fa_debug_pkg.add(l_calling_fn, 'rec cost('||to_char(i)||')', fa_amort_pvt.t_recoverable_cost(i));
2681: fa_debug_pkg.add(l_calling_fn, 'adj_rec_cost('||to_char(i)||')', fa_amort_pvt.t_adjusted_recoverable_cost(i));
2682: end if;
2683:
2684: l_asset_fin_rec_new.recoverable_cost := fa_amort_pvt.t_recoverable_cost(i);
2677: l_asset_fin_rec_new.cost := fa_amort_pvt.t_cost(i);
2678:
2679: if (p_log_level_rec.statement_level) then
2680: fa_debug_pkg.add(l_calling_fn, 'rec cost('||to_char(i)||')', fa_amort_pvt.t_recoverable_cost(i));
2681: fa_debug_pkg.add(l_calling_fn, 'adj_rec_cost('||to_char(i)||')', fa_amort_pvt.t_adjusted_recoverable_cost(i));
2682: end if;
2683:
2684: l_asset_fin_rec_new.recoverable_cost := fa_amort_pvt.t_recoverable_cost(i);
2685: l_asset_fin_rec_new.adjusted_recoverable_cost := fa_amort_pvt.t_adjusted_recoverable_cost(i);
2741: l_dpr_in.deprn_start_jdate := to_number(to_char(l_asset_fin_rec_old.deprn_start_date, 'J'));
2742: l_dpr_in.prorate_jdate := to_number(to_char(l_asset_fin_rec_old.prorate_date, 'J'));
2743:
2744: if (p_log_level_rec.statement_level) then
2745: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
2746: end if;
2747:
2748: if (not fa_cache_pkg.fazccmt(
2749: fa_amort_pvt.t_deprn_method_code(i),
2749: fa_amort_pvt.t_deprn_method_code(i),
2750: fa_amort_pvt.t_life_in_months(i),
2751: p_log_level_rec)) then
2752: if (p_log_level_rec.statement_level) then
2753: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
2754: end if;
2755:
2756: raise pro_err;
2757: end if;
2757: end if;
2758:
2759: if i = 1 then
2760: if (p_log_level_rec.statement_level) then
2761: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
2762: end if;
2763:
2764: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
2765: fa_cache_pkg.fazcbc_record.fiscal_year_name,
2767: g_temp_number,
2768: l_dpr_in.y_begin,
2769: g_temp_integer, p_log_level_rec => p_log_level_rec) then
2770: if (p_log_level_rec.statement_level) then
2771: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2772: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
2773: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
2774: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
2775: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
2769: g_temp_integer, p_log_level_rec => p_log_level_rec) then
2770: if (p_log_level_rec.statement_level) then
2771: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2772: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
2773: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
2774: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
2775: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
2776: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
2777: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
2771: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2772: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
2773: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
2774: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
2775: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
2776: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
2777: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
2778: l_dpr_in.prorate_jdate, p_log_level_rec => p_log_level_rec);
2779:
2773: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
2774: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
2775: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
2776: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
2777: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
2778: l_dpr_in.prorate_jdate, p_log_level_rec => p_log_level_rec);
2779:
2780: end if;
2781:
2784: end if;
2785:
2786:
2787: if (p_log_level_rec.statement_level) then
2788: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'faxcde for hype reserve', p_log_level_rec => p_log_level_rec);
2789: end if;
2790:
2791: -- Skip faxcde call to find hyp rsv if method type is not (FLAT or PROD) and basis is COST
2792: if (((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') not in(fa_std_types.FAD_RSR_FLAT,
2810: l_dpr_arr,
2811: l_dpr_out,
2812: l_running_mode, p_log_level_rec => p_log_level_rec) then
2813: if (p_log_level_rec.statement_level) then
2814: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2815: 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
2816: end if;
2817:
2818: raise pro_err;
2823: l_period_rec.period_num := fa_amort_pvt.t_period_num(i);
2824: l_period_rec.fiscal_year := fa_amort_pvt.t_fiscal_year(i);
2825:
2826: if (p_log_level_rec.statement_level) then
2827: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2828: end if;
2829:
2830: l_asset_deprn_rec.impairment_reserve := --fa_amort_pvt.t_impairment_amount(i) +
2831: l_dpr_out.new_impairment_rsv;
2833: -- Manipulate eofy_reserve in if following conditioin is satisfied as
2834: -- depreciable basis will not use actual eofy_reserve
2835:
2836: if (p_log_level_rec.statement_level) then
2837: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
2838: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
2839: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
2840: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
2841: end if;
2834: -- depreciable basis will not use actual eofy_reserve
2835:
2836: if (p_log_level_rec.statement_level) then
2837: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
2838: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
2839: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
2840: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
2841: end if;
2842:
2835:
2836: if (p_log_level_rec.statement_level) then
2837: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
2838: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
2839: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
2840: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
2841: end if;
2842:
2843: if (i > 1) and (fa_amort_pvt.t_impairment_amount(i-1) <> 0) and
2836: if (p_log_level_rec.statement_level) then
2837: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
2838: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
2839: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
2840: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
2841: end if;
2842:
2843: if (i > 1) and (fa_amort_pvt.t_impairment_amount(i-1) <> 0) and
2844: (fa_cache_pkg.fazcdbr_record.rule_name = 'FLAT RATE EXTENSION') and
2851:
2852: end if;
2853:
2854: if (p_log_level_rec.statement_level) then
2855: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2856: end if;
2857:
2858: if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS
2859: (p_event_type => l_db_event_type,
2889: px_new_formula_factor => fa_amort_pvt.t_formula_factor(i),
2890:
2891: p_log_level_rec => p_log_level_rec)) then
2892: if (p_log_level_rec.statement_level) then
2893: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2894: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2895: end if;
2896:
2897: raise pro_err;
2897: raise pro_err;
2898: end if;
2899:
2900: if (p_log_level_rec.statement_level) then
2901: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
2902: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2903: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
2904: fa_amort_pvt.t_adjusted_cost(i));
2905: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
2899:
2900: if (p_log_level_rec.statement_level) then
2901: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
2902: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2903: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
2904: fa_amort_pvt.t_adjusted_cost(i));
2905: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
2906: fa_amort_pvt.t_rate_adjustment_factor(i));
2907: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
2901: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
2902: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
2903: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
2904: fa_amort_pvt.t_adjusted_cost(i));
2905: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
2906: fa_amort_pvt.t_rate_adjustment_factor(i));
2907: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
2908: fa_amort_pvt.t_formula_factor(i));
2909: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
2903: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
2904: fa_amort_pvt.t_adjusted_cost(i));
2905: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
2906: fa_amort_pvt.t_rate_adjustment_factor(i));
2907: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
2908: fa_amort_pvt.t_formula_factor(i));
2909: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
2910: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
2911: end if;
2905: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
2906: fa_amort_pvt.t_rate_adjustment_factor(i));
2907: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
2908: fa_amort_pvt.t_formula_factor(i));
2909: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
2910: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
2911: end if;
2912:
2913: l_adjusted_ind := 0;
2906: fa_amort_pvt.t_rate_adjustment_factor(i));
2907: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
2908: fa_amort_pvt.t_formula_factor(i));
2909: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
2910: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
2911: end if;
2912:
2913: l_adjusted_ind := 0;
2914:
2916: l_adjusted_ind := l_adjusted_ind + 1;
2917:
2918:
2919: if (p_log_level_rec.statement_level) then
2920: fa_debug_pkg.add(l_calling_fn, 't_period_counter('||to_char(j)||') ', fa_amort_pvt.t_period_counter(j));
2921: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
2922: end if;
2923:
2924: if ((fa_amort_pvt.t_reset_adjusted_cost_flag(j) = 'Y') or
2917:
2918:
2919: if (p_log_level_rec.statement_level) then
2920: fa_debug_pkg.add(l_calling_fn, 't_period_counter('||to_char(j)||') ', fa_amort_pvt.t_period_counter(j));
2921: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
2922: end if;
2923:
2924: if ((fa_amort_pvt.t_reset_adjusted_cost_flag(j) = 'Y') or
2925: (j = (fa_amort_pvt.t_period_counter.count))) or
2951: l_dpr_in.deprn_rounding_flag := 'ADJ';
2952: end if;
2953:
2954: if (p_log_level_rec.statement_level) then
2955: fa_debug_pkg.add(l_calling_fn, 'y_begin', l_dpr_in.y_begin, p_log_level_rec => p_log_level_rec);
2956: fa_debug_pkg.add(l_calling_fn, 'p_cl_begin', l_dpr_in.p_cl_begin, p_log_level_rec => p_log_level_rec);
2957: fa_debug_pkg.add(l_calling_fn, 'y_end', l_dpr_in.y_end, p_log_level_rec => p_log_level_rec);
2958: fa_debug_pkg.add(l_calling_fn, 'p_cl_end', l_dpr_in.p_cl_end, p_log_level_rec => p_log_level_rec);
2959: end if;
2952: end if;
2953:
2954: if (p_log_level_rec.statement_level) then
2955: fa_debug_pkg.add(l_calling_fn, 'y_begin', l_dpr_in.y_begin, p_log_level_rec => p_log_level_rec);
2956: fa_debug_pkg.add(l_calling_fn, 'p_cl_begin', l_dpr_in.p_cl_begin, p_log_level_rec => p_log_level_rec);
2957: fa_debug_pkg.add(l_calling_fn, 'y_end', l_dpr_in.y_end, p_log_level_rec => p_log_level_rec);
2958: fa_debug_pkg.add(l_calling_fn, 'p_cl_end', l_dpr_in.p_cl_end, p_log_level_rec => p_log_level_rec);
2959: end if;
2960:
2953:
2954: if (p_log_level_rec.statement_level) then
2955: fa_debug_pkg.add(l_calling_fn, 'y_begin', l_dpr_in.y_begin, p_log_level_rec => p_log_level_rec);
2956: fa_debug_pkg.add(l_calling_fn, 'p_cl_begin', l_dpr_in.p_cl_begin, p_log_level_rec => p_log_level_rec);
2957: fa_debug_pkg.add(l_calling_fn, 'y_end', l_dpr_in.y_end, p_log_level_rec => p_log_level_rec);
2958: fa_debug_pkg.add(l_calling_fn, 'p_cl_end', l_dpr_in.p_cl_end, p_log_level_rec => p_log_level_rec);
2959: end if;
2960:
2961:
2954: if (p_log_level_rec.statement_level) then
2955: fa_debug_pkg.add(l_calling_fn, 'y_begin', l_dpr_in.y_begin, p_log_level_rec => p_log_level_rec);
2956: fa_debug_pkg.add(l_calling_fn, 'p_cl_begin', l_dpr_in.p_cl_begin, p_log_level_rec => p_log_level_rec);
2957: fa_debug_pkg.add(l_calling_fn, 'y_end', l_dpr_in.y_end, p_log_level_rec => p_log_level_rec);
2958: fa_debug_pkg.add(l_calling_fn, 'p_cl_end', l_dpr_in.p_cl_end, p_log_level_rec => p_log_level_rec);
2959: end if;
2960:
2961:
2962: --
2968: l_dpr_out,
2969: l_running_mode,
2970: l_bs_ind, p_log_level_rec => p_log_level_rec) then
2971: if (p_log_level_rec.statement_level) then
2972: fa_debug_pkg.add(l_calling_fn, 'Error calling',
2973: 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
2974: end if;
2975:
2976: raise pro_err;
2976: raise pro_err;
2977: end if;
2978:
2979: if (p_log_level_rec.statement_level) then
2980: fa_debug_pkg.add(l_calling_fn, 'After Calling', 'faxcde', p_log_level_rec => p_log_level_rec);
2981: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.impairment_rsv', l_dpr_out.new_impairment_rsv, p_log_level_rec => p_log_level_rec);
2982: end if;
2983:
2984: if (l_asset_fin_rec_new.adjusted_cost <> 0) or
2977: end if;
2978:
2979: if (p_log_level_rec.statement_level) then
2980: fa_debug_pkg.add(l_calling_fn, 'After Calling', 'faxcde', p_log_level_rec => p_log_level_rec);
2981: fa_debug_pkg.add(l_calling_fn, 'l_dpr_out.impairment_rsv', l_dpr_out.new_impairment_rsv, p_log_level_rec => p_log_level_rec);
2982: end if;
2983:
2984: if (l_asset_fin_rec_new.adjusted_cost <> 0) or
2985: (l_dpr_out.new_adj_cost <> 0) then
3007: l_asset_deprn_rec.prior_fy_bonus_expense := l_dpr_out.new_prior_fy_bonus_exp;
3008: l_asset_deprn_rec.impairment_reserve := l_dpr_out.new_impairment_rsv;
3009:
3010: if (p_log_level_rec.statement_level) then
3011: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec.impairment_reserve', l_asset_deprn_rec.impairment_reserve, p_log_level_rec => p_log_level_rec);
3012: end if;
3013: end if;
3014:
3015: if (p_log_level_rec.statement_level) then
3012: end if;
3013: end if;
3014:
3015: if (p_log_level_rec.statement_level) then
3016: fa_debug_pkg.add(l_calling_fn, 'Finish copying to ', 'fin_rec_new', p_log_level_rec => p_log_level_rec);
3017: end if;
3018:
3019: l_eop_rec_cost := fa_amort_pvt.t_recoverable_cost(i);
3020: l_eop_sal_val := fa_amort_pvt.t_salvage_value(i);
3037: --
3038: -- Preserve rows in FA_BOOKS_SUMMARY_T table for later use
3039: --
3040: if (p_log_level_rec.statement_level) then
3041: fa_debug_pkg.add(l_calling_fn,'Inserting into FA_BOOKS_SUMMARY_T',
3042: fa_amort_pvt.t_period_counter.count, p_log_level_rec => p_log_level_rec);
3043: end if;
3044:
3045: FORALL i in 1..fa_amort_pvt.t_period_counter.count
3219: x_dpr_in := l_dpr_in;
3220:
3221: if (p_log_level_rec.statement_level) then
3222: l_dummy_bool := fa_cde_pkg.faprdos(l_dpr_out, p_log_level_rec => p_log_level_rec);
3223: fa_debug_pkg.add(l_calling_fn,'period loop', 'End', p_log_level_rec => p_log_level_rec);
3224: end if;
3225:
3226:
3227: if (p_log_level_rec.statement_level) then
3224: end if;
3225:
3226:
3227: if (p_log_level_rec.statement_level) then
3228: fa_debug_pkg.add(l_calling_fn,'END', 'END', p_log_level_rec => p_log_level_rec);
3229: end if;
3230:
3231: return true;
3232: EXCEPTION
3232: EXCEPTION
3233: WHEN pro_err THEN
3234:
3235: if (p_log_level_rec.statement_level) then
3236: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'pro_err', p_log_level_rec => p_log_level_rec);
3237: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
3238: end if;
3239:
3240: return false;
3233: WHEN pro_err THEN
3234:
3235: if (p_log_level_rec.statement_level) then
3236: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'pro_err', p_log_level_rec => p_log_level_rec);
3237: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
3238: end if;
3239:
3240: return false;
3241:
3241:
3242: WHEN OTHERS THEN
3243:
3244: if (p_log_level_rec.statement_level) then
3245: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
3246: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
3247: end if;
3248:
3249: return false;
3242: WHEN OTHERS THEN
3243:
3244: if (p_log_level_rec.statement_level) then
3245: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
3246: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
3247: end if;
3248:
3249: return false;
3250: END process_history;
3433:
3434: BEGIN
3435:
3436: if (p_log_level_rec.statement_level) then
3437: fa_debug_pkg.add(l_calling_fn,'BEGIN', to_char(p_request_id)||':'||to_char(p_worker_id));
3438: end if;
3439:
3440: OPEN c_get_assets;
3441: FETCH c_get_assets BULK COLLECT INTO t_asset_id
3444: ;
3445: CLOSE c_get_assets;
3446:
3447: if (p_log_level_rec.statement_level) then
3448: fa_debug_pkg.add(l_calling_fn,'Records returned from c_get_assets', t_asset_id.count, p_log_level_rec => p_log_level_rec);
3449: end if;
3450:
3451: FOR j in 1..t_asset_id.count LOOP
3452:
3512: CLOSE c_get_bst;
3513:
3514:
3515: if (p_log_level_rec.statement_level) then
3516: fa_debug_pkg.add(l_calling_fn,'Rec returned from c_get_bst', fa_amort_pvt.t_period_counter.count, p_log_level_rec => p_log_level_rec);
3517: end if;
3518:
3519: --
3520: -- Get reserve entry from fa_adjustments and fa_deprn_summary(b row)
3529: l_dpr_in.book := l_asset_hdr_rec.book_type_code;
3530: l_dpr_in.asset_id := l_asset_hdr_rec.asset_id;
3531:
3532: if (p_log_level_rec.statement_level) then
3533: fa_debug_pkg.add(l_calling_fn,'calling', 'FA_UTIL_PVT.get_asset_fin_rec', p_log_level_rec => p_log_level_rec);
3534: end if;
3535:
3536: -- Populate fin rec
3537: if not FA_UTIL_PVT.get_asset_fin_rec
3560: fa_amort_pvt.t_ytd_impairment(1) := fa_amort_pvt.t_ytd_impairment(1) + t_impairment_amount(j);
3561: fa_amort_pvt.t_impairment_reserve(1) := fa_amort_pvt.t_impairment_reserve(1) + t_impairment_amount(j);
3562:
3563: if (p_log_level_rec.statement_level) then
3564: fa_debug_pkg.add(l_calling_fn,'period loop', 'Begin', p_log_level_rec => p_log_level_rec);
3565: end if;
3566:
3567: --
3568: -- Calculate periodic depreciation amounts
3571:
3572: FOR i in 2..fa_amort_pvt.t_period_counter.count LOOP
3573:
3574: if (p_log_level_rec.statement_level) then
3575: fa_debug_pkg.add(l_calling_fn, 't_period_counter', fa_amort_pvt.t_period_counter(i));
3576: fa_debug_pkg.add(l_calling_fn, 'imp period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
3577: end if;
3578:
3579: l_trans_rec.transaction_key := 'IM';
3572: FOR i in 2..fa_amort_pvt.t_period_counter.count LOOP
3573:
3574: if (p_log_level_rec.statement_level) then
3575: fa_debug_pkg.add(l_calling_fn, 't_period_counter', fa_amort_pvt.t_period_counter(i));
3576: fa_debug_pkg.add(l_calling_fn, 'imp period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
3577: end if;
3578:
3579: l_trans_rec.transaction_key := 'IM';
3580:
3619:
3620: end if;
3621:
3622: if (p_log_level_rec.statement_level) then
3623: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_deprn_reserve', fa_amort_pvt.t_deprn_reserve(i));
3624: end if;
3625:
3626:
3627: --
3649: l_asset_fin_rec_new.adjusted_cost := fa_amort_pvt.t_adjusted_cost(i);
3650: l_asset_fin_rec_new.eofy_reserve := fa_amort_pvt.t_eofy_reserve(i);
3651:
3652: if (p_log_level_rec.statement_level) then
3653: fa_debug_pkg.add(l_calling_fn, 'Start populating', 'l_dpr_in', p_log_level_rec => p_log_level_rec);
3654: end if;
3655:
3656: l_dpr_in.adj_cost := fa_amort_pvt.t_recoverable_cost(i);
3657: l_dpr_in.salvage_value := fa_amort_pvt.t_salvage_value(i);
3681: l_dpr_in.deprn_start_jdate := to_number(to_char(l_asset_fin_rec_old.deprn_start_date, 'J'));
3682: l_dpr_in.prorate_jdate := to_number(to_char(l_asset_fin_rec_old.prorate_date, 'J'));
3683:
3684: if (p_log_level_rec.statement_level) then
3685: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
3686: end if;
3687:
3688: if (not fa_cache_pkg.fazccmt(
3689: fa_amort_pvt.t_deprn_method_code(i),
3689: fa_amort_pvt.t_deprn_method_code(i),
3690: fa_amort_pvt.t_life_in_months(i),
3691: p_log_level_rec)) then
3692: if (p_log_level_rec.statement_level) then
3693: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
3694: end if;
3695:
3696: raise calc_err;
3697: end if;
3696: raise calc_err;
3697: end if;
3698:
3699: if (p_log_level_rec.statement_level) then
3700: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
3701: end if;
3702:
3703: -- bug5894464: removed if (i = 1) condition
3704: if not fa_cache_pkg.fazccp(fa_cache_pkg.fazcbc_record.prorate_calendar,
3707: g_temp_number,
3708: l_dpr_in.y_begin,
3709: g_temp_integer, p_log_level_rec => p_log_level_rec) then
3710: if (p_log_level_rec.statement_level) then
3711: fa_debug_pkg.add(l_calling_fn, 'Error calling',
3712: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
3713: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
3714: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
3715: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
3709: g_temp_integer, p_log_level_rec => p_log_level_rec) then
3710: if (p_log_level_rec.statement_level) then
3711: fa_debug_pkg.add(l_calling_fn, 'Error calling',
3712: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
3713: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
3714: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
3715: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
3716: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
3717: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
3711: fa_debug_pkg.add(l_calling_fn, 'Error calling',
3712: 'fa_cache_pkg.fazccp', p_log_level_rec => p_log_level_rec);
3713: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
3714: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
3715: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
3716: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
3717: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
3718: l_dpr_in.prorate_jdate, p_log_level_rec => p_log_level_rec);
3719:
3713: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.prorate_calendar',
3714: fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
3715: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcbc_record.fiscal_year_name',
3716: fa_cache_pkg.fazcbc_record.fiscal_year_name, p_log_level_rec => p_log_level_rec);
3717: fa_debug_pkg.add(l_calling_fn, 'l_dpr_in.prorate_jdate',
3718: l_dpr_in.prorate_jdate, p_log_level_rec => p_log_level_rec);
3719:
3720: end if;
3721:
3724: -- bug5894464
3725:
3726:
3727: if (p_log_level_rec.statement_level) then
3728: fa_debug_pkg.add(l_calling_fn, 'Before Calling', 'faxcde for hype reserve', p_log_level_rec => p_log_level_rec);
3729: end if;
3730:
3731: -- Skip faxcde call to find hyp rsv if method type is not (FLAT or PROD) and basis is COST
3732: if (((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') not in(fa_std_types.FAD_RSR_FLAT,
3750: l_dpr_arr,
3751: l_dpr_out,
3752: l_running_mode, p_log_level_rec => p_log_level_rec) then
3753: if (p_log_level_rec.statement_level) then
3754: fa_debug_pkg.add(l_calling_fn, 'Error calling',
3755: 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
3756: end if;
3757:
3758: raise calc_err;
3759: end if;
3760: end if; -- (((nvl(fa_cache_pkg.fazccmt_record.rate_source_rule, ' ') not in(fa_std_types.FAD_RSR_FLAT,
3761:
3762: if (p_log_level_rec.statement_level) then
3763: fa_debug_pkg.add(l_calling_fn, 'setting', 'deprn_rec for basis rule', p_log_level_rec => p_log_level_rec);
3764: end if;
3765:
3766: l_asset_deprn_rec.set_of_books_id := l_asset_hdr_rec.set_of_books_id;
3767: l_asset_deprn_rec.deprn_amount := fa_amort_pvt.t_deprn_amount(i);
3799: l_period_rec.period_num := fa_amort_pvt.t_period_num(i);
3800: l_period_rec.fiscal_year := fa_amort_pvt.t_fiscal_year(i);
3801:
3802: if (p_log_level_rec.statement_level) then
3803: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3804: end if;
3805:
3806: if (p_log_level_rec.statement_level) then
3807: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
3803: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3804: end if;
3805:
3806: if (p_log_level_rec.statement_level) then
3807: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
3808: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
3809: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
3810: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
3811: end if;
3804: end if;
3805:
3806: if (p_log_level_rec.statement_level) then
3807: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
3808: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
3809: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
3810: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
3811: end if;
3812:
3805:
3806: if (p_log_level_rec.statement_level) then
3807: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
3808: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
3809: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
3810: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
3811: end if;
3812:
3813: if (i > 1) and (fa_amort_pvt.t_impairment_amount(i-1) <> 0) and
3806: if (p_log_level_rec.statement_level) then
3807: fa_debug_pkg.add(l_calling_fn, 'fa_amort_pvt.t_impairment_amount(i)', fa_amort_pvt.t_impairment_amount(i));
3808: fa_debug_pkg.add(l_calling_fn, 'rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
3809: fa_debug_pkg.add(l_calling_fn, 'deprn_basis_rule', fa_cache_pkg.fazccmt_record.deprn_basis_rule, p_log_level_rec => p_log_level_rec);
3810: fa_debug_pkg.add(l_calling_fn, 'use_rsv_after_imp_flag', fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, p_log_level_rec => p_log_level_rec);
3811: end if;
3812:
3813: if (i > 1) and (fa_amort_pvt.t_impairment_amount(i-1) <> 0) and
3814: (fa_cache_pkg.fazcdbr_record.rule_name = 'FLAT RATE EXTENSION') and
3853: px_new_raf => fa_amort_pvt.t_rate_adjustment_factor(i),
3854: px_new_formula_factor => fa_amort_pvt.t_formula_factor(i),
3855: p_log_level_rec => p_log_level_rec)) then
3856: if (p_log_level_rec.statement_level) then
3857: fa_debug_pkg.add(l_calling_fn, 'Error calling',
3858: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3859: end if;
3860:
3861: raise calc_err;
3861: raise calc_err;
3862: end if;
3863:
3864: if (p_log_level_rec.statement_level) then
3865: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
3866: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3867: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
3868: fa_amort_pvt.t_adjusted_cost(i));
3869: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
3863:
3864: if (p_log_level_rec.statement_level) then
3865: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
3866: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3867: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
3868: fa_amort_pvt.t_adjusted_cost(i));
3869: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
3870: fa_amort_pvt.t_rate_adjustment_factor(i));
3871: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
3865: fa_debug_pkg.add(l_calling_fn, 'Returned values from ',
3866: 'FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS', p_log_level_rec => p_log_level_rec);
3867: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
3868: fa_amort_pvt.t_adjusted_cost(i));
3869: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
3870: fa_amort_pvt.t_rate_adjustment_factor(i));
3871: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
3872: fa_amort_pvt.t_formula_factor(i));
3873: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
3867: fa_debug_pkg.add(l_calling_fn, 'adjusted_cost',
3868: fa_amort_pvt.t_adjusted_cost(i));
3869: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
3870: fa_amort_pvt.t_rate_adjustment_factor(i));
3871: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
3872: fa_amort_pvt.t_formula_factor(i));
3873: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
3874: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
3875: end if;
3869: fa_debug_pkg.add(l_calling_fn, 'rate_adjustment_factor',
3870: fa_amort_pvt.t_rate_adjustment_factor(i));
3871: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
3872: fa_amort_pvt.t_formula_factor(i));
3873: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
3874: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
3875: end if;
3876:
3877: l_adjusted_ind := 0;
3870: fa_amort_pvt.t_rate_adjustment_factor(i));
3871: fa_debug_pkg.add(l_calling_fn, 'formula_factor',
3872: fa_amort_pvt.t_formula_factor(i));
3873: fa_debug_pkg.add(l_calling_fn, '====== ', '==============================', p_log_level_rec => p_log_level_rec);
3874: fa_debug_pkg.add(l_calling_fn, 'Calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
3875: end if;
3876:
3877: l_adjusted_ind := 0;
3878:
3885: FOR j in (i + 1)..(fa_amort_pvt.t_period_counter.count) LOOP
3886: l_adjusted_ind := l_adjusted_ind + 1;
3887:
3888: if (p_log_level_rec.statement_level) then
3889: fa_debug_pkg.add(l_calling_fn, 't_reset_adjusted_cost_flag('||to_char(j)||')',
3890: fa_amort_pvt.t_reset_adjusted_cost_flag(j));
3891: fa_debug_pkg.add(l_calling_fn, 't_period_counter('||to_char(j)||')',
3892: fa_amort_pvt.t_period_counter(j));
3893: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
3887:
3888: if (p_log_level_rec.statement_level) then
3889: fa_debug_pkg.add(l_calling_fn, 't_reset_adjusted_cost_flag('||to_char(j)||')',
3890: fa_amort_pvt.t_reset_adjusted_cost_flag(j));
3891: fa_debug_pkg.add(l_calling_fn, 't_period_counter('||to_char(j)||')',
3892: fa_amort_pvt.t_period_counter(j));
3893: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
3894: end if;
3895:
3889: fa_debug_pkg.add(l_calling_fn, 't_reset_adjusted_cost_flag('||to_char(j)||')',
3890: fa_amort_pvt.t_reset_adjusted_cost_flag(j));
3891: fa_debug_pkg.add(l_calling_fn, 't_period_counter('||to_char(j)||')',
3892: fa_amort_pvt.t_period_counter(j));
3893: fa_debug_pkg.add(l_calling_fn, 'p_imp_period_rec.period_counter', p_imp_period_rec.period_counter, p_log_level_rec => p_log_level_rec);
3894: end if;
3895:
3896: if ((fa_amort_pvt.t_reset_adjusted_cost_flag(j) = 'Y') or
3897: (j = (fa_amort_pvt.t_period_counter.count))) then
3927: l_dpr_out,
3928: l_running_mode,
3929: l_bs_ind, p_log_level_rec => p_log_level_rec) then
3930: if (p_log_level_rec.statement_level) then
3931: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'FA_CDE_PKG.faxcde', p_log_level_rec => p_log_level_rec);
3932: end if;
3933:
3934: raise calc_err;
3935: end if;
3934: raise calc_err;
3935: end if;
3936:
3937: if (p_log_level_rec.statement_level) then
3938: fa_debug_pkg.add(l_calling_fn, 'After Calling', 'faxcde', p_log_level_rec => p_log_level_rec);
3939: end if;
3940:
3941: if (l_asset_fin_rec_new.adjusted_cost <> 0) or
3942: (l_dpr_out.new_adj_cost <> 0) then
3955:
3956: end if;
3957:
3958: if (p_log_level_rec.statement_level) then
3959: fa_debug_pkg.add(l_calling_fn, 'Finish copying to ', 'fin_rec_new', p_log_level_rec => p_log_level_rec);
3960: end if;
3961:
3962: l_eop_rec_cost := fa_amort_pvt.t_recoverable_cost(i);
3963: l_eop_sal_val := fa_amort_pvt.t_salvage_value(i);
4005: l_dpr_row.dist_id := 0;
4006: l_dpr_row.mrc_sob_type_code := p_mrc_sob_type_code;
4007:
4008: if (p_log_level_rec.statement_level) then
4009: fa_debug_pkg.add(l_calling_fn, 'Calling', 'query_balances_int', p_log_level_rec => p_log_level_rec);
4010: end if;
4011:
4012: fa_query_balances_pkg.query_balances_int(
4013: X_DPR_ROW => l_dpr_row,
4019:
4020: if (NOT l_status) then
4021:
4022: if (p_log_level_rec.statement_level) then
4023: fa_debug_pkg.add(l_calling_fn, 'ERROR',
4024: 'Calling fa_query_balances_pkg.query_balances_int', p_log_level_rec => p_log_level_rec);
4025: end if;
4026:
4027: raise calc_err;
4040: t_raf(j) := fa_amort_pvt.t_rate_adjustment_factor(fa_amort_pvt.t_period_counter.count);
4041: t_formula_factor(j) := fa_amort_pvt.t_formula_factor(fa_amort_pvt.t_period_counter.count);
4042: t_eofy_reserve(j) := fa_amort_pvt.t_eofy_reserve(fa_amort_pvt.t_period_counter.count);
4043: if (p_log_level_rec.statement_level) then
4044: fa_debug_pkg.add(l_calling_fn, 'current reserve', l_dpr_row.deprn_rsv, p_log_level_rec => p_log_level_rec);
4045: fa_debug_pkg.add(l_calling_fn, 'catchup', t_catchup(j));
4046: end if;
4047:
4048: END LOOP; -- j in 1..t_asset_id.count
4041: t_formula_factor(j) := fa_amort_pvt.t_formula_factor(fa_amort_pvt.t_period_counter.count);
4042: t_eofy_reserve(j) := fa_amort_pvt.t_eofy_reserve(fa_amort_pvt.t_period_counter.count);
4043: if (p_log_level_rec.statement_level) then
4044: fa_debug_pkg.add(l_calling_fn, 'current reserve', l_dpr_row.deprn_rsv, p_log_level_rec => p_log_level_rec);
4045: fa_debug_pkg.add(l_calling_fn, 'catchup', t_catchup(j));
4046: end if;
4047:
4048: END LOOP; -- j in 1..t_asset_id.count
4049:
4060: WHERE ROWID = t_rowid(k);
4061:
4062: if (p_log_level_rec.statement_level) then
4063: l_dummy_bool := fa_cde_pkg.faprdos(l_dpr_out, p_log_level_rec => p_log_level_rec);
4064: fa_debug_pkg.add(l_calling_fn,'period loop', 'End', p_log_level_rec => p_log_level_rec);
4065: end if;
4066:
4067:
4068: if (p_log_level_rec.statement_level) then
4065: end if;
4066:
4067:
4068: if (p_log_level_rec.statement_level) then
4069: fa_debug_pkg.add(l_calling_fn,'END', 'END', p_log_level_rec => p_log_level_rec);
4070: end if;
4071:
4072: return true;
4073: EXCEPTION
4073: EXCEPTION
4074: WHEN calc_err THEN
4075:
4076: if (p_log_level_rec.statement_level) then
4077: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'pro_err', p_log_level_rec => p_log_level_rec);
4078: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
4079: end if;
4080:
4081: return false;
4074: WHEN calc_err THEN
4075:
4076: if (p_log_level_rec.statement_level) then
4077: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'pro_err', p_log_level_rec => p_log_level_rec);
4078: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
4079: end if;
4080:
4081: return false;
4082:
4082:
4083: WHEN OTHERS THEN
4084:
4085: if (p_log_level_rec.statement_level) then
4086: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
4087: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
4088: end if;
4089:
4090: return false;
4083: WHEN OTHERS THEN
4084:
4085: if (p_log_level_rec.statement_level) then
4086: fa_debug_pkg.add(l_calling_fn,'EXCEPTION', 'OTHERS', p_log_level_rec => p_log_level_rec);
4087: fa_debug_pkg.add(l_calling_fn,'sqlerrm', substrb(sqlerrm, 1, 200));
4088: end if;
4089:
4090: return false;
4091: END calculate_catchup;