[Home] [Help]
1: package body PA_BUDGET_ATTR_UPGR_PKG AS
2: /* $Header: PABDGATB.pls 120.0 2005/05/30 11:28:12 appldev noship $ */
3:
4: procedure BUDGET_ATTR_UPGRD(
5: P_PROJECT_ID IN pa_projects_all.project_id%type
69: l_all_current_planning_period pa_proj_fp_options.all_current_planning_period%type;
70: l_all_period_mask_id pa_proj_fp_options.all_period_mask_id%type;
71: l_stage VARCHAR2(240) :='';
72: l_debug_mode varchar2(30);
73: l_module_name VARCHAR2(100):= 'pa.plsql.pa_budget_attr_upgr_pkg';
74: l_msg_count NUMBER :=0;
75: l_msg_data VARCHAR2(2000);
76: l_msg_index_out NUMBER;
77: l_data VARCHAR2(2000);
104: begin
105: -- FND_MSG_PUB.initialize; /* Bug 3800485 */
106: x_msg_count := 0;
107: x_return_status := FND_API.G_RET_STS_SUCCESS;
108: pa_debug.init_err_stack('PA_BUDGET_ATTR_UPGR_PKG.Budget_Attr_Upgrd');
109: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
110: l_debug_mode := NVL(l_debug_mode, 'Y');
111: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
112: IF l_debug_mode = 'Y' THEN
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526: x_msg_count := 1;
527: x_msg_data := SQLERRM;
528:
529: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_BUDGET_ATTR_UPGR_PKG',p_procedure_name => 'BUDGET_ATTR_UPGRD');
530: IF l_debug_mode = 'Y' THEN
531: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
532: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
533: END IF;
537: pa_debug.reset_err_stack;
538: --ROLLBACK; /* Should Not have Rollback in this package. Only main API rollback should be active */
539: RAISE;
540: end BUDGET_ATTR_UPGRD;
541: end PA_BUDGET_ATTR_UPGR_PKG;