124: adj.account_type := 'DEPRN_EXPENSE_ACCT';
125: adj.account := account;
126:
127: if (p_log_level_rec.statement_level) then
128: fa_debug_pkg.add(l_calling_fn,'adjustment_amount', adj.adjustment_amount
129: ,p_log_level_rec => p_log_level_rec);
130: fa_debug_pkg.add(l_calling_fn,'annualized', adj.annualized_adjustment
131: ,p_log_level_rec => p_log_level_rec);
132: end if;
126:
127: if (p_log_level_rec.statement_level) then
128: fa_debug_pkg.add(l_calling_fn,'adjustment_amount', adj.adjustment_amount
129: ,p_log_level_rec => p_log_level_rec);
130: fa_debug_pkg.add(l_calling_fn,'annualized', adj.annualized_adjustment
131: ,p_log_level_rec => p_log_level_rec);
132: end if;
133:
134: if (NOT FA_INS_ADJUST_PKG.faxinaj(adj,
139: raise error_found;
140: end if;
141:
142: if (p_log_level_rec.statement_level) then
143: fa_debug_pkg.add(l_calling_fn,'after faxinaj',1
144: ,p_log_level_rec => p_log_level_rec);
145: end if;
146:
147: end if;
146:
147: end if;
148:
149: if (p_log_level_rec.statement_level) then
150: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_deprn_exp', adj_amts.reval_deprn_exp
151: ,p_log_level_rec => p_log_level_rec);
152: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_amo ', adj_amts.reval_amo
153: ,p_log_level_rec => p_log_level_rec);
154: fa_debug_pkg.add(l_calling_fn, 'adj_amts.deprn_rsv', adj_amts.deprn_rsv
148:
149: if (p_log_level_rec.statement_level) then
150: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_deprn_exp', adj_amts.reval_deprn_exp
151: ,p_log_level_rec => p_log_level_rec);
152: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_amo ', adj_amts.reval_amo
153: ,p_log_level_rec => p_log_level_rec);
154: fa_debug_pkg.add(l_calling_fn, 'adj_amts.deprn_rsv', adj_amts.deprn_rsv
155: ,p_log_level_rec => p_log_level_rec);
156: end if;
150: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_deprn_exp', adj_amts.reval_deprn_exp
151: ,p_log_level_rec => p_log_level_rec);
152: fa_debug_pkg.add(l_calling_fn, 'adj_amts.reval_amo ', adj_amts.reval_amo
153: ,p_log_level_rec => p_log_level_rec);
154: fa_debug_pkg.add(l_calling_fn, 'adj_amts.deprn_rsv', adj_amts.deprn_rsv
155: ,p_log_level_rec => p_log_level_rec);
156: end if;
157:
158:
360: end if;
361: */
362:
363: if p_log_level_rec.statement_level then
364: fa_debug_pkg.add(l_calling_fn,'END',1
365: ,p_log_level_rec => p_log_level_rec);
366: end if;
367:
368: return (TRUE);
516:
517: begin <
518:
519: if (p_log_level_rec.statement_level) then
520: fa_debug_pkg.add('FAXRDA','dist_id',p_asset_dist_rec.distribution_id
521: ,p_log_level_rec => p_log_level_rec);
522: fa_debug_pkg.add(l_calling_fn, 'from_per_ctr', from_per_ctr
523: ,p_log_level_rec => p_log_level_rec);
524: fa_debug_pkg.add(l_calling_fn, 'cur_per_ctr', cur_per_ctr
518:
519: if (p_log_level_rec.statement_level) then
520: fa_debug_pkg.add('FAXRDA','dist_id',p_asset_dist_rec.distribution_id
521: ,p_log_level_rec => p_log_level_rec);
522: fa_debug_pkg.add(l_calling_fn, 'from_per_ctr', from_per_ctr
523: ,p_log_level_rec => p_log_level_rec);
524: fa_debug_pkg.add(l_calling_fn, 'cur_per_ctr', cur_per_ctr
525: ,p_log_level_rec => p_log_level_rec);
526: end if;
520: fa_debug_pkg.add('FAXRDA','dist_id',p_asset_dist_rec.distribution_id
521: ,p_log_level_rec => p_log_level_rec);
522: fa_debug_pkg.add(l_calling_fn, 'from_per_ctr', from_per_ctr
523: ,p_log_level_rec => p_log_level_rec);
524: fa_debug_pkg.add(l_calling_fn, 'cur_per_ctr', cur_per_ctr
525: ,p_log_level_rec => p_log_level_rec);
526: end if;
527:
528: deprn_calendar:=fa_cache_pkg.fazcbc_record.DEPRN_CALENDAR;
666:
667:
668:
669: if p_log_level_rec.statement_level then
670: fa_debug_pkg.add(l_calling_fn,'dd_deprn_exp to reverse', dd_deprn_exp
671: ,p_log_level_rec => p_log_level_rec);
672: fa_debug_pkg.add(l_calling_fn,'dd_reval_deprn_exp to reverse', dd_reval_deprn_exp
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add(l_calling_fn,'dd_reval_amo to reverse ', dd_reval_amo
668:
669: if p_log_level_rec.statement_level then
670: fa_debug_pkg.add(l_calling_fn,'dd_deprn_exp to reverse', dd_deprn_exp
671: ,p_log_level_rec => p_log_level_rec);
672: fa_debug_pkg.add(l_calling_fn,'dd_reval_deprn_exp to reverse', dd_reval_deprn_exp
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add(l_calling_fn,'dd_reval_amo to reverse ', dd_reval_amo
675: ,p_log_level_rec => p_log_level_rec);
676: end if;
670: fa_debug_pkg.add(l_calling_fn,'dd_deprn_exp to reverse', dd_deprn_exp
671: ,p_log_level_rec => p_log_level_rec);
672: fa_debug_pkg.add(l_calling_fn,'dd_reval_deprn_exp to reverse', dd_reval_deprn_exp
673: ,p_log_level_rec => p_log_level_rec);
674: fa_debug_pkg.add(l_calling_fn,'dd_reval_amo to reverse ', dd_reval_amo
675: ,p_log_level_rec => p_log_level_rec);
676: end if;
677:
678:
687:
688: fnd_profile.get ('GL_SET_OF_BKS_ID',l_set_of_books_id);
689: l_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
690:
691: fa_debug_pkg.add(l_calling_fn,'opening', 'aj cursor'
692: ,p_log_level_rec => p_log_level_rec);
693: fa_debug_pkg.add(l_calling_fn,'gl sob profile', l_set_of_books_id
694: ,p_log_level_rec => p_log_level_rec);
695: fa_debug_pkg.add(l_calling_fn,'client info', l_currency_context
689: l_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
690:
691: fa_debug_pkg.add(l_calling_fn,'opening', 'aj cursor'
692: ,p_log_level_rec => p_log_level_rec);
693: fa_debug_pkg.add(l_calling_fn,'gl sob profile', l_set_of_books_id
694: ,p_log_level_rec => p_log_level_rec);
695: fa_debug_pkg.add(l_calling_fn,'client info', l_currency_context
696: ,p_log_level_rec => p_log_level_rec);
697: end if;
691: fa_debug_pkg.add(l_calling_fn,'opening', 'aj cursor'
692: ,p_log_level_rec => p_log_level_rec);
693: fa_debug_pkg.add(l_calling_fn,'gl sob profile', l_set_of_books_id
694: ,p_log_level_rec => p_log_level_rec);
695: fa_debug_pkg.add(l_calling_fn,'client info', l_currency_context
696: ,p_log_level_rec => p_log_level_rec);
697: end if;
698:
699: if (mrc_sob_type_code = 'R') then
704:
705: LOOP
706:
707: if p_log_level_rec.statement_level then
708: fa_debug_pkg.add(l_calling_fn,'fetching', 'aj cursor'
709: ,p_log_level_rec => p_log_level_rec);
710: end if;
711:
712: if (mrc_sob_type_code = 'R') then
727:
728: frac_to_backout := 0;
729:
730: if p_log_level_rec.statement_level then
731: fa_debug_pkg.add(l_calling_fn,'starting', 'fy calc'
732: ,p_log_level_rec => p_log_level_rec);
733: end if;
734:
735: for i in mod(from_per_ctr-1,fy)..mod(aj_per_ctr_created-1,fy)-1 loop
736: frac_to_backout := frac_to_backout + period_fracs(i).frac;
737: end loop;
738:
739: if p_log_level_rec.statement_level then
740: fa_debug_pkg.add(l_calling_fn,'calcing', 'adj_to_retain1'
741: ,p_log_level_rec => p_log_level_rec);
742: end if;
743:
744: adj_to_retain := aj_adj_dr - frac_to_backout * aj_ann_adj_dr;
746: b := FA_UTILS_PKG.faxrnd ( adj_to_retain, p_asset_hdr_rec.book_type_code
747: ,p_log_level_rec => p_log_level_rec);
748:
749: if p_log_level_rec.statement_level then
750: fa_debug_pkg.add(l_calling_fn,'calcing', 'adj_to_retain2'
751: ,p_log_level_rec => p_log_level_rec);
752: end if;
753:
754: if (adj_to_retain*aj_adj_dr < 0) or
757: adj_to_retain := 0;
758: end if;
759:
760: if p_log_level_rec.statement_level then
761: fa_debug_pkg.add(l_calling_fn,'entering', 'main branching'
762: ,p_log_level_rec => p_log_level_rec);
763: end if;
764:
765: if aj_adj_type = 0 then
787:
788: end loop;
789:
790: if p_log_level_rec.statement_level then
791: fa_debug_pkg.add(l_calling_fn,'closing', 'aj cursor'
792: ,p_log_level_rec => p_log_level_rec);
793: end if;
794:
795: if (mrc_sob_type_code = 'R') then
807: ,p_log_level_rec => p_log_level_rec);
808: ****/
809:
810: if p_log_level_rec.statement_level then
811: fa_debug_pkg.add(l_calling_fn,'getting', 'total reserveral amounts'
812: ,p_log_level_rec => p_log_level_rec);
813: end if;
814:
815: /* Fix for bug 3810323: commented out this
853:
854: /* Fix for bug 3810323 - end*/
855:
856: if p_log_level_rec.statement_level then
857: fa_debug_pkg.add(l_calling_fn,'calling', 'faxidda'
858: ,p_log_level_rec => p_log_level_rec);
859: end if;
860:
861: if ins_adj_flag then
934:
935: begin <
936:
937: if (p_log_level_rec.statement_level) then
938: fa_debug_pkg.add(l_calling_fn, 'dist_id', p_asset_dist_rec.distribution_id
939: ,p_log_level_rec => p_log_level_rec);
940: fa_debug_pkg.add(l_calling_fn, 'from_per_ctr', from_per_ctr
941: ,p_log_level_rec => p_log_level_rec);
942: end if;
936:
937: if (p_log_level_rec.statement_level) then
938: fa_debug_pkg.add(l_calling_fn, 'dist_id', p_asset_dist_rec.distribution_id
939: ,p_log_level_rec => p_log_level_rec);
940: fa_debug_pkg.add(l_calling_fn, 'from_per_ctr', from_per_ctr
941: ,p_log_level_rec => p_log_level_rec);
942: end if;
943:
944: cur_per_ctr := p_period_rec.period_counter;
960: if backout_flag then
961:
962: -- Backing out depreciation from terminated distribution
963: if p_log_level_rec.statement_level then
964: fa_debug_pkg.add(l_calling_fn,'calling faxrda',1
965: ,p_log_level_rec => p_log_level_rec);
966: end if;
967:
968: if not faxrda
992:
993: -- excluding deprn_adj_exp updates as this will be done by deprn
994:
995: if p_log_level_rec.statement_level then
996: fa_debug_pkg.add(l_calling_fn,'flip backout drs.deprn_rsv', drs.deprn_rsv
997: ,p_log_level_rec => p_log_level_rec);
998: end if;
999:
1000: drs.bonus_deprn_amount := -drs.bonus_deprn_amount;
1002:
1003: else
1004:
1005: if p_log_level_rec.statement_level then
1006: fa_debug_pkg.add(l_calling_fn,'backout_flag', 'FALSE'
1007: ,p_log_level_rec => p_log_level_rec);
1008: end if;
1009:
1010: -- Moving backed out depreciation to created distribution
1030: ann_adj_amts.reval_amo := drs.reval_amo * num_of_periods;
1031: ann_adj_amts.bonus_deprn_amount := drs.bonus_deprn_amount * num_of_periods;
1032:
1033: if p_log_level_rec.statement_level then
1034: fa_debug_pkg.add(l_calling_fn,' calling faxidda',1
1035: ,p_log_level_rec => p_log_level_rec);
1036: end if;
1037:
1038: if not faxidda