[Home] [Help]
149: ret_err EXCEPTION;
150:
151: BEGIN
152: if (p_log_level_rec.statement_level) then
153: fa_debug_pkg.add(l_calling_fn, 'Begin',
154: p_asset_hdr_rec.asset_id||':'||p_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
155: end if;
156:
157: --Adding to bypass the issue in 3440308 (case where an equal # of units is
326: p_mrc_sob_type_code => p_mrc_sob_type_code,
327: p_mode => l_cglfr_mode,
328: p_log_level_rec => p_log_level_rec) then
329: if (p_log_level_rec.statement_level) then
330: fa_debug_pkg.add(l_calling_fn, 'ERROR',
331: 'returned from CALC_GAIN_LOSS_FOR_RET', p_log_level_rec => p_log_level_rec);
332: end if;
333:
334: raise ret_err;
377: if (l_cost_sign*l_new_rec_cost < l_cost_sign*l_new_reserve) then --Bug8535921
378: l_adj.adjustment_amount := l_new_reserve - l_new_rec_cost;
379:
380: if (p_log_level_rec.statement_level) then
381: fa_debug_pkg.add(l_calling_fn, 'Recapture Excess Reserve',
382: l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
383: end if;
384:
385: if p_asset_type_rec.asset_type = 'CIP' then
463: -- ENERGY
464: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec_old.deprn_method_code,
465: l_asset_fin_rec_old.life_in_months, p_log_level_rec => p_log_level_rec)) then
466: if (p_log_level_rec.statement_level) then
467: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
468: end if;
469:
470: raise ret_err;
471: end if;
480: end if;
481: -- ENERGY
482:
483: if (p_log_level_rec.statement_level) then
484: fa_debug_pkg.add(l_calling_fn, 'Call FA_ADJUSTMENT_PVT.do_adjustment1',
485: 'Begin', p_log_level_rec => p_log_level_rec);
486: end if;
487:
488: if not FA_ADJUSTMENT_PVT.do_adjustment
503: p_group_reclass_options_rec => l_group_reclass_options_rec,
504: p_calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec) then
505:
506: if (p_log_level_rec.statement_level) then
507: fa_debug_pkg.add(l_calling_fn, 'Calling FA_ADJUSTMENT_PVT.do_adjustment', 'Failed', p_log_level_rec => p_log_level_rec);
508: end if;
509:
510: raise ret_err;
511: end if;
510: raise ret_err;
511: end if;
512:
513: if (p_log_level_rec.statement_level) then
514: fa_debug_pkg.add(l_calling_fn, 'FA_ADJUSTMENT_PVT.do_adjustment', 'End', p_log_level_rec => p_log_level_rec);
515: end if;
516:
517: if (p_trans_rec.calling_interface <> 'FAXASSET') and
518: (nvl(l_asset_fin_rec_new.cost, 0) <> 0) and
531: (nvl(p_asset_retire_rec.proceeds_of_sale, 0) -
532: nvl(p_asset_retire_rec.cost_of_removal, 0)));
533:
534: if (p_log_level_rec.statement_level) then
535: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', l_alloc_amount, p_log_level_rec => p_log_level_rec);
536: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
537: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
538: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
539: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation : l_recapture_amount', l_recapture_amount, p_log_level_rec => p_log_level_rec);
532: nvl(p_asset_retire_rec.cost_of_removal, 0)));
533:
534: if (p_log_level_rec.statement_level) then
535: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', l_alloc_amount, p_log_level_rec => p_log_level_rec);
536: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
537: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
538: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
539: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation : l_recapture_amount', l_recapture_amount, p_log_level_rec => p_log_level_rec);
540: end if;
533:
534: if (p_log_level_rec.statement_level) then
535: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', l_alloc_amount, p_log_level_rec => p_log_level_rec);
536: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
537: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
538: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
539: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation : l_recapture_amount', l_recapture_amount, p_log_level_rec => p_log_level_rec);
540: end if;
541:
534: if (p_log_level_rec.statement_level) then
535: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', l_alloc_amount, p_log_level_rec => p_log_level_rec);
536: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
537: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
538: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
539: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation : l_recapture_amount', l_recapture_amount, p_log_level_rec => p_log_level_rec);
540: end if;
541:
542: if not FA_RETIREMENT_PVT.Do_Allocation(
535: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', l_alloc_amount, p_log_level_rec => p_log_level_rec);
536: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
537: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
538: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
539: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation : l_recapture_amount', l_recapture_amount, p_log_level_rec => p_log_level_rec);
540: end if;
541:
542: if not FA_RETIREMENT_PVT.Do_Allocation(
543: p_trans_rec => l_trans_rec,
548: p_reserve_amount => l_alloc_amount,
549: p_mrc_sob_type_code => p_mrc_sob_type_code,
550: p_calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec) then
551: if (p_log_level_rec.statement_level) then
552: fa_debug_pkg.add(l_calling_fn, 'Calling FA_ADJUSTMENT_PVT.do_adjustment', 'Failed', p_log_level_rec => p_log_level_rec);
553: end if;
554:
555: raise ret_err;
556: end if;
562: -- Distribution API called after FA_RETIREMENT_PUB.do_sub_regular_retirement
563: -- is expecting the status to be PENDING.
564: --
565: if (p_log_level_rec.statement_level) then
566: fa_debug_pkg.add(l_calling_fn, 'Call FA_RETIREMENTS_PKG.Update_Row', 'Begin', p_log_level_rec => p_log_level_rec);
567: end if;
568:
569: FA_RETIREMENTS_PKG.Update_Row(
570: X_Rowid => l_rowid,
575: X_set_of_books_id => p_asset_hdr_rec.set_of_books_id,
576: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
577:
578: if (p_log_level_rec.statement_level) then
579: fa_debug_pkg.add(l_calling_fn, 'Call FA_RETIREMENTS_PKG.Update_Row', 'End', p_log_level_rec => p_log_level_rec);
580: end if;
581:
582: -- SLA: update the event status in SLA as well to unprocessed
583: -- as original api inserted as incomplete
584:
585: if (p_mrc_sob_type_code <> 'R') then
586:
587: if p_log_level_rec.statement_level then
588: fa_debug_pkg.add
589: (fname => l_calling_fn,
590: element => 'calling fa_xla_events_pvt.update_transaction_event with thid: ',
591: value => p_trans_rec.transaction_header_id);
592: end if;
620: FETCH c_member_exists INTO l_member_exists;
621: CLOSE c_member_exists;
622:
623: if (p_log_level_rec.statement_level) then
624: fa_debug_pkg.add(l_calling_fn, 'Is there a member asset',
625: l_member_exists, p_log_level_rec => p_log_level_rec);
626: end if;
627:
628: if (nvl(l_member_exists, 'N') <> 'Y') then
663: end if; -- (nvl(l_asset_fin_rec_old.terminal_gain_loss, 'NO') = 'YES')
664:
665: end if; -- p_calling_fn <> 'DO_RETIREMENT.CGLFR_CR_ONLY'
666: if (p_log_level_rec.statement_level) then
667: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
668: end if;
669:
670: return true;
671: EXCEPTION
670: return true;
671: EXCEPTION
672: when ret_err then
673: if (p_log_level_rec.statement_level) then
674: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed', p_log_level_rec => p_log_level_rec);
675: end if;
676:
677: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
678: return false;
678: return false;
679:
680: when OTHERS then
681: if (p_log_level_rec.statement_level) then
682: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
683: end if;
684:
685: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
686: return false;
774:
775: end if; -- (p_mrc_sob_type_code = 'R')
776:
777: if (p_log_level_rec.statement_level) then
778: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
779: end if;
780:
781: return true;
782:
922:
923: rein_err EXCEPTION;
924: BEGIN
925: if (p_log_level_rec.statement_level) then
926: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id||':'||p_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
927: end if;
928:
929: G_PART_RET_FLAG := FALSE;
930:
933: (p_book => p_asset_hdr_rec.book_type_code,
934: x_period_rec => l_period_rec, p_log_level_rec => p_log_level_rec) then
935:
936: if (p_log_level_rec.statement_level) then
937: fa_debug_pkg.add(l_calling_fn, 'Calling FA_UTIL_PVT.get_period_rec', 'Failed', p_log_level_rec => p_log_level_rec);
938: end if;
939:
940: raise rein_err;
941: end if;
946: p_asset_hdr_rec => p_asset_hdr_rec,
947: px_asset_desc_rec => l_asset_desc_rec_m, p_log_level_rec => p_log_level_rec) then
948:
949: if (p_log_level_rec.statement_level) then
950: fa_debug_pkg.add(l_calling_fn, 'Calling FA_UTIL_PVT.get_asset_desc_rec', 'Failed', p_log_level_rec => p_log_level_rec);
951: end if;
952:
953: raise rein_err;
954: end if;
975:
976: if (t_distribution_id.COUNT = 0) then
977:
978: if (p_log_level_rec.statement_level) then
979: fa_debug_pkg.add(l_calling_fn, 'Getting distribution info', 'Failed', p_log_level_rec => p_log_level_rec);
980: end if;
981:
982: raise rein_err;
983: end if;
1352: raise rein_err;
1353: end if;
1354:
1355: if (p_log_level_rec.statement_level) then
1356: fa_debug_pkg.add(l_calling_fn, 'transaction_date_entered',
1357: p_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1354:
1355: if (p_log_level_rec.statement_level) then
1356: fa_debug_pkg.add(l_calling_fn, 'transaction_date_entered',
1357: p_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1361: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method, p_log_level_rec => p_log_level_rec);
1362: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
1356: fa_debug_pkg.add(l_calling_fn, 'transaction_date_entered',
1357: p_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1361: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method, p_log_level_rec => p_log_level_rec);
1362: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
1363: end if;
1364:
1357: p_trans_rec.transaction_date_entered, p_log_level_rec => p_log_level_rec);
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1361: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method, p_log_level_rec => p_log_level_rec);
1362: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
1363: end if;
1364:
1365:
1358: fa_debug_pkg.add(l_calling_fn, 'amortization_start_date',
1359: p_trans_rec.amortization_start_date, p_log_level_rec => p_log_level_rec);
1360: fa_debug_pkg.add(l_calling_fn, 'new.cost', l_asset_fin_rec_new.cost, p_log_level_rec => p_log_level_rec);
1361: fa_debug_pkg.add(l_calling_fn, 'tracking_method',l_asset_fin_rec_old.tracking_method, p_log_level_rec => p_log_level_rec);
1362: fa_debug_pkg.add(l_calling_fn, 'rule_name',fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
1363: end if;
1364:
1365:
1366: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1372: l_trans_rec.amortization_start_date := p_asset_retire_rec.date_retired;
1373: end if;
1374:
1375: if (p_log_level_rec.statement_level) then
1376: fa_debug_pkg.add(l_calling_fn, 'Call FA_ADJUSTMENT_PVT.do_adjustment2',
1377: 'Begin', p_log_level_rec => p_log_level_rec);
1378:
1379: end if;
1380:
1403: --
1404: -- This is Sum up member depreciation to group asset
1405: --
1406: if (p_log_level_rec.statement_level) then
1407: fa_debug_pkg.add(l_calling_fn, 'Process Member Rollup Group',
1408: l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
1409: end if;
1410: -- +++++ Remove group expense rows +++++
1411: DELETE FROM FA_ADJUSTMENTS
1428: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1429:
1430:
1431: if (p_log_level_rec.statement_level) then
1432: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
1433: end if;
1434:
1435: if (p_trans_rec.calling_interface <> 'FAXASSET') then
1436:
1436:
1437: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1438: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1439: if (p_log_level_rec.statement_level) then
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1443: fa_debug_pkg.add(l_calling_fn, 'reserve_retired', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
1444: fa_debug_pkg.add(l_calling_fn, 'recapture_amount', p_asset_retire_rec.detail_info.recapture_amount, p_log_level_rec => p_log_level_rec);
1437: if (nvl(l_asset_fin_rec_old.tracking_method, 'NO TRACK') = 'ALLOCATE') and
1438: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1439: if (p_log_level_rec.statement_level) then
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1443: fa_debug_pkg.add(l_calling_fn, 'reserve_retired', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
1444: fa_debug_pkg.add(l_calling_fn, 'recapture_amount', p_asset_retire_rec.detail_info.recapture_amount, p_log_level_rec => p_log_level_rec);
1445: end if;
1438: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE') then
1439: if (p_log_level_rec.statement_level) then
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1443: fa_debug_pkg.add(l_calling_fn, 'reserve_retired', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
1444: fa_debug_pkg.add(l_calling_fn, 'recapture_amount', p_asset_retire_rec.detail_info.recapture_amount, p_log_level_rec => p_log_level_rec);
1445: end if;
1446:
1439: if (p_log_level_rec.statement_level) then
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1443: fa_debug_pkg.add(l_calling_fn, 'reserve_retired', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
1444: fa_debug_pkg.add(l_calling_fn, 'recapture_amount', p_asset_retire_rec.detail_info.recapture_amount, p_log_level_rec => p_log_level_rec);
1445: end if;
1446:
1447: l_reserve_allocated := p_asset_retire_rec.cost_retired -
1440: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', ' ', p_log_level_rec => p_log_level_rec);
1441: fa_debug_pkg.add(l_calling_fn, 'proceeds_of_sale', p_asset_retire_rec.proceeds_of_sale, p_log_level_rec => p_log_level_rec);
1442: fa_debug_pkg.add(l_calling_fn, 'cost_of_removal', p_asset_retire_rec.cost_of_removal, p_log_level_rec => p_log_level_rec);
1443: fa_debug_pkg.add(l_calling_fn, 'reserve_retired', p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
1444: fa_debug_pkg.add(l_calling_fn, 'recapture_amount', p_asset_retire_rec.detail_info.recapture_amount, p_log_level_rec => p_log_level_rec);
1445: end if;
1446:
1447: l_reserve_allocated := p_asset_retire_rec.cost_retired -
1448: nvl(p_asset_retire_rec.proceeds_of_sale, 0) +
1460: p_mem_ret_thid => p_asset_retire_rec.detail_info.transaction_header_id_in,
1461: p_mrc_sob_type_code => p_mrc_sob_type_code,
1462: p_calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec) then
1463: if (p_log_level_rec.statement_level) then
1464: fa_debug_pkg.add(l_calling_fn, 'Calling FA_ADJUSTMENT_PVT.Do_Allocation', 'Failed', p_log_level_rec => p_log_level_rec);
1465: end if;
1466:
1467: raise rein_err;
1468: end if;
1471: end if; -- (p_trans_rec.calling_interface <> 'FAXASSET')
1472:
1473: if (p_log_level_rec.statement_level) then
1474: for r_dist in c_dist loop
1475: fa_debug_pkg.add(l_calling_fn, 'distribution_id', r_dist.distribution_id, p_log_level_rec => p_log_level_rec);
1476: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_in', r_dist.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
1477: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_out', r_dist.transaction_header_id_out, p_log_level_rec => p_log_level_rec);
1478: fa_debug_pkg.add(l_calling_fn, 'units_assigned', r_dist.units_assigned, p_log_level_rec => p_log_level_rec);
1479: fa_debug_pkg.add(l_calling_fn, 'transaction_units', r_dist.transaction_units, p_log_level_rec => p_log_level_rec);
1472:
1473: if (p_log_level_rec.statement_level) then
1474: for r_dist in c_dist loop
1475: fa_debug_pkg.add(l_calling_fn, 'distribution_id', r_dist.distribution_id, p_log_level_rec => p_log_level_rec);
1476: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_in', r_dist.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
1477: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_out', r_dist.transaction_header_id_out, p_log_level_rec => p_log_level_rec);
1478: fa_debug_pkg.add(l_calling_fn, 'units_assigned', r_dist.units_assigned, p_log_level_rec => p_log_level_rec);
1479: fa_debug_pkg.add(l_calling_fn, 'transaction_units', r_dist.transaction_units, p_log_level_rec => p_log_level_rec);
1480: end loop;
1473: if (p_log_level_rec.statement_level) then
1474: for r_dist in c_dist loop
1475: fa_debug_pkg.add(l_calling_fn, 'distribution_id', r_dist.distribution_id, p_log_level_rec => p_log_level_rec);
1476: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_in', r_dist.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
1477: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_out', r_dist.transaction_header_id_out, p_log_level_rec => p_log_level_rec);
1478: fa_debug_pkg.add(l_calling_fn, 'units_assigned', r_dist.units_assigned, p_log_level_rec => p_log_level_rec);
1479: fa_debug_pkg.add(l_calling_fn, 'transaction_units', r_dist.transaction_units, p_log_level_rec => p_log_level_rec);
1480: end loop;
1481: end if;
1474: for r_dist in c_dist loop
1475: fa_debug_pkg.add(l_calling_fn, 'distribution_id', r_dist.distribution_id, p_log_level_rec => p_log_level_rec);
1476: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_in', r_dist.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
1477: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_out', r_dist.transaction_header_id_out, p_log_level_rec => p_log_level_rec);
1478: fa_debug_pkg.add(l_calling_fn, 'units_assigned', r_dist.units_assigned, p_log_level_rec => p_log_level_rec);
1479: fa_debug_pkg.add(l_calling_fn, 'transaction_units', r_dist.transaction_units, p_log_level_rec => p_log_level_rec);
1480: end loop;
1481: end if;
1482:
1475: fa_debug_pkg.add(l_calling_fn, 'distribution_id', r_dist.distribution_id, p_log_level_rec => p_log_level_rec);
1476: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_in', r_dist.transaction_header_id_in, p_log_level_rec => p_log_level_rec);
1477: fa_debug_pkg.add(l_calling_fn, 'transaction_header_id_out', r_dist.transaction_header_id_out, p_log_level_rec => p_log_level_rec);
1478: fa_debug_pkg.add(l_calling_fn, 'units_assigned', r_dist.units_assigned, p_log_level_rec => p_log_level_rec);
1479: fa_debug_pkg.add(l_calling_fn, 'transaction_units', r_dist.transaction_units, p_log_level_rec => p_log_level_rec);
1480: end loop;
1481: end if;
1482:
1483: return true;
1484:
1485: EXCEPTION
1486: when rein_err then
1487: if (p_log_level_rec.statement_level) then
1488: fa_debug_pkg.add(l_calling_fn, '(rein_err)Processing reinstatement', 'Failed');
1489: end if;
1490:
1491: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1492:
1493: return false;
1494:
1495: when OTHERS then
1496: if (p_log_level_rec.statement_level) then
1497: fa_debug_pkg.add(l_calling_fn, '(others)Processing reinstatement', 'Failed');
1498: end if;
1499:
1500: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1501:
1571:
1572:
1573: BEGIN
1574: if (p_log_level_rec.statement_level) then
1575: fa_debug_pkg.add(l_calling_fn, 'Begin',
1576: p_asset_hdr_rec.asset_id||':'||p_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
1577: end if;
1578:
1579: -- BUG# 3641747
1614: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1615: l_adj.account_type := 'ASSET_COST_ACCT';
1616: end if;
1617:
1618: --fa_debug_pkg.add(l_calling_fn,'Before 1st check, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1619:
1620: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1621: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') and
1622: (p_mode = 'CR')) then
1627:
1628: if (nvl(l_adj.selection_thid, 0) = 0) then
1629:
1630: if (p_log_level_rec.statement_level) then
1631: fa_debug_pkg.add(l_calling_fn, 'Error', 'Getting selection_thid', p_log_level_rec => p_log_level_rec);
1632: end if;
1633:
1634: raise calc_err;
1635: end if; */
1662: raise calc_err;
1663: end if;
1664: end if;
1665:
1666: --fa_debug_pkg.add(l_calling_fn,'Before DR logic, book',p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec);
1667: -- Need to call cache again as this gets reset when the dist api gets called.
1668: if not fa_cache_pkg.fazcbc(x_book => p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
1669: raise calc_err;
1670: end if;
1671:
1672: --Doing this check due to 3188851.
1673: if p_mode <> 'CR' then
1674:
1675: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
1676: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1677:
1678: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1679: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1672: --Doing this check due to 3188851.
1673: if p_mode <> 'CR' then
1674:
1675: --fa_debug_pkg.add(l_calling_fn,'In DR logic, units_retired',p_asset_retire_rec.units_retired, p_log_level_rec => p_log_level_rec);
1676: --fa_debug_pkg.add(l_calling_fn,'In DR logic, book_class', fa_cache_pkg.fazcbc_record.book_class, p_log_level_rec => p_log_level_rec);
1677:
1678: if ((nvl(p_asset_retire_rec.units_retired, 0) > 0) and
1679: (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE')) then
1680: --
1777: end if;
1778:
1779: --tk_util.DumpAdjRec(l_adj, 'RSVm');
1780: if (p_log_level_rec.statement_level) then
1781: fa_debug_pkg.add(l_calling_fn, 'Retired Reserve', l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
1782: end if;
1783:
1784: if not FA_INS_ADJUST_PKG.faxinaj
1785: (l_adj,
1800:
1801: --tk_util.DumpAdjRec(l_adj, 'RSVposm');
1802:
1803: if (p_log_level_rec.statement_level) then
1804: fa_debug_pkg.add(l_calling_fn, 'Retired Reserve for Proceeds of Sale', l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
1805: end if;
1806:
1807: if not FA_INS_ADJUST_PKG.faxinaj
1808: (l_adj,
1822:
1823: --tk_util.DumpAdjRec(l_adj, 'RSVcorm');
1824:
1825: if (p_log_level_rec.statement_level) then
1826: fa_debug_pkg.add(l_calling_fn, 'Retired Reserve for Cost of Removal', l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
1827: end if;
1828:
1829: if not FA_INS_ADJUST_PKG.faxinaj
1830: (l_adj,
1846:
1847: --tk_util.DumpAdjRec(l_adj, 'Member COR');
1848:
1849: if (p_log_level_rec.statement_level) then
1850: fa_debug_pkg.add(l_calling_fn, 'Cost of Removal for member asset', l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
1851: end if;
1852:
1853: if not FA_INS_ADJUST_PKG.faxinaj
1854: (l_adj,
1871:
1872: --tk_util.DumpAdjRec(l_adj, 'MemberPOS');
1873:
1874: if (p_log_level_rec.statement_level) then
1875: fa_debug_pkg.add(l_calling_fn, 'Proceeds of Sale for member asset', l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
1876: end if;
1877:
1878: if not FA_INS_ADJUST_PKG.faxinaj
1879: (l_adj,
2286:
2287: end if; --p_mode <> 'CR'
2288:
2289: if (p_log_level_rec.statement_level) then
2290: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
2291: end if;
2292:
2293: return true;
2294:
2450:
2451: BEGIN
2452:
2453: if (p_log_level_rec.statement_level) then
2454: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id||':'||p_asset_fin_rec.group_asset_id, p_log_level_rec => p_log_level_rec);
2455: end if;
2456:
2457: -- BUG# 3641747
2458: -- call cache as it was not yet initialized
2578: -- ENERGY
2579: if (not fa_cache_pkg.fazccmt(p_asset_fin_rec.deprn_method_code,
2580: p_asset_fin_rec.life_in_months, p_log_level_rec => p_log_level_rec)) then
2581: if (p_log_level_rec.statement_level) then
2582: fa_debug_pkg.add(l_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => p_log_level_rec);
2583: end if;
2584:
2585: raise calc_err;
2586: end if;
2585: raise calc_err;
2586: end if;
2587:
2588: if (p_log_level_rec.statement_level) then
2589: fa_debug_pkg.add(l_calling_fn, 'tracking_method',
2590: p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2591: fa_debug_pkg.add(l_calling_fn, 'rule_name',
2592: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2593: end if;
2587:
2588: if (p_log_level_rec.statement_level) then
2589: fa_debug_pkg.add(l_calling_fn, 'tracking_method',
2590: p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2591: fa_debug_pkg.add(l_calling_fn, 'rule_name',
2592: fa_cache_pkg.fazcdrd_record.rule_name, p_log_level_rec => p_log_level_rec);
2593: end if;
2594: -- Energy: Need to reinstate member reserve entry cre
2595: -- BUG# 6899255
2602: (p_asset_fin_rec.tracking_method = 'CALCULATE') and
2603: (nvl(p_asset_fin_rec.member_rollup_flag, 'N') = 'N'
2604: ) then
2605: if (p_log_level_rec.statement_level) then
2606: fa_debug_pkg.add(l_calling_fn, 'reserve retired',
2607: p_asset_retire_rec.reserve_retired, p_log_level_rec => p_log_level_rec);
2608: end if;
2609:
2610: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
2905: end if;
2906: end if;
2907:
2908: if (p_log_level_rec.statement_level) then
2909: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec.deprn_reserve', l_asset_deprn_rec.deprn_reserve, p_log_level_rec => p_log_level_rec);
2910: end if;
2911:
2912: if not FA_AMORT_PVT.faxama
2913: (px_trans_rec => l_trans_rec,
2933: --tk_util.debug('new cost : '||to_char(x_asset_fin_rec.cost));
2934: --tk_util.debug('new adj cost : '||to_char(x_asset_fin_rec.adjusted_cost));
2935:
2936: if (p_log_level_rec.statement_level) then
2937: fa_debug_pkg.add(l_calling_fn, 'l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
2938: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec.tracking_method', p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2939: fa_debug_pkg.add(l_calling_fn, 'p_period_rec.calendar_period_open_date', p_period_rec.calendar_period_open_date,
2940: p_log_level_rec => p_log_level_rec);
2941: fa_debug_pkg.add(l_calling_fn, 'p_trans_rec.transaction_date_entered', p_trans_rec.transaction_date_entered,
2934: --tk_util.debug('new adj cost : '||to_char(x_asset_fin_rec.adjusted_cost));
2935:
2936: if (p_log_level_rec.statement_level) then
2937: fa_debug_pkg.add(l_calling_fn, 'l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
2938: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec.tracking_method', p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2939: fa_debug_pkg.add(l_calling_fn, 'p_period_rec.calendar_period_open_date', p_period_rec.calendar_period_open_date,
2940: p_log_level_rec => p_log_level_rec);
2941: fa_debug_pkg.add(l_calling_fn, 'p_trans_rec.transaction_date_entered', p_trans_rec.transaction_date_entered,
2942: p_log_level_rec => p_log_level_rec);
2935:
2936: if (p_log_level_rec.statement_level) then
2937: fa_debug_pkg.add(l_calling_fn, 'l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
2938: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec.tracking_method', p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2939: fa_debug_pkg.add(l_calling_fn, 'p_period_rec.calendar_period_open_date', p_period_rec.calendar_period_open_date,
2940: p_log_level_rec => p_log_level_rec);
2941: fa_debug_pkg.add(l_calling_fn, 'p_trans_rec.transaction_date_entered', p_trans_rec.transaction_date_entered,
2942: p_log_level_rec => p_log_level_rec);
2943: end if;
2937: fa_debug_pkg.add(l_calling_fn, 'l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
2938: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec.tracking_method', p_asset_fin_rec.tracking_method, p_log_level_rec => p_log_level_rec);
2939: fa_debug_pkg.add(l_calling_fn, 'p_period_rec.calendar_period_open_date', p_period_rec.calendar_period_open_date,
2940: p_log_level_rec => p_log_level_rec);
2941: fa_debug_pkg.add(l_calling_fn, 'p_trans_rec.transaction_date_entered', p_trans_rec.transaction_date_entered,
2942: p_log_level_rec => p_log_level_rec);
2943: end if;
2944:
2945: --
3105:
3106: end if; -- (p_asset_fin_rec.tracking_method = 'CALCULATE')
3107:
3108: if (p_log_level_rec.statement_level) then
3109: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
3110: end if;
3111:
3112: return true;
3113:
3208: calc_err EXCEPTION;
3209:
3210: BEGIN
3211: if (p_log_level_rec.statement_level) then
3212: fa_debug_pkg.add(l_calling_fn, 'Begin',
3213: p_ret.asset_id||':'||p_bk.group_asset_id, p_log_level_rec => p_log_level_rec);
3214: end if;
3215:
3216: /* Added for bug 8535921 */
3257: CLOSE c_get_thx;
3258:
3259: if (l_trans_rec.transaction_date_entered is null) then
3260: if (p_log_level_rec.statement_level) then
3261: fa_debug_pkg.add(l_calling_fn, 'Looking for retirement transaction', 'FAILED', p_log_level_rec => p_log_level_rec);
3262:
3263: end if;
3264:
3265: raise calc_err;
3330: raise calc_err;
3331: end if;
3332:
3333: if (p_log_level_rec.statement_level) then
3334: fa_debug_pkg.add(l_calling_fn, 'reserve retired for group',
3335: l_asset_deprn_rec_adj.deprn_reserve, p_log_level_rec => p_log_level_rec);
3336: end if;
3337:
3338: if (p_mrc_sob_type_code = 'R') then
3369: -- ** Code to handle recapture excess reserve has been moved to fa_gainloss_ret_pkg.faggrp
3370:
3371:
3372: if (p_log_level_rec.statement_level) then
3373: fa_debug_pkg.add(l_calling_fn, 'Call FA_ADJUSTMENT_PVT.do_adjustment3',
3374: 'Begin', p_log_level_rec => p_log_level_rec);
3375: end if;
3376:
3377: if not FA_ADJUSTMENT_PVT.do_adjustment
3392: p_group_reclass_options_rec => l_group_reclass_options_rec,
3393: p_calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec)then
3394:
3395: if (p_log_level_rec.statement_level) then
3396: fa_debug_pkg.add(l_calling_fn, 'Call FA_ADJUSTMENT_PVT.do_adjustment',
3397: 'Failed', p_log_level_rec => p_log_level_rec);
3398: end if;
3399:
3400: raise calc_err;
3405: --
3406: -- This is Sum up member depreciation to group asset
3407: --
3408: if (p_log_level_rec.statement_level) then
3409: fa_debug_pkg.add(l_calling_fn, 'Process Member Rollup Group',
3410: l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
3411: end if;
3412: end if; -- (nvl(l_asset_fin_rec_old.member_rollup_flag, 'N') = 'N')
3413:
3418: FETCH c_member_exists INTO l_member_exists;
3419: CLOSE c_member_exists;
3420:
3421: if (p_log_level_rec.statement_level) then
3422: fa_debug_pkg.add(l_calling_fn, 'Is there a member asset',
3423: l_member_exists, p_log_level_rec => p_log_level_rec);
3424: end if;
3425:
3426: if (nvl(l_member_exists, 'N') <> 'Y') then
3437:
3438: else
3439:
3440: if (p_log_level_rec.statement_level) then
3441: fa_debug_pkg.add(l_calling_fn, 'Call',
3442: 'fa_query_balances_pkg.query_balances', p_log_level_rec => p_log_level_rec);
3443: end if;
3444:
3445: fa_query_balances_pkg.query_balances(
3477: X_set_of_books_id => l_asset_hdr_rec.set_of_books_id,
3478: p_log_level_rec => p_log_level_rec);
3479:
3480: if (p_log_level_rec.statement_level) then
3481: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
3482: l_deprn_reserve, p_log_level_rec => p_log_level_rec);
3483: end if;
3484:
3485: -- If remaining resrve is not 0, insert NBV RETIRED GAIN/LOSS,
3487: -- update terminal gain loss amount in fa_books
3488: if (nvl(l_deprn_reserve, 0) <> 0) then
3489:
3490: if (p_log_level_rec.statement_level) then
3491: fa_debug_pkg.add(l_calling_fn, 'Create Terminal Gain/Loss entries',
3492: 'Begin', p_log_level_rec => p_log_level_rec);
3493: end if;
3494:
3495: l_adj.asset_id := l_asset_hdr_rec.asset_id;
3554: raise calc_err;
3555: end if;
3556:
3557: if (p_log_level_rec.statement_level) then
3558: fa_debug_pkg.add(l_calling_fn, 'Create Terminal Gain/Loss entries',
3559: 'End', p_log_level_rec => p_log_level_rec);
3560: end if;
3561:
3562: FA_BOOKS_PKG.Update_Row(
3575:
3576: end if; -- (nvl(l_asset_fin_rec_old.terminal_gain_loss, 'NO') = 'YES') and
3577:
3578: if (p_log_level_rec.statement_level) then
3579: fa_debug_pkg.add(l_calling_fn, 'End', 'Success', p_log_level_rec => p_log_level_rec);
3580: end if;
3581:
3582: return TRUE;
3583:
3709: calc_err EXCEPTION;
3710:
3711: BEGIN
3712: if (p_log_level_rec.statement_level) then
3713: fa_debug_pkg.add(l_calling_fn, 'Begin',
3714: p_ret.asset_id||':'||p_bk.group_asset_id, p_log_level_rec => p_log_level_rec);
3715: end if;
3716:
3717: --
3748: CLOSE c_get_thx;
3749:
3750: if (l_trans_rec.transaction_date_entered is null) then
3751: if (p_log_level_rec.statement_level) then
3752: fa_debug_pkg.add(l_calling_fn, 'Looking for retirement transaction', 'FAILED', p_log_level_rec => p_log_level_rec);
3753:
3754: end if;
3755:
3756: raise calc_err;
3883:
3884: end if;
3885:
3886: if (p_log_level_rec.statement_level) then
3887: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec_adj.deprn_reserve',l_asset_deprn_rec_adj.deprn_reserve, p_log_level_rec);
3888: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec_adj.deprn_amount',l_asset_deprn_rec_adj.deprn_amount, p_log_level_rec);
3889: end if;
3890:
3891: l_asset_hdr_rec_m.asset_id := p_ret.asset_id;
3884: end if;
3885:
3886: if (p_log_level_rec.statement_level) then
3887: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec_adj.deprn_reserve',l_asset_deprn_rec_adj.deprn_reserve, p_log_level_rec);
3888: fa_debug_pkg.add(l_calling_fn, 'l_asset_deprn_rec_adj.deprn_amount',l_asset_deprn_rec_adj.deprn_amount, p_log_level_rec);
3889: end if;
3890:
3891: l_asset_hdr_rec_m.asset_id := p_ret.asset_id;
3892: l_asset_hdr_rec_m.book_type_code := p_ret.book;
3918: (fa_cache_pkg.fazcdrd_record.rule_name = 'ENERGY PERIOD END BALANCE')) then
3919: l_trans_rec.transaction_date_entered := p_ret.date_retired;
3920: l_trans_rec.amortization_start_date := p_ret.date_retired;
3921: if (p_log_level_rec.statement_level) then
3922: fa_debug_pkg.add(l_calling_fn, 'New transaction_date_entered',l_trans_rec.transaction_date_entered);
3923: fa_debug_pkg.add(l_calling_fn, 'New amortization_start_date',l_trans_rec.transaction_date_entered);
3924: end if;
3925: end if;
3926: /*8206076 -End */
3919: l_trans_rec.transaction_date_entered := p_ret.date_retired;
3920: l_trans_rec.amortization_start_date := p_ret.date_retired;
3921: if (p_log_level_rec.statement_level) then
3922: fa_debug_pkg.add(l_calling_fn, 'New transaction_date_entered',l_trans_rec.transaction_date_entered);
3923: fa_debug_pkg.add(l_calling_fn, 'New amortization_start_date',l_trans_rec.transaction_date_entered);
3924: end if;
3925: end if;
3926: /*8206076 -End */
3927:
3925: end if;
3926: /*8206076 -End */
3927:
3928: if (p_log_level_rec.statement_level) then
3929: fa_debug_pkg.add(l_calling_fn, 'Call FA_ADJUSTMENT_PVT.do_adjustment4',
3930: 'Begin', p_log_level_rec => p_log_level_rec);
3931:
3932: end if;
3933:
3955: --
3956: -- This is Sum up member depreciation to group asset
3957: --
3958: if (p_log_level_rec.statement_level) then
3959: fa_debug_pkg.add(l_calling_fn, 'Process Member Rollup Group',
3960: l_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
3961: end if;
3962:
3963: -- +++++ Remove group expense rows +++++
4112:
4113: if (nvl(l_member_exists, 'N') = 'N' ) then
4114:
4115: if (p_log_level_rec.statement_level) then
4116: fa_debug_pkg.add(l_calling_fn, 'Call',
4117: 'fa_query_balances_pkg.query_balances', p_log_level_rec => p_log_level_rec);
4118: end if;
4119:
4120: fa_query_balances_pkg.query_balances(
4152: X_set_of_books_id => p_set_of_books_id,
4153: p_log_level_rec => p_log_level_rec);
4154:
4155: if (p_log_level_rec.statement_level) then
4156: fa_debug_pkg.add(l_calling_fn, 'Coming back from Query Balance',
4157: l_deprn_reserve, p_log_level_rec => p_log_level_rec);
4158: end if;
4159:
4160: l_adj.asset_id := p_asset_id;
4169: CLOSE c_max_ret_thid;
4170: end if;
4171:
4172: if (p_log_level_rec.statement_level) then
4173: fa_debug_pkg.add(l_calling_fn, 'Transaction_Header_Id for Terminal GL',
4174: l_adj.transaction_header_id, p_log_level_rec => p_log_level_rec);
4175: end if;
4176:
4177: l_adj.book_type_code := p_book_type_code;
4249: X_Calling_Fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4250:
4251: else
4252: if (p_log_level_rec.statement_level) then
4253: fa_debug_pkg.add(l_calling_fn, 'There is at least non retired member exists',
4254: p_asset_id, p_log_level_rec => p_log_level_rec);
4255: end if;
4256: --
4257: -- Must not calculate terminal gain loss as long as some
4325:
4326: BEGIN
4327:
4328: if (p_log_level_rec.statement_level) then
4329: fa_debug_pkg.add(l_calling_fn, 'Begin', p_book_type_code, p_log_level_rec => p_log_level_rec);
4330: end if;
4331:
4332: --+++++ Get Current Period Info +++++
4333: if not FA_UTIL_PVT.get_period_rec(
4362: FETCH c_get_groups BULK COLLECT INTO t_asset_id;
4363: end if;
4364:
4365: if (p_log_level_rec.statement_level) then
4366: fa_debug_pkg.add(l_calling_fn, 'Number of rows fetched',
4367: to_char(t_asset_id.count));
4368: end if;
4369:
4370: EXIT WHEN t_asset_id.count = 0;
4392:
4393: for l_sob_index in 1..l_sob_tbl.count loop
4394:
4395: if p_log_level_rec.statement_level then
4396: fa_debug_pkg.add (l_calling_fn, 'Reporting book loop: Set_of_books_id',
4397: l_sob_tbl(l_sob_index));
4398: end if;
4399:
4400: if not fa_cache_pkg.fazcbcs(x_book => p_book_type_code,
4428: CLOSE c_get_groups;
4429: end if;
4430:
4431: if (p_log_level_rec.statement_level) then
4432: fa_debug_pkg.add(l_calling_fn, 'End', p_book_type_code, p_log_level_rec => p_log_level_rec);
4433: end if;
4434:
4435: return true;
4436:
4492:
4493: tgl_err EXCEPTION;
4494: BEGIN
4495: if (p_log_level_rec.statement_level) then
4496: fa_debug_pkg.add(l_calling_fn, 'Begin', to_char(p_asset_hdr_rec.asset_id)||':'||
4497: p_asset_hdr_rec.book_type_code);
4498: end if;
4499:
4500: --
4520:
4521: if (l_asset_id is not null) then
4522:
4523: if (p_log_level_rec.statement_level) then
4524: fa_debug_pkg.add(l_calling_fn, 'Member exists', to_char(l_asset_id));
4525: fa_debug_pkg.add(l_calling_fn, 'End', 'No Terminal Gain Loss Calculatd', p_log_level_rec => p_log_level_rec);
4526: end if;
4527:
4528: return TRUE;
4521: if (l_asset_id is not null) then
4522:
4523: if (p_log_level_rec.statement_level) then
4524: fa_debug_pkg.add(l_calling_fn, 'Member exists', to_char(l_asset_id));
4525: fa_debug_pkg.add(l_calling_fn, 'End', 'No Terminal Gain Loss Calculatd', p_log_level_rec => p_log_level_rec);
4526: end if;
4527:
4528: return TRUE;
4529:
4529:
4530: end if;
4531:
4532: if (p_log_level_rec.statement_level) then
4533: fa_debug_pkg.add(l_calling_fn, 'Continue', 'Checking remaining reserve ', p_log_level_rec => p_log_level_rec);
4534: end if;
4535:
4536: if (p_log_level_rec.statement_level) then
4537: fa_debug_pkg.add(l_calling_fn, 'Call',
4533: fa_debug_pkg.add(l_calling_fn, 'Continue', 'Checking remaining reserve ', p_log_level_rec => p_log_level_rec);
4534: end if;
4535:
4536: if (p_log_level_rec.statement_level) then
4537: fa_debug_pkg.add(l_calling_fn, 'Call',
4538: 'fa_query_balances_pkg.query_balances', p_log_level_rec => p_log_level_rec);
4539: end if;
4540:
4541: fa_query_balances_pkg.query_balances(
4573: X_set_of_books_id => p_asset_hdr_rec.set_of_books_id,
4574: p_log_level_rec => p_log_level_rec);
4575:
4576: if (p_log_level_rec.statement_level) then
4577: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
4578: l_deprn_reserve, p_log_level_rec => p_log_level_rec);
4579: end if;
4580:
4581: if (nvl(l_deprn_reserve, 0) = 0) then
4580:
4581: if (nvl(l_deprn_reserve, 0) = 0) then
4582:
4583: if (p_log_level_rec.statement_level) then
4584: fa_debug_pkg.add(l_calling_fn, 'Reserve is 0', 'No Terminal Gain Loss Calculatd', p_log_level_rec => p_log_level_rec);
4585: end if;
4586:
4587: return TRUE;
4588:
4588:
4589: end if;
4590:
4591: if (p_log_level_rec.statement_level) then
4592: fa_debug_pkg.add(l_calling_fn, 'Continue', 'Eligible for Terminal Gain Loss', p_log_level_rec => p_log_level_rec);
4593: end if;
4594:
4595: --
4596: -- Setting TERMINAL_GAIN_LOSS_FLAG so terminal gain loss will be
4654: end if; -- (p_asset_fin_rec.cost = 0) and
4655:
4656:
4657: if (p_log_level_rec.statement_level) then
4658: fa_debug_pkg.add(l_calling_fn, 'l_is_tgl_due', l_is_tgl_due, p_log_level_rec => p_log_level_rec);
4659: fa_debug_pkg.add(l_calling_fn, 'End', 'SUCCESS', p_log_level_rec => p_log_level_rec);
4660: end if;
4661:
4662: return TRUE;
4655:
4656:
4657: if (p_log_level_rec.statement_level) then
4658: fa_debug_pkg.add(l_calling_fn, 'l_is_tgl_due', l_is_tgl_due, p_log_level_rec => p_log_level_rec);
4659: fa_debug_pkg.add(l_calling_fn, 'End', 'SUCCESS', p_log_level_rec => p_log_level_rec);
4660: end if;
4661:
4662: return TRUE;
4663:
4663:
4664: EXCEPTION
4665: WHEN tgl_err THEN
4666: if (p_log_level_rec.statement_level) then
4667: fa_debug_pkg.add(l_calling_fn, 'End', FALSE, p_log_level_rec => p_log_level_rec);
4668: end if;
4669:
4670: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4671: return FALSE;
4671: return FALSE;
4672:
4673: WHEN OTHERS THEN
4674: if (p_log_level_rec.statement_level) then
4675: fa_debug_pkg.add(l_calling_fn, 'End', FALSE, p_log_level_rec => p_log_level_rec);
4676: end if;
4677:
4678: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4679: return FALSE;
5108:
5109: BEGIN
5110:
5111: if (p_log_level_rec.statement_level) then
5112: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5109: BEGIN
5110:
5111: if (p_log_level_rec.statement_level) then
5112: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5117: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.set_of_books_id', p_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
5110:
5111: if (p_log_level_rec.statement_level) then
5112: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5117: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.set_of_books_id', p_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
5118: end if;
5111: if (p_log_level_rec.statement_level) then
5112: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5117: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.set_of_books_id', p_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
5118: end if;
5119:
5112: fa_debug_pkg.add(l_calling_fn, 'Begin', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5117: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.set_of_books_id', p_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
5118: end if;
5119:
5120: if (p_reserve_amount = 0) then
5113: fa_debug_pkg.add(l_calling_fn, 'Transaction_key', p_trans_rec.transaction_key, p_log_level_rec => p_log_level_rec);
5114: fa_debug_pkg.add(l_calling_fn, 'p_mode', p_mode,p_log_level_rec);
5115: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
5116: 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);
5117: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.set_of_books_id', p_asset_hdr_rec.set_of_books_id, p_log_level_rec => p_log_level_rec);
5118: end if;
5119:
5120: if (p_reserve_amount = 0) then
5121: if (p_log_level_rec.statement_level) then
5118: end if;
5119:
5120: if (p_reserve_amount = 0) then
5121: if (p_log_level_rec.statement_level) then
5122: fa_debug_pkg.add(l_calling_fn, 'Returning from do_allocation as p_reserve_amount is 0', '',p_log_level_rec);
5123: end if;
5124: return TRUE;
5125: end if;
5126:
5160: close c_reins_mem_details;
5161: end if;
5162: h_rein_mem_asset_id := l_reins_mem_details.asset_id;
5163: if (p_log_level_rec.statement_level) then
5164: fa_debug_pkg.add(l_calling_fn, 'h_rein_mem_asset_id', h_rein_mem_asset_id,p_log_level_rec);
5165: end if;
5166:
5167: fa_query_balances_pkg.query_balances(
5168: X_asset_id => h_rein_mem_asset_id,
5199: X_set_of_books_id => p_asset_hdr_rec.set_of_books_id,
5200: p_log_level_rec => p_log_level_rec);
5201: l_rein_mem_adj_cost := l_reins_mem_details.recoverable_cost - l_rein_mem_deprn_resv;
5202: if (p_log_level_rec.statement_level) then
5203: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec);
5204: end if;
5205: end if;
5206: /* bug 8633654 ends */
5207:
5218: l_sum_adj_cost := p_asset_fin_rec.recoverable_cost - p_asset_deprn_rec_new.deprn_reserve -
5219: p_reserve_amount - nvl(l_rein_mem_adj_cost,0);
5220:
5221: if (p_log_level_rec.statement_level) then
5222: fa_debug_pkg.add(l_calling_fn, 'group reserve', p_asset_deprn_rec_new.deprn_reserve, p_log_level_rec => p_log_level_rec);
5223: fa_debug_pkg.add(l_calling_fn, 'sum rec_cost', p_asset_fin_rec.recoverable_cost, p_log_level_rec => p_log_level_rec);
5224: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5225: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5219: p_reserve_amount - nvl(l_rein_mem_adj_cost,0);
5220:
5221: if (p_log_level_rec.statement_level) then
5222: fa_debug_pkg.add(l_calling_fn, 'group reserve', p_asset_deprn_rec_new.deprn_reserve, p_log_level_rec => p_log_level_rec);
5223: fa_debug_pkg.add(l_calling_fn, 'sum rec_cost', p_asset_fin_rec.recoverable_cost, p_log_level_rec => p_log_level_rec);
5224: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5225: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5227: end if;
5220:
5221: if (p_log_level_rec.statement_level) then
5222: fa_debug_pkg.add(l_calling_fn, 'group reserve', p_asset_deprn_rec_new.deprn_reserve, p_log_level_rec => p_log_level_rec);
5223: fa_debug_pkg.add(l_calling_fn, 'sum rec_cost', p_asset_fin_rec.recoverable_cost, p_log_level_rec => p_log_level_rec);
5224: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5225: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5227: end if;
5228:
5221: if (p_log_level_rec.statement_level) then
5222: fa_debug_pkg.add(l_calling_fn, 'group reserve', p_asset_deprn_rec_new.deprn_reserve, p_log_level_rec => p_log_level_rec);
5223: fa_debug_pkg.add(l_calling_fn, 'sum rec_cost', p_asset_fin_rec.recoverable_cost, p_log_level_rec => p_log_level_rec);
5224: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5225: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5227: end if;
5228:
5229:
5222: fa_debug_pkg.add(l_calling_fn, 'group reserve', p_asset_deprn_rec_new.deprn_reserve, p_log_level_rec => p_log_level_rec);
5223: fa_debug_pkg.add(l_calling_fn, 'sum rec_cost', p_asset_fin_rec.recoverable_cost, p_log_level_rec => p_log_level_rec);
5224: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5225: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_adj_cost', l_rein_mem_adj_cost,p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5227: end if;
5228:
5229:
5230: if (p_mrc_sob_type_code = 'R') then
5238: open c_ret_adj_count;
5239: fetch c_ret_adj_count into l_ret_adj_count;
5240: close c_ret_adj_count;
5241: IF (p_log_level_rec.statement_level) then
5242: fa_debug_pkg.add(l_calling_fn, 'l_ret_adj_count', l_ret_adj_count,p_log_level_rec);
5243: END IF;
5244: IF l_ret_adj_count = 0 THEN
5245: IF (p_log_level_rec.statement_level) then
5246: fa_debug_pkg.add(l_calling_fn, 'No allocation happened during retirement', ' ',p_log_level_rec);
5242: fa_debug_pkg.add(l_calling_fn, 'l_ret_adj_count', l_ret_adj_count,p_log_level_rec);
5243: END IF;
5244: IF l_ret_adj_count = 0 THEN
5245: IF (p_log_level_rec.statement_level) then
5246: fa_debug_pkg.add(l_calling_fn, 'No allocation happened during retirement', ' ',p_log_level_rec);
5247: fa_debug_pkg.add(l_calling_fn, 'End of allocation', ' ',p_log_level_rec);
5248: END IF;
5249: return TRUE;
5250:
5243: END IF;
5244: IF l_ret_adj_count = 0 THEN
5245: IF (p_log_level_rec.statement_level) then
5246: fa_debug_pkg.add(l_calling_fn, 'No allocation happened during retirement', ' ',p_log_level_rec);
5247: fa_debug_pkg.add(l_calling_fn, 'End of allocation', ' ',p_log_level_rec);
5248: END IF;
5249: return TRUE;
5250:
5251: END IF;
5301: , t_reins_asset_flag LIMIT l_limit;
5302: end if;
5303:
5304: if (p_log_level_rec.statement_level) then
5305: fa_debug_pkg.add(l_calling_fn, 'In Main Cursor', t_asset_id.count, p_log_level_rec => p_log_level_rec);
5306: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5307: end if;
5308:
5309: if t_asset_id.count = 0 then
5302: end if;
5303:
5304: if (p_log_level_rec.statement_level) then
5305: fa_debug_pkg.add(l_calling_fn, 'In Main Cursor', t_asset_id.count, p_log_level_rec => p_log_level_rec);
5306: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5307: end if;
5308:
5309: if t_asset_id.count = 0 then
5310:
5420: l_loc := 'Before ADJ LOOP';
5421: -- Prepare non-common FA_ADJUST_TYPE_PKG.FA_ADJ_ROW_STRUCT parameters and
5422: -- call faxinaj to create records in FA_ADJUSTMENTS table
5423: if (p_log_level_rec.statement_level) then
5424: fa_debug_pkg.add(l_calling_fn, 'Before ADJ LOOP', t_asset_id(1));
5425: fa_debug_pkg.add(l_calling_fn, 't_asset_id.last', t_asset_id.last, p_log_level_rec => p_log_level_rec);
5426: end if;
5427:
5428:
5421: -- Prepare non-common FA_ADJUST_TYPE_PKG.FA_ADJ_ROW_STRUCT parameters and
5422: -- call faxinaj to create records in FA_ADJUSTMENTS table
5423: if (p_log_level_rec.statement_level) then
5424: fa_debug_pkg.add(l_calling_fn, 'Before ADJ LOOP', t_asset_id(1));
5425: fa_debug_pkg.add(l_calling_fn, 't_asset_id.last', t_asset_id.last, p_log_level_rec => p_log_level_rec);
5426: end if;
5427:
5428:
5429: FOR i in 1..t_asset_id.last LOOP
5428:
5429: FOR i in 1..t_asset_id.last LOOP
5430:
5431: if (p_log_level_rec.statement_level) then
5432: fa_debug_pkg.add(l_calling_fn, 'asset_id', t_asset_id(i),p_log_level_rec => p_log_level_rec);
5433: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5435: end if;
5436:
5429: FOR i in 1..t_asset_id.last LOOP
5430:
5431: if (p_log_level_rec.statement_level) then
5432: fa_debug_pkg.add(l_calling_fn, 'asset_id', t_asset_id(i),p_log_level_rec => p_log_level_rec);
5433: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5435: end if;
5436:
5437: if (p_trans_rec.transaction_key = 'MR') or
5430:
5431: if (p_log_level_rec.statement_level) then
5432: fa_debug_pkg.add(l_calling_fn, 'asset_id', t_asset_id(i),p_log_level_rec => p_log_level_rec);
5433: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount, p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add(l_calling_fn, 'l_sum_adj_cost', l_sum_adj_cost, p_log_level_rec => p_log_level_rec);
5435: end if;
5436:
5437: if (p_trans_rec.transaction_key = 'MR') or
5438: (p_mode = 'RECURR') then
5437: if (p_trans_rec.transaction_key = 'MR') or
5438: (p_mode = 'RECURR') then
5439:
5440: if (p_log_level_rec.statement_level) then
5441: fa_debug_pkg.add(l_calling_fn, 'Call',
5442: 'fa_query_balances_pkg.query_balances', p_log_level_rec => p_log_level_rec);
5443: end if;
5444: bln_use_cur_asset := FALSE;
5445: if (p_trans_rec.transaction_key = 'MR' OR (p_mode = 'RECURR' AND t_reins_asset_flag(i) = 'NO') ) THEN
5481: X_set_of_books_id => p_asset_hdr_rec.set_of_books_id,
5482: p_log_level_rec => p_log_level_rec);
5483:
5484: if (p_log_level_rec.statement_level) then
5485: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5486: t_asset_id(i),p_log_level_rec);
5487: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5488: l_deprn_reserve,p_log_level_rec);
5489: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')',
5483:
5484: if (p_log_level_rec.statement_level) then
5485: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5486: t_asset_id(i),p_log_level_rec);
5487: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5488: l_deprn_reserve,p_log_level_rec);
5489: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')',
5490: t_adjusted_cost(i),p_log_level_rec);
5491: fa_debug_pkg.add(l_calling_fn, 't_recoverable_cost('||to_char(i)||')',
5485: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5486: t_asset_id(i),p_log_level_rec);
5487: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5488: l_deprn_reserve,p_log_level_rec);
5489: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')',
5490: t_adjusted_cost(i),p_log_level_rec);
5491: fa_debug_pkg.add(l_calling_fn, 't_recoverable_cost('||to_char(i)||')',
5492: t_recoverable_cost(i),p_log_level_rec);
5493: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5487: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5488: l_deprn_reserve,p_log_level_rec);
5489: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')',
5490: t_adjusted_cost(i),p_log_level_rec);
5491: fa_debug_pkg.add(l_calling_fn, 't_recoverable_cost('||to_char(i)||')',
5492: t_recoverable_cost(i),p_log_level_rec);
5493: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5494: t_adjusted_recoverable_cost(i),p_log_level_rec);
5495: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total',
5489: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')',
5490: t_adjusted_cost(i),p_log_level_rec);
5491: fa_debug_pkg.add(l_calling_fn, 't_recoverable_cost('||to_char(i)||')',
5492: t_recoverable_cost(i),p_log_level_rec);
5493: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5494: t_adjusted_recoverable_cost(i),p_log_level_rec);
5495: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total',
5496: l_actual_rsv_total,p_log_level_rec);
5497: end if;
5491: fa_debug_pkg.add(l_calling_fn, 't_recoverable_cost('||to_char(i)||')',
5492: t_recoverable_cost(i),p_log_level_rec);
5493: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5494: t_adjusted_recoverable_cost(i),p_log_level_rec);
5495: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total',
5496: l_actual_rsv_total,p_log_level_rec);
5497: end if;
5498:
5499: t_adjusted_cost(i) := t_recoverable_cost(i) - l_deprn_reserve;
5500:
5501: end if;
5502:
5503: if (p_log_level_rec.statement_level) then
5504: fa_debug_pkg.add(l_calling_fn, 't_adjusted_cost('||to_char(i)||')', t_adjusted_cost(i));
5505: end if;
5506:
5507: if t_adjusted_cost(i) <> 0 then
5508: l_adj.adjustment_amount := abs(p_reserve_amount) * (t_adjusted_cost(i)/l_sum_adj_cost);
5535: bln_use_cur_asset := TRUE;
5536: /* Bug 8633654 ends */
5537:
5538: if (p_log_level_rec.statement_level) then
5539: fa_debug_pkg.add(l_calling_fn, 'new l_adj.adjustment_amount',
5540: l_adj.adjustment_amount,p_log_level_rec);
5541: end if;
5542:
5543: l_actual_rsv_total := l_actual_rsv_total + sign(p_reserve_amount) * l_adj.adjustment_amount;
5545:
5546: /* Bug 8633654 starts */
5547: elsif (p_mode = 'RECURR' AND t_reins_asset_flag(i) = 'YES') THEN
5548: if (p_log_level_rec.statement_level) then
5549: fa_debug_pkg.add(l_calling_fn, 'Reinstated member','start',p_log_level_rec);
5550: end if;
5551: if (bln_rein_mem_reqd OR (NOT bln_other_mem_exists) ) THEN
5552: if (p_log_level_rec.statement_level) then
5553: fa_debug_pkg.add(l_calling_fn, 'Reinstated member','allocate remaining',p_log_level_rec);
5549: fa_debug_pkg.add(l_calling_fn, 'Reinstated member','start',p_log_level_rec);
5550: end if;
5551: if (bln_rein_mem_reqd OR (NOT bln_other_mem_exists) ) THEN
5552: if (p_log_level_rec.statement_level) then
5553: fa_debug_pkg.add(l_calling_fn, 'Reinstated member','allocate remaining',p_log_level_rec);
5554: end if;
5555: bln_rein_mem_reqd := TRUE;
5556: bln_use_cur_asset := TRUE;
5557: l_adj.adjustment_amount := abs(p_reserve_amount - l_actual_rsv_total);
5556: bln_use_cur_asset := TRUE;
5557: l_adj.adjustment_amount := abs(p_reserve_amount - l_actual_rsv_total);
5558: t_adjustment_amount(i) := sign(p_reserve_amount) * -1 * l_adj.adjustment_amount;
5559: if (p_log_level_rec.statement_level) then
5560: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5561: t_asset_id(i),p_log_level_rec);
5562: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_deprn_resv',
5563: l_rein_mem_deprn_resv,p_log_level_rec);
5564: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5558: t_adjustment_amount(i) := sign(p_reserve_amount) * -1 * l_adj.adjustment_amount;
5559: if (p_log_level_rec.statement_level) then
5560: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5561: t_asset_id(i),p_log_level_rec);
5562: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_deprn_resv',
5563: l_rein_mem_deprn_resv,p_log_level_rec);
5564: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5565: t_adjusted_recoverable_cost(i),p_log_level_rec);
5566: fa_debug_pkg.add(l_calling_fn, 't_adjustment_amount('||to_char(i)||')',
5560: fa_debug_pkg.add(l_calling_fn, 't_asset_id('||to_char(i)||')',
5561: t_asset_id(i),p_log_level_rec);
5562: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_deprn_resv',
5563: l_rein_mem_deprn_resv,p_log_level_rec);
5564: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5565: t_adjusted_recoverable_cost(i),p_log_level_rec);
5566: fa_debug_pkg.add(l_calling_fn, 't_adjustment_amount('||to_char(i)||')',
5567: t_adjustment_amount(i),p_log_level_rec);
5568: end if;
5562: fa_debug_pkg.add(l_calling_fn, 'l_rein_mem_deprn_resv',
5563: l_rein_mem_deprn_resv,p_log_level_rec);
5564: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5565: t_adjusted_recoverable_cost(i),p_log_level_rec);
5566: fa_debug_pkg.add(l_calling_fn, 't_adjustment_amount('||to_char(i)||')',
5567: t_adjustment_amount(i),p_log_level_rec);
5568: end if;
5569:
5570: if (t_adjusted_recoverable_cost(i) >= 0) then
5636:
5637: l_actual_rsv_total := p_reserve_amount;
5638:
5639: if (p_log_level_rec.statement_level) then
5640: fa_debug_pkg.add(l_calling_fn, 'l_adj.adjustment_amount',l_adj.adjustment_amount,p_log_level_rec);
5641: fa_debug_pkg.add(l_calling_fn, 't_adjustment_amount('||i||')',t_adjustment_amount(i),p_log_level_rec);
5642: end if;
5643: end if;
5644: /* Bug 8633654 ends */
5637: l_actual_rsv_total := p_reserve_amount;
5638:
5639: if (p_log_level_rec.statement_level) then
5640: fa_debug_pkg.add(l_calling_fn, 'l_adj.adjustment_amount',l_adj.adjustment_amount,p_log_level_rec);
5641: fa_debug_pkg.add(l_calling_fn, 't_adjustment_amount('||i||')',t_adjustment_amount(i),p_log_level_rec);
5642: end if;
5643: end if;
5644: /* Bug 8633654 ends */
5645: end if;
5694: X_set_of_books_id => p_asset_hdr_rec.set_of_books_id,
5695: p_log_level_rec => p_log_level_rec);
5696:
5697: if (p_log_level_rec.statement_level) then
5698: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5699: l_deprn_reserve, p_log_level_rec => p_log_level_rec);
5700: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5701: t_adjusted_recoverable_cost(i));
5702: end if;
5696:
5697: if (p_log_level_rec.statement_level) then
5698: fa_debug_pkg.add(l_calling_fn, 'l_deprn_reserve',
5699: l_deprn_reserve, p_log_level_rec => p_log_level_rec);
5700: fa_debug_pkg.add(l_calling_fn, 't_adjusted_recoverable_cost('||to_char(i)||')',
5701: t_adjusted_recoverable_cost(i));
5702: end if;
5703:
5704: t_adjusted_cost(i) := t_adjusted_recoverable_cost(i) - l_deprn_reserve;
5744:
5745: end if;
5746:
5747: if (p_log_level_rec.statement_level) then
5748: fa_debug_pkg.add(l_calling_fn, 'Recapture Excess Reserve',
5749: l_adj.adjustment_amount, p_log_level_rec => p_log_level_rec);
5750: end if;
5751:
5752: IF(bln_use_cur_asset) THEN
5780: /* Bug 8633654 starts (delete last record when it is not required)*/
5781:
5782: IF (p_mode = 'RECURR' and (NOT bln_rein_mem_reqd)) THEN
5783: if (p_log_level_rec.statement_level) then
5784: fa_debug_pkg.add(l_calling_fn, 'Delete Reinstated member from PL-SQL','CHECK',p_log_level_rec);
5785: end if;
5786: l_loc := 'Before PL-SQL Delete';
5787:
5788: IF (t_asset_id(t_asset_id.last) = h_rein_mem_asset_id) THEN
5786: l_loc := 'Before PL-SQL Delete';
5787:
5788: IF (t_asset_id(t_asset_id.last) = h_rein_mem_asset_id) THEN
5789: if (p_log_level_rec.statement_level) then
5790: fa_debug_pkg.add(l_calling_fn, 't_asset_id(t_asset_id.last)',t_asset_id(t_asset_id.last),p_log_level_rec);
5791: end if;
5792:
5793: l_ind := t_thid.last;
5794: t_asset_id.delete(t_asset_id.last);
5802: t_current_units.delete(t_current_units.last);
5803: t_reins_asset_flag.delete(t_reins_asset_flag.last);
5804: END IF;
5805: if (p_log_level_rec.statement_level) then
5806: fa_debug_pkg.add(l_calling_fn, 'Delete Reinstated member from PL-SQL','Done',p_log_level_rec);
5807: end if;
5808: END IF;
5809:
5810: /* Bug 8633654 ends*/
6084: AND PERIOD_COUNTER = p_period_rec.period_counter;
6085:
6086: if (p_log_level_rec.statement_level) then
6087: for i in t_asset_id.first..t_asset_id.last loop
6088: fa_debug_pkg.add(l_calling_fn, 'i', i, p_log_level_rec => p_log_level_rec);
6089: fa_debug_pkg.add(l_calling_fn, 't_transaction_header_id_in', t_transaction_header_id_in(i));
6090: fa_debug_pkg.add(l_calling_fn, 't_asset_id', t_asset_id(i));
6091: fa_debug_pkg.add(l_calling_fn, 't_thid', t_thid(i));
6092: end loop;
6085:
6086: if (p_log_level_rec.statement_level) then
6087: for i in t_asset_id.first..t_asset_id.last loop
6088: fa_debug_pkg.add(l_calling_fn, 'i', i, p_log_level_rec => p_log_level_rec);
6089: fa_debug_pkg.add(l_calling_fn, 't_transaction_header_id_in', t_transaction_header_id_in(i));
6090: fa_debug_pkg.add(l_calling_fn, 't_asset_id', t_asset_id(i));
6091: fa_debug_pkg.add(l_calling_fn, 't_thid', t_thid(i));
6092: end loop;
6093: end if;
6086: if (p_log_level_rec.statement_level) then
6087: for i in t_asset_id.first..t_asset_id.last loop
6088: fa_debug_pkg.add(l_calling_fn, 'i', i, p_log_level_rec => p_log_level_rec);
6089: fa_debug_pkg.add(l_calling_fn, 't_transaction_header_id_in', t_transaction_header_id_in(i));
6090: fa_debug_pkg.add(l_calling_fn, 't_asset_id', t_asset_id(i));
6091: fa_debug_pkg.add(l_calling_fn, 't_thid', t_thid(i));
6092: end loop;
6093: end if;
6094:
6087: for i in t_asset_id.first..t_asset_id.last loop
6088: fa_debug_pkg.add(l_calling_fn, 'i', i, p_log_level_rec => p_log_level_rec);
6089: fa_debug_pkg.add(l_calling_fn, 't_transaction_header_id_in', t_transaction_header_id_in(i));
6090: fa_debug_pkg.add(l_calling_fn, 't_asset_id', t_asset_id(i));
6091: fa_debug_pkg.add(l_calling_fn, 't_thid', t_thid(i));
6092: end loop;
6093: end if;
6094:
6095: l_loc := 'Before primary Books';
6357: -- COMMIT;
6358: END LOOP; -- MAIN OUTER LOOP
6359:
6360: if (p_log_level_rec.statement_level) then
6361: fa_debug_pkg.add(l_calling_fn, 'End of Main Loop', p_reserve_amount - l_actual_rsv_total, p_log_level_rec => p_log_level_rec);
6362: end if;
6363:
6364: if (l_actual_rsv_total = p_reserve_amount) then
6365: if (p_log_level_rec.statement_level) then
6362: end if;
6363:
6364: if (l_actual_rsv_total = p_reserve_amount) then
6365: if (p_log_level_rec.statement_level) then
6366: fa_debug_pkg.add(l_calling_fn, 'End of allocation', ' ', p_log_level_rec => p_log_level_rec);
6367: end if;
6368:
6369: return TRUE;
6370:
6372:
6373: /* Bug 8633654 */
6374: if (nvl(l_actual_rsv_total,0) = 0 and p_trans_rec.transaction_key = 'MR') then
6375: if (p_log_level_rec.statement_level) then
6376: fa_debug_pkg.add(l_calling_fn, 'No member to allocate', ' ',p_log_level_rec);
6377: end if;
6378:
6379: return TRUE;
6380:
6387: if (p_trans_rec.transaction_key = 'MS') and
6388: (p_mode = 'NORMAL') then
6389: -- Call Do_Allocation again to distribute remaining amounts
6390: if (p_log_level_rec.statement_level) then
6391: fa_debug_pkg.add(l_calling_fn, 'Recurrsive Call Do_Allocation', 'Calling...', p_log_level_rec => p_log_level_rec);
6392: end if;
6393: if not Do_Allocation(
6394: p_trans_rec => p_trans_rec,
6395: p_asset_hdr_rec => p_asset_hdr_rec,
6402: p_mem_ret_thid => p_mem_ret_thid,
6403: p_calling_fn => l_calling_fn,
6404: p_log_level_rec => p_log_level_rec) then
6405: if (p_log_level_rec.statement_level) then
6406: fa_debug_pkg.add(l_calling_fn, 'Recurrsive Call to Do_Allocation', 'Failed', p_log_level_rec => p_log_level_rec);
6407: end if;
6408:
6409: raise allocate_err;
6410: end if;
6418: -- If there is a difference between
6419: if (p_reserve_amount <> l_actual_rsv_total) then
6420:
6421: if (p_log_level_rec.statement_level) then
6422: fa_debug_pkg.add(l_calling_fn, 'Inside rounding correction', ' ',p_log_level_rec);
6423: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
6424: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total', l_actual_rsv_total,p_log_level_rec);
6425: end if;
6426:
6419: if (p_reserve_amount <> l_actual_rsv_total) then
6420:
6421: if (p_log_level_rec.statement_level) then
6422: fa_debug_pkg.add(l_calling_fn, 'Inside rounding correction', ' ',p_log_level_rec);
6423: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
6424: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total', l_actual_rsv_total,p_log_level_rec);
6425: end if;
6426:
6427: if (p_reserve_amount > 0) then
6420:
6421: if (p_log_level_rec.statement_level) then
6422: fa_debug_pkg.add(l_calling_fn, 'Inside rounding correction', ' ',p_log_level_rec);
6423: fa_debug_pkg.add(l_calling_fn, 'p_reserve_amount', p_reserve_amount,p_log_level_rec);
6424: fa_debug_pkg.add(l_calling_fn, 'l_actual_rsv_total', l_actual_rsv_total,p_log_level_rec);
6425: end if;
6426:
6427: if (p_reserve_amount > 0) then
6428: l_reallocate_amount := p_reserve_amount - l_actual_rsv_total;
6430: l_reallocate_amount := l_actual_rsv_total - p_reserve_amount;
6431: end if;
6432:
6433: if (p_log_level_rec.statement_level) then
6434: fa_debug_pkg.add(l_calling_fn, 'l_reallocate_amount', l_reallocate_amount,p_log_level_rec);
6435: end if;
6436:
6437: -- First, if it needs to take out some reserve, then do that against
6438: -- last processed asset. If not, then first go through the assets in
6440: if (p_reserve_amount < 0 or
6441: p_reserve_amount < l_actual_rsv_total) then
6442:
6443: if (p_log_level_rec.statement_level) then
6444: fa_debug_pkg.add(l_calling_fn, 'Rounding : Takeout some resv', ' ',p_log_level_rec);
6445: end if;
6446:
6447: -- Need to backout some reserve so do that from last processed asset
6448:
6503: end if; -- (p_mrc_sob_type_code = 'R')
6504: else
6505:
6506: if (p_log_level_rec.statement_level) then
6507: fa_debug_pkg.add(l_calling_fn, 'Rounding : Add additional resv', ' ',p_log_level_rec);
6508: fa_debug_pkg.add(l_calling_fn, 'Rounding : current PL_SQL count', t_asset_id.count,p_log_level_rec);
6509: end if;
6510:
6511: -- Need to hit db to allocate excess amount if any at this point.
6504: else
6505:
6506: if (p_log_level_rec.statement_level) then
6507: fa_debug_pkg.add(l_calling_fn, 'Rounding : Add additional resv', ' ',p_log_level_rec);
6508: fa_debug_pkg.add(l_calling_fn, 'Rounding : current PL_SQL count', t_asset_id.count,p_log_level_rec);
6509: end if;
6510:
6511: -- Need to hit db to allocate excess amount if any at this point.
6512: -- Basically, do the same thing done in above loop but this time against
6513: -- data in db.
6514: if (l_reallocate_amount <> 0) then
6515:
6516: if (p_log_level_rec.statement_level) then
6517: fa_debug_pkg.add(l_calling_fn, 'Rounding : reallocate_amount at 2', l_reallocate_amount,p_log_level_rec);
6518: end if;
6519:
6520: t_thid.delete;
6521: t_asset_id.delete;
6559:
6560: FOR i in t_asset_id.first..t_asset_id.last LOOP
6561:
6562: if (p_log_level_rec.statement_level) then
6563: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : ', i,p_log_level_rec);
6564: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_asset_id('||i||')', t_asset_id(i),p_log_level_rec);
6565: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_adjusted_cost('||i||')', t_adjusted_cost(i),p_log_level_rec);
6566: end if;
6567:
6560: FOR i in t_asset_id.first..t_asset_id.last LOOP
6561:
6562: if (p_log_level_rec.statement_level) then
6563: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : ', i,p_log_level_rec);
6564: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_asset_id('||i||')', t_asset_id(i),p_log_level_rec);
6565: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_adjusted_cost('||i||')', t_adjusted_cost(i),p_log_level_rec);
6566: end if;
6567:
6568: if (t_adjusted_cost(i) >= l_reallocate_amount) then
6561:
6562: if (p_log_level_rec.statement_level) then
6563: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : ', i,p_log_level_rec);
6564: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_asset_id('||i||')', t_asset_id(i),p_log_level_rec);
6565: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : t_adjusted_cost('||i||')', t_adjusted_cost(i),p_log_level_rec);
6566: end if;
6567:
6568: if (t_adjusted_cost(i) >= l_reallocate_amount) then
6569:
6567:
6568: if (t_adjusted_cost(i) >= l_reallocate_amount) then
6569:
6570: if (p_log_level_rec.statement_level) then
6571: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : Adjust reallocate_amount ',' ',p_log_level_rec);
6572: end if;
6573:
6574: if (p_mrc_sob_type_code = 'R') then
6575: UPDATE FA_MC_ADJUSTMENTS
6601: WHERE TRANSACTION_HEADER_ID_IN = t_thid(i)
6602: AND set_of_books_id = p_asset_hdr_rec.set_of_books_id;
6603: else
6604: if (p_log_level_rec.statement_level) then
6605: fa_debug_pkg.add(l_calling_fn, 'Rounding 2 : adj rallocate ',(l_reallocate_amount * sign(p_reserve_amount) * -1),p_log_level_rec);
6606: end if;
6607:
6608: UPDATE FA_ADJUSTMENTS
6609: SET ADJUSTMENT_AMOUNT = ADJUSTMENT_AMOUNT + l_reallocate_amount
6708: end if; -- (p_reserve_amount <> l_actual_rsv_total)
6709:
6710:
6711: if (p_log_level_rec.statement_level) then
6712: fa_debug_pkg.add(l_calling_fn, 'End', p_reserve_amount, p_log_level_rec => p_log_level_rec);
6713: end if;
6714:
6715: return true;
6716:
6716:
6717: EXCEPTION
6718: WHEN OTHERS THEN
6719: if (p_log_level_rec.statement_level) then
6720: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6721: 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);
6722: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6723: end if;
6724:
6717: EXCEPTION
6718: WHEN OTHERS THEN
6719: if (p_log_level_rec.statement_level) then
6720: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6721: 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);
6722: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6723: end if;
6724:
6725: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6718: WHEN OTHERS THEN
6719: if (p_log_level_rec.statement_level) then
6720: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6721: 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);
6722: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6723: end if;
6724:
6725: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6726: return false;
6848:
6849: EXCEPTION
6850: WHEN OTHERS THEN
6851: if (p_log_level_rec.statement_level) then
6852: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6853: 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);
6854: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6855: end if;
6856:
6849: EXCEPTION
6850: WHEN OTHERS THEN
6851: if (p_log_level_rec.statement_level) then
6852: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6853: 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);
6854: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6855: end if;
6856:
6857: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6850: WHEN OTHERS THEN
6851: if (p_log_level_rec.statement_level) then
6852: fa_debug_pkg.add(l_calling_fn, 'l_loc', l_loc, p_log_level_rec => p_log_level_rec);
6853: 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);
6854: fa_debug_pkg.add(l_calling_fn, 'End', 'Failed'||':'||sqlerrm, p_log_level_rec => p_log_level_rec);
6855: end if;
6856:
6857: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6858: return false;