95: l_calling_fn varchar2(40) := 'fa_gainloss_mis_pkg.fagpdi';
96:
97: BEGIN <
98:
99: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagpdi 1', '', p_log_level_rec => p_log_level_rec); end if;
100:
101: h_book_type := book_type;
102: h_cpdname := cpdname;
103:
116: AND bc.prorate_calendar = p_cal.calendar_type
117: AND bc.book_type_code = h_book_type;
118:
119: if p_log_level_rec.statement_level then
120: fa_debug_pkg.add(l_calling_fn, 'in fagpdi 2', '', p_log_level_rec => p_log_level_rec);
121: end if;
122:
123: period_type := h_period_type;
124:
132:
133: ret_p_jdate := to_char(ret_p_date, 'J');
134:
135: if p_log_level_rec.statement_level then
136: fa_debug_pkg.add(l_calling_fn, 'in fagpdi 3', '', p_log_level_rec => p_log_level_rec);
137: end if;
138:
139: if not fa_cache_pkg.fazccp(period_type, fiscal_year_name,
140: ret_p_jdate,
149:
150: end if;
151:
152: if p_log_level_rec.statement_level then
153: fa_debug_pkg.add(l_calling_fn, 'in fagpdi 4', '', p_log_level_rec => p_log_level_rec);
154: end if;
155:
156: pds_per_year_ptr := h_pds_per_year;
157: p_pds_per_year_ptr := h_p_pds_per_year;
291: l_calling_fn varchar2(40) := 'fa_gainloss_mis_pkg.faggbi';
292:
293: BEGIN <
294:
295: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 1', '', p_log_level_rec => p_log_level_rec); end if;
296: h_adj_capacity := 0;
297: h_capacity := 0;
298: h_unrevalued_cost := 0;
299: h_reval_amort_basis := 0;
696: AND ctype.prorate_convention_code = h_ret_p_conv;
697:
698: end if;
699:
700: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 2', '', p_log_level_rec => p_log_level_rec); end if;
701:
702: h_same_fy := 0;
703:
704: select decode(fy1.fiscal_year, fy2.fiscal_year,1,0)
717:
718: end if;
719:
720: if p_log_level_rec.statement_level then
721: fa_debug_pkg.add(l_calling_fn, 'in faggbi 3', '', p_log_level_rec => p_log_level_rec);
722: end if;
723:
724:
725: /* For asset with convention code that the */
748: between START_DATE and END_DATE
749: AND fiscal_year_name = h_fiscal_year_name;
750:
751: if p_log_level_rec.statement_level then
752: fa_debug_pkg.add(l_calling_fn, 'in faggbi 4', '', p_log_level_rec => p_log_level_rec);
753: end if;
754:
755: if (h_ret_fiscalyr <> h_cpd_fiscal_year) then
756:
782:
783: end if; -- end of - if (h_ret_fiscalyr
784:
785: if p_log_level_rec.statement_level then
786: fa_debug_pkg.add(l_calling_fn, 'in faggbi 5', '', p_log_level_rec => p_log_level_rec);
787: end if;
788:
789: /* Note 1 :
790: If the retirement prorate-date is less than the prorate date
803: depreciation
804: */
805:
806: if p_log_level_rec.statement_level then
807: fa_debug_pkg.add(l_calling_fn, 'in faggbi 6', '', p_log_level_rec => p_log_level_rec);
808: end if;
809:
810: if (h_same_fy > 0) and
811: (h_depr_first_year_ret is null or h_depr_first_year_ret <= 0) and
833:
834: else
835:
836: if p_log_level_rec.statement_level then
837: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec => p_log_level_rec);
838: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '');
839: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '');
840: end if;
841:
834: else
835:
836: if p_log_level_rec.statement_level then
837: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec => p_log_level_rec);
838: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '');
839: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '');
840: end if;
841:
842: begin
835:
836: if p_log_level_rec.statement_level then
837: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec => p_log_level_rec);
838: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '');
839: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '');
840: end if;
841:
842: begin
843: SELECT h_prorate_date
876: end if;
877: --End of changes for bug7414920
878:
879: if p_log_level_rec.statement_level then
880: fa_debug_pkg.add(l_calling_fn, 'Final h_ret_prorate_date', to_char(h_ret_prorate_date));
881: fa_debug_pkg.add(l_calling_fn, 'in faggbi 8', '', p_log_level_rec => p_log_level_rec);
882: end if;
883:
884: bk.prorate_date := h_prorate_date;
877: --End of changes for bug7414920
878:
879: if p_log_level_rec.statement_level then
880: fa_debug_pkg.add(l_calling_fn, 'Final h_ret_prorate_date', to_char(h_ret_prorate_date));
881: fa_debug_pkg.add(l_calling_fn, 'in faggbi 8', '', p_log_level_rec => p_log_level_rec);
882: end if;
883:
884: bk.prorate_date := h_prorate_date;
885: bk.deprn_start_date := h_deprn_start_date;
1003: bk.terminal_gain_loss_amount := h_terminal_gain_loss_amount;
1004: ret.wip_asset := h_wip_asset;
1005: bk.pc_fully_reserved := h_pc_fully_reserved;
1006:
1007: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 100', '', p_log_level_rec => p_log_level_rec); end if;
1008:
1009: return(TRUE);
1010:
1011: EXCEPTION