228: l_calling_fn varchar2(80) := 'fa_gainloss_ret_pkg.faggrv';
229:
230: BEGIN <
231:
232: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'IN FAGGRV', '', p_log_level_rec); end if;
233:
234: if p_log_level_rec.statement_level then
235: fa_debug_pkg.add
236: (fname => l_calling_fn,
231:
232: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'IN FAGGRV', '', p_log_level_rec); end if;
233:
234: if p_log_level_rec.statement_level then
235: fa_debug_pkg.add
236: (fname => l_calling_fn,
237: element => 'Getting depreciation reserve adjustments',
238: value => ''
239: ,p_log_level_rec => p_log_level_rec);
474: return false;
475: end if;
476: end if;
477:
478: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret1 ', '', p_log_level_rec); end if;
479:
480: if not faggrv(ret.asset_id, ret.book, cpd_ctr, deprn_reserve,
481: reval_reserve, prior_fy_exp, ytd_deprn,
482: bonus_deprn_reserve, bonus_ytd_deprn,
498: return(FALSE);
499:
500: end if;
501:
502: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret2', '', p_log_level_rec); end if;
503:
504: dpr.deprn_rsv := deprn_reserve;
505: dpr.reval_rsv := reval_reserve;
506: dpr.prior_fy_exp := prior_fy_exp;
564: return(FALSE);
565:
566: end if;
567:
568: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret3', '', p_log_level_rec); end if;
569:
570: /* If it's capitalize and also depreciate, we will calculate
571: depreciation; otherwise, we will skip it
572: */
598: -- Bug#4867806: if (periods_catchup > 0) and (not bk.fully_reserved) then
599: -- bk.depr_first_year_ret=> 0:1=No:Yes; Need to back out expense when bk.depr_first_year_ret=0 (No)
600: if (periods_catchup > 0 or bk.depr_first_year_ret = 0) and (not bk.fully_reserved) then
601:
602: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret3.1', '', p_log_level_rec); end if;
603:
604: -- bug 6259953 (Added logic to correctly set end_pd and dpr.y_end if retirement
605: -- prorate date falls in subsequent periods/years)
606: if (periods_catchup > 0) then
627: end_pd := h_end_pd;
628: dpr.y_end := h_fiscal_year;
629:
630: if g_print_debug then
631: fa_debug_pkg.add(l_calling_fn, 'End period', end_pd);
632: fa_debug_pkg.add(l_calling_fn, 'End fiscal year', dpr.y_end);
633: end if;
634:
635:
628: dpr.y_end := h_fiscal_year;
629:
630: if g_print_debug then
631: fa_debug_pkg.add(l_calling_fn, 'End period', end_pd);
632: fa_debug_pkg.add(l_calling_fn, 'End fiscal year', dpr.y_end);
633: end if;
634:
635:
636: end if;
659: return(FALSE);
660:
661: end if;
662:
663: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret3.2', '', p_log_level_rec); end if;
664:
665: -- Bug4343087:
666: -- In order to find correct catchup amount without rounding
667: -- error we need to find expense before retirement(before) and
668: -- after retirement(after) and then subtract after amount from before.
669: -- Following portion of code finds after amounts and then subtract
670: -- before amount that is found in previous fagcdp call.
671: if p_log_level_rec.statement_level then
672: fa_debug_pkg.add (l_calling_fn, 'before deprn_amt', deprn_amt
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add (l_calling_fn, 'before bonus_deprn_amt', bonus_deprn_amt
675: ,p_log_level_rec => p_log_level_rec);
676: fa_debug_pkg.add (l_calling_fn, 'before reval_deprn_amt', reval_deprn_amt
670: -- before amount that is found in previous fagcdp call.
671: if p_log_level_rec.statement_level then
672: fa_debug_pkg.add (l_calling_fn, 'before deprn_amt', deprn_amt
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add (l_calling_fn, 'before bonus_deprn_amt', bonus_deprn_amt
675: ,p_log_level_rec => p_log_level_rec);
676: fa_debug_pkg.add (l_calling_fn, 'before reval_deprn_amt', reval_deprn_amt
677: ,p_log_level_rec => p_log_level_rec);
678: fa_debug_pkg.add (l_calling_fn, 'before reval_amort', reval_amort
672: fa_debug_pkg.add (l_calling_fn, 'before deprn_amt', deprn_amt
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add (l_calling_fn, 'before bonus_deprn_amt', bonus_deprn_amt
675: ,p_log_level_rec => p_log_level_rec);
676: fa_debug_pkg.add (l_calling_fn, 'before reval_deprn_amt', reval_deprn_amt
677: ,p_log_level_rec => p_log_level_rec);
678: fa_debug_pkg.add (l_calling_fn, 'before reval_amort', reval_amort
679: ,p_log_level_rec => p_log_level_rec);
680: end if;
674: fa_debug_pkg.add (l_calling_fn, 'before bonus_deprn_amt', bonus_deprn_amt
675: ,p_log_level_rec => p_log_level_rec);
676: fa_debug_pkg.add (l_calling_fn, 'before reval_deprn_amt', reval_deprn_amt
677: ,p_log_level_rec => p_log_level_rec);
678: fa_debug_pkg.add (l_calling_fn, 'before reval_amort', reval_amort
679: ,p_log_level_rec => p_log_level_rec);
680: end if;
681:
682: -- Store before amount
715: dpr.deprn_rsv := deprn_reserve - dpr.deprn_rsv;
716: -- end fix for 4639408
717:
718: if p_log_level_rec.statement_level then
719: fa_debug_pkg.add (l_calling_fn, 'calling function', 'FA_GAINLOSS_DPR_PKG.fagcdp'
720: ,p_log_level_rec => p_log_level_rec);
721: end if;
722:
723: -- Find new expense using after amounts
730: bk.deprn_start_jdate
731: ,p_log_level_rec => p_log_level_rec) then
732:
733: if p_log_level_rec.statement_level then
734: fa_debug_pkg.add (l_calling_fn, 'calling FA_GAINLOSS_DPR_PKG.fagcdp', 'FAILED'
735: ,p_log_level_rec => p_log_level_rec);
736: end if;
737:
738: fa_srvr_msg.add_message(
750:
751: end if;
752:
753: if p_log_level_rec.statement_level then
754: fa_debug_pkg.add (l_calling_fn, 'after deprn_amt', deprn_amt
755: ,p_log_level_rec => p_log_level_rec);
756: fa_debug_pkg.add (l_calling_fn, 'after bonus_deprn_amt', bonus_deprn_amt
757: ,p_log_level_rec => p_log_level_rec);
758: fa_debug_pkg.add (l_calling_fn, 'after reval_deprn_amt', reval_deprn_amt
752:
753: if p_log_level_rec.statement_level then
754: fa_debug_pkg.add (l_calling_fn, 'after deprn_amt', deprn_amt
755: ,p_log_level_rec => p_log_level_rec);
756: fa_debug_pkg.add (l_calling_fn, 'after bonus_deprn_amt', bonus_deprn_amt
757: ,p_log_level_rec => p_log_level_rec);
758: fa_debug_pkg.add (l_calling_fn, 'after reval_deprn_amt', reval_deprn_amt
759: ,p_log_level_rec => p_log_level_rec);
760: fa_debug_pkg.add (l_calling_fn, 'after reval_amort', reval_amort
754: fa_debug_pkg.add (l_calling_fn, 'after deprn_amt', deprn_amt
755: ,p_log_level_rec => p_log_level_rec);
756: fa_debug_pkg.add (l_calling_fn, 'after bonus_deprn_amt', bonus_deprn_amt
757: ,p_log_level_rec => p_log_level_rec);
758: fa_debug_pkg.add (l_calling_fn, 'after reval_deprn_amt', reval_deprn_amt
759: ,p_log_level_rec => p_log_level_rec);
760: fa_debug_pkg.add (l_calling_fn, 'after reval_amort', reval_amort
761: ,p_log_level_rec => p_log_level_rec);
762: end if;
756: fa_debug_pkg.add (l_calling_fn, 'after bonus_deprn_amt', bonus_deprn_amt
757: ,p_log_level_rec => p_log_level_rec);
758: fa_debug_pkg.add (l_calling_fn, 'after reval_deprn_amt', reval_deprn_amt
759: ,p_log_level_rec => p_log_level_rec);
760: fa_debug_pkg.add (l_calling_fn, 'after reval_amort', reval_amort
761: ,p_log_level_rec => p_log_level_rec);
762: end if;
763:
764: -- Find catchup amount by subtracting before from after amounts.
767: reval_deprn_amt := l_temp_reval_deprn_amt - reval_deprn_amt;
768: reval_amort := l_temp_reval_amort - reval_amort;
769:
770: if p_log_level_rec.statement_level then
771: fa_debug_pkg.add (l_calling_fn, 'final deprn_amt', deprn_amt
772: ,p_log_level_rec => p_log_level_rec);
773: fa_debug_pkg.add (l_calling_fn, 'final bonus_deprn_amt', bonus_deprn_amt
774: ,p_log_level_rec => p_log_level_rec);
775: fa_debug_pkg.add (l_calling_fn, 'final reval_deprn_amt', reval_deprn_amt
769:
770: if p_log_level_rec.statement_level then
771: fa_debug_pkg.add (l_calling_fn, 'final deprn_amt', deprn_amt
772: ,p_log_level_rec => p_log_level_rec);
773: fa_debug_pkg.add (l_calling_fn, 'final bonus_deprn_amt', bonus_deprn_amt
774: ,p_log_level_rec => p_log_level_rec);
775: fa_debug_pkg.add (l_calling_fn, 'final reval_deprn_amt', reval_deprn_amt
776: ,p_log_level_rec => p_log_level_rec);
777: fa_debug_pkg.add (l_calling_fn, 'final reval_amort', reval_amort
771: fa_debug_pkg.add (l_calling_fn, 'final deprn_amt', deprn_amt
772: ,p_log_level_rec => p_log_level_rec);
773: fa_debug_pkg.add (l_calling_fn, 'final bonus_deprn_amt', bonus_deprn_amt
774: ,p_log_level_rec => p_log_level_rec);
775: fa_debug_pkg.add (l_calling_fn, 'final reval_deprn_amt', reval_deprn_amt
776: ,p_log_level_rec => p_log_level_rec);
777: fa_debug_pkg.add (l_calling_fn, 'final reval_amort', reval_amort
778: ,p_log_level_rec => p_log_level_rec);
779: end if;
773: fa_debug_pkg.add (l_calling_fn, 'final bonus_deprn_amt', bonus_deprn_amt
774: ,p_log_level_rec => p_log_level_rec);
775: fa_debug_pkg.add (l_calling_fn, 'final reval_deprn_amt', reval_deprn_amt
776: ,p_log_level_rec => p_log_level_rec);
777: fa_debug_pkg.add (l_calling_fn, 'final reval_amort', reval_amort
778: ,p_log_level_rec => p_log_level_rec);
779: end if;
780:
781: -- Bug fix 6113545 (Commenting the below four lines)
812: end if;
813:
814: end if;
815:
816: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret3.3', '', p_log_level_rec); end if;
817:
818: if not FA_GAINLOSS_UPD_PKG.fagpdp(ret, bk, dpr, today,
819: periods_catchup, cpd_ctr,
820: cpdnum, cost_frac, deprn_amt,
839: return(FALSE);
840:
841: end if;
842:
843: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret3.4', '', p_log_level_rec); end if;
844:
845: end if; -- end of - if bk.capitalize
846:
847: if (ret.wip_asset is NULL or ret.wip_asset <= 0) then
912: retpdnum := 0; /* Special value assigned */
913:
914: end if;
915:
916: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret6', '', p_log_level_rec); end if;
917:
918: if not FA_GAINLOSS_UPD_PKG.fagurt(ret, bk, cpd_ctr, dpr,
919: cost_frac, retpdnum,
920: today, user_id
936: return(FALSE);
937:
938: end if; -- end of - if not rupd.fagurt
939:
940: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagret999', '', p_log_level_rec); end if;
941:
942: if (bk.group_asset_id is not null) then
943: -- +++++ Process Group Asse +++++
944: if not FA_RETIREMENT_PVT.Do_Retirement_in_CGL(