[Home] [Help]
345: l_adj.adjustment_type := 'RESERVE';
346: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
347: l_adj.debit_credit_flag := 'DR';
348:
349: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
350: l_asset_cat_rec.category_id,
351: p_log_level_rec) then
352: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
353: p_log_level_rec => p_log_level_rec);
353: p_log_level_rec => p_log_level_rec);
354: raise ret_err;
355: end if;
356:
357: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
358:
359: if not FA_INS_ADJUST_PKG.faxinaj
360: (l_adj,
361: p_trans_rec.who_info.last_update_date,
370: l_adj.flush_adj_flag := TRUE;
371:
372: l_adj.debit_credit_flag := 'CR';
373: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
374: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
375:
376: if not FA_INS_ADJUST_PKG.faxinaj
377: (l_adj,
378: p_trans_rec.who_info.last_update_date,
417: raise ret_err;
418: end if;
419:
420: -- ENERGY
421: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec_old.deprn_method_code,
422: l_asset_fin_rec_old.life_in_months,
423: p_log_level_rec)) then
424: if (p_log_level_rec.statement_level) then
425: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt',p_log_level_rec);
421: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec_old.deprn_method_code,
422: l_asset_fin_rec_old.life_in_months,
423: p_log_level_rec)) then
424: if (p_log_level_rec.statement_level) then
425: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt',p_log_level_rec);
426: end if;
427:
428: raise ret_err;
429: end if;
476:
477: if (p_trans_rec.calling_interface <> 'FAXASSET') and
478: (nvl(l_asset_fin_rec_new.cost, 0) <> 0) and
479: (nvl(l_asset_fin_rec_new.tracking_method, 'NO TRACK') = 'ALLOCATE') and
480: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
481:
482: l_alloc_amount := p_asset_retire_rec.cost_retired -
483: p_asset_retire_rec.reserve_retired -
484: (nvl(p_asset_retire_rec.proceeds_of_sale, 0) -
882: -- Recreate Distributions, Asset History, and Addition only if
883: -- retirement about to be reisntate is partial unit/full retirement and
884: -- book class is CORPORATE.
885: if nvl(p_asset_retire_rec.units_retired, 0) > 0 and
886: fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE' and
887: l_asset_desc_rec_m.current_units <> 0 then
888:
889: -- +++++ Get retired distribution +++++
890: OPEN c_get_ret_dists;
1285: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1286: p_trans_rec.amortization_start_date,p_log_level_rec);
1287: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost,p_log_level_rec);
1288: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method,p_log_level_rec);
1289: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name,p_log_level_rec);
1290: end if;
1291:
1292:
1293: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1290: end if;
1291:
1292:
1293: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1294: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1295: l_trans_rec.transaction_date_entered := p_trans_rec.transaction_date_entered;
1296: l_trans_rec.amortization_start_date := p_trans_rec.transaction_date_entered;
1297: else
1298: l_trans_rec.transaction_date_entered := p_asset_retire_rec.date_retired;
1361:
1362: if (p_trans_rec.calling_interface <> 'FAXASSET') then
1363:
1364: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1365: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1366: if (p_log_level_rec.statement_level) then
1367: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ',p_log_level_rec);
1368: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale,p_log_level_rec);
1369: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal,p_log_level_rec);
1505: end if;
1506:
1507: -- BUG# 3641747
1508: -- call cache as it was not yet initialized
1509: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
1510: p_asset_cat_rec.category_id,
1511: p_log_level_rec) then
1512: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
1513: p_log_level_rec => p_log_level_rec);
1535: l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
1536:
1537: if p_asset_type_rec.asset_type = 'CIP' then
1538: l_adj.source_type_code := 'CIP RETIREMENT';
1539: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1540: l_adj.account_type := 'CIP_COST_ACCT';
1541: else
1542: l_adj.source_type_code := 'RETIREMENT';
1543: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1539: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1540: l_adj.account_type := 'CIP_COST_ACCT';
1541: else
1542: l_adj.source_type_code := 'RETIREMENT';
1543: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1544: l_adj.account_type := 'ASSET_COST_ACCT';
1545: end if;
1546:
1547: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class);
1543: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1544: l_adj.account_type := 'ASSET_COST_ACCT';
1545: end if;
1546:
1547: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class);
1548:
1549: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1550: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') and
1551: (p_mode = 'CR')) then
1546:
1547: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class);
1548:
1549: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1550: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') and
1551: (p_mode = 'CR')) then
1552: /* --Commented out as part of fix for 3188851.
1553: OPEN c_get_thid;
1554: FETCH c_get_thid INTO l_adj.selection_thid;
1595: end if;
1596:
1597: --fa_debug_pkg.add(l_calling_fn,'Before DR logic, book',p_asset_hdr_rec.book_type_code);
1598: -- Need to call cache again as this gets reset when the dist api gets called.
1599: if not fa_cache_pkg.fazcbc(x_book => p_asset_hdr_rec.book_type_code
1600: ,p_log_level_rec => p_log_level_rec) then
1601: raise calc_err;
1602: end if;
1603:
1604: --Doing this check due to 3188851.
1605: if p_mode <> 'CR' then
1606:
1607: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired);
1608: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class);
1609:
1610: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1611: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1612: --
1607: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired);
1608: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class);
1609:
1610: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1611: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1612: --
1613: -- With unkonwn reason l_adj.account is set to null so
1614: -- need to resert the same value.
1615: --
1613: -- With unkonwn reason l_adj.account is set to null so
1614: -- need to resert the same value.
1615: --
1616: if p_asset_type_rec.asset_type = 'CIP' then
1617: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1618: else
1619: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1620: end if;
1621:
1615: --
1616: if p_asset_type_rec.asset_type = 'CIP' then
1617: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1618: else
1619: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1620: end if;
1621:
1622: l_adj.selection_thid := 0;
1623: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
1660:
1661: l_adj.adjustment_type := 'RESERVE';
1662: l_adj.debit_credit_flag := 'DR';
1663: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1664: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1665:
1666: OPEN c_get_group_method_info; -- ENERGY
1667: FETCH c_get_group_method_info INTO l_group_db_rule_name; -- ENERGY
1668: CLOSE c_get_group_method_info; -- ENERGY
1716: if (p_asset_fin_rec.tracking_method <> 'ALLOCATE') then
1717:
1718: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0) then
1719: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1720: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1721: l_adj.adjustment_amount := p_asset_retire_rec.proceeds_of_sale;
1722: l_adj.track_member_flag := 'Y';
1723: l_adj.flush_adj_flag := FALSE;
1724:
1739: end if; -- (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0)
1740:
1741: if (nvl(p_asset_retire_rec.cost_of_removal, 0) <> 0) then
1742: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1743: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1744: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
1745: l_adj.track_member_flag := 'Y';
1746: l_adj.flush_adj_flag := FALSE;
1747:
1764: if (nvl(p_asset_retire_rec.cost_of_removal, 0) <> 0) then
1765: l_adj.adjustment_type := 'REMOVALCOST CLR';
1766: l_adj.debit_credit_flag := 'CR';
1767: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
1768: l_adj.account := fa_cache_pkg.fazcbc_record.cost_of_removal_gain_acct;
1769: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
1770: l_adj.flush_adj_flag := FALSE;
1771: l_adj.track_member_flag := 'Y';
1772:
1790: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) <> 0) then
1791: l_adj.adjustment_type := 'PROCEEDS CLR';
1792: l_adj.debit_credit_flag := 'DR';
1793: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
1794: l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_gain_acct;
1795: l_adj.flush_adj_flag := FALSE;
1796: l_adj.track_member_flag := 'Y';
1797:
1798: --tk_util.DumpAdjRec(l_adj, 'MemberPOS');
1834:
1835: --
1836: -- Set category book cache w/ group information.
1837: --
1838: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
1839: l_asset_cat_rec.category_id,
1840: p_log_level_rec) then
1841:
1842: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
1851:
1852: l_adj.adjustment_type := 'RESERVE';
1853: l_adj.debit_credit_flag := 'DR';
1854: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1855: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1856: l_adj.adjustment_amount := p_asset_retire_rec.cost_retired;
1857: l_adj.track_member_flag := null;
1858:
1859: if (nvl(p_asset_retire_rec.cost_of_removal, 0) = 0) and
1881:
1882: l_adj.adjustment_type := 'RESERVE';
1883: l_adj.debit_credit_flag := 'DR';
1884: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1885: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1886: l_adj.adjustment_amount := p_asset_retire_rec.detail_info.gain_loss_amount;
1887:
1888: --tk_util.DumpAdjRec(l_adj, 'LNP RSV');
1889: if not FA_INS_ADJUST_PKG.faxinaj
1898:
1899: l_adj.adjustment_type := 'NBV RETIRED';
1900: l_adj.debit_credit_flag := 'CR';
1901: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
1902: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
1903: l_adj.adjustment_amount := p_asset_retire_rec.detail_info.gain_loss_amount;
1904:
1905: --tk_util.DumpAdjRec(l_adj, 'LNP NBVRET');
1906: if not FA_INS_ADJUST_PKG.faxinaj
1922: if (not(nvl(p_asset_retire_rec.cost_of_removal, 0) = 0)) then
1923: l_adj.adjustment_type := 'RESERVE';
1924: l_adj.debit_credit_flag := 'DR';
1925: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1926: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1927: l_adj.adjustment_amount := p_asset_retire_rec.cost_of_removal;
1928: --tk_util.DumpAdjRec(l_adj, 'COR');
1929: if not FA_INS_ADJUST_PKG.faxinaj
1930: (l_adj,
1938: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
1939: l_adj.adjustment_type := 'REMOVALCOST CLR';
1940: l_adj.debit_credit_flag := 'CR';
1941: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
1942: l_adj.account := fa_cache_pkg.fazcbc_record.cost_of_removal_gain_acct;
1943:
1944: if (nvl(p_asset_retire_rec.proceeds_of_sale, 0) = 0) then
1945: l_adj.flush_adj_flag := TRUE;
1946: end if;
1963: l_adj.adjustment_type := 'RESERVE';
1964: l_adj.debit_credit_flag := 'CR';
1965: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
1966: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
1967: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
1968: l_adj.adjustment_amount := p_asset_retire_rec.proceeds_of_sale;
1969:
1970: --tk_util.DumpAdjRec(l_adj, 'POS');
1971: if not FA_INS_ADJUST_PKG.faxinaj
1980: l_adj.adjustment_type := 'PROCEEDS CLR';
1981: l_adj.debit_credit_flag := 'DR';
1982: l_adj.asset_id := p_asset_fin_rec.group_asset_id;
1983: l_adj.account_type := 'COST_OF_REMOVAL_GAIN_ACCT';
1984: l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_gain_acct;
1985: l_adj.flush_adj_flag := TRUE;
1986:
1987: --tk_util.DumpAdjRec(l_adj, 'POS');
1988: if not FA_INS_ADJUST_PKG.faxinaj
2054:
2055: if (nvl(l_deprn_exp, 0) <> 0) then
2056: -- Catchup expense for Member
2057: -- Call category book cache for group to get expense account
2058: if not fa_cache_pkg.fazccb
2059: (X_book => p_asset_hdr_rec.book_type_code,
2060: X_cat_id => p_asset_cat_rec.category_id,
2061: p_log_level_rec => p_log_level_rec) then
2062: raise calc_err;
2063: end if;
2064:
2065: l_adj.source_type_code := 'DEPRECIATION';
2066: l_adj.adjustment_type := 'EXPENSE';
2067: l_adj.account := fa_cache_pkg.fazccb_record.deprn_expense_acct;
2068: l_adj.account_type := 'DEPRN_EXPENSE_ACCT';
2069: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2070: l_adj.adjustment_amount := abs(l_deprn_exp);
2071: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2102: -- Need to call cache function if it is not called for expense.
2103:
2104: if (nvl(l_deprn_exp, 0) = 0) then
2105:
2106: if not fa_cache_pkg.fazccb(
2107: X_book => p_asset_hdr_rec.book_type_code,
2108: X_cat_id => p_asset_cat_rec.category_id,
2109: p_log_level_rec => p_log_level_rec) then
2110: raise calc_err;
2112: end if;
2113:
2114: l_adj.source_type_code := 'DEPRECIATION';
2115: l_adj.adjustment_type := 'BONUS EXPENSE';
2116: l_adj.account := fa_cache_pkg.fazccb_record.bonus_deprn_expense_acct;
2117: l_adj.account_type := 'BONUS_DEPRN_EXPENSE_ACCT';
2118: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2119: l_adj.adjustment_amount := abs(l_deprn_exp);
2120: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2298: end if;
2299:
2300: -- BUG# 3641747
2301: -- call cache as it was not yet initialized
2302: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
2303: p_asset_cat_rec.category_id,
2304: p_log_level_rec) then
2305: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
2306: p_log_level_rec => p_log_level_rec);
2335:
2336: -- +++++ Process Cost entries +++++
2337: if p_asset_type_rec.asset_type = 'CIP' then
2338: l_adj.source_type_code := 'CIP RETIREMENT';
2339: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2340: l_adj.account_type := 'CIP_COST_ACCT';
2341: else
2342: l_adj.source_type_code := 'RETIREMENT';
2343: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2339: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2340: l_adj.account_type := 'CIP_COST_ACCT';
2341: else
2342: l_adj.source_type_code := 'RETIREMENT';
2343: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2344: l_adj.account_type := 'ASSET_COST_ACCT';
2345: end if;
2346:
2347: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2344: l_adj.account_type := 'ASSET_COST_ACCT';
2345: end if;
2346:
2347: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2348: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) and
2349: (p_asset_desc_rec.current_units > p_asset_retire_rec.units_retired) then
2350: OPEN c_get_thid_for_dist;
2351: FETCH c_get_thid_for_dist INTO l_adj.selection_thid;
2352: CLOSE c_get_thid_for_dist;
2373: raise calc_err;
2374: end if;
2375:
2376: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2377: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) and
2378: (p_asset_desc_rec.current_units > p_asset_retire_rec.units_retired) then
2379:
2380: --
2381: -- With unkonwn reason l_adj.account is set to null so
2381: -- With unkonwn reason l_adj.account is set to null so
2382: -- need to resert the same value.
2383: --
2384: if p_asset_type_rec.asset_type = 'CIP' then
2385: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2386: else
2387: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2388: end if;
2389:
2383: --
2384: if p_asset_type_rec.asset_type = 'CIP' then
2385: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
2386: else
2387: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
2388: end if;
2389:
2390: l_adj.selection_thid := 0;
2391: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2406:
2407: end if; -- ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
2408:
2409: -- ENERGY
2410: if (not fa_cache_pkg.fazccmt(p_asset_fin_rec.deprn_method_code,
2411: p_asset_fin_rec.life_in_months
2412: ,p_log_level_rec => p_log_level_rec)) then
2413: if (p_log_level_rec.statement_level) then
2414: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt',p_log_level_rec);
2410: if (not fa_cache_pkg.fazccmt(p_asset_fin_rec.deprn_method_code,
2411: p_asset_fin_rec.life_in_months
2412: ,p_log_level_rec => p_log_level_rec)) then
2413: if (p_log_level_rec.statement_level) then
2414: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt',p_log_level_rec);
2415: end if;
2416:
2417: raise calc_err;
2418: end if;
2420: if (p_log_level_rec.statement_level) then
2421: fa_debug_pkg.add(l_calling_fn, 'tracking_method',
2422: p_asset_fin_rec.tracking_method,p_log_level_rec);
2423: fa_debug_pkg.add(l_calling_fn, 'rule_name',
2424: fa_cache_pkg.fazcdrd_record.rule_name,p_log_level_rec);
2425: end if;
2426: -- toru
2427: -- Energy: Need to reinstate member reserve entry cre
2428: -- BUG# 6899255
2439:
2440: l_adj.adjustment_type := 'RESERVE';
2441: l_adj.debit_credit_flag := 'CR';
2442: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2443: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2444: l_adj.adjustment_amount := p_asset_retire_rec.reserve_retired;
2445: l_adj.track_member_flag := 'Y';
2446:
2447: --tk_util.DumpAdjRec(l_adj, 'mRSV');
2477:
2478: --
2479: -- Set category book cache w/ group information.
2480: --
2481: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2482: l_asset_cat_rec.category_id,
2483: p_log_level_rec) then
2484: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
2485: p_log_level_rec => p_log_level_rec);
2493:
2494: l_adj.adjustment_type := 'RESERVE';
2495: l_adj.debit_credit_flag := 'CR';
2496: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2497: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2498: l_adj.adjustment_amount := p_asset_retire_rec.cost_retired;
2499: l_adj.track_member_flag := null;
2500:
2501: --tk_util.DumpAdjRec(l_adj, 'RSV');
2551: --
2552: -- Set category book cache w/ group information.
2553: --
2554: if (l_asset_cat_rec.category_id is null) then
2555: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2556: l_asset_cat_rec.category_id,
2557: p_log_level_rec) then
2558: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
2559: p_log_level_rec => p_log_level_rec);
2572: l_adj.debit_credit_flag := 'CR';
2573: end if;
2574:
2575: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2576: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2577:
2578: --tk_util.DumpAdjRec(l_adj, 'RSV');
2579: if not FA_INS_ADJUST_PKG.faxinaj
2580: (l_adj,
2612: --
2613: -- Set category book cache w/ group information.
2614: --
2615: if (l_asset_cat_rec.category_id is null) then
2616: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
2617: l_asset_cat_rec.category_id,
2618: p_log_level_rec) then
2619: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
2620: p_log_level_rec => p_log_level_rec);
2633: l_adj.debit_credit_flag := 'CR';
2634: end if;
2635:
2636: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
2637: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
2638:
2639: --tk_util.DumpAdjRec(l_adj, 'RSV');
2640: if not FA_INS_ADJUST_PKG.faxinaj
2641: (l_adj,
2732: if (nvl(l_deprn_exp, 0) <> 0) then
2733: -- Catchup expense for Member
2734: -- Call category book cache for group to get expense account
2735:
2736: if not fa_cache_pkg.fazccb
2737: (X_book => p_asset_hdr_rec.book_type_code,
2738: X_cat_id => p_asset_cat_rec.category_id,
2739: p_log_level_rec => p_log_level_rec) then
2740: raise calc_err;
2741: end if;
2742:
2743: l_adj.source_type_code := 'DEPRECIATION';
2744: l_adj.adjustment_type := 'EXPENSE';
2745: l_adj.account := fa_cache_pkg.fazccb_record.deprn_expense_acct;
2746: l_adj.account_type := 'DEPRN_EXPENSE_ACCT';
2747: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2748: l_adj.adjustment_amount := abs(l_deprn_exp);
2749: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2779: -- Catchup bonus expense for Member
2780: -- Need to call cache function if it is not called for expense.
2781:
2782: if (nvl(l_deprn_exp, 0) = 0) then
2783: if not fa_cache_pkg.fazccb
2784: (X_book => p_asset_hdr_rec.book_type_code,
2785: X_cat_id => p_asset_cat_rec.category_id,
2786: p_log_level_rec => p_log_level_rec) then
2787: raise calc_err;
2789: end if;
2790:
2791: l_adj.source_type_code := 'DEPRECIATION';
2792: l_adj.adjustment_type := 'BONUS EXPENSE';
2793: l_adj.account := fa_cache_pkg.fazccb_record.bonus_deprn_expense_acct;
2794: l_adj.account_type := 'BONUS_DEPRN_EXPENSE_ACCT';
2795: l_adj.asset_id := p_asset_hdr_rec.asset_id;
2796: l_adj.adjustment_amount := abs(l_deprn_exp);
2797: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2985: l_trans_rec.who_info.created_by := l_trans_rec.who_info.last_updated_by;
2986:
2987: l_asset_hdr_rec.asset_id := p_bk.group_asset_id;
2988: l_asset_hdr_rec.book_type_code := p_ret.book;
2989: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
2990:
2991: if not FA_UTIL_PVT.get_asset_type_rec (
2992: p_asset_hdr_rec => l_asset_hdr_rec,
2993: px_asset_type_rec => l_asset_type_rec,
3052: end if;
3053:
3054: l_asset_hdr_rec_m.asset_id := p_ret.asset_id;
3055: l_asset_hdr_rec_m.book_type_code := p_ret.book;
3056: l_asset_hdr_rec_m.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
3057:
3058: -- Get new member's fin_rec
3059: if not fa_util_pvt.get_asset_fin_rec (
3060: p_asset_hdr_rec => l_asset_hdr_rec_m,
3112: l_adj.adjustment_type := 'RESERVE';
3113: l_adj.account_type := 'DEPRN_RESERVE_ACCT';
3114: l_adj.debit_credit_flag := 'DR';
3115:
3116: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
3117: l_asset_cat_rec.category_id,
3118: p_log_level_rec) then
3119: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3120: p_log_level_rec => p_log_level_rec);
3120: p_log_level_rec => p_log_level_rec);
3121: raise calc_err;
3122: end if;
3123:
3124: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
3125:
3126: if not FA_INS_ADJUST_PKG.faxinaj
3127: (l_adj,
3128: l_trans_rec.who_info.last_update_date,
3137: l_adj.flush_adj_flag := TRUE;
3138:
3139: l_adj.debit_credit_flag := 'CR';
3140: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
3141: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
3142:
3143: if not FA_INS_ADJUST_PKG.faxinaj
3144: (l_adj,
3145: l_trans_rec.who_info.last_update_date,
3328: else
3329: l_adj.debit_credit_flag := 'CR';
3330: end if;
3331:
3332: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
3333: l_asset_cat_rec.category_id,
3334: p_log_level_rec) then
3335: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3336: p_log_level_rec => p_log_level_rec);
3336: p_log_level_rec => p_log_level_rec);
3337: raise calc_err;
3338: end if;
3339:
3340: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
3341:
3342: if not FA_INS_ADJUST_PKG.faxinaj
3343: (l_adj,
3344: l_trans_rec.who_info.last_update_date,
3354:
3355: if (l_deprn_reserve > 0) then
3356: l_adj.debit_credit_flag := 'CR';
3357: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
3358: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
3359: else
3360: l_adj.debit_credit_flag := 'DR';
3361: l_adj.debit_credit_flag := 'CR';
3362: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3359: else
3360: l_adj.debit_credit_flag := 'DR';
3361: l_adj.debit_credit_flag := 'CR';
3362: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3363: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
3364: end if; -- (nvl(l_deprn_reserve, 0) <> 0)
3365:
3366: if not FA_INS_ADJUST_PKG.faxinaj
3367: (l_adj,
3509: l_trans_rec.who_info.created_by := l_trans_rec.who_info.last_updated_by;
3510:
3511: l_asset_hdr_rec.asset_id := p_bk.group_asset_id;
3512: l_asset_hdr_rec.book_type_code := p_ret.book;
3513: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
3514:
3515: if not FA_UTIL_PVT.get_asset_type_rec (
3516: p_asset_hdr_rec => l_asset_hdr_rec,
3517: px_asset_type_rec => l_asset_type_rec,
3573: -- l_asset_deprn_rec_adj.deprn_reserve := p_ret.reserve_retired;
3574:
3575: l_asset_hdr_rec_m.asset_id := p_ret.asset_id;
3576: l_asset_hdr_rec_m.book_type_code := p_ret.book;
3577: l_asset_hdr_rec_m.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
3578:
3579: -- Get new member's fin_rec
3580: if not fa_util_pvt.get_asset_fin_rec (
3581: p_asset_hdr_rec => l_asset_hdr_rec_m,
3844: else
3845: l_adj.debit_credit_flag := 'CR';
3846: end if;
3847:
3848: if not fa_cache_pkg.fazccb(p_book_type_code,
3849: l_asset_cat_rec.category_id,
3850: p_log_level_rec) then
3851: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3852: p_log_level_rec => p_log_level_rec);
3852: p_log_level_rec => p_log_level_rec);
3853: raise gl_err;
3854: end if;
3855:
3856: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
3857:
3858: if not FA_INS_ADJUST_PKG.faxinaj
3859: (l_adj,
3860: l_last_update_date,
3870:
3871: if (l_deprn_reserve > 0) then
3872: l_adj.debit_credit_flag := 'CR';
3873: l_adj.account_type := 'NBV_RETIRED_GAIN_ACCT';
3874: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
3875: else
3876: l_adj.debit_credit_flag := 'CR';
3877: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3878: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
3874: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_gain_acct;
3875: else
3876: l_adj.debit_credit_flag := 'CR';
3877: l_adj.account_type := 'NBV_RETIRED_LOSS_ACCT';
3878: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
3879: end if;
3880:
3881: if not FA_INS_ADJUST_PKG.faxinaj
3882: (l_adj,
3965: and ad.asset_type = 'GROUP'
3966: and bk.terminal_gain_loss_flag = 'Y'
3967: and MOD(bk.asset_id, p_total_requests) = (p_request_number - 1);
3968:
3969: l_sob_tbl FA_CACHE_PKG.fazcrsob_sob_tbl_type;
3970:
3971: TYPE tab_num15_type IS TABLE OF NUMBER(15) INDEX BY BINARY_INTEGER;
3972: t_asset_id tab_num15_type;
3973:
3986: p_log_level_rec => p_log_level_rec) then
3987: raise gl_err;
3988: end if;
3989:
3990: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar,
3991: p_log_level_rec) then
3992: raise gl_err;
3993: end if;
3994:
3995: -- Process Terminal Gain Loss only if this is last period of
3996: -- the fiscal year.
3997:
3998: --+++++ Check to see if this is ast period of the fiscal year.
3999: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4000: l_period_rec.period_num) then
4001:
4002: OPEN c_get_eofy_groups;
4003: else
4005: end if;
4006:
4007: LOOP -- loop for bulk fetch with limit
4008:
4009: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4010: l_period_rec.period_num) then
4011:
4012: FETCH c_get_eofy_groups BULK COLLECT INTO t_asset_id;
4013: else
4031: p_log_level_rec => p_log_level_rec) then
4032: raise gl_err;
4033: end if;
4034:
4035: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
4036:
4037: -- call the sob cache to get the table of sob_ids
4038: if not FA_CACHE_PKG.fazcrsob
4039: (x_book_type_code => p_book_type_code,
4034:
4035: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
4036:
4037: -- call the sob cache to get the table of sob_ids
4038: if not FA_CACHE_PKG.fazcrsob
4039: (x_book_type_code => p_book_type_code,
4040: x_sob_tbl => l_sob_tbl,
4041: p_log_level_rec => p_log_level_rec) then
4042: raise gl_err;
4052: -- set the sob_id and currency context for reporting book(sob)
4053: fnd_profile.put('GL_SET_OF_BKS_ID', l_sob_tbl(l_sob_index));
4054: fnd_client_info.set_currency_context(to_char(l_sob_tbl(l_sob_index)));
4055:
4056: if not fa_cache_pkg.fazcbcs(x_book => p_book_type_code,
4057: p_log_level_rec => p_log_level_rec) then
4058: raise gl_err;
4059: end if;
4060:
4067: raise gl_err;
4068: end if;
4069:
4070: end loop;
4071: end if; -- fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y'
4072:
4073: end loop; -- for i IN 1..t_asset_id.count
4074:
4075: end loop; -- loop for bulk fetch with limit
4073: end loop; -- for i IN 1..t_asset_id.count
4074:
4075: end loop; -- loop for bulk fetch with limit
4076:
4077: if (fa_cache_pkg.fazcct_record.number_per_fiscal_year =
4078: l_period_rec.period_num) then
4079:
4080: CLOSE c_get_eofy_groups;
4081: else
4911: l_adj.asset_id := t_asset_id(i);
4912: l_adj.transaction_header_id := t_thid(i);
4913: l_adj.current_units := t_current_units(i);
4914:
4915: if not fa_cache_pkg.fazccb(p_asset_hdr_rec.book_type_code,
4916: t_asset_category_id(i),
4917: p_log_level_rec) then
4918: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4919: p_log_level_rec => p_log_level_rec);
4919: p_log_level_rec => p_log_level_rec);
4920: raise allocate_err;
4921: end if;
4922:
4923: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
4924:
4925: if not FA_INS_ADJUST_PKG.faxinaj
4926: (l_adj,
4927: p_trans_rec.who_info.last_update_date,