9249: --(l_partial_impl_rev_amt + nvl(l_impl_amt,0) would constitute the total amount in
9250: --txn currency of the source version that has got implemented.
9251: l_pfc_rev_for_merge := ( (l_partial_impl_rev_amt + nvl(l_impl_amt,0)) * l_total_amt_in_pfc )/l_total_amt;
9252: l_pfc_rev_for_merge :=
9253: Pa_currency.round_trans_currency_amt1(l_pfc_rev_for_merge,
9254: l_projfunc_currency_code);
9255:
9256: END IF;
9257:
9262: ELSE
9263:
9264: l_pc_rev_for_merge := ((l_partial_impl_rev_amt + nvl(l_impl_amt,0)) * l_total_amt_in_pc )/l_total_amt;
9265: l_pc_rev_for_merge :=
9266: Pa_currency.round_trans_currency_amt1(l_pc_rev_for_merge,
9267: l_project_currency_code);
9268:
9269: END IF;
9270:
11634: INTO l_agr_curr_code
11635: FROM pa_agreements_all
11636: WHERE agreement_id=x_agreement_id;
11637:
11638: px_partial_impl_rev_amt :=Pa_currency.round_trans_currency_amt1(px_partial_impl_rev_amt,
11639: l_agr_curr_code);
11640:
11641: END IF;
11642:
11987: l_impl_pfc_rev_amt := l_total_amount_in_pfc - l_implemented_pfc_amt;
11988:
11989: ELSE
11990:
11991: l_impl_pc_rev_amt := Pa_currency.round_trans_currency_amt1(l_total_amount_in_pc * l_partial_factor,
11992: l_project_currency_code);
11993: l_impl_pfc_rev_amt :=Pa_currency.round_trans_currency_amt1(l_total_amount_in_pfc * l_partial_factor,
11994: l_projfunc_currency_code);
11995: END IF;
11989: ELSE
11990:
11991: l_impl_pc_rev_amt := Pa_currency.round_trans_currency_amt1(l_total_amount_in_pc * l_partial_factor,
11992: l_project_currency_code);
11993: l_impl_pfc_rev_amt :=Pa_currency.round_trans_currency_amt1(l_total_amount_in_pfc * l_partial_factor,
11994: l_projfunc_currency_code);
11995: END IF;
11996: END IF;
11997: --Bug 4136238