[Home] [Help]
162: FETCH c_get_periods_in_year INTO l_periods_in_year;
163: CLOSE c_get_periods_in_year;
164:
165: -- Get the period info for the dpis
166: l_ret_flag := igi_iac_common_utils.Get_period_info_for_date(p_book_code,
167: l_asset_rec.date_placed_in_service,
168: l_dpis_prd_rec
169: );
170: l_total_periods := ceil((l_asset_rec.life_in_months*l_periods_in_year)/12);
522: l_asset_id := p_asset_iac_adj_info.asset_id;
523: l_last_period_counter := p_asset_iac_adj_info.last_period_counter;
524:
525: -- get the GL set of books id
526: IF NOT igi_iac_common_utils.get_book_GL_info(l_book_type_code,
527: l_sob_id,
528: l_coa_id,
529: l_currency,
530: l_precision)
531: THEN
532: RAISE e_no_gl_info;
533: END IF;
534:
535: -- Get the latest transaction or adjustment from igi_iac_common_utils.get_latest_transaction
536: -- for the asset and book
537: IF NOT igi_iac_common_utils.get_latest_transaction(l_book_type_code,
538: l_asset_id,
539: l_latest_trx_type,
533: END IF;
534:
535: -- Get the latest transaction or adjustment from igi_iac_common_utils.get_latest_transaction
536: -- for the asset and book
537: IF NOT igi_iac_common_utils.get_latest_transaction(l_book_type_code,
538: l_asset_id,
539: l_latest_trx_type,
540: l_latest_trx_id,
541: l_latest_mref_id,
659: -- Calculate the new revalued FA Cost
660: l_iac_new_reval_cost := p_asset_iac_adj_info.cost*(l_iac_asset_bal.cumulative_reval_factor - 1);
661:
662: -- round the cost
663: l_ret := igi_iac_common_utils.iac_round(l_iac_new_reval_cost,
664: l_book_type_code) ;
665: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
666: p_full_path => l_path_name,
667: p_string => 'New revalued cost: '||l_iac_new_reval_cost);
687: END IF;
688:
689:
690: -- Prorate this amount for the active distributions in the ratio of the units assigned to them
691: IF NOT igi_iac_common_utils.prorate_amt_to_active_dists(l_book_type_code,
692: l_asset_id,
693: l_diff_cost,
694: l_det_table)
695: THEN
724: l_new_dist_cost := l_det_bal.adjustment_cost + l_add_cost;
725:
726:
727: -- round the new cost
728: l_ret := igi_iac_common_utils.iac_round(l_new_dist_cost,
729: l_book_type_code) ;
730:
731: l_ret := igi_iac_common_utils.iac_round(l_add_cost,
732: l_book_type_code) ;
727: -- round the new cost
728: l_ret := igi_iac_common_utils.iac_round(l_new_dist_cost,
729: l_book_type_code) ;
730:
731: l_ret := igi_iac_common_utils.iac_round(l_add_cost,
732: l_book_type_code) ;
733:
734:
735: IF (l_new_dist_cost >= 0) THEN
749: -- calculate the nbv
750: l_new_dist_nbv := l_det_bal.net_book_value + l_add_cost;
751:
752: -- round the new cost
753: l_ret := igi_iac_common_utils.iac_round(l_new_dist_nbv,
754: l_book_type_code) ;
755: -- maintain the diff due to rounding
756: l_round_diff := l_round_diff + l_new_dist_cost;
757: l_round_diff_nbv := l_round_diff_nbv + l_new_dist_nbv;
841: -- find the ccid for COST
842:
843: If l_add_cost <> 0 Then
844: -- get the ccids
845: IF NOT igi_iac_common_utils.get_account_ccid(l_book_type_code,
846: l_asset_id,
847: l_det_bal.distribution_id,
848: 'ASSET_COST_ACCT',
849: l_cost_ccid)
857:
858: -- insert into igi_iac_adjustments for REVAL RESERVE or OP EXPENSE
859: IF (l_iac_asset_bal.cumulative_reval_factor >= 1 ) THEN
860: -- find the ccid for COST
861: IF NOT igi_iac_common_utils.get_account_ccid(l_book_type_code,
862: l_asset_id,
863: l_det_bal.distribution_id,
864: 'REVAL_RESERVE_ACCT',
865: l_reval_rsv_ccid)
900:
901: -------- OP EXPENSE A/C Entry-------------
902:
903: -- find the ccid for OP EXPENSE
904: IF NOT igi_iac_common_utils.get_account_ccid(l_book_type_code,
905: l_asset_id,
906: l_det_bal.distribution_id,
907: 'OPERATING_EXPENSE_ACCT', -- bug 3449361 'OP_EXPENSE_ACCT',
908: l_op_exp_ccid)