9849: --(l_partial_impl_rev_amt + nvl(l_impl_amt,0) would constitute the total amount in
9850: --txn currency of the source version that has got implemented.
9851: l_pfc_rev_for_merge := ( (l_partial_impl_rev_amt + nvl(l_impl_amt,0)) * l_total_amt_in_pfc )/l_total_amt;
9852: l_pfc_rev_for_merge :=
9853: Pa_currency.round_trans_currency_amt1(l_pfc_rev_for_merge,
9854: l_projfunc_currency_code);
9855:
9856: END IF;
9857:
9862: ELSE
9863:
9864: l_pc_rev_for_merge := ((l_partial_impl_rev_amt + nvl(l_impl_amt,0)) * l_total_amt_in_pc )/l_total_amt;
9865: l_pc_rev_for_merge :=
9866: Pa_currency.round_trans_currency_amt1(l_pc_rev_for_merge,
9867: l_project_currency_code);
9868:
9869: END IF;
9870:
12158: INTO l_agr_curr_code
12159: FROM pa_agreements_all
12160: WHERE agreement_id=x_agreement_id;
12161:
12162: px_partial_impl_rev_amt :=Pa_currency.round_trans_currency_amt1(px_partial_impl_rev_amt,
12163: l_agr_curr_code);
12164:
12165: END IF;
12166:
12511: l_impl_pfc_rev_amt := l_total_amount_in_pfc - l_implemented_pfc_amt;
12512:
12513: ELSE
12514:
12515: l_impl_pc_rev_amt := Pa_currency.round_trans_currency_amt1(l_total_amount_in_pc * l_partial_factor,
12516: l_project_currency_code);
12517: l_impl_pfc_rev_amt :=Pa_currency.round_trans_currency_amt1(l_total_amount_in_pfc * l_partial_factor,
12518: l_projfunc_currency_code);
12519: END IF;
12513: ELSE
12514:
12515: l_impl_pc_rev_amt := Pa_currency.round_trans_currency_amt1(l_total_amount_in_pc * l_partial_factor,
12516: l_project_currency_code);
12517: l_impl_pfc_rev_amt :=Pa_currency.round_trans_currency_amt1(l_total_amount_in_pfc * l_partial_factor,
12518: l_projfunc_currency_code);
12519: END IF;
12520: END IF;
12521: --Bug 4136238