[Home] [Help]
104:
105: ---------------------------------------------------------------------------------
106: -- Segments and CCIDs for natural accounts used by package --
107: -- LER, 18-Jun-99 a. Balancing and cost center segment are not more used --
108: -- b. CCIDs are not more stored in FA_BOOKS_CONTROLS.GDF; --
109: -- these GDF store the natural accouns in Rel. 11.5 --
110: ---------------------------------------------------------------------------------
111:
112: -- x_balancing_segment NUMBER;
285: x_value_3 NUMBER;
286: x_value_4 NUMBER;
287: x_value_5 NUMBER;
288: x_period_1 NUMBER;
289: l_book_type_code fa_books.book_type_code%type;
290:
291: -- x_nbv_retired NUMBER;
292:
293: -----------------------------------------------------------------------------
339: FROM fa_transaction_headers th,
340: fa_deprn_periods dp,
341: fa_additions ad,
342: fa_asset_history ah,
343: fa_books bk
344: WHERE dp.book_type_code = pc_tax_book
345: AND dp.period_counter = pc_period_counter
346: AND th.book_type_code = dp.book_type_code
347: AND dp.period_open_date <= th.date_effective
385: FROM fa_transaction_headers th,
386: fa_deprn_periods dp,
387: fa_additions ad,
388: fa_asset_history ah,
389: fa_books bk
390: WHERE dp.book_type_code = pc_corporate_book
391: AND dp.period_counter = pc_period_counter
392: AND th.book_type_code = dp.book_type_code
393: AND dp.period_open_date <= th.date_effective
706: CURSOR c_prior_retirement (pc_transaction_header_id IN NUMBER)
707: IS
708: SELECT transaction_header_id_in,
709: fnd_number.canonical_to_number(nvl (global_attribute7,0))
710: FROM fa_books
711: WHERE transaction_header_id_out = pc_transaction_header_id;
712:
713: -------------------------------------------------------------------------------
714:
728: fnd_number.canonical_to_number(nvl (bk.global_attribute7,0)) deprn_to_cost,
729: bk.rowid book_rowid
730: FROM fa_additions ad,
731: fa_asset_history ah,
732: fa_books bk,
733: fa_deprn_summary ds
734: WHERE ds.book_type_code = pc_book_type_code
735: AND ds.period_counter = pc_period_counter
736: AND ad.asset_id = ds.asset_id
953: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, x_char);
954: END IF;
955: -----------------------------------------------------------------------------
956: -- Asset category parameters --
957: -- LER, 18-Jun-99 CCIDs are not more stored in FA_BOOKS_CONTROLS.GDF; --
958: -- now are only stored the natural accouns --
959: -----------------------------------------------------------------------------
960:
961: IF (tr.category_id <> x_category_id) THEN
2195:
2196:
2197: -----------------------------------------------------------------------------
2198: -- For Reclassifications, get the account of the prior asset category --
2199: -- LER, 18-Jun-99 CCIDs are not more stered in FA_BOOKS_CONTROLS.GDF --
2200: -- now are only stored the natural accouns --
2201: -----------------------------------------------------------------------------
2202:
2203: IF tr.transaction_type_code IN ('RECLASS',
4584: fnd_file.put_line (FND_FILE.LOG, x_char);
4585: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, x_char);
4586: END IF;
4587:
4588: UPDATE fa_books
4589: SET global_attribute7 = fnd_number.number_to_canonical(x_deprn_to_cost)
4590: WHERE rowid = tr.book_rowid ;
4591:
4592: END LOOP;
4760: fnd_file.put_line (FND_FILE.LOG, x_char);
4761: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, x_char);
4762: END IF;
4763:
4764: UPDATE fa_books
4765: SET global_attribute7 = fnd_number.number_to_canonical(x_deprn_to_cost)
4766: WHERE rowid = ad.book_rowid ;
4767:
4768: END LOOP;
5037: --Bug 4758713. Retrieves the original cost to verify if the asset has negative cost.
5038: BEGIN
5039: SELECT original_cost
5040: INTO l_original_cost
5041: FROM FA_BOOKS
5042: WHERE book_type_code = p_book_type_code
5043: AND asset_id = p_asset_id;
5044: EXCEPTION
5045: WHEN OTHERS THEN