1: package body pa_fp_ci_implement_pkg as
2: /* $Header: PAFPCOMB.pls 120.5.12020000.2 2012/12/28 07:52:13 nisinha ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: --3 new parameters are added as part of rounding changes.
6: ---->p_impl_txn_rev_amt : contain the amount in agreement currency for which funding lines should be created
7: ---->p_impl_pc_rev_amt : contain the amount in project currency for which funding lines should be created
90: l_projfunc_exchange_rate pa_project_fundings.projfunc_exchange_rate%TYPE;
91: BEGIN
92:
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
95: l_debug_mode := NVL(l_debug_mode, 'Y');
96: /* the above default is set for testing purpose only
97: need to set to 'N' after testing */
98: IF l_debug_mode = 'Y' THEN