[Home] [Help]
105: (SELECT 1
106: FROM pa_proj_fp_options ppfo
107: WHERE ppfo.project_id = c_project_id
108: AND ppfo.fin_plan_type_id = pt.fin_plan_type_id
109: AND ppfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE)
110: AND exists
111: (SELECT 1
112: FROM pa_budget_versions pbv
113: WHERE pbv.project_id = c_project_id
144: SELECT 1 FROM DUAL
145: WHERE (current_original_flag = 'Y' OR
146: original_flag = 'Y' OR
147: current_flag = 'Y' OR
148: budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING) )
149: AND c_budget_statuses = 'CWB')
150: AND (c_mode = 'PRE_UPGRADE' OR EXISTS (
151: SELECT 1
152: FROM pa_proj_fp_options pfo,
151: SELECT 1
152: FROM pa_proj_fp_options pfo,
153: pa_fin_plan_types_b pt /* Bug# 2661650 - Replaced _vl by _b for performance reasons */
154: WHERE pfo.project_id = c_project_id
155: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
156: AND pt.fin_plan_type_id = pfo.fin_plan_type_id
157: AND pt.migrated_frm_bdgt_typ_code = bv.budget_type_code));
158:
159: budgets_for_upgrade_rec budgets_for_upgrade_cur%ROWTYPE;
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:';
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:
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:
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;
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',
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;
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;
274: END IF;
275:
276: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
277:
272: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
273: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
274: END IF;
275:
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
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);
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',
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;
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;
291: END IF;
292:
293: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
294:
289: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
290: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
291: END IF;
292:
293: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
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
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);
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);
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',
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;
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;
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;
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;
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;
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);
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;
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);
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);
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.
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;
336: x_upgrade_elements_rec := NULL;
337:
338: x_upgrade_elements_rec.curr_option_budget_type_code := p_budget_type_code;
339:
340: IF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
341:
342: --Set the fp option related variables
343:
344: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
343:
344: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
345: x_upgrade_elements_rec.curr_option_plan_type_id := NULL;
346: x_upgrade_elements_rec.curr_option_plan_version_id := NULL;
347: x_upgrade_elements_rec.curr_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT;
348:
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
345: x_upgrade_elements_rec.curr_option_plan_type_id := NULL;
346: x_upgrade_elements_rec.curr_option_plan_version_id := NULL;
347: x_upgrade_elements_rec.curr_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT;
348:
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
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
356: END IF;
357:
358: pa_budget_utils.get_baselined_version_id (
359: x_project_id => p_project_id
360: ,x_budget_type_code => PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC
361: ,x_budget_version_id => x_upgrade_elements_rec.basis_cost_version_id
362: ,x_err_code => l_err_code
363: ,x_err_stage => l_err_stage
364: ,x_err_stack => l_err_stack);
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:
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:
385: pa_budget_utils.get_draft_version_id (
386: x_project_id => p_project_id
383: END IF;
384:
385: pa_budget_utils.get_draft_version_id (
386: x_project_id => p_project_id
387: ,x_budget_type_code => PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC
388: ,x_budget_version_id => x_upgrade_elements_rec.basis_cost_version_id
389: ,x_err_code => l_err_code
390: ,x_err_stage => l_err_stage
391: ,x_err_stack => l_err_stack);
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:
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:
404: /*** Bug# 2643043
405: **** IF l_err_code <> 0 THEN
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:
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
422: END IF;
423:
424: pa_budget_utils.get_baselined_version_id (
425: x_project_id => p_project_id
426: ,x_budget_type_code => PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR
427: ,x_budget_version_id => x_upgrade_elements_rec.basis_rev_version_id
428: ,x_err_code => l_err_code
429: ,x_err_stage => l_err_stage
430: ,x_err_stack => l_err_stack);
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:
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:
452: --Fetch Approved Revenue working version
453:
452: --Fetch Approved Revenue working version
453:
454: pa_budget_utils.get_draft_version_id (
455: x_project_id => p_project_id
456: ,x_budget_type_code => PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR
457: ,x_budget_version_id => x_upgrade_elements_rec.basis_rev_version_id
458: ,x_err_code => l_err_code
459: ,x_err_stage => l_err_stage
460: ,x_err_stack => l_err_stack);
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:
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:
478: END IF;
479:
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:
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:
487: --Set the fp option related variables
488:
489: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
487: --Set the fp option related variables
488:
489: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
490: x_upgrade_elements_rec.curr_option_plan_version_id := NULL;
491: x_upgrade_elements_rec.curr_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
492:
493: BEGIN
494: --Fetch plan type id using budget_type_code
495:
499: WHERE migrated_frm_bdgt_typ_code = p_budget_type_code;
500:
501: --Fetch preference code using budget amount code
502:
503: SELECT DECODE(budget_amount_code,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_C,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
504: ,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_R,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
505: INTO x_upgrade_elements_rec.curr_option_preference_code
506: FROM pa_budget_types
507: WHERE budget_type_code = p_budget_type_code;
500:
501: --Fetch preference code using budget amount code
502:
503: SELECT DECODE(budget_amount_code,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_C,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
504: ,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_R,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
505: INTO x_upgrade_elements_rec.curr_option_preference_code
506: FROM pa_budget_types
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;
516: END;
517:
514: END IF;
515: RAISE;
516: END;
517:
518: IF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
519:
520: --Fetch lastest baselined version id as basis_cost_version_id
521:
522: pa_budget_utils.get_baselined_version_id (
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:
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:
541: IF l_err_code = 10 or x_upgrade_elements_rec.basis_cost_version_id IS NULL THEN /* Bug# 2643043 */
542:
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:
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:
569: END IF;
570: ELSIF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
566: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
567: END IF;
568:
569: END IF;
570: ELSIF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
571:
572: --Fetch lastest baselined version id as basis_rev_version_id
573:
574: pa_budget_utils.get_baselined_version_id (
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:
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:
593: IF l_err_code = 10 or x_upgrade_elements_rec.basis_cost_version_id IS NULL THEN /* Bug# 2643043 */
594:
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:
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:
621: END IF;
622: END IF;
620:
621: END IF;
622: END IF;
623:
624: ELSIF p_fin_plan_option_level = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
625:
626: --Set the fp option related variables
627:
628: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
626: --Set the fp option related variables
627:
628: x_upgrade_elements_rec.curr_option_project_id := p_project_id;
629: x_upgrade_elements_rec.curr_option_plan_version_id := p_fin_plan_version_id;
630: x_upgrade_elements_rec.curr_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION;
631:
632: BEGIN
633:
634: --Fetch plan type id using budget_type_code
639: WHERE migrated_frm_bdgt_typ_code = p_budget_type_code;
640:
641: --Fetch preference code using budget amount code
642:
643: SELECT DECODE(budget_amount_code,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_C,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
644: ,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_R,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
645: INTO x_upgrade_elements_rec.curr_option_preference_code
646: FROM pa_budget_types
647: WHERE budget_type_code = p_budget_type_code;
640:
641: --Fetch preference code using budget amount code
642:
643: SELECT DECODE(budget_amount_code,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_C,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
644: ,PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_R,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
645: INTO x_upgrade_elements_rec.curr_option_preference_code
646: FROM pa_budget_types
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;
656: END;
657:
656: END;
657:
658: --Using preference code set basis_cost_version_id /g_basis_revenue_version_id appropriately.
659:
660: IF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
661:
662: x_upgrade_elements_rec.basis_cost_version_id := p_fin_plan_version_id;
663:
664: ELSIF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
660: IF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
661:
662: x_upgrade_elements_rec.basis_cost_version_id := p_fin_plan_version_id;
663:
664: ELSIF x_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
665:
666: x_upgrade_elements_rec.basis_rev_version_id := p_fin_plan_version_id;
667:
668: END IF;
670: END IF;
671:
672: --If preference code is cost_only or cost_and_rev_sep then set cost variables.
673:
674: IF x_upgrade_elements_rec.curr_option_preference_code IN(PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,
675: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
676:
677: IF x_upgrade_elements_rec.basis_cost_version_id IS NOT NULL THEN
678:
671:
672: --If preference code is cost_only or cost_and_rev_sep then set cost variables.
673:
674: IF x_upgrade_elements_rec.curr_option_preference_code IN(PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,
675: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
676:
677: IF x_upgrade_elements_rec.basis_cost_version_id IS NOT NULL THEN
678:
679: --Using the basis_cost_version_id set all the cost variables.
713: ,x_return_status => l_return_status
714: ,x_message_data => l_msg_data );
715:
716: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
717: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
718: END IF;
719: ELSE
720:
721: --populate the variables using project type level cost options
762: ,x_return_status => l_return_status
763: ,x_message_data => l_msg_data );
764:
765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
766: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
767: END IF;
768: END IF;
769: END IF;
770: END IF;
770: END IF;
771:
772: --If preference code is revenue_only or cost_and_rev_sep then set revenue variables.
773:
774: IF x_upgrade_elements_rec.curr_option_preference_code IN(PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY,
775: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
776:
777: IF x_upgrade_elements_rec.basis_rev_version_id IS NOT NULL THEN
778:
771:
772: --If preference code is revenue_only or cost_and_rev_sep then set revenue variables.
773:
774: IF x_upgrade_elements_rec.curr_option_preference_code IN(PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY,
775: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
776:
777: IF x_upgrade_elements_rec.basis_rev_version_id IS NOT NULL THEN
778:
779: --Using the basis_rev_version_id set all the cost variables.
811: ,x_message_count => l_msg_count
812: ,x_return_status => l_return_status
813: ,x_message_data => l_msg_data );
814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
815: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
816: END IF;
817: ELSE
818: --Set revenue varaibles using project type revenue properties
819:
861: ,x_return_status => l_return_status
862: ,x_message_data => l_msg_data );
863:
864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
866: END IF;
867:
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;
877: EXCEPTION
878:
875: END IF;
876: pa_debug.reset_err_stack;
877: EXCEPTION
878:
879: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
880:
881: l_msg_count := FND_MSG_PUB.count_msg;
882: IF l_msg_count = 1 THEN
883: PA_INTERFACE_UTILS_PUB.get_messages
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;
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;
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;
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
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);
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',
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;
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;
999:
1000: END IF;
1001: IF p_pa_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage := 'Parameter validation complete';
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';
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
1012: ,x_return_status => l_return_status
1013: ,x_msg_count => l_msg_count
1014: ,x_msg_data => l_msg_data);
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';
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);
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:
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:
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;
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;
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
1092: SELECT proj_fp_options_id
1093: INTO l_proj_fp_options_id
1094: FROM pa_proj_fp_options
1095: WHERE project_id = l_project_id
1096: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT;
1097:
1098: -- The follwing variable indicates if there are any project level exceptions
1099: -- As the project is available in new model, there would be project level no
1100: -- exceptions and so setting it to 'Y'
1112: ,x_msg_count => l_msg_count
1113: ,x_msg_data => l_msg_data);
1114:
1115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1116: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1117: END IF;
1118: -- create fp options and elements for project only if there are
1119: -- no project level exceptions
1120:
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
1128: pa_fp_upgrade_pkg.Create_fp_options(
1129: p_project_id => l_project_id
1130: ,p_budget_type_code => NULL
1131: ,p_fin_plan_version_id => NULL
1132: ,p_fin_plan_option_level => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT
1133: ,x_proj_fp_options_id => l_proj_fp_options_id
1134: ,x_upgrade_elements_rec => l_upgrade_elements_rec
1135: ,x_return_status => l_return_status
1136: ,x_msg_count => l_msg_count
1135: ,x_return_status => l_return_status
1136: ,x_msg_count => l_msg_count
1137: ,x_msg_data => l_msg_data);
1138: if (l_return_status <> 'S') then
1139: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1140: end if;
1141:
1142: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
1143: in pa_fp_txn_currencies. The source fp option ID is being passed as NULL as
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
1162: ,x_return_status => l_return_status
1163: ,x_msg_count => l_msg_count
1164: ,x_msg_data => l_msg_data);
1165: if (l_return_status <> 'S') then
1166: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1167: end if;
1168:
1169: -- Insert into audit table
1170: pa_fp_upgrade_pkg.Insert_Audit_Record(
1170: pa_fp_upgrade_pkg.Insert_Audit_Record(
1171: p_project_id => l_project_id
1172: ,p_budget_type_code => NULL
1173: ,p_proj_fp_options_id => l_proj_fp_options_id
1174: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT
1175: ,p_basis_cost_version_id => l_upgrade_elements_rec.basis_cost_version_id
1176: ,p_basis_rev_version_id => l_upgrade_elements_rec.basis_rev_version_id
1177: ,p_basis_cost_bem => l_upgrade_elements_rec.basis_cost_bem
1178: ,p_basis_rev_bem => l_upgrade_elements_rec.basis_rev_bem
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:
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
1207: ,x_return_status => l_return_status
1208: ,x_msg_count => l_msg_count
1209: ,x_msg_data => l_msg_data);
1210: if (l_return_status <> 'S') then
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
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
1223: ,x_return_status => l_return_status
1224: ,x_msg_count => l_msg_count
1225: ,x_msg_data => l_msg_data);
1226: if (l_return_status <> 'S') then
1227: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1228: end if;
1229: END IF; -- l_proj_validation_status
1230: END IF; -- if any types of budget are allowed for the project
1231:
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;
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:
1251: END IF;
1252: pa_debug.reset_err_stack;
1253: EXCEPTION
1254:
1255: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1256:
1257: IF projects_for_upgrade_cur1%ISOPEN THEN
1258: CLOSE projects_for_upgrade_cur1;
1259: ELSIF projects_for_upgrade_cur2%ISOPEN THEN
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);
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;
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;
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;
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;
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;
1409:
1410: END IF;
1411: IF p_pa_debug_mode = 'Y' THEN
1412: pa_debug.g_err_stage := 'parameter validation complete';
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
1420:
1421: --Set l_plan_class_code, l_approved_cost_plan_type_flag, l_approved_rev_plan_type_flag
1422: --using budget_type_code
1423:
1424: IF budget_types_for_upgrade_rec.budget_type_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FC,
1425: PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FR)
1426: THEN
1427: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST;
1428: ELSE
1421: --Set l_plan_class_code, l_approved_cost_plan_type_flag, l_approved_rev_plan_type_flag
1422: --using budget_type_code
1423:
1424: IF budget_types_for_upgrade_rec.budget_type_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FC,
1425: PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FR)
1426: THEN
1427: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST;
1428: ELSE
1429: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET;
1423:
1424: IF budget_types_for_upgrade_rec.budget_type_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FC,
1425: PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FR)
1426: THEN
1427: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST;
1428: ELSE
1429: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET;
1430: END IF;
1431:
1425: PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_FR)
1426: THEN
1427: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST;
1428: ELSE
1429: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET;
1430: END IF;
1431:
1432: IF budget_types_for_upgrade_rec.budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1433: l_approved_cost_plan_type_flag := 'Y';
1428: ELSE
1429: l_plan_class_code := PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET;
1430: END IF;
1431:
1432: IF budget_types_for_upgrade_rec.budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1433: l_approved_cost_plan_type_flag := 'Y';
1434: ELSE
1435: l_approved_cost_plan_type_flag := 'N';
1436: END IF;
1434: ELSE
1435: l_approved_cost_plan_type_flag := 'N';
1436: END IF;
1437:
1438: IF budget_types_for_upgrade_rec.budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
1439: l_approved_rev_plan_type_flag := 'Y';
1440: ELSE
1441: l_approved_rev_plan_type_flag := 'N';
1442: END IF;
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:
1507: END IF;
1508: pa_debug.reset_err_stack;
1509: EXCEPTION
1510:
1511: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1512:
1513: IF budget_types_for_upgrade_cur%ISOPEN THEN
1514: CLOSE budget_types_for_upgrade_cur;
1515: END IF;
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;
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;
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;
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
1627: ,x_return_status => l_return_status
1628: ,x_msg_count => l_msg_count
1629: ,x_msg_data => l_msg_data);
1630: if (l_return_status <> 'S') then
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
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
1647: ,x_return_status => l_return_status
1648: ,x_msg_count => l_msg_count
1649: ,x_msg_data => l_msg_data);
1650: if (l_return_status <> 'S') then
1651: raise pa_fp_constants_pkg.Invalid_Arg_Exc;
1652: end if;
1653:
1654: --Bug 4336691. The below block which, based on the approved cost/rev budgets plan settings,
1655: --could possibly update the Project Option's settings to have Date Range Time Phase or Top/Lowest
1654: --Bug 4336691. The below block which, based on the approved cost/rev budgets plan settings,
1655: --could possibly update the Project Option's settings to have Date Range Time Phase or Top/Lowest
1656: --Planning Level is not executed. Note that for Project level options, PADTRNGB.DATE_RANGE_UPGRD and
1657: --PABDGATB.BUDGET_ATTR_UPGRD will not be called in the flow.
1658: IF l_upgrade_elements_rec.curr_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
1659:
1660: --Update option with planning level,time phasing,resourcelist, amount set id,
1661: --approved_rev_plan_type_flag,approved_cost_plan_type_flag values
1662: --based upon the curr_option_preference_code and g_curr_option_budget_type_code
1660: --Update option with planning level,time phasing,resourcelist, amount set id,
1661: --approved_rev_plan_type_flag,approved_cost_plan_type_flag values
1662: --based upon the curr_option_preference_code and g_curr_option_budget_type_code
1663:
1664: IF l_upgrade_elements_rec.curr_option_level_code IN(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE,
1665: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1666: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1667: l_approved_cost_plan_type_flag := 'Y';
1668: l_approved_rev_plan_type_flag := 'N';
1661: --approved_rev_plan_type_flag,approved_cost_plan_type_flag values
1662: --based upon the curr_option_preference_code and g_curr_option_budget_type_code
1663:
1664: IF l_upgrade_elements_rec.curr_option_level_code IN(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE,
1665: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1666: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1667: l_approved_cost_plan_type_flag := 'Y';
1668: l_approved_rev_plan_type_flag := 'N';
1669: ELSIF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
1662: --based upon the curr_option_preference_code and g_curr_option_budget_type_code
1663:
1664: IF l_upgrade_elements_rec.curr_option_level_code IN(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE,
1665: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1666: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1667: l_approved_cost_plan_type_flag := 'Y';
1668: l_approved_rev_plan_type_flag := 'N';
1669: ELSIF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
1670: l_approved_cost_plan_type_flag := 'N';
1665: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1666: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
1667: l_approved_cost_plan_type_flag := 'Y';
1668: l_approved_rev_plan_type_flag := 'N';
1669: ELSIF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
1670: l_approved_cost_plan_type_flag := 'N';
1671: l_approved_rev_plan_type_flag := 'Y';
1672: ELSE
1673: l_approved_cost_plan_type_flag := 'N';
1682: /* FP M related columns upgrade is done by pa_budget_attr_upgr_pkg.budget_attr_upgrd later in the api.
1683: pa_budget_attr_upgr_pkg.budget_attr_upgrd also takes care of upgrade FP M attribs for
1684: project and plan type level records */
1685:
1686: IF l_upgrade_elements_rec.curr_option_preference_code IN ( PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,
1687: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
1688: AND (l_upgrade_elements_rec.basis_cost_bem IS NOT NULL)
1689: THEN
1690:
1683: pa_budget_attr_upgr_pkg.budget_attr_upgrd also takes care of upgrade FP M attribs for
1684: project and plan type level records */
1685:
1686: IF l_upgrade_elements_rec.curr_option_preference_code IN ( PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,
1687: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
1688: AND (l_upgrade_elements_rec.basis_cost_bem IS NOT NULL)
1689: THEN
1690:
1691: UPDATE PA_PROJ_FP_OPTIONS
1701: WHERE proj_fp_options_id = l_target_proj_fp_option_id;
1702:
1703: END IF;
1704:
1705: IF l_upgrade_elements_rec.curr_option_preference_code IN ( PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY,
1706: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
1707: AND (l_upgrade_elements_rec.basis_rev_bem IS NOT NULL)
1708: THEN
1709:
1702:
1703: END IF;
1704:
1705: IF l_upgrade_elements_rec.curr_option_preference_code IN ( PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY,
1706: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
1707: AND (l_upgrade_elements_rec.basis_rev_bem IS NOT NULL)
1708: THEN
1709:
1710: UPDATE PA_PROJ_FP_OPTIONS
1722: END IF;
1723:
1724: END IF;--Bug 4336691.
1725:
1726: IF l_upgrade_elements_rec.curr_option_level_code IN(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE,
1727: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1728:
1729: -- Get project currency info and the cost,revenue conversion attributes
1730:
1723:
1724: END IF;--Bug 4336691.
1725:
1726: IF l_upgrade_elements_rec.curr_option_level_code IN(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE,
1727: PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
1728:
1729: -- Get project currency info and the cost,revenue conversion attributes
1730:
1731: PA_FIN_PLAN_UTILS.Get_Project_Curr_Attributes
1741: ,x_msg_count => l_msg_count
1742: ,x_msg_data => l_msg_data );
1743:
1744: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1746: END IF;
1747:
1748: -- Populate the MC conversion attributes for the fp option if MC enabled
1749:
1750: IF l_project_currency_code <> l_projfunc_currency_code THEN
1751:
1752: UPDATE PA_PROJ_FP_OPTIONS
1753: SET projfunc_cost_rate_type = l_projfunc_cost_rate_type
1754: ,projfunc_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1755: ,projfunc_rev_rate_type = l_projfunc_bil_rate_type
1756: ,projfunc_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1757: ,project_cost_rate_type = l_project_cost_rate_type
1758: ,project_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1752: UPDATE PA_PROJ_FP_OPTIONS
1753: SET projfunc_cost_rate_type = l_projfunc_cost_rate_type
1754: ,projfunc_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1755: ,projfunc_rev_rate_type = l_projfunc_bil_rate_type
1756: ,projfunc_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1757: ,project_cost_rate_type = l_project_cost_rate_type
1758: ,project_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1759: ,project_rev_rate_type = l_project_bil_rate_type
1760: ,project_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1754: ,projfunc_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1755: ,projfunc_rev_rate_type = l_projfunc_bil_rate_type
1756: ,projfunc_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1757: ,project_cost_rate_type = l_project_cost_rate_type
1758: ,project_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1759: ,project_rev_rate_type = l_project_bil_rate_type
1760: ,project_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1761: WHERE proj_fp_options_id = l_target_proj_fp_option_id;
1762:
1756: ,projfunc_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1757: ,project_cost_rate_type = l_project_cost_rate_type
1758: ,project_cost_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1759: ,project_rev_rate_type = l_project_bil_rate_type
1760: ,project_rev_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE
1761: WHERE proj_fp_options_id = l_target_proj_fp_option_id;
1762:
1763: END IF;
1764:
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:
1772: END IF;
1773: pa_debug.reset_err_stack;
1774: EXCEPTION
1775:
1776: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1777:
1778: l_msg_count := FND_MSG_PUB.count_msg;
1779: IF l_msg_count = 1 THEN
1780: PA_INTERFACE_UTILS_PUB.get_messages
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;
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;
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:';
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
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:
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');
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';
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);
1898: ,x_msg_count => l_msg_count
1899: ,x_msg_data => l_msg_data);
1900:
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1903: END IF;
1904:
1905: IF l_validation_status = 'Y' THEN
1906:
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
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
1918: ,p_fin_plan_version_id => NULL
1919: ,p_fin_plan_option_level => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
1920: ,x_proj_fp_options_id => l_proj_fp_options_id
1921: ,x_upgrade_elements_rec => l_upgrade_elements_rec
1922: ,x_return_status => l_return_status
1923: ,x_msg_count => l_msg_count
1923: ,x_msg_count => l_msg_count
1924: ,x_msg_data => l_msg_data);
1925:
1926: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1927: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1928: END IF;
1929: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
1930: in pa_fp_txn_currencies. The source fp option ID is being passed as NULL as
1931: the source is determined in copy_fp_txn_currencies API in case the source is
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
1950: ,x_msg_count => l_msg_count
1951: ,x_msg_data => l_msg_data);
1952:
1953: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1954: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: END IF;
1956:
1957: -- Insert into audit table
1958: pa_fp_upgrade_pkg.Insert_Audit_Record(
1958: pa_fp_upgrade_pkg.Insert_Audit_Record(
1959: p_project_id => p_project_id
1960: ,p_budget_type_code => attached_plan_types_rec.budget_type_code
1961: ,p_proj_fp_options_id => l_proj_fp_options_id
1962: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
1963: ,p_basis_cost_version_id => l_upgrade_elements_rec.basis_cost_version_id
1964: ,p_basis_rev_version_id => l_upgrade_elements_rec.basis_rev_version_id
1965: ,p_basis_cost_bem => l_upgrade_elements_rec.basis_cost_bem
1966: ,p_basis_rev_bem => l_upgrade_elements_rec.basis_rev_bem
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
1977: pa_debug.reset_err_stack;
1978:
1979: EXCEPTION
1980:
1981: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1982:
1983: IF attached_plan_types_cur%ISOPEN THEN
1984: CLOSE attached_plan_types_cur;
1985: END IF;
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;
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;
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:';
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
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);
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:
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');
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';
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
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 --------------------------
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
2190: pa_fp_upgrade_pkg.Create_fp_options(
2191: p_project_id => p_project_id
2192: ,p_budget_type_code => l_bud_typ_code_tbl(j)
2193: ,p_fin_plan_version_id => l_budget_ver_tbl(j)
2194: ,p_fin_plan_option_level => pa_fp_constants_pkg.g_option_level_plan_version
2195: ,x_proj_fp_options_id => l_proj_fp_options_id
2196: ,x_upgrade_elements_rec => l_upgrade_elements_rec
2197: ,x_return_status => l_return_status
2198: ,x_msg_count => l_msg_count
2198: ,x_msg_count => l_msg_count
2199: ,x_msg_data => l_msg_data);
2200:
2201: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2203: END IF;
2204:
2205: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
2206: in pa_fp_txn_currencies. The source fp option ID is being passed as NULL as
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
2226: ,x_msg_count => l_msg_count
2227: ,x_msg_data => l_msg_data);
2228:
2229: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2230: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2231: END IF;
2232:
2233: --Setting the variables for upgrading budget version to fin_plan version
2234:
2233: --Setting the variables for upgrading budget version to fin_plan version
2234:
2235: --Set l_period_profile_id,l_version_type
2236:
2237: IF l_upgrade_elements_rec.curr_option_preference_code = pa_fp_constants_pkg.G_PREF_COST_ONLY THEN
2238:
2239: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
2240:
2241: ELSIF l_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
2235: --Set l_period_profile_id,l_version_type
2236:
2237: IF l_upgrade_elements_rec.curr_option_preference_code = pa_fp_constants_pkg.G_PREF_COST_ONLY THEN
2238:
2239: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
2240:
2241: ELSIF l_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
2242:
2243: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
2237: IF l_upgrade_elements_rec.curr_option_preference_code = pa_fp_constants_pkg.G_PREF_COST_ONLY THEN
2238:
2239: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
2240:
2241: ELSIF l_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
2242:
2243: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
2244:
2245: END IF;
2239: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
2240:
2241: ELSIF l_upgrade_elements_rec.curr_option_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
2242:
2243: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
2244:
2245: END IF;
2246:
2247: --Set l_approved_cost_plan_type_flag,l_approved_rev_plan_type_flag variables
2246:
2247: --Set l_approved_cost_plan_type_flag,l_approved_rev_plan_type_flag variables
2248: --using g_curr_option_budget_type_code
2249:
2250: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
2251: l_approved_cost_plan_type_flag := 'Y';
2252: l_approved_rev_plan_type_flag := 'N';
2253: ELSIF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
2254: l_approved_cost_plan_type_flag := 'N';
2249:
2250: IF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC THEN
2251: l_approved_cost_plan_type_flag := 'Y';
2252: l_approved_rev_plan_type_flag := 'N';
2253: ELSIF l_upgrade_elements_rec.curr_option_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
2254: l_approved_cost_plan_type_flag := 'N';
2255: l_approved_rev_plan_type_flag := 'Y';
2256: ELSE
2257: l_approved_cost_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. */
2267:
2280: creation_date = sysdate,
2281: created_by = fnd_global.user_id,
2282: last_update_login = fnd_global.login_id,
2283: current_working_flag = DECODE(budget_status_code,
2284: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,'Y',NULL)
2285: --Bug 4174907
2286: ,primary_cost_forecast_flag = 'N'
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:
2296: UPDATE PA_RESOURCE_ASSIGNMENTS
2297: SET resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED
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
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
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,
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)
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:
2335: -- Convert the Resource List to a Planning Resource List, if Not Already Done So.
2336:
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
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:
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:
2384:
2385: END IF; -- l_migration_code is null
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:
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:
2414: END LOOP;
2415:
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
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:
2435:
2436: IF p_pa_debug_mode = 'Y' THEN
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
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:
2454: IF p_pa_debug_mode = 'Y' THEN
2455: pa_debug.g_err_stage := 'Calling rollup_budget_version ';
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:
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:
2537: FORALL j IN 1..l_upg_non_rb_ra_id_tbl.COUNT
2538:
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.
2576: /*
2577: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
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: */
2604: /* bug 4865563: IPM Changes. Calling APIs which take care of
2605: * i. update the display_quantity new column in pa_budget_lines
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:
2622: /* populating fp_cols_rec to call the new entity maintenace API */
2623: PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls
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:
2638: /* calling the maintenance api to insert data into the new planning transaction level table */
2639: PA_RES_ASG_CURRENCY_PUB.maintain_data
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:
2656: /* If there is no budget lines for some resource assignments of the current budget versions
2657: * then, the maintenance api would not create data in the new entity. In that scenario, we have
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 */
2675:
2676: PA_FP_ROLLUP_PKG.rollup_budget_version (
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:
2691: END LOOP;
2692:
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
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:
2735: IF(l_budget_ver_tbl2.COUNT >0) THEN --Bug 8233686
2736: -- Added below for Bug# 7187487
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),
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;
2756: END IF; --Bug 8233686
2757: END; -- end of creation of proj perf data bug 7187487
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;
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
2777: pa_debug.reset_err_stack;
2778:
2779: EXCEPTION
2780:
2781: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2782:
2783: IF budgets_for_upgrade_cur%ISOPEN THEN
2784: CLOSE budgets_for_upgrade_cur;
2785: END IF;
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;
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;
2930: ,pa_fin_plan_types_b pt
2931: WHERE pt.migrated_frm_bdgt_typ_code = bt.budget_type_code
2932: AND ppfo.project_id = c_project_id
2933: AND ppfo.fin_plan_type_id = pt.fin_plan_type_id
2934: AND ppfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE)
2935: AND EXISTS
2936: (SELECT 1
2937: FROM pa_budget_versions pbv
2938: WHERE pbv.project_id = c_project_id
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
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);
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:
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');
2970: END IF;
2971:
2972: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2973: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2974: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2975:
2976: END IF;
2977:
2978: -- Fetch all the projects that are eligible for upgrade
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;
3041: ,x_msg_count => l_msg_count
3042: ,x_msg_data => l_msg_data);
3043:
3044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3045: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3046: END IF;
3047:
3048: -- Fetch all the budget/plan types that have to be attached to the project
3049: -- during upgrade.
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:
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:
3098: ,x_msg_count => l_msg_count
3099: ,x_msg_data => l_msg_data);
3100:
3101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3103: END IF;
3104:
3105: END LOOP;
3106: CLOSE attached_budget_types_cur;
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.
3129: ,x_msg_count => l_msg_count
3130: ,x_msg_data => l_msg_data);
3131:
3132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3133: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3134: END IF;
3135: END LOOP;
3136: CLOSE budgets_for_upgrade_cur;
3137:
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
3156: pa_debug.reset_err_stack;
3157:
3158: EXCEPTION
3159:
3160: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3161:
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: l_msg_count := FND_MSG_PUB.count_msg;
3164: IF l_msg_count = 1 THEN
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;
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:
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:
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',
3282:
3283: PA_UTILS.ADD_MESSAGE
3284: (p_app_short_name => 'PA',
3285: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3286: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3287: END IF;
3288:
3289: -- Set x_validation_status to 'Y' initailly as and when we hit upona exception
3290: -- we update it to 'N'
3310: ,x_msg_count => l_msg_count
3311: ,x_msg_data => l_msg_data );
3312:
3313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3314: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3315: END IF;
3316:
3317: -- check if project currency and projfunc currency are not equal
3318: -- then we require conversion attributes at project level for upgrade
3332: pa_fp_upgrade_pkg.Insert_Audit_Record(
3333: p_project_id => p_project_id
3334: ,p_budget_type_code => NULL
3335: ,p_proj_fp_options_id => NULL
3336: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT
3337: ,p_basis_cost_version_id => NULL
3338: ,p_basis_rev_version_id => NULL
3339: ,p_basis_cost_bem => NULL
3340: ,p_basis_rev_bem => NULL
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
3349: pa_debug.reset_err_stack;
3350:
3351: EXCEPTION
3352:
3353: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3354:
3355: x_validation_status := 'N';
3356: x_return_status := FND_API.G_RET_STS_ERROR;
3357: l_msg_count := FND_MSG_PUB.count_msg;
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;
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);
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:
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',
3459: (p_app_short_name => 'PA',
3460: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3461:
3462:
3463: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3464: END IF;
3465:
3466: -- Initially setting x_validation_status to yes.
3467: -- as and when we hit upon an error we set the x_validation_status to 'N'
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,
3489: x_msg_count => l_msg_count,
3490: x_msg_data => l_msg_data);
3491:
3492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3493: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3494: END IF;
3495:
3496:
3497: --Check if any budget version exists in submitted status having this budget type
3508: pa_fp_upgrade_pkg.Insert_Audit_Record(
3509: p_project_id => p_project_id
3510: ,p_budget_type_code => p_budget_type_code
3511: ,p_proj_fp_options_id => NULL
3512: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
3513: ,p_basis_cost_version_id => NULL
3514: ,p_basis_rev_version_id => NULL
3515: ,p_basis_cost_bem => NULL
3516: ,p_basis_rev_bem => 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:
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
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:
3563: END IF;
3564: RAISE;
3565: END;
3566:
3567: IF l_budget_status_code = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED THEN
3568:
3569: -- Set x_validation_status to 'N' as the this budget type and
3570: -- all the budget versions can't be upgraded.
3571:
3575: pa_fp_upgrade_pkg.Insert_Audit_Record(
3576: p_project_id => p_project_id
3577: ,p_budget_type_code => p_budget_type_code
3578: ,p_proj_fp_options_id => NULL
3579: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
3580: ,p_basis_cost_version_id => NULL
3581: ,p_basis_rev_version_id => NULL
3582: ,p_basis_cost_bem => NULL
3583: ,p_basis_rev_bem => NULL
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
3593: pa_debug.reset_err_stack;
3594:
3595: EXCEPTION
3596:
3597: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3598:
3599: x_validation_status := 'N';
3600: x_return_status := FND_API.G_RET_STS_ERROR;
3601: l_msg_count := FND_MSG_PUB.count_msg;
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;
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:
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:
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',
3708:
3709: PA_UTILS.ADD_MESSAGE
3710: (p_app_short_name => 'PA',
3711: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3712: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3713: END IF;
3714:
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;
3724:
3725: EXCEPTION
3723: pa_debug.reset_err_stack;
3724:
3725: EXCEPTION
3726:
3727: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3728: x_return_status := FND_API.G_RET_STS_ERROR;
3729: l_msg_count := FND_MSG_PUB.count_msg;
3730: IF l_msg_count = 1 THEN
3731: PA_INTERFACE_UTILS_PUB.get_messages
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;
3862:
3863: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3864: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3865:
3866: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3867:
3868: END IF;
3869:
3870: IF p_quantity_tbl.COUNT=0 THEN
4285: pa_debug.reset_curr_function;
4286:
4287: EXCEPTION
4288:
4289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4290: l_msg_count := FND_MSG_PUB.count_msg;
4291: IF l_msg_count = 1 THEN
4292: PA_INTERFACE_UTILS_PUB.get_messages
4293: (p_encoded => FND_API.G_TRUE
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:
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
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');
4446: END IF;
4447:
4448: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
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';
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
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);
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);
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:
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
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;
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:
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:
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;
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:
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;
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
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
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
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
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:
4606: /* calling the maintenance api to insert data into the new planning transaction level table */
4607: PA_RES_ASG_CURRENCY_PUB.maintain_data
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 */
4624:
4625: IF p_pa_debug_mode = 'Y' THEN
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
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
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.
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
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,
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;
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;
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;
4706: END IF;
4707:
4708: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
4709: p_fp_version_ids => l_budget_ver_tbl,
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;
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;
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;
4723: END IF;
4724:
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;
4734: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4735: END IF;
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(
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:
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;
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(
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:
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;
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(
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;
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:
4824: END IF;
4825: pa_debug.reset_err_stack;
4826: EXCEPTION
4827:
4828: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4829:
4830: IF get_proj_bv_ids_for_rup%ISOPEN THEN
4831: CLOSE get_proj_bv_ids_for_rup;
4832: END IF;
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);
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;