[Home] [Help]
299: /*==========================================================================*
300: | NAME fagitc |
301: | |
302: | FUNCTION This function calculates ITC_RECAPTURED (if necessary) for |
303: | this retirement. The ITC_AMOUNT_ID in FA_BOOKS must not be |
304: | null in order for ITC_RECAPTURED to be calculated. |
305: | |
306: | HISTORY 1/17/89 R Rumanang Created |
307: | 12/27/89 R RUmanang Fixed bug in itc recaptured.|
3356: INTO h_same_fy, h_depr_first_year_ret,
3357: h_dwacq, h_rate_source_rule
3358: FROM FA_FISCAL_YEAR fy1,
3359: FA_FISCAL_YEAR fy2,
3360: FA_BOOKS bk,
3361: FA_RETIREMENTS rt,
3362: FA_CONVENTION_TYPES ctype,
3363: FA_METHODS mt,
3364: FA_BOOK_CONTROLS bc
4107:
4108: BEGIN
4109: SELECT to_number (to_char (bk.prorate_date, 'J'))
4110: INTO h_dpis_pr_jdt
4111: FROM fa_books bk,
4112: fa_calendar_periods dcp
4113: WHERE bk.book_type_code = ret.book
4114: AND transaction_header_id_out is null
4115: AND asset_id = ret.asset_id
4802: and transaction_header_id_out is null;
4803:
4804: CURSOR c_get_cost is
4805: select cost
4806: from fa_books
4807: where asset_id = bk.group_asset_id
4808: and book_type_code = ret.book
4809: and date_ineffective is null;
4810:
4885: -- Fix for Bug 3441030
4886: l_prev_deprn_reserve := deprn_reserve;
4887: select adjusted_recoverable_cost
4888: into l_prev_adj_rec_cost
4889: from fa_books
4890: where transaction_header_id_out = ret.th_id_in;
4891:
4892: if (l_prev_deprn_reserve = l_prev_adj_rec_cost) then
4893: l_fully_rsvd_flag := TRUE;
4892: if (l_prev_deprn_reserve = l_prev_adj_rec_cost) then
4893: l_fully_rsvd_flag := TRUE;
4894: select adjusted_recoverable_cost
4895: into l_new_adj_rec_cost
4896: from fa_books
4897: where transaction_header_id_in = ret.th_id_in;
4898: l_final_rsv := l_new_adj_rec_cost;
4899: end if;
4900: