[Home] [Help]
296:
297: -- ****************************************************
298: -- ** API compatibility check and initialization
299: -- ****************************************************
300: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => g_log_level_rec); end if;
301:
302: -- check version of the API
303: -- standard call to check for API call compatibility.
304:
315: -- initialize error message stack.
316: fa_srvr_msg.init_server_message;
317:
318: -- initialize debug message stack.
319: fa_debug_pkg.initialize;
320: end if;
321:
322: -- override FA:PRINT_DEBUG profile option.
323: -- if (p_debug_flag = 'YES') then
320: end if;
321:
322: -- override FA:PRINT_DEBUG profile option.
323: -- if (p_debug_flag = 'YES') then
324: -- fa_debug_pkg.set_debug_flag;
325: -- end if;
326:
327: -- ****************************************************
328: -- ** Assign input parameters to local rec/tbl types
336: l_inv_tbl := p_inv_tbl;
337:
338: lv_asset_retire_rec := px_asset_retire_rec;
339:
340: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'ret_id1 ', l_retirement_id, p_log_level_rec => g_log_level_rec); end if;
341: -- ***********************************
342: -- ** Call the cache for book
343: -- ** and do initial MRC validation
344: -- ***********************************
356: -- common for all types
357: -- bug 1230315... adding FA_TRX_APPROVAL_PKG for all retirement
358: -- transactions
359:
360: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'call trx approval pkg - faxcat', '', p_log_level_rec => g_log_level_rec); end if;
361: l_ins_status := FA_TRX_APPROVAL_PKG.faxcat
362: (x_book => l_asset_hdr_rec.book_type_code
363: ,x_asset_id => l_asset_hdr_rec.asset_id
364: ,x_trx_type => 'PARTIAL UNIT RETIREMENT'
424: -- *********************************
425: -- populate rec_types that were not provided by users
426:
427: -- pop asset_desc_rec
428: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_desc_rec', '', p_log_level_rec => g_log_level_rec); end if;
429: if not FA_UTIL_PVT.get_asset_desc_rec
430: (p_asset_hdr_rec => l_asset_hdr_rec
431: ,px_asset_desc_rec => l_asset_desc_rec
432: , p_log_level_rec => g_log_level_rec) then
433: raise FND_API.G_EXC_UNEXPECTED_ERROR;
434: end if;
435:
436: -- pop asset_type_rec
437: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_type_rec', '', p_log_level_rec => g_log_level_rec); end if;
438: if not FA_UTIL_PVT.get_asset_type_rec
439: (p_asset_hdr_rec => l_asset_hdr_rec
440: ,px_asset_type_rec => l_asset_type_rec
441: ,p_date_effective => NULL
445:
446: /* Bug# 4663092: fyi: May not needed at this level */
447: -- pop asset_fin_rec
448: -- get fa_books row where transaction_header_id_out is null
449: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => g_log_level_rec); end if;
450: if not FA_UTIL_PVT.get_asset_fin_rec
451: (p_asset_hdr_rec => l_asset_hdr_rec
452: ,px_asset_fin_rec => l_asset_fin_rec
453: ,p_transaction_header_id => NULL
459: --Added for IFRS
460: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec.deprn_method_code,
461: l_asset_fin_rec.life_in_months, p_log_level_rec => g_log_level_rec)) then
462: if (g_log_level_rec.statement_level) then
463: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => g_log_level_rec);
464: end if;
465:
466: raise FND_API.G_EXC_UNEXPECTED_ERROR;
467: end if;
484: end if;
485: --Added for IFRS
486:
487: -- pop current period_rec info
488: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => g_log_level_rec); end if;
489: if not FA_UTIL_PVT.get_period_rec
490: (p_book => l_asset_hdr_rec.book_type_code
491: ,x_period_rec => l_period_rec
492: , p_log_level_rec => g_log_level_rec) then
511: -- *********************************************
512: -- ** Set default values unless provided
513: -- *********************************************
514: -- set default values unless provided
515: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'set default values unless provided', '', p_log_level_rec => g_log_level_rec); end if;
516:
517: -- default date_retired to the current period if it is null
518: if l_asset_retire_rec.date_retired is null then
519:
602: /*
603: * Call Invoice API to populate cost_retired in case of
604: * source line retirement.
605: */
606: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'l_inv_tbl.last: ', to_char(l_inv_tbl.last)); end if;
607:
608: if (nvl(l_inv_tbl.last, 0) > 0 ) then
609:
610: -- Populate asset_cat_rec
607:
608: if (nvl(l_inv_tbl.last, 0) > 0 ) then
609:
610: -- Populate asset_cat_rec
611: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', p_log_level_rec => g_log_level_rec); end if;
612: if not FA_UTIL_PVT.get_asset_cat_rec (
613: p_asset_hdr_rec => l_asset_hdr_rec,
614: px_asset_cat_rec => l_asset_cat_rec,
615: p_date_effective => NULL, p_log_level_rec => g_log_level_rec) then
635: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
636: p_calling_fn => l_calling_fn,
637: p_log_level_rec => g_log_level_rec) then
638: if g_log_level_rec.statement_level then
639: fa_debug_pkg.add(l_calling_fn, 'Error Calling FA_INVOICE_PVT.INVOICE_ENGINE', '', p_log_level_rec => g_log_level_rec);
640: fa_debug_pkg.add(l_calling_fn, 'SQLERRM: ', SQLERRM, p_log_level_rec => g_log_level_rec);
641: end if;
642: raise FND_API.G_EXC_UNEXPECTED_ERROR;
643: end if;
636: p_calling_fn => l_calling_fn,
637: p_log_level_rec => g_log_level_rec) then
638: if g_log_level_rec.statement_level then
639: fa_debug_pkg.add(l_calling_fn, 'Error Calling FA_INVOICE_PVT.INVOICE_ENGINE', '', p_log_level_rec => g_log_level_rec);
640: fa_debug_pkg.add(l_calling_fn, 'SQLERRM: ', SQLERRM, p_log_level_rec => g_log_level_rec);
641: end if;
642: raise FND_API.G_EXC_UNEXPECTED_ERROR;
643: end if;
644:
642: raise FND_API.G_EXC_UNEXPECTED_ERROR;
643: end if;
644:
645: if (g_log_level_rec.statement_level) then
646: FA_DEBUG_PKG.ADD (fname=>'FAPRETB.pls',
647: element=>'cost_retired',
648: value=> l_asset_retire_rec.cost_retired, p_log_level_rec => g_log_level_rec);
649: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
650: element=>'cost',
645: if (g_log_level_rec.statement_level) then
646: FA_DEBUG_PKG.ADD (fname=>'FAPRETB.pls',
647: element=>'cost_retired',
648: value=> l_asset_retire_rec.cost_retired, p_log_level_rec => g_log_level_rec);
649: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
650: element=>'cost',
651: value=> l_asset_fin_rec.cost, p_log_level_rec => g_log_level_rec);
652: end if;
653:
711: -- begin asset-level validation on transaction
712:
713: -- check if trx is partial retirement on CIP asset
714: if g_log_level_rec.statement_level then
715: fa_debug_pkg.add(l_calling_fn, 'begin asset-level validation on transaction', '', p_log_level_rec => g_log_level_rec);
716: fa_debug_pkg.add(l_calling_fn, 'check if trx is partial retirement on CIP asset', '', p_log_level_rec => g_log_level_rec);
717: end if;
718: if l_asset_retire_rec.units_retired is not null then
719:
712:
713: -- check if trx is partial retirement on CIP asset
714: if g_log_level_rec.statement_level then
715: fa_debug_pkg.add(l_calling_fn, 'begin asset-level validation on transaction', '', p_log_level_rec => g_log_level_rec);
716: fa_debug_pkg.add(l_calling_fn, 'check if trx is partial retirement on CIP asset', '', p_log_level_rec => g_log_level_rec);
717: end if;
718: if l_asset_retire_rec.units_retired is not null then
719:
720: -- can only fully retire CIP assets unless source line retirement
774: -- ***************************
775: -- ** Do basic calculation
776: -- ***************************
777: -- begin retirement-specific calculation
778: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin calculation', '', p_log_level_rec => g_log_level_rec); end if;
779:
780: if l_asset_retire_rec.units_retired is not null then
781:
782: -- derive cost_retired from units_retired
857: ,p_log_level_rec => g_log_level_rec) then
858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
859: end if;
860:
861: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'derived cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => g_log_level_rec); end if;
862:
863: if l_asset_retire_rec.units_retired = l_asset_desc_rec.current_units then
864: l_transaction_type := 'FULL RETIREMENT';
865: else
898:
899: l_asset_retire_rec.status := 'PENDING';
900:
901: -- end retirement-specific calculation
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 (
932: -- ***************************
933: -- ** Main
934: -- ***************************
935: if g_log_level_rec.statement_level then
936: fa_debug_pkg.add
937: (fname => l_calling_fn,
938: element => 'Entering corporate book',
939: value => '', p_log_level_rec => g_log_level_rec);
940: end if;
958:
959: l_retirement_id := l_asset_retire_rec.retirement_id;
960:
961: if g_log_level_rec.statement_level then
962: fa_debug_pkg.add
963: (fname => l_calling_fn,
964: element => 'Finished corporate book',
965: value => '', p_log_level_rec => g_log_level_rec);
966: end if;
981: if (l_asset_type_rec.asset_type = 'CIP'
982: or l_asset_type_rec.asset_type = 'CAPITALIZED') then
983:
984: if g_log_level_rec.statement_level then
985: fa_debug_pkg.add
986: (fname => l_calling_fn,
987: element => 'Asset type',
988: value => l_asset_type_rec.asset_type, p_log_level_rec => g_log_level_rec);
989: end if;
995: raise FND_API.G_EXC_UNEXPECTED_ERROR;
996: end if;
997:
998: if g_log_level_rec.statement_level then
999: fa_debug_pkg.add
1000: (fname => l_calling_fn,
1001: element => 'l_tax_book_tbl.count',
1002: value => l_tax_book_tbl.count, p_log_level_rec => g_log_level_rec);
1003: end if;
1005:
1006: for l_tax_index in 1..l_tax_book_tbl.count loop
1007:
1008: if g_log_level_rec.statement_level then
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
1006: for l_tax_index in 1..l_tax_book_tbl.count loop
1007:
1008: if g_log_level_rec.statement_level then
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
1035: lv_trans_rec.source_transaction_header_id := l_trans_rec.transaction_header_id;
1036: lv_trans_rec.transaction_header_id := null;
1037:
1038: if g_log_level_rec.statement_level then
1039: fa_debug_pkg.add(l_calling_fn, 'calling do_all_books_retirement for tax book', '', p_log_level_rec => g_log_level_rec);
1040: fa_debug_pkg.add
1041: (fname => l_calling_fn,
1042: element => 'In Tax-Book Loop For',
1043: value => lv_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec);
1036: lv_trans_rec.transaction_header_id := null;
1037:
1038: if g_log_level_rec.statement_level then
1039: fa_debug_pkg.add(l_calling_fn, 'calling do_all_books_retirement for tax book', '', p_log_level_rec => g_log_level_rec);
1040: fa_debug_pkg.add
1041: (fname => l_calling_fn,
1042: element => 'In Tax-Book Loop For',
1043: value => lv_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec);
1044: end if;
1069:
1070: end if; -- book_class
1071:
1072: if g_log_level_rec.statement_level then
1073: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.recognize_gain_loss',
1074: l_asset_retire_rec.recognize_gain_loss, g_log_level_rec);
1075: end if;
1076: IF (l_asset_fin_rec.group_asset_id is not null
1077: and l_asset_retire_rec.recognize_gain_loss = 'YES') THEN
1080:
1081: l_calculate_gain_loss_flag := l_asset_retire_rec.calculate_gain_loss;
1082:
1083: if g_log_level_rec.statement_level then
1084: fa_debug_pkg.add
1085: (fname => l_calling_fn,
1086: element => 'Check to see if calculate gain/loss has to be submitted',
1087: value => '', p_log_level_rec => g_log_level_rec);
1088: fa_debug_pkg.add(l_calling_fn, 'before calc gain/loss', '', p_log_level_rec => g_log_level_rec);
1084: fa_debug_pkg.add
1085: (fname => l_calling_fn,
1086: element => 'Check to see if calculate gain/loss has to be submitted',
1087: value => '', p_log_level_rec => g_log_level_rec);
1088: fa_debug_pkg.add(l_calling_fn, 'before calc gain/loss', '', p_log_level_rec => g_log_level_rec);
1089: end if;
1090:
1091: -- submit calculate_gain_loss programs if flag is set
1092:
1092:
1093: if l_calculate_gain_loss_flag = FND_API.G_TRUE then
1094:
1095: if g_log_level_rec.statement_level then
1096: fa_debug_pkg.add
1097: (fname => l_calling_fn,
1098: element => 'Running calculate gain/loss...',
1099: value => '', p_log_level_rec => g_log_level_rec);
1100: end if;
1099: value => '', p_log_level_rec => g_log_level_rec);
1100: end if;
1101:
1102: if g_log_level_rec.statement_level then
1103: fa_debug_pkg.add(l_calling_fn, 'ret_id:', l_retirement_id, p_log_level_rec => g_log_level_rec);
1104: fa_debug_pkg.add(l_calling_fn, 'submit calculate gain/loss program', '', p_log_level_rec => g_log_level_rec);
1105: end if;
1106: if not calculate_gain_loss
1107: (p_retirement_id => l_retirement_id
1100: end if;
1101:
1102: if g_log_level_rec.statement_level then
1103: fa_debug_pkg.add(l_calling_fn, 'ret_id:', l_retirement_id, p_log_level_rec => g_log_level_rec);
1104: fa_debug_pkg.add(l_calling_fn, 'submit calculate gain/loss program', '', p_log_level_rec => g_log_level_rec);
1105: end if;
1106: if not calculate_gain_loss
1107: (p_retirement_id => l_retirement_id
1108: ,p_mrc_sob_type_code => 'P'
1109: ,p_log_level_rec => g_log_level_rec
1110: ) then
1111: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1112: end if;
1113: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'right after calc gain/loss', '', p_log_level_rec => g_log_level_rec); end if;
1114:
1115: end if;
1116:
1117: -- call to workflow business event
1296: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
1297:
1298: -- pop asset_fin_rec
1299: -- get fa_books row where transaction_header_id_out is null
1300: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
1301: if not FA_UTIL_PVT.get_asset_fin_rec
1302: (p_asset_hdr_rec => l_asset_hdr_rec
1303: ,px_asset_fin_rec => l_asset_fin_rec
1304: ,p_transaction_header_id => NULL
1306: , p_log_level_rec => p_log_level_rec) then
1307: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1308: end if;
1309:
1310: fa_debug_pkg.add(l_calling_fn,'l_asset_fin_rec.recognize_gain_loss',l_asset_fin_rec.recognize_gain_loss,p_log_level_rec);
1311:
1312: /*Bug 8647381 - Defaulting Recognize_Gain_Loss if it is null. */
1313: if l_asset_retire_rec.recognize_gain_loss is null then
1314: l_asset_retire_rec.recognize_gain_loss := l_asset_fin_rec.recognize_gain_loss;
1315: end if;
1316:
1317:
1318: -- pop current period_rec info
1319: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => p_log_level_rec); end if;
1320: if not FA_UTIL_PVT.get_period_rec
1321: (p_book => l_asset_hdr_rec.book_type_code
1322: ,p_effective_date => NULL
1323: ,x_period_rec => l_period_rec
1329: -- ** Do asset/book-level validation on transaction
1330: -- ***************************************************
1331: -- begin asset/book-level validation on transaction
1332:
1333: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin asset/book-level validation on transaction', '', p_log_level_rec => p_log_level_rec); end if;
1334:
1335: -- check if the asset is in period of addition
1336: -- used CAPITALIZED as mode since the current FAXASSET form uses this logic
1337: -- We allow users to retire CIP assets. But we don't allow retirements
1338: -- in period of capitalization.
1339: -- The following mode 'CAPITALIZED' makes sure that the asset
1340: -- is neither in the period of addition nor in the period of capitalization.
1341: if p_log_level_rec.statement_level then
1342: fa_debug_pkg.add(l_calling_fn, 'check if the asset is in period of addition', '', p_log_level_rec => p_log_level_rec);
1343: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1344: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
1345: end if;
1346:
1339: -- The following mode 'CAPITALIZED' makes sure that the asset
1340: -- is neither in the period of addition nor in the period of capitalization.
1341: if p_log_level_rec.statement_level then
1342: fa_debug_pkg.add(l_calling_fn, 'check if the asset is in period of addition', '', p_log_level_rec => p_log_level_rec);
1343: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1344: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
1345: end if;
1346:
1347: -- BUG# 4053626
1340: -- is neither in the period of addition nor in the period of capitalization.
1341: if p_log_level_rec.statement_level then
1342: fa_debug_pkg.add(l_calling_fn, 'check if the asset is in period of addition', '', p_log_level_rec => p_log_level_rec);
1343: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1344: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
1345: end if;
1346:
1347: -- BUG# 4053626
1348: -- the above was incorrect interpretation - need to use absolute
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
1355: , p_log_level_rec => p_log_level_rec) then
1356: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'perid_of_addition_flag: ', l_asset_hdr_rec.period_of_addition, p_log_level_rec => p_log_level_rec); end if;
1357: if (l_asset_hdr_rec.period_of_addition = 'Y' and
1358: G_release = 11) then
1359: -- error out since retirement is not allowed in period of addition
1360: g_msg_name := 'FA_RET_CANT_RET_NONDEPRN';
1362: end if;
1363: else
1364: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1365: end if;
1366: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'perid_of_addition_flag: ', l_asset_hdr_rec.period_of_addition, p_log_level_rec => p_log_level_rec); end if;
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;
1366: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'perid_of_addition_flag: ', l_asset_hdr_rec.period_of_addition, p_log_level_rec => p_log_level_rec); end if;
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
1377: raise FND_API.G_EXC_ERROR;
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
1387: raise FND_API.G_EXC_ERROR;
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
1397: raise FND_API.G_EXC_ERROR;
1398: end if;
1399:
1400: -- check if date_retired is valid in terms of trx date
1401: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if date_retired is valid in terms of trx date', '', p_log_level_rec => p_log_level_rec); end if;
1402: if l_asset_retire_rec.date_retired is not null then
1403:
1404: -- no transactions except Retirements and Reinstatements may be
1405: -- dated after the latest trx date
1424: l_prorate_calendar := fa_cache_pkg.fazcbc_record.prorate_calendar;
1425: l_fiscal_year_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
1426:
1427: if p_log_level_rec.statement_level then
1428: fa_debug_pkg.add
1429: (fname => l_calling_fn,
1430: element => 'fa_cache_pkg.fazcbc_record.prorate_calendar',
1431: value => fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
1432: fa_debug_pkg.add
1428: fa_debug_pkg.add
1429: (fname => l_calling_fn,
1430: element => 'fa_cache_pkg.fazcbc_record.prorate_calendar',
1431: value => fa_cache_pkg.fazcbc_record.prorate_calendar, p_log_level_rec => p_log_level_rec);
1432: fa_debug_pkg.add
1433: (fname => l_calling_fn,
1434: element => 'l_asset_retire_rec.retirement_prorate_convention',
1435: value => l_asset_retire_rec.retirement_prorate_convention, p_log_level_rec => p_log_level_rec);
1436: end if;
1518:
1519: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec.deprn_method_code,
1520: l_asset_fin_rec.life_in_months, p_log_level_rec => p_log_level_rec)) then
1521: if (p_log_level_rec.statement_level) then
1522: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
1523: end if;
1524:
1525: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1526: end if;
1565: if abs(l_asset_retire_rec.cost_retired) > abs(l_asset_fin_rec.cost)
1566: or sign(l_asset_retire_rec.cost_retired) <> sign(l_asset_fin_rec.cost) then
1567:
1568: if (p_log_level_rec.statement_level) then
1569: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
1570: element=>'In error: cost_retired',
1571: value=> l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
1572: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
1573: element=>'In error: cost',
1568: if (p_log_level_rec.statement_level) then
1569: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
1570: element=>'In error: cost_retired',
1571: value=> l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
1572: FA_DEBUG_PKG.ADD (fname=>'do_all_book_retirement',
1573: element=>'In error: cost',
1574: value=> l_asset_fin_rec.cost, p_log_level_rec => p_log_level_rec);
1575: end if;
1576:
1645: -- ***************************
1646: -- ** Main
1647: -- ***************************
1648:
1649: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling do_sub_retirement for each book/sob', '', p_log_level_rec => p_log_level_rec); end if;
1650:
1651: if not do_sub_retirement
1652: (px_trans_rec => l_trans_rec
1653: ,px_dist_trans_rec => l_dist_trans_rec
1666: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1667: end if;
1668:
1669: if p_log_level_rec.statement_level then
1670: fa_debug_pkg.add(l_calling_fn, 'do_all_books_retirement: retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
1671: fa_debug_pkg.add(l_calling_fn, 'do_all_books_retirement: transaction_header_id: ', l_trans_rec.transaction_header_id, p_log_level_rec => p_log_level_rec);
1672: end if;
1673:
1674: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
1667: end if;
1668:
1669: if p_log_level_rec.statement_level then
1670: fa_debug_pkg.add(l_calling_fn, 'do_all_books_retirement: retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
1671: fa_debug_pkg.add(l_calling_fn, 'do_all_books_retirement: transaction_header_id: ', l_trans_rec.transaction_header_id, p_log_level_rec => p_log_level_rec);
1672: end if;
1673:
1674: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
1675: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1692: -- loop through each book starting with the primary and
1693: -- call sub routine for each
1694: for l_sob_index in 1..l_sob_tbl.count loop
1695:
1696: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec => p_log_level_rec); end if;
1697:
1698: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code,
1699: x_set_of_books_id => l_sob_tbl(l_sob_index),--l_asset_hdr_rec.set_of_books_id, Secondary Changes. Reporting SOB can be different from Primary
1700: p_log_level_rec => p_log_level_rec) then
1726: /*=================================================================
1727: Secondary Changes Start
1728: If primary and secondary sob_id is different then we need to
1729: create event for secondary ledger*/
1730: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_sob_tbl(l_sob_index) ', l_sob_tbl(l_sob_index), p_log_level_rec => p_log_level_rec); end if;
1731: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_asset_hdr_rec.set_of_books_id', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
1732:
1733: l_seondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(lv_asset_hdr_rec.book_type_code);
1734:
1727: Secondary Changes Start
1728: If primary and secondary sob_id is different then we need to
1729: create event for secondary ledger*/
1730: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_sob_tbl(l_sob_index) ', l_sob_tbl(l_sob_index), p_log_level_rec => p_log_level_rec); end if;
1731: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_asset_hdr_rec.set_of_books_id', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
1732:
1733: l_seondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(lv_asset_hdr_rec.book_type_code);
1734:
1735: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_seondary_sob_id ',l_seondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
1731: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_asset_hdr_rec.set_of_books_id', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
1732:
1733: l_seondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(lv_asset_hdr_rec.book_type_code);
1734:
1735: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_seondary_sob_id ',l_seondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
1736: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec lv_asset_hdr_rec.book_type_cod', lv_asset_hdr_rec.book_type_codE, p_log_level_rec => p_log_level_rec); end if;
1737: if(l_sob_tbl(l_sob_index) <> l_asset_hdr_rec.set_of_books_id)
1738: and (l_seondary_sob_id is not null)
1739: AND (l_seondary_sob_id = l_sob_tbl(l_sob_index))then
1732:
1733: l_seondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(lv_asset_hdr_rec.book_type_code);
1734:
1735: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec l_seondary_sob_id ',l_seondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
1736: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Before sec lv_asset_hdr_rec.book_type_cod', lv_asset_hdr_rec.book_type_codE, p_log_level_rec => p_log_level_rec); end if;
1737: if(l_sob_tbl(l_sob_index) <> l_asset_hdr_rec.set_of_books_id)
1738: and (l_seondary_sob_id is not null)
1739: AND (l_seondary_sob_id = l_sob_tbl(l_sob_index))then
1740: l_secondary_asset_hdr_rec := lv_asset_hdr_rec;
1755: end loop;
1756:
1757: end if;
1758:
1759: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do_all_books_retirement: retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec); end if;
1760: -- px_asset_retire_rec := l_asset_retire_rec;
1761: px_asset_retire_rec.retirement_id := l_asset_retire_rec.retirement_id;
1762: px_trans_rec := l_trans_rec;
1763: px_dist_trans_rec := l_dist_trans_rec;
1835:
1836: BEGIN
1837:
1838:
1839: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
1840: -- ****************************************************
1841: -- ** Assign input parameters to local rec/tbl types
1842: -- ****************************************************
1843: l_trans_rec := px_trans_rec;
1858: -- ***************************
1859:
1860: -- pop asset_fin_rec
1861: -- get fa_books row where transaction_header_id_out is null
1862: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
1863: if not FA_UTIL_PVT.get_asset_fin_rec
1864: (p_asset_hdr_rec => l_asset_hdr_rec
1865: ,px_asset_fin_rec => l_asset_fin_mrc_rec
1866: ,p_transaction_header_id => NULL
1869: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1870: end if;
1871:
1872: -- pop asset_cat_rec
1873: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', p_log_level_rec => p_log_level_rec); end if;
1874: if not FA_UTIL_PVT.get_asset_cat_rec
1875: (p_asset_hdr_rec => l_asset_hdr_rec
1876: ,px_asset_cat_rec => l_asset_cat_rec
1877: ,p_date_effective => NULL
1980: end if;
1981:
1982: /* Bug#4663092 */
1983: if (p_log_level_rec.statement_level) then
1984: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
1985: element=>'BEGIN: l_asset_retire_mrc_rec.retirement_id',
1986: value=> l_asset_retire_mrc_rec.retirement_id, p_log_level_rec => p_log_level_rec);
1987: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
1988: element=>'BEGIN: l_asset_retire_mrc_rec.status',
1983: if (p_log_level_rec.statement_level) then
1984: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
1985: element=>'BEGIN: l_asset_retire_mrc_rec.retirement_id',
1986: value=> l_asset_retire_mrc_rec.retirement_id, p_log_level_rec => p_log_level_rec);
1987: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
1988: element=>'BEGIN: l_asset_retire_mrc_rec.status',
1989: value=> l_asset_retire_mrc_rec.status, p_log_level_rec => p_log_level_rec);
1990: end if;
1991:
2012: if l_asset_retire_rec.units_retired = l_asset_desc_rec.current_units
2013: or l_asset_retire_rec.units_retired is null then
2014: -- if full unit retirement or cost (both full and partial) retirement
2015:
2016: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'treat this trx as regular', '', p_log_level_rec => p_log_level_rec); end if;
2017: null;
2018:
2019: elsif l_asset_retire_rec.units_retired
2020: < l_asset_desc_rec.current_units then -- if partial unit retirement
2053: elsif (G_release = 11) then
2054: l_dist_trans_rec.transaction_header_id := NULL;
2055: end if; --group_asset_id <> null
2056:
2057: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'treat this trx as partial unit retirement', '', p_log_level_rec => p_log_level_rec); end if;
2058:
2059: -- make a local copy of trans_rec and change trx_type_code
2060: -- this local copy of trans_rec will be used
2061: -- for distribution api and fautfr
2103: -- asset_hdr_rec: asset_id, book_type_code(only CORPORATE)
2104: -- asset_dist_tbl: distribution_id, trx_units
2105:
2106: if p_log_level_rec.statement_level then
2107: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', l_dist_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
2108: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', l_dist_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
2109: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2110: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2111: end if;
2104: -- asset_dist_tbl: distribution_id, trx_units
2105:
2106: if p_log_level_rec.statement_level then
2107: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', l_dist_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
2108: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', l_dist_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
2109: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2110: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2111: end if;
2112:
2105:
2106: if p_log_level_rec.statement_level then
2107: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', l_dist_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
2108: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', l_dist_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
2109: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2110: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2111: end if;
2112:
2113: SELECT fa_transaction_headers_s.nextval
2106: if p_log_level_rec.statement_level then
2107: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', l_dist_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
2108: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', l_dist_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
2109: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2110: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2111: end if;
2112:
2113: SELECT fa_transaction_headers_s.nextval
2114: into l_dist_trans_rec.transaction_header_id
2120:
2121: /************* routine for debug
2122: for i in 1..l_asset_dist_tbl.count loop
2123:
2124: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'dist_id:', l_asset_dist_tbl(1).distribution_id); end if;
2125: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'trx_units:', l_asset_dist_tbl(1).transaction_units); end if;
2126:
2127: end loop;
2128: *************/
2121: /************* routine for debug
2122: for i in 1..l_asset_dist_tbl.count loop
2123:
2124: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'dist_id:', l_asset_dist_tbl(1).distribution_id); end if;
2125: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'trx_units:', l_asset_dist_tbl(1).transaction_units); end if;
2126:
2127: end loop;
2128: *************/
2129:
2176:
2177: end if;
2178:
2179:
2180: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do_sub_retirement: retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec); end if;
2181:
2182: /* Bug#4663092 */
2183: if (p_log_level_rec.statement_level) then
2184: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
2180: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do_sub_retirement: retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec); end if;
2181:
2182: /* Bug#4663092 */
2183: if (p_log_level_rec.statement_level) then
2184: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
2185: element=>'l_asset_retire_mrc_rec.retirement_id',
2186: value=> l_asset_retire_mrc_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2187: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
2188: element=>'l_asset_retire_mrc_rec.status',
2183: if (p_log_level_rec.statement_level) then
2184: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
2185: element=>'l_asset_retire_mrc_rec.retirement_id',
2186: value=> l_asset_retire_mrc_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2187: FA_DEBUG_PKG.ADD (fname=>'do_sub_retirement',
2188: element=>'l_asset_retire_mrc_rec.status',
2189: value=> l_asset_retire_mrc_rec.status, p_log_level_rec => p_log_level_rec);
2190: end if;
2191:
2401: l_period_fully_extend NUMBER; --BUG 14286465
2402:
2403: BEGIN
2404:
2405: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
2406:
2407: -- ****************************************************
2408: -- ** Assign input parameters to local rec/tbl types
2409: -- ****************************************************
2427:
2428: -- cost retirements on 0 cost assets are in fact
2429: -- treated as full retirements. (bug1565792)
2430:
2431: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
2432:
2433: -- pop asset_fin_rec
2434: -- get fa_books row where transaction_header_id_out is null
2435: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
2431: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
2432:
2433: -- pop asset_fin_rec
2434: -- get fa_books row where transaction_header_id_out is null
2435: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
2436: if not FA_UTIL_PVT.get_asset_fin_rec
2437: (p_asset_hdr_rec => l_asset_hdr_rec,
2438: px_asset_fin_rec => l_asset_fin_rec,
2439: p_transaction_header_id => NULL,
2501: g_token1 := null;
2502: raise FND_API.G_EXC_ERROR;
2503: end if;
2504:
2505: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do fa_transaction_headers_pkg.insert_row', '', p_log_level_rec => p_log_level_rec); end if;
2506: fa_transaction_headers_pkg.insert_row
2507: (x_rowid => l_th_rowid,
2508: x_transaction_header_id => l_trans_rec.transaction_header_id,
2509: x_book_type_code => l_asset_hdr_rec.book_type_code,
2764:
2765: l_asset_retire_rec.detail_info.gain_loss_amount := 0;
2766:
2767: if (p_log_level_rec.statement_level) then
2768: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec.deprn_reserve',
2769: l_asset_deprn_rec.deprn_reserve, p_log_level_rec => p_log_level_rec);
2770: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.tracking_method',
2771: l_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2772: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcdrd_record.rule_name',
2766:
2767: if (p_log_level_rec.statement_level) then
2768: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec.deprn_reserve',
2769: l_asset_deprn_rec.deprn_reserve, p_log_level_rec => p_log_level_rec);
2770: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.tracking_method',
2771: l_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2772: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcdrd_record.rule_name',
2773: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2774: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.group_asset_id',
2768: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec.deprn_reserve',
2769: l_asset_deprn_rec.deprn_reserve, p_log_level_rec => p_log_level_rec);
2770: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.tracking_method',
2771: l_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2772: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcdrd_record.rule_name',
2773: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2774: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.group_asset_id',
2775: l_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
2776: end if;
2770: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.tracking_method',
2771: l_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2772: fa_debug_pkg.add(l_calling_fn, 'fa_cache_pkg.fazcdrd_record.rule_name',
2773: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2774: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.group_asset_id',
2775: l_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
2776: end if;
2777:
2778: OPEN c_get_group_method_info;
2779: FETCH c_get_group_method_info INTO l_group_db_rule_name;
2780: CLOSE c_get_group_method_info;
2781:
2782: if (p_log_level_rec.statement_level) then
2783: fa_debug_pkg.add(l_calling_fn, 'l_group_db_rule_name',
2784: l_group_db_rule_name, p_log_level_rec => p_log_level_rec);
2785: end if;
2786:
2787: -- BUG# 6899255
2806: -- ENERGY
2807: l_asset_retire_rec.reserve_retired := l_reserve_retired; -- ENERGY
2808:
2809: if (p_log_level_rec.statement_level) then -- ENERGY
2810: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.reserve_retired', -- ENERGY
2811: l_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec); -- ENERGY
2812: end if; -- ENERGY
2813:
2814: else -- ENERGY
2832: end if;
2833:
2834: -- Subtract Prior Year Reserve Retired from eofy_reserve
2835: if p_log_level_rec.statement_level then
2836: fa_debug_pkg.add(l_calling_fn, 'l_eofy_reserve_new', l_eofy_reserve_new, p_log_level_rec => p_log_level_rec);
2837: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.eofy_reserve', l_asset_fin_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2838: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.eofy_reserve', l_asset_retire_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2839: end if;
2840:
2833:
2834: -- Subtract Prior Year Reserve Retired from eofy_reserve
2835: if p_log_level_rec.statement_level then
2836: fa_debug_pkg.add(l_calling_fn, 'l_eofy_reserve_new', l_eofy_reserve_new, p_log_level_rec => p_log_level_rec);
2837: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.eofy_reserve', l_asset_fin_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2838: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.eofy_reserve', l_asset_retire_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2839: end if;
2840:
2841: if (l_asset_retire_rec.eofy_reserve is null) then
2834: -- Subtract Prior Year Reserve Retired from eofy_reserve
2835: if p_log_level_rec.statement_level then
2836: fa_debug_pkg.add(l_calling_fn, 'l_eofy_reserve_new', l_eofy_reserve_new, p_log_level_rec => p_log_level_rec);
2837: fa_debug_pkg.add(l_calling_fn, 'l_asset_fin_rec.eofy_reserve', l_asset_fin_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2838: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.eofy_reserve', l_asset_retire_rec.eofy_reserve, p_log_level_rec => p_log_level_rec);
2839: end if;
2840:
2841: if (l_asset_retire_rec.eofy_reserve is null) then
2842: l_asset_fin_rec.eofy_reserve := l_eofy_reserve_new;
2882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2883: end if;
2884:
2885: if p_log_level_rec.statement_level then
2886: fa_debug_pkg.add(l_calling_fn, 'l_adjusted_cost_new', l_adjusted_cost_new, p_log_level_rec => p_log_level_rec);
2887: fa_debug_pkg.add(l_calling_fn, '++ l_asset_retire_rec.status', l_asset_retire_rec.status, p_log_level_rec => p_log_level_rec);
2888: end if;
2889:
2890: if p_log_level_rec.statement_level then
2883: end if;
2884:
2885: if p_log_level_rec.statement_level then
2886: fa_debug_pkg.add(l_calling_fn, 'l_adjusted_cost_new', l_adjusted_cost_new, p_log_level_rec => p_log_level_rec);
2887: fa_debug_pkg.add(l_calling_fn, '++ l_asset_retire_rec.status', l_asset_retire_rec.status, p_log_level_rec => p_log_level_rec);
2888: end if;
2889:
2890: if p_log_level_rec.statement_level then
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2887: fa_debug_pkg.add(l_calling_fn, '++ l_asset_retire_rec.status', l_asset_retire_rec.status, p_log_level_rec => p_log_level_rec);
2888: end if;
2889:
2890: if p_log_level_rec.statement_level then
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2892: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2893: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2894: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2895: fa_debug_pkg.add(l_calling_fn, 'cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
2888: end if;
2889:
2890: if p_log_level_rec.statement_level then
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2892: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2893: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2894: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2895: fa_debug_pkg.add(l_calling_fn, 'cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
2896: end if;
2889:
2890: if p_log_level_rec.statement_level then
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2892: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2893: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2894: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2895: fa_debug_pkg.add(l_calling_fn, 'cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
2896: end if;
2897:
2890: if p_log_level_rec.statement_level then
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2892: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2893: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2894: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2895: fa_debug_pkg.add(l_calling_fn, 'cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
2896: end if;
2897:
2898: fa_retirements_pkg.insert_row
2891: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.insert_row', '', p_log_level_rec => p_log_level_rec);
2892: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
2893: fa_debug_pkg.add(l_calling_fn, 'asset_id: ', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
2894: fa_debug_pkg.add(l_calling_fn, 'book: ', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
2895: fa_debug_pkg.add(l_calling_fn, 'cost_retired: ', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
2896: end if;
2897:
2898: fa_retirements_pkg.insert_row
2899: (x_rowid => l_asset_retire_rec.detail_info.row_id,
2959: p_log_level_rec => p_log_level_rec);
2960:
2961: -- return retirement_id if book is primary
2962: -- The retirement_ids of all reporting books will be same.
2963: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec); end if;
2964: px_asset_retire_rec := l_asset_retire_rec;
2965:
2966: -- Bug:5930979:Japan Tax Reform Project (Start)
2967: if nvl(fa_cache_pkg.fazccmt_record.GUARANTEE_RATE_METHOD_FLAG,'NO') = 'YES' then
2972: WHERE asset_id = l_asset_hdr_rec.asset_id
2973: AND book_type_code = l_asset_hdr_rec.Book_Type_Code
2974: AND transaction_header_id_out is null;
2975:
2976: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Fetching rate_in_use ', l_rate_in_use, p_log_level_rec => p_log_level_rec); end if;
2977:
2978: end if;
2979:
2980: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'l_rate_in_use: ', l_rate_in_use, p_log_level_rec => p_log_level_rec); end if;
2976: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Fetching rate_in_use ', l_rate_in_use, p_log_level_rec => p_log_level_rec); end if;
2977:
2978: end if;
2979:
2980: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'l_rate_in_use: ', l_rate_in_use, p_log_level_rec => p_log_level_rec); end if;
2981: -- Bug:5930979:Japan Tax Reform Project (End)
2982:
2983: -- bug 14286465 start
2984: if l_asset_fin_rec.period_counter_fully_extended is not null then
3001: DP1.CALENDAR_PERIOD_CLOSE_DATE > l_ret_prorate_date;
3002: end if;
3003: -- bug 14286465 end
3004:
3005: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do fa_books_pkg.update_row', '', p_log_level_rec => p_log_level_rec); end if;
3006: -- terminate current fa_books row
3007: fa_books_pkg.update_row (
3008: X_Rowid => NULL,
3009: X_Book_Type_Code => l_asset_hdr_rec.Book_Type_Code,
3093: X_prior_basic_rate => l_asset_fin_rec.prior_basic_rate ,
3094: X_prior_adjusted_rate => l_asset_fin_rec.prior_adjusted_rate -- Changes made as per the ER No.s 6606548 and 6606552 by Sbyreddy End
3095: , p_log_level_rec => p_log_level_rec);
3096:
3097: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do fa_books_pkg.insert_row', '', p_log_level_rec => p_log_level_rec); end if;
3098: -- insert into fa books
3099: fa_books_pkg.insert_row
3100: (X_Rowid => l_bk_rowid,
3101: X_Book_Type_Code => l_asset_hdr_rec.book_type_code,
3253: l_asset_hdr_rec.book_type_code) loop
3254:
3255: dh_rec.transaction_units := -1 * dh_rec.units_assigned;
3256:
3257: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do fa_distribution_history_pkg.update_row', '', p_log_level_rec => p_log_level_rec); end if;
3258:
3259: fa_distribution_history_pkg.update_row
3260: (null,
3261: dh_rec.distribution_id,
3278: end loop;
3279:
3280: end if;
3281:
3282: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'end ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
3283:
3284: return TRUE;
3285:
3286: EXCEPTION
3327: BEGIN
3328:
3329:
3330: if p_log_level_rec.statement_level then
3331: fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec);
3332: fa_debug_pkg.add(l_calling_fn, 'p_retirement_id ', p_retirement_id, p_log_level_rec => p_log_level_rec);
3333: end if;
3334:
3335: if (p_mrc_sob_type_code = 'P') then
3328:
3329:
3330: if p_log_level_rec.statement_level then
3331: fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec);
3332: fa_debug_pkg.add(l_calling_fn, 'p_retirement_id ', p_retirement_id, p_log_level_rec => p_log_level_rec);
3333: end if;
3334:
3335: if (p_mrc_sob_type_code = 'P') then
3336: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling Do_Calc_GainLoss_Asset... ', '', p_log_level_rec => p_log_level_rec); end if;
3332: fa_debug_pkg.add(l_calling_fn, 'p_retirement_id ', p_retirement_id, p_log_level_rec => p_log_level_rec);
3333: end if;
3334:
3335: if (p_mrc_sob_type_code = 'P') then
3336: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling Do_Calc_GainLoss_Asset... ', '', p_log_level_rec => p_log_level_rec); end if;
3337: FA_GAINLOSS_PKG.Do_Calc_GainLoss_Asset
3338: (p_retirement_id => p_retirement_id
3339: ,x_return_status => l_return_status, p_log_level_rec => p_log_level_rec);
3340: end if;
3431: -- initialize error message stack.
3432: fa_srvr_msg.init_server_message;
3433:
3434: -- initialize debug message stack.
3435: fa_debug_pkg.initialize;
3436: end if;
3437:
3438: -- override FA:PRINT_DEBUG profile option.
3439: -- if (p_debug_flag = 'YES') then
3436: end if;
3437:
3438: -- override FA:PRINT_DEBUG profile option.
3439: -- if (p_debug_flag = 'YES') then
3440: -- fa_debug_pkg.set_debug_flag;
3441: -- end if;
3442:
3443:
3444: -- ****************************************************
3507: -- *********************************************
3508: -- ** Do basic validation on input parameters
3509: -- *********************************************
3510:
3511: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before do_validation', '', p_log_level_rec => g_log_level_rec); end if;
3512:
3513: -- validate that all user-entered input parameters are valid
3514: if not do_validation
3515: (p_validation_type => g_undo_retirement
3540: raise FND_API.G_EXC_ERROR;
3541: end if;
3542: end if;
3543:
3544: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'after do_validation', '', p_log_level_rec => g_log_level_rec); end if;
3545:
3546: l_trans_rec.transaction_type_code := null;
3547:
3548:
3778: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
3779:
3780:
3781: -- pop current period_rec info
3782: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => p_log_level_rec); end if;
3783: if not FA_UTIL_PVT.get_period_rec
3784: (p_book => l_asset_hdr_rec.book_type_code
3785: ,p_effective_date => NULL
3786: ,x_period_rec => l_period_rec
3793: -- ***************************************************
3794: -- begin asset/book-level validation on transaction
3795:
3796: -- nothing to do here
3797: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin asset/book-level validation on transaction', '', p_log_level_rec => p_log_level_rec); end if;
3798:
3799: -- ***************************
3800: -- ** Transaction approval
3801: -- ***************************
3815: -- ***************************
3816: -- ** Main
3817: -- ***************************
3818:
3819: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling do_sub_retirement for each book/sob', '', p_log_level_rec => p_log_level_rec); end if;
3820:
3821: l_rate := 1;
3822: if not undo_sub_retirement
3823: (p_trans_rec => l_trans_rec
3841: -- loop thourgh reporting set of books
3842: for sob_rec in sob_cursor(l_asset_hdr_rec.book_type_code
3843: ,l_asset_hdr_rec.set_of_books_id) loop
3844:
3845: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec => p_log_level_rec); end if;
3846:
3847: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
3848:
3849: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code,
3867: If primary and secondary sob_id is different then we need to
3868: delete event for secondary ledger*/
3869: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(l_asset_hdr_rec.book_type_code);
3870:
3871: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_secondary_sob_id', l_secondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
3872: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.book_type_code', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec); end if;
3873: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.set_of_books_id ', l_asset_hdr_rec.set_of_books_id , p_log_level_rec => p_log_level_rec); end if;
3874:
3875: if (l_secondary_sob_id is not null)
3868: delete event for secondary ledger*/
3869: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(l_asset_hdr_rec.book_type_code);
3870:
3871: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_secondary_sob_id', l_secondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
3872: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.book_type_code', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec); end if;
3873: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.set_of_books_id ', l_asset_hdr_rec.set_of_books_id , p_log_level_rec => p_log_level_rec); end if;
3874:
3875: if (l_secondary_sob_id is not null)
3876: AND (l_secondary_sob_id = sob_rec.sob_id)then
3869: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(l_asset_hdr_rec.book_type_code);
3870:
3871: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_secondary_sob_id', l_secondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
3872: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.book_type_code', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec); end if;
3873: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop l_asset_hdr_rec.set_of_books_id ', l_asset_hdr_rec.set_of_books_id , p_log_level_rec => p_log_level_rec); end if;
3874:
3875: if (l_secondary_sob_id is not null)
3876: AND (l_secondary_sob_id = sob_rec.sob_id)then
3877: -- SLA: delete the event
3874:
3875: if (l_secondary_sob_id is not null)
3876: AND (l_secondary_sob_id = sob_rec.sob_id)then
3877: -- SLA: delete the event
3878: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before delete', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec); end if;
3879: if not fa_xla_events_pvt.delete_transaction_event
3880: (p_ledger_id => sob_rec.sob_id,
3881: p_transaction_header_id => l_asset_retire_rec.detail_info.transaction_header_id_in,
3882: p_book_type_code => l_asset_hdr_rec.book_type_code,
4008: l_asset_hdr_rec.asset_id := l_asset_retire_rec.detail_info.asset_id;
4009: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
4010:
4011: -- pop asset_desc_rec
4012: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_desc_rec', '', p_log_level_rec => p_log_level_rec); end if;
4013: if not FA_UTIL_PVT.get_asset_desc_rec
4014: (p_asset_hdr_rec => l_asset_hdr_rec
4015: ,px_asset_desc_rec => l_asset_desc_rec
4016: , p_log_level_rec => p_log_level_rec) then
4018: end if;
4019:
4020: -- pop asset_fin_rec
4021: -- get fa_books row where transaction_header_id_out is null
4022: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
4023: if not FA_UTIL_PVT.get_asset_fin_rec
4024: (p_asset_hdr_rec => l_asset_hdr_rec
4025: ,px_asset_fin_rec => l_asset_fin_rec
4026: ,p_transaction_header_id => NULL
4029: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4030: end if;
4031:
4032: if p_log_level_rec.statement_level then
4033: fa_debug_pkg.add(l_calling_fn, 'after pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec);
4034: fa_debug_pkg.add(l_calling_fn, 'asset_hdr: set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
4035: end if;
4036:
4037: /*
4030: end if;
4031:
4032: if p_log_level_rec.statement_level then
4033: fa_debug_pkg.add(l_calling_fn, 'after pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec);
4034: fa_debug_pkg.add(l_calling_fn, 'asset_hdr: set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
4035: end if;
4036:
4037: /*
4038: * Take care source line
4139: end if;
4140: -- End of bug 7125732
4141:
4142: if p_log_level_rec.statement_level then
4143: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4140: -- End of bug 7125732
4141:
4142: if p_log_level_rec.statement_level then
4143: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4148: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.units_retired:', l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
4141:
4142: if p_log_level_rec.statement_level then
4143: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4148: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.units_retired:', l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
4149: end if;
4142: if p_log_level_rec.statement_level then
4143: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4148: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.units_retired:', l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
4149: end if;
4150: -- Bug#2306068: Fixed wrong check of partial unit retirement
4143: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4148: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.units_retired:', l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
4149: end if;
4150: -- Bug#2306068: Fixed wrong check of partial unit retirement
4151: -- 0 cost condition added to allow for partial unit retirements/reinstatements
4144: fa_debug_pkg.add(l_calling_fn, 'l_old_units', l_old_units, p_log_level_rec => p_log_level_rec);
4145: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4146: fa_debug_pkg.add(l_calling_fn, 'Cost before ret:', l_old_cost, p_log_level_rec => p_log_level_rec);
4147: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.cost_retired:', l_asset_retire_rec.cost_retired, p_log_level_rec => p_log_level_rec);
4148: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.units_retired:', l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
4149: end if;
4150: -- Bug#2306068: Fixed wrong check of partial unit retirement
4151: -- 0 cost condition added to allow for partial unit retirements/reinstatements
4152: -- on assets with 0 cost.
4167: -- l_trans_rec.transaction_header_id should be trx_header_id
4168: -- of PARTIAL RETIREMENT row in TH table
4169:
4170: if p_log_level_rec.statement_level then
4171: fa_debug_pkg.add(l_calling_fn, 'deleting a partial unit retirement', '', p_log_level_rec => p_log_level_rec);
4172: fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4173: fa_debug_pkg.add(l_calling_fn, 'trx_id: ', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
4174: end if;
4175: FA_BOOKS_PKG.DELETE_ROW
4168: -- of PARTIAL RETIREMENT row in TH table
4169:
4170: if p_log_level_rec.statement_level then
4171: fa_debug_pkg.add(l_calling_fn, 'deleting a partial unit retirement', '', p_log_level_rec => p_log_level_rec);
4172: fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4173: fa_debug_pkg.add(l_calling_fn, 'trx_id: ', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
4174: end if;
4175: FA_BOOKS_PKG.DELETE_ROW
4176: (X_Transaction_Header_Id_In =>
4169:
4170: if p_log_level_rec.statement_level then
4171: fa_debug_pkg.add(l_calling_fn, 'deleting a partial unit retirement', '', p_log_level_rec => p_log_level_rec);
4172: fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4173: fa_debug_pkg.add(l_calling_fn, 'trx_id: ', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
4174: end if;
4175: FA_BOOKS_PKG.DELETE_ROW
4176: (X_Transaction_Header_Id_In =>
4177: l_asset_retire_rec.detail_info.transaction_header_id_in,
4179: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4180: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4181:
4182: if p_log_level_rec.statement_level then
4183: fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec);
4184: fa_debug_pkg.add(l_calling_fn, 'trx_id: ', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
4185: end if;
4186: FA_BOOKS_PKG.REACTIVATE_ROW
4187: (X_Transaction_Header_Id_Out =>
4180: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4181:
4182: if p_log_level_rec.statement_level then
4183: fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec);
4184: fa_debug_pkg.add(l_calling_fn, 'trx_id: ', l_asset_retire_rec.detail_info.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
4185: end if;
4186: FA_BOOKS_PKG.REACTIVATE_ROW
4187: (X_Transaction_Header_Id_Out =>
4188: l_asset_retire_rec.detail_info.transaction_header_id_in,
4189: X_mrc_sob_type_code => p_mrc_sob_type_code,
4190: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4191: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4192:
4193: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4194: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'ROW: ', l_asset_retire_rec.detail_info.row_id, p_log_level_rec => p_log_level_rec); end if;
4195: FA_RETIREMENTS_PKG.DELETE_ROW
4196: (X_Rowid => l_asset_retire_rec.detail_info.row_id,
4197: X_mrc_sob_type_code => p_mrc_sob_type_code,
4190: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4191: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4192:
4193: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4194: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'ROW: ', l_asset_retire_rec.detail_info.row_id, p_log_level_rec => p_log_level_rec); end if;
4195: FA_RETIREMENTS_PKG.DELETE_ROW
4196: (X_Rowid => l_asset_retire_rec.detail_info.row_id,
4197: X_mrc_sob_type_code => p_mrc_sob_type_code,
4198: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4198: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4199: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4200:
4201: if p_log_level_rec.statement_level then
4202: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4203: fa_debug_pkg.add(l_calling_fn, 'Book_Type_Code:', l_asset_hdr_rec.Book_Type_Code, p_log_level_rec => p_log_level_rec);
4204: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4205: fa_debug_pkg.add(l_calling_fn, 'book class:', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
4206: end if;
4199: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4200:
4201: if p_log_level_rec.statement_level then
4202: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4203: fa_debug_pkg.add(l_calling_fn, 'Book_Type_Code:', l_asset_hdr_rec.Book_Type_Code, p_log_level_rec => p_log_level_rec);
4204: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4205: fa_debug_pkg.add(l_calling_fn, 'book class:', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
4206: end if;
4207:
4200:
4201: if p_log_level_rec.statement_level then
4202: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4203: fa_debug_pkg.add(l_calling_fn, 'Book_Type_Code:', l_asset_hdr_rec.Book_Type_Code, p_log_level_rec => p_log_level_rec);
4204: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4205: fa_debug_pkg.add(l_calling_fn, 'book class:', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
4206: end if;
4207:
4208: if (p_mrc_sob_type_code <> 'R') then
4201: if p_log_level_rec.statement_level then
4202: fa_debug_pkg.add(l_calling_fn, 'Asset_Id:', l_asset_hdr_rec.Asset_Id, p_log_level_rec => p_log_level_rec);
4203: fa_debug_pkg.add(l_calling_fn, 'Book_Type_Code:', l_asset_hdr_rec.Book_Type_Code, p_log_level_rec => p_log_level_rec);
4204: fa_debug_pkg.add(l_calling_fn, 'p_mrc_sob_type_code:', p_mrc_sob_type_code, p_log_level_rec => p_log_level_rec);
4205: fa_debug_pkg.add(l_calling_fn, 'book class:', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
4206: end if;
4207:
4208: if (p_mrc_sob_type_code <> 'R') then
4209:
4207:
4208: if (p_mrc_sob_type_code <> 'R') then
4209:
4210: if (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') then
4211: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before get_transfer_id', '', p_log_level_rec => p_log_level_rec); end if;
4212:
4213: l_partial_unit_ret_flag := 'N';
4214:
4215: open get_transfer_id;
4233:
4234: close get_transfer_id;
4235:
4236:
4237: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'after get_transfer_id', '', p_log_level_rec => p_log_level_rec); end if;
4238:
4239: if (l_partial_unit_ret_flag='Y') then
4240:
4241: --delete a row only if a distribution is partially retired
4238:
4239: if (l_partial_unit_ret_flag='Y') then
4240:
4241: --delete a row only if a distribution is partially retired
4242: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_DISTRIBUTION_HISTORY_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4243: FA_DISTRIBUTION_HISTORY_PKG.DELETE_ROW
4244: (X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4245: X_Book_Type_Code=> l_asset_hdr_rec.Book_Type_Code,
4246: X_Transaction_Header_Id => transfer_id,
4247: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4248:
4249: end if;
4250:
4251: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_DISTRIBUTION_HISTORY_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4252: FA_DISTRIBUTION_HISTORY_PKG.REACTIVATE_ROW
4253: (X_Transaction_Header_Id_Out =>
4254: transfer_id,
4255: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4255: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4256: X_Book_Type_Code=> l_asset_hdr_rec.Book_Type_Code,
4257: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4258:
4259: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ASSET_HISTORY_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4260: FA_ASSET_HISTORY_PKG.DELETE_ROW
4261: (X_Transaction_Header_Id_In =>
4262: l_asset_retire_rec.detail_info.transaction_header_id_in,
4263: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4262: l_asset_retire_rec.detail_info.transaction_header_id_in,
4263: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4264: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4265:
4266: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ASSET_HISTORY_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4267: FA_ASSET_HISTORY_PKG.REACTIVATE_ROW
4268: (X_Transaction_Header_Id_Out =>
4269: l_asset_retire_rec.detail_info.transaction_header_id_in,
4270: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4269: l_asset_retire_rec.detail_info.transaction_header_id_in,
4270: X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4271: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4272:
4273: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ADDITIONS_PKG.UPDATE_UNITS', '', p_log_level_rec => p_log_level_rec); end if;
4274: FA_ADDITIONS_PKG.UPDATE_UNITS
4275: (X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4276:
4277: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4274: FA_ADDITIONS_PKG.UPDATE_UNITS
4275: (X_Asset_Id => l_asset_hdr_rec.Asset_Id,
4276:
4277: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4278: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_TRANSFER_DETAILS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4279: FA_TRANSFER_DETAILS_PKG.DELETE_ROW
4280: (X_Transfer_Header_Id => transfer_id,
4281: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4282:
4281: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4282:
4283: end if; -- if corporate
4284:
4285: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_TRANSACTION_HEADERS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4286: FA_TRANSACTION_HEADERS_PKG.DELETE_ROW -- delete PARTIAL RETIREMENT row
4287: (X_Transaction_Header_Id =>
4288: l_asset_retire_rec.detail_info.transaction_header_id_in,
4289: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4287: (X_Transaction_Header_Id =>
4288: l_asset_retire_rec.detail_info.transaction_header_id_in,
4289: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4290:
4291: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_TRANSACTION_HEADERS_PKG.DELETE_ROW -- delete TRANSFER OUT row', '', p_log_level_rec => p_log_level_rec); end if;
4292: FA_TRANSACTION_HEADERS_PKG.DELETE_ROW -- delete TRANSFER OUT row
4293: (X_Transaction_Header_Id =>
4294: transfer_id,
4295: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4298:
4299: -- Remove any cost and reserve adjustment rows
4300: -- if UNDOing PARTIAL UNIT RETIREMENT
4301:
4302: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin - deleting fa_adjustments', '', p_log_level_rec => p_log_level_rec); end if;
4303:
4304: open adj_def;
4305:
4306: begin
4309: fetch adj_def into l_adj_rowid;
4310:
4311: exit when adj_def%NOTFOUND;
4312:
4313: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ADJUSTMENTS_PKG.delete_row', '', p_log_level_rec => p_log_level_rec); end if;
4314: FA_ADJUSTMENTS_PKG.delete_row(
4315: X_Rowid => l_adj_rowid,
4316: X_Asset_Id => l_asset_hdr_rec.asset_id,
4317: X_Calling_Fn => l_calling_fn,
4326: end;
4327:
4328: close adj_def;
4329:
4330: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'done - deleting fa_adjustments', '', p_log_level_rec => p_log_level_rec); end if;
4331:
4332:
4333: else -- if not partial unit retirement
4334:
4331:
4332:
4333: else -- if not partial unit retirement
4334:
4335: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'not a partial unit retirement', '', p_log_level_rec => p_log_level_rec); end if;
4336:
4337: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4338: FA_BOOKS_PKG.DELETE_ROW
4339: (X_Transaction_Header_Id_In =>
4333: else -- if not partial unit retirement
4334:
4335: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'not a partial unit retirement', '', p_log_level_rec => p_log_level_rec); end if;
4336:
4337: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4338: FA_BOOKS_PKG.DELETE_ROW
4339: (X_Transaction_Header_Id_In =>
4340: l_asset_retire_rec.detail_info.transaction_header_id_in,
4341: X_mrc_sob_type_code => p_mrc_sob_type_code,
4340: l_asset_retire_rec.detail_info.transaction_header_id_in,
4341: X_mrc_sob_type_code => p_mrc_sob_type_code,
4342: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4343: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4344: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_BOOKS_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4345: FA_BOOKS_PKG.REACTIVATE_ROW
4346: (X_Transaction_Header_Id_Out =>
4347: l_asset_retire_rec.detail_info.transaction_header_id_in,
4348: X_mrc_sob_type_code => p_mrc_sob_type_code,
4349: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
4350: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4351:
4352: if p_log_level_rec.statement_level then
4353: fa_debug_pkg.add(l_calling_fn, 'FA_RETIREMENTS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4354: fa_debug_pkg.add(l_calling_fn, 'ROW: ', l_asset_retire_rec.detail_info.row_id, p_log_level_rec => p_log_level_rec);
4355: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
4356: end if;
4357: FA_RETIREMENTS_PKG.DELETE_ROW
4350: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4351:
4352: if p_log_level_rec.statement_level then
4353: fa_debug_pkg.add(l_calling_fn, 'FA_RETIREMENTS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4354: fa_debug_pkg.add(l_calling_fn, 'ROW: ', l_asset_retire_rec.detail_info.row_id, p_log_level_rec => p_log_level_rec);
4355: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
4356: end if;
4357: FA_RETIREMENTS_PKG.DELETE_ROW
4358: (X_Rowid => l_asset_retire_rec.detail_info.row_id,
4351:
4352: if p_log_level_rec.statement_level then
4353: fa_debug_pkg.add(l_calling_fn, 'FA_RETIREMENTS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec);
4354: fa_debug_pkg.add(l_calling_fn, 'ROW: ', l_asset_retire_rec.detail_info.row_id, p_log_level_rec => p_log_level_rec);
4355: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.retirement_id, p_log_level_rec => p_log_level_rec);
4356: end if;
4357: FA_RETIREMENTS_PKG.DELETE_ROW
4358: (X_Rowid => l_asset_retire_rec.detail_info.row_id,
4359: X_mrc_sob_type_code => p_mrc_sob_type_code,
4362:
4363: if (p_mrc_sob_type_code <> 'R') then
4364:
4365: if (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') then
4366: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_DISTRIBUTION_HISTORY_PKG.REACTIVATE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4367: FA_DISTRIBUTION_HISTORY_PKG.REACTIVATE_ROW
4368: (X_Asset_Id => l_asset_hdr_rec.asset_id,
4369: X_Book_Type_Code=> l_asset_hdr_rec.book_type_code,
4370: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4369: X_Book_Type_Code=> l_asset_hdr_rec.book_type_code,
4370: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4371: end if; -- if corporate
4372:
4373: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_TRANSACTION_HEADERS_PKG.DELETE_ROW', '', p_log_level_rec => p_log_level_rec); end if;
4374: FA_TRANSACTION_HEADERS_PKG.DELETE_ROW
4375: (X_Transaction_Header_Id =>
4376: l_asset_retire_rec.detail_info.transaction_header_id_in,
4377: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4520: -- initialize error message stack.
4521: fa_srvr_msg.init_server_message;
4522:
4523: -- initialize debug message stack.
4524: fa_debug_pkg.initialize;
4525: end if;
4526:
4527: -- ****************************************************
4528: -- ** Assign input parameters to local rec/tbl types
4540: -- ** Populate local record types
4541: -- *********************************
4542:
4543: -- pop asset_retire_rec to get the rowid of retirement
4544: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_retire_rec', '', p_log_level_rec => g_log_level_rec); end if;
4545: if not FA_UTIL_PVT.get_asset_retire_rec
4546: (px_asset_retire_rec => l_asset_retire_rec,
4547: p_mrc_sob_type_code => 'P',
4548: p_set_of_books_id => null
4553: l_asset_hdr_rec.asset_id := l_asset_retire_rec.detail_info.asset_id;
4554: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
4555:
4556: if g_log_level_rec.statement_level then
4557: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => g_log_level_rec);
4558: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec);
4559: fa_debug_pkg.add(l_calling_fn, 'fa_ret retirement_id:', l_asset_retire_rec.retirement_id, p_log_level_rec => g_log_level_rec);
4560: end if;
4561:
4554: l_asset_hdr_rec.book_type_code := l_asset_retire_rec.detail_info.book_type_code;
4555:
4556: if g_log_level_rec.statement_level then
4557: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => g_log_level_rec);
4558: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec);
4559: fa_debug_pkg.add(l_calling_fn, 'fa_ret retirement_id:', l_asset_retire_rec.retirement_id, p_log_level_rec => g_log_level_rec);
4560: end if;
4561:
4562: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec) then
4555:
4556: if g_log_level_rec.statement_level then
4557: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => g_log_level_rec);
4558: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec);
4559: fa_debug_pkg.add(l_calling_fn, 'fa_ret retirement_id:', l_asset_retire_rec.retirement_id, p_log_level_rec => g_log_level_rec);
4560: end if;
4561:
4562: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec) then
4563: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4579: -- common for all types
4580: -- bug 1230315... adding FA_TRX_APPROVAL_PKG for all retirement
4581: -- transactions
4582:
4583: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'call trx approval pkg - faxcat', '', p_log_level_rec => g_log_level_rec); end if;
4584: l_ins_status := FA_TRX_APPROVAL_PKG.faxcat
4585: (x_book => l_asset_hdr_rec.book_type_code
4586: ,x_asset_id => l_asset_hdr_rec.asset_id
4587: ,x_trx_type => 'REINSTATEMENT'
4592: raise FND_API.G_EXC_ERROR;
4593: end if;
4594:
4595: if g_log_level_rec.statement_level then
4596: fa_debug_pkg.add(l_calling_fn, 'l_asset_retire_rec.recognize_gain_loss',
4597: l_asset_retire_rec.recognize_gain_loss, g_log_level_rec);
4598: end if;
4599: IF (l_asset_fin_rec.group_asset_id is not null
4600: and l_asset_retire_rec.recognize_gain_loss = 'YES') THEN
4602: END IF;
4603:
4604: l_calculate_gain_loss_flag := l_asset_retire_rec.calculate_gain_loss;
4605:
4606: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => g_log_level_rec); end if;
4607: if not FA_UTIL_PVT.get_asset_fin_rec
4608: (p_asset_hdr_rec => l_asset_hdr_rec
4609: ,px_asset_fin_rec => l_asset_fin_rec
4610: ,p_transaction_header_id => NULL
4676: end if; -- book_type_code
4677:
4678: -- pop current period_rec info
4679: if g_log_level_rec.statement_level then
4680: fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => g_log_level_rec);
4681: fa_debug_pkg.add(l_calling_fn, 'book:', l_asset_retire_rec.detail_info.book_type_code, p_log_level_rec => g_log_level_rec);
4682: end if;
4683: if not FA_UTIL_PVT.get_period_rec
4684: (p_book => l_asset_hdr_rec.book_type_code
4677:
4678: -- pop current period_rec info
4679: if g_log_level_rec.statement_level then
4680: fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => g_log_level_rec);
4681: fa_debug_pkg.add(l_calling_fn, 'book:', l_asset_retire_rec.detail_info.book_type_code, p_log_level_rec => g_log_level_rec);
4682: end if;
4683: if not FA_UTIL_PVT.get_period_rec
4684: (p_book => l_asset_hdr_rec.book_type_code
4685: ,p_effective_date => NULL
4687: , p_log_level_rec => g_log_level_rec) then
4688: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4689: end if;
4690:
4691: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed pop period_rec', '', p_log_level_rec => g_log_level_rec); end if;
4692:
4693: -- pop asset_type_rec
4694: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_type_rec', '', p_log_level_rec => g_log_level_rec); end if;
4695: if not FA_UTIL_PVT.get_asset_type_rec
4690:
4691: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed pop period_rec', '', p_log_level_rec => g_log_level_rec); end if;
4692:
4693: -- pop asset_type_rec
4694: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_type_rec', '', p_log_level_rec => g_log_level_rec); end if;
4695: if not FA_UTIL_PVT.get_asset_type_rec
4696: (p_asset_hdr_rec => l_asset_hdr_rec
4697: ,px_asset_type_rec => l_asset_type_rec
4698: ,p_date_effective => NULL
4710: fetch tde_cursor
4711: into l_trans_rec.transaction_date_entered;
4712: close tde_cursor;
4713:
4714: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed tde_cursor', '', p_log_level_rec => g_log_level_rec); end if;
4715:
4716: -- default transaction_date_entered to the current period if it is null
4717: if l_trans_rec.transaction_date_entered is null then
4718:
4723: );
4724: end if;
4725:
4726: if g_log_level_rec.statement_level then
4727: fa_debug_pkg.add(l_calling_fn, 'passed transaction_date_entered', '', p_log_level_rec => g_log_level_rec);
4728: fa_debug_pkg.add(l_calling_fn, 'Transaction Date: ', l_trans_rec.transaction_date_entered , p_log_level_rec => g_log_level_rec);
4729: end if;
4730:
4731: -- *********************************************
4724: end if;
4725:
4726: if g_log_level_rec.statement_level then
4727: fa_debug_pkg.add(l_calling_fn, 'passed transaction_date_entered', '', p_log_level_rec => g_log_level_rec);
4728: fa_debug_pkg.add(l_calling_fn, 'Transaction Date: ', l_trans_rec.transaction_date_entered , p_log_level_rec => g_log_level_rec);
4729: end if;
4730:
4731: -- *********************************************
4732: -- ** Do validation
4730:
4731: -- *********************************************
4732: -- ** Do validation
4733: -- *********************************************
4734: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before validation', '', p_log_level_rec => g_log_level_rec); end if;
4735: -- validate that all user-entered input parameters are valid
4736: if not do_validation
4737: (p_validation_type => g_reinstatement
4738: ,p_trans_rec => l_trans_rec
4761: raise FND_API.G_EXC_ERROR;
4762: end if;
4763: end if;
4764:
4765: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'after validation', '', p_log_level_rec => g_log_level_rec); end if;
4766:
4767: -- ***************************
4768: -- ** Main
4769: -- ***************************
4783: ) then
4784: raise FND_API.G_EXC_ERROR;
4785: end if;
4786:
4787: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'after do_all_books_reinstatement', '', p_log_level_rec => g_log_level_rec); end if;
4788:
4789:
4790: /* if book is a corporate book, process cip assets and autocopy */
4791:
4798:
4799: if (l_asset_type_rec.asset_type = 'CIP'
4800: or l_asset_type_rec.asset_type = 'CAPITALIZED') then
4801:
4802: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Asset type: ', l_asset_type_rec.asset_type, p_log_level_rec => g_log_level_rec); end if;
4803:
4804: if not fa_cache_pkg.fazctbk
4805: (x_corp_book => l_asset_hdr_rec.book_type_code
4806: ,x_asset_type => l_asset_type_rec.asset_type
4810:
4811: for l_tax_index in 1..l_tax_book_tbl.count loop
4812:
4813: if g_log_level_rec.statement_level then
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
4811: for l_tax_index in 1..l_tax_book_tbl.count loop
4812:
4813: if g_log_level_rec.statement_level then
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
4822: ,p_calling_fn => l_calling_fn
4823: ,p_log_level_rec => g_log_level_rec) then
4824:
4825: null; -- just to ignore the error
4826: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'failed in validate_asset_book ', '', p_log_level_rec => g_log_level_rec); end if;
4827:
4828: else
4829:
4830: -- cache the book information for the tax book
4847: where asset_id=l_asset_hdr_rec.asset_id
4848: and book_type_code=lv_asset_hdr_rec.book_type_code;
4849:
4850: if g_log_level_rec.statement_level then
4851: fa_debug_pkg.add(l_calling_fn, 'calling do_all_books_reinstatement for tax book', '', p_log_level_rec => g_log_level_rec);
4852: fa_debug_pkg.add(l_calling_fn, 'retirement_id for TAX:', lv_asset_retire_rec.retirement_id, p_log_level_rec => g_log_level_rec);
4853: end if;
4854:
4855: if not do_all_books_reinstatement
4848: and book_type_code=lv_asset_hdr_rec.book_type_code;
4849:
4850: if g_log_level_rec.statement_level then
4851: fa_debug_pkg.add(l_calling_fn, 'calling do_all_books_reinstatement for tax book', '', p_log_level_rec => g_log_level_rec);
4852: fa_debug_pkg.add(l_calling_fn, 'retirement_id for TAX:', lv_asset_retire_rec.retirement_id, p_log_level_rec => g_log_level_rec);
4853: end if;
4854:
4855: if not do_all_books_reinstatement
4856: (px_trans_rec => lv_trans_rec -- tax
4868: raise FND_API.G_EXC_ERROR;
4869: end if;
4870:
4871:
4872: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'passed do_all_books_reinstatement for tax book', '', p_log_level_rec => g_log_level_rec); end if;
4873: end if;
4874:
4875: end loop;
4876:
4882: -- submit calculate_gain_loss programs if flag is set
4883:
4884: if l_calculate_gain_loss_flag = FND_API.G_TRUE then
4885:
4886: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'submit calculate gain/loss program', '', p_log_level_rec => g_log_level_rec); end if;
4887: if not calculate_gain_loss
4888: (p_retirement_id => l_retirement_id
4889: ,p_mrc_sob_type_code => 'P'
4890: ,p_log_level_rec => g_log_level_rec
5047:
5048: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
5049:
5050: -- pop current period_rec info
5051: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => p_log_level_rec); end if;
5052: if not FA_UTIL_PVT.get_period_rec
5053: (p_book => l_asset_hdr_rec.book_type_code
5054: ,p_effective_date => NULL
5055: ,x_period_rec => l_period_rec
5061: -- ** Do asset/book-level validation on transaction
5062: -- ***************************************************
5063: -- begin asset/book-level validation on transaction
5064:
5065: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin asset/book-level validation on transaction', '', p_log_level_rec => p_log_level_rec); end if;
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;
5065: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin asset/book-level validation on transaction', '', p_log_level_rec => p_log_level_rec); end if;
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
5076: raise FND_API.G_EXC_ERROR;
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
5086: raise FND_API.G_EXC_ERROR;
5087: end if;
5088:
5089: -- check if date_retired is valid in terms of trx date
5090: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if date_retired is valid in terms of trx date', '', p_log_level_rec => p_log_level_rec); end if;
5091: if l_asset_retire_rec.date_retired is not null then
5092:
5093: -- no transactions except Retirements and Reinstatements may be
5094: -- dated after the latest trx date
5127: -- ***************************
5128: -- ** Main
5129: -- ***************************
5130:
5131: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling do_sub_retirement for each book/sob', '', p_log_level_rec => p_log_level_rec); end if;
5132:
5133: l_rate := 1;
5134: if not do_sub_reinstatement
5135: (px_trans_rec => l_trans_rec
5162: -- loop thourgh reporting set of books
5163: for sob_rec in sob_cursor(l_asset_hdr_rec.book_type_code
5164: ,l_asset_hdr_rec.set_of_books_id) loop
5165:
5166: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec => p_log_level_rec); end if;
5167:
5168: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
5169:
5170: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code,
5175: end if;
5176:
5177: -- ? code for conversion rate when invoice trx is involved will be
5178: -- discussed later
5179: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'get currency conversion rates', '', p_log_level_rec => p_log_level_rec); end if;
5180: -- if l_inv_trans_rec.transaction_type is null then
5181:
5182: /******* routine to get existing rates when invoice trx is involved
5183: -- if (l_inv_rec.source_transaction_header_id is not null)
5182: /******* routine to get existing rates when invoice trx is involved
5183: -- if (l_inv_rec.source_transaction_header_id is not null)
5184: and (fa_cache_pkg.fazcbc_record.book_class = 'TAX') then
5185:
5186: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling get_existing_rate', '', p_log_level_rec => p_log_level_rec); end if;
5187:
5188: -- get the exchange rate from the corporate transaction
5189: if not FA_MC_UTIL_PVT.get_existing_rate
5190: (p_set_of_books_id => sob_rec.sob_id,
5198: if TRUE then
5199:
5200: l_exchange_date := l_trans_rec.transaction_date_entered;
5201:
5202: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling get_trx_rate', '', p_log_level_rec => p_log_level_rec); end if;
5203:
5204: if not FA_MC_UTIL_PVT.get_trx_rate
5205: (p_prim_set_of_books_id => fa_cache_pkg.fazcbc_record.set_of_books_id,
5206: p_reporting_set_of_books_id => sob_rec.sob_id,
5312:
5313: BEGIN
5314:
5315:
5316: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
5317: -- ****************************************************
5318: -- ** Assign input parameters to local rec/tbl types
5319: -- ****************************************************
5320: l_trans_rec := px_trans_rec;
5333: -- ***************************
5334:
5335: -- pop asset_fin_rec
5336: -- get fa_books row where transaction_header_id_out is null
5337: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_fin_rec', '', p_log_level_rec => p_log_level_rec); end if;
5338: if not FA_UTIL_PVT.get_asset_fin_rec
5339: (p_asset_hdr_rec => l_asset_hdr_rec
5340: ,px_asset_fin_rec => l_asset_fin_rec
5341: ,p_transaction_header_id => NULL
5344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5345: end if;
5346:
5347: -- pop asset_retire_rec
5348: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_retire_rec', '', p_log_level_rec => p_log_level_rec); end if;
5349: if not FA_UTIL_PVT.get_asset_retire_rec
5350: (px_asset_retire_rec => l_asset_retire_rec,
5351: p_mrc_sob_type_code => p_mrc_sob_type_code,
5352: p_set_of_books_id => p_asset_hdr_rec.set_of_books_id
5354: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5355: end if;
5356:
5357: -- pop asset_cat_rec
5358: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop asset_cat_rec', '', p_log_level_rec => p_log_level_rec); end if;
5359: if not FA_UTIL_PVT.get_asset_cat_rec
5360: (p_asset_hdr_rec => l_asset_hdr_rec
5361: ,px_asset_cat_rec => l_asset_cat_rec
5362: ,p_date_effective => NULL
5430: -- asset_hdr_rec: asset_id, book_type_code(only CORPORATE)
5431: -- asset_dist_tbl: distribution_id, trx_units
5432:
5433: if p_log_level_rec.statement_level then
5434: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', lv_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', lv_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
5438: end if;
5431: -- asset_dist_tbl: distribution_id, trx_units
5432:
5433: if p_log_level_rec.statement_level then
5434: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', lv_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', lv_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
5438: end if;
5439:
5432:
5433: if p_log_level_rec.statement_level then
5434: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', lv_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', lv_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
5438: end if;
5439:
5440: --for i in 1..l_asset_dist_tbl.count loop
5433: if p_log_level_rec.statement_level then
5434: fa_debug_pkg.add(l_calling_fn, 'trx_type_code:', lv_trans_rec.transaction_type_code, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add(l_calling_fn, 'trx_date_entered:', lv_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add(l_calling_fn, 'asset_id:', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add(l_calling_fn, 'book_type_code:', l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
5438: end if;
5439:
5440: --for i in 1..l_asset_dist_tbl.count loop
5441:
5439:
5440: --for i in 1..l_asset_dist_tbl.count loop
5441:
5442: if p_log_level_rec.statement_level then
5443: fa_debug_pkg.add(l_calling_fn, 'dist_id:', l_asset_dist_tbl(1).distribution_id);
5444: fa_debug_pkg.add(l_calling_fn, 'trx_units:', l_asset_dist_tbl(1).transaction_units);
5445: end if;
5446:
5447: --end loop;
5440: --for i in 1..l_asset_dist_tbl.count loop
5441:
5442: if p_log_level_rec.statement_level then
5443: fa_debug_pkg.add(l_calling_fn, 'dist_id:', l_asset_dist_tbl(1).distribution_id);
5444: fa_debug_pkg.add(l_calling_fn, 'trx_units:', l_asset_dist_tbl(1).transaction_units);
5445: end if;
5446:
5447: --end loop;
5448:
5576:
5577: BEGIN
5578:
5579:
5580: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
5581:
5582: -- ****************************************************
5583: -- ** Assign input parameters to local rec/tbl types
5584: -- ****************************************************
5610: else
5611: l_asset_retire_rec.status := 'REINSTATE';
5612: end if;
5613:
5614: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
5615: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(p_asset_hdr_rec.book_type_code);--Secondary Changes
5616: if (p_mrc_sob_type_code <> 'R') then
5617:
5618: if ((l_asset_retire_rec.units_retired = l_asset_desc_rec.current_units
5678: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5679: end if;
5680: end if;
5681:
5682: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'do fa_transaction_headers_pkg.insert_row', '', p_log_level_rec => p_log_level_rec); end if;
5683:
5684: fa_transaction_headers_pkg.insert_row
5685: (x_rowid => l_rowid,
5686: x_transaction_header_id => l_trans_rec.transaction_header_id,
5727:
5728: end if; -- reporting_flag
5729:
5730: if p_log_level_rec.statement_level then
5731: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.update_row', '', p_log_level_rec => p_log_level_rec);
5732: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.Retirement_Id, p_log_level_rec => p_log_level_rec);
5733: end if;
5734:
5735: -- ? just for now
5728: end if; -- reporting_flag
5729:
5730: if p_log_level_rec.statement_level then
5731: fa_debug_pkg.add(l_calling_fn, 'do fa_retirements_pkg.update_row', '', p_log_level_rec => p_log_level_rec);
5732: fa_debug_pkg.add(l_calling_fn, 'retirement_id: ', l_asset_retire_rec.Retirement_Id, p_log_level_rec => p_log_level_rec);
5733: end if;
5734:
5735: -- ? just for now
5736: -- l_asset_retire_rec.detail_info := null;
5936: -- initialize error message stack.
5937: fa_srvr_msg.init_server_message;
5938:
5939: -- initialize debug message stack.
5940: fa_debug_pkg.initialize;
5941: end if;
5942:
5943: -- ****************************************************
5944: -- ** Assign input parameters to local rec/tbl types
6003: -- *********************************************
6004: -- ** Do basic validation on input parameters
6005: -- *********************************************
6006:
6007: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin do_validation', '', p_log_level_rec => g_log_level_rec); end if;
6008: -- validate that all user-entered input parameters are valid
6009: if not do_validation
6010: (p_validation_type => g_undo_reinstatement
6011: ,p_trans_rec => l_trans_rec
6034: raise FND_API.G_EXC_ERROR;
6035: end if;
6036: end if;
6037:
6038: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'end do_validation', '', p_log_level_rec => g_log_level_rec); end if;
6039:
6040: if not undo_all_books_reinstatement
6041: (p_trans_rec => l_trans_rec
6042: ,p_asset_hdr_rec => l_asset_hdr_rec
6056:
6057: if (l_asset_type_rec.asset_type = 'CIP'
6058: or l_asset_type_rec.asset_type = 'CAPITALIZED') then
6059:
6060: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Asset type: ', l_asset_type_rec.asset_type, p_log_level_rec => g_log_level_rec); end if;
6061:
6062: if not fa_cache_pkg.fazctbk
6063: (x_corp_book => l_asset_hdr_rec.book_type_code
6064: ,x_asset_type => l_asset_type_rec.asset_type
6068:
6069: for l_tax_index in 1..l_tax_book_tbl.count loop
6070:
6071: if g_log_level_rec.statement_level then
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
6069: for l_tax_index in 1..l_tax_book_tbl.count loop
6070:
6071: if g_log_level_rec.statement_level then
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
6100: where asset_id=lv_asset_hdr_rec.asset_id
6101: and book_type_code=l_tax_book_tbl(l_tax_index)
6102: and status = 'REINSTATE';
6103:
6104: if g_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling undo_sub_retirement for tax book', '', p_log_level_rec => g_log_level_rec); end if;
6105:
6106: if not undo_all_books_reinstatement
6107: (p_trans_rec => lv_trans_rec -- tax
6108: ,p_asset_hdr_rec => lv_asset_hdr_rec -- tax
6271:
6272: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
6273:
6274: -- pop current period_rec info
6275: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop period_rec', '', p_log_level_rec => p_log_level_rec); end if;
6276: if not FA_UTIL_PVT.get_period_rec
6277: (p_book => l_asset_hdr_rec.book_type_code
6278: ,p_effective_date => NULL
6279: ,x_period_rec => l_period_rec
6286: -- ***************************************************
6287: -- begin asset/book-level validation on transaction
6288:
6289: -- nothing to do here
6290: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin asset/book-level validation on transaction', '', p_log_level_rec => p_log_level_rec); end if;
6291:
6292: -- ***************************
6293: -- ** Transaction approval
6294: -- ***************************
6307: -- ***************************
6308: -- ** Main
6309: -- ***************************
6310:
6311: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'calling do_sub_retirement for each book/sob', '', p_log_level_rec => p_log_level_rec); end if;
6312:
6313: l_rate := 1;
6314: if not undo_sub_reinstatement
6315: (p_trans_rec => l_trans_rec
6333: -- loop thourgh reporting set of books
6334: for sob_rec in sob_cursor(l_asset_hdr_rec.book_type_code
6335: ,l_asset_hdr_rec.set_of_books_id) loop
6336:
6337: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in sob_id loop', '', p_log_level_rec => p_log_level_rec); end if;
6338:
6339: l_asset_hdr_rec.set_of_books_id := sob_rec.sob_id;
6340: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code,
6341: x_set_of_books_id => sob_rec.sob_id,--l_asset_hdr_rec.set_of_books_id, Secondary changes Reporting SOB can be different from Primary
6355: end if;
6356: /*=================================================================
6357: Secondary Changes Start*/
6358: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id( l_asset_hdr_rec.book_type_code);
6359: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before sec del event l_secondary_sob_id',l_secondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
6360: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before sec del event', sob_rec.sob_id, p_log_level_rec => p_log_level_rec); end if;
6361: if (l_secondary_sob_id is not null)
6362: AND (l_secondary_sob_id = sob_rec.sob_id) then
6363: -- delete the event
6356: /*=================================================================
6357: Secondary Changes Start*/
6358: l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id( l_asset_hdr_rec.book_type_code);
6359: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before sec del event l_secondary_sob_id',l_secondary_sob_id, p_log_level_rec => p_log_level_rec); end if;
6360: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'before sec del event', sob_rec.sob_id, p_log_level_rec => p_log_level_rec); end if;
6361: if (l_secondary_sob_id is not null)
6362: AND (l_secondary_sob_id = sob_rec.sob_id) then
6363: -- delete the event
6364: if not fa_xla_events_pvt.delete_transaction_event
6447: end if;
6448:
6449: l_asset_retire_rec.status := 'PROCESSED';
6450:
6451: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'set_of_books_id: ', l_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec); end if;
6452:
6453: /*
6454: * Check to see previous retirement involved source lines or not.
6455: */
6698: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_validation';
6699:
6700: BEGIN
6701:
6702: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
6703: -- ****************************************************
6704: -- ** Assign input parameters to local rec/tbl types
6705: -- ****************************************************
6706: l_validation_type := p_validation_type;
6720: -- *********************************************
6721: -- ** Do basic validation on input parameters
6722: -- *********************************************
6723: -- do fundamental validation on input parameters
6724: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check fundamental validation on input parameters', '', p_log_level_rec => p_log_level_rec); end if;
6725:
6726: -- check list for validation on input parameters:
6727: -- validation of asset_id, book_type_code - done
6728: -- validation of transaction date(retired_date)
6739: -- check if asset_id and book are provided
6740: if l_validation_type=g_retirement then
6741: if l_asset_hdr_rec.asset_id is null
6742: or l_asset_hdr_rec.book_type_code is null then
6743: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Both asset_id and book_type_code should be provided.', '', p_log_level_rec => p_log_level_rec); end if;
6744: -- msg_name: FA_API_SHARED_INVALID_NOTNULL
6745: -- msg_text: Invalid value for <>. <> is a required field.
6746: g_msg_name := 'FA_API_SHARED_INVALID_NOTNULL';
6747: g_token1 := 'XMLTAG';
6781: or
6782: (l_asset_retire_rec.retirement_id is not null
6783: )
6784: ) then
6785: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Either asset_id/book or retirement_id should be provided.', '', p_log_level_rec => p_log_level_rec); end if;
6786: -- msg_name: FA_API_SHARED_INVALID_NOTNULL
6787: -- msg_text: Invalid value for <>. <> is a required field.
6788: g_msg_name := 'FA_API_SHARED_INVALID_NOTNULL';
6789: g_token1 := 'XMLTAG';
6794:
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
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;
6804: g_token1 := null;
6805: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: Retirement type is invalid', '', p_log_level_rec => p_log_level_rec); end if;
6806: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6807: end if;
6808: end if;
6809: end if;
6820: -- check if trade_in_asset_id is valid if it is not null
6821: if l_validation_type=g_retirement then
6822: if l_asset_retire_rec.trade_in_asset_id is not NULL then
6823:
6824: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if trade in asset number is the asset you are retiring', '', p_log_level_rec => p_log_level_rec); end if;
6825: if l_asset_hdr_rec.asset_id=l_asset_retire_rec.trade_in_asset_id then
6826: g_msg_name := 'FA_RET_INVALID_TRADE_IN';
6827: g_token1 := null;
6828: raise FND_API.G_EXC_ERROR;
6828: raise FND_API.G_EXC_ERROR;
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';
6841: end if; -- trade-in asset
6842: end if; -- g_retirement
6843:
6844: -- check if either units_retired or cost_retired is provided
6845: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if either units_retired or cost_retired is provided', '', p_log_level_rec => p_log_level_rec); end if;
6846: if l_validation_type=g_retirement then
6847: if l_asset_retire_rec.units_retired is null
6848: and l_asset_retire_rec.cost_retired is null then
6849: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Either units_retired or cost_retired should be provided.', '', p_log_level_rec => p_log_level_rec); end if;
6845: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check if either units_retired or cost_retired is provided', '', p_log_level_rec => p_log_level_rec); end if;
6846: if l_validation_type=g_retirement then
6847: if l_asset_retire_rec.units_retired is null
6848: and l_asset_retire_rec.cost_retired is null then
6849: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Either units_retired or cost_retired should be provided.', '', p_log_level_rec => p_log_level_rec); end if;
6850: g_msg_name := 'FA_API_SHARED_INVALID_NOTNULL';
6851: g_token1 := 'XMLTAG';
6852: g_value1 := 'UNITS_RETIRED or COST_RETIRED';
6853: raise FND_API.G_EXC_ERROR;
6853: raise FND_API.G_EXC_ERROR;
6854: end if;
6855: end if;
6856:
6857: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check units', '', p_log_level_rec => p_log_level_rec); end if;
6858: if l_validation_type=g_retirement then
6859: if l_asset_retire_rec.units_retired is not null then
6860:
6861: -- check to make sure that units_retired is positive
6889: -- Basically we need to populate asset_retire_rec at this point
6890: -- so that the following validation against units_retired
6891: -- ,which users will not probably provide, can be done.
6892:
6893: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'pop local asset_retire_rec', '', p_log_level_rec => p_log_level_rec); end if;
6894: if l_validation_type in (g_reinstatement
6895: ,g_undo_retirement
6896: ,g_undo_reinstatement) then
6897: -- pop local asset_retire_rec for retirement
6924: if not fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
6925: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6926: end if;
6927:
6928: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check to make sure that the transaction is not for CIP on TAX book', '', p_log_level_rec => p_log_level_rec); end if;
6929: if fa_cache_pkg.fazcbc_record.book_class = 'TAX'
6930: and l_asset_type_rec.asset_type = 'CIP' then
6931:
6932: -- we do not support this transaction
6929: if fa_cache_pkg.fazcbc_record.book_class = 'TAX'
6930: and l_asset_type_rec.asset_type = 'CIP' then
6931:
6932: -- we do not support this transaction
6933: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform this transaction on CIP asset.', '', p_log_level_rec => p_log_level_rec); end if;
6934: g_msg_name := null;
6935: g_token1 := null;
6936: raise FND_API.G_EXC_ERROR;
6937:
6951: if fa_cache_pkg.fazcbc_record.book_class = 'TAX'
6952: and l_asset_type_rec.asset_type = 'CIP' then
6953:
6954: -- we do not support this transaction
6955: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform this transaction on CIP asset.', '', p_log_level_rec => p_log_level_rec); end if;
6956: g_msg_name := null;
6957: g_token1 := null;
6958: raise FND_API.G_EXC_ERROR;
6959:
6964: end if; -- check p_calling_fn
6965:
6966:
6967: if l_validation_type = g_reinstatement then
6968: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'check to make sure that units_retired is valid', '', p_log_level_rec => p_log_level_rec); end if;
6969:
6970: if l_asset_retire_rec.units_retired is not null then
6971:
6972: -- default units_to_reinsate to total units retired before
7012: -- g_msg_name := 'VALUE_MUST_BE_POSITIVE_INT'; -- this must be generic enough to be also good for reinstatement since units_retired for reinstatement should be negative.
7013: /* Bug 6817771 - Starts
7014: commented following line and added next lines to have meaning ful error message and debug messages*/
7015: --g_msg_name := null;
7016: fa_debug_pkg.add(l_calling_fn, 'Error!', 'cant retire partial units.Please provide whole number.');
7017: fa_debug_pkg.add(l_calling_fn,'Asset ID', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
7018: fa_debug_pkg.add(l_calling_fn,'Ret. Units',l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
7019: g_msg_name := 'FA_RET_NO_FRAC_UNITS';
7020: /* Bug 6817771 - Ends */
7013: /* Bug 6817771 - Starts
7014: commented following line and added next lines to have meaning ful error message and debug messages*/
7015: --g_msg_name := null;
7016: fa_debug_pkg.add(l_calling_fn, 'Error!', 'cant retire partial units.Please provide whole number.');
7017: fa_debug_pkg.add(l_calling_fn,'Asset ID', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
7018: fa_debug_pkg.add(l_calling_fn,'Ret. Units',l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
7019: g_msg_name := 'FA_RET_NO_FRAC_UNITS';
7020: /* Bug 6817771 - Ends */
7021: g_token1 := null;
7014: commented following line and added next lines to have meaning ful error message and debug messages*/
7015: --g_msg_name := null;
7016: fa_debug_pkg.add(l_calling_fn, 'Error!', 'cant retire partial units.Please provide whole number.');
7017: fa_debug_pkg.add(l_calling_fn,'Asset ID', l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
7018: fa_debug_pkg.add(l_calling_fn,'Ret. Units',l_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
7019: g_msg_name := 'FA_RET_NO_FRAC_UNITS';
7020: /* Bug 6817771 - Ends */
7021: g_token1 := null;
7022: raise FND_API.G_EXC_ERROR;
7121: -- check if transaction date(date_retired) is in the current fiscal year
7122: -- date must be in current fiscal year
7123: if lv_asset_retire_rec.date_retired < l_period_rec.fy_start_date
7124: or lv_asset_retire_rec.date_retired > l_period_rec.fy_end_date then
7125: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not reinstate assets that were retired in previous fiscal year', '', p_log_level_rec => p_log_level_rec); end if;
7126: g_msg_name := 'FA_RET_DATE_MUSTBE_IN_CUR_FY';
7127: g_token1 := null;
7128: raise FND_API.G_EXC_ERROR;
7129: end if;
7179: -- check to make sure that the transaction is doable
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
7189: g_token1 := null;
7190: raise FND_API.G_EXC_ERROR;
7191: end if;
7192:
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
7203:
7204: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7205: end if;
7206: if p_log_level_rec.statement_level then
7207: fa_debug_pkg.add(l_calling_fn, 'perid_of_addition_flag: ', l_asset_hdr_rec.period_of_addition, p_log_level_rec => p_log_level_rec);
7208: end if;
7209:
7210: if (l_asset_hdr_rec.period_of_addition = 'Y' and
7211: G_release <> 11) and ( l_asset_fin_rec.deprn_method_code = 'JP-STL-EXTND'
7211: G_release <> 11) and ( l_asset_fin_rec.deprn_method_code = 'JP-STL-EXTND'
7212: and p_period_rec.calendar_period_open_date > l_asset_retire_rec.date_retired )then
7213:
7214: if p_log_level_rec.statement_level then
7215: fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform prior period retirement in extended deprn period.', '', p_log_level_rec => p_log_level_rec);
7216: end if;
7217:
7218: g_msg_name := 'FA_JP_PRIOR_PD_RET_NOT_ALLOWED ';
7219: g_token1 := null;
7224: close c_check_extended_deprn;
7225:
7226: if l_chk_ext_deprn = 'Y' then
7227: if p_log_level_rec.statement_level then
7228: fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform prior period retirement in extended deprn period.', '', p_log_level_rec => p_log_level_rec);
7229: end if;
7230:
7231: g_msg_name := 'FA_JP_PRIOR_PD_RET_NOT_ALLOWED ';
7232: g_token1 := null;
7277: When NO_DATA_FOUND then
7278: l_trans_flag := 'N';
7279: end;
7280: end if;
7281: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'l_trans_flag after Adjustment check'
7282: , l_trans_flag, p_log_level_rec => p_log_level_rec);
7283: end if;
7284: -- bug 14358565 checking if the retirement is overlapping to any deprn/bonus override
7285: If l_trans_flag = 'N' then
7314: When NO_DATA_FOUND then
7315: l_trans_flag := 'N';
7316: end;
7317: end if;
7318: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'l_trans_flag after override check'
7319: , l_trans_flag, p_log_level_rec => p_log_level_rec);
7320: end if;
7321:
7322: if l_trans_flag = 'Y' then
7319: , l_trans_flag, p_log_level_rec => p_log_level_rec);
7320: end if;
7321:
7322: if l_trans_flag = 'Y' then
7323: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn,
7324: 'Error: You can not perform this transaction.', '', p_log_level_rec => p_log_level_rec);
7325: end if;
7326: g_msg_name := 'FA_OVERLAP_FUL_RET';
7327: raise FND_API.G_EXC_ERROR;
7357:
7358: elsif l_validation_type = g_reinstatement then
7359:
7360: if lv_asset_retire_rec.status <> 'PROCESSED' then
7361: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform this transaction.', '', p_log_level_rec => p_log_level_rec); end if;
7362: g_msg_name := null;
7363: g_token1 := null;
7364: raise FND_API.G_EXC_ERROR;
7365: end if;
7398: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec.deprn_method_code,
7399: l_asset_fin_rec.life_in_months
7400: ,p_log_level_rec => p_log_level_rec)) then
7401: if (p_log_level_rec.statement_level) then
7402: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt'
7403: ,p_log_level_rec => p_log_level_rec);
7404: end if;
7405:
7406: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7421: elsif l_validation_type = g_undo_retirement then
7422:
7423: -- ? Is PARTIAL required ? when is it used ?
7424: if lv_asset_retire_rec.status not in ('PENDING','PARTIAL') then
7425: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform this transaction.', '', p_log_level_rec => p_log_level_rec); end if;
7426: g_msg_name := null;
7427: g_token1 := null;
7428: raise FND_API.G_EXC_ERROR;
7429: end if;
7452:
7453: elsif l_validation_type = g_undo_reinstatement then
7454:
7455: if lv_asset_retire_rec.status not in ('REINSTATE') then
7456: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'Error: You can not perform this transaction.', '', p_log_level_rec => p_log_level_rec); end if;
7457: g_msg_name := null;
7458: g_token1 := null;
7459: raise FND_API.G_EXC_ERROR;
7460: end if;
7660: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
7661: p_calling_fn => l_calling_fn,
7662: p_log_level_rec => p_log_level_rec) then
7663: if p_log_level_rec.statement_level then
7664: fa_debug_pkg.add(l_calling_fn, 'Error Calling FA_INVOICE_PVT.INVOICE_ENGINE', '', p_log_level_rec => p_log_level_rec);
7665: fa_debug_pkg.add(l_calling_fn, 'SQLERRM: ', SQLERRM, p_log_level_rec => p_log_level_rec);
7666: end if;
7667: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7668: end if;
7661: p_calling_fn => l_calling_fn,
7662: p_log_level_rec => p_log_level_rec) then
7663: if p_log_level_rec.statement_level then
7664: fa_debug_pkg.add(l_calling_fn, 'Error Calling FA_INVOICE_PVT.INVOICE_ENGINE', '', p_log_level_rec => p_log_level_rec);
7665: fa_debug_pkg.add(l_calling_fn, 'SQLERRM: ', SQLERRM, p_log_level_rec => p_log_level_rec);
7666: end if;
7667: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7668: end if;
7669: