[Home] [Help]
353: -- l_mc_source_flag := fa_cache_pkg.fazcbc_record.mc_source_flag;
354:
355: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
356:
357: fnd_profile.get('GL_SET_OF_BKS_ID',g_orig_set_of_books_id);
358: g_orig_currency_context := substrb(userenv('CLIENT_INFO'),45,10);
359:
360: -- get the book type code P,R or N
361: if not fa_cache_pkg.fazcsob
382: -- *********************************
383: -- populate rec_types that were not provided by users
384:
385: -- set the sob_id and currency context
386: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
387: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
388:
389: -- BUG# 2376085, 2487707
390: -- store the sob_id value for later use.
387: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
388:
389: -- BUG# 2376085, 2487707
390: -- store the sob_id value for later use.
391: fnd_profile.get ('GL_SET_OF_BKS_ID',l_orig_set_of_books_id);
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;
805: px_asset_retire_rec := l_asset_retire_rec;
806:
807: -- BUG# 2376085, 2487707
808: -- reset GL sob id to original value before moving to next book
809: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
810: fnd_client_info.set_currency_context (l_orig_currency_context);
811:
812: /* if book is a corporate book, process cip assets and autocopy */
813:
894:
895:
896: -- BUG# 2376085, 2487707
897: -- reset GL sob id to original value before moving to next book
898: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
899: fnd_client_info.set_currency_context (l_orig_currency_context);
900:
901: end if;
902:
968: ,p_data => x_msg_data
969: );
970:
971: -- set back to original environment when the procedure is finished
972: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
973: fnd_client_info.set_currency_context (g_orig_currency_context);
974:
975: -- return the status.
976: x_return_status := FND_API.G_RET_STS_SUCCESS;
998: FND_MSG_PUB.count_and_get(p_count => x_msg_count
999: ,p_data => x_msg_data
1000: );
1001: -- set back to original environment when the procedure is finished
1002: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
1003: fnd_client_info.set_currency_context (g_orig_currency_context);
1004:
1005: when FND_API.G_EXC_UNEXPECTED_ERROR then
1006:
1013: FND_MSG_PUB.count_and_get(p_count => x_msg_count
1014: ,p_data => x_msg_data
1015: );
1016: -- set back to original environment when the procedure is finished
1017: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
1018: fnd_client_info.set_currency_context (g_orig_currency_context);
1019:
1020: when others then
1021:
1028: FND_MSG_PUB.count_and_get(p_count => x_msg_count
1029: ,p_data => x_msg_data
1030: );
1031: -- set back to original environment when the procedure is finished
1032: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
1033: fnd_client_info.set_currency_context (g_orig_currency_context);
1034:
1035: END do_retirement;
1036:
1133:
1134: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
1135:
1136: -- set the sob_id and currency context
1137: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
1138: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
1139:
1140: -- pop asset_fin_rec
1141: -- get fa_books row where transaction_header_id_out is null
1534:
1535: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec); end if;
1536:
1537: -- set the sob_id and currency context for reporting book(sob)
1538: fnd_profile.put('GL_SET_OF_BKS_ID', l_sob_tbl(l_sob_index));
1539: fnd_client_info.set_currency_context(to_char(l_sob_tbl(l_sob_index)));
1540:
1541: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code
1542: ,p_log_level_rec => p_log_level_rec) then
1672: -- ** Pop local rec types
1673: -- ***************************
1674:
1675: -- set the sob_id and currency context
1676: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
1677: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
1678:
1679: -- pop asset_fin_rec
1680: -- get fa_books row where transaction_header_id_out is null
3180: -- ** Call the cache for book
3181: -- ** and do initial MRC validation
3182: -- ***********************************
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,
3233:
3234: end if; -- book_type_code
3235:
3236: -- set the sob_id and currency context
3237: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
3238: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
3239:
3240: -- BUG# 2376085, 2487707
3241: -- store the sob_id value for later use.
3238: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
3239:
3240: -- BUG# 2376085, 2487707
3241: -- store the sob_id value for later use.
3242: fnd_profile.get ('GL_SET_OF_BKS_ID',l_orig_set_of_books_id);
3243: l_orig_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
3244:
3245: -- *********************************************
3246: -- ** Do basic validation on input parameters
3285: end if;
3286:
3287: -- BUG# 2376085, 2487707
3288: -- reset GL sob id to original value before moving to next book
3289: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
3290: fnd_client_info.set_currency_context (l_orig_currency_context);
3291:
3292: /* if book is a corporate book, process cip assets and autocopy */
3293:
3344: end if;
3345:
3346: -- BUG# 2376085, 2487707
3347: -- reset GL sob id to original value before moving to next book
3348: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
3349: fnd_client_info.set_currency_context (l_orig_currency_context);
3350:
3351: end if;
3352:
3368: ,p_data => x_msg_data
3369: );
3370:
3371: -- set back to original environment when the procedure is finished
3372: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
3373: fnd_client_info.set_currency_context (g_orig_currency_context);
3374:
3375: -- return the status.
3376: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398: FND_MSG_PUB.count_and_get(p_count => x_msg_count
3399: ,p_data => x_msg_data
3400: );
3401: -- set back to original environment when the procedure is finished
3402: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
3403: fnd_client_info.set_currency_context (g_orig_currency_context);
3404:
3405: when FND_API.G_EXC_UNEXPECTED_ERROR then
3406:
3413: FND_MSG_PUB.count_and_get(p_count => x_msg_count
3414: ,p_data => x_msg_data
3415: );
3416: -- set back to original environment when the procedure is finished
3417: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
3418: fnd_client_info.set_currency_context (g_orig_currency_context);
3419:
3420: when others then
3421:
3428: FND_MSG_PUB.count_and_get(p_count => x_msg_count
3429: ,p_data => x_msg_data
3430: );
3431: -- set back to original environment when the procedure is finished
3432: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
3433: fnd_client_info.set_currency_context (g_orig_currency_context);
3434:
3435:
3436: END undo_retirement;
3513: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
3514:
3515:
3516: -- set the sob_id and currency context
3517: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
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;
3583:
3584: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec); end if;
3585:
3586: -- set the sob_id and currency context for reporting book(sob)
3587: fnd_profile.put('GL_SET_OF_BKS_ID', sob_rec.sob_id);
3588: fnd_client_info.set_currency_context(to_char(sob_rec.sob_id));
3589:
3590: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
3591:
4300: -- ***********************************
4301:
4302: if l_asset_hdr_rec.book_type_code is not null then
4303:
4304: fnd_profile.get('GL_SET_OF_BKS_ID',g_orig_set_of_books_id);
4305: g_orig_currency_context := substrb(userenv('CLIENT_INFO'),45,10);
4306:
4307: -- call the cache for the primary transaction book
4308: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code
4317:
4318: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
4319:
4320: -- set the sob_id and currency context
4321: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
4322: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
4323:
4324: -- BUG# 2376085, 2487707
4325: -- store the sob_id value for later use.
4322: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
4323:
4324: -- BUG# 2376085, 2487707
4325: -- store the sob_id value for later use.
4326: fnd_profile.get ('GL_SET_OF_BKS_ID',l_orig_set_of_books_id);
4327: l_orig_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
4328:
4329: -- get the book type code P,R or N
4330: if not fa_cache_pkg.fazcsob
4446:
4447:
4448: -- BUG# 2376085, 2487707
4449: -- reset GL sob id to original value before moving to next book
4450: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
4451: fnd_client_info.set_currency_context (l_orig_currency_context);
4452:
4453:
4454: /* if book is a corporate book, process cip assets and autocopy */
4532:
4533:
4534: -- BUG# 2376085, 2487707
4535: -- reset GL sob id to original value before moving to next book
4536: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
4537: fnd_client_info.set_currency_context (l_orig_currency_context);
4538:
4539: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed do_all_books_reinstatement for tax book', '', g_log_level_rec); end if;
4540: end if;
4570: ,p_data => x_msg_data
4571: );
4572:
4573: -- set back to original environment when the procedure is finished
4574: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
4575: fnd_client_info.set_currency_context (g_orig_currency_context);
4576:
4577: -- return the status.
4578: x_return_status := FND_API.G_RET_STS_SUCCESS;
4600: FND_MSG_PUB.count_and_get(p_count => x_msg_count
4601: ,p_data => x_msg_data
4602: );
4603: -- set back to original environment when the procedure is finished
4604: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
4605: fnd_client_info.set_currency_context (g_orig_currency_context);
4606:
4607: when FND_API.G_EXC_UNEXPECTED_ERROR then
4608:
4615: FND_MSG_PUB.count_and_get(p_count => x_msg_count
4616: ,p_data => x_msg_data
4617: );
4618: -- set back to original environment when the procedure is finished
4619: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
4620: fnd_client_info.set_currency_context (g_orig_currency_context);
4621:
4622: when others then
4623:
4630: FND_MSG_PUB.count_and_get(p_count => x_msg_count
4631: ,p_data => x_msg_data
4632: );
4633: -- set back to original environment when the procedure is finished
4634: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
4635: fnd_client_info.set_currency_context (g_orig_currency_context);
4636:
4637:
4638: END do_reinstatement;
4721:
4722: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
4723:
4724: -- set the sob_id and currency context
4725: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
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;
4840:
4841: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec); end if;
4842:
4843: -- set the sob_id and currency context for reporting book(sob)
4844: fnd_profile.put('GL_SET_OF_BKS_ID', sob_rec.sob_id);
4845: fnd_client_info.set_currency_context(to_char(sob_rec.sob_id));
4846:
4847: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
4848:
5010: -- ** Pop local rec types
5011: -- ***************************
5012:
5013: -- set the sob_id and currency context
5014: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
5015: fnd_client_info.set_currency_context(to_char(l_asset_hdr_rec.set_of_books_id));
5016:
5017: -- pop asset_fin_rec
5018: -- get fa_books row where transaction_header_id_out is null
5598: -- ** Call the cache for book
5599: -- ** and do initial MRC validation
5600: -- ***********************************
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,
5621: end if;
5622:
5623: if l_asset_hdr_rec.book_type_code is not null then
5624:
5625: fnd_profile.get('GL_SET_OF_BKS_ID',g_orig_set_of_books_id);
5626: g_orig_currency_context := substrb(userenv('CLIENT_INFO'),45,10);
5627:
5628: -- call the cache for the primary transaction book
5629: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code
5634: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
5635: lv_asset_hdr_rec := l_asset_hdr_rec;
5636:
5637: -- set the sob_id and currency context
5638: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
5639: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
5640:
5641: -- BUG# 2376085, 2487707
5642: -- store the sob_id value for later use.
5639: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
5640:
5641: -- BUG# 2376085, 2487707
5642: -- store the sob_id value for later use.
5643: fnd_profile.get ('GL_SET_OF_BKS_ID',l_orig_set_of_books_id);
5644: l_orig_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
5645:
5646: -- get the book type code P,R or N
5647: if not fa_cache_pkg.fazcsob
5663:
5664: end if; -- book_type_code
5665:
5666: -- set the sob_id and currency context
5667: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
5668: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
5669:
5670: -- BUG# 2376085, 2487707
5671: -- store the sob_id value for later use.
5668: fnd_client_info.set_currency_context (to_char(l_asset_hdr_rec.set_of_books_id));
5669:
5670: -- BUG# 2376085, 2487707
5671: -- store the sob_id value for later use.
5672: fnd_profile.get ('GL_SET_OF_BKS_ID',l_orig_set_of_books_id);
5673: l_orig_currency_context := SUBSTRB(USERENV('CLIENT_INFO'),45,10);
5674:
5675: -- *********************************************
5676: -- ** Do basic validation on input parameters
5706: end if;
5707:
5708: -- BUG# 2376085, 2487707
5709: -- reset GL sob id to original value before moving to next book
5710: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
5711: fnd_client_info.set_currency_context (l_orig_currency_context);
5712:
5713: /* if book is a corporate book, process cip assets and autocopy */
5714:
5774: end if;
5775:
5776: -- BUG# 2376085, 2487707
5777: -- reset GL sob id to original value before moving to next book
5778: fnd_profile.put('GL_SET_OF_BKS_ID', l_orig_set_of_books_id);
5779: fnd_client_info.set_currency_context (l_orig_currency_context);
5780:
5781: end if;
5782:
5798: ,p_data => x_msg_data
5799: );
5800:
5801: -- set back to original environment when the procedure is finished
5802: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
5803: fnd_client_info.set_currency_context (g_orig_currency_context);
5804:
5805: -- return the status.
5806: x_return_status := FND_API.G_RET_STS_SUCCESS;
5828: FND_MSG_PUB.count_and_get(p_count => x_msg_count
5829: ,p_data => x_msg_data
5830: );
5831: -- set back to original environment when the procedure is finished
5832: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
5833: fnd_client_info.set_currency_context (g_orig_currency_context);
5834:
5835: when FND_API.G_EXC_UNEXPECTED_ERROR then
5836:
5843: FND_MSG_PUB.count_and_get(p_count => x_msg_count
5844: ,p_data => x_msg_data
5845: );
5846: -- set back to original environment when the procedure is finished
5847: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
5848: fnd_client_info.set_currency_context (g_orig_currency_context);
5849:
5850: when others then
5851:
5858: FND_MSG_PUB.count_and_get(p_count => x_msg_count
5859: ,p_data => x_msg_data
5860: );
5861: -- set back to original environment when the procedure is finished
5862: fnd_profile.put('GL_SET_OF_BKS_ID', g_orig_set_of_books_id);
5863: fnd_client_info.set_currency_context (g_orig_currency_context);
5864:
5865: END undo_reinstatement;
5866: ----------------------------------------------------
5939:
5940: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
5941:
5942: -- set the sob_id and currency context
5943: fnd_profile.put('GL_SET_OF_BKS_ID', l_asset_hdr_rec.set_of_books_id);
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;
6008:
6009: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec); end if;
6010:
6011: -- set the sob_id and currency context for reporting book(sob)
6012: fnd_profile.put('GL_SET_OF_BKS_ID', sob_rec.sob_id);
6013: fnd_client_info.set_currency_context(to_char(sob_rec.sob_id));
6014:
6015: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
6016: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code
6387: end if;
6388:
6389: -- check if asset is attached to hierarchy and see if it can
6390: -- be override to proceed with normal partial unit retirement
6391: if (nvl(fnd_profile.value('CRL-FA ENABLED'), 'N') = 'Y') then
6392: if (not fa_cua_asset_APIS.check_override_allowed(
6393: p_attribute_name => 'DISTRIBUTION',
6394: p_book_type_code => l_asset_hdr_rec.book_type_code,
6395: p_asset_id => l_asset_hdr_rec.asset_id,