[Home] [Help]
405: l_adj.debit_credit_flag := 'DR';
406: l_adj.set_of_books_id := l_asset_hdr_rec.set_of_books_id;
407: l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
408:
409: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
410: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
411: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
412: raise ret_err;
413: end if;
411: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
412: raise ret_err;
413: end if;
414:
415: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
416:
417: if not FA_INS_ADJUST_PKG.faxinaj
418: (l_adj,
419: p_trans_rec.who_info.last_update_date,
427: l_adj.flush_adj_flag := TRUE;
428:
429: l_adj.debit_credit_flag := 'CR';
430: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
431: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
432:
433: if not FA_INS_ADJUST_PKG.faxinaj
434: (l_adj,
435: p_trans_rec.who_info.last_update_date,
460: l_trans_rec := l_trans_rec_g;
461: end if;
462: /* bug#15897249 ends */
463: -- ENERGY
464: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec_old.deprn_method_code,
465: l_asset_fin_rec_old.life_in_months, p_log_level_rec => p_log_level_rec)) then
466: if (p_log_level_rec.statement_level) then
467: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
468: end if;
463: -- ENERGY
464: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec_old.deprn_method_code,
465: l_asset_fin_rec_old.life_in_months, p_log_level_rec => p_log_level_rec)) then
466: if (p_log_level_rec.statement_level) then
467: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
468: end if;
469:
470: raise ret_err;
471: end if;
472:
473: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') then
474:
475: --and -- ENERGY
476: -- (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then -- ENERGY
477: l_asset_deprn_rec_adj.deprn_reserve := - 1 * (p_asset_retire_rec.cost_retired -
478: (nvl(p_asset_retire_rec.proceeds_of_sale, 0) -
479: nvl(p_asset_retire_rec.cost_of_removal, 0)) + nvl(l_recapture_amount,0));
480: end if;
516:
517: if (p_trans_rec.calling_interface <> 'FAXASSET') and
518: (nvl(l_asset_fin_rec_new.cost, 0) <> 0) and
519: (nvl(l_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and
520: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
521:
522: l_alloc_amount := p_asset_retire_rec.cost_retired -
523: p_asset_retire_rec.reserve_retired -
524: (nvl(p_asset_retire_rec.proceeds_of_sale, 0) -
957: -- Recreate Distributions, Asset History, and Addition only if
958: -- retirement about to be reisntate is partial unit/full retirement and
959: -- book class is CORPORATE.
960: if nvl(p_asset_retire_rec.units_retired, 0) > 0 and
961: fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE' and
962: l_asset_desc_rec_m.current_units <> 0 then
963:
964: -- +++++ Get retired distribution +++++
965: OPEN c_get_ret_dists;
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1361: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method, p_log_level_rec => p_log_level_rec);
1362: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
1363: end if;
1364:
1365:
1366: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1363: end if;
1364:
1365:
1366: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1367: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1368: l_trans_rec.transaction_date_entered := p_trans_rec.transaction_date_entered;
1369: l_trans_rec.amortization_start_date := p_trans_rec.transaction_date_entered;
1370: else
1371: l_trans_rec.transaction_date_entered := p_asset_retire_rec.date_retired;
1434:
1435: if (p_trans_rec.calling_interface <> 'FAXASSET') then
1436:
1437: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1438: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1439: if (p_log_level_rec.statement_level) then
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1577: end if;
1578:
1579: -- BUG# 3641747
1580: -- call cache as it was not yet initialized
1581: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
1582: p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
1583: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1584: raise calc_err;
1585: end if;
1606: l_adj.set_of_books_id := p_asset_hdr_rec.set_of_books_id;
1607:
1608: if p_asset_type_rec.asset_type = 'CIP' then
1609: l_adj.source_type_code := 'CIP RETIREMENT';
1610: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1611: l_adj.account_type := 'CIP_COST_ACCT';
1612: else
1613: l_adj.source_type_code := 'RETIREMENT';
1614: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1610: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1611: l_adj.account_type := 'CIP_COST_ACCT';
1612: else
1613: l_adj.source_type_code := 'RETIREMENT';
1614: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1615: l_adj.account_type := 'ASSET_COST_ACCT';
1616: end if;
1617:
1618: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1614: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1615: l_adj.account_type := 'ASSET_COST_ACCT';
1616: end if;
1617:
1618: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1619:
1620: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1621: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') and
1622: (p_mode = 'CR')) then
1617:
1618: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1619:
1620: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1621: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') and
1622: (p_mode = 'CR')) then
1623: /* --Commented out as part of fix for 3188851.
1624: OPEN c_get_thid;
1625: FETCH c_get_thid INTO l_adj.selection_thid;
1664: end if;
1665:
1666: --fa_debug_pkg.add(l_calling_fn,'Before DR logic, book',p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
1667: -- Need to call cache again as this gets reset when the dist api gets called.
1668: if not fa_cache_pkg.fazcbc(x_book => p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
1669: raise calc_err;
1670: end if;
1671:
1672: --Doing this check due to 3188851.
1672: --Doing this check due to 3188851.
1673: if p_mode <> 'CR' then
1674:
1675: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
1676: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1677:
1678: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1679: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1680: --
1675: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
1676: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1677:
1678: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1679: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1680: --
1681: -- With unkonwn reason l_adj.account is set to null so
1682: -- need to resert the same value.
1683: --
1681: -- With unkonwn reason l_adj.account is set to null so
1682: -- need to resert the same value.
1683: --
1684: if p_asset_type_rec.asset_type = 'CIP' then
1685: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1686: else
1687: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1688: end if;
1689:
1683: --
1684: if p_asset_type_rec.asset_type = 'CIP' then
1685: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1686: else
1687: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1688: end if;
1689:
1690: l_adj.selection_thid := 0;
1691: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
1728:
1729: l_adj.adjustment_type := 'RESERVE';
1730: l_adj.debit_credit_flag := 'DR';
1731: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1732: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1733:
1734: OPEN c_get_group_method_info; -- ENERGY
1735: FETCH c_get_group_method_info INTO l_group_db_rule_name; -- ENERGY
1736: CLOSE c_get_group_method_info; -- ENERGY
1792: if (p_asset_fin_rec.tracking_method <> 'ALLOCATE') then
1793:
1794: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0) then
1795: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1796: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1797: l_adj.adjustment_amount := p_asset_retire_rec.proceeds_of_sale;
1798: l_adj.track_member_flag := 'Y';
1799: l_adj.flush_adj_flag := FALSE;
1800:
1814: end if; -- (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0)
1815:
1816: if (nvl(p_asset_retire_rec.cost_of_removal, 0) <> 0) then
1817: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1818: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1819: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
1820: l_adj.track_member_flag := 'Y';
1821: l_adj.flush_adj_flag := FALSE;
1822:
1838: if (nvl(p_asset_retire_rec.cost_of_removal, 0) <> 0) then
1839: l_adj.adjustment_type := 'REMOVALCOST CLR';
1840: l_adj.debit_credit_flag := 'CR';
1841: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
1842: l_adj.account := fa_cache_pkg.fazcbc_record.cost_of_removal_gain_acct;
1843: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
1844: l_adj.flush_adj_flag := FALSE;
1845: l_adj.track_member_flag := 'Y';
1846:
1863: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0) then
1864: l_adj.adjustment_type := 'PROCEEDS CLR';
1865: l_adj.debit_credit_flag := 'DR';
1866: l_adj.account_type := 'PROCEEDS_OF_SALE_CLEARING_ACCT';
1867: l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_clearing_acct;
1868: l_adj.adjustment_amount := p_asset_retire_rec.proceeds_of_sale;
1869: l_adj.flush_adj_flag := FALSE;
1870: l_adj.track_member_flag := 'Y';
1871:
1909: --
1910: /* bug#15897249 starts */
1911: If (not (nvl(p_asset_fin_rec.tracking_method,'NULL') = 'CALCULATE' and
1912: nvl(p_asset_fin_rec.member_rollup_flag, 'N') = 'Y' ) ) then
1913: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
1914: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
1915: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1916: raise calc_err;
1917: end if;
1919: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
1920: l_adj.transaction_header_id := p_group_thid;
1921: end if;
1922: /*bug#15897249 ends */
1923: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
1924: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
1925: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1926: raise calc_err;
1927: end if;
1931:
1932: l_adj.adjustment_type := 'RESERVE';
1933: l_adj.debit_credit_flag := 'DR';
1934: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1935: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1936: l_adj.adjustment_amount := p_asset_retire_rec.cost_retired;
1937: l_adj.track_member_flag := null;
1938:
1939: if (nvl(p_asset_retire_rec.cost_of_removal, 0) = 0) and
1960:
1961: l_adj.adjustment_type := 'RESERVE';
1962: l_adj.debit_credit_flag := 'DR';
1963: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1964: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1965: l_adj.adjustment_amount := p_asset_retire_rec.detail_info.gain_loss_amount;
1966:
1967: --tk_util.DumpAdjRec(l_adj, 'LNP RSV');
1968: if not FA_INS_ADJUST_PKG.faxinaj
1976:
1977: l_adj.adjustment_type := 'NBV RETIRED';
1978: l_adj.debit_credit_flag := 'CR';
1979: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
1980: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
1981: l_adj.adjustment_amount := p_asset_retire_rec.detail_info.gain_loss_amount;
1982:
1983: --tk_util.DumpAdjRec(l_adj, 'LNP NBVRET');
1984: if not FA_INS_ADJUST_PKG.faxinaj
1999: if (not(nvl(p_asset_retire_rec.cost_of_removal, 0) = 0)) then
2000: l_adj.adjustment_type := 'RESERVE';
2001: l_adj.debit_credit_flag := 'DR';
2002: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2003: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2004: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
2005: --tk_util.DumpAdjRec(l_adj, 'COR');
2006: if not FA_INS_ADJUST_PKG.faxinaj
2007: (l_adj,
2019: /* bug#15897249 end */
2020: l_adj.adjustment_type := 'REMOVALCOST CLR';
2021: l_adj.debit_credit_flag := 'CR';
2022: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
2023: l_adj.account := fa_cache_pkg.fazcbc_record.cost_of_removal_gain_acct;
2024:
2025: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) = 0) then
2026: l_adj.flush_adj_flag := TRUE;
2027: end if;
2048: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
2049: End if;
2050: /* bug#15897249 end */
2051: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2052: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2053: l_adj.adjustment_amount := p_asset_retire_rec.proceeds_of_sale;
2054:
2055: --tk_util.DumpAdjRec(l_adj, 'POS');
2056: if not FA_INS_ADJUST_PKG.faxinaj
2069: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
2070: End if;
2071: /* bug#15897249 end */
2072: --l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT'; --bug 8580562
2073: --l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_gain_acct; --bug 8580562
2074: l_adj.account_type := 'PROCEEDS_OF_SALE_CLEARING_ACCT';
2075: l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_clearing_acct;
2076: l_adj.flush_adj_flag := TRUE;
2077:
2071: /* bug#15897249 end */
2072: --l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT'; --bug 8580562
2073: --l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_gain_acct; --bug 8580562
2074: l_adj.account_type := 'PROCEEDS_OF_SALE_CLEARING_ACCT';
2075: l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_clearing_acct;
2076: l_adj.flush_adj_flag := TRUE;
2077:
2078: --tk_util.DumpAdjRec(l_adj, 'POS');
2079: if not FA_INS_ADJUST_PKG.faxinaj
2144:
2145: if (nvl(l_deprn_exp, 0) <> 0) then
2146: -- Catchup expense for Member
2147: -- Call category book cache for group to get expense account
2148: if not fa_cache_pkg.fazccb
2149: (X_book => p_asset_hdr_rec.book_type_code,
2150: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2151: raise calc_err;
2152: end if;
2152: end if;
2153:
2154: l_adj.source_type_code := 'DEPRECIATION';
2155: l_adj.adjustment_type := 'EXPENSE';
2156: l_adj.account := fa_cache_pkg.fazccb_record.deprn_expense_acct;
2157: l_adj.account_type := 'DEPRN_EXPENSE_ACCT';
2158: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2159: l_adj.adjustment_amount := abs(l_deprn_exp);
2160: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2195: -- Need to call cache function if it is not called for expense.
2196:
2197: if (nvl(l_deprn_exp, 0) = 0) then
2198:
2199: if not fa_cache_pkg.fazccb(
2200: X_book => p_asset_hdr_rec.book_type_code,
2201: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2202: raise calc_err;
2203: end if;
2204: end if;
2205:
2206: l_adj.source_type_code := 'DEPRECIATION';
2207: l_adj.adjustment_type := 'BONUS EXPENSE';
2208: l_adj.account := fa_cache_pkg.fazccb_record.bonus_deprn_expense_acct;
2209: l_adj.account_type := 'BONUS_DEPRN_EXPENSE_ACCT';
2210: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2211: l_adj.adjustment_amount := abs(l_deprn_exp);
2212: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2240: -- Need to call cache function if it is not called for expense.
2241:
2242: if (nvl(l_deprn_exp, 0) = 0) then
2243:
2244: if not fa_cache_pkg.fazccb(
2245: X_book => p_asset_hdr_rec.book_type_code,
2246: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2247: raise calc_err;
2248: end if;
2249: end if;
2250:
2251: l_adj.source_type_code := 'DEPRECIATION';
2252: l_adj.adjustment_type := 'IMPAIR EXPENSE';
2253: l_adj.account := fa_cache_pkg.fazccb_record.impair_expense_acct;
2254: l_adj.account_type := 'IMPAIR_EXPENSE_ACCT';
2255: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2256: l_adj.adjustment_amount := abs(l_impairment_exp);
2257: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2455: end if;
2456:
2457: -- BUG# 3641747
2458: -- call cache as it was not yet initialized
2459: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
2460: p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2461: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2462: raise calc_err;
2463: end if;
2504:
2505: -- +++++ Process Cost entries +++++
2506: if p_asset_type_rec.asset_type = 'CIP' then
2507: l_adj.source_type_code := 'CIP RETIREMENT';
2508: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2509: l_adj.account_type := 'CIP_COST_ACCT';
2510: else
2511: l_adj.source_type_code := 'RETIREMENT';
2512: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2508: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2509: l_adj.account_type := 'CIP_COST_ACCT';
2510: else
2511: l_adj.source_type_code := 'RETIREMENT';
2512: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2513: l_adj.account_type := 'ASSET_COST_ACCT';
2514: end if;
2515:
2516: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2513: l_adj.account_type := 'ASSET_COST_ACCT';
2514: end if;
2515:
2516: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2517: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) and
2518: --(p_asset_desc_rec.current_units > p_asset_retire_rec.units_retired)
2519: (G_PART_RET_FLAG = TRUE) then
2520: OPEN c_get_thid_for_dist;
2521: FETCH c_get_thid_for_dist INTO l_adj.selection_thid;
2542: raise calc_err;
2543: end if;
2544:
2545: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2546: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) and
2547: --(p_asset_desc_rec.current_units > p_asset_retire_rec.units_retired)
2548: (G_PART_RET_FLAG = TRUE) then
2549:
2550: --
2551: -- With unkonwn reason l_adj.account is set to null so
2552: -- need to resert the same value.
2553: --
2554: if p_asset_type_rec.asset_type = 'CIP' then
2555: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2556: else
2557: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2558: end if;
2559:
2553: --
2554: if p_asset_type_rec.asset_type = 'CIP' then
2555: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2556: else
2557: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2558: end if;
2559:
2560: l_adj.selection_thid := 0;
2561: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2575:
2576: end if; -- ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2577:
2578: -- ENERGY
2579: if (not fa_cache_pkg.fazccmt(p_asset_fin_rec.deprn_method_code,
2580: p_asset_fin_rec.life_in_months, p_log_level_rec => p_log_level_rec)) then
2581: if (p_log_level_rec.statement_level) then
2582: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
2583: end if;
2578: -- ENERGY
2579: if (not fa_cache_pkg.fazccmt(p_asset_fin_rec.deprn_method_code,
2580: p_asset_fin_rec.life_in_months, p_log_level_rec => p_log_level_rec)) then
2581: if (p_log_level_rec.statement_level) then
2582: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
2583: end if;
2584:
2585: raise calc_err;
2586: end if;
2588: if (p_log_level_rec.statement_level) then
2589: fa_debug_pkg.add(l_calling_fn, 'tracking_method',
2590: p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2591: fa_debug_pkg.add(l_calling_fn, 'rule_name',
2592: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2593: end if;
2594: -- Energy: Need to reinstate member reserve entry cre
2595: -- BUG# 6899255
2596: -- handle all allocate cases the same rather than just energy
2593: end if;
2594: -- Energy: Need to reinstate member reserve entry cre
2595: -- BUG# 6899255
2596: -- handle all allocate cases the same rather than just energy
2597: -- (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE')
2598: -- ENERGY
2599:
2600: if (nvl(p_asset_fin_rec.tracking_method, 'NO TRACK') = 'ALLOCATE')
2601: or
2612:
2613: l_adj.adjustment_type := 'RESERVE';
2614: l_adj.debit_credit_flag := 'CR';
2615: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2616: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2617: l_adj.adjustment_amount := p_asset_retire_rec.reserve_retired;
2618: l_adj.track_member_flag := 'Y';
2619:
2620: --tk_util.DumpAdjRec(l_adj, 'mRSV');
2648:
2649: --
2650: -- Set category book cache w/ group information.
2651: --
2652: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2653: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2654: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2655: raise calc_err;
2656: end if;
2658: /* bug#15897249 added if condition */
2659: If (not (nvl(p_asset_fin_rec.tracking_method,'NULL') = 'CALCULATE' and
2660: nvl(p_asset_fin_rec.member_rollup_flag, 'N') = 'Y' ) ) then
2661:
2662: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2663: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2664: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2665: raise calc_err;
2666: end if;
2674:
2675: l_adj.adjustment_type := 'RESERVE';
2676: l_adj.debit_credit_flag := 'CR';
2677: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2678: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2679: l_adj.adjustment_amount := p_asset_retire_rec.cost_retired;
2680: l_adj.track_member_flag := null;
2681:
2682: --tk_util.DumpAdjRec(l_adj, 'RSV');
2736: --
2737: -- Set category book cache w/ group information.
2738: --
2739: if (l_asset_cat_rec.category_id is null) then
2740: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2741: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2742: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2743: raise calc_err;
2744: end if;
2750: --
2751: -- Set category book cache w/ group information.
2752: --
2753: if (l_asset_cat_rec.category_id is null) then
2754: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2755: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2756: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2757: raise calc_err;
2758: end if;
2771: l_adj.debit_credit_flag := 'CR';
2772: end if;
2773:
2774: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2775: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2776:
2777: --tk_util.DumpAdjRec(l_adj, 'RSV');
2778: if not FA_INS_ADJUST_PKG.faxinaj
2779: (l_adj,
2809: --
2810: -- Set category book cache w/ group information.
2811: --
2812: if (l_asset_cat_rec.category_id is null) then
2813: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2814: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2815: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2816: raise calc_err;
2817: end if;
2823: --
2824: -- Set category book cache w/ group information.
2825: --
2826: if (l_asset_cat_rec.category_id is null) then
2827: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2828: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2829: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
2830: raise calc_err;
2831: end if;
2844: l_adj.debit_credit_flag := 'CR';
2845: end if;
2846:
2847: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2848: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2849:
2850: --tk_util.DumpAdjRec(l_adj, 'RSV');
2851: if not FA_INS_ADJUST_PKG.faxinaj
2852: (l_adj,
2967: if (nvl(l_deprn_exp, 0) <> 0) then
2968: -- Catchup expense for Member
2969: -- Call category book cache for group to get expense account
2970:
2971: if not fa_cache_pkg.fazccb
2972: (X_book => p_asset_hdr_rec.book_type_code,
2973: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
2974: raise calc_err;
2975: end if;
2975: end if;
2976:
2977: l_adj.source_type_code := 'DEPRECIATION';
2978: l_adj.adjustment_type := 'EXPENSE';
2979: l_adj.account := fa_cache_pkg.fazccb_record.deprn_expense_acct;
2980: l_adj.account_type := 'DEPRN_EXPENSE_ACCT';
2981: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2982: l_adj.adjustment_amount := abs(l_deprn_exp);
2983: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
3017: -- Catchup bonus expense for Member
3018: -- Need to call cache function if it is not called for expense.
3019:
3020: if (nvl(l_deprn_exp, 0) = 0) then
3021: if not fa_cache_pkg.fazccb
3022: (X_book => p_asset_hdr_rec.book_type_code,
3023: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
3024: raise calc_err;
3025: end if;
3026: end if;
3027:
3028: l_adj.source_type_code := 'DEPRECIATION';
3029: l_adj.adjustment_type := 'BONUS EXPENSE';
3030: l_adj.account := fa_cache_pkg.fazccb_record.bonus_deprn_expense_acct;
3031: l_adj.account_type := 'BONUS_DEPRN_EXPENSE_ACCT';
3032: l_adj.asset_id := p_asset_hdr_rec.asset_id;
3033: l_adj.adjustment_amount := abs(l_deprn_exp);
3034: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
3061: -- Catchup impairment expense for Member
3062: -- Need to call cache function if it is not called for expense.
3063:
3064: if (nvl(l_deprn_exp, 0) = 0) then
3065: if not fa_cache_pkg.fazccb
3066: (X_book => p_asset_hdr_rec.book_type_code,
3067: X_cat_id => p_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
3068: raise calc_err;
3069: end if;
3070: end if;
3071:
3072: l_adj.source_type_code := 'DEPRECIATION';
3073: l_adj.adjustment_type := 'IMPAIR EXPENSE';
3074: l_adj.account := fa_cache_pkg.fazccb_record.impair_expense_acct;
3075: l_adj.account_type := 'IMPAIR_EXPENSE_ACCT';
3076: l_adj.asset_id := p_asset_hdr_rec.asset_id;
3077: l_adj.adjustment_amount := abs(l_impairment_exp);
3078: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
3514: else
3515: l_adj.debit_credit_flag := 'CR';
3516: end if;
3517:
3518: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
3519: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
3520: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3521: raise calc_err;
3522: end if;
3520: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3521: raise calc_err;
3522: end if;
3523:
3524: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
3525:
3526: if not FA_INS_ADJUST_PKG.faxinaj
3527: (l_adj,
3528: l_trans_rec.who_info.last_update_date,
3537:
3538: if (l_deprn_reserve > 0) then
3539: l_adj.debit_credit_flag := 'CR';
3540: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
3541: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
3542: else
3543: l_adj.debit_credit_flag := 'DR';
3544: l_adj.debit_credit_flag := 'CR';
3545: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3542: else
3543: l_adj.debit_credit_flag := 'DR';
3544: l_adj.debit_credit_flag := 'CR';
3545: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3546: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
3547: end if; -- (nvl(l_deprn_reserve, 0) <> 0)
3548:
3549: if not FA_INS_ADJUST_PKG.faxinaj
3550: (l_adj,
3864: l_adj.set_of_books_id := p_ret.set_of_books_id;
3865: l_adj.debit_credit_flag := 'DR';
3866: l_adj.source_type_code := 'RETIREMENT';
3867:
3868: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
3869: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
3870: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3871: raise calc_err;
3872: end if;
3870: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3871: raise calc_err;
3872: end if;
3873:
3874: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_EXPENSE_ACCT;
3875:
3876: if not FA_INS_ADJUST_PKG.faxinaj
3877: (l_adj,
3878: l_trans_rec.who_info.last_update_date,
3914: AND BOOK_TYPE_CODE = l_asset_hdr_rec.book_type_code;
3915:
3916: /*8206076 -Start */
3917: if not((nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
3918: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE')) then
3919: l_trans_rec.transaction_date_entered := p_ret.date_retired;
3920: l_trans_rec.amortization_start_date := p_ret.date_retired;
3921: if (p_log_level_rec.statement_level) then
3922: fa_debug_pkg.add(l_calling_fn, 'New transaction_date_entered',l_trans_rec.transaction_date_entered);
4197: else
4198: l_adj.debit_credit_flag := 'CR';
4199: end if;
4200:
4201: if not fa_cache_pkg.fazccb(p_book_type_code,
4202: l_asset_cat_rec.category_id, p_log_level_rec => p_log_level_rec) then
4203: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4204: raise gl_err;
4205: end if;
4203: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4204: raise gl_err;
4205: end if;
4206:
4207: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
4208: l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
4209: l_adj.set_of_books_id := p_set_of_books_id;
4210:
4211: if not FA_INS_ADJUST_PKG.faxinaj
4222:
4223: if (l_deprn_reserve > 0) then
4224: l_adj.debit_credit_flag := 'CR';
4225: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
4226: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
4227: else
4228: l_adj.debit_credit_flag := 'CR';
4229: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
4230: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
4226: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
4227: else
4228: l_adj.debit_credit_flag := 'CR';
4229: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
4230: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
4231: end if;
4232:
4233: if not FA_INS_ADJUST_PKG.faxinaj
4234: (l_adj,
4244: X_Asset_Id => p_asset_id,
4245: X_terminal_gain_loss_amount => l_deprn_reserve,
4246: X_terminal_gain_loss_flag => 'N',
4247: X_mrc_sob_type_code => p_mrc_sob_type_code,
4248: X_set_of_books_id => fa_cache_pkg.fazcbc_record.set_of_books_id,
4249: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4250:
4251: else
4252: if (p_log_level_rec.statement_level) then
4261: X_Book_Type_Code => p_book_type_code,
4262: X_Asset_Id => p_asset_id,
4263: X_terminal_gain_loss_flag => FND_API.G_MISS_CHAR,
4264: X_mrc_sob_type_code => p_mrc_sob_type_code,
4265: X_set_of_books_id => fa_cache_pkg.fazcbc_record.set_of_books_id,
4266: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4267:
4268: end if; -- (nvl(l_member_exists, 'N') = 'N' )
4269:
4315: and ad.asset_type = 'GROUP'
4316: and bk.terminal_gain_loss_flag = 'Y'
4317: and MOD(bk.asset_id, p_total_requests) = (p_request_number - 1);
4318:
4319: l_sob_tbl FA_CACHE_PKG.fazcrsob_sob_tbl_type;
4320:
4321: TYPE tab_num15_type IS TABLE OF NUMBER(15) INDEX BY BINARY_INTEGER;
4322: t_asset_id tab_num15_type;
4323:
4335: x_period_rec => l_period_rec, p_log_level_rec => p_log_level_rec) then
4336: raise gl_err;
4337: end if;
4338:
4339: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
4340: raise gl_err;
4341: end if;
4342:
4343: -- Process Terminal Gain Loss only if this is last period of
4343: -- Process Terminal Gain Loss only if this is last period of
4344: -- the fiscal year.
4345:
4346: --+++++ Check to see if this is ast period of the fiscal year.
4347: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4348: l_period_rec.period_num) then
4349:
4350: OPEN c_get_eofy_groups;
4351: else
4353: end if;
4354:
4355: LOOP -- loop for bulk fetch with limit
4356:
4357: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4358: l_period_rec.period_num) then
4359:
4360: FETCH c_get_eofy_groups BULK COLLECT INTO t_asset_id;
4361: else
4380: p_log_level_rec => p_log_level_rec) then
4381: raise gl_err;
4382: end if;
4383:
4384: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
4385:
4386: -- call the sob cache to get the table of sob_ids
4387: if not FA_CACHE_PKG.fazcrsob
4388: (x_book_type_code => p_book_type_code,
4383:
4384: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
4385:
4386: -- call the sob cache to get the table of sob_ids
4387: if not FA_CACHE_PKG.fazcrsob
4388: (x_book_type_code => p_book_type_code,
4389: x_sob_tbl => l_sob_tbl, p_log_level_rec => p_log_level_rec) then
4390: raise gl_err;
4391: end if;
4396: fa_debug_pkg.add (l_calling_fn, 'Reporting book loop: Set_of_books_id',
4397: l_sob_tbl(l_sob_index));
4398: end if;
4399:
4400: if not fa_cache_pkg.fazcbcs(x_book => p_book_type_code,
4401: x_set_of_books_id => p_set_of_books_id,
4402: p_log_level_rec => p_log_level_rec) then
4403: raise gl_err;
4404: end if;
4413: raise gl_err;
4414: end if;
4415:
4416: end loop;
4417: end if; -- fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y'
4418:
4419: end loop; -- for i IN 1..t_asset_id.count
4420:
4421: end loop; -- loop for bulk fetch with limit
4419: end loop; -- for i IN 1..t_asset_id.count
4420:
4421: end loop; -- loop for bulk fetch with limit
4422:
4423: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4424: l_period_rec.period_num) then
4425:
4426: CLOSE c_get_eofy_groups;
4427: else
5754: l_adj.asset_id := t_asset_id(i);
5755: l_adj.transaction_header_id := t_thid(i);
5756: l_adj.current_units := t_current_units(i);
5757:
5758: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
5759: t_asset_category_id(i),
5760: p_log_level_rec) then
5761: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5762: raise allocate_err;
5761: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5762: raise allocate_err;
5763: end if;
5764:
5765: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
5766:
5767: if not FA_INS_ADJUST_PKG.faxinaj
5768: (l_adj,
5769: p_trans_rec.who_info.last_update_date,
6773:
6774: l_adj.asset_id := p_asset_hdr_rec.asset_id;
6775: l_adj.adjustment_type := 'RESERVE';
6776: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
6777: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
6778: l_adj.code_combination_id := 0;
6779: l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
6780: l_adj.set_of_books_id := p_asset_hdr_rec.set_of_books_id;
6781: l_tot_deprn_reserve := 0;