1: PACKAGE BODY pa_fp_upgrade_pkg AS
2: /* $Header: PAFPUPGB.pls 120.7.12010000.4 2009/02/09 12:09:03 spasala ship $*/
3:
4: l_module_name VARCHAR2(100):= 'pa.plsql.pa_fp_upgrade_pkg';
5: p_pa_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6: l_migration_code varchar2(1) := null;
7:
8: TYPE res_list_tbl IS TABLE OF
9: pa_resource_lists_all_bg.resource_list_id%TYPE INDEX BY BINARY_INTEGER;
243:
244: x_msg_count := 0;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Populate_Local_Variables');
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
244: x_msg_count := 0;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Populate_Local_Variables');
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
252: IF p_pa_debug_mode = 'Y' THEN
246:
247: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Populate_Local_Variables');
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
252: IF p_pa_debug_mode = 'Y' THEN
253: pa_debug.g_err_stage := 'Inside Populate_Local_Variables';
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
252: IF p_pa_debug_mode = 'Y' THEN
253: pa_debug.g_err_stage := 'Inside Populate_Local_Variables';
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
255: END IF;
256: -- Check for not null parameters
249: l_debug_mode := NVL(l_debug_mode, 'Y');
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
252: IF p_pa_debug_mode = 'Y' THEN
253: pa_debug.g_err_stage := 'Inside Populate_Local_Variables';
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
255: END IF;
256: -- Check for not null parameters
257: IF p_pa_debug_mode = 'Y' THEN
250: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
251:
252: IF p_pa_debug_mode = 'Y' THEN
253: pa_debug.g_err_stage := 'Inside Populate_Local_Variables';
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
255: END IF;
256: -- Check for not null parameters
257: IF p_pa_debug_mode = 'Y' THEN
258: pa_debug.g_err_stage := 'Checking for valid parameters:';
253: pa_debug.g_err_stage := 'Inside Populate_Local_Variables';
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
255: END IF;
256: -- Check for not null parameters
257: IF p_pa_debug_mode = 'Y' THEN
258: pa_debug.g_err_stage := 'Checking for valid parameters:';
259: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
260: END IF;
261:
254: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
255: END IF;
256: -- Check for not null parameters
257: IF p_pa_debug_mode = 'Y' THEN
258: pa_debug.g_err_stage := 'Checking for valid parameters:';
259: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
260: END IF;
261:
262: IF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
255: END IF;
256: -- Check for not null parameters
257: IF p_pa_debug_mode = 'Y' THEN
258: pa_debug.g_err_stage := 'Checking for valid parameters:';
259: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
260: END IF;
261:
262: IF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
263:
261:
262: IF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
263:
264: IF (p_project_id IS NULL) THEN
265: IF p_pa_debug_mode = 'Y' THEN
266: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
268: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
269: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
262: IF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
263:
264: IF (p_project_id IS NULL) THEN
265: IF p_pa_debug_mode = 'Y' THEN
266: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
268: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
269: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
270: END IF;
263:
264: IF (p_project_id IS NULL) THEN
265: IF p_pa_debug_mode = 'Y' THEN
266: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
268: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
269: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
270: END IF;
271: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
264: IF (p_project_id IS NULL) THEN
265: IF p_pa_debug_mode = 'Y' THEN
266: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
268: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
269: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
270: END IF;
271: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
272: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
265: IF p_pa_debug_mode = 'Y' THEN
266: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
268: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
269: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
270: END IF;
271: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
272: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
273: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
276: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
277:
278: IF (p_project_id IS NULL) OR
279: (p_budget_type_code IS NULL) THEN
280: IF p_pa_debug_mode = 'Y' THEN
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
277:
278: IF (p_project_id IS NULL) OR
279: (p_budget_type_code IS NULL) THEN
280: IF p_pa_debug_mode = 'Y' THEN
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
278: IF (p_project_id IS NULL) OR
279: (p_budget_type_code IS NULL) THEN
280: IF p_pa_debug_mode = 'Y' THEN
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
286: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
279: (p_budget_type_code IS NULL) THEN
280: IF p_pa_debug_mode = 'Y' THEN
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
286: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
287: END IF;
280: IF p_pa_debug_mode = 'Y' THEN
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
286: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
287: END IF;
288: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
281: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
286: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
287: END IF;
288: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
289: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
282: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
283: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
284: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
285: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
286: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
287: END IF;
288: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
289: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
290: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
294:
295: IF (p_project_id IS NULL) OR
296: (p_budget_type_code IS NULL) OR
297: (p_fin_plan_version_id IS NULL) THEN
298: IF p_pa_debug_mode = 'Y' THEN
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
295: IF (p_project_id IS NULL) OR
296: (p_budget_type_code IS NULL) OR
297: (p_fin_plan_version_id IS NULL) THEN
298: IF p_pa_debug_mode = 'Y' THEN
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
296: (p_budget_type_code IS NULL) OR
297: (p_fin_plan_version_id IS NULL) THEN
298: IF p_pa_debug_mode = 'Y' THEN
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
297: (p_fin_plan_version_id IS NULL) THEN
298: IF p_pa_debug_mode = 'Y' THEN
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
298: IF p_pa_debug_mode = 'Y' THEN
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
306: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
299: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
306: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
307: END IF;
300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
306: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
307: END IF;
308: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
301: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
306: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
307: END IF;
308: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
309: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
303: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
304: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
305: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
306: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
307: END IF;
308: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
309: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
310: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
309: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
310: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
311: END IF;
312: ELSE
313: IF p_pa_debug_mode = 'Y' THEN
314: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
315: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
316: END IF;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
310: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
311: END IF;
312: ELSE
313: IF p_pa_debug_mode = 'Y' THEN
314: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
315: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
316: END IF;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
318: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
311: END IF;
312: ELSE
313: IF p_pa_debug_mode = 'Y' THEN
314: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
315: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
316: END IF;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
318: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
318: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
320: END IF;
321: IF p_pa_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage := 'Parameter validation complete';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
318: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
320: END IF;
321: IF p_pa_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage := 'Parameter validation complete';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
320: END IF;
321: IF p_pa_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage := 'Parameter validation complete';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
321: IF p_pa_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage := 'Parameter validation complete';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
322: pa_debug.g_err_stage := 'Parameter validation complete';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
324:
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
325: pa_debug.g_err_stage := 'P_fin_plan_option_level='||p_fin_plan_option_level;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
333: END IF;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
333: END IF;
334: --Null Out all the global parameters.
327: pa_debug.g_err_stage := 'p_project_id='||p_project_id;
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
333: END IF;
334: --Null Out all the global parameters.
335:
328: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
329: pa_debug.g_err_stage := 'p_budget_type_code='||p_budget_type_code;
330: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
331: pa_debug.g_err_stage := 'p_fin_plan_version_id='||p_fin_plan_version_id;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
333: END IF;
334: --Null Out all the global parameters.
335:
336: x_upgrade_elements_rec := NULL;
349: x_upgrade_elements_rec.curr_option_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP;
350:
351: --Fetch lastest Approved Cost baselined version id as basis_cost_version_id
352:
353: IF p_pa_debug_mode = 'Y' THEN
354: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AC';
355: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
356: END IF;
357:
350:
351: --Fetch lastest Approved Cost baselined version id as basis_cost_version_id
352:
353: IF p_pa_debug_mode = 'Y' THEN
354: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AC';
355: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
356: END IF;
357:
358: pa_budget_utils.get_baselined_version_id (
351: --Fetch lastest Approved Cost baselined version id as basis_cost_version_id
352:
353: IF p_pa_debug_mode = 'Y' THEN
354: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AC';
355: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
356: END IF;
357:
358: pa_budget_utils.get_baselined_version_id (
359: x_project_id => p_project_id
365:
366: /* Bug# 2643043 -- Error code 10 is no_data_found */
367: IF l_err_code NOT IN (10,0) THEN
368: -- the api has returned an error
369: IF p_pa_debug_mode = 'Y' THEN
370: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
371: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
372: END IF;
373: RAISE pa_fp_constants_pkg.invalid_arg_exc;
366: /* Bug# 2643043 -- Error code 10 is no_data_found */
367: IF l_err_code NOT IN (10,0) THEN
368: -- the api has returned an error
369: IF p_pa_debug_mode = 'Y' THEN
370: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
371: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
372: END IF;
373: RAISE pa_fp_constants_pkg.invalid_arg_exc;
374: END IF;
367: IF l_err_code NOT IN (10,0) THEN
368: -- the api has returned an error
369: IF p_pa_debug_mode = 'Y' THEN
370: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
371: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
372: END IF;
373: RAISE pa_fp_constants_pkg.invalid_arg_exc;
374: END IF;
375:
376: IF l_err_code = 10 or x_upgrade_elements_rec.basis_cost_version_id IS NULL THEN /* Bug# 2643043 */
377:
378: --Fetch Approved Cost working version as basis_cost_version_id
379:
380: IF p_pa_debug_mode = 'Y' THEN
381: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AC';
382: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
383: END IF;
384:
377:
378: --Fetch Approved Cost working version as basis_cost_version_id
379:
380: IF p_pa_debug_mode = 'Y' THEN
381: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AC';
382: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
383: END IF;
384:
385: pa_budget_utils.get_draft_version_id (
378: --Fetch Approved Cost working version as basis_cost_version_id
379:
380: IF p_pa_debug_mode = 'Y' THEN
381: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AC';
382: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
383: END IF;
384:
385: pa_budget_utils.get_draft_version_id (
386: x_project_id => p_project_id
393:
394: /* Bug# 2643043 -- Error code 10 is no_data_found */
395: IF l_err_code NOT IN (10,0) THEN
396: -- the api has returned an error
397: IF p_pa_debug_mode = 'Y' THEN
398: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
400: END IF;
401: RAISE pa_fp_constants_pkg.invalid_arg_exc;
394: /* Bug# 2643043 -- Error code 10 is no_data_found */
395: IF l_err_code NOT IN (10,0) THEN
396: -- the api has returned an error
397: IF p_pa_debug_mode = 'Y' THEN
398: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
400: END IF;
401: RAISE pa_fp_constants_pkg.invalid_arg_exc;
402: END IF;
395: IF l_err_code NOT IN (10,0) THEN
396: -- the api has returned an error
397: IF p_pa_debug_mode = 'Y' THEN
398: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
400: END IF;
401: RAISE pa_fp_constants_pkg.invalid_arg_exc;
402: END IF;
403:
408: **** Bug# 2643043 */
409:
410: END IF;
411:
412: IF p_pa_debug_mode = 'Y' THEN
413: pa_debug.g_err_stage:='cost_version_id ='||x_upgrade_elements_rec.basis_cost_version_id;
414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
415: END IF;
416:
409:
410: END IF;
411:
412: IF p_pa_debug_mode = 'Y' THEN
413: pa_debug.g_err_stage:='cost_version_id ='||x_upgrade_elements_rec.basis_cost_version_id;
414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
415: END IF;
416:
417: --Fetch lastest Approved Revenue baselined version id as basis_rev_version_id
410: END IF;
411:
412: IF p_pa_debug_mode = 'Y' THEN
413: pa_debug.g_err_stage:='cost_version_id ='||x_upgrade_elements_rec.basis_cost_version_id;
414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
415: END IF;
416:
417: --Fetch lastest Approved Revenue baselined version id as basis_rev_version_id
418:
415: END IF;
416:
417: --Fetch lastest Approved Revenue baselined version id as basis_rev_version_id
418:
419: IF p_pa_debug_mode = 'Y' THEN
420: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AR';
421: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
422: END IF;
423:
416:
417: --Fetch lastest Approved Revenue baselined version id as basis_rev_version_id
418:
419: IF p_pa_debug_mode = 'Y' THEN
420: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AR';
421: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
422: END IF;
423:
424: pa_budget_utils.get_baselined_version_id (
417: --Fetch lastest Approved Revenue baselined version id as basis_rev_version_id
418:
419: IF p_pa_debug_mode = 'Y' THEN
420: pa_debug.g_err_stage:='Calling pa_budget_utils.get_baselined_version_id for AR';
421: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
422: END IF;
423:
424: pa_budget_utils.get_baselined_version_id (
425: x_project_id => p_project_id
432:
433: /* Bug# 2643043 -- Error code 10 is no_data_found */
434: IF l_err_code NOT IN (10,0) THEN
435: -- the api has returned an error
436: IF p_pa_debug_mode = 'Y' THEN
437: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
439: END IF;
440: RAISE pa_fp_constants_pkg.invalid_arg_exc;
433: /* Bug# 2643043 -- Error code 10 is no_data_found */
434: IF l_err_code NOT IN (10,0) THEN
435: -- the api has returned an error
436: IF p_pa_debug_mode = 'Y' THEN
437: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
439: END IF;
440: RAISE pa_fp_constants_pkg.invalid_arg_exc;
441: END IF;
434: IF l_err_code NOT IN (10,0) THEN
435: -- the api has returned an error
436: IF p_pa_debug_mode = 'Y' THEN
437: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
439: END IF;
440: RAISE pa_fp_constants_pkg.invalid_arg_exc;
441: END IF;
442:
443: IF l_err_code = 10 or x_upgrade_elements_rec.basis_rev_version_id IS NULL THEN /* Bug# 2643043 */
444:
445: -- baselined version doesn't exist
446:
447: IF p_pa_debug_mode = 'Y' THEN
448: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AR';
449: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
450: END IF;
451:
444:
445: -- baselined version doesn't exist
446:
447: IF p_pa_debug_mode = 'Y' THEN
448: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AR';
449: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
450: END IF;
451:
452: --Fetch Approved Revenue working version
445: -- baselined version doesn't exist
446:
447: IF p_pa_debug_mode = 'Y' THEN
448: pa_debug.g_err_stage:='Calling pa_budget_utils.get_draft_version_id as no baselined version for no AR';
449: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
450: END IF;
451:
452: --Fetch Approved Revenue working version
453:
467:
468: /* Bug# 2643043 -- Error code 10 is no_data_found */
469: IF l_err_code NOT IN (10,0) THEN
470: -- the api has returned an error
471: IF p_pa_debug_mode = 'Y' THEN
472: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
473: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
474: END IF;
475: RAISE pa_fp_constants_pkg.invalid_arg_exc;
468: /* Bug# 2643043 -- Error code 10 is no_data_found */
469: IF l_err_code NOT IN (10,0) THEN
470: -- the api has returned an error
471: IF p_pa_debug_mode = 'Y' THEN
472: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
473: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
474: END IF;
475: RAISE pa_fp_constants_pkg.invalid_arg_exc;
476: END IF;
469: IF l_err_code NOT IN (10,0) THEN
470: -- the api has returned an error
471: IF p_pa_debug_mode = 'Y' THEN
472: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
473: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
474: END IF;
475: RAISE pa_fp_constants_pkg.invalid_arg_exc;
476: END IF;
477:
476: END IF;
477:
478: END IF;
479:
480: IF p_pa_debug_mode = 'Y' THEN
481: pa_debug.g_err_stage:='basis_rev_version_id ='||x_upgrade_elements_rec.basis_rev_version_id;
482: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
483: END IF;
484:
477:
478: END IF;
479:
480: IF p_pa_debug_mode = 'Y' THEN
481: pa_debug.g_err_stage:='basis_rev_version_id ='||x_upgrade_elements_rec.basis_rev_version_id;
482: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
483: END IF;
484:
485: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
478: END IF;
479:
480: IF p_pa_debug_mode = 'Y' THEN
481: pa_debug.g_err_stage:='basis_rev_version_id ='||x_upgrade_elements_rec.basis_rev_version_id;
482: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
483: END IF;
484:
485: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
486:
507: WHERE budget_type_code = p_budget_type_code;
508:
509: EXCEPTION
510: WHEN OTHERS THEN
511: IF p_pa_debug_mode = 'Y' THEN
512: pa_debug.g_err_stage:='failed while fetching plan type id for plan_type option '||SQLERRM;
513: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
514: END IF;
515: RAISE;
508:
509: EXCEPTION
510: WHEN OTHERS THEN
511: IF p_pa_debug_mode = 'Y' THEN
512: pa_debug.g_err_stage:='failed while fetching plan type id for plan_type option '||SQLERRM;
513: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
514: END IF;
515: RAISE;
516: END;
509: EXCEPTION
510: WHEN OTHERS THEN
511: IF p_pa_debug_mode = 'Y' THEN
512: pa_debug.g_err_stage:='failed while fetching plan type id for plan_type option '||SQLERRM;
513: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
514: END IF;
515: RAISE;
516: END;
517:
530:
531: /* Bug# 2643043 -- Error code 10 is no_data_found */
532: IF l_err_code not in (10,0) THEN
533: -- the api has returned an error
534: IF p_pa_debug_mode = 'Y' THEN
535: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
536: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
537: END IF;
538: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
531: /* Bug# 2643043 -- Error code 10 is no_data_found */
532: IF l_err_code not in (10,0) THEN
533: -- the api has returned an error
534: IF p_pa_debug_mode = 'Y' THEN
535: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
536: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
537: END IF;
538: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
539: END IF;
532: IF l_err_code not in (10,0) THEN
533: -- the api has returned an error
534: IF p_pa_debug_mode = 'Y' THEN
535: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
536: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
537: END IF;
538: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
539: END IF;
540:
558:
559: /* Bug# 2643043 -- Error code 10 is no_data_found */
560: IF l_err_code not in (10,0) THEN
561: -- the api has returned an error
562: IF p_pa_debug_mode = 'Y' THEN
563: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
564: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
565: END IF;
566: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
559: /* Bug# 2643043 -- Error code 10 is no_data_found */
560: IF l_err_code not in (10,0) THEN
561: -- the api has returned an error
562: IF p_pa_debug_mode = 'Y' THEN
563: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
564: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
565: END IF;
566: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
567: END IF;
560: IF l_err_code not in (10,0) THEN
561: -- the api has returned an error
562: IF p_pa_debug_mode = 'Y' THEN
563: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
564: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
565: END IF;
566: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
567: END IF;
568:
582:
583: /* Bug# 2643043 -- Error code 10 is no_data_found */
584: IF l_err_code not in (10,0) THEN
585: -- the api has returned an error
586: IF p_pa_debug_mode = 'Y' THEN
587: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
589: END IF;
590: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
583: /* Bug# 2643043 -- Error code 10 is no_data_found */
584: IF l_err_code not in (10,0) THEN
585: -- the api has returned an error
586: IF p_pa_debug_mode = 'Y' THEN
587: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
589: END IF;
590: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
591: END IF;
584: IF l_err_code not in (10,0) THEN
585: -- the api has returned an error
586: IF p_pa_debug_mode = 'Y' THEN
587: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_baselined_version_id';
588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
589: END IF;
590: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
591: END IF;
592:
610:
611: /* Bug# 2643043 -- Error code 10 is no_data_found */
612: IF l_err_code not in (10,0) THEN
613: -- the api has returned an error
614: IF p_pa_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
611: /* Bug# 2643043 -- Error code 10 is no_data_found */
612: IF l_err_code not in (10,0) THEN
613: -- the api has returned an error
614: IF p_pa_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
619: END IF;
612: IF l_err_code not in (10,0) THEN
613: -- the api has returned an error
614: IF p_pa_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage:='Error returned by pa_budget_utils.get_draft_version_id';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
619: END IF;
620:
647: WHERE budget_type_code = p_budget_type_code;
648:
649: EXCEPTION
650: WHEN OTHERS THEN
651: IF p_pa_debug_mode = 'Y' THEN
652: pa_debug.g_err_stage:='Failed while fetching plan type id for version'||SQLERRM;
653: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
654: END IF;
655: RAISE;
648:
649: EXCEPTION
650: WHEN OTHERS THEN
651: IF p_pa_debug_mode = 'Y' THEN
652: pa_debug.g_err_stage:='Failed while fetching plan type id for version'||SQLERRM;
653: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
654: END IF;
655: RAISE;
656: END;
649: EXCEPTION
650: WHEN OTHERS THEN
651: IF p_pa_debug_mode = 'Y' THEN
652: pa_debug.g_err_stage:='Failed while fetching plan type id for version'||SQLERRM;
653: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
654: END IF;
655: RAISE;
656: END;
657:
868: END IF;
869: END IF; --g_basis_rev_version_id
870:
871: END IF; --g_curr_option_preference_code is revenue_only or cost_and_rev_sep
872: IF p_pa_debug_mode = 'Y' THEN
873: pa_debug.g_err_stage := 'Exiting Populate_Local_Variables';
874: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
875: END IF;
876: pa_debug.reset_err_stack;
869: END IF; --g_basis_rev_version_id
870:
871: END IF; --g_curr_option_preference_code is revenue_only or cost_and_rev_sep
872: IF p_pa_debug_mode = 'Y' THEN
873: pa_debug.g_err_stage := 'Exiting Populate_Local_Variables';
874: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
875: END IF;
876: pa_debug.reset_err_stack;
877: EXCEPTION
870:
871: END IF; --g_curr_option_preference_code is revenue_only or cost_and_rev_sep
872: IF p_pa_debug_mode = 'Y' THEN
873: pa_debug.g_err_stage := 'Exiting Populate_Local_Variables';
874: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
875: END IF;
876: pa_debug.reset_err_stack;
877: EXCEPTION
878:
872: IF p_pa_debug_mode = 'Y' THEN
873: pa_debug.g_err_stage := 'Exiting Populate_Local_Variables';
874: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
875: END IF;
876: pa_debug.reset_err_stack;
877: EXCEPTION
878:
879: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
880:
892: ELSE
893: x_msg_count := l_msg_count;
894: x_msg_data := l_msg_data;
895: END IF;
896: IF p_pa_debug_mode = 'Y' THEN
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
893: x_msg_count := l_msg_count;
894: x_msg_data := l_msg_data;
895: END IF;
896: IF p_pa_debug_mode = 'Y' THEN
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
894: x_msg_data := l_msg_data;
895: END IF;
896: IF p_pa_debug_mode = 'Y' THEN
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
902: pa_debug.reset_err_stack;
895: END IF;
896: IF p_pa_debug_mode = 'Y' THEN
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
902: pa_debug.reset_err_stack;
903: RAISE;
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
902: pa_debug.reset_err_stack;
903: RAISE;
904:
905: WHEN Others THEN
906:
918: x_msg_data := SQLERRM;
919:
920: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
921: ,p_procedure_name => 'Populate_Local_Variables');
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
924: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
925: pa_debug.write_file('Populate_Local_Variables ' || pa_debug.G_Err_Stack,5);
926: END IF;
919:
920: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
921: ,p_procedure_name => 'Populate_Local_Variables');
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
924: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
925: pa_debug.write_file('Populate_Local_Variables ' || pa_debug.G_Err_Stack,5);
926: END IF;
927: pa_debug.reset_err_stack;
920: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
921: ,p_procedure_name => 'Populate_Local_Variables');
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
924: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
925: pa_debug.write_file('Populate_Local_Variables ' || pa_debug.G_Err_Stack,5);
926: END IF;
927: pa_debug.reset_err_stack;
928: RAISE;
921: ,p_procedure_name => 'Populate_Local_Variables');
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
924: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
925: pa_debug.write_file('Populate_Local_Variables ' || pa_debug.G_Err_Stack,5);
926: END IF;
927: pa_debug.reset_err_stack;
928: RAISE;
929:
923: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
924: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
925: pa_debug.write_file('Populate_Local_Variables ' || pa_debug.G_Err_Stack,5);
926: END IF;
927: pa_debug.reset_err_stack;
928: RAISE;
929:
930: END Populate_Local_Variables;
931:
968: x_msg_count := 0;
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970: savepoint pa_fp_upgrade_pkg;
971:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970: savepoint pa_fp_upgrade_pkg;
971:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
971:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
980: pa_debug.g_err_stage := 'Checking for valid parameters';
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
980: pa_debug.g_err_stage := 'Checking for valid parameters';
981: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
974: l_debug_mode := NVL(l_debug_mode, 'Y');
975: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
980: pa_debug.g_err_stage := 'Checking for valid parameters';
981: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
982: END IF;
976: IF p_pa_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
980: pa_debug.g_err_stage := 'Checking for valid parameters';
981: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
982: END IF;
983:
984: IF (p_budget_types IS NULL) OR
977: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
978: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979:
980: pa_debug.g_err_stage := 'Checking for valid parameters';
981: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
982: END IF;
983:
984: IF (p_budget_types IS NULL) OR
985: (p_budget_statuses IS NULL) OR
984: IF (p_budget_types IS NULL) OR
985: (p_budget_statuses IS NULL) OR
986: (p_project_statuses IS NULL)
987: THEN
988: IF p_pa_debug_mode = 'Y' THEN
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
985: (p_budget_statuses IS NULL) OR
986: (p_project_statuses IS NULL)
987: THEN
988: IF p_pa_debug_mode = 'Y' THEN
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
986: (p_project_statuses IS NULL)
987: THEN
988: IF p_pa_debug_mode = 'Y' THEN
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
987: THEN
988: IF p_pa_debug_mode = 'Y' THEN
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
995: END IF;
988: IF p_pa_debug_mode = 'Y' THEN
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
995: END IF;
996: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
989: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
995: END IF;
996: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
997: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
991: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
993: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
995: END IF;
996: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
997: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
998: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
997: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
998: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
999:
1000: END IF;
1001: IF p_pa_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage := 'Parameter validation complete';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1004:
1005: --Upgrade all the budget types selected for upgrade
998: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
999:
1000: END IF;
1001: IF p_pa_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage := 'Parameter validation complete';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1004:
1005: --Upgrade all the budget types selected for upgrade
1006:
999:
1000: END IF;
1001: IF p_pa_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage := 'Parameter validation complete';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1004:
1005: --Upgrade all the budget types selected for upgrade
1006:
1007: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Types';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1004:
1005: --Upgrade all the budget types selected for upgrade
1006:
1007: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Types';
1008: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1009: END IF;
1010: pa_fp_upgrade_pkg.Upgrade_Budget_Types(
1011: p_budget_types => p_budget_types
1004:
1005: --Upgrade all the budget types selected for upgrade
1006:
1007: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Types';
1008: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1009: END IF;
1010: pa_fp_upgrade_pkg.Upgrade_Budget_Types(
1011: p_budget_types => p_budget_types
1012: ,x_return_status => l_return_status
1015: if (l_return_status <> 'S') then
1016: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1017: end if;
1018: --Fetch the projects chosen for upgrade
1019: IF p_pa_debug_mode = 'Y' THEN
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1016: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1017: end if;
1018: --Fetch the projects chosen for upgrade
1019: IF p_pa_debug_mode = 'Y' THEN
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1017: end if;
1018: --Fetch the projects chosen for upgrade
1019: IF p_pa_debug_mode = 'Y' THEN
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1025: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1018: --Fetch the projects chosen for upgrade
1019: IF p_pa_debug_mode = 'Y' THEN
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1025: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1026: END IF;
1019: IF p_pa_debug_mode = 'Y' THEN
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1025: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1026: END IF;
1027:
1020: pa_debug.g_err_stage := 'opening projects_for_upgrade_cur';
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1025: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1026: END IF;
1027:
1028: IF ( p_from_project_number IS NOT NULL) AND ( p_to_project_number IS NOT NULL ) THEN
1021: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1022: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
1023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1024: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
1025: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1026: END IF;
1027:
1028: IF ( p_from_project_number IS NOT NULL) AND ( p_to_project_number IS NOT NULL ) THEN
1029:
1064: EXIT WHEN projects_for_upgrade_cur%NOTFOUND;
1065:
1066: END IF;
1067:
1068: IF p_pa_debug_mode = 'Y' THEN
1069: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
1070: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1071:
1072: --Check if any types of budgets are allowed for the project using project_type_info_cur.
1065:
1066: END IF;
1067:
1068: IF p_pa_debug_mode = 'Y' THEN
1069: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
1070: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1071:
1072: --Check if any types of budgets are allowed for the project using project_type_info_cur.
1073:
1066: END IF;
1067:
1068: IF p_pa_debug_mode = 'Y' THEN
1069: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
1070: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1071:
1072: --Check if any types of budgets are allowed for the project using project_type_info_cur.
1073:
1074: pa_debug.g_err_stage := 'Opening project_type_info_cur'||l_project_id;
1070: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1071:
1072: --Check if any types of budgets are allowed for the project using project_type_info_cur.
1073:
1074: pa_debug.g_err_stage := 'Opening project_type_info_cur'||l_project_id;
1075: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1076: END IF;
1077: OPEN project_type_info_cur(l_project_id);
1078: FETCH project_type_info_cur INTO project_type_info_rec;
1071:
1072: --Check if any types of budgets are allowed for the project using project_type_info_cur.
1073:
1074: pa_debug.g_err_stage := 'Opening project_type_info_cur'||l_project_id;
1075: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1076: END IF;
1077: OPEN project_type_info_cur(l_project_id);
1078: FETCH project_type_info_cur INTO project_type_info_rec;
1079: CLOSE project_type_info_cur;
1076: END IF;
1077: OPEN project_type_info_cur(l_project_id);
1078: FETCH project_type_info_cur INTO project_type_info_rec;
1079: CLOSE project_type_info_cur;
1080: IF p_pa_debug_mode = 'Y' THEN
1081: pa_debug.g_err_stage := 'Closed project_type_info_cur';
1082: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1083: END IF;
1084: IF (( project_type_info_rec.allow_cost_budget_entry_flag ='Y' )OR
1077: OPEN project_type_info_cur(l_project_id);
1078: FETCH project_type_info_cur INTO project_type_info_rec;
1079: CLOSE project_type_info_cur;
1080: IF p_pa_debug_mode = 'Y' THEN
1081: pa_debug.g_err_stage := 'Closed project_type_info_cur';
1082: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1083: END IF;
1084: IF (( project_type_info_rec.allow_cost_budget_entry_flag ='Y' )OR
1085: ( project_type_info_rec.allow_rev_budget_entry_flag = 'Y' )) AND
1078: FETCH project_type_info_cur INTO project_type_info_rec;
1079: CLOSE project_type_info_cur;
1080: IF p_pa_debug_mode = 'Y' THEN
1081: pa_debug.g_err_stage := 'Closed project_type_info_cur';
1082: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1083: END IF;
1084: IF (( project_type_info_rec.allow_cost_budget_entry_flag ='Y' )OR
1085: ( project_type_info_rec.allow_rev_budget_entry_flag = 'Y' )) AND
1086: (NVL(project_type_info_rec.org_project_flag,'N') = 'N') -- bug:- 2788983, org_forecast project shouldn't be upgraded
1120:
1121: IF l_proj_validation_status = 'Y' THEN
1122:
1123: l_proj_fp_options_id := NULL;
1124: IF p_pa_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Calling Create_fp_options for project';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1127: END IF;
1128: pa_fp_upgrade_pkg.Create_fp_options(
1121: IF l_proj_validation_status = 'Y' THEN
1122:
1123: l_proj_fp_options_id := NULL;
1124: IF p_pa_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Calling Create_fp_options for project';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1127: END IF;
1128: pa_fp_upgrade_pkg.Create_fp_options(
1129: p_project_id => l_project_id
1122:
1123: l_proj_fp_options_id := NULL;
1124: IF p_pa_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Calling Create_fp_options for project';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1127: END IF;
1128: pa_fp_upgrade_pkg.Create_fp_options(
1129: p_project_id => l_project_id
1130: ,p_budget_type_code => NULL
1149: INTO l_fp_preference_code, l_multi_curr_flag
1150: FROM pa_proj_fp_options
1151: WHERE proj_fp_options_id = l_proj_fp_options_id;
1152:
1153: IF p_pa_debug_mode = 'Y' THEN
1154: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for project';
1155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1156: END IF;
1157: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1150: FROM pa_proj_fp_options
1151: WHERE proj_fp_options_id = l_proj_fp_options_id;
1152:
1153: IF p_pa_debug_mode = 'Y' THEN
1154: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for project';
1155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1156: END IF;
1157: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1158: p_source_fp_option_id => NULL
1151: WHERE proj_fp_options_id = l_proj_fp_options_id;
1152:
1153: IF p_pa_debug_mode = 'Y' THEN
1154: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for project';
1155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1156: END IF;
1157: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1158: p_source_fp_option_id => NULL
1159: ,p_target_fp_option_id => l_proj_fp_options_id
1179: ,p_upgraded_flag => 'Y'
1180: ,p_failure_reason_code => NULL);
1181: END IF;
1182: WHEN OTHERS THEN
1183: IF p_pa_debug_mode = 'Y' THEN
1184: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1186: END IF;
1187: RAISE;
1180: ,p_failure_reason_code => NULL);
1181: END IF;
1182: WHEN OTHERS THEN
1183: IF p_pa_debug_mode = 'Y' THEN
1184: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1186: END IF;
1187: RAISE;
1188: END;
1181: END IF;
1182: WHEN OTHERS THEN
1183: IF p_pa_debug_mode = 'Y' THEN
1184: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1186: END IF;
1187: RAISE;
1188: END;
1189:
1195: -- and those selected for upgrade.This api validates (?) each of the budget type
1196: -- for upgrade. If there are no exceptions it creates both fp options and
1197: -- fp elements for all the above plan type .
1198:
1199: IF p_pa_debug_mode ='Y' THEN
1200: pa_debug.g_err_stage := 'Calling Add_Plan_Types';
1201: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1202: END IF;
1203:
1196: -- for upgrade. If there are no exceptions it creates both fp options and
1197: -- fp elements for all the above plan type .
1198:
1199: IF p_pa_debug_mode ='Y' THEN
1200: pa_debug.g_err_stage := 'Calling Add_Plan_Types';
1201: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1202: END IF;
1203:
1204: pa_fp_upgrade_pkg.Add_Plan_Types(
1197: -- fp elements for all the above plan type .
1198:
1199: IF p_pa_debug_mode ='Y' THEN
1200: pa_debug.g_err_stage := 'Calling Add_Plan_Types';
1201: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1202: END IF;
1203:
1204: pa_fp_upgrade_pkg.Add_Plan_Types(
1205: p_project_id => l_project_id
1211: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1212: end if;
1213:
1214: --Upgrade the budget versions of the project for all the budget_types eligible for upgrade
1215: IF p_pa_debug_mode = 'Y' THEN
1216: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Versions';
1217: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1218: END IF;
1219: pa_fp_upgrade_pkg.Upgrade_Budget_Versions(
1212: end if;
1213:
1214: --Upgrade the budget versions of the project for all the budget_types eligible for upgrade
1215: IF p_pa_debug_mode = 'Y' THEN
1216: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Versions';
1217: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1218: END IF;
1219: pa_fp_upgrade_pkg.Upgrade_Budget_Versions(
1220: p_project_id => l_project_id
1213:
1214: --Upgrade the budget versions of the project for all the budget_types eligible for upgrade
1215: IF p_pa_debug_mode = 'Y' THEN
1216: pa_debug.g_err_stage := 'Calling Upgrade_Budget_Versions';
1217: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1218: END IF;
1219: pa_fp_upgrade_pkg.Upgrade_Budget_Versions(
1220: p_project_id => l_project_id
1221: ,p_budget_types => p_budget_types
1242: ELSE
1243: CLOSE projects_for_upgrade_cur;
1244: END IF;
1245:
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_debug.g_err_stage := 'Closed projects_for_upgrade_cur';
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1243: CLOSE projects_for_upgrade_cur;
1244: END IF;
1245:
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_debug.g_err_stage := 'Closed projects_for_upgrade_cur';
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1251: END IF;
1244: END IF;
1245:
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_debug.g_err_stage := 'Closed projects_for_upgrade_cur';
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1251: END IF;
1252: pa_debug.reset_err_stack;
1245:
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_debug.g_err_stage := 'Closed projects_for_upgrade_cur';
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1251: END IF;
1252: pa_debug.reset_err_stack;
1253: EXCEPTION
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_debug.g_err_stage := 'Closed projects_for_upgrade_cur';
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1251: END IF;
1252: pa_debug.reset_err_stack;
1253: EXCEPTION
1254:
1248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1249: pa_debug.g_err_stage := 'Exiting Upgrade_Budgets';
1250: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1251: END IF;
1252: pa_debug.reset_err_stack;
1253: EXCEPTION
1254:
1255: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1256:
1282: x_msg_count := l_msg_count;
1283: x_msg_data := l_msg_data;
1284: END IF;
1285:
1286: IF p_pa_debug_mode = 'Y' THEN
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1283: x_msg_data := l_msg_data;
1284: END IF;
1285:
1286: IF p_pa_debug_mode = 'Y' THEN
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1284: END IF;
1285:
1286: IF p_pa_debug_mode = 'Y' THEN
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1293: pa_debug.reset_err_stack;
1294: ROLLBACK TO pa_fp_upgrade_pkg;
1295: RAISE;
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1293: pa_debug.reset_err_stack;
1294: ROLLBACK TO pa_fp_upgrade_pkg;
1295: RAISE;
1296: WHEN Others THEN
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1293: pa_debug.reset_err_stack;
1294: ROLLBACK TO pa_fp_upgrade_pkg;
1295: RAISE;
1296: WHEN Others THEN
1297:
1312: x_msg_data := SQLERRM;
1313:
1314: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1315: ,p_procedure_name => 'Upgrade_Budgets');
1316: IF p_pa_debug_mode = 'Y' THEN
1317: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1313:
1314: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1315: ,p_procedure_name => 'Upgrade_Budgets');
1316: IF p_pa_debug_mode = 'Y' THEN
1317: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1321: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
1314: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1315: ,p_procedure_name => 'Upgrade_Budgets');
1316: IF p_pa_debug_mode = 'Y' THEN
1317: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1321: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
1322: pa_debug.reset_err_stack;
1316: IF p_pa_debug_mode = 'Y' THEN
1317: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1321: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
1322: pa_debug.reset_err_stack;
1323: ROLLBACK TO pa_fp_upgrade_pkg;
1324: RAISE;
1317: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1321: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
1322: pa_debug.reset_err_stack;
1323: ROLLBACK TO pa_fp_upgrade_pkg;
1324: RAISE;
1325: END Upgrade_Budgets;
1318: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1319: END IF;
1320: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project'||project_type_info_rec.segment1||'(project number)',5);
1321: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
1322: pa_debug.reset_err_stack;
1323: ROLLBACK TO pa_fp_upgrade_pkg;
1324: RAISE;
1325: END Upgrade_Budgets;
1326:
1386: BEGIN
1387: x_msg_count := 0;
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1387: x_msg_count := 0;
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1389:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1393: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1400: END IF;
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1400: END IF;
1401: IF (p_budget_types IS NULL) THEN
1402: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Types';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1397:
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1400: END IF;
1401: IF (p_budget_types IS NULL) THEN
1402: IF p_pa_debug_mode = 'Y' THEN
1403: pa_debug.g_err_stage := 'p_budget_types ='||p_budget_types;
1398: pa_debug.g_err_stage := 'Checking for valid parameters';
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1400: END IF;
1401: IF (p_budget_types IS NULL) THEN
1402: IF p_pa_debug_mode = 'Y' THEN
1403: pa_debug.g_err_stage := 'p_budget_types ='||p_budget_types;
1404: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1405: END IF;
1406: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1399: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1400: END IF;
1401: IF (p_budget_types IS NULL) THEN
1402: IF p_pa_debug_mode = 'Y' THEN
1403: pa_debug.g_err_stage := 'p_budget_types ='||p_budget_types;
1404: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1405: END IF;
1406: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1407: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1400: END IF;
1401: IF (p_budget_types IS NULL) THEN
1402: IF p_pa_debug_mode = 'Y' THEN
1403: pa_debug.g_err_stage := 'p_budget_types ='||p_budget_types;
1404: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1405: END IF;
1406: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1407: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1408: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1407: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1408: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1409:
1410: END IF;
1411: IF p_pa_debug_mode = 'Y' THEN
1412: pa_debug.g_err_stage := 'parameter validation complete';
1413: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1414: END IF;
1415:
1408: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1409:
1410: END IF;
1411: IF p_pa_debug_mode = 'Y' THEN
1412: pa_debug.g_err_stage := 'parameter validation complete';
1413: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1414: END IF;
1415:
1416: OPEN budget_types_for_upgrade_cur(p_budget_types);
1409:
1410: END IF;
1411: IF p_pa_debug_mode = 'Y' THEN
1412: pa_debug.g_err_stage := 'parameter validation complete';
1413: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1414: END IF;
1415:
1416: OPEN budget_types_for_upgrade_cur(p_budget_types);
1417: LOOP
1500:
1501: END LOOP;
1502: CLOSE budget_types_for_upgrade_cur;
1503:
1504: IF p_pa_debug_mode = 'Y' THEN
1505: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Types';
1506: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1507: END IF;
1508: pa_debug.reset_err_stack;
1501: END LOOP;
1502: CLOSE budget_types_for_upgrade_cur;
1503:
1504: IF p_pa_debug_mode = 'Y' THEN
1505: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Types';
1506: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1507: END IF;
1508: pa_debug.reset_err_stack;
1509: EXCEPTION
1502: CLOSE budget_types_for_upgrade_cur;
1503:
1504: IF p_pa_debug_mode = 'Y' THEN
1505: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Types';
1506: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1507: END IF;
1508: pa_debug.reset_err_stack;
1509: EXCEPTION
1510:
1504: IF p_pa_debug_mode = 'Y' THEN
1505: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Types';
1506: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1507: END IF;
1508: pa_debug.reset_err_stack;
1509: EXCEPTION
1510:
1511: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1512:
1528: x_msg_count := l_msg_count;
1529: x_msg_data := l_msg_data;
1530: END IF;
1531:
1532: IF p_pa_debug_mode = 'Y' THEN
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1529: x_msg_data := l_msg_data;
1530: END IF;
1531:
1532: IF p_pa_debug_mode = 'Y' THEN
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1530: END IF;
1531:
1532: IF p_pa_debug_mode = 'Y' THEN
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1538: pa_debug.reset_err_stack;
1531:
1532: IF p_pa_debug_mode = 'Y' THEN
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1538: pa_debug.reset_err_stack;
1539: RAISE;
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1538: pa_debug.reset_err_stack;
1539: RAISE;
1540:
1541: WHEN Others THEN
1542:
1548: x_msg_data := SQLERRM;
1549:
1550: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1551: ,p_procedure_name => 'Upgrade_Budget_Types');
1552: IF p_pa_debug_mode = 'Y' THEN
1553: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1554: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1555: pa_debug.write_file('Upgrade_Budget_Types ' || pa_debug.G_Err_Stack,5);
1556: END IF;
1549:
1550: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1551: ,p_procedure_name => 'Upgrade_Budget_Types');
1552: IF p_pa_debug_mode = 'Y' THEN
1553: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1554: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1555: pa_debug.write_file('Upgrade_Budget_Types ' || pa_debug.G_Err_Stack,5);
1556: END IF;
1557: pa_debug.reset_err_stack;
1550: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1551: ,p_procedure_name => 'Upgrade_Budget_Types');
1552: IF p_pa_debug_mode = 'Y' THEN
1553: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1554: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1555: pa_debug.write_file('Upgrade_Budget_Types ' || pa_debug.G_Err_Stack,5);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558: RAISE;
1551: ,p_procedure_name => 'Upgrade_Budget_Types');
1552: IF p_pa_debug_mode = 'Y' THEN
1553: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1554: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1555: pa_debug.write_file('Upgrade_Budget_Types ' || pa_debug.G_Err_Stack,5);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558: RAISE;
1559:
1553: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1554: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1555: pa_debug.write_file('Upgrade_Budget_Types ' || pa_debug.G_Err_Stack,5);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558: RAISE;
1559:
1560: END Upgrade_Budget_Types;
1561:
1604:
1605: x_msg_count := 0;
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Create_fp_options');
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1605: x_msg_count := 0;
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Create_fp_options');
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1613: IF p_pa_debug_mode = 'Y' THEN
1607:
1608: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Create_fp_options');
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1613: IF p_pa_debug_mode = 'Y' THEN
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1613: IF p_pa_debug_mode = 'Y' THEN
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1616:
1617: pa_debug.g_err_stage := 'Calling Populate_Local_Variables';
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1613: IF p_pa_debug_mode = 'Y' THEN
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1616:
1617: pa_debug.g_err_stage := 'Calling Populate_Local_Variables';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1611: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1612:
1613: IF p_pa_debug_mode = 'Y' THEN
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1616:
1617: pa_debug.g_err_stage := 'Calling Populate_Local_Variables';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1619: END IF;
1613: IF p_pa_debug_mode = 'Y' THEN
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1616:
1617: pa_debug.g_err_stage := 'Calling Populate_Local_Variables';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1619: END IF;
1620:
1621: pa_fp_upgrade_pkg.Populate_Local_Variables(
1614: pa_debug.g_err_stage := 'Entered Create_fp_options';
1615: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1616:
1617: pa_debug.g_err_stage := 'Calling Populate_Local_Variables';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1619: END IF;
1620:
1621: pa_fp_upgrade_pkg.Populate_Local_Variables(
1622: p_project_id => p_project_id
1631: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1632: end if;
1633:
1634: --Calling create_fp_option api to create an option
1635: IF p_pa_debug_mode = 'Y' THEN
1636: pa_debug.g_err_stage := 'Calling Create_FP_Option of PA_PROJ_FP_OPTIONS_PUB';
1637: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1638: END IF;
1639: PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option (
1632: end if;
1633:
1634: --Calling create_fp_option api to create an option
1635: IF p_pa_debug_mode = 'Y' THEN
1636: pa_debug.g_err_stage := 'Calling Create_FP_Option of PA_PROJ_FP_OPTIONS_PUB';
1637: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1638: END IF;
1639: PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option (
1640: px_target_proj_fp_option_id => l_target_proj_fp_option_id
1633:
1634: --Calling create_fp_option api to create an option
1635: IF p_pa_debug_mode = 'Y' THEN
1636: pa_debug.g_err_stage := 'Calling Create_FP_Option of PA_PROJ_FP_OPTIONS_PUB';
1637: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1638: END IF;
1639: PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option (
1640: px_target_proj_fp_option_id => l_target_proj_fp_option_id
1641: ,p_source_proj_fp_option_id => NULL
1765: END IF;
1766: x_proj_fp_options_id := l_target_proj_fp_option_id;
1767: x_upgrade_elements_rec := l_upgrade_elements_rec;
1768:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: pa_debug.g_err_stage := 'Exiting Create_fp_options';
1771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1772: END IF;
1773: pa_debug.reset_err_stack;
1766: x_proj_fp_options_id := l_target_proj_fp_option_id;
1767: x_upgrade_elements_rec := l_upgrade_elements_rec;
1768:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: pa_debug.g_err_stage := 'Exiting Create_fp_options';
1771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1772: END IF;
1773: pa_debug.reset_err_stack;
1774: EXCEPTION
1767: x_upgrade_elements_rec := l_upgrade_elements_rec;
1768:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: pa_debug.g_err_stage := 'Exiting Create_fp_options';
1771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1772: END IF;
1773: pa_debug.reset_err_stack;
1774: EXCEPTION
1775:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: pa_debug.g_err_stage := 'Exiting Create_fp_options';
1771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1772: END IF;
1773: pa_debug.reset_err_stack;
1774: EXCEPTION
1775:
1776: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1777:
1790: x_msg_count := l_msg_count;
1791: x_msg_data := l_msg_data;
1792: END IF;
1793:
1794: IF p_pa_debug_mode = 'Y' THEN
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1791: x_msg_data := l_msg_data;
1792: END IF;
1793:
1794: IF p_pa_debug_mode = 'Y' THEN
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1792: END IF;
1793:
1794: IF p_pa_debug_mode = 'Y' THEN
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1800: pa_debug.reset_err_stack;
1793:
1794: IF p_pa_debug_mode = 'Y' THEN
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1800: pa_debug.reset_err_stack;
1801: RAISE;
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1800: pa_debug.reset_err_stack;
1801: RAISE;
1802:
1803: WHEN Others THEN
1804:
1807: x_msg_data := SQLERRM;
1808:
1809: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1810: ,p_procedure_name => 'Create_fp_options');
1811: IF p_pa_debug_mode = 'Y' THEN
1812: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1813: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1814: pa_debug.write_file('Create_fp_options ' || pa_debug.G_Err_Stack,5);
1815: END IF;
1808:
1809: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1810: ,p_procedure_name => 'Create_fp_options');
1811: IF p_pa_debug_mode = 'Y' THEN
1812: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1813: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1814: pa_debug.write_file('Create_fp_options ' || pa_debug.G_Err_Stack,5);
1815: END IF;
1816: pa_debug.reset_err_stack;
1809: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1810: ,p_procedure_name => 'Create_fp_options');
1811: IF p_pa_debug_mode = 'Y' THEN
1812: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1813: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1814: pa_debug.write_file('Create_fp_options ' || pa_debug.G_Err_Stack,5);
1815: END IF;
1816: pa_debug.reset_err_stack;
1817: RAISE;
1810: ,p_procedure_name => 'Create_fp_options');
1811: IF p_pa_debug_mode = 'Y' THEN
1812: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1813: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1814: pa_debug.write_file('Create_fp_options ' || pa_debug.G_Err_Stack,5);
1815: END IF;
1816: pa_debug.reset_err_stack;
1817: RAISE;
1818: END Create_fp_options;
1812: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1813: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1814: pa_debug.write_file('Create_fp_options ' || pa_debug.G_Err_Stack,5);
1815: END IF;
1816: pa_debug.reset_err_stack;
1817: RAISE;
1818: END Create_fp_options;
1819:
1820: /*=============================================================================
1849:
1850: x_msg_count := 0;
1851: x_return_status := FND_API.G_RET_STS_SUCCESS;
1852:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1850: x_msg_count := 0;
1851: x_return_status := FND_API.G_RET_STS_SUCCESS;
1852:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1858: pa_debug.g_err_stage := 'Entered Add_Plan_Types';
1852:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1858: pa_debug.g_err_stage := 'Entered Add_Plan_Types';
1859: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1860:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1858: pa_debug.g_err_stage := 'Entered Add_Plan_Types';
1859: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1860:
1861: -- Check for not null parameters
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1858: pa_debug.g_err_stage := 'Entered Add_Plan_Types';
1859: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1860:
1861: -- Check for not null parameters
1862:
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1856: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1857: IF p_pa_debug_mode = 'Y' THEN
1858: pa_debug.g_err_stage := 'Entered Add_Plan_Types';
1859: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1860:
1861: -- Check for not null parameters
1862:
1863: pa_debug.g_err_stage := 'Checking for valid parameters:';
1859: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1860:
1861: -- Check for not null parameters
1862:
1863: pa_debug.g_err_stage := 'Checking for valid parameters:';
1864: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1865: END IF;
1866: IF (p_project_id IS NULL) OR (p_budget_types IS NULL)
1867: THEN
1860:
1861: -- Check for not null parameters
1862:
1863: pa_debug.g_err_stage := 'Checking for valid parameters:';
1864: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1865: END IF;
1866: IF (p_project_id IS NULL) OR (p_budget_types IS NULL)
1867: THEN
1868: IF p_pa_debug_mode = 'Y' THEN
1864: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1865: END IF;
1866: IF (p_project_id IS NULL) OR (p_budget_types IS NULL)
1867: THEN
1868: IF p_pa_debug_mode = 'Y' THEN
1869: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
1870: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1871: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1865: END IF;
1866: IF (p_project_id IS NULL) OR (p_budget_types IS NULL)
1867: THEN
1868: IF p_pa_debug_mode = 'Y' THEN
1869: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
1870: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1871: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1873: END IF;
1866: IF (p_project_id IS NULL) OR (p_budget_types IS NULL)
1867: THEN
1868: IF p_pa_debug_mode = 'Y' THEN
1869: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
1870: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1871: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1873: END IF;
1874:
1867: THEN
1868: IF p_pa_debug_mode = 'Y' THEN
1869: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
1870: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1871: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1873: END IF;
1874:
1875: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1868: IF p_pa_debug_mode = 'Y' THEN
1869: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
1870: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1871: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1873: END IF;
1874:
1875: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1876: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1877:
1878: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1879:
1880: END IF;
1881: IF p_pa_debug_mode = 'Y' THEN
1882: pa_debug.g_err_stage := 'Parameter validation complete';
1883: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: -- Fetch each budget type used for the project
1878: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1879:
1880: END IF;
1881: IF p_pa_debug_mode = 'Y' THEN
1882: pa_debug.g_err_stage := 'Parameter validation complete';
1883: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: -- Fetch each budget type used for the project
1886:
1879:
1880: END IF;
1881: IF p_pa_debug_mode = 'Y' THEN
1882: pa_debug.g_err_stage := 'Parameter validation complete';
1883: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: -- Fetch each budget type used for the project
1886:
1887: OPEN attached_plan_types_cur(p_project_id,p_budget_types);
1907: -- For each budget type fetched create fp options
1908:
1909: l_proj_fp_options_id := NULL;
1910:
1911: IF p_pa_debug_mode = 'Y' THEN
1912: pa_debug.g_err_stage := 'Calling Create_fp_options for plan type';
1913: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1914: END IF;
1915: pa_fp_upgrade_pkg.Create_fp_options(
1908:
1909: l_proj_fp_options_id := NULL;
1910:
1911: IF p_pa_debug_mode = 'Y' THEN
1912: pa_debug.g_err_stage := 'Calling Create_fp_options for plan type';
1913: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1914: END IF;
1915: pa_fp_upgrade_pkg.Create_fp_options(
1916: p_project_id => p_project_id
1909: l_proj_fp_options_id := NULL;
1910:
1911: IF p_pa_debug_mode = 'Y' THEN
1912: pa_debug.g_err_stage := 'Calling Create_fp_options for plan type';
1913: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1914: END IF;
1915: pa_fp_upgrade_pkg.Create_fp_options(
1916: p_project_id => p_project_id
1917: ,p_budget_type_code => attached_plan_types_rec.budget_type_code
1936: INTO l_fp_preference_code, l_multi_curr_flag
1937: FROM pa_proj_fp_options
1938: WHERE proj_fp_options_id = l_proj_fp_options_id;
1939:
1940: IF p_pa_debug_mode = 'Y' THEN
1941: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for plan type';
1942: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1943: END IF;
1944: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1937: FROM pa_proj_fp_options
1938: WHERE proj_fp_options_id = l_proj_fp_options_id;
1939:
1940: IF p_pa_debug_mode = 'Y' THEN
1941: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for plan type';
1942: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1943: END IF;
1944: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1945: p_source_fp_option_id => NULL
1938: WHERE proj_fp_options_id = l_proj_fp_options_id;
1939:
1940: IF p_pa_debug_mode = 'Y' THEN
1941: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for plan type';
1942: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1943: END IF;
1944: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
1945: p_source_fp_option_id => NULL
1946: ,p_target_fp_option_id => l_proj_fp_options_id
1969:
1970: END IF;
1971: END LOOP;
1972: CLOSE attached_plan_types_cur;
1973: IF p_pa_debug_mode = 'Y' THEN
1974: pa_debug.g_err_stage := 'Exiting Add_Plan_Types';
1975: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1976: END IF;
1977: pa_debug.reset_err_stack;
1970: END IF;
1971: END LOOP;
1972: CLOSE attached_plan_types_cur;
1973: IF p_pa_debug_mode = 'Y' THEN
1974: pa_debug.g_err_stage := 'Exiting Add_Plan_Types';
1975: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1976: END IF;
1977: pa_debug.reset_err_stack;
1978:
1971: END LOOP;
1972: CLOSE attached_plan_types_cur;
1973: IF p_pa_debug_mode = 'Y' THEN
1974: pa_debug.g_err_stage := 'Exiting Add_Plan_Types';
1975: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1976: END IF;
1977: pa_debug.reset_err_stack;
1978:
1979: EXCEPTION
1973: IF p_pa_debug_mode = 'Y' THEN
1974: pa_debug.g_err_stage := 'Exiting Add_Plan_Types';
1975: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1976: END IF;
1977: pa_debug.reset_err_stack;
1978:
1979: EXCEPTION
1980:
1981: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1998: x_msg_count := l_msg_count;
1999: x_msg_data := l_msg_data;
2000: END IF;
2001:
2002: IF p_pa_debug_mode = 'Y' THEN
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
1999: x_msg_data := l_msg_data;
2000: END IF;
2001:
2002: IF p_pa_debug_mode = 'Y' THEN
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2000: END IF;
2001:
2002: IF p_pa_debug_mode = 'Y' THEN
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2008: pa_debug.reset_err_stack;
2001:
2002: IF p_pa_debug_mode = 'Y' THEN
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2008: pa_debug.reset_err_stack;
2009: RAISE;
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2008: pa_debug.reset_err_stack;
2009: RAISE;
2010:
2011: WHEN Others THEN
2012:
2017: x_msg_count := 1;
2018: x_msg_data := SQLERRM;
2019: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
2020: ,p_procedure_name => 'Add_Plan_Types');
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2024: pa_debug.write_file('Add_Plan_Types ' || pa_debug.G_Err_Stack,5);
2025: END IF;
2018: x_msg_data := SQLERRM;
2019: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
2020: ,p_procedure_name => 'Add_Plan_Types');
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2024: pa_debug.write_file('Add_Plan_Types ' || pa_debug.G_Err_Stack,5);
2025: END IF;
2026: pa_debug.reset_err_stack;
2019: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
2020: ,p_procedure_name => 'Add_Plan_Types');
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2024: pa_debug.write_file('Add_Plan_Types ' || pa_debug.G_Err_Stack,5);
2025: END IF;
2026: pa_debug.reset_err_stack;
2027: RAISE;
2020: ,p_procedure_name => 'Add_Plan_Types');
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2024: pa_debug.write_file('Add_Plan_Types ' || pa_debug.G_Err_Stack,5);
2025: END IF;
2026: pa_debug.reset_err_stack;
2027: RAISE;
2028:
2022: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2024: pa_debug.write_file('Add_Plan_Types ' || pa_debug.G_Err_Stack,5);
2025: END IF;
2026: pa_debug.reset_err_stack;
2027: RAISE;
2028:
2029: END Add_Plan_Types;
2030: /*=============================================================================
2118: x_msg_count := 0;
2119: x_msg_data := NULL;
2120: x_return_status := FND_API.G_RET_STS_SUCCESS;
2121:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2119: x_msg_data := NULL;
2120: x_return_status := FND_API.G_RET_STS_SUCCESS;
2121:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2127: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Versions';
2121:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2127: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Versions';
2128: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2129:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2127: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Versions';
2128: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2129:
2130: -- Check for not null parameters
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2127: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Versions';
2128: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2129:
2130: -- Check for not null parameters
2131:
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2125: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2126: IF p_pa_debug_mode = 'Y' THEN
2127: pa_debug.g_err_stage := 'Entered Upgrade_Budget_Versions';
2128: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2129:
2130: -- Check for not null parameters
2131:
2132: pa_debug.g_err_stage := 'Checking for valid parameters:';
2128: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2129:
2130: -- Check for not null parameters
2131:
2132: pa_debug.g_err_stage := 'Checking for valid parameters:';
2133: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2134: END IF;
2135:
2136: IF (p_project_id IS NULL) OR
2129:
2130: -- Check for not null parameters
2131:
2132: pa_debug.g_err_stage := 'Checking for valid parameters:';
2133: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2134: END IF;
2135:
2136: IF (p_project_id IS NULL) OR
2137: (p_budget_types IS NULL) OR
2136: IF (p_project_id IS NULL) OR
2137: (p_budget_types IS NULL) OR
2138: (p_budget_statuses IS NULL)
2139: THEN
2140: IF p_pa_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2137: (p_budget_types IS NULL) OR
2138: (p_budget_statuses IS NULL)
2139: THEN
2140: IF p_pa_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2138: (p_budget_statuses IS NULL)
2139: THEN
2140: IF p_pa_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2146: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2139: THEN
2140: IF p_pa_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2146: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2147: END IF;
2140: IF p_pa_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2146: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2147: END IF;
2148:
2141: pa_debug.g_err_stage := 'p_project_id = '||p_project_id;
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2146: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2147: END IF;
2148:
2149: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2143: pa_debug.g_err_stage := 'p_budget_types = '||p_budget_types;
2144: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2145: pa_debug.g_err_stage := 'p_budget_statuses= '||p_budget_statuses;
2146: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2147: END IF;
2148:
2149: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2150: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2151:
2152: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2153:
2154: END IF;
2155: IF p_pa_debug_mode = 'Y' THEN
2156: pa_debug.g_err_stage := 'Parameter validation complete';
2157: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158:
2159: END IF;
2152: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2153:
2154: END IF;
2155: IF p_pa_debug_mode = 'Y' THEN
2156: pa_debug.g_err_stage := 'Parameter validation complete';
2157: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158:
2159: END IF;
2160:
2153:
2154: END IF;
2155: IF p_pa_debug_mode = 'Y' THEN
2156: pa_debug.g_err_stage := 'Parameter validation complete';
2157: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158:
2159: END IF;
2160:
2161: --Fetch the budget versions that are eligible for upgrade
2158:
2159: END IF;
2160:
2161: --Fetch the budget versions that are eligible for upgrade
2162: IF p_pa_debug_mode = 'Y' THEN
2163: pa_debug.g_err_stage := 'Opening budgets_for_upgrade_cur ';
2164: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2165: END IF;
2166:
2159: END IF;
2160:
2161: --Fetch the budget versions that are eligible for upgrade
2162: IF p_pa_debug_mode = 'Y' THEN
2163: pa_debug.g_err_stage := 'Opening budgets_for_upgrade_cur ';
2164: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2165: END IF;
2166:
2167:
2160:
2161: --Fetch the budget versions that are eligible for upgrade
2162: IF p_pa_debug_mode = 'Y' THEN
2163: pa_debug.g_err_stage := 'Opening budgets_for_upgrade_cur ';
2164: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2165: END IF;
2166:
2167:
2168: -- This Processes ONE Qualifying Budget_Version_Id At a Time --------------------------
2181:
2182: l_proj_fp_options_id := NULL;
2183:
2184: --Create fp option for the budget version
2185: IF p_pa_debug_mode = 'Y' THEN
2186: pa_debug.g_err_stage := 'Calling Create_fp_options for '|| l_budget_ver_tbl(j);
2187: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2188: END IF;
2189:
2182: l_proj_fp_options_id := NULL;
2183:
2184: --Create fp option for the budget version
2185: IF p_pa_debug_mode = 'Y' THEN
2186: pa_debug.g_err_stage := 'Calling Create_fp_options for '|| l_budget_ver_tbl(j);
2187: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2188: END IF;
2189:
2190: pa_fp_upgrade_pkg.Create_fp_options(
2183:
2184: --Create fp option for the budget version
2185: IF p_pa_debug_mode = 'Y' THEN
2186: pa_debug.g_err_stage := 'Calling Create_fp_options for '|| l_budget_ver_tbl(j);
2187: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2188: END IF;
2189:
2190: pa_fp_upgrade_pkg.Create_fp_options(
2191: p_project_id => p_project_id
2212: INTO l_fp_preference_code, l_multi_curr_flag
2213: FROM pa_proj_fp_options
2214: WHERE proj_fp_options_id = l_proj_fp_options_id;
2215:
2216: IF p_pa_debug_mode = 'Y' THEN
2217: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for version';
2218: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2219: END IF;
2220: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
2213: FROM pa_proj_fp_options
2214: WHERE proj_fp_options_id = l_proj_fp_options_id;
2215:
2216: IF p_pa_debug_mode = 'Y' THEN
2217: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for version';
2218: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2219: END IF;
2220: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
2221: p_source_fp_option_id => NULL
2214: WHERE proj_fp_options_id = l_proj_fp_options_id;
2215:
2216: IF p_pa_debug_mode = 'Y' THEN
2217: pa_debug.g_err_stage := 'Calling copy_fp_txn_currencies for version';
2218: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2219: END IF;
2220: pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies (
2221: p_source_fp_option_id => NULL
2222: ,p_target_fp_option_id => l_proj_fp_options_id
2257: l_approved_cost_plan_type_flag := 'N';
2258: l_approved_rev_plan_type_flag := 'N';
2259: END IF;
2260:
2261: IF p_pa_debug_mode = 'Y' THEN
2262: pa_debug.g_err_stage := 'Updating budget version '||l_budget_ver_tbl(j);
2263: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2264: END IF;
2265:
2258: l_approved_rev_plan_type_flag := 'N';
2259: END IF;
2260:
2261: IF p_pa_debug_mode = 'Y' THEN
2262: pa_debug.g_err_stage := 'Updating budget version '||l_budget_ver_tbl(j);
2263: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2264: END IF;
2265:
2266: /* FP M related columns upgrade is done by pa_budget_attr_upgr_pkg.budget_attr_upgrd later in the api. */
2259: END IF;
2260:
2261: IF p_pa_debug_mode = 'Y' THEN
2262: pa_debug.g_err_stage := 'Updating budget version '||l_budget_ver_tbl(j);
2263: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2264: END IF;
2265:
2266: /* FP M related columns upgrade is done by pa_budget_attr_upgr_pkg.budget_attr_upgrd later in the api. */
2267:
2287: ,primary_rev_forecast_flag = 'N'
2288: WHERE budget_version_id = l_budget_ver_tbl(j);
2289:
2290: --update the resource assignments table
2291: IF p_pa_debug_mode = 'Y' THEN
2292: pa_debug.g_err_stage := 'Updating resource assignments '||l_budget_ver_tbl(j);
2293: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2294: END IF;
2295:
2288: WHERE budget_version_id = l_budget_ver_tbl(j);
2289:
2290: --update the resource assignments table
2291: IF p_pa_debug_mode = 'Y' THEN
2292: pa_debug.g_err_stage := 'Updating resource assignments '||l_budget_ver_tbl(j);
2293: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2294: END IF;
2295:
2296: UPDATE PA_RESOURCE_ASSIGNMENTS
2289:
2290: --update the resource assignments table
2291: IF p_pa_debug_mode = 'Y' THEN
2292: pa_debug.g_err_stage := 'Updating resource assignments '||l_budget_ver_tbl(j);
2293: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2294: END IF;
2295:
2296: UPDATE PA_RESOURCE_ASSIGNMENTS
2297: SET resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED
2297: SET resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED
2298: WHERE budget_version_id = l_budget_ver_tbl(j);
2299:
2300: --Populate txn currency buckets from the project functional currency buckets of budget lines
2301: IF p_pa_debug_mode = 'Y' THEN
2302: pa_debug.g_err_stage := 'Updating budget lines for '|| l_budget_ver_tbl(j);
2303: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2304: END IF;
2305:
2298: WHERE budget_version_id = l_budget_ver_tbl(j);
2299:
2300: --Populate txn currency buckets from the project functional currency buckets of budget lines
2301: IF p_pa_debug_mode = 'Y' THEN
2302: pa_debug.g_err_stage := 'Updating budget lines for '|| l_budget_ver_tbl(j);
2303: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2304: END IF;
2305:
2306: UPDATE PA_BUDGET_LINES
2299:
2300: --Populate txn currency buckets from the project functional currency buckets of budget lines
2301: IF p_pa_debug_mode = 'Y' THEN
2302: pa_debug.g_err_stage := 'Updating budget lines for '|| l_budget_ver_tbl(j);
2303: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2304: END IF;
2305:
2306: UPDATE PA_BUDGET_LINES
2307: SET txn_raw_cost = raw_cost,
2311:
2312: --Call convert_txn_currencies api to populate the project and project functional amounts
2313: --from txn_currency amounts.
2314:
2315: IF p_pa_debug_mode = 'Y' THEN
2316: pa_debug.g_err_stage := 'Calling convert_txn_currency ';
2317: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2318: END IF;
2319:
2312: --Call convert_txn_currencies api to populate the project and project functional amounts
2313: --from txn_currency amounts.
2314:
2315: IF p_pa_debug_mode = 'Y' THEN
2316: pa_debug.g_err_stage := 'Calling convert_txn_currency ';
2317: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2318: END IF;
2319:
2320: PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency (
2313: --from txn_currency amounts.
2314:
2315: IF p_pa_debug_mode = 'Y' THEN
2316: pa_debug.g_err_stage := 'Calling convert_txn_currency ';
2317: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2318: END IF;
2319:
2320: PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency (
2321: p_budget_version_id => l_budget_ver_tbl(j)
2325: ,x_msg_data => l_msg_data );
2326:
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2328: /*For bug 2755740*/
2329: IF p_pa_debug_mode = 'Y' THEN
2330: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency',5);
2331: END IF;
2332: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2333: END IF;
2326:
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2328: /*For bug 2755740*/
2329: IF p_pa_debug_mode = 'Y' THEN
2330: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency',5);
2331: END IF;
2332: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2333: END IF;
2334:
2333: END IF;
2334:
2335: -- Convert the Resource List to a Planning Resource List, if Not Already Done So.
2336:
2337: IF p_pa_debug_mode = 'Y' THEN
2338: pa_debug.g_err_stage := 'Is Version Resource List Already a Planning Resource List? ';
2339: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2334:
2335: -- Convert the Resource List to a Planning Resource List, if Not Already Done So.
2336:
2337: IF p_pa_debug_mode = 'Y' THEN
2338: pa_debug.g_err_stage := 'Is Version Resource List Already a Planning Resource List? ';
2339: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2342: l_migration_code := null;
2335: -- Convert the Resource List to a Planning Resource List, if Not Already Done So.
2336:
2337: IF p_pa_debug_mode = 'Y' THEN
2338: pa_debug.g_err_stage := 'Is Version Resource List Already a Planning Resource List? ';
2339: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2342: l_migration_code := null;
2343: SELECT migration_code
2347:
2348: IF (l_migration_code is null )
2349: then
2350:
2351: IF p_pa_debug_mode ='Y' THEN
2352: pa_debug.g_err_stage := 'Calling Resource List Upgrade to Planning Resource List';
2353: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2354: END IF;
2355:
2348: IF (l_migration_code is null )
2349: then
2350:
2351: IF p_pa_debug_mode ='Y' THEN
2352: pa_debug.g_err_stage := 'Calling Resource List Upgrade to Planning Resource List';
2353: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2354: END IF;
2355:
2356:
2349: then
2350:
2351: IF p_pa_debug_mode ='Y' THEN
2352: pa_debug.g_err_stage := 'Calling Resource List Upgrade to Planning Resource List';
2353: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2354: END IF;
2355:
2356:
2357:
2374: -- End Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
2375:
2376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2377: THEN
2378: IF p_pa_debug_mode = 'Y' THEN
2379: pa_debug.write_file('Upgrade failed due to error in PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST ',5);
2380: END IF;
2381: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2382: END IF;
2375:
2376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2377: THEN
2378: IF p_pa_debug_mode = 'Y' THEN
2379: pa_debug.write_file('Upgrade failed due to error in PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST ',5);
2380: END IF;
2381: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2382: END IF;
2383:
2388: END LOOP;
2389:
2390: -- Perform Budget Version Data Entity Migration to FP.M Data Model
2391:
2392: IF p_pa_debug_mode = 'Y' THEN
2393: pa_debug.g_err_stage := 'Calling Budget Attribute Upgrade';
2394: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2395: END IF;
2396:
2389:
2390: -- Perform Budget Version Data Entity Migration to FP.M Data Model
2391:
2392: IF p_pa_debug_mode = 'Y' THEN
2393: pa_debug.g_err_stage := 'Calling Budget Attribute Upgrade';
2394: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2395: END IF;
2396:
2397: FOR k in l_budget_ver_tbl.first .. l_budget_ver_tbl.last LOOP
2390: -- Perform Budget Version Data Entity Migration to FP.M Data Model
2391:
2392: IF p_pa_debug_mode = 'Y' THEN
2393: pa_debug.g_err_stage := 'Calling Budget Attribute Upgrade';
2394: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2395: END IF;
2396:
2397: FOR k in l_budget_ver_tbl.first .. l_budget_ver_tbl.last LOOP
2398:
2404: ,x_msg_data => l_msg_data);
2405:
2406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2407: THEN
2408: IF p_pa_debug_mode = 'Y' THEN
2409: pa_debug.write_file('Upgrade failed due to error in pa_budget_attr_upgr_pkg.budget_attr_upgrd ',5);
2410: END IF;
2411: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2412: END IF;
2405:
2406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2407: THEN
2408: IF p_pa_debug_mode = 'Y' THEN
2409: pa_debug.write_file('Upgrade failed due to error in pa_budget_attr_upgr_pkg.budget_attr_upgrd ',5);
2410: END IF;
2411: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2412: END IF;
2413:
2412: END IF;
2413:
2414: END LOOP;
2415:
2416: IF p_pa_debug_mode = 'Y' THEN
2417: pa_debug.g_err_stage := 'Calling Rate Attributes Upgrade';
2418: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2419: END IF;
2420:
2413:
2414: END LOOP;
2415:
2416: IF p_pa_debug_mode = 'Y' THEN
2417: pa_debug.g_err_stage := 'Calling Rate Attributes Upgrade';
2418: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2419: END IF;
2420:
2421: pa_rate_attr_pkg.rate_attr_upgrd(
2414: END LOOP;
2415:
2416: IF p_pa_debug_mode = 'Y' THEN
2417: pa_debug.g_err_stage := 'Calling Rate Attributes Upgrade';
2418: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2419: END IF;
2420:
2421: pa_rate_attr_pkg.rate_attr_upgrd(
2422: p_budget_ver_tbl => l_budget_ver_tbl
2425: ,x_msg_data => l_msg_data);
2426:
2427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2428: THEN
2429: IF p_pa_debug_mode = 'Y' THEN
2430: pa_debug.write_file('Upgrade failed due to error in pa_rate_attr_pkg.rate_attr_upgrd ',5);
2431: END IF;
2432: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2433: END IF;
2426:
2427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2428: THEN
2429: IF p_pa_debug_mode = 'Y' THEN
2430: pa_debug.write_file('Upgrade failed due to error in pa_rate_attr_pkg.rate_attr_upgrd ',5);
2431: END IF;
2432: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2433: END IF;
2434:
2432: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2433: END IF;
2434:
2435:
2436: IF p_pa_debug_mode = 'Y' THEN
2437: pa_debug.g_err_stage := 'Calling Date Range Upgrade Attributes';
2438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2439: END IF;
2440: pa_date_range_pkg.date_range_upgrd(
2433: END IF;
2434:
2435:
2436: IF p_pa_debug_mode = 'Y' THEN
2437: pa_debug.g_err_stage := 'Calling Date Range Upgrade Attributes';
2438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2439: END IF;
2440: pa_date_range_pkg.date_range_upgrd(
2441: p_budget_versions => l_budget_ver_tbl
2434:
2435:
2436: IF p_pa_debug_mode = 'Y' THEN
2437: pa_debug.g_err_stage := 'Calling Date Range Upgrade Attributes';
2438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2439: END IF;
2440: pa_date_range_pkg.date_range_upgrd(
2441: p_budget_versions => l_budget_ver_tbl
2442: ,x_return_status => l_return_status
2444: ,x_msg_data => l_msg_data);
2445:
2446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2447: THEN
2448: IF p_pa_debug_mode = 'Y' THEN
2449: pa_debug.write_file('Upgrade failed due to error in pa_date_range_pkg.date_range_upgrd ',5);
2450: END IF;
2451: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2452: END IF;
2445:
2446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2447: THEN
2448: IF p_pa_debug_mode = 'Y' THEN
2449: pa_debug.write_file('Upgrade failed due to error in pa_date_range_pkg.date_range_upgrd ',5);
2450: END IF;
2451: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2452: END IF;
2453:
2450: END IF;
2451: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2452: END IF;
2453:
2454: IF p_pa_debug_mode = 'Y' THEN
2455: pa_debug.g_err_stage := 'Calling rollup_budget_version ';
2456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2457: END IF;
2458:
2451: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2452: END IF;
2453:
2454: IF p_pa_debug_mode = 'Y' THEN
2455: pa_debug.g_err_stage := 'Calling rollup_budget_version ';
2456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2457: END IF;
2458:
2459: FOR m in l_budget_ver_tbl.first .. l_budget_ver_tbl.last LOOP
2452: END IF;
2453:
2454: IF p_pa_debug_mode = 'Y' THEN
2455: pa_debug.g_err_stage := 'Calling rollup_budget_version ';
2456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2457: END IF;
2458:
2459: FOR m in l_budget_ver_tbl.first .. l_budget_ver_tbl.last LOOP
2460:
2527:
2528:
2529: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2530: THEN
2531: IF p_pa_debug_mode = 'Y' THEN
2532: pa_debug.write_file('Upgrade failed due to error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules ',5);
2533: END IF;
2534: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2535: END IF;
2528:
2529: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2530: THEN
2531: IF p_pa_debug_mode = 'Y' THEN
2532: pa_debug.write_file('Upgrade failed due to error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules ',5);
2533: END IF;
2534: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2535: END IF;
2536:
2566: ,x_msg_data =>l_msg_data) ;
2567:
2568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2569: THEN
2570: IF p_pa_debug_mode = 'Y' THEN
2571: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency ',5);
2572: END IF;
2573: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2574: END IF;
2567:
2568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2569: THEN
2570: IF p_pa_debug_mode = 'Y' THEN
2571: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency ',5);
2572: END IF;
2573: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2574: END IF;
2575: -- Bug Fix: 4569365. Removed MRC code.
2594: END IF;
2595:
2596: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2597: THEN
2598: IF p_pa_debug_mode = 'Y' THEN
2599: pa_debug.write_file('Upgrade failed due to error in PA_MRC_FINPLAN.MAINTAIN_ALL_MC_BUDGET_LINES ',5);
2600: END IF;
2601: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2602: END IF;
2595:
2596: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2597: THEN
2598: IF p_pa_debug_mode = 'Y' THEN
2599: pa_debug.write_file('Upgrade failed due to error in PA_MRC_FINPLAN.MAINTAIN_ALL_MC_BUDGET_LINES ',5);
2600: END IF;
2601: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2602: END IF;
2603: */
2612: x_return_status => l_return_status);
2613:
2614: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2615: THEN
2616: IF p_pa_debug_mode = 'Y' THEN
2617: pa_debug.write_file('Upgrade failed due to error in PA_BUDGET_LINES_UTILS.populate_display_quantity',5);
2618: END IF;
2619: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2620: END IF;
2613:
2614: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2615: THEN
2616: IF p_pa_debug_mode = 'Y' THEN
2617: pa_debug.write_file('Upgrade failed due to error in PA_BUDGET_LINES_UTILS.populate_display_quantity',5);
2618: END IF;
2619: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2620: END IF;
2621:
2628: x_msg_data => l_msg_data);
2629:
2630: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2631: THEN
2632: IF p_pa_debug_mode = 'Y' THEN
2633: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
2634: END IF;
2635: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2636: END IF;
2629:
2630: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2631: THEN
2632: IF p_pa_debug_mode = 'Y' THEN
2633: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
2634: END IF;
2635: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2636: END IF;
2637:
2646: x_msg_data => l_msg_data);
2647:
2648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2649: THEN
2650: IF p_pa_debug_mode = 'Y' THEN
2651: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
2652: END IF;
2653: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2654: END IF;
2647:
2648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2649: THEN
2650: IF p_pa_debug_mode = 'Y' THEN
2651: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
2652: END IF;
2653: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2654: END IF;
2655:
2665: x_msg_data => l_msg_data);
2666:
2667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2668: THEN
2669: IF p_pa_debug_mode = 'Y' THEN
2670: pa_debug.write_file('Upgrade failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
2671: END IF;
2672: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2673: END IF;
2666:
2667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2668: THEN
2669: IF p_pa_debug_mode = 'Y' THEN
2670: pa_debug.write_file('Upgrade failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
2671: END IF;
2672: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2673: END IF;
2674: /* bug 4865563: ends */
2681: ,x_msg_data => l_msg_data );
2682:
2683: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2684: THEN
2685: IF p_pa_debug_mode = 'Y' THEN
2686: pa_debug.write_file('Upgrade failed due to error in PA_FP_ROLLUP_PKG.rollup_budget_version',5);
2687: END IF;
2688: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2689: END IF;
2682:
2683: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2684: THEN
2685: IF p_pa_debug_mode = 'Y' THEN
2686: pa_debug.write_file('Upgrade failed due to error in PA_FP_ROLLUP_PKG.rollup_budget_version',5);
2687: END IF;
2688: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2689: END IF;
2690:
2714: end loop;
2715: -- End of Bug# 7187487
2716:
2717:
2718: IF p_pa_debug_mode = 'Y' THEN
2719: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Create ';
2720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2721: END IF;
2722:
2715: -- End of Bug# 7187487
2716:
2717:
2718: IF p_pa_debug_mode = 'Y' THEN
2719: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Create ';
2720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2721: END IF;
2722:
2723: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
2716:
2717:
2718: IF p_pa_debug_mode = 'Y' THEN
2719: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Create ';
2720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2721: END IF;
2722:
2723: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
2724: p_fp_version_ids => l_budget_ver_tbl3, -- Modified to l_budget_ver_tbl3 for Bug# 7187487
2725: x_return_status => l_return_status,
2726: x_msg_code => l_msg_data);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: IF p_pa_debug_mode = 'Y' THEN
2730: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE',5);
2731: END IF;
2732: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2733: END IF;
2726: x_msg_code => l_msg_data);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: IF p_pa_debug_mode = 'Y' THEN
2730: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE',5);
2731: END IF;
2732: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2733: END IF;
2734:
2734:
2735: IF(l_budget_ver_tbl2.COUNT >0) THEN --Bug 8233686
2736: -- Added below for Bug# 7187487
2737: for i in l_budget_ver_tbl2.first..l_budget_ver_tbl2.last loop
2738: IF p_pa_debug_mode = 'Y' THEN
2739: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Baseline ';
2740: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2741: END IF;
2742:
2735: IF(l_budget_ver_tbl2.COUNT >0) THEN --Bug 8233686
2736: -- Added below for Bug# 7187487
2737: for i in l_budget_ver_tbl2.first..l_budget_ver_tbl2.last loop
2738: IF p_pa_debug_mode = 'Y' THEN
2739: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Baseline ';
2740: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2741: END IF;
2742:
2743: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
2736: -- Added below for Bug# 7187487
2737: for i in l_budget_ver_tbl2.first..l_budget_ver_tbl2.last loop
2738: IF p_pa_debug_mode = 'Y' THEN
2739: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Baseline ';
2740: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2741: END IF;
2742:
2743: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
2744: p_baseline_version_id => l_budget_ver_tbl2(i),
2746: x_return_status => l_return_status,
2747: x_msg_code => l_msg_data);
2748:
2749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2750: IF p_pa_debug_mode = 'Y' THEN
2751: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_baseline',5);
2752: END IF;
2753: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2754: END IF;
2747: x_msg_code => l_msg_data);
2748:
2749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2750: IF p_pa_debug_mode = 'Y' THEN
2751: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_baseline',5);
2752: END IF;
2753: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2754: END IF;
2755: end loop;
2766: END LOOP;
2767: CLOSE budgets_for_upgrade_cur;
2768:
2769:
2770: IF p_pa_debug_mode = 'Y' THEN
2771: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2772: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2767: CLOSE budgets_for_upgrade_cur;
2768:
2769:
2770: IF p_pa_debug_mode = 'Y' THEN
2771: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2772: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2775: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2768:
2769:
2770: IF p_pa_debug_mode = 'Y' THEN
2771: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2772: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2775: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2776: END IF;
2770: IF p_pa_debug_mode = 'Y' THEN
2771: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2772: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2775: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2776: END IF;
2777: pa_debug.reset_err_stack;
2778:
2771: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2772: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2775: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2776: END IF;
2777: pa_debug.reset_err_stack;
2778:
2779: EXCEPTION
2773:
2774: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2775: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2776: END IF;
2777: pa_debug.reset_err_stack;
2778:
2779: EXCEPTION
2780:
2781: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2797: ELSE
2798: x_msg_count := l_msg_count;
2799: x_msg_data := l_msg_data;
2800: END IF;
2801: IF p_pa_debug_mode = 'Y' THEN
2802: pa_debug.g_err_stage:='Invalid Arguments Passed';
2803: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2798: x_msg_count := l_msg_count;
2799: x_msg_data := l_msg_data;
2800: END IF;
2801: IF p_pa_debug_mode = 'Y' THEN
2802: pa_debug.g_err_stage:='Invalid Arguments Passed';
2803: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2806:
2799: x_msg_data := l_msg_data;
2800: END IF;
2801: IF p_pa_debug_mode = 'Y' THEN
2802: pa_debug.g_err_stage:='Invalid Arguments Passed';
2803: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2806:
2807: x_return_status:= FND_API.G_RET_STS_ERROR;
2800: END IF;
2801: IF p_pa_debug_mode = 'Y' THEN
2802: pa_debug.g_err_stage:='Invalid Arguments Passed';
2803: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2806:
2807: x_return_status:= FND_API.G_RET_STS_ERROR;
2808: pa_debug.reset_err_stack;
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2806:
2807: x_return_status:= FND_API.G_RET_STS_ERROR;
2808: pa_debug.reset_err_stack;
2809: RAISE;
2810:
2811: WHEN Others THEN
2812:
2817: x_msg_count := 1;
2818: x_msg_data := SQLERRM;
2819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2820: ,p_procedure_name => 'Upgrade_Budget_Versions');
2821: IF p_pa_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2825: END IF;
2818: x_msg_data := SQLERRM;
2819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2820: ,p_procedure_name => 'Upgrade_Budget_Versions');
2821: IF p_pa_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2825: END IF;
2826: pa_debug.reset_err_stack;
2819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2820: ,p_procedure_name => 'Upgrade_Budget_Versions');
2821: IF p_pa_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2825: END IF;
2826: pa_debug.reset_err_stack;
2827: RAISE;
2820: ,p_procedure_name => 'Upgrade_Budget_Versions');
2821: IF p_pa_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2825: END IF;
2826: pa_debug.reset_err_stack;
2827: RAISE;
2828:
2822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2825: END IF;
2826: pa_debug.reset_err_stack;
2827: RAISE;
2828:
2829: END Upgrade_Budget_Versions;
2830:
2943: BEGIN
2944:
2945: x_msg_count := 0;
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2947: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.validate_budgets');
2948: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2949: l_debug_mode := NVL(l_debug_mode, 'Y');
2950: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2951:
2944:
2945: x_msg_count := 0;
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2947: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.validate_budgets');
2948: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2949: l_debug_mode := NVL(l_debug_mode, 'Y');
2950: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2951:
2952: -- Check for business rules violations
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2947: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.validate_budgets');
2948: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2949: l_debug_mode := NVL(l_debug_mode, 'Y');
2950: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2951:
2952: -- Check for business rules violations
2953:
2954: IF p_pa_debug_mode = 'Y' THEN
2950: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2951:
2952: -- Check for business rules violations
2953:
2954: IF p_pa_debug_mode = 'Y' THEN
2955: pa_debug.g_err_stage:= 'Validating input parameters';
2956: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2957: END IF;
2958:
2951:
2952: -- Check for business rules violations
2953:
2954: IF p_pa_debug_mode = 'Y' THEN
2955: pa_debug.g_err_stage:= 'Validating input parameters';
2956: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2957: END IF;
2958:
2959: IF (p_budget_types IS NULL) OR
2952: -- Check for business rules violations
2953:
2954: IF p_pa_debug_mode = 'Y' THEN
2955: pa_debug.g_err_stage:= 'Validating input parameters';
2956: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2957: END IF;
2958:
2959: IF (p_budget_types IS NULL) OR
2960: (p_budget_statuses IS NULL) OR
2959: IF (p_budget_types IS NULL) OR
2960: (p_budget_statuses IS NULL) OR
2961: (p_project_statuses IS NULL)
2962: THEN
2963: IF p_pa_debug_mode = 'Y' THEN
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2960: (p_budget_statuses IS NULL) OR
2961: (p_project_statuses IS NULL)
2962: THEN
2963: IF p_pa_debug_mode = 'Y' THEN
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2961: (p_project_statuses IS NULL)
2962: THEN
2963: IF p_pa_debug_mode = 'Y' THEN
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2969: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2962: THEN
2963: IF p_pa_debug_mode = 'Y' THEN
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2969: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2970: END IF;
2963: IF p_pa_debug_mode = 'Y' THEN
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2969: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2970: END IF;
2971:
2964: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2969: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2970: END IF;
2971:
2972: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2965: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2966: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2967: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2968: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2969: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2970: END IF;
2971:
2972: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2973: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3017:
3018:
3019: --Check if any types of budgets are allowed for the project using project_type_info_cur.
3020:
3021: IF p_pa_debug_mode = 'Y' THEN
3022: pa_debug.g_err_stage := 'l_project_id='||l_project_id;
3023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3024: END IF;
3025:
3018:
3019: --Check if any types of budgets are allowed for the project using project_type_info_cur.
3020:
3021: IF p_pa_debug_mode = 'Y' THEN
3022: pa_debug.g_err_stage := 'l_project_id='||l_project_id;
3023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3024: END IF;
3025:
3026: OPEN project_type_info_cur(l_project_id);
3019: --Check if any types of budgets are allowed for the project using project_type_info_cur.
3020:
3021: IF p_pa_debug_mode = 'Y' THEN
3022: pa_debug.g_err_stage := 'l_project_id='||l_project_id;
3023: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3024: END IF;
3025:
3026: OPEN project_type_info_cur(l_project_id);
3027: FETCH project_type_info_cur INTO project_type_info_rec;
3058: LOOP
3059: FETCH attached_plan_types_cur INTO attached_plan_types_rec;
3060: EXIT WHEN attached_plan_types_cur%NOTFOUND;
3061:
3062: IF p_pa_debug_mode = 'Y' THEN
3063: pa_debug.g_err_stage := 'budget_type_code='||attached_plan_types_rec.budget_type_code;
3064: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3065: END IF;
3066:
3059: FETCH attached_plan_types_cur INTO attached_plan_types_rec;
3060: EXIT WHEN attached_plan_types_cur%NOTFOUND;
3061:
3062: IF p_pa_debug_mode = 'Y' THEN
3063: pa_debug.g_err_stage := 'budget_type_code='||attached_plan_types_rec.budget_type_code;
3064: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3065: END IF;
3066:
3067: -- For each budget type fetched check for all the exceptions
3060: EXIT WHEN attached_plan_types_cur%NOTFOUND;
3061:
3062: IF p_pa_debug_mode = 'Y' THEN
3063: pa_debug.g_err_stage := 'budget_type_code='||attached_plan_types_rec.budget_type_code;
3064: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3065: END IF;
3066:
3067: -- For each budget type fetched check for all the exceptions
3068:
3082: LOOP
3083: FETCH attached_budget_types_cur INTO attached_budget_types_rec;
3084: EXIT WHEN attached_budget_types_cur%NOTFOUND;
3085:
3086: IF p_pa_debug_mode = 'Y' THEN
3087: pa_debug.g_err_stage := 'budget_type_code='||attached_budget_types_rec.budget_type_code;
3088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3083: FETCH attached_budget_types_cur INTO attached_budget_types_rec;
3084: EXIT WHEN attached_budget_types_cur%NOTFOUND;
3085:
3086: IF p_pa_debug_mode = 'Y' THEN
3087: pa_debug.g_err_stage := 'budget_type_code='||attached_budget_types_rec.budget_type_code;
3088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3091: -- For each budget type fetched check for all the exceptions
3084: EXIT WHEN attached_budget_types_cur%NOTFOUND;
3085:
3086: IF p_pa_debug_mode = 'Y' THEN
3087: pa_debug.g_err_stage := 'budget_type_code='||attached_budget_types_rec.budget_type_code;
3088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3091: -- For each budget type fetched check for all the exceptions
3092:
3113: LOOP
3114: FETCH budgets_for_upgrade_cur INTO budgets_for_upgrade_rec;
3115: EXIT WHEN budgets_for_upgrade_cur%NOTFOUND;
3116:
3117: IF p_pa_debug_mode = 'Y' THEN
3118: pa_debug.g_err_stage := 'budget_version_id='||budgets_for_upgrade_rec.budget_version_id;
3119: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3120: END IF;
3121:
3114: FETCH budgets_for_upgrade_cur INTO budgets_for_upgrade_rec;
3115: EXIT WHEN budgets_for_upgrade_cur%NOTFOUND;
3116:
3117: IF p_pa_debug_mode = 'Y' THEN
3118: pa_debug.g_err_stage := 'budget_version_id='||budgets_for_upgrade_rec.budget_version_id;
3119: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3120: END IF;
3121:
3122: -- Perform budget_version level validations necessary for UPGRADE
3115: EXIT WHEN budgets_for_upgrade_cur%NOTFOUND;
3116:
3117: IF p_pa_debug_mode = 'Y' THEN
3118: pa_debug.g_err_stage := 'budget_version_id='||budgets_for_upgrade_rec.budget_version_id;
3119: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3120: END IF;
3121:
3122: -- Perform budget_version level validations necessary for UPGRADE
3123: -- The only validation that was done in this api was for mixed resource planning level.
3148: ELSE
3149: CLOSE projects_for_upgrade_cur;
3150: END IF;
3151:
3152: IF p_pa_debug_mode = 'Y' THEN
3153: pa_debug.g_err_stage:= 'Exiting validate_budgets';
3154: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3155: END IF;
3156: pa_debug.reset_err_stack;
3149: CLOSE projects_for_upgrade_cur;
3150: END IF;
3151:
3152: IF p_pa_debug_mode = 'Y' THEN
3153: pa_debug.g_err_stage:= 'Exiting validate_budgets';
3154: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3155: END IF;
3156: pa_debug.reset_err_stack;
3157:
3150: END IF;
3151:
3152: IF p_pa_debug_mode = 'Y' THEN
3153: pa_debug.g_err_stage:= 'Exiting validate_budgets';
3154: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3155: END IF;
3156: pa_debug.reset_err_stack;
3157:
3158: EXCEPTION
3152: IF p_pa_debug_mode = 'Y' THEN
3153: pa_debug.g_err_stage:= 'Exiting validate_budgets';
3154: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3155: END IF;
3156: pa_debug.reset_err_stack;
3157:
3158: EXCEPTION
3159:
3160: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3174: ELSE
3175: x_msg_count := l_msg_count;
3176: END IF;
3177: x_msg_data := l_msg_data;
3178: IF p_pa_debug_mode = 'Y' THEN
3179: pa_debug.write_file('VALIDATE_BUDGETS ' || x_msg_data,5);
3180: END IF;
3181: pa_debug.reset_err_stack;
3182: RAISE;
3175: x_msg_count := l_msg_count;
3176: END IF;
3177: x_msg_data := l_msg_data;
3178: IF p_pa_debug_mode = 'Y' THEN
3179: pa_debug.write_file('VALIDATE_BUDGETS ' || x_msg_data,5);
3180: END IF;
3181: pa_debug.reset_err_stack;
3182: RAISE;
3183:
3177: x_msg_data := l_msg_data;
3178: IF p_pa_debug_mode = 'Y' THEN
3179: pa_debug.write_file('VALIDATE_BUDGETS ' || x_msg_data,5);
3180: END IF;
3181: pa_debug.reset_err_stack;
3182: RAISE;
3183:
3184: WHEN others THEN
3185:
3206: FND_MSG_PUB.add_exc_msg
3207: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3208: ,p_procedure_name => 'validate_budgets'
3209: ,p_error_text => sqlerrm);
3210: IF p_pa_debug_mode = 'Y' THEN
3211: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3212: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3213: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3214: END IF;
3207: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3208: ,p_procedure_name => 'validate_budgets'
3209: ,p_error_text => sqlerrm);
3210: IF p_pa_debug_mode = 'Y' THEN
3211: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3212: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3213: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3214: END IF;
3215: pa_debug.reset_err_stack;
3208: ,p_procedure_name => 'validate_budgets'
3209: ,p_error_text => sqlerrm);
3210: IF p_pa_debug_mode = 'Y' THEN
3211: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3212: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3213: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3214: END IF;
3215: pa_debug.reset_err_stack;
3216: RAISE;
3209: ,p_error_text => sqlerrm);
3210: IF p_pa_debug_mode = 'Y' THEN
3211: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3212: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3213: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3214: END IF;
3215: pa_debug.reset_err_stack;
3216: RAISE;
3217:
3211: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3212: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3213: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3214: END IF;
3215: pa_debug.reset_err_stack;
3216: RAISE;
3217:
3218: END VALIDATE_BUDGETS;
3219:
3256: BEGIN
3257:
3258: x_msg_count := 0;
3259: x_return_status := FND_API.G_RET_STS_SUCCESS;
3260: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT');
3261: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3262: l_debug_mode := NVL(l_debug_mode, 'Y');
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3264:
3257:
3258: x_msg_count := 0;
3259: x_return_status := FND_API.G_RET_STS_SUCCESS;
3260: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT');
3261: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3262: l_debug_mode := NVL(l_debug_mode, 'Y');
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3264:
3265: -- Check for business rules violations
3259: x_return_status := FND_API.G_RET_STS_SUCCESS;
3260: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT');
3261: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3262: l_debug_mode := NVL(l_debug_mode, 'Y');
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3264:
3265: -- Check for business rules violations
3266: IF p_pa_debug_mode = 'Y' THEN
3267: pa_debug.g_err_stage:= 'Validating input parameters';
3262: l_debug_mode := NVL(l_debug_mode, 'Y');
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3264:
3265: -- Check for business rules violations
3266: IF p_pa_debug_mode = 'Y' THEN
3267: pa_debug.g_err_stage:= 'Validating input parameters';
3268: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3269: END IF;
3270:
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3264:
3265: -- Check for business rules violations
3266: IF p_pa_debug_mode = 'Y' THEN
3267: pa_debug.g_err_stage:= 'Validating input parameters';
3268: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3269: END IF;
3270:
3271: --Check if plan version id is null
3264:
3265: -- Check for business rules violations
3266: IF p_pa_debug_mode = 'Y' THEN
3267: pa_debug.g_err_stage:= 'Validating input parameters';
3268: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3269: END IF;
3270:
3271: --Check if plan version id is null
3272:
3272:
3273: IF (p_project_id IS NULL)
3274: THEN
3275:
3276: IF p_pa_debug_mode = 'Y' THEN
3277: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3278: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3279: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3273: IF (p_project_id IS NULL)
3274: THEN
3275:
3276: IF p_pa_debug_mode = 'Y' THEN
3277: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3278: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3279: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3281: END IF;
3274: THEN
3275:
3276: IF p_pa_debug_mode = 'Y' THEN
3277: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3278: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3279: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3281: END IF;
3282:
3275:
3276: IF p_pa_debug_mode = 'Y' THEN
3277: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3278: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3279: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3281: END IF;
3282:
3283: PA_UTILS.ADD_MESSAGE
3276: IF p_pa_debug_mode = 'Y' THEN
3277: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3278: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3279: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3281: END IF;
3282:
3283: PA_UTILS.ADD_MESSAGE
3284: (p_app_short_name => 'PA',
3341: ,p_upgraded_flag => 'N'
3342: ,p_failure_reason_code => 'NO_CONV_ATTR_FOR_PROJ');
3343:
3344: END IF;
3345: IF p_pa_debug_mode = 'Y' THEN
3346: pa_debug.g_err_stage:= 'Exiting validate_project';
3347: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3348: END IF;
3349: pa_debug.reset_err_stack;
3342: ,p_failure_reason_code => 'NO_CONV_ATTR_FOR_PROJ');
3343:
3344: END IF;
3345: IF p_pa_debug_mode = 'Y' THEN
3346: pa_debug.g_err_stage:= 'Exiting validate_project';
3347: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3348: END IF;
3349: pa_debug.reset_err_stack;
3350:
3343:
3344: END IF;
3345: IF p_pa_debug_mode = 'Y' THEN
3346: pa_debug.g_err_stage:= 'Exiting validate_project';
3347: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3348: END IF;
3349: pa_debug.reset_err_stack;
3350:
3351: EXCEPTION
3345: IF p_pa_debug_mode = 'Y' THEN
3346: pa_debug.g_err_stage:= 'Exiting validate_project';
3347: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3348: END IF;
3349: pa_debug.reset_err_stack;
3350:
3351: EXCEPTION
3352:
3353: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3369: x_msg_count := l_msg_count;
3370: x_msg_data := l_msg_data;
3371: END IF;
3372:
3373: IF p_pa_debug_mode = 'Y' THEN
3374: pa_debug.write_file('VALIDATE_PROJECT ' || x_msg_data,5);
3375: END IF;
3376: pa_debug.reset_err_stack;
3377: RAISE;
3370: x_msg_data := l_msg_data;
3371: END IF;
3372:
3373: IF p_pa_debug_mode = 'Y' THEN
3374: pa_debug.write_file('VALIDATE_PROJECT ' || x_msg_data,5);
3375: END IF;
3376: pa_debug.reset_err_stack;
3377: RAISE;
3378:
3372:
3373: IF p_pa_debug_mode = 'Y' THEN
3374: pa_debug.write_file('VALIDATE_PROJECT ' || x_msg_data,5);
3375: END IF;
3376: pa_debug.reset_err_stack;
3377: RAISE;
3378:
3379: WHEN others THEN
3380:
3385: FND_MSG_PUB.add_exc_msg
3386: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3387: ,p_procedure_name => 'VALIDATE_PROJECT'
3388: ,p_error_text => sqlerrm);
3389: IF p_pa_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3392: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3393: END IF;
3386: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3387: ,p_procedure_name => 'VALIDATE_PROJECT'
3388: ,p_error_text => sqlerrm);
3389: IF p_pa_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3392: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3393: END IF;
3394: pa_debug.reset_err_stack;
3387: ,p_procedure_name => 'VALIDATE_PROJECT'
3388: ,p_error_text => sqlerrm);
3389: IF p_pa_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3392: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3393: END IF;
3394: pa_debug.reset_err_stack;
3395: RAISE;
3388: ,p_error_text => sqlerrm);
3389: IF p_pa_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3392: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3393: END IF;
3394: pa_debug.reset_err_stack;
3395: RAISE;
3396:
3390: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3392: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3393: END IF;
3394: pa_debug.reset_err_stack;
3395: RAISE;
3396:
3397: END VALIDATE_PROJECT;
3398:
3435: BEGIN
3436:
3437: x_msg_count := 0;
3438: x_return_status := FND_API.G_RET_STS_SUCCESS;
3439: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT_PLAN_TYPE');
3440: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3441: l_debug_mode := NVL(l_debug_mode, 'Y');
3442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3443:
3436:
3437: x_msg_count := 0;
3438: x_return_status := FND_API.G_RET_STS_SUCCESS;
3439: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT_PLAN_TYPE');
3440: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3441: l_debug_mode := NVL(l_debug_mode, 'Y');
3442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3443:
3444: -- Check for business rules violations
3438: x_return_status := FND_API.G_RET_STS_SUCCESS;
3439: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT_PLAN_TYPE');
3440: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3441: l_debug_mode := NVL(l_debug_mode, 'Y');
3442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3443:
3444: -- Check for business rules violations
3445:
3446: IF (p_project_id IS NULL) OR (p_budget_type_code IS NULL)
3445:
3446: IF (p_project_id IS NULL) OR (p_budget_type_code IS NULL)
3447: THEN
3448:
3449: IF p_pa_debug_mode = 'Y' THEN
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3446: IF (p_project_id IS NULL) OR (p_budget_type_code IS NULL)
3447: THEN
3448:
3449: IF p_pa_debug_mode = 'Y' THEN
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3447: THEN
3448:
3449: IF p_pa_debug_mode = 'Y' THEN
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3448:
3449: IF p_pa_debug_mode = 'Y' THEN
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3456: END IF;
3449: IF p_pa_debug_mode = 'Y' THEN
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3456: END IF;
3457:
3450: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3456: END IF;
3457:
3458: PA_UTILS.ADD_MESSAGE
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3452: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3454: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3456: END IF;
3457:
3458: PA_UTILS.ADD_MESSAGE
3459: (p_app_short_name => 'PA',
3470: x_validation_status := 'Y';
3471:
3472: --Check if budetary controls exist for the budget type and project combination.
3473:
3474: IF p_pa_debug_mode = 'Y' THEN
3475: pa_debug.g_err_stage := 'Calling get_budget_ctrl_options';
3476: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3477: END IF;
3478:
3471:
3472: --Check if budetary controls exist for the budget type and project combination.
3473:
3474: IF p_pa_debug_mode = 'Y' THEN
3475: pa_debug.g_err_stage := 'Calling get_budget_ctrl_options';
3476: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3477: END IF;
3478:
3479: PA_BUDGET_FUND_PKG.get_budget_ctrl_options (
3472: --Check if budetary controls exist for the budget type and project combination.
3473:
3474: IF p_pa_debug_mode = 'Y' THEN
3475: pa_debug.g_err_stage := 'Calling get_budget_ctrl_options';
3476: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3477: END IF;
3478:
3479: PA_BUDGET_FUND_PKG.get_budget_ctrl_options (
3480: p_project_id => p_project_id,
3519: END IF;
3520:
3521: -- Check if for the budget type if any of the budget versions to be upgraded is in
3522: -- submitted status. if so don't upgrade.
3523: IF p_pa_debug_mode = 'Y' THEN
3524: pa_debug.g_err_stage := 'Calling get_draft_version_id';
3525: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3526: END IF;
3527:
3520:
3521: -- Check if for the budget type if any of the budget versions to be upgraded is in
3522: -- submitted status. if so don't upgrade.
3523: IF p_pa_debug_mode = 'Y' THEN
3524: pa_debug.g_err_stage := 'Calling get_draft_version_id';
3525: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3526: END IF;
3527:
3528: l_draft_version_id := Null;
3521: -- Check if for the budget type if any of the budget versions to be upgraded is in
3522: -- submitted status. if so don't upgrade.
3523: IF p_pa_debug_mode = 'Y' THEN
3524: pa_debug.g_err_stage := 'Calling get_draft_version_id';
3525: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3526: END IF;
3527:
3528: l_draft_version_id := Null;
3529:
3538: -- bug 2853511 draft version id could be deleted after baselining the draft version
3539: -- and thus draft version needn't exist
3540:
3541: IF l_draft_version_id IS NOT NULL THEN
3542: IF p_pa_debug_mode = 'Y' THEN
3543: pa_debug.g_err_stage := 'draft_version_id = '|| l_draft_version_id;
3544: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3545: END IF;
3546:
3539: -- and thus draft version needn't exist
3540:
3541: IF l_draft_version_id IS NOT NULL THEN
3542: IF p_pa_debug_mode = 'Y' THEN
3543: pa_debug.g_err_stage := 'draft_version_id = '|| l_draft_version_id;
3544: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3545: END IF;
3546:
3547: -- The draft version id fetched may be either working or submitted version
3540:
3541: IF l_draft_version_id IS NOT NULL THEN
3542: IF p_pa_debug_mode = 'Y' THEN
3543: pa_debug.g_err_stage := 'draft_version_id = '|| l_draft_version_id;
3544: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3545: END IF;
3546:
3547: -- The draft version id fetched may be either working or submitted version
3548: -- If the draft version is in submitted status this budget type can't be upgraded
3556: WHEN OTHERS THEN
3557: IF attached_plan_types_cur%ISOPEN THEN
3558: CLOSE attached_plan_types_cur;
3559: END IF;
3560: IF p_pa_debug_mode = 'Y' THEN
3561: pa_debug.g_err_stage:='draft_version_id is null or invalid'||SQLERRM;
3562: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3563: END IF;
3564: RAISE;
3557: IF attached_plan_types_cur%ISOPEN THEN
3558: CLOSE attached_plan_types_cur;
3559: END IF;
3560: IF p_pa_debug_mode = 'Y' THEN
3561: pa_debug.g_err_stage:='draft_version_id is null or invalid'||SQLERRM;
3562: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3563: END IF;
3564: RAISE;
3565: END;
3558: CLOSE attached_plan_types_cur;
3559: END IF;
3560: IF p_pa_debug_mode = 'Y' THEN
3561: pa_debug.g_err_stage:='draft_version_id is null or invalid'||SQLERRM;
3562: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3563: END IF;
3564: RAISE;
3565: END;
3566:
3585: ,p_failure_reason_code => 'SUBMIT_STATUS_VERSION_EXISTS');
3586: END IF;
3587: END IF;
3588:
3589: IF p_pa_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage:= 'Exiting VALIDATE_PROJECT_PLAN_TYPE';
3591: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3592: END IF;
3593: pa_debug.reset_err_stack;
3586: END IF;
3587: END IF;
3588:
3589: IF p_pa_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage:= 'Exiting VALIDATE_PROJECT_PLAN_TYPE';
3591: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3592: END IF;
3593: pa_debug.reset_err_stack;
3594:
3587: END IF;
3588:
3589: IF p_pa_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage:= 'Exiting VALIDATE_PROJECT_PLAN_TYPE';
3591: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3592: END IF;
3593: pa_debug.reset_err_stack;
3594:
3595: EXCEPTION
3589: IF p_pa_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage:= 'Exiting VALIDATE_PROJECT_PLAN_TYPE';
3591: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3592: END IF;
3593: pa_debug.reset_err_stack;
3594:
3595: EXCEPTION
3596:
3597: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3613: x_msg_count := l_msg_count;
3614: x_msg_data := l_msg_data;
3615: END IF;
3616:
3617: IF p_pa_debug_mode = 'Y' THEN
3618: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || x_msg_data,5);
3619: END IF;
3620: pa_debug.reset_err_stack;
3621: RAISE;
3614: x_msg_data := l_msg_data;
3615: END IF;
3616:
3617: IF p_pa_debug_mode = 'Y' THEN
3618: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || x_msg_data,5);
3619: END IF;
3620: pa_debug.reset_err_stack;
3621: RAISE;
3622:
3616:
3617: IF p_pa_debug_mode = 'Y' THEN
3618: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || x_msg_data,5);
3619: END IF;
3620: pa_debug.reset_err_stack;
3621: RAISE;
3622:
3623: WHEN others THEN
3624:
3629: FND_MSG_PUB.add_exc_msg
3630: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3631: ,p_procedure_name => 'VALIDATE_PROJECT_PLAN_TYPE'
3632: ,p_error_text => sqlerrm);
3633: IF p_pa_debug_mode = 'Y' THEN
3634: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3636: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3637: END IF;
3630: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3631: ,p_procedure_name => 'VALIDATE_PROJECT_PLAN_TYPE'
3632: ,p_error_text => sqlerrm);
3633: IF p_pa_debug_mode = 'Y' THEN
3634: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3636: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3637: END IF;
3638: pa_debug.reset_err_stack;
3631: ,p_procedure_name => 'VALIDATE_PROJECT_PLAN_TYPE'
3632: ,p_error_text => sqlerrm);
3633: IF p_pa_debug_mode = 'Y' THEN
3634: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3636: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3637: END IF;
3638: pa_debug.reset_err_stack;
3639: RAISE;
3632: ,p_error_text => sqlerrm);
3633: IF p_pa_debug_mode = 'Y' THEN
3634: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3636: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3637: END IF;
3638: pa_debug.reset_err_stack;
3639: RAISE;
3640:
3634: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3636: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3637: END IF;
3638: pa_debug.reset_err_stack;
3639: RAISE;
3640:
3641: END VALIDATE_PROJECT_PLAN_TYPE;
3642:
3683: BEGIN
3684:
3685: x_msg_count := 0;
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.validate_budget_version');
3688: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3689: l_debug_mode := NVL(l_debug_mode, 'Y');
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3691:
3684:
3685: x_msg_count := 0;
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.validate_budget_version');
3688: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3689: l_debug_mode := NVL(l_debug_mode, 'Y');
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3691:
3692: -- Check for business rules violations
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.validate_budget_version');
3688: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3689: l_debug_mode := NVL(l_debug_mode, 'Y');
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3691:
3692: -- Check for business rules violations
3693: IF p_pa_debug_mode = 'Y' THEN
3694: pa_debug.g_err_stage:= 'Validating input parameters';
3689: l_debug_mode := NVL(l_debug_mode, 'Y');
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3691:
3692: -- Check for business rules violations
3693: IF p_pa_debug_mode = 'Y' THEN
3694: pa_debug.g_err_stage:= 'Validating input parameters';
3695: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3696: END IF;
3697:
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3691:
3692: -- Check for business rules violations
3693: IF p_pa_debug_mode = 'Y' THEN
3694: pa_debug.g_err_stage:= 'Validating input parameters';
3695: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3696: END IF;
3697:
3698: --Check if plan version id is null
3691:
3692: -- Check for business rules violations
3693: IF p_pa_debug_mode = 'Y' THEN
3694: pa_debug.g_err_stage:= 'Validating input parameters';
3695: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3696: END IF;
3697:
3698: --Check if plan version id is null
3699:
3698: --Check if plan version id is null
3699:
3700: IF (p_budget_version_id IS NULL)
3701: THEN
3702: IF p_pa_debug_mode = 'Y' THEN
3703: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3704: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3705: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3699:
3700: IF (p_budget_version_id IS NULL)
3701: THEN
3702: IF p_pa_debug_mode = 'Y' THEN
3703: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3704: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3705: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3707: END IF;
3700: IF (p_budget_version_id IS NULL)
3701: THEN
3702: IF p_pa_debug_mode = 'Y' THEN
3703: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3704: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3705: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3707: END IF;
3708:
3701: THEN
3702: IF p_pa_debug_mode = 'Y' THEN
3703: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3704: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3705: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3707: END IF;
3708:
3709: PA_UTILS.ADD_MESSAGE
3702: IF p_pa_debug_mode = 'Y' THEN
3703: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3704: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3705: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3707: END IF;
3708:
3709: PA_UTILS.ADD_MESSAGE
3710: (p_app_short_name => 'PA',
3715: OPEN budget_version_info_cur(p_budget_version_id);
3716: FETCH budget_version_info_cur INTO budget_version_info_rec;
3717: CLOSE budget_version_info_cur;
3718:
3719: IF p_pa_debug_mode = 'Y' THEN
3720: pa_debug.g_err_stage:= 'Exiting validate_budget_version';
3721: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3722: END IF;
3723: pa_debug.reset_err_stack;
3716: FETCH budget_version_info_cur INTO budget_version_info_rec;
3717: CLOSE budget_version_info_cur;
3718:
3719: IF p_pa_debug_mode = 'Y' THEN
3720: pa_debug.g_err_stage:= 'Exiting validate_budget_version';
3721: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3722: END IF;
3723: pa_debug.reset_err_stack;
3724:
3717: CLOSE budget_version_info_cur;
3718:
3719: IF p_pa_debug_mode = 'Y' THEN
3720: pa_debug.g_err_stage:= 'Exiting validate_budget_version';
3721: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3722: END IF;
3723: pa_debug.reset_err_stack;
3724:
3725: EXCEPTION
3719: IF p_pa_debug_mode = 'Y' THEN
3720: pa_debug.g_err_stage:= 'Exiting validate_budget_version';
3721: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3722: END IF;
3723: pa_debug.reset_err_stack;
3724:
3725: EXCEPTION
3726:
3727: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3741: x_msg_count := l_msg_count;
3742: x_msg_data := l_msg_data;
3743: END IF;
3744:
3745: IF p_pa_debug_mode = 'Y' THEN
3746: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || x_msg_data,5);
3747: END IF;
3748: pa_debug.reset_err_stack;
3749: RAISE;
3742: x_msg_data := l_msg_data;
3743: END IF;
3744:
3745: IF p_pa_debug_mode = 'Y' THEN
3746: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || x_msg_data,5);
3747: END IF;
3748: pa_debug.reset_err_stack;
3749: RAISE;
3750:
3744:
3745: IF p_pa_debug_mode = 'Y' THEN
3746: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || x_msg_data,5);
3747: END IF;
3748: pa_debug.reset_err_stack;
3749: RAISE;
3750:
3751: WHEN others THEN
3752:
3756: FND_MSG_PUB.add_exc_msg
3757: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3758: ,p_procedure_name => 'VALIDATE_BUDGET_VERSION'
3759: ,p_error_text => SQLERRM);
3760: IF p_pa_debug_mode = 'Y' THEN
3761: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3762: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3763: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3764: END IF;
3757: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3758: ,p_procedure_name => 'VALIDATE_BUDGET_VERSION'
3759: ,p_error_text => SQLERRM);
3760: IF p_pa_debug_mode = 'Y' THEN
3761: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3762: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3763: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3764: END IF;
3765: pa_debug.reset_err_stack;
3758: ,p_procedure_name => 'VALIDATE_BUDGET_VERSION'
3759: ,p_error_text => SQLERRM);
3760: IF p_pa_debug_mode = 'Y' THEN
3761: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3762: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3763: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3764: END IF;
3765: pa_debug.reset_err_stack;
3766: RAISE;
3759: ,p_error_text => SQLERRM);
3760: IF p_pa_debug_mode = 'Y' THEN
3761: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3762: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3763: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3764: END IF;
3765: pa_debug.reset_err_stack;
3766: RAISE;
3767:
3761: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3762: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3763: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3764: END IF;
3765: pa_debug.reset_err_stack;
3766: RAISE;
3767:
3768: END VALIDATE_BUDGET_VERSION;
3769:
3821: BEGIN
3822:
3823: x_msg_count := 0;
3824: x_return_status := FND_API.G_RET_STS_SUCCESS;
3825: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3826: l_debug_mode := NVL(l_debug_mode, 'Y');
3827:
3828: -- Set curr function
3829: pa_debug.set_curr_function(
3825: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3826: l_debug_mode := NVL(l_debug_mode, 'Y');
3827:
3828: -- Set curr function
3829: pa_debug.set_curr_function(
3830: p_function =>'PAFPUPGB.Apply_Calculate_FPM_Rules'
3831: ,p_debug_mode => l_debug_mode );
3832:
3833: IF l_debug_mode = 'Y' THEN
3830: p_function =>'PAFPUPGB.Apply_Calculate_FPM_Rules'
3831: ,p_debug_mode => l_debug_mode );
3832:
3833: IF l_debug_mode = 'Y' THEN
3834: pa_debug.g_err_stage:='Validating input parameters';
3835: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
3836: END IF;
3837:
3838: IF NVL(p_preference_code,'-99') NOT IN ('COST_ONLY','REVENUE_ONLY','COST_AND_REV_SAME') OR
3831: ,p_debug_mode => l_debug_mode );
3832:
3833: IF l_debug_mode = 'Y' THEN
3834: pa_debug.g_err_stage:='Validating input parameters';
3835: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
3836: END IF;
3837:
3838: IF NVL(p_preference_code,'-99') NOT IN ('COST_ONLY','REVENUE_ONLY','COST_AND_REV_SAME') OR
3839: p_quantity_tbl.COUNT <> p_resource_assignment_id_tbl.COUNT OR
3842: p_quantity_tbl.COUNT <> p_txn_burdened_cost_tbl.COUNT OR
3843: p_quantity_tbl.COUNT <> p_txn_revenue_tbl.COUNT THEN
3844:
3845: IF l_debug_mode = 'Y' THEN
3846: pa_debug.g_err_stage:='p_preference_code is '||p_preference_code;
3847: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3848:
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3843: p_quantity_tbl.COUNT <> p_txn_revenue_tbl.COUNT THEN
3844:
3845: IF l_debug_mode = 'Y' THEN
3846: pa_debug.g_err_stage:='p_preference_code is '||p_preference_code;
3847: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3848:
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3851:
3845: IF l_debug_mode = 'Y' THEN
3846: pa_debug.g_err_stage:='p_preference_code is '||p_preference_code;
3847: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3848:
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3851:
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3846: pa_debug.g_err_stage:='p_preference_code is '||p_preference_code;
3847: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3848:
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3851:
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3854:
3848:
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3851:
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3854:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3849: pa_debug.g_err_stage:='p_quantity_tbl.COUNT is '||p_quantity_tbl.COUNT;
3850: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3851:
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3854:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3857:
3851:
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3854:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3857:
3858: pa_debug.g_err_stage:='p_txn_revenue_tbl.COUNT is '||p_txn_revenue_tbl.COUNT;
3859: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3852: pa_debug.g_err_stage:='p_txn_raw_cost_tbl.COUNT is '||p_txn_raw_cost_tbl.COUNT;
3853: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3854:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3857:
3858: pa_debug.g_err_stage:='p_txn_revenue_tbl.COUNT is '||p_txn_revenue_tbl.COUNT;
3859: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3860:
3854:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3857:
3858: pa_debug.g_err_stage:='p_txn_revenue_tbl.COUNT is '||p_txn_revenue_tbl.COUNT;
3859: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3860:
3861: END IF;
3862:
3855: pa_debug.g_err_stage:='p_txn_burdened_cost_tbl.COUNT is '||p_txn_burdened_cost_tbl.COUNT;
3856: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3857:
3858: pa_debug.g_err_stage:='p_txn_revenue_tbl.COUNT is '||p_txn_revenue_tbl.COUNT;
3859: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
3860:
3861: END IF;
3862:
3863: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3869:
3870: IF p_quantity_tbl.COUNT=0 THEN
3871:
3872: IF l_debug_mode = 'Y' THEN
3873: pa_debug.g_err_stage:='Quantity Table is empty -> returning';
3874: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
3875: END IF;
3876: pa_debug.reset_curr_function;
3877: RETURN;
3870: IF p_quantity_tbl.COUNT=0 THEN
3871:
3872: IF l_debug_mode = 'Y' THEN
3873: pa_debug.g_err_stage:='Quantity Table is empty -> returning';
3874: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
3875: END IF;
3876: pa_debug.reset_curr_function;
3877: RETURN;
3878:
3872: IF l_debug_mode = 'Y' THEN
3873: pa_debug.g_err_stage:='Quantity Table is empty -> returning';
3874: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
3875: END IF;
3876: pa_debug.reset_curr_function;
3877: RETURN;
3878:
3879: END IF;
3880:
4277: x_burd_cost_override_rate_tbl:= l_burden_rate_override_tab ;
4278: x_bill_override_rate_tbl := l_bill_rate_override_tab ;
4279:
4280: IF l_debug_mode = 'Y' THEN
4281: pa_debug.g_err_stage:='Exiting Apply_Calculate_FPM_Rules';
4282: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
4283: END IF;
4284: -- reset curr function
4285: pa_debug.reset_curr_function;
4278: x_bill_override_rate_tbl := l_bill_rate_override_tab ;
4279:
4280: IF l_debug_mode = 'Y' THEN
4281: pa_debug.g_err_stage:='Exiting Apply_Calculate_FPM_Rules';
4282: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
4283: END IF;
4284: -- reset curr function
4285: pa_debug.reset_curr_function;
4286:
4281: pa_debug.g_err_stage:='Exiting Apply_Calculate_FPM_Rules';
4282: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
4283: END IF;
4284: -- reset curr function
4285: pa_debug.reset_curr_function;
4286:
4287: EXCEPTION
4288:
4289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4305:
4306: x_return_status := FND_API.G_RET_STS_ERROR;
4307:
4308: IF l_debug_mode = 'Y' THEN
4309: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4310: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4311:
4312: END IF;
4313: -- reset curr function
4306: x_return_status := FND_API.G_RET_STS_ERROR;
4307:
4308: IF l_debug_mode = 'Y' THEN
4309: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4310: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4311:
4312: END IF;
4313: -- reset curr function
4314: pa_debug.reset_curr_function();
4310: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4311:
4312: END IF;
4313: -- reset curr function
4314: pa_debug.reset_curr_function();
4315: RETURN;
4316: WHEN OTHERS THEN
4317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4318: x_msg_count := 1;
4321: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_upgrade_pkg'
4322: ,p_procedure_name => 'Apply_Calculate_FPM_Rules l_stage'||l_stage);
4323:
4324: IF l_debug_mode = 'Y' THEN
4325: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4326: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4327: END IF;
4328: -- reset curr function
4329: pa_debug.Reset_Curr_Function();
4322: ,p_procedure_name => 'Apply_Calculate_FPM_Rules l_stage'||l_stage);
4323:
4324: IF l_debug_mode = 'Y' THEN
4325: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4326: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4327: END IF;
4328: -- reset curr function
4329: pa_debug.Reset_Curr_Function();
4330: RAISE;
4325: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4326: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4327: END IF;
4328: -- reset curr function
4329: pa_debug.Reset_Curr_Function();
4330: RAISE;
4331:
4332: END Apply_Calculate_FPM_Rules;
4333:
4425: x_msg_count := 0;
4426: x_return_status := FND_API.G_RET_STS_SUCCESS;
4427: savepoint rollup_rejected_bl_amounts;
4428:
4429: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.rollup_rejected_bl_amounts');
4430:
4431: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4432: l_debug_mode := NVL(l_debug_mode, 'Y');
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4427: savepoint rollup_rejected_bl_amounts;
4428:
4429: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.rollup_rejected_bl_amounts');
4430:
4431: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4432: l_debug_mode := NVL(l_debug_mode, 'Y');
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4429: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.rollup_rejected_bl_amounts');
4430:
4431: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4432: l_debug_mode := NVL(l_debug_mode, 'Y');
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4431: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4432: l_debug_mode := NVL(l_debug_mode, 'Y');
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4438: pa_debug.g_err_stage := 'Checking for valid parameters';
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4432: l_debug_mode := NVL(l_debug_mode, 'Y');
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4438: pa_debug.g_err_stage := 'Checking for valid parameters';
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4440: END IF;
4433: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4438: pa_debug.g_err_stage := 'Checking for valid parameters';
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4440: END IF;
4441:
4434:
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4438: pa_debug.g_err_stage := 'Checking for valid parameters';
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4440: END IF;
4441:
4442: IF p_project_statuses IS NULL THEN
4435: IF p_pa_debug_mode = 'Y' THEN
4436: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4437: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4438: pa_debug.g_err_stage := 'Checking for valid parameters';
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4440: END IF;
4441:
4442: IF p_project_statuses IS NULL THEN
4443: IF p_pa_debug_mode = 'Y' THEN
4439: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4440: END IF;
4441:
4442: IF p_project_statuses IS NULL THEN
4443: IF p_pa_debug_mode = 'Y' THEN
4444: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4445: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4446: END IF;
4447:
4440: END IF;
4441:
4442: IF p_project_statuses IS NULL THEN
4443: IF p_pa_debug_mode = 'Y' THEN
4444: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4445: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4446: END IF;
4447:
4448: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4441:
4442: IF p_project_statuses IS NULL THEN
4443: IF p_pa_debug_mode = 'Y' THEN
4444: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4445: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4446: END IF;
4447:
4448: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4449: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4449: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4450: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4451: END IF;
4452:
4453: IF p_pa_debug_mode = 'Y' THEN
4454: pa_debug.g_err_stage := 'Parameter validation complete';
4455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4456: END IF;
4457:
4450: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4451: END IF;
4452:
4453: IF p_pa_debug_mode = 'Y' THEN
4454: pa_debug.g_err_stage := 'Parameter validation complete';
4455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4456: END IF;
4457:
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4451: END IF;
4452:
4453: IF p_pa_debug_mode = 'Y' THEN
4454: pa_debug.g_err_stage := 'Parameter validation complete';
4455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4456: END IF;
4457:
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4459: IF p_pa_debug_mode = 'Y' THEN
4455: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4456: END IF;
4457:
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4459: IF p_pa_debug_mode = 'Y' THEN
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4456: END IF;
4457:
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4459: IF p_pa_debug_mode = 'Y' THEN
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4457:
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4459: IF p_pa_debug_mode = 'Y' THEN
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4458: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4459: IF p_pa_debug_mode = 'Y' THEN
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4459: IF p_pa_debug_mode = 'Y' THEN
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4467: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4460: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4467: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4468: END IF;
4461: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4467: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4468: END IF;
4469:
4462: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4467: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4468: END IF;
4469:
4470: OPEN get_proj_bv_ids_for_rup(p_from_project_number,p_to_project_number,p_project_statuses,p_fin_plan_type_id);
4463: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4464: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4465: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4466: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4467: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4468: END IF;
4469:
4470: OPEN get_proj_bv_ids_for_rup(p_from_project_number,p_to_project_number,p_project_statuses,p_fin_plan_type_id);
4471: LOOP
4471: LOOP
4472: FETCH get_proj_bv_ids_for_rup INTO l_project_id,l_bv_id,l_ci_id,l_op_id,l_ci_status_code;
4473: EXIT WHEN get_proj_bv_ids_for_rup%NOTFOUND;
4474:
4475: IF p_pa_debug_mode = 'Y' THEN
4476: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4477: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478:
4479: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4472: FETCH get_proj_bv_ids_for_rup INTO l_project_id,l_bv_id,l_ci_id,l_op_id,l_ci_status_code;
4473: EXIT WHEN get_proj_bv_ids_for_rup%NOTFOUND;
4474:
4475: IF p_pa_debug_mode = 'Y' THEN
4476: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4477: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478:
4479: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4473: EXIT WHEN get_proj_bv_ids_for_rup%NOTFOUND;
4474:
4475: IF p_pa_debug_mode = 'Y' THEN
4476: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4477: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478:
4479: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4481: END IF;
4475: IF p_pa_debug_mode = 'Y' THEN
4476: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4477: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478:
4479: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4481: END IF;
4482:
4483: savepoint rollup_bl_amounts_to_bv;
4476: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4477: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478:
4479: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4481: END IF;
4482:
4483: savepoint rollup_bl_amounts_to_bv;
4484:
4512: END IF;
4513:
4514: /* End of fix for bug 5084161 */
4515:
4516: IF p_pa_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4518: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4513:
4514: /* End of fix for bug 5084161 */
4515:
4516: IF p_pa_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4518: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4514: /* End of fix for bug 5084161 */
4515:
4516: IF p_pa_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4518: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4522:
4516: IF p_pa_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4518: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4522:
4523: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4524: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4517: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4518: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4522:
4523: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4524: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4525: END IF;
4519:
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4522:
4523: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4524: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4525: END IF;
4526:
4527: IF l_process_flag = 'Y' THEN /* 5084161 */
4520: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4521: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4522:
4523: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4524: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4525: END IF;
4526:
4527: IF l_process_flag = 'Y' THEN /* 5084161 */
4528:
4536: -- We will update the audit table with that id and the reason then we will
4537: -- proceed to process the other budget versions in the project/range.
4538:
4539:
4540: IF p_pa_debug_mode = 'Y' THEN
4541: pa_debug.g_err_stage := 'Deleting the pl/sql tables before locking the records.';
4542: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4543: END IF;
4544:
4537: -- proceed to process the other budget versions in the project/range.
4538:
4539:
4540: IF p_pa_debug_mode = 'Y' THEN
4541: pa_debug.g_err_stage := 'Deleting the pl/sql tables before locking the records.';
4542: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4543: END IF;
4544:
4545:
4538:
4539:
4540: IF p_pa_debug_mode = 'Y' THEN
4541: pa_debug.g_err_stage := 'Deleting the pl/sql tables before locking the records.';
4542: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4543: END IF;
4544:
4545:
4546: l_rtx_ra_id_tbl.delete;
4545:
4546: l_rtx_ra_id_tbl.delete;
4547: l_ra_id_tbl.delete ;
4548:
4549: IF p_pa_debug_mode = 'Y' THEN
4550: pa_debug.g_err_stage := 'Successfully Deleted the pl/sql tables.';
4551: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4552: END IF;
4553:
4546: l_rtx_ra_id_tbl.delete;
4547: l_ra_id_tbl.delete ;
4548:
4549: IF p_pa_debug_mode = 'Y' THEN
4550: pa_debug.g_err_stage := 'Successfully Deleted the pl/sql tables.';
4551: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4552: END IF;
4553:
4554: SELECT bv.budget_version_id INTO l_budg_ver_id
4547: l_ra_id_tbl.delete ;
4548:
4549: IF p_pa_debug_mode = 'Y' THEN
4550: pa_debug.g_err_stage := 'Successfully Deleted the pl/sql tables.';
4551: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4552: END IF;
4553:
4554: SELECT bv.budget_version_id INTO l_budg_ver_id
4555: FROM pa_budget_versions bv
4555: FROM pa_budget_versions bv
4556: WHERE bv.budget_version_id = l_bv_id
4557: FOR UPDATE OF bv.budget_version_id NOWAIT;
4558:
4559: IF p_pa_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'Successfully locked the budget version records';
4561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4562: END IF;
4563:
4556: WHERE bv.budget_version_id = l_bv_id
4557: FOR UPDATE OF bv.budget_version_id NOWAIT;
4558:
4559: IF p_pa_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'Successfully locked the budget version records';
4561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4562: END IF;
4563:
4564: SELECT rtx.resource_assignment_id BULK COLLECT INTO l_rtx_ra_id_tbl
4557: FOR UPDATE OF bv.budget_version_id NOWAIT;
4558:
4559: IF p_pa_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'Successfully locked the budget version records';
4561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4562: END IF;
4563:
4564: SELECT rtx.resource_assignment_id BULK COLLECT INTO l_rtx_ra_id_tbl
4565: FROM pa_resource_asgn_curr rtx
4565: FROM pa_resource_asgn_curr rtx
4566: WHERE rtx.budget_version_id = l_bv_id
4567: FOR UPDATE OF rtx.resource_assignment_id NOWAIT;
4568:
4569: IF p_pa_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage := 'Successfully locked the resource assign curr records';
4571: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4572: END IF;
4573:
4566: WHERE rtx.budget_version_id = l_bv_id
4567: FOR UPDATE OF rtx.resource_assignment_id NOWAIT;
4568:
4569: IF p_pa_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage := 'Successfully locked the resource assign curr records';
4571: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4572: END IF;
4573:
4574:
4567: FOR UPDATE OF rtx.resource_assignment_id NOWAIT;
4568:
4569: IF p_pa_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage := 'Successfully locked the resource assign curr records';
4571: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4572: END IF;
4573:
4574:
4575: SELECT ra.resource_assignment_id BULK COLLECT INTO l_ra_id_tbl
4576: FROM pa_resource_assignments ra
4577: WHERE ra.budget_version_id = l_bv_id
4578: FOR UPDATE OF ra.resource_assignment_id NOWAIT;
4579:
4580: IF p_pa_debug_mode = 'Y' THEN
4581: pa_debug.g_err_stage := 'Successfully locked the resource assignment records';
4582: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4583: END IF;
4584:
4577: WHERE ra.budget_version_id = l_bv_id
4578: FOR UPDATE OF ra.resource_assignment_id NOWAIT;
4579:
4580: IF p_pa_debug_mode = 'Y' THEN
4581: pa_debug.g_err_stage := 'Successfully locked the resource assignment records';
4582: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4583: END IF;
4584:
4585:
4578: FOR UPDATE OF ra.resource_assignment_id NOWAIT;
4579:
4580: IF p_pa_debug_mode = 'Y' THEN
4581: pa_debug.g_err_stage := 'Successfully locked the resource assignment records';
4582: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4583: END IF;
4584:
4585:
4586: -- Process each Budget version here
4596: x_msg_data => l_msg_data);
4597:
4598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4599: THEN
4600: IF p_pa_debug_mode = 'Y' THEN
4601: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
4602: END IF;
4603: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4604: END IF;
4597:
4598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4599: THEN
4600: IF p_pa_debug_mode = 'Y' THEN
4601: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
4602: END IF;
4603: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4604: END IF;
4605:
4614: x_msg_data => l_msg_data);
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4617: THEN
4618: IF p_pa_debug_mode = 'Y' THEN
4619: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
4620: END IF;
4621: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4622: END IF;
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4617: THEN
4618: IF p_pa_debug_mode = 'Y' THEN
4619: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
4620: END IF;
4621: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4622: END IF;
4623: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4621: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4622: END IF;
4623: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4624:
4625: IF p_pa_debug_mode = 'Y' THEN
4626: pa_debug.g_err_stage := 'Updated the resource assign curr amts from budget lines';
4627: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4628: END IF;
4629:
4622: END IF;
4623: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4624:
4625: IF p_pa_debug_mode = 'Y' THEN
4626: pa_debug.g_err_stage := 'Updated the resource assign curr amts from budget lines';
4627: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4628: END IF;
4629:
4630:
4623: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4624:
4625: IF p_pa_debug_mode = 'Y' THEN
4626: pa_debug.g_err_stage := 'Updated the resource assign curr amts from budget lines';
4627: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4628: END IF;
4629:
4630:
4631: -- Rollup the totals onto the RA
4639: ,x_msg_count => l_msg_count
4640: ,x_msg_data => l_msg_data);
4641:
4642: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to already existing rollup_budget api */
4643: IF p_pa_debug_mode = 'Y' THEN
4644: pa_debug.g_err_stage := 'Updated the resource assignment amts from resource assign curr';
4645: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4646: END IF;
4647:
4640: ,x_msg_data => l_msg_data);
4641:
4642: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to already existing rollup_budget api */
4643: IF p_pa_debug_mode = 'Y' THEN
4644: pa_debug.g_err_stage := 'Updated the resource assignment amts from resource assign curr';
4645: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4646: END IF;
4647:
4648: -- Auditing the RA ID records.
4641:
4642: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to already existing rollup_budget api */
4643: IF p_pa_debug_mode = 'Y' THEN
4644: pa_debug.g_err_stage := 'Updated the resource assignment amts from resource assign curr';
4645: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4646: END IF;
4647:
4648: -- Auditing the RA ID records.
4649: FORALL i IN l_ra_id_tbl.FIRST..l_ra_id_tbl.LAST
4663: ,fnd_global.login_id
4664: ,l_bv_id
4665: ,l_ra_id_tbl(i));
4666:
4667: IF p_pa_debug_mode = 'Y' THEN
4668: pa_debug.g_err_stage := 'Audited the resource assignment IDs';
4669: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4670: END IF;
4671:
4664: ,l_bv_id
4665: ,l_ra_id_tbl(i));
4666:
4667: IF p_pa_debug_mode = 'Y' THEN
4668: pa_debug.g_err_stage := 'Audited the resource assignment IDs';
4669: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4670: END IF;
4671:
4672: -- Sync'ing up the amounts in the PJI model by calling the PJI APIs.
4665: ,l_ra_id_tbl(i));
4666:
4667: IF p_pa_debug_mode = 'Y' THEN
4668: pa_debug.g_err_stage := 'Audited the resource assignment IDs';
4669: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4670: END IF;
4671:
4672: -- Sync'ing up the amounts in the PJI model by calling the PJI APIs.
4673: -- The business rule is that we should not call the PJI APIs for CO/CR.
4671:
4672: -- Sync'ing up the amounts in the PJI model by calling the PJI APIs.
4673: -- The business rule is that we should not call the PJI APIs for CO/CR.
4674:
4675: IF p_pa_debug_mode = 'Y' THEN
4676: pa_debug.g_err_stage := 'Before calling PJI APIs';
4677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4678: END IF;
4679:
4672: -- Sync'ing up the amounts in the PJI model by calling the PJI APIs.
4673: -- The business rule is that we should not call the PJI APIs for CO/CR.
4674:
4675: IF p_pa_debug_mode = 'Y' THEN
4676: pa_debug.g_err_stage := 'Before calling PJI APIs';
4677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4678: END IF;
4679:
4680:
4673: -- The business rule is that we should not call the PJI APIs for CO/CR.
4674:
4675: IF p_pa_debug_mode = 'Y' THEN
4676: pa_debug.g_err_stage := 'Before calling PJI APIs';
4677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4678: END IF;
4679:
4680:
4681: IF l_ci_id IS NULL THEN
4682:
4683: l_budget_ver_tbl.extend;
4684: l_budget_ver_tbl(1) := l_bv_id;
4685:
4686: IF p_pa_debug_mode = 'Y' THEN
4687: pa_debug.g_err_stage := 'Before calling PJI API PLAN_DELETE for budget ver '||l_bv_id;
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4689: END IF;
4690:
4683: l_budget_ver_tbl.extend;
4684: l_budget_ver_tbl(1) := l_bv_id;
4685:
4686: IF p_pa_debug_mode = 'Y' THEN
4687: pa_debug.g_err_stage := 'Before calling PJI API PLAN_DELETE for budget ver '||l_bv_id;
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4689: END IF;
4690:
4691: PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE (
4684: l_budget_ver_tbl(1) := l_bv_id;
4685:
4686: IF p_pa_debug_mode = 'Y' THEN
4687: pa_debug.g_err_stage := 'Before calling PJI API PLAN_DELETE for budget ver '||l_bv_id;
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4689: END IF;
4690:
4691: PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE (
4692: p_fp_version_ids => l_budget_ver_tbl,
4692: p_fp_version_ids => l_budget_ver_tbl,
4693: x_return_status => x_return_status,
4694: x_msg_code => l_error_msg_code);
4695:
4696: IF p_pa_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4699:
4700: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4693: x_return_status => x_return_status,
4694: x_msg_code => l_error_msg_code);
4695:
4696: IF p_pa_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4699:
4700: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4701: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4694: x_msg_code => l_error_msg_code);
4695:
4696: IF p_pa_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4699:
4700: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4701: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4702: END IF;
4696: IF p_pa_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4699:
4700: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4701: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4702: END IF;
4703:
4704: IF (l_return_status <> 'S') THEN
4697: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4699:
4700: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4701: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4702: END IF;
4703:
4704: IF (l_return_status <> 'S') THEN
4705: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4709: p_fp_version_ids => l_budget_ver_tbl,
4710: x_return_status => x_return_status,
4711: x_msg_code => l_error_msg_code);
4712:
4713: IF p_pa_debug_mode = 'Y' THEN
4714: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4715: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4716:
4717: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4710: x_return_status => x_return_status,
4711: x_msg_code => l_error_msg_code);
4712:
4713: IF p_pa_debug_mode = 'Y' THEN
4714: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4715: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4716:
4717: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4718: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4711: x_msg_code => l_error_msg_code);
4712:
4713: IF p_pa_debug_mode = 'Y' THEN
4714: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4715: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4716:
4717: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4718: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4719: END IF;
4713: IF p_pa_debug_mode = 'Y' THEN
4714: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4715: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4716:
4717: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4718: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4719: END IF;
4720:
4721: IF (l_return_status <> 'S') THEN
4714: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4715: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4716:
4717: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4718: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4719: END IF;
4720:
4721: IF (l_return_status <> 'S') THEN
4722: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4725: END IF;
4726:
4727: -- Now Audit the Budget version level record change
4728:
4729: IF p_pa_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'Auditing the budget version ';
4731: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4732:
4733: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4726:
4727: -- Now Audit the Budget version level record change
4728:
4729: IF p_pa_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'Auditing the budget version ';
4731: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4732:
4733: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4734: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4727: -- Now Audit the Budget version level record change
4728:
4729: IF p_pa_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'Auditing the budget version ';
4731: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4732:
4733: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4734: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4735: END IF;
4729: IF p_pa_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'Auditing the budget version ';
4731: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4732:
4733: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4734: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4735: END IF;
4736:
4737:
4730: pa_debug.g_err_stage := 'Auditing the budget version ';
4731: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4732:
4733: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4734: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4735: END IF;
4736:
4737:
4738: pa_fp_upgrade_pkg.Insert_Audit_Record(
4752: WHEN record_locked THEN
4753: /* Record was already locked, so audit this version and
4754: just keep on going */
4755:
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4753: /* Record was already locked, so audit this version and
4754: just keep on going */
4755:
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4754: just keep on going */
4755:
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4762:
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4762:
4763: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4764: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4757: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4762:
4763: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4764: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4765: END IF;
4759:
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4762:
4763: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4764: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4765: END IF;
4766:
4767: rollback to rollup_bl_amounts_to_bv;
4760: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4762:
4763: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4764: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4765: END IF;
4766:
4767: rollback to rollup_bl_amounts_to_bv;
4768: pa_fp_upgrade_pkg.Insert_Audit_Record(
4779: ,p_proj_fp_options_id_rup => l_op_id);
4780:
4781: WHEN OTHERS THEN
4782:
4783: IF p_pa_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4785: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4780:
4781: WHEN OTHERS THEN
4782:
4783: IF p_pa_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4785: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4781: WHEN OTHERS THEN
4782:
4783: IF p_pa_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4785: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4789:
4783: IF p_pa_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4785: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4789:
4790: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4791: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4784: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4785: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4789:
4790: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4791: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4792: END IF;
4786:
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4789:
4790: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4791: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4792: END IF;
4793:
4794: rollback to rollup_bl_amounts_to_bv;
4787: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4788: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4789:
4790: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4791: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4792: END IF;
4793:
4794: rollback to rollup_bl_amounts_to_bv;
4795: pa_fp_upgrade_pkg.Insert_Audit_Record(
4815: -- END LOOP;
4816: -- CLOSE get_fin_plan_versions;
4817: END LOOP;
4818: CLOSE get_proj_bv_ids_for_rup;
4819: IF p_pa_debug_mode = 'Y' THEN
4820: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4816: -- CLOSE get_fin_plan_versions;
4817: END LOOP;
4818: CLOSE get_proj_bv_ids_for_rup;
4819: IF p_pa_debug_mode = 'Y' THEN
4820: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4824: END IF;
4817: END LOOP;
4818: CLOSE get_proj_bv_ids_for_rup;
4819: IF p_pa_debug_mode = 'Y' THEN
4820: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4824: END IF;
4825: pa_debug.reset_err_stack;
4818: CLOSE get_proj_bv_ids_for_rup;
4819: IF p_pa_debug_mode = 'Y' THEN
4820: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4824: END IF;
4825: pa_debug.reset_err_stack;
4826: EXCEPTION
4819: IF p_pa_debug_mode = 'Y' THEN
4820: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4824: END IF;
4825: pa_debug.reset_err_stack;
4826: EXCEPTION
4827:
4821: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4822: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4823: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4824: END IF;
4825: pa_debug.reset_err_stack;
4826: EXCEPTION
4827:
4828: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4829:
4845: x_msg_count := l_msg_count;
4846: x_msg_data := l_msg_data;
4847: END IF;
4848:
4849: IF p_pa_debug_mode = 'Y' THEN
4850: pa_debug.g_err_stage:='Invalid Arguments Passed';
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4846: x_msg_data := l_msg_data;
4847: END IF;
4848:
4849: IF p_pa_debug_mode = 'Y' THEN
4850: pa_debug.g_err_stage:='Invalid Arguments Passed';
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4847: END IF;
4848:
4849: IF p_pa_debug_mode = 'Y' THEN
4850: pa_debug.g_err_stage:='Invalid Arguments Passed';
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4855: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4850: pa_debug.g_err_stage:='Invalid Arguments Passed';
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4855: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4856: pa_debug.reset_err_stack;
4857: ROLLBACK TO rollup_rejected_bl_amounts;
4858: RAISE;
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4855: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4856: pa_debug.reset_err_stack;
4857: ROLLBACK TO rollup_rejected_bl_amounts;
4858: RAISE;
4859: WHEN Others THEN
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4855: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4856: pa_debug.reset_err_stack;
4857: ROLLBACK TO rollup_rejected_bl_amounts;
4858: RAISE;
4859: WHEN Others THEN
4860:
4866: x_msg_data := SQLERRM;
4867:
4868: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
4869: ,p_procedure_name => 'Rollup_rejected_bl_ampunts');
4870: IF p_pa_debug_mode = 'Y' THEN
4871: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4867:
4868: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
4869: ,p_procedure_name => 'Rollup_rejected_bl_ampunts');
4870: IF p_pa_debug_mode = 'Y' THEN
4871: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4875: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4868: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
4869: ,p_procedure_name => 'Rollup_rejected_bl_ampunts');
4870: IF p_pa_debug_mode = 'Y' THEN
4871: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4875: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4876: pa_debug.reset_err_stack;
4870: IF p_pa_debug_mode = 'Y' THEN
4871: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4875: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4876: pa_debug.reset_err_stack;
4877: ROLLBACK TO rollup_rejected_bl_amounts;
4878: RAISE;
4871: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4875: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4876: pa_debug.reset_err_stack;
4877: ROLLBACK TO rollup_rejected_bl_amounts;
4878: RAISE;
4879: END rollup_rejected_bl_amounts;
4872: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873: END IF;
4874: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4875: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4876: pa_debug.reset_err_stack;
4877: ROLLBACK TO rollup_rejected_bl_amounts;
4878: RAISE;
4879: END rollup_rejected_bl_amounts;
4880: