[Home] [Help]
392: l_orig_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
393:
394: -- pop asset_desc_rec
395: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_desc_rec', '', g_log_level_rec); end if;
396: if not FA_UTIL_PVT.get_asset_desc_rec
397: (p_asset_hdr_rec => l_asset_hdr_rec
398: ,px_asset_desc_rec => l_asset_desc_rec
399: ,p_log_level_rec => g_log_level_rec) then
400: raise FND_API.G_EXC_UNEXPECTED_ERROR;
401: end if;
402:
403: -- pop asset_type_rec
404: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_type_rec', '', g_log_level_rec); end if;
405: if not FA_UTIL_PVT.get_asset_type_rec
406: (p_asset_hdr_rec => l_asset_hdr_rec
407: ,px_asset_type_rec => l_asset_type_rec
408: ,p_date_effective => NULL
409: ,p_log_level_rec => g_log_level_rec) then
412:
413: -- pop asset_fin_rec
414: -- get fa_books row where transaction_header_id_out is null
415: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', g_log_level_rec); end if;
416: if not FA_UTIL_PVT.get_asset_fin_rec
417: (p_asset_hdr_rec => l_asset_hdr_rec
418: ,px_asset_fin_rec => l_asset_fin_rec
419: ,p_transaction_header_id => NULL
420: ,p_mrc_sob_type_code => 'P'
423: end if;
424:
425: -- pop current period_rec info
426: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', g_log_level_rec); end if;
427: if not FA_UTIL_PVT.get_period_rec
428: (p_book => l_asset_hdr_rec.book_type_code
429: ,x_period_rec => l_period_rec
430: ,p_log_level_rec => g_log_level_rec) then
431: raise FND_API.G_EXC_UNEXPECTED_ERROR;
437: -- to make sure that the current_units
438: -- of asset_desc_rec is correct.
439: -- => this call shouldn't be necessary
440: -- if asset_desc_rec.current_units always reflects current units.
441: if not FA_UTIL_PVT.get_current_units
442: (p_calling_fn => l_calling_fn
443: ,p_asset_id => l_asset_hdr_rec.asset_id
444: ,x_current_units => l_asset_desc_rec.current_units
445: ,p_log_level_rec => g_log_level_rec) then
532: if (nvl(l_inv_tbl.last, 0) > 0) then
533:
534: -- Populate asset_cat_rec
535: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', g_log_level_rec); end if;
536: if not FA_UTIL_PVT.get_asset_cat_rec (
537: p_asset_hdr_rec => l_asset_hdr_rec,
538: px_asset_cat_rec => l_asset_cat_rec,
539: p_date_effective => NULL,
540: p_log_level_rec => g_log_level_rec) then
1139:
1140: -- pop asset_fin_rec
1141: -- get fa_books row where transaction_header_id_out is null
1142: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec); end if;
1143: if not FA_UTIL_PVT.get_asset_fin_rec
1144: (p_asset_hdr_rec => l_asset_hdr_rec
1145: ,px_asset_fin_rec => l_asset_fin_rec
1146: ,p_transaction_header_id => NULL
1147: ,p_mrc_sob_type_code => 'P'
1150: end if;
1151:
1152: -- pop current period_rec info
1153: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec); end if;
1154: if not FA_UTIL_PVT.get_period_rec
1155: (p_book => l_asset_hdr_rec.book_type_code
1156: ,p_effective_date => NULL
1157: ,x_period_rec => l_period_rec
1158: ,p_log_level_rec => p_log_level_rec) then
1243: if l_asset_retire_rec.date_retired is not null then
1244:
1245: -- no transactions except Retirements and Reinstatements may be
1246: -- dated after the latest trx date
1247: if not FA_UTIL_PVT.get_latest_trans_date
1248: (p_calling_fn => l_calling_fn
1249: ,p_asset_id => l_asset_hdr_rec.asset_id
1250: ,p_book => l_asset_hdr_rec.book_type_code
1251: ,x_latest_trans_date => l_latest_trans_date
1678:
1679: -- pop asset_fin_rec
1680: -- get fa_books row where transaction_header_id_out is null
1681: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec); end if;
1682: if not FA_UTIL_PVT.get_asset_fin_rec
1683: (p_asset_hdr_rec => l_asset_hdr_rec
1684: ,px_asset_fin_rec => l_asset_fin_mrc_rec
1685: ,p_transaction_header_id => NULL
1686: ,p_mrc_sob_type_code => p_mrc_sob_type_code
1690: end if;
1691:
1692: -- pop asset_cat_rec
1693: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', p_log_level_rec); end if;
1694: if not FA_UTIL_PVT.get_asset_cat_rec
1695: (p_asset_hdr_rec => l_asset_hdr_rec
1696: ,px_asset_cat_rec => l_asset_cat_rec
1697: ,p_date_effective => NULL
1698: ,p_log_level_rec => p_log_level_rec) then
2208:
2209: -- pop asset_fin_rec
2210: -- get fa_books row where transaction_header_id_out is null
2211: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec); end if;
2212: if not FA_UTIL_PVT.get_asset_fin_rec
2213: (p_asset_hdr_rec => l_asset_hdr_rec,
2214: px_asset_fin_rec => l_asset_fin_rec,
2215: p_transaction_header_id => NULL,
2216: p_mrc_sob_type_code => p_mrc_sob_type_code
2217: ,p_log_level_rec => p_log_level_rec) then
2218: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2219: end if;
2220:
2221: if not FA_UTIL_PVT.get_asset_type_rec
2222: (p_asset_hdr_rec => l_asset_hdr_rec,
2223: px_asset_type_rec => l_asset_type_rec
2224: ,p_log_level_rec => p_log_level_rec) then
2225: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2603: nvl(l_asset_retire_rec.eofy_reserve, 0);
2604: end if;
2605:
2606: -- Get asset_deprn_rec for Depreciable Basis Rule
2607: if (not FA_UTIL_PVT.get_asset_deprn_rec (
2608: p_asset_hdr_rec => l_asset_hdr_rec,
2609: px_asset_deprn_rec => l_asset_deprn_rec,
2610: p_period_counter => l_period_rec.period_counter,
2611: p_mrc_sob_type_code => p_mrc_sob_type_code
3183:
3184: fnd_profile.get('GL_SET_OF_BKS_ID',g_orig_set_of_books_id);
3185: g_orig_currency_context := substrb(userenv('CLIENT_INFO'),45,10);
3186:
3187: if not FA_UTIL_PVT.get_asset_retire_rec
3188: (px_asset_retire_rec => l_asset_retire_rec,
3189: p_mrc_sob_type_code => 'P'
3190: ,p_log_level_rec => g_log_level_rec) then
3191: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3193:
3194: l_asset_hdr_rec.asset_id := l_asset_retire_rec.detail_info.asset_id;
3195: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
3196:
3197: if not FA_UTIL_PVT.get_asset_type_rec
3198: (p_asset_hdr_rec => l_asset_hdr_rec
3199: ,px_asset_type_rec => l_asset_type_rec
3200: ,p_date_effective => NULL
3201: ,p_log_level_rec => g_log_level_rec) then
3493: -- *********************************
3494: -- populate rec_types that were not provided by users
3495:
3496: -- pop asset_retire_rec to get the rowid of retirement
3497: if not FA_UTIL_PVT.get_asset_retire_rec
3498: (px_asset_retire_rec => l_asset_retire_rec,
3499: p_mrc_sob_type_code => 'P'
3500: ,p_log_level_rec => p_log_level_rec) then
3501: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3518: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
3519:
3520: -- pop current period_rec info
3521: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec); end if;
3522: if not FA_UTIL_PVT.get_period_rec
3523: (p_book => l_asset_hdr_rec.book_type_code
3524: ,p_effective_date => NULL
3525: ,x_period_rec => l_period_rec
3526: ,p_log_level_rec => p_log_level_rec) then
3718: l_asset_hdr_rec := p_asset_hdr_rec;
3719: l_asset_retire_rec := px_asset_retire_rec;
3720:
3721: -- pop asset_retire_rec to get the rowid of retirement
3722: if not FA_UTIL_PVT.get_asset_retire_rec
3723: (px_asset_retire_rec => l_asset_retire_rec,
3724: p_mrc_sob_type_code => p_mrc_sob_type_code
3725: ,p_log_level_rec => p_log_level_rec) then
3726: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3730: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
3731:
3732: -- pop asset_desc_rec
3733: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_desc_rec', '', p_log_level_rec); end if;
3734: if not FA_UTIL_PVT.get_asset_desc_rec
3735: (p_asset_hdr_rec => l_asset_hdr_rec
3736: ,px_asset_desc_rec => l_asset_desc_rec
3737: ,p_log_level_rec => p_log_level_rec) then
3738: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3740:
3741: -- pop asset_fin_rec
3742: -- get fa_books row where transaction_header_id_out is null
3743: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec); end if;
3744: if not FA_UTIL_PVT.get_asset_fin_rec
3745: (p_asset_hdr_rec => l_asset_hdr_rec
3746: ,px_asset_fin_rec => l_asset_fin_rec
3747: ,p_transaction_header_id => NULL
3748: ,p_mrc_sob_type_code => p_mrc_sob_type_code
3827: CLOSE get_cost_before_ret;
3828:
3829: /* bug 5489382: commented following code as it was giving current units instead of old units
3830: -- added for Bug# 5098320 get the current units of the asset from fa_asset_history table
3831: if not FA_UTIL_PVT.get_current_units
3832: (p_calling_fn => l_calling_fn
3833: ,p_asset_id => l_asset_hdr_rec.asset_id
3834: ,x_current_units => l_old_units
3835: ) then
4257: -- *********************************
4258:
4259: -- pop asset_retire_rec to get the rowid of retirement
4260: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_retire_rec', '', g_log_level_rec); end if;
4261: if not FA_UTIL_PVT.get_asset_retire_rec
4262: (px_asset_retire_rec => l_asset_retire_rec,
4263: p_mrc_sob_type_code => 'P'
4264: ,p_log_level_rec => g_log_level_rec) then
4265: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4350: if g_log_level_rec.statement_level then
4351: fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', g_log_level_rec);
4352: fa_debug_pkg.add(l_calling_fn, 'book:', l_asset_retire_rec.detail_info.book_type_code, g_log_level_rec);
4353: end if;
4354: if not FA_UTIL_PVT.get_period_rec
4355: (p_book => l_asset_hdr_rec.book_type_code
4356: ,p_effective_date => NULL
4357: ,x_period_rec => l_period_rec
4358: ,p_log_level_rec => g_log_level_rec) then
4362: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed pop period_rec', '', g_log_level_rec); end if;
4363:
4364: -- pop asset_type_rec
4365: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_type_rec', '', g_log_level_rec); end if;
4366: if not FA_UTIL_PVT.get_asset_type_rec
4367: (p_asset_hdr_rec => l_asset_hdr_rec
4368: ,px_asset_type_rec => l_asset_type_rec
4369: ,p_date_effective => NULL
4370: ,p_log_level_rec => g_log_level_rec) then
4726: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
4727:
4728: -- pop current period_rec info
4729: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec); end if;
4730: if not FA_UTIL_PVT.get_period_rec
4731: (p_book => l_asset_hdr_rec.book_type_code
4732: ,p_effective_date => NULL
4733: ,x_period_rec => l_period_rec
4734: ,p_log_level_rec => p_log_level_rec) then
4769: if l_asset_retire_rec.date_retired is not null then
4770:
4771: -- no transactions except Retirements and Reinstatements may be
4772: -- dated after the latest trx date
4773: if not FA_UTIL_PVT.get_latest_trans_date
4774: (p_calling_fn => l_calling_fn
4775: ,p_asset_id => l_asset_hdr_rec.asset_id
4776: ,p_book => l_asset_hdr_rec.book_type_code
4777: ,x_latest_trans_date => l_latest_trans_date
5016:
5017: -- pop asset_fin_rec
5018: -- get fa_books row where transaction_header_id_out is null
5019: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec); end if;
5020: if not FA_UTIL_PVT.get_asset_fin_rec
5021: (p_asset_hdr_rec => l_asset_hdr_rec
5022: ,px_asset_fin_rec => l_asset_fin_rec
5023: ,p_transaction_header_id => NULL
5024: ,p_mrc_sob_type_code => p_mrc_sob_type_code
5027: end if;
5028:
5029: -- pop asset_retire_rec
5030: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_retire_rec', '', p_log_level_rec); end if;
5031: if not FA_UTIL_PVT.get_asset_retire_rec
5032: (px_asset_retire_rec => l_asset_retire_rec,
5033: p_mrc_sob_type_code => p_mrc_sob_type_code
5034: ,p_log_level_rec => p_log_level_rec) then
5035: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5036: end if;
5037:
5038: -- pop asset_cat_rec
5039: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', p_log_level_rec); end if;
5040: if not FA_UTIL_PVT.get_asset_cat_rec
5041: (p_asset_hdr_rec => l_asset_hdr_rec
5042: ,px_asset_cat_rec => l_asset_cat_rec
5043: ,p_date_effective => NULL
5044: ,p_log_level_rec => p_log_level_rec) then
5601:
5602: fnd_profile.get('GL_SET_OF_BKS_ID',g_orig_set_of_books_id);
5603: g_orig_currency_context := substrb(userenv('CLIENT_INFO'),45,10);
5604:
5605: if not FA_UTIL_PVT.get_asset_retire_rec
5606: (px_asset_retire_rec => l_asset_retire_rec,
5607: p_mrc_sob_type_code => 'P'
5608: ,p_log_level_rec => g_log_level_rec) then
5609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5611:
5612: l_asset_hdr_rec.asset_id := l_asset_retire_rec.detail_info.asset_id;
5613: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
5614:
5615: if not FA_UTIL_PVT.get_asset_type_rec
5616: (p_asset_hdr_rec => l_asset_hdr_rec
5617: ,px_asset_type_rec => l_asset_type_rec
5618: ,p_date_effective => NULL
5619: ,p_log_level_rec => g_log_level_rec) then
5920: -- *********************************
5921: -- populate rec_types that were not provided by users
5922:
5923: -- pop asset_retire_rec to get the rowid of retirement
5924: if not FA_UTIL_PVT.get_asset_retire_rec
5925: (px_asset_retire_rec => l_asset_retire_rec,
5926: p_mrc_sob_type_code => 'P'
5927: ,p_log_level_rec => p_log_level_rec) then
5928: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5944: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
5945:
5946: -- pop current period_rec info
5947: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec); end if;
5948: if not FA_UTIL_PVT.get_period_rec
5949: (p_book => l_asset_hdr_rec.book_type_code
5950: ,p_effective_date => NULL
5951: ,x_period_rec => l_period_rec
5952: ,p_log_level_rec => p_log_level_rec) then
6090: l_asset_hdr_rec := p_asset_hdr_rec;
6091: l_asset_retire_rec := px_asset_retire_rec;
6092:
6093: -- pop local asset_retire_rec for retirement
6094: if not FA_UTIL_PVT.get_asset_retire_rec
6095: (px_asset_retire_rec => l_asset_retire_rec,
6096: p_mrc_sob_type_code => p_mrc_sob_type_code
6097: ,p_log_level_rec => p_log_level_rec) then
6098: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6492: raise FND_API.G_EXC_ERROR;
6493: end if;
6494:
6495: -- get the current units of the asset from fa_asset_history table
6496: if not FA_UTIL_PVT.get_current_units
6497: (p_calling_fn => l_calling_fn
6498: ,p_asset_id => l_asset_hdr_rec.asset_id
6499: ,x_current_units => l_asset_desc_rec.current_units
6500: ,p_log_level_rec => p_log_level_rec) then
6522: ,g_undo_retirement
6523: ,g_undo_reinstatement) then
6524: -- pop local asset_retire_rec for retirement
6525: lv_asset_retire_rec.retirement_id := l_asset_retire_rec.retirement_id;
6526: if not FA_UTIL_PVT.get_asset_retire_rec
6527: (px_asset_retire_rec => lv_asset_retire_rec,
6528: p_mrc_sob_type_code => 'P'
6529: ,p_log_level_rec => p_log_level_rec) then
6530: g_msg_name := null;
7036: if (nvl(l_inv_tbl.last, 0) > 0) then
7037: -- Populate asset_cat_rec
7038: -- Populating p_asset_cat_rec which may not be necessary since
7039: -- Invoice API seems not using it as of Feb 2002
7040: if not FA_UTIL_PVT.get_asset_cat_rec (
7041: p_asset_hdr_rec => px_asset_hdr_rec,
7042: px_asset_cat_rec => l_asset_cat_rec,
7043: p_date_effective => NULL
7044: ,p_log_level_rec => p_log_level_rec) then
7044: ,p_log_level_rec => p_log_level_rec) then
7045: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7046: end if;
7047:
7048: if not FA_UTIL_PVT.get_asset_type_rec (
7049: p_asset_hdr_rec => px_asset_hdr_rec,
7050: px_asset_type_rec => l_asset_type_rec,
7051: p_date_effective => NULL
7052: ,p_log_level_rec => p_log_level_rec) then