[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: -- Added below for Bug# 7187487
2736: for i in l_budget_ver_tbl2.first..l_budget_ver_tbl2.last loop
2735: -- Added below for Bug# 7187487
2736: for i in l_budget_ver_tbl2.first..l_budget_ver_tbl2.last loop
2737: IF p_pa_debug_mode = 'Y' THEN
2738: pa_debug.g_err_stage := 'Calling PJI Plan (Version) Baseline ';
2739: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2740: END IF;
2741:
2742: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
2743: p_baseline_version_id => l_budget_ver_tbl2(i),
2748: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2749: IF p_pa_debug_mode = 'Y' THEN
2750: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_baseline',5);
2751: END IF;
2752: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2753: END IF;
2754: end loop;
2755:
2756: END; -- end of creation of proj perf data bug 7187487
2767:
2768:
2769: IF p_pa_debug_mode = 'Y' THEN
2770: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2772:
2773: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2774: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2775: END IF;
2770: pa_debug.g_err_stage := 'Closed budgets_for_upgrade_cur ';
2771: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2772:
2773: pa_debug.g_err_stage := 'Exiting Upgrade_Budget_Versions';
2774: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2775: END IF;
2776: pa_debug.reset_err_stack;
2777:
2778: EXCEPTION
2776: pa_debug.reset_err_stack;
2777:
2778: EXCEPTION
2779:
2780: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2781:
2782: IF budgets_for_upgrade_cur%ISOPEN THEN
2783: CLOSE budgets_for_upgrade_cur;
2784: END IF;
2798: x_msg_data := l_msg_data;
2799: END IF;
2800: IF p_pa_debug_mode = 'Y' THEN
2801: pa_debug.g_err_stage:='Invalid Arguments Passed';
2802: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2803: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2804: END IF;
2805:
2806: x_return_status:= FND_API.G_RET_STS_ERROR;
2818: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2819: ,p_procedure_name => 'Upgrade_Budget_Versions');
2820: IF p_pa_debug_mode = 'Y' THEN
2821: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2822: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2823: pa_debug.write_file('Upgrade_Budget_Versions ' || pa_debug.G_Err_Stack,5);
2824: END IF;
2825: pa_debug.reset_err_stack;
2826: RAISE;
2929: ,pa_fin_plan_types_b pt
2930: WHERE pt.migrated_frm_bdgt_typ_code = bt.budget_type_code
2931: AND ppfo.project_id = c_project_id
2932: AND ppfo.fin_plan_type_id = pt.fin_plan_type_id
2933: AND ppfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE)
2934: AND EXISTS
2935: (SELECT 1
2936: FROM pa_budget_versions pbv
2937: WHERE pbv.project_id = c_project_id
2951: -- Check for business rules violations
2952:
2953: IF p_pa_debug_mode = 'Y' THEN
2954: pa_debug.g_err_stage:= 'Validating input parameters';
2955: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2956: END IF;
2957:
2958: IF (p_budget_types IS NULL) OR
2959: (p_budget_statuses IS NULL) OR
2960: (p_project_statuses IS NULL)
2961: THEN
2962: IF p_pa_debug_mode = 'Y' THEN
2963: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2964: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2965: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2966: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2967: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2962: IF p_pa_debug_mode = 'Y' THEN
2963: pa_debug.g_err_stage := 'p_budget_types='||p_budget_types;
2964: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2965: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2966: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2967: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2969: END IF;
2970:
2964: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2965: pa_debug.g_err_stage := 'p_budget_statuses='||p_budget_statuses;
2966: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2967: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
2968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2969: END IF;
2970:
2971: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2972: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2969: END IF;
2970:
2971: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2972: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2973: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2974:
2975: END IF;
2976:
2977: -- Fetch all the projects that are eligible for upgrade
3018: --Check if any types of budgets are allowed for the project using project_type_info_cur.
3019:
3020: IF p_pa_debug_mode = 'Y' THEN
3021: pa_debug.g_err_stage := 'l_project_id='||l_project_id;
3022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3023: END IF;
3024:
3025: OPEN project_type_info_cur(l_project_id);
3026: FETCH project_type_info_cur INTO project_type_info_rec;
3040: ,x_msg_count => l_msg_count
3041: ,x_msg_data => l_msg_data);
3042:
3043: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3044: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3045: END IF;
3046:
3047: -- Fetch all the budget/plan types that have to be attached to the project
3048: -- during upgrade.
3059: EXIT WHEN attached_plan_types_cur%NOTFOUND;
3060:
3061: IF p_pa_debug_mode = 'Y' THEN
3062: pa_debug.g_err_stage := 'budget_type_code='||attached_plan_types_rec.budget_type_code;
3063: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3064: END IF;
3065:
3066: -- For each budget type fetched check for all the exceptions
3067:
3083: EXIT WHEN attached_budget_types_cur%NOTFOUND;
3084:
3085: IF p_pa_debug_mode = 'Y' THEN
3086: pa_debug.g_err_stage := 'budget_type_code='||attached_budget_types_rec.budget_type_code;
3087: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3088: END IF;
3089:
3090: -- For each budget type fetched check for all the exceptions
3091:
3097: ,x_msg_count => l_msg_count
3098: ,x_msg_data => l_msg_data);
3099:
3100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3102: END IF;
3103:
3104: END LOOP;
3105: CLOSE attached_budget_types_cur;
3114: EXIT WHEN budgets_for_upgrade_cur%NOTFOUND;
3115:
3116: IF p_pa_debug_mode = 'Y' THEN
3117: pa_debug.g_err_stage := 'budget_version_id='||budgets_for_upgrade_rec.budget_version_id;
3118: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3119: END IF;
3120:
3121: -- Perform budget_version level validations necessary for UPGRADE
3122: -- The only validation that was done in this api was for mixed resource planning level.
3128: ,x_msg_count => l_msg_count
3129: ,x_msg_data => l_msg_data);
3130:
3131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3132: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3133: END IF;
3134: END LOOP;
3135: CLOSE budgets_for_upgrade_cur;
3136:
3149: END IF;
3150:
3151: IF p_pa_debug_mode = 'Y' THEN
3152: pa_debug.g_err_stage:= 'Exiting validate_budgets';
3153: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3154: END IF;
3155: pa_debug.reset_err_stack;
3156:
3157: EXCEPTION
3155: pa_debug.reset_err_stack;
3156:
3157: EXCEPTION
3158:
3159: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3160:
3161: x_return_status := FND_API.G_RET_STS_ERROR;
3162: l_msg_count := FND_MSG_PUB.count_msg;
3163: IF l_msg_count = 1 THEN
3207: ,p_procedure_name => 'validate_budgets'
3208: ,p_error_text => sqlerrm);
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3211: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3212: pa_debug.write_file('VALIDATE_BUDGETS ' || pa_debug.G_Err_Stack,5);
3213: END IF;
3214: pa_debug.reset_err_stack;
3215: RAISE;
3263:
3264: -- Check for business rules violations
3265: IF p_pa_debug_mode = 'Y' THEN
3266: pa_debug.g_err_stage:= 'Validating input parameters';
3267: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3268: END IF;
3269:
3270: --Check if plan version id is null
3271:
3273: THEN
3274:
3275: IF p_pa_debug_mode = 'Y' THEN
3276: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3277: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3278: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3279: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3280: END IF;
3281:
3275: IF p_pa_debug_mode = 'Y' THEN
3276: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3277: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3278: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3279: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3280: END IF;
3281:
3282: PA_UTILS.ADD_MESSAGE
3283: (p_app_short_name => 'PA',
3281:
3282: PA_UTILS.ADD_MESSAGE
3283: (p_app_short_name => 'PA',
3284: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3285: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3286: END IF;
3287:
3288: -- Set x_validation_status to 'Y' initailly as and when we hit upona exception
3289: -- we update it to 'N'
3309: ,x_msg_count => l_msg_count
3310: ,x_msg_data => l_msg_data );
3311:
3312: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3313: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3314: END IF;
3315:
3316: -- check if project currency and projfunc currency are not equal
3317: -- then we require conversion attributes at project level for upgrade
3331: pa_fp_upgrade_pkg.Insert_Audit_Record(
3332: p_project_id => p_project_id
3333: ,p_budget_type_code => NULL
3334: ,p_proj_fp_options_id => NULL
3335: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT
3336: ,p_basis_cost_version_id => NULL
3337: ,p_basis_rev_version_id => NULL
3338: ,p_basis_cost_bem => NULL
3339: ,p_basis_rev_bem => NULL
3342:
3343: END IF;
3344: IF p_pa_debug_mode = 'Y' THEN
3345: pa_debug.g_err_stage:= 'Exiting validate_project';
3346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3347: END IF;
3348: pa_debug.reset_err_stack;
3349:
3350: EXCEPTION
3348: pa_debug.reset_err_stack;
3349:
3350: EXCEPTION
3351:
3352: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3353:
3354: x_validation_status := 'N';
3355: x_return_status := FND_API.G_RET_STS_ERROR;
3356: l_msg_count := FND_MSG_PUB.count_msg;
3386: ,p_procedure_name => 'VALIDATE_PROJECT'
3387: ,p_error_text => sqlerrm);
3388: IF p_pa_debug_mode = 'Y' THEN
3389: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3390: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3391: pa_debug.write_file('VALIDATE_PROJECT ' || pa_debug.G_Err_Stack,5);
3392: END IF;
3393: pa_debug.reset_err_stack;
3394: RAISE;
3446: THEN
3447:
3448: IF p_pa_debug_mode = 'Y' THEN
3449: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3450: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3451: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3453: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3454: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3448: IF p_pa_debug_mode = 'Y' THEN
3449: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
3450: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3451: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3453: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3454: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3455: END IF;
3456:
3450: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3451: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
3452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3453: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3454: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3455: END IF;
3456:
3457: PA_UTILS.ADD_MESSAGE
3458: (p_app_short_name => 'PA',
3458: (p_app_short_name => 'PA',
3459: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3460:
3461:
3462: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3463: END IF;
3464:
3465: -- Initially setting x_validation_status to yes.
3466: -- as and when we hit upon an error we set the x_validation_status to 'N'
3471: --Check if budetary controls exist for the budget type and project combination.
3472:
3473: IF p_pa_debug_mode = 'Y' THEN
3474: pa_debug.g_err_stage := 'Calling get_budget_ctrl_options';
3475: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3476: END IF;
3477:
3478: PA_BUDGET_FUND_PKG.get_budget_ctrl_options (
3479: p_project_id => p_project_id,
3488: x_msg_count => l_msg_count,
3489: x_msg_data => l_msg_data);
3490:
3491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3492: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3493: END IF;
3494:
3495:
3496: --Check if any budget version exists in submitted status having this budget type
3507: pa_fp_upgrade_pkg.Insert_Audit_Record(
3508: p_project_id => p_project_id
3509: ,p_budget_type_code => p_budget_type_code
3510: ,p_proj_fp_options_id => NULL
3511: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
3512: ,p_basis_cost_version_id => NULL
3513: ,p_basis_rev_version_id => NULL
3514: ,p_basis_cost_bem => NULL
3515: ,p_basis_rev_bem => NULL
3520: -- Check if for the budget type if any of the budget versions to be upgraded is in
3521: -- submitted status. if so don't upgrade.
3522: IF p_pa_debug_mode = 'Y' THEN
3523: pa_debug.g_err_stage := 'Calling get_draft_version_id';
3524: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3525: END IF;
3526:
3527: l_draft_version_id := Null;
3528:
3539:
3540: IF l_draft_version_id IS NOT NULL THEN
3541: IF p_pa_debug_mode = 'Y' THEN
3542: pa_debug.g_err_stage := 'draft_version_id = '|| l_draft_version_id;
3543: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3544: END IF;
3545:
3546: -- The draft version id fetched may be either working or submitted version
3547: -- If the draft version is in submitted status this budget type can't be upgraded
3557: CLOSE attached_plan_types_cur;
3558: END IF;
3559: IF p_pa_debug_mode = 'Y' THEN
3560: pa_debug.g_err_stage:='draft_version_id is null or invalid'||SQLERRM;
3561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3562: END IF;
3563: RAISE;
3564: END;
3565:
3562: END IF;
3563: RAISE;
3564: END;
3565:
3566: IF l_budget_status_code = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED THEN
3567:
3568: -- Set x_validation_status to 'N' as the this budget type and
3569: -- all the budget versions can't be upgraded.
3570:
3574: pa_fp_upgrade_pkg.Insert_Audit_Record(
3575: p_project_id => p_project_id
3576: ,p_budget_type_code => p_budget_type_code
3577: ,p_proj_fp_options_id => NULL
3578: ,p_fin_plan_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
3579: ,p_basis_cost_version_id => NULL
3580: ,p_basis_rev_version_id => NULL
3581: ,p_basis_cost_bem => NULL
3582: ,p_basis_rev_bem => NULL
3586: END IF;
3587:
3588: IF p_pa_debug_mode = 'Y' THEN
3589: pa_debug.g_err_stage:= 'Exiting VALIDATE_PROJECT_PLAN_TYPE';
3590: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3591: END IF;
3592: pa_debug.reset_err_stack;
3593:
3594: EXCEPTION
3592: pa_debug.reset_err_stack;
3593:
3594: EXCEPTION
3595:
3596: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3597:
3598: x_validation_status := 'N';
3599: x_return_status := FND_API.G_RET_STS_ERROR;
3600: l_msg_count := FND_MSG_PUB.count_msg;
3630: ,p_procedure_name => 'VALIDATE_PROJECT_PLAN_TYPE'
3631: ,p_error_text => sqlerrm);
3632: IF p_pa_debug_mode = 'Y' THEN
3633: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3634: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3635: pa_debug.write_file('VALIDATE_PROJECT_PLAN_TYPE ' || pa_debug.G_Err_Stack,5);
3636: END IF;
3637: pa_debug.reset_err_stack;
3638: RAISE;
3690:
3691: -- Check for business rules violations
3692: IF p_pa_debug_mode = 'Y' THEN
3693: pa_debug.g_err_stage:= 'Validating input parameters';
3694: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3695: END IF;
3696:
3697: --Check if plan version id is null
3698:
3699: IF (p_budget_version_id IS NULL)
3700: THEN
3701: IF p_pa_debug_mode = 'Y' THEN
3702: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3703: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3704: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3705: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3706: END IF;
3707:
3701: IF p_pa_debug_mode = 'Y' THEN
3702: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
3703: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3704: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3705: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3706: END IF;
3707:
3708: PA_UTILS.ADD_MESSAGE
3709: (p_app_short_name => 'PA',
3707:
3708: PA_UTILS.ADD_MESSAGE
3709: (p_app_short_name => 'PA',
3710: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3711: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3712: END IF;
3713:
3714: OPEN budget_version_info_cur(p_budget_version_id);
3715: FETCH budget_version_info_cur INTO budget_version_info_rec;
3716: CLOSE budget_version_info_cur;
3717:
3718: IF p_pa_debug_mode = 'Y' THEN
3719: pa_debug.g_err_stage:= 'Exiting validate_budget_version';
3720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3721: END IF;
3722: pa_debug.reset_err_stack;
3723:
3724: EXCEPTION
3722: pa_debug.reset_err_stack;
3723:
3724: EXCEPTION
3725:
3726: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3727: x_return_status := FND_API.G_RET_STS_ERROR;
3728: l_msg_count := FND_MSG_PUB.count_msg;
3729: IF l_msg_count = 1 THEN
3730: PA_INTERFACE_UTILS_PUB.get_messages
3757: ,p_procedure_name => 'VALIDATE_BUDGET_VERSION'
3758: ,p_error_text => SQLERRM);
3759: IF p_pa_debug_mode = 'Y' THEN
3760: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3761: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3762: pa_debug.write_file('VALIDATE_BUDGET_VERSION ' || pa_debug.G_Err_Stack,5);
3763: END IF;
3764: pa_debug.reset_err_stack;
3765: RAISE;
3861:
3862: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3863: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3864:
3865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3866:
3867: END IF;
3868:
3869: IF p_quantity_tbl.COUNT=0 THEN
4284: pa_debug.reset_curr_function;
4285:
4286: EXCEPTION
4287:
4288: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4289: l_msg_count := FND_MSG_PUB.count_msg;
4290: IF l_msg_count = 1 THEN
4291: PA_INTERFACE_UTILS_PUB.get_messages
4292: (p_encoded => FND_API.G_TRUE
4432: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4433:
4434: IF p_pa_debug_mode = 'Y' THEN
4435: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4437: pa_debug.g_err_stage := 'Checking for valid parameters';
4438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4439: END IF;
4440:
4434: IF p_pa_debug_mode = 'Y' THEN
4435: pa_debug.g_err_stage := 'Entered rollup_rejected_bl_amounts';
4436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4437: pa_debug.g_err_stage := 'Checking for valid parameters';
4438: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4439: END IF;
4440:
4441: IF p_project_statuses IS NULL THEN
4442: IF p_pa_debug_mode = 'Y' THEN
4440:
4441: IF p_project_statuses IS NULL THEN
4442: IF p_pa_debug_mode = 'Y' THEN
4443: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4444: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4445: END IF;
4446:
4447: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4448: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4445: END IF;
4446:
4447: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4448: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4449: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4450: END IF;
4451:
4452: IF p_pa_debug_mode = 'Y' THEN
4453: pa_debug.g_err_stage := 'Parameter validation complete';
4450: END IF;
4451:
4452: IF p_pa_debug_mode = 'Y' THEN
4453: pa_debug.g_err_stage := 'Parameter validation complete';
4454: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4455: END IF;
4456:
4457: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4458: IF p_pa_debug_mode = 'Y' THEN
4456:
4457: -- Fetch all the projects whose budget's lines amounts need to be rolled up.
4458: IF p_pa_debug_mode = 'Y' THEN
4459: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4460: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4461: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4462: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4463: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4464: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4458: IF p_pa_debug_mode = 'Y' THEN
4459: pa_debug.g_err_stage := 'opening get_proj_bv_ids_for_rup';
4460: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4461: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4462: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4463: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4464: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4465: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4466: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4460: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4461: pa_debug.g_err_stage := 'p_from_project_number = '||p_from_project_number;
4462: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4463: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4464: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4465: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4466: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4467: END IF;
4468:
4462: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4463: pa_debug.g_err_stage := 'p_to_project_number = '|| p_to_project_number;
4464: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4465: pa_debug.g_err_stage := 'p_project_statuses='||p_project_statuses;
4466: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4467: END IF;
4468:
4469: OPEN get_proj_bv_ids_for_rup(p_from_project_number,p_to_project_number,p_project_statuses,p_fin_plan_type_id);
4470: LOOP
4472: EXIT WHEN get_proj_bv_ids_for_rup%NOTFOUND;
4473:
4474: IF p_pa_debug_mode = 'Y' THEN
4475: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4476: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4477:
4478: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4479: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4480: END IF;
4475: pa_debug.g_err_stage := 'Project_id ='||l_project_id;
4476: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4477:
4478: pa_debug.g_err_stage := 'Opening get_fin_plan_versions'||l_project_id;
4479: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4480: END IF;
4481:
4482: savepoint rollup_bl_amounts_to_bv;
4483:
4513: /* End of fix for bug 5084161 */
4514:
4515: IF p_pa_debug_mode = 'Y' THEN
4516: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4517: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4518:
4519: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4520: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4521:
4516: pa_debug.g_err_stage := 'Budget Version Id ='||l_bv_id;
4517: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4518:
4519: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4520: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4521:
4522: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4523: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4524: END IF;
4519: pa_debug.g_err_stage := 'Change Order/Req ID ='||l_ci_id;
4520: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4521:
4522: pa_debug.g_err_stage := 'l_ci_status_code / l_process_flag = ' || l_ci_status_code || '/' || l_process_flag;
4523: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4524: END IF;
4525:
4526: IF l_process_flag = 'Y' THEN /* 5084161 */
4527:
4537:
4538:
4539: IF p_pa_debug_mode = 'Y' THEN
4540: pa_debug.g_err_stage := 'Deleting the pl/sql tables before locking the records.';
4541: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4542: END IF;
4543:
4544:
4545: l_rtx_ra_id_tbl.delete;
4546: l_ra_id_tbl.delete ;
4547:
4548: IF p_pa_debug_mode = 'Y' THEN
4549: pa_debug.g_err_stage := 'Successfully Deleted the pl/sql tables.';
4550: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4551: END IF;
4552:
4553: SELECT bv.budget_version_id INTO l_budg_ver_id
4554: FROM pa_budget_versions bv
4556: FOR UPDATE OF bv.budget_version_id NOWAIT;
4557:
4558: IF p_pa_debug_mode = 'Y' THEN
4559: pa_debug.g_err_stage := 'Successfully locked the budget version records';
4560: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4561: END IF;
4562:
4563: SELECT rtx.resource_assignment_id BULK COLLECT INTO l_rtx_ra_id_tbl
4564: FROM pa_resource_asgn_curr rtx
4566: FOR UPDATE OF rtx.resource_assignment_id NOWAIT;
4567:
4568: IF p_pa_debug_mode = 'Y' THEN
4569: pa_debug.g_err_stage := 'Successfully locked the resource assign curr records';
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4571: END IF;
4572:
4573:
4574: SELECT ra.resource_assignment_id BULK COLLECT INTO l_ra_id_tbl
4577: FOR UPDATE OF ra.resource_assignment_id NOWAIT;
4578:
4579: IF p_pa_debug_mode = 'Y' THEN
4580: pa_debug.g_err_stage := 'Successfully locked the resource assignment records';
4581: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4582: END IF;
4583:
4584:
4585: -- Process each Budget version here
4598: THEN
4599: IF p_pa_debug_mode = 'Y' THEN
4600: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
4601: END IF;
4602: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4603: END IF;
4604:
4605: /* calling the maintenance api to insert data into the new planning transaction level table */
4606: PA_RES_ASG_CURRENCY_PUB.maintain_data
4616: THEN
4617: IF p_pa_debug_mode = 'Y' THEN
4618: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
4619: END IF;
4620: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
4621: END IF;
4622: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4623:
4624: IF p_pa_debug_mode = 'Y' THEN
4622: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to maintain_data api */
4623:
4624: IF p_pa_debug_mode = 'Y' THEN
4625: pa_debug.g_err_stage := 'Updated the resource assign curr amts from budget lines';
4626: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4627: END IF;
4628:
4629:
4630: -- Rollup the totals onto the RA
4640:
4641: /* Bug 5098818 - End - Replaced exclusive update stmt with a call to already existing rollup_budget api */
4642: IF p_pa_debug_mode = 'Y' THEN
4643: pa_debug.g_err_stage := 'Updated the resource assignment amts from resource assign curr';
4644: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4645: END IF;
4646:
4647: -- Auditing the RA ID records.
4648: FORALL i IN l_ra_id_tbl.FIRST..l_ra_id_tbl.LAST
4664: ,l_ra_id_tbl(i));
4665:
4666: IF p_pa_debug_mode = 'Y' THEN
4667: pa_debug.g_err_stage := 'Audited the resource assignment IDs';
4668: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4669: END IF;
4670:
4671: -- Sync'ing up the amounts in the PJI model by calling the PJI APIs.
4672: -- The business rule is that we should not call the PJI APIs for CO/CR.
4672: -- The business rule is that we should not call the PJI APIs for CO/CR.
4673:
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage := 'Before calling PJI APIs';
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4677: END IF;
4678:
4679:
4680: IF l_ci_id IS NULL THEN
4683: l_budget_ver_tbl(1) := l_bv_id;
4684:
4685: IF p_pa_debug_mode = 'Y' THEN
4686: pa_debug.g_err_stage := 'Before calling PJI API PLAN_DELETE for budget ver '||l_bv_id;
4687: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4688: END IF;
4689:
4690: PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE (
4691: p_fp_version_ids => l_budget_ver_tbl,
4693: x_msg_code => l_error_msg_code);
4694:
4695: IF p_pa_debug_mode = 'Y' THEN
4696: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4697: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4698:
4699: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4700: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4701: END IF;
4696: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_DELETE is '||x_return_status;
4697: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4698:
4699: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_DELETE is '||l_error_msg_code;
4700: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4701: END IF;
4702:
4703: IF (l_return_status <> 'S') THEN
4704: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4700: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4701: END IF;
4702:
4703: IF (l_return_status <> 'S') THEN
4704: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4705: END IF;
4706:
4707: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
4708: p_fp_version_ids => l_budget_ver_tbl,
4710: x_msg_code => l_error_msg_code);
4711:
4712: IF p_pa_debug_mode = 'Y' THEN
4713: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4714: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4715:
4716: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4717: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4718: END IF;
4713: pa_debug.g_err_stage := 'The rtn sts of PJI API PLAN_CREATE is '||x_return_status;
4714: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4715:
4716: pa_debug.g_err_stage := 'The msg code of PJI API PLAN_CREATE is '||l_error_msg_code;
4717: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4718: END IF;
4719:
4720: IF (l_return_status <> 'S') THEN
4721: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4717: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4718: END IF;
4719:
4720: IF (l_return_status <> 'S') THEN
4721: RAISE pa_fp_constants_pkg.Invalid_Arg_Exc;
4722: END IF;
4723:
4724: END IF;
4725:
4726: -- Now Audit the Budget version level record change
4727:
4728: IF p_pa_debug_mode = 'Y' THEN
4729: pa_debug.g_err_stage := 'Auditing the budget version ';
4730: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4731:
4732: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4733: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4734: END IF;
4729: pa_debug.g_err_stage := 'Auditing the budget version ';
4730: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4731:
4732: pa_debug.g_err_stage := 'The budget version proj fp id is '||l_op_id;
4733: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4734: END IF;
4735:
4736:
4737: pa_fp_upgrade_pkg.Insert_Audit_Record(
4753: just keep on going */
4754:
4755: IF p_pa_debug_mode = 'Y' THEN
4756: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4757: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4758:
4759: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4760: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4761:
4756: pa_debug.g_err_stage := 'inside Bdgts loop:Record is locked ';
4757: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4758:
4759: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4760: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4761:
4762: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4763: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4764: END IF;
4759: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4760: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4761:
4762: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4763: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4764: END IF;
4765:
4766: rollback to rollup_bl_amounts_to_bv;
4767: pa_fp_upgrade_pkg.Insert_Audit_Record(
4780: WHEN OTHERS THEN
4781:
4782: IF p_pa_debug_mode = 'Y' THEN
4783: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4785:
4786: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4788:
4783: pa_debug.g_err_stage := 'inside Bdgts loop:When others and sqlcode is '||sqlcode;
4784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4785:
4786: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4788:
4789: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4790: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4791: END IF;
4786: pa_debug.g_err_stage := 'The proj id is '||l_project_id;
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4788:
4789: pa_debug.g_err_stage := 'The proj fp id is '||l_op_id;
4790: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4791: END IF;
4792:
4793: rollback to rollup_bl_amounts_to_bv;
4794: pa_fp_upgrade_pkg.Insert_Audit_Record(
4816: END LOOP;
4817: CLOSE get_proj_bv_ids_for_rup;
4818: IF p_pa_debug_mode = 'Y' THEN
4819: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4821: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4822: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4823: END IF;
4824: pa_debug.reset_err_stack;
4818: IF p_pa_debug_mode = 'Y' THEN
4819: pa_debug.g_err_stage := 'Closed get_proj_bv_ids_for_rup';
4820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4821: pa_debug.g_err_stage := 'Exiting rollup_rejected_bl_amounts';
4822: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4823: END IF;
4824: pa_debug.reset_err_stack;
4825: EXCEPTION
4826:
4823: END IF;
4824: pa_debug.reset_err_stack;
4825: EXCEPTION
4826:
4827: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4828:
4829: IF get_proj_bv_ids_for_rup%ISOPEN THEN
4830: CLOSE get_proj_bv_ids_for_rup;
4831: END IF;
4846: END IF;
4847:
4848: IF p_pa_debug_mode = 'Y' THEN
4849: pa_debug.g_err_stage:='Invalid Arguments Passed';
4850: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4851: END IF;
4852: x_return_status:= FND_API.G_RET_STS_ERROR;
4853: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4867: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
4868: ,p_procedure_name => 'Rollup_rejected_bl_ampunts');
4869: IF p_pa_debug_mode = 'Y' THEN
4870: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4871: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4872: END IF;
4873: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project'||l_project_id,5);
4874: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||pa_debug.G_Err_Stack,5);
4875: pa_debug.reset_err_stack;