[Home] [Help]
392: raise FND_API.G_EXC_UNEXPECTED_ERROR;
393: end if;
394:
395: --Check if impairment has been posted in current period.
396: if not FA_ASSET_VAL_PVT.validate_impairment_exists
397: (p_asset_id => l_asset_hdr_rec.asset_id,
398: p_book => l_asset_hdr_rec.book_type_code,
399: p_mrc_sob_type_code => 'P',
400: p_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
403: raise FND_API.G_EXC_ERROR;
404: end if;
405: /*phase5 This function will validate if current transaction is overlapping to any previously done impairment*/
406: /* Commenting out as a part of IFRS
407: if not FA_ASSET_VAL_PVT.check_overlapping_impairment(
408: p_trans_rec => l_trans_rec,
409: p_asset_hdr_rec => l_asset_hdr_rec ,
410: p_log_level_rec => g_log_level_rec) then
411:
410: p_log_level_rec => g_log_level_rec) then
411:
412: fa_srvr_msg.add_message
413: (name => 'FA_OVERLAPPING_IMP_NOT_ALLOWED',
414: calling_fn => 'FA_ASSET_VAL_PVT.check_overlapping_impairment'
415: ,p_log_level_rec => g_log_level_rec);
416:
417: raise FND_API.G_EXC_ERROR;
418: end if;
467: end if;
468:
469: if l_asset_hdr_rec.book_type_code is not null then
470:
471: if not FA_ASSET_VAL_PVT.check_overlapping_impairment(
472: p_trans_rec => l_trans_rec,
473: p_asset_hdr_rec => l_asset_hdr_rec ,
474: p_log_level_rec => g_log_level_rec) then
475:
474: p_log_level_rec => g_log_level_rec) then
475:
476: fa_srvr_msg.add_message
477: (name => 'FA_OVERLAPPING_IMP_NOT_ALLOWED',
478: calling_fn => 'FA_ASSET_VAL_PVT.check_overlapping_impairment'
479: ,p_log_level_rec => g_log_level_rec);
480:
481: raise FND_API.G_EXC_ERROR;
482: end if;
902: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'end calculation', '', p_log_level_rec => g_log_level_rec); end if;
903:
904: -- Fix for Bug #3187975. Do Polish rule validations.
905: -- Need to do this after transaction_type_code is derived.
906: if not FA_ASSET_VAL_PVT.validate_polish (
907: p_transaction_type_code => l_trans_rec.transaction_type_code,
908: p_method_code => l_asset_fin_rec.deprn_method_code,
909: p_life_in_months => l_asset_fin_rec.life_in_months,
910: p_asset_type => l_asset_type_rec.asset_type,
919: raise FND_API.G_EXC_ERROR;
920: end if;
921:
922: -- Bug 9916378
923: if not FA_ASSET_VAL_PVT.validate_prev_period_amort
924: (p_asset_hdr_rec => l_asset_hdr_rec,
925: p_trans_rec => l_trans_rec,
926: p_period_rec => l_period_rec,
927: p_asset_retire_rec => l_asset_retire_rec,
1009: fa_debug_pkg.add(l_calling_fn, 'entered loop for tax books', '', p_log_level_rec => g_log_level_rec);
1010: fa_debug_pkg.add(l_calling_fn, 'selected tax book: ', l_tax_book_tbl(l_tax_index));
1011: end if;
1012:
1013: if not FA_ASSET_VAL_PVT.validate_asset_book
1014: (p_transaction_type_code => px_trans_rec.transaction_type_code
1015: ,p_book_type_code => l_tax_book_tbl(l_tax_index)
1016: ,p_asset_id => px_asset_hdr_rec.asset_id
1017: ,p_calling_fn => l_calling_fn
1346:
1347: -- BUG# 4053626
1348: -- the above was incorrect interpretation - need to use absolute
1349:
1350: if FA_ASSET_VAL_PVT.validate_period_of_addition
1351: (p_asset_id => l_asset_hdr_rec.asset_id
1352: ,p_book => l_asset_hdr_rec.book_type_code
1353: ,p_mode => 'ABSOLUTE'
1354: ,px_period_of_addition => l_asset_hdr_rec.period_of_addition
1367:
1368: -- check if there is an add-to-asset transaction pending
1369: -- Users must post their mass additions before they can retire the asset
1370: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if there is an add-to-asset transaction pending', '', p_log_level_rec => p_log_level_rec); end if;
1371: if FA_ASSET_VAL_PVT.validate_add_to_asset_pending
1372: (p_asset_id => l_asset_hdr_rec.asset_id
1373: ,p_book => l_asset_hdr_rec.book_type_code
1374: , p_log_level_rec => p_log_level_rec) then
1375: -- Users must post their mass additions before they can retire the asset
1378: end if;
1379:
1380: -- check if another retirement/reinstatement already pending
1381: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if another retirement/reinstatement already pending', '', p_log_level_rec => p_log_level_rec); end if;
1382: if FA_ASSET_VAL_PVT.validate_ret_rst_pending
1383: (p_asset_id => l_asset_hdr_rec.asset_id
1384: ,p_book => l_asset_hdr_rec.book_type_code
1385: , p_log_level_rec => p_log_level_rec) then
1386: g_msg_name := 'FA_RET_PENDING_RETIREMENTS';
1388: end if;
1389:
1390: -- check if the asset has already been fully retired
1391: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if the asset is already fully retired', '', p_log_level_rec => p_log_level_rec); end if;
1392: if FA_ASSET_VAL_PVT.validate_fully_retired
1393: (p_asset_id => l_asset_hdr_rec.asset_id
1394: ,p_book => l_asset_hdr_rec.book_type_code
1395: , p_log_level_rec => p_log_level_rec) then
1396: g_msg_name := 'FA_REC_RETIRED';
1525: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1526: end if;
1527:
1528: /* Bug 8584206 */
1529: IF not FA_ASSET_VAL_PVT.validate_energy_transactions (
1530: p_trans_rec => l_trans_rec,
1531: p_asset_type_rec => p_asset_type_rec,
1532: p_asset_fin_rec_old => p_asset_fin_rec,
1533: p_asset_hdr_rec => p_asset_hdr_rec ,
2484: l_trans_rec.who_info.last_update_date := sysdate;
2485:
2486: -- Fix for Bug #3187975. Do Polish rule validations.
2487: -- Need to do this after transaction_type_code is derived.
2488: if not FA_ASSET_VAL_PVT.validate_polish (
2489: p_transaction_type_code => l_trans_rec.transaction_type_code,
2490: p_method_code => l_asset_fin_rec.deprn_method_code,
2491: p_life_in_months => l_asset_fin_rec.life_in_months,
2492: p_asset_type => l_asset_type_rec.asset_type,
3578: end if;
3579:
3580: for l_tax_index in 1..l_tax_book_tbl.count loop
3581:
3582: if not FA_ASSET_VAL_PVT.validate_asset_book
3583: (p_transaction_type_code => l_trans_rec.transaction_type_code
3584: ,p_book_type_code => l_tax_book_tbl(l_tax_index)
3585: ,p_asset_id => l_asset_hdr_rec.asset_id
3586: ,p_calling_fn => l_calling_fn
4662: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4663: end if;
4664:
4665: --Check if impairment has been posted in current period.
4666: if not FA_ASSET_VAL_PVT.validate_impairment_exists
4667: (p_asset_id => l_asset_hdr_rec.asset_id,
4668: p_book => l_asset_hdr_rec.book_type_code,
4669: p_mrc_sob_type_code => 'P',
4670: p_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4814: fa_debug_pkg.add(l_calling_fn, 'entered loop for tax books', '', p_log_level_rec => g_log_level_rec);
4815: fa_debug_pkg.add(l_calling_fn, 'selected tax book: ', l_tax_book_tbl(l_tax_index));
4816: end if;
4817:
4818: if not FA_ASSET_VAL_PVT.validate_asset_book
4819: (p_transaction_type_code => l_trans_rec.transaction_type_code
4820: ,p_book_type_code => l_tax_book_tbl(l_tax_index)
4821: ,p_asset_id => l_asset_hdr_rec.asset_id
4822: ,p_calling_fn => l_calling_fn
5066:
5067: -- check if there is an add-to-asset transaction pending
5068: -- Users must post their mass additions before they can retire the asset
5069: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if there is an add-to-asset transaction pending', '', p_log_level_rec => p_log_level_rec); end if;
5070: if FA_ASSET_VAL_PVT.validate_add_to_asset_pending
5071: (p_asset_id => l_asset_hdr_rec.asset_id
5072: ,p_book => l_asset_hdr_rec.book_type_code
5073: , p_log_level_rec => p_log_level_rec) then
5074: -- Users must post their mass additions before they can retire the asset
5077: end if;
5078:
5079: -- check if another retirement/reinstatement already pending
5080: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if another retirement/reinstatement already pending', '', p_log_level_rec => p_log_level_rec); end if;
5081: if FA_ASSET_VAL_PVT.validate_ret_rst_pending
5082: (p_asset_id => l_asset_hdr_rec.asset_id
5083: ,p_book => l_asset_hdr_rec.book_type_code
5084: , p_log_level_rec => p_log_level_rec) then
5085: g_msg_name := 'FA_SHARED_PENDING_RETIREMENT';
6072: fa_debug_pkg.add(l_calling_fn, 'entered loop for tax books', '', p_log_level_rec => g_log_level_rec);
6073: fa_debug_pkg.add(l_calling_fn, 'selected tax book: ', l_tax_book_tbl(l_tax_index));
6074: end if;
6075:
6076: if not FA_ASSET_VAL_PVT.validate_asset_book
6077: (p_transaction_type_code => l_trans_rec.transaction_type_code
6078: ,p_book_type_code => l_tax_book_tbl(l_tax_index)
6079: ,p_asset_id => l_asset_hdr_rec.asset_id
6080: ,p_calling_fn => l_calling_fn
6795: -- check if retirement type exists in fa_lookups if it is provided
6796: if l_validation_type=g_retirement then
6797: if l_asset_retire_rec.retirement_type_code is not null then
6798: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if retirement type exists in fa_lookups', '', p_log_level_rec => p_log_level_rec); end if;
6799: if not FA_ASSET_VAL_PVT.validate_fa_lookup_code
6800: (p_lookup_type => 'RETIREMENT'
6801: ,p_lookup_code => l_asset_retire_rec.retirement_type_code
6802: , p_log_level_rec => p_log_level_rec) then
6803: g_msg_name := null;
6829: end if;
6830:
6831: -- check if the trade-in asset exists in Oracle Assets
6832: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if trade_in_asset_id exists in Oracle Assets', '', p_log_level_rec => p_log_level_rec); end if;
6833: if not FA_ASSET_VAL_PVT.validate_asset_id_exist
6834: (p_asset_id => l_asset_hdr_rec.asset_id
6835: , p_log_level_rec => p_log_level_rec) then
6836: g_msg_name := 'FA_RET_TRADE_IN_NONEXISTENT';
6837: g_token1 := null;
7037:
7038: -- check if provided dist_id is valid
7039: if l_asset_dist_tbl(i).distribution_id is not null then
7040:
7041: if not FA_ASSET_VAL_PVT.validate_dist_id
7042: (p_asset_id => l_asset_hdr_rec.asset_id
7043: ,p_dist_id => l_asset_dist_tbl(i).distribution_id
7044: ,p_log_level_rec => p_log_level_rec
7045: ) then
7180: if l_validation_type = g_retirement then
7181:
7182: -- check if the asset has already been fully retired
7183: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if the asset is already fully retired', '', p_log_level_rec => p_log_level_rec); end if;
7184: if FA_ASSET_VAL_PVT.validate_fully_retired
7185: (p_asset_id => l_asset_hdr_rec.asset_id
7186: ,p_book => l_asset_hdr_rec.book_type_code
7187: , p_log_level_rec => p_log_level_rec) then
7188: g_msg_name := 'FA_REC_RETIRED';
7193: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if the asset in extended life', '', p_log_level_rec => p_log_level_rec); end if;
7194: --Bug#8941124
7195: --Added the check to restrict prior period retirement if in the same period of extended depreciation.
7196: /* Bug#13720470:Added check to restrict prior period retirement in poa for an extended asset */
7197: if not FA_ASSET_VAL_PVT.validate_period_of_addition
7198: (p_asset_id => l_asset_hdr_rec.asset_id
7199: ,p_book => l_asset_hdr_rec.book_type_code
7200: ,p_mode => 'ABSOLUTE'
7201: ,px_period_of_addition => l_asset_hdr_rec.period_of_addition
7330: /*Bug# 8527619 */
7331: if (l_asset_fin_rec.group_asset_id is not null) and
7332: (l_asset_retire_rec.recognize_gain_loss = 'NO') and
7333: (l_asset_fin_rec.over_depreciate_option = fa_std_types.FA_OVER_DEPR_NO) then
7334: if not FA_ASSET_VAL_PVT.validate_over_depreciation
7335: (p_asset_hdr_rec => l_asset_hdr_rec,
7336: p_asset_fin_rec => l_asset_fin_rec,
7337: p_validation_type => g_retirement,
7338: p_cost_adj => l_asset_retire_rec.cost_retired,
7380: end if;
7381:
7382: /*Bug# 8527619 */
7383: if l_asset_fin_rec.group_asset_id is not null then
7384: if not FA_ASSET_VAL_PVT.validate_over_depreciation
7385: (p_asset_hdr_rec => l_asset_hdr_rec,
7386: p_asset_fin_rec => l_asset_fin_rec,
7387: p_asset_retire_rec =>l_asset_retire_rec,
7388: p_validation_type => g_reinstatement,
7407: end if;
7408:
7409: if ( nvl(fa_cache_pkg.fazcdrd_record.rule_name,'ZZ') = 'ENERGY PERIOD END BALANCE' and
7410: nvl(l_asset_fin_rec.tracking_method, 'NO TRACK') = 'ALLOCATE') then
7411: if not FA_ASSET_VAL_PVT.validate_mbr_reins_possible
7412: (p_asset_retire_rec =>l_asset_retire_rec,
7413: p_asset_fin_rec => l_asset_fin_rec,
7414: p_log_level_rec => g_log_level_rec
7415: ) then
7439: | Instead, Gain/Loss must be run on the Corp book first |
7440: | and then you may reinstate the asset. |
7441: +---------------------------------------------------------------+*/
7442:
7443: if FA_ASSET_VAL_PVT.validate_corp_pending_ret
7444: (p_asset_id => l_asset_hdr_rec.asset_id
7445: ,p_book => l_asset_hdr_rec.book_type_code
7446: ,p_transaction_header_id_in => lv_asset_retire_rec.detail_info.transaction_header_id_in
7447: , p_log_level_rec => p_log_level_rec) then