[Home] [Help]
1: package body PA_DATE_RANGE_PKG AS
2: /* $Header: PADTRNGB.pls 120.2 2006/01/19 03:27:23 nkumbi noship $ */
3:
4: procedure DATE_RANGE_UPGRD(
5: P_BUDGET_VERSIONS IN SYSTEM.PA_NUM_TBL_TYPE,
272: l_attribute14 pa_budget_lines.attribute14%type;
273: l_attribute15 pa_budget_lines.attribute15%type ;
274: l_plan_ver_exists varchar2(1) := 'Y';
275: l_debug_mode varchar2(30);
276: l_module_name VARCHAR2(100):= 'pa.plsql.PA_DATE_RANGE_PKG';
277: l_msg_index_out NUMBER;
278: l_data VARCHAR2(2000);
279: l_msg_data VARCHAR2(2000);
280: l_msg_count number;
328: x_msg_count := 0;
329: x_msg_data := NULL;
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: pa_debug.init_err_stack('PA_DATE_RANGE_PKG.DATE_RANGE_UPGRD');
333: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
458: fetch get_per_type_csr into l_pa_period_type,l_accounted_per_type;
459: close get_per_type_csr;
460:
461: --Bug 4046492.Call the function to derive the Time Phase to which the budget version should be upgraded
462: l_time_phased_mode := PA_DATE_RANGE_PKG.get_time_phase_mode(p_budget_version_id =>l_get_elig_bud_ver_csr.budget_version_id
463: ,p_pa_period_type =>l_pa_period_type
464: ,p_gl_period_type =>l_accounted_per_type
465: ,p_org_id =>l_get_elig_bud_ver_csr.org_id);
466: IF l_time_phased_mode='P' THEN
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1636: x_msg_count := 1;
1637: x_msg_data := SQLERRM;
1638:
1639: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DATE_RANGE_PKG',p_procedure_name => 'DATE_RANGE_UPGRD');
1640: IF l_debug_mode = 'Y' THEN
1641: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1642: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1643: END IF;
1740: END IF;
1741:
1742: END get_time_phase_mode;
1743:
1744: end PA_DATE_RANGE_PKG;