[Home] [Help]
102: l_calling_fn varchar2(40) := 'fa_gainloss_mis_pkg.fagpdi';
103:
104: BEGIN <
105:
106: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagpdi 1', '', p_log_level_rec); end if;
107:
108: h_book_type := book_type;
109: h_cpdname := cpdname;
110:
128: bc.prorate_calendar = p_cal.calendar_type
129: AND
130: bc.book_type_code = h_book_type;
131:
132: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagpdi 2', '', p_log_level_rec); end if;
133:
134: period_type := h_period_type;
135:
136: -- Get current period number
142: AND fadp.period_name = h_cpdname;
143:
144: ret_p_jdate := to_char(ret_p_date, 'J');
145:
146: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagpdi 3', '', p_log_level_rec); end if;
147:
148: if not fa_cache_pkg.fazccp(period_type, fiscal_year_name,
149: ret_p_jdate,
150: ret_pd, fiscal_year, dummy
159: raise fagpdi_err;
160:
161: end if;
162:
163: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagpdi 4', '', p_log_level_rec); end if;
164:
165: pds_per_year_ptr := h_pds_per_year;
166: p_pds_per_year_ptr := h_p_pds_per_year;
167: cpdnum := h_cpdnum;
299: l_calling_fn varchar2(40) := 'fa_gainloss_mis_pkg.faggbi';
300:
301: BEGIN <
302:
303: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 1', '', p_log_level_rec); end if;
304: h_adj_capacity := 0;
305: h_capacity := 0;
306: h_unrevalued_cost := 0;
307: h_reval_amort_basis := 0;
701: AND ctype.prorate_convention_code = h_ret_p_conv;
702:
703: end if;
704:
705: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 2', '', p_log_level_rec); end if;
706:
707: h_same_fy := 0;
708:
709: select decode(fy1.fiscal_year, fy2.fiscal_year,1,0)
721: h_ret_prorate_date := h_prorate_date;
722:
723: end if;
724:
725: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 3', '', p_log_level_rec); end if;
726:
727:
728: /* For asset with convention code that the */
729: /* "DEPRECIATE_WHEN_ACQUIRED_FLAG = 'YES' and in its first fiscal year,
754: WHERE trunc(h_ret_prorate_date)
755: between START_DATE and END_DATE
756: AND fiscal_year_name = h_fiscal_year_name;
757:
758: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 4', '', p_log_level_rec); end if;
759:
760: if (h_ret_fiscalyr <> h_cpd_fiscal_year) then
761:
762: if h_ret_fiscalyr < h_cpd_fiscal_year then
786: end if;
787:
788: end if; -- end of - if (h_ret_fiscalyr
789:
790: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 5', '', p_log_level_rec); end if;
791:
792: /* Note 1 :
793: If the retirement prorate-date is less than the prorate date
794: we need to calculate GL adjusment based on the prorate date. Thus, the
805: periods we have to get the period in which we started to allocate
806: depreciation
807: */
808:
809: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 6', '', p_log_level_rec); end if;
810: if (h_same_fy > 0) and
811: (h_depr_first_year_ret is null or h_depr_first_year_ret <= 0) and
812: (h_dwacq > 0) then
813:
831: end;
832: end if;
833: else
834: if p_log_level_rec.statement_level then
835: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec);
836: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '', p_log_level_rec);
837: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '', p_log_level_rec);
838: end if;
839:
832: end if;
833: else
834: if p_log_level_rec.statement_level then
835: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec);
836: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '', p_log_level_rec);
837: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '', p_log_level_rec);
838: end if;
839:
840: begin
833: else
834: if p_log_level_rec.statement_level then
835: fa_debug_pkg.add(l_calling_fn, 'in faggbi 7', '', p_log_level_rec);
836: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_ret_prorate_date)), '', p_log_level_rec);
837: fa_debug_pkg.add(l_calling_fn, to_char(trunc(h_prorate_date)), '', p_log_level_rec);
838: end if;
839:
840: begin
841: SELECT h_prorate_date
849:
850: end if;
851:
852: if p_log_level_rec.statement_level then
853: fa_debug_pkg.add(l_calling_fn, 'Final h_ret_prorate_date', to_char(h_ret_prorate_date), p_log_level_rec);
854: fa_debug_pkg.add(l_calling_fn, 'in faggbi 8', '', p_log_level_rec);
855: end if;
856: bk.prorate_date := h_prorate_date;
857: bk.deprn_start_date := h_deprn_start_date;
850: end if;
851:
852: if p_log_level_rec.statement_level then
853: fa_debug_pkg.add(l_calling_fn, 'Final h_ret_prorate_date', to_char(h_ret_prorate_date), p_log_level_rec);
854: fa_debug_pkg.add(l_calling_fn, 'in faggbi 8', '', p_log_level_rec);
855: end if;
856: bk.prorate_date := h_prorate_date;
857: bk.deprn_start_date := h_deprn_start_date;
858: bk.ret_prorate_date := h_ret_prorate_date;
966: bk.terminal_gain_loss_amount := h_terminal_gain_loss_amount;
967: ret.wip_asset := h_wip_asset;
968: bk.pc_fully_reserved := h_pc_fully_reserved;
969:
970: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in faggbi 100', '', p_log_level_rec); end if;
971:
972: return(TRUE);
973:
974: EXCEPTION