[Home] [Help]
1: PACKAGE BODY Pa_Fp_Control_Items_Utils AS
2: /* $Header: PAFPCIUB.pls 120.15.12020000.2 2012/07/19 09:36:22 admarath ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_CONTROL_ITEM_UTILS';
5:
6: --Bug 5845142. These variables are only for internal usage of check_valid_combo(for cvc) function
7: --and should not be used in other procedures/functions
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: x_msg_count := 0;
47: x_no_of_ci_plan_versions := 0;
48: x_margin_derived_from_code := 'B';
49: IF P_PA_DEBUG_MODE = 'Y' THEN
50: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
51: END IF;
52: FND_MSG_PUB.initialize;
53:
46: x_msg_count := 0;
47: x_no_of_ci_plan_versions := 0;
48: x_margin_derived_from_code := 'B';
49: IF P_PA_DEBUG_MODE = 'Y' THEN
50: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
51: END IF;
52: FND_MSG_PUB.initialize;
53:
54: x_ci_est_qty := pa_fin_plan_utils.Get_Approved_Budget_Ver_Qty(
301: ELSIF l_rev_budget_flag = 'Y' AND l_cost_budget_flag = 'Y' THEN
302: x_fp_pref_code := 'COST_AND_REV_SEP';
303: END IF;
304: END IF;
305: Pa_Debug.Reset_Err_Stack;
306: EXCEPTION
307: WHEN OTHERS THEN
308: FND_MSG_PUB.Add_Exc_Msg(
309: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
306: EXCEPTION
307: WHEN OTHERS THEN
308: FND_MSG_PUB.Add_Exc_Msg(
309: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
310: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
314: pa_debug.reset_err_stack;
307: WHEN OTHERS THEN
308: FND_MSG_PUB.Add_Exc_Msg(
309: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
310: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
314: pa_debug.reset_err_stack;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: FND_MSG_PUB.Add_Exc_Msg(
309: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
310: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
314: pa_debug.reset_err_stack;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: RAISE;
310: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
314: pa_debug.reset_err_stack;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: RAISE;
317: END Get_Fin_Plan_Dtls;
318:
355: l_debug_mode VARCHAR2(30);
356:
357: BEGIN
358:
359: IF P_PA_DEBUG_MODE = 'Y' THEN
360: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
361: END IF;
362:
363: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
356:
357: BEGIN
358:
359: IF P_PA_DEBUG_MODE = 'Y' THEN
360: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
361: END IF;
362:
363: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
364: l_debug_mode := NVL(l_debug_mode, 'Y');
359: IF P_PA_DEBUG_MODE = 'Y' THEN
360: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
361: END IF;
362:
363: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
364: l_debug_mode := NVL(l_debug_mode, 'Y');
365:
366: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
367:
362:
363: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
364: l_debug_mode := NVL(l_debug_mode, 'Y');
365:
366: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
367:
368: SELECT
369: pacitl.name into x_ci_type_name
370: FROM pa_control_items paci, pa_ci_types_tl pacitl
373: and paci.ci_type_id = pacitl.ci_type_id
374: and pacitl.language = userenv('lang');
375:
376: IF x_ci_type_name IS NULL THEN
377: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
380: END IF;
381: END IF;
374: and pacitl.language = userenv('lang');
375:
376: IF x_ci_type_name IS NULL THEN
377: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
380: END IF;
381: END IF;
382: pa_debug.reset_err_stack;
375:
376: IF x_ci_type_name IS NULL THEN
377: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
380: END IF;
381: END IF;
382: pa_debug.reset_err_stack;
383: EXCEPTION
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
380: END IF;
381: END IF;
382: pa_debug.reset_err_stack;
383: EXCEPTION
384: WHEN NO_DATA_FOUND THEN
385: null;
386: WHEN OTHERS THEN
385: null;
386: WHEN OTHERS THEN
387: FND_MSG_PUB.add_exc_msg(
388: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
389: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
390: IF P_PA_DEBUG_MODE = 'Y' THEN
391: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
392: END IF;
393: pa_debug.reset_err_stack;
386: WHEN OTHERS THEN
387: FND_MSG_PUB.add_exc_msg(
388: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
389: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
390: IF P_PA_DEBUG_MODE = 'Y' THEN
391: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
392: END IF;
393: pa_debug.reset_err_stack;
394: END get_finplan_ci_type_name;
387: FND_MSG_PUB.add_exc_msg(
388: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
389: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
390: IF P_PA_DEBUG_MODE = 'Y' THEN
391: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
392: END IF;
393: pa_debug.reset_err_stack;
394: END get_finplan_ci_type_name;
395:
389: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
390: IF P_PA_DEBUG_MODE = 'Y' THEN
391: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
392: END IF;
393: pa_debug.reset_err_stack;
394: END get_finplan_ci_type_name;
395:
396: PROCEDURE get_fp_ci_agreement_dtls
397: (
407: IS
408: l_debug_mode varchar2(30) := 'Y';
409:
410: BEGIN
411: IF P_PA_DEBUG_MODE = 'Y' THEN
412: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
413: END IF;
414:
415: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
408: l_debug_mode varchar2(30) := 'Y';
409:
410: BEGIN
411: IF P_PA_DEBUG_MODE = 'Y' THEN
412: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
413: END IF;
414:
415: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
416: l_debug_mode := NVL(l_debug_mode, 'Y');
411: IF P_PA_DEBUG_MODE = 'Y' THEN
412: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
413: END IF;
414:
415: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
416: l_debug_mode := NVL(l_debug_mode, 'Y');
417: SELECT pg.agreement_num,
418: pg.amount,
419: pg.agreement_currency_code
428: and bv.version_type in ('REVENUE','ALL'); -- Raja FP M Change Bug 3619687
429: --and rownum < 2;
430:
431: IF x_agreement_num IS NULL THEN
432: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
435: END IF;
436: END IF;
429: --and rownum < 2;
430:
431: IF x_agreement_num IS NULL THEN
432: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
435: END IF;
436: END IF;
437: IF x_agreement_amount IS NULL THEN
430:
431: IF x_agreement_num IS NULL THEN
432: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
435: END IF;
436: END IF;
437: IF x_agreement_amount IS NULL THEN
438: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
435: END IF;
436: END IF;
437: IF x_agreement_amount IS NULL THEN
438: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
439: IF P_PA_DEBUG_MODE = 'Y' THEN
440: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
441: END IF;
442: END IF;
435: END IF;
436: END IF;
437: IF x_agreement_amount IS NULL THEN
438: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
439: IF P_PA_DEBUG_MODE = 'Y' THEN
440: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
441: END IF;
442: END IF;
443: IF x_agreement_currency_code IS NULL THEN
436: END IF;
437: IF x_agreement_amount IS NULL THEN
438: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
439: IF P_PA_DEBUG_MODE = 'Y' THEN
440: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
441: END IF;
442: END IF;
443: IF x_agreement_currency_code IS NULL THEN
444: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
440: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
441: END IF;
442: END IF;
443: IF x_agreement_currency_code IS NULL THEN
444: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
447: END IF;
448: END IF;
441: END IF;
442: END IF;
443: IF x_agreement_currency_code IS NULL THEN
444: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
447: END IF;
448: END IF;
449: pa_debug.reset_err_stack;
442: END IF;
443: IF x_agreement_currency_code IS NULL THEN
444: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
447: END IF;
448: END IF;
449: pa_debug.reset_err_stack;
450: EXCEPTION
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
447: END IF;
448: END IF;
449: pa_debug.reset_err_stack;
450: EXCEPTION
451: WHEN NO_DATA_FOUND THEN
452: null;
453: WHEN OTHERS THEN
452: null;
453: WHEN OTHERS THEN
454: FND_MSG_PUB.add_exc_msg(
455: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
456: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
457: IF P_PA_DEBUG_MODE = 'Y' THEN
458: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
459: END IF;
460: pa_debug.reset_err_stack;
453: WHEN OTHERS THEN
454: FND_MSG_PUB.add_exc_msg(
455: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
456: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
457: IF P_PA_DEBUG_MODE = 'Y' THEN
458: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
459: END IF;
460: pa_debug.reset_err_stack;
461: END get_fp_ci_agreement_dtls;
454: FND_MSG_PUB.add_exc_msg(
455: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
456: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
457: IF P_PA_DEBUG_MODE = 'Y' THEN
458: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
459: END IF;
460: pa_debug.reset_err_stack;
461: END get_fp_ci_agreement_dtls;
462:
456: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
457: IF P_PA_DEBUG_MODE = 'Y' THEN
458: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
459: END IF;
460: pa_debug.reset_err_stack;
461: END get_fp_ci_agreement_dtls;
462:
463: /*********************************************************************
464: This procedure is called while merging change requests into
489: -- Local Variable Declaration
490: l_debug_mode VARCHAR2(30);
491:
492: BEGIN
493: IF P_PA_DEBUG_MODE = 'Y' THEN
494: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
495: END IF;
496: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
497: l_debug_mode := NVL(l_debug_mode, 'Y');
490: l_debug_mode VARCHAR2(30);
491:
492: BEGIN
493: IF P_PA_DEBUG_MODE = 'Y' THEN
494: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
495: END IF;
496: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
497: l_debug_mode := NVL(l_debug_mode, 'Y');
498: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
492: BEGIN
493: IF P_PA_DEBUG_MODE = 'Y' THEN
494: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
495: END IF;
496: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
497: l_debug_mode := NVL(l_debug_mode, 'Y');
498: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
499: x_return_status := FND_API.G_RET_STS_SUCCESS;
500: x_msg_count := 0;
494: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
495: END IF;
496: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
497: l_debug_mode := NVL(l_debug_mode, 'Y');
498: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
499: x_return_status := FND_API.G_RET_STS_SUCCESS;
500: x_msg_count := 0;
501: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 1');
502: --Get the column values for this budget version id and project id combination
581: WHEN OTHERS THEN
582: FND_MSG_PUB.add_exc_msg
583: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
584: 'FP_CI_GET_VERSION_DETAILS'
585: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
586: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
583: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
584: 'FP_CI_GET_VERSION_DETAILS'
585: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
586: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
584: 'FP_CI_GET_VERSION_DETAILS'
585: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
586: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: PA_DEBUG.Reset_Curr_Function;
585: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
586: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: PA_DEBUG.Reset_Curr_Function;
593: RAISE;
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: PA_DEBUG.Reset_Curr_Function;
593: RAISE;
594: END FP_CI_GET_VERSION_DETAILS;
595: -- end of FP_CI_GET_VERSION_DETAILS
596:
694: l_s_app_rev_flag pa_budget_versions.approved_rev_plan_type_flag%TYPE;
695: l_t_app_rev_flag pa_budget_versions.approved_rev_plan_type_flag%TYPE;
696:
697: BEGIN
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
700: END IF;
701: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
702: l_debug_mode := NVL(l_debug_mode, 'Y');
695: l_t_app_rev_flag pa_budget_versions.approved_rev_plan_type_flag%TYPE;
696:
697: BEGIN
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
700: END IF;
701: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
702: l_debug_mode := NVL(l_debug_mode, 'Y');
703: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
697: BEGIN
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
700: END IF;
701: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
702: l_debug_mode := NVL(l_debug_mode, 'Y');
703: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705: x_msg_count := 0;
699: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
700: END IF;
701: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
702: l_debug_mode := NVL(l_debug_mode, 'Y');
703: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705: x_msg_count := 0;
706: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
707: -- The API is sure to have ONE target version id for merge check
706: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
707: -- The API is sure to have ONE target version id for merge check
708:
709: IF l_debug_mode = 'Y' THEN
710: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
712:
713: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
707: -- The API is sure to have ONE target version id for merge check
708:
709: IF l_debug_mode = 'Y' THEN
710: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
712:
713: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
715: END IF;
709: IF l_debug_mode = 'Y' THEN
710: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
712:
713: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
715: END IF;
716:
717: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
710: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
712:
713: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
715: END IF;
716:
717: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
718: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
716:
717: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
718: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
719: IF l_debug_mode = 'Y' THEN
720: pa_debug.g_err_stage:='p_source_fp_version_id_tbl = ' || p_source_fp_version_id_tbl(i);
721: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
722: END IF;
723: END LOOP;
724: END IF;
717: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
718: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
719: IF l_debug_mode = 'Y' THEN
720: pa_debug.g_err_stage:='p_source_fp_version_id_tbl = ' || p_source_fp_version_id_tbl(i);
721: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
722: END IF;
723: END LOOP;
724: END IF;
725:
1011: END IF;
1012: END IF;
1013:
1014: IF l_debug_mode = 'Y' THEN
1015: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1017:
1018: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
1019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1012: END IF;
1013:
1014: IF l_debug_mode = 'Y' THEN
1015: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1017:
1018: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
1019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1020: END IF;
1014: IF l_debug_mode = 'Y' THEN
1015: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1017:
1018: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
1019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1020: END IF;
1021:
1022: --Added agreement check for P2 bug 2724156
1015: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1017:
1018: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
1019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1020: END IF;
1021:
1022: --Added agreement check for P2 bug 2724156
1023: IF (l_s_version_type IN ('REVENUE','ALL') AND l_t_version_type IN ('REVENUE','ALL')) THEN
1033: FROM pa_budget_versions
1034: where budget_version_id = l_t_version_id;
1035:
1036: IF l_debug_mode = 'Y' THEN
1037: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1038: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1039:
1040: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1034: where budget_version_id = l_t_version_id;
1035:
1036: IF l_debug_mode = 'Y' THEN
1037: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1038: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1039:
1040: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1036: IF l_debug_mode = 'Y' THEN
1037: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1038: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1039:
1040: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1043:
1044: --Bug 5845142. Since its possible for the cost impact to be of ALL version type throw the
1037: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1038: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1039:
1040: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1043:
1044: --Bug 5845142. Since its possible for the cost impact to be of ALL version type throw the
1045: --error only for revenue impacts
1059: END IF;
1060: END IF;
1061:
1062: IF l_debug_mode = 'Y' THEN
1063: pa_debug.g_err_stage:='Error: ' || l_raise_error_flag;
1064: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1065: END IF;
1066:
1067: --end of agreement check for P2 bug 2724156
1060: END IF;
1061:
1062: IF l_debug_mode = 'Y' THEN
1063: pa_debug.g_err_stage:='Error: ' || l_raise_error_flag;
1064: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1065: END IF;
1066:
1067: --end of agreement check for P2 bug 2724156
1068: IF (l_raise_error_flag = 'Y') THEN
1109: if l_ci_number is not null then
1110: l_chg_doc_token := l_chg_doc_token ||'('||l_ci_number ||')';
1111: end if;
1112: IF l_debug_mode = 'Y' THEN
1113: pa_debug.g_err_stage:='Token: ' || l_chg_doc_token;
1114: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1115: END IF;
1116: exception
1117: when no_data_found then
1110: l_chg_doc_token := l_chg_doc_token ||'('||l_ci_number ||')';
1111: end if;
1112: IF l_debug_mode = 'Y' THEN
1113: pa_debug.g_err_stage:='Token: ' || l_chg_doc_token;
1114: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1115: END IF;
1116: exception
1117: when no_data_found then
1118: l_count := 0;
1522: WHEN OTHERS THEN
1523: FND_MSG_PUB.add_exc_msg
1524: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1525: 'FP_CI_CHECK_MERGE_POSSIBLE'
1526: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1527: IF P_PA_DEBUG_MODE = 'Y' THEN
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1523: FND_MSG_PUB.add_exc_msg
1524: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1525: 'FP_CI_CHECK_MERGE_POSSIBLE'
1526: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1527: IF P_PA_DEBUG_MODE = 'Y' THEN
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1531: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1524: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1525: 'FP_CI_CHECK_MERGE_POSSIBLE'
1526: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1527: IF P_PA_DEBUG_MODE = 'Y' THEN
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1531: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1525: 'FP_CI_CHECK_MERGE_POSSIBLE'
1526: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1527: IF P_PA_DEBUG_MODE = 'Y' THEN
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1531: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: PA_DEBUG.Reset_Curr_Function;
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1531: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: PA_DEBUG.Reset_Curr_Function;
1534: RAISE;
1535:
1536: END FP_CI_CHECK_MERGE_POSSIBLE;
1537: -- end of FP_CI_CHECK_MERGE_POSSIBLE
1919: BEGIN
1920:
1921: x_msg_count := 0;
1922: x_return_status := FND_API.G_RET_STS_SUCCESS;
1923: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1924: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1925: l_debug_mode := NVL(l_debug_mode, 'Y');
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1927:
1920:
1921: x_msg_count := 0;
1922: x_return_status := FND_API.G_RET_STS_SUCCESS;
1923: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1924: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1925: l_debug_mode := NVL(l_debug_mode, 'Y');
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1927:
1928: -- Check for business rules violations
1922: x_return_status := FND_API.G_RET_STS_SUCCESS;
1923: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1924: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1925: l_debug_mode := NVL(l_debug_mode, 'Y');
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1927:
1928: -- Check for business rules violations
1929:
1930: pa_debug.g_err_stage:= 'Validating input parameters';
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1927:
1928: -- Check for business rules violations
1929:
1930: pa_debug.g_err_stage:= 'Validating input parameters';
1931: IF P_PA_DEBUG_MODE = 'Y' THEN
1932: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1933: END IF;
1934:
1927:
1928: -- Check for business rules violations
1929:
1930: pa_debug.g_err_stage:= 'Validating input parameters';
1931: IF P_PA_DEBUG_MODE = 'Y' THEN
1932: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1933: END IF;
1934:
1935: --Check if plan version id is null
1928: -- Check for business rules violations
1929:
1930: pa_debug.g_err_stage:= 'Validating input parameters';
1931: IF P_PA_DEBUG_MODE = 'Y' THEN
1932: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1933: END IF;
1934:
1935: --Check if plan version id is null
1936:
1937: IF (p_project_id IS NULL) OR
1938: (p_fin_plan_type_id IS NULL) OR
1939: (p_version_type IS NULL)
1940: THEN
1941: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1938: (p_fin_plan_type_id IS NULL) OR
1939: (p_version_type IS NULL)
1940: THEN
1941: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1939: (p_version_type IS NULL)
1940: THEN
1941: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1941: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1952: END IF;
1953:
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1952: END IF;
1953:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1952: END IF;
1953:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1953:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1956:
1957: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1960: END IF;
1961:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1956:
1957: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1960: END IF;
1961:
1962: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1956:
1957: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1960: END IF;
1961:
1962: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1963: END IF;
2005: -- End; jwhite: Added for Plannable Task Dev Effort ------------------
2006:
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
2010: IF P_PA_DEBUG_MODE = 'Y' THEN
2011: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2012: END IF;
2013: raise;
2006:
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
2010: IF P_PA_DEBUG_MODE = 'Y' THEN
2011: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2012: END IF;
2013: raise;
2014: END;
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
2010: IF P_PA_DEBUG_MODE = 'Y' THEN
2011: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2012: END IF;
2013: raise;
2014: END;
2015:
2012: END IF;
2013: raise;
2014: END;
2015:
2016: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
2017: IF P_PA_DEBUG_MODE = 'Y' THEN
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2013: raise;
2014: END;
2015:
2016: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
2017: IF P_PA_DEBUG_MODE = 'Y' THEN
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2014: END;
2015:
2016: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
2017: IF P_PA_DEBUG_MODE = 'Y' THEN
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2017: IF P_PA_DEBUG_MODE = 'Y' THEN
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2024: END IF;
2025:
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2024: END IF;
2025:
2026: -- Fetch resource list info
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2024: END IF;
2025:
2026: -- Fetch resource list info
2027:
2024: END IF;
2025:
2026: -- Fetch resource list info
2027:
2028: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
2029: IF P_PA_DEBUG_MODE = 'Y' THEN
2030: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2031: END IF;
2032:
2025:
2026: -- Fetch resource list info
2027:
2028: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
2029: IF P_PA_DEBUG_MODE = 'Y' THEN
2030: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2031: END IF;
2032:
2033: pa_fin_plan_utils.get_resource_list_info(
2026: -- Fetch resource list info
2027:
2028: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
2029: IF P_PA_DEBUG_MODE = 'Y' THEN
2030: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2031: END IF;
2032:
2033: pa_fin_plan_utils.get_resource_list_info(
2034: p_resource_list_id => l_resource_list_id
2066: -- and derive the task level of it
2067:
2068: IF p_impacted_task_id IS NOT NULL THEN
2069:
2070: pa_debug.g_err_stage:= 'Fetching impacted task details';
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2073: END IF;
2074:
2067:
2068: IF p_impacted_task_id IS NOT NULL THEN
2069:
2070: pa_debug.g_err_stage:= 'Fetching impacted task details';
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2073: END IF;
2074:
2075: -- Fetching top task id and parent task id of impacted task id
2068: IF p_impacted_task_id IS NOT NULL THEN
2069:
2070: pa_debug.g_err_stage:= 'Fetching impacted task details';
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2073: END IF;
2074:
2075: -- Fetching top task id and parent task id of impacted task id
2076:
2097: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2098: END IF;
2099: EXCEPTION
2100: WHEN Others THEN
2101: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2102: IF P_PA_DEBUG_MODE = 'Y' THEN
2103: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2104: END IF;
2105: RAISE;
2098: END IF;
2099: EXCEPTION
2100: WHEN Others THEN
2101: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2102: IF P_PA_DEBUG_MODE = 'Y' THEN
2103: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2104: END IF;
2105: RAISE;
2106: END;
2099: EXCEPTION
2100: WHEN Others THEN
2101: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2102: IF P_PA_DEBUG_MODE = 'Y' THEN
2103: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2104: END IF;
2105: RAISE;
2106: END;
2107: END IF;
2105: RAISE;
2106: END;
2107: END IF;
2108:
2109: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2110: IF P_PA_DEBUG_MODE = 'Y' THEN
2111: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2112: END IF;
2113:
2106: END;
2107: END IF;
2108:
2109: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2110: IF P_PA_DEBUG_MODE = 'Y' THEN
2111: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2112: END IF;
2113:
2114: END IF;
2107: END IF;
2108:
2109: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2110: IF P_PA_DEBUG_MODE = 'Y' THEN
2111: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2112: END IF;
2113:
2114: END IF;
2115:
2126: THEN
2127:
2128: -- Check if plan type has any plannable elements
2129:
2130: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2131: IF P_PA_DEBUG_MODE = 'Y' THEN
2132: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2133: END IF;
2134:
2127:
2128: -- Check if plan type has any plannable elements
2129:
2130: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2131: IF P_PA_DEBUG_MODE = 'Y' THEN
2132: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2133: END IF;
2134:
2135: OPEN cur_impacted_task_null;
2128: -- Check if plan type has any plannable elements
2129:
2130: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2131: IF P_PA_DEBUG_MODE = 'Y' THEN
2132: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2133: END IF;
2134:
2135: OPEN cur_impacted_task_null;
2136: FETCH cur_impacted_task_null INTO l_count;
2138: ELSE
2139: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2140:
2141: -- Check if top task id of impacted task is plannable
2142: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2143: IF P_PA_DEBUG_MODE = 'Y' THEN
2144: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2145: END IF;
2146:
2139: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2140:
2141: -- Check if top task id of impacted task is plannable
2142: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2143: IF P_PA_DEBUG_MODE = 'Y' THEN
2144: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2145: END IF;
2146:
2147: OPEN cur_impact_task_level_M_child;
2140:
2141: -- Check if top task id of impacted task is plannable
2142: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2143: IF P_PA_DEBUG_MODE = 'Y' THEN
2144: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2145: END IF;
2146:
2147: OPEN cur_impact_task_level_M_child;
2148: FETCH cur_impact_task_level_M_child INTO l_count;
2151: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L THEN
2152:
2153: -- Check if the impacted task or its top task is plannable
2154:
2155: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2156: IF P_PA_DEBUG_MODE = 'Y' THEN
2157: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158: END IF;
2159:
2152:
2153: -- Check if the impacted task or its top task is plannable
2154:
2155: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2156: IF P_PA_DEBUG_MODE = 'Y' THEN
2157: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158: END IF;
2159:
2160: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2153: -- Check if the impacted task or its top task is plannable
2154:
2155: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2156: IF P_PA_DEBUG_MODE = 'Y' THEN
2157: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158: END IF;
2159:
2160: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2161: FETCH cur_impact_task_level_L INTO l_count;
2164: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T THEN
2165:
2166: -- Check if there are any plannable elements with top task id as impacted task id.
2167:
2168: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2169: IF P_PA_DEBUG_MODE = 'Y' THEN
2170: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2171: END IF;
2172:
2165:
2166: -- Check if there are any plannable elements with top task id as impacted task id.
2167:
2168: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2169: IF P_PA_DEBUG_MODE = 'Y' THEN
2170: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2171: END IF;
2172:
2173: OPEN cur_impact_task_level_T;
2166: -- Check if there are any plannable elements with top task id as impacted task id.
2167:
2168: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2169: IF P_PA_DEBUG_MODE = 'Y' THEN
2170: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2171: END IF;
2172:
2173: OPEN cur_impact_task_level_T;
2174: FETCH cur_impact_task_level_T INTO l_count;
2179: IF l_count = 0
2180: THEN
2181: x_version_allowed_flag := 'N';
2182:
2183: pa_debug.g_err_stage:= 'Ci_version cant be created';
2184: IF P_PA_DEBUG_MODE = 'Y' THEN
2185: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2186: END IF;
2187:
2180: THEN
2181: x_version_allowed_flag := 'N';
2182:
2183: pa_debug.g_err_stage:= 'Ci_version cant be created';
2184: IF P_PA_DEBUG_MODE = 'Y' THEN
2185: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2186: END IF;
2187:
2188: -- raise error if the ci version cant be created
2181: x_version_allowed_flag := 'N';
2182:
2183: pa_debug.g_err_stage:= 'Ci_version cant be created';
2184: IF P_PA_DEBUG_MODE = 'Y' THEN
2185: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2186: END IF;
2187:
2188: -- raise error if the ci version cant be created
2189: x_return_status := FND_API.G_RET_STS_ERROR;
2194: ELSE
2195: x_version_allowed_flag := 'Y';
2196: END IF;
2197:
2198: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2199: IF P_PA_DEBUG_MODE = 'Y' THEN
2200: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2201: END IF;
2202: pa_debug.reset_err_stack;
2195: x_version_allowed_flag := 'Y';
2196: END IF;
2197:
2198: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2199: IF P_PA_DEBUG_MODE = 'Y' THEN
2200: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2201: END IF;
2202: pa_debug.reset_err_stack;
2203:
2196: END IF;
2197:
2198: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2199: IF P_PA_DEBUG_MODE = 'Y' THEN
2200: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2201: END IF;
2202: pa_debug.reset_err_stack;
2203:
2204: EXCEPTION
2198: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2199: IF P_PA_DEBUG_MODE = 'Y' THEN
2200: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2201: END IF;
2202: pa_debug.reset_err_stack;
2203:
2204: EXCEPTION
2205:
2206: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2220: ELSE
2221: x_msg_count := l_msg_count;
2222: END IF;
2223:
2224: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2225: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2226: pa_debug.reset_err_stack;
2227: RAISE;
2228:
2221: x_msg_count := l_msg_count;
2222: END IF;
2223:
2224: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2225: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2226: pa_debug.reset_err_stack;
2227: RAISE;
2228:
2229: WHEN others THEN
2222: END IF;
2223:
2224: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2225: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2226: pa_debug.reset_err_stack;
2227: RAISE;
2228:
2229: WHEN others THEN
2230:
2232: x_msg_count := 1;
2233: x_msg_data := SQLERRM;
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2239: END IF;
2240: pa_debug.reset_err_stack;
2233: x_msg_data := SQLERRM;
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2239: END IF;
2240: pa_debug.reset_err_stack;
2241: RAISE;
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2239: END IF;
2240: pa_debug.reset_err_stack;
2241: RAISE;
2242:
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2239: END IF;
2240: pa_debug.reset_err_stack;
2241: RAISE;
2242:
2243: END Is_Create_CI_Version_Allowed;
2244:
2253:
2254: BEGIN
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: IF P_PA_DEBUG_MODE = 'Y' THEN
2258: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2259: END IF;
2260:
2261: IF p_agreement_number IS NULL THEN
2254: BEGIN
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: IF P_PA_DEBUG_MODE = 'Y' THEN
2258: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2259: END IF;
2260:
2261: IF p_agreement_number IS NULL THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2261: IF p_agreement_number IS NULL THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2264: p_msg_name => 'PA_FP_AGR_NUM_REQ' );
2265: pa_debug.reset_err_stack;
2266: RETURN;
2267: END IF;
2268:
2269: SELECT a.Agreement_Id INTO x_agreement_id FROM
2274: a.agreement_id = spf.agreement_id AND
2275: spf.project_id = p_project_id AND
2276: NVL(spf.total_unbaselined_amount,0) > 0 AND
2277: ROWNUM < 2;
2278: pa_debug.reset_err_stack;
2279: RETURN;
2280: EXCEPTION
2281: WHEN NO_DATA_FOUND THEN
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2284: p_msg_name => 'PA_FP_AGR_INVALID',
2285: p_token1 => 'AGREEMENT_NUMBER',
2286: p_value1 => p_agreement_number);
2287: pa_debug.reset_err_stack;
2288: RETURN;
2289:
2290: WHEN OTHERS THEN
2291: FND_MSG_PUB.Add_Exc_Msg(
2289:
2290: WHEN OTHERS THEN
2291: FND_MSG_PUB.Add_Exc_Msg(
2292: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2293: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2297: pa_debug.reset_err_stack;
2290: WHEN OTHERS THEN
2291: FND_MSG_PUB.Add_Exc_Msg(
2292: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2293: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2297: pa_debug.reset_err_stack;
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2291: FND_MSG_PUB.Add_Exc_Msg(
2292: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2293: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2297: pa_debug.reset_err_stack;
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2299: RAISE;
2293: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2297: pa_debug.reset_err_stack;
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2299: RAISE;
2300: END IsValidAgreement;
2301:
2378: -- Local Variable Declaration
2379: l_debug_mode VARCHAR2(30);
2380:
2381: BEGIN
2382: IF P_PA_DEBUG_MODE = 'Y' THEN
2383: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2384: END IF;
2385: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2386: l_debug_mode := NVL(l_debug_mode, 'Y');
2379: l_debug_mode VARCHAR2(30);
2380:
2381: BEGIN
2382: IF P_PA_DEBUG_MODE = 'Y' THEN
2383: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2384: END IF;
2385: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2386: l_debug_mode := NVL(l_debug_mode, 'Y');
2387: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2381: BEGIN
2382: IF P_PA_DEBUG_MODE = 'Y' THEN
2383: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2384: END IF;
2385: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2386: l_debug_mode := NVL(l_debug_mode, 'Y');
2387: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2388: x_return_status := FND_API.G_RET_STS_SUCCESS;
2389: x_msg_count := 0;
2383: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2384: END IF;
2385: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2386: l_debug_mode := NVL(l_debug_mode, 'Y');
2387: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2388: x_return_status := FND_API.G_RET_STS_SUCCESS;
2389: x_msg_count := 0;
2390: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 1');
2391: --Get the column values for this budget version id and project id combination
2442: WHEN OTHERS THEN
2443: FND_MSG_PUB.add_exc_msg
2444: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2445: 'GET_BUDGET_VERSION_INFO'
2446: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2447: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2444: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2445: 'GET_BUDGET_VERSION_INFO'
2446: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2447: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2451: END IF;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2445: 'GET_BUDGET_VERSION_INFO'
2446: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2447: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2451: END IF;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: PA_DEBUG.Reset_Curr_Function;
2446: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2447: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2451: END IF;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: PA_DEBUG.Reset_Curr_Function;
2454: RAISE;
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2451: END IF;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: PA_DEBUG.Reset_Curr_Function;
2454: RAISE;
2455: END GET_BUDGET_VERSION_INFO;
2456: -- end of GET_BUDGET_VERSION_INFO
2457:
2711: -- Local Variable Declaration
2712: l_debug_mode VARCHAR2(30);
2713:
2714: BEGIN
2715: IF P_PA_DEBUG_MODE = 'Y' THEN
2716: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2717: END IF;
2718: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2719: l_debug_mode := NVL(l_debug_mode, 'Y');
2712: l_debug_mode VARCHAR2(30);
2713:
2714: BEGIN
2715: IF P_PA_DEBUG_MODE = 'Y' THEN
2716: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2717: END IF;
2718: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2719: l_debug_mode := NVL(l_debug_mode, 'Y');
2720: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2714: BEGIN
2715: IF P_PA_DEBUG_MODE = 'Y' THEN
2716: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2717: END IF;
2718: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2719: l_debug_mode := NVL(l_debug_mode, 'Y');
2720: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: x_msg_count := 0;
2716: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2717: END IF;
2718: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2719: l_debug_mode := NVL(l_debug_mode, 'Y');
2720: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: x_msg_count := 0;
2723: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 1');
2724: --Get the number of versions for this budget version name
2752: WHEN OTHERS THEN
2753: FND_MSG_PUB.add_exc_msg
2754: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2755: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2756: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2757: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2754: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2755: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2756: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2757: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2761: END IF;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2755: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2756: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2757: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2761: END IF;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: PA_DEBUG.Reset_Curr_Function;
2756: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2757: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2761: END IF;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: PA_DEBUG.Reset_Curr_Function;
2764: RAISE;
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2761: END IF;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: PA_DEBUG.Reset_Curr_Function;
2764: RAISE;
2765: END CHECK_PLAN_VERSION_NAME_OR_ID;
2766: -- end of CHECK_PLAN_VERSION_NAME_OR_ID
2767:
2813: l_msg_index_out NUMBER := NULL;
2814:
2815:
2816: BEGIN
2817: IF P_PA_DEBUG_MODE = 'Y' THEN
2818: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2819: END IF;
2820: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2821: l_debug_mode := NVL(l_debug_mode, 'Y');
2814:
2815:
2816: BEGIN
2817: IF P_PA_DEBUG_MODE = 'Y' THEN
2818: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2819: END IF;
2820: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2821: l_debug_mode := NVL(l_debug_mode, 'Y');
2822: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2816: BEGIN
2817: IF P_PA_DEBUG_MODE = 'Y' THEN
2818: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2819: END IF;
2820: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2821: l_debug_mode := NVL(l_debug_mode, 'Y');
2822: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2823: x_return_status := FND_API.G_RET_STS_SUCCESS;
2824: x_msg_count := 0;
2818: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2819: END IF;
2820: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2821: l_debug_mode := NVL(l_debug_mode, 'Y');
2822: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2823: x_return_status := FND_API.G_RET_STS_SUCCESS;
2824: x_msg_count := 0;
2825: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 1');
2826:
3121: ELSE
3122: x_msg_count := l_msg_count;
3123: END IF;
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: pa_debug.reset_err_stack;
3126: RAISE;
3127: WHEN OTHERS THEN
3128: FND_MSG_PUB.add_exc_msg
3129: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3127: WHEN OTHERS THEN
3128: FND_MSG_PUB.add_exc_msg
3129: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3130: 'FP_CI_CHECK_COPY_POSSIBLE'
3131: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3132: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3129: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3130: 'FP_CI_CHECK_COPY_POSSIBLE'
3131: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3132: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3136: END IF;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: 'FP_CI_CHECK_COPY_POSSIBLE'
3131: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3132: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3136: END IF;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138: PA_DEBUG.Reset_Curr_Function;
3131: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3132: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3136: END IF;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138: PA_DEBUG.Reset_Curr_Function;
3139:
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3136: END IF;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138: PA_DEBUG.Reset_Curr_Function;
3139:
3140: END FP_CI_CHECK_COPY_POSSIBLE;
3141:
3142:
3160: l_debug_mode VARCHAR2(30);
3161: l_no_of_bv_versions NUMBER := 0;
3162:
3163: BEGIN
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3166: END IF;
3167: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3168: l_debug_mode := NVL(l_debug_mode, 'Y');
3161: l_no_of_bv_versions NUMBER := 0;
3162:
3163: BEGIN
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3166: END IF;
3167: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3168: l_debug_mode := NVL(l_debug_mode, 'Y');
3169: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3163: BEGIN
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3166: END IF;
3167: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3168: l_debug_mode := NVL(l_debug_mode, 'Y');
3169: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3170: x_return_status := FND_API.G_RET_STS_SUCCESS;
3171: x_msg_count := 0;
3165: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3166: END IF;
3167: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3168: l_debug_mode := NVL(l_debug_mode, 'Y');
3169: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3170: x_return_status := FND_API.G_RET_STS_SUCCESS;
3171: x_msg_count := 0;
3172:
3173: x_call_fp_api_flag := 'N';
3194: WHEN OTHERS THEN
3195: FND_MSG_PUB.add_exc_msg
3196: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3197: 'CHECK_FP_PLAN_VERSION_EXISTS'
3198: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3199: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3196: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3197: 'CHECK_FP_PLAN_VERSION_EXISTS'
3198: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3199: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3203: END IF;
3204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3197: 'CHECK_FP_PLAN_VERSION_EXISTS'
3198: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3199: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3203: END IF;
3204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3205: PA_DEBUG.Reset_Curr_Function;
3198: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3199: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3203: END IF;
3204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3205: PA_DEBUG.Reset_Curr_Function;
3206: RAISE;
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3203: END IF;
3204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3205: PA_DEBUG.Reset_Curr_Function;
3206: RAISE;
3207: END CHECK_FP_PLAN_VERSION_EXISTS;
3208: -- end of CHECK_FP_PLAN_VERSION_EXISTS
3209:
3254:
3255: BEGIN
3256: x_msg_count := 0;
3257: x_return_status := FND_API.G_RET_STS_SUCCESS;
3258: IF p_pa_debug_mode = 'Y' THEN
3259: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3261: END IF;
3262:
3255: BEGIN
3256: x_msg_count := 0;
3257: x_return_status := FND_API.G_RET_STS_SUCCESS;
3258: IF p_pa_debug_mode = 'Y' THEN
3259: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3261: END IF;
3262:
3263: /* Get the details of the CI Budget Versions. */
3256: x_msg_count := 0;
3257: x_return_status := FND_API.G_RET_STS_SUCCESS;
3258: IF p_pa_debug_mode = 'Y' THEN
3259: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3261: END IF;
3262:
3263: /* Get the details of the CI Budget Versions. */
3264: OPEN cur_ci_version_dtl;
3270:
3271: IF nvl(l_ci_version_id_tbl.last,0) < 1 THEN
3272: /* If there are no budget versions for the CI, throw an error to the user. */
3273:
3274: IF P_PA_DEBUG_MODE = 'Y' THEN
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3271: IF nvl(l_ci_version_id_tbl.last,0) < 1 THEN
3272: /* If there are no budget versions for the CI, throw an error to the user. */
3273:
3274: IF P_PA_DEBUG_MODE = 'Y' THEN
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3272: /* If there are no budget versions for the CI, throw an error to the user. */
3273:
3274: IF P_PA_DEBUG_MODE = 'Y' THEN
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3280: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3273:
3274: IF P_PA_DEBUG_MODE = 'Y' THEN
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3280: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3281: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3284:
3285: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3286: LOOP
3287:
3288: IF P_PA_DEBUG_MODE = 'Y' THEN
3289: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3290: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3291: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3292: END IF;
3285: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3286: LOOP
3287:
3288: IF P_PA_DEBUG_MODE = 'Y' THEN
3289: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3290: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3291: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3292: END IF;
3293:
3286: LOOP
3287:
3288: IF P_PA_DEBUG_MODE = 'Y' THEN
3289: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3290: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3291: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3292: END IF;
3293:
3294: -- Bug 3809665 Check if change order versions have any budget lines with
3287:
3288: IF P_PA_DEBUG_MODE = 'Y' THEN
3289: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3290: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3291: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3292: END IF;
3293:
3294: -- Bug 3809665 Check if change order versions have any budget lines with
3295: -- rejection code
3314: ,x_msg_count => l_msg_count
3315: ,x_msg_data => l_msg_data);
3316:
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3315: ,x_msg_data => l_msg_data);
3316:
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3323: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3316:
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3323: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3323: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3325:
3326: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3327: current working apporved budget plan version. */
3328:
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3331: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3332: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3333: END IF;
3326: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3327: current working apporved budget plan version. */
3328:
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3331: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3332: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3333: END IF;
3334:
3327: current working apporved budget plan version. */
3328:
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3331: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3332: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3333: END IF;
3334:
3335: --Added by Xin Liu. For enhancement.
3328:
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3331: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3332: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3333: END IF;
3334:
3335: --Added by Xin Liu. For enhancement.
3336:
3359: END LOOP;
3360:
3361: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3362:
3363: IF p_pa_debug_mode = 'Y' THEN
3364: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3365: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3366: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3367: pa_debug.reset_err_stack;
3360:
3361: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3362:
3363: IF p_pa_debug_mode = 'Y' THEN
3364: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3365: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3366: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3367: pa_debug.reset_err_stack;
3368: END IF;
3361: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3362:
3363: IF p_pa_debug_mode = 'Y' THEN
3364: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3365: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3366: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3367: pa_debug.reset_err_stack;
3368: END IF;
3369:
3363: IF p_pa_debug_mode = 'Y' THEN
3364: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3365: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3366: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3367: pa_debug.reset_err_stack;
3368: END IF;
3369:
3370: EXCEPTION
3371: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3383: x_msg_count := l_msg_count;
3384: ELSE
3385: x_msg_count := l_msg_count;
3386: END IF;
3387: IF p_pa_debug_mode = 'Y' THEN
3388: pa_debug.reset_err_stack;
3389: END IF;
3390: /* #2723909: Returning to the calling procedure instead of raising it,
3391: so that the calling procedure checks for the return status of this procedure
3384: ELSE
3385: x_msg_count := l_msg_count;
3386: END IF;
3387: IF p_pa_debug_mode = 'Y' THEN
3388: pa_debug.reset_err_stack;
3389: END IF;
3390: /* #2723909: Returning to the calling procedure instead of raising it,
3391: so that the calling procedure checks for the return status of this procedure
3392: and handles it appropriately. */
3399: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3400: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3401: ,p_error_text => x_msg_data);
3402:
3403: IF p_pa_debug_mode = 'Y' THEN
3404: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3405: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3406: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3407: pa_debug.reset_err_stack;
3400: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3401: ,p_error_text => x_msg_data);
3402:
3403: IF p_pa_debug_mode = 'Y' THEN
3404: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3405: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3406: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3407: pa_debug.reset_err_stack;
3408: END IF;
3401: ,p_error_text => x_msg_data);
3402:
3403: IF p_pa_debug_mode = 'Y' THEN
3404: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3405: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3406: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3407: pa_debug.reset_err_stack;
3408: END IF;
3409: RAISE;
3403: IF p_pa_debug_mode = 'Y' THEN
3404: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3405: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3406: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3407: pa_debug.reset_err_stack;
3408: END IF;
3409: RAISE;
3410: END Fp_Ci_Impact_Submit_Chk;
3411:
3458: BEGIN
3459:
3460: x_msg_count := 0;
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3463: IF l_debug_mode = 'Y' THEN
3464: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3465: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3466: END IF;
3460: x_msg_count := 0;
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3463: IF l_debug_mode = 'Y' THEN
3464: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3465: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3466: END IF;
3467:
3468: -- Check for business rules violations
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3463: IF l_debug_mode = 'Y' THEN
3464: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3465: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3466: END IF;
3467:
3468: -- Check for business rules violations
3469:
3467:
3468: -- Check for business rules violations
3469:
3470: IF l_debug_mode = 'Y' THEN
3471: pa_debug.g_err_stage:= 'Validating input parameters';
3472: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3473: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3474: END IF;
3475:
3468: -- Check for business rules violations
3469:
3470: IF l_debug_mode = 'Y' THEN
3471: pa_debug.g_err_stage:= 'Validating input parameters';
3472: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3473: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3474: END IF;
3475:
3476: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3476: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3477: OR (p_target_version_id is NULL)
3478: THEN
3479: IF l_debug_mode = 'Y' THEN
3480: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3477: OR (p_target_version_id is NULL)
3478: THEN
3479: IF l_debug_mode = 'Y' THEN
3480: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3479: IF l_debug_mode = 'Y' THEN
3480: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3480: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3493: (p_app_short_name => 'PA',
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3493: (p_app_short_name => 'PA',
3494: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3548: END IF; --end if for approved revenue and cost flag check
3549:
3550:
3551: IF l_debug_mode = 'Y' THEN
3552: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3553: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3550:
3551: IF l_debug_mode = 'Y' THEN
3552: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3553: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3552: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3553: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3559: pa_debug.reset_err_stack;
3560:
3553: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3559: pa_debug.reset_err_stack;
3560:
3561: END IF;
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3559: pa_debug.reset_err_stack;
3560:
3561: END IF;
3562:
3563: EXCEPTION
3580: ELSE
3581: x_msg_count := l_msg_count;
3582: END IF;
3583: IF l_debug_mode = 'Y' THEN
3584: pa_debug.reset_err_stack;
3585: END IF;
3586: RAISE;
3587:
3588: WHEN others THEN
3596: ,p_procedure_name => 'FP_CI_VALIDATE_UPDATE_IMPACT'
3597: ,p_error_text => x_msg_data);
3598:
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3602: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3603: pa_debug.reset_err_stack;
3604:
3597: ,p_error_text => x_msg_data);
3598:
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3602: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3603: pa_debug.reset_err_stack;
3604:
3605: END IF;
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3602: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3603: pa_debug.reset_err_stack;
3604:
3605: END IF;
3606: RAISE;
3607:
4064: l_error_msg_header_flag := 'N';
4065: x_tsk_plan_level_mismatch := 'N';
4066: l_index := 1;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: IF P_PA_DEBUG_MODE = 'Y' THEN
4069: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4070: END IF;
4071:
4072: IF p_pa_debug_mode = 'Y' THEN
4065: x_tsk_plan_level_mismatch := 'N';
4066: l_index := 1;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: IF P_PA_DEBUG_MODE = 'Y' THEN
4069: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4070: END IF;
4071:
4072: IF p_pa_debug_mode = 'Y' THEN
4073: PA_DEBUG.write_log (x_module =>
4068: IF P_PA_DEBUG_MODE = 'Y' THEN
4069: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4070: END IF;
4071:
4072: IF p_pa_debug_mode = 'Y' THEN
4073: PA_DEBUG.write_log (x_module =>
4074: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4075: ,x_msg => 'selecting source version fp option details'
4076: ,x_log_level => 5);
4069: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4070: END IF;
4071:
4072: IF p_pa_debug_mode = 'Y' THEN
4073: PA_DEBUG.write_log (x_module =>
4074: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4075: ,x_msg => 'selecting source version fp option details'
4076: ,x_log_level => 5);
4077: END IF;
4087: bv.fin_plan_type_id = o.fin_plan_type_id and
4088: o.project_id = p_project_id and
4089: o.fin_plan_version_id = bv.budget_version_id;
4090:
4091: IF p_pa_debug_mode = 'Y' THEN
4092: PA_DEBUG.write_log (x_module =>
4093: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4094: ,x_msg => 'selecting target version fp option details'
4095: ,x_log_level => 5);
4088: o.project_id = p_project_id and
4089: o.fin_plan_version_id = bv.budget_version_id;
4090:
4091: IF p_pa_debug_mode = 'Y' THEN
4092: PA_DEBUG.write_log (x_module =>
4093: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4094: ,x_msg => 'selecting target version fp option details'
4095: ,x_log_level => 5);
4096: END IF;
4114: l_source_task_id := tsk_rec.task_id;
4115: l_source_plan_level := tsk_rec.top_task_planning_level;
4116:
4117: begin
4118: IF p_pa_debug_mode = 'Y' THEN
4119: PA_DEBUG.write_log (x_module =>
4120: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4121: ,x_msg => 'checking for the same task is planned in the target'
4122: ,x_log_level => 5);
4115: l_source_plan_level := tsk_rec.top_task_planning_level;
4116:
4117: begin
4118: IF p_pa_debug_mode = 'Y' THEN
4119: PA_DEBUG.write_log (x_module =>
4120: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4121: ,x_msg => 'checking for the same task is planned in the target'
4122: ,x_log_level => 5);
4123: END IF;
4136: when no_data_found then
4137: /* checking for whether the top task is planned in the
4138: target */
4139: begin
4140: IF p_pa_debug_mode = 'Y' THEN
4141: PA_DEBUG.write_log (x_module =>
4142: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4143: ,x_msg => 'checking for whether the top task is planned in the target'
4144: ,x_log_level => 5);
4137: /* checking for whether the top task is planned in the
4138: target */
4139: begin
4140: IF p_pa_debug_mode = 'Y' THEN
4141: PA_DEBUG.write_log (x_module =>
4142: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4143: ,x_msg => 'checking for whether the top task is planned in the target'
4144: ,x_log_level => 5);
4145: END IF;
4159: if l_source_plan_level = 'TOP' then
4160: /* checking for whether the top task in the source version
4161: is planned at the lowest task level in target version */
4162: begin
4163: IF p_pa_debug_mode = 'Y' THEN
4164: PA_DEBUG.write_log (x_module =>
4165: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4166: ,x_msg => 'checking for source - top task and target - lowest task'
4167: ,x_log_level => 5);
4160: /* checking for whether the top task in the source version
4161: is planned at the lowest task level in target version */
4162: begin
4163: IF p_pa_debug_mode = 'Y' THEN
4164: PA_DEBUG.write_log (x_module =>
4165: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4166: ,x_msg => 'checking for source - top task and target - lowest task'
4167: ,x_log_level => 5);
4168: END IF;
4192: end;
4193:
4194: if l_source_plan_level = 'TOP' and
4195: l_target_plan_level = 'LOWEST' then
4196: IF p_pa_debug_mode = 'Y' THEN
4197: PA_DEBUG.write_log (x_module =>
4198: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4199: ,x_msg => 'getting the task info from pa_tasks table'
4200: ,x_log_level => 5);
4193:
4194: if l_source_plan_level = 'TOP' and
4195: l_target_plan_level = 'LOWEST' then
4196: IF p_pa_debug_mode = 'Y' THEN
4197: PA_DEBUG.write_log (x_module =>
4198: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4199: ,x_msg => 'getting the task info from pa_tasks table'
4200: ,x_log_level => 5);
4201: END IF;
4242: Lowest Lowest
4243: Top Top
4244: Lowest Top
4245: */
4246: IF p_pa_debug_mode = 'Y' THEN
4247: PA_DEBUG.write_log (x_module =>
4248: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4249: ,x_msg => 'populating the pl sql table for source and target task'
4250: ,x_log_level => 5);
4243: Top Top
4244: Lowest Top
4245: */
4246: IF p_pa_debug_mode = 'Y' THEN
4247: PA_DEBUG.write_log (x_module =>
4248: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4249: ,x_msg => 'populating the pl sql table for source and target task'
4250: ,x_log_level => 5);
4251: END IF;
4265: l_index := l_index + 1;
4266: end if;
4267: end if; /* end if for top and lowest check */
4268: END LOOP;
4269: IF p_pa_debug_mode = 'Y' THEN
4270: PA_DEBUG.Reset_Err_Stack;
4271: END IF;
4272: EXCEPTION
4273: WHEN OTHERS THEN
4266: end if;
4267: end if; /* end if for top and lowest check */
4268: END LOOP;
4269: IF p_pa_debug_mode = 'Y' THEN
4270: PA_DEBUG.Reset_Err_Stack;
4271: END IF;
4272: EXCEPTION
4273: WHEN OTHERS THEN
4274: IF p_pa_debug_mode = 'Y' THEN
4270: PA_DEBUG.Reset_Err_Stack;
4271: END IF;
4272: EXCEPTION
4273: WHEN OTHERS THEN
4274: IF p_pa_debug_mode = 'Y' THEN
4275: PA_DEBUG.Reset_Err_Stack;
4276: END IF;
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4278: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4271: END IF;
4272: EXCEPTION
4273: WHEN OTHERS THEN
4274: IF p_pa_debug_mode = 'Y' THEN
4275: PA_DEBUG.Reset_Err_Stack;
4276: END IF;
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4278: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4279: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4298: l_module_name VARCHAR2(100) := 'NON_APP_STATUSES_EXIST' ;
4299:
4300: BEGIN
4301:
4302: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4303:
4304: IF l_debug_mode = 'Y' THEN
4305: pa_debug.set_curr_function( p_function => 'NON_APP_STATUSES_EXIST',
4306: p_debug_mode => l_debug_mode );
4301:
4302: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4303:
4304: IF l_debug_mode = 'Y' THEN
4305: pa_debug.set_curr_function( p_function => 'NON_APP_STATUSES_EXIST',
4306: p_debug_mode => l_debug_mode );
4307: END IF;
4308:
4309: BEGIN
4326: l_return := 'N';
4327: END;
4328:
4329: IF l_debug_mode = 'Y' THEN
4330: pa_debug.reset_curr_function;
4331: END IF;
4332:
4333: RETURN l_return;
4334: END NON_APP_STATUSES_EXIST;
4349:
4350: BEGIN
4351:
4352: IF l_debug_mode = 'Y' THEN
4353: pa_debug.set_curr_function( p_function => 'GET_CI_ALLOWED_IMPACTS',
4354: p_debug_mode => l_debug_mode );
4355: END IF;
4356:
4357: BEGIN
4363: WHERE ci_type_id = p_ci_type_id;
4364: EXCEPTION
4365: WHEN NO_DATA_FOUND THEN
4366: IF l_debug_mode = 'Y' THEN
4367: pa_debug.reset_curr_function;
4368: END IF;
4369: END;
4370: IF (l_cost_impact_flag = 'Y' AND l_rev_impact_flag = 'Y') THEN
4371:
4369: END;
4370: IF (l_cost_impact_flag = 'Y' AND l_rev_impact_flag = 'Y') THEN
4371:
4372: IF l_debug_mode = 'Y' THEN
4373: pa_debug.reset_curr_function;
4374: END IF ;
4375:
4376: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
4377:
4377:
4378: ELSIF l_cost_impact_flag = 'Y' THEN
4379:
4380: IF l_debug_mode = 'Y' THEN
4381: pa_debug.reset_curr_function;
4382: END IF ;
4383:
4384: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
4385:
4385:
4386: ELSIF l_rev_impact_flag = 'Y' THEN
4387:
4388: IF l_debug_mode = 'Y' THEN
4389: pa_debug.reset_curr_function;
4390: END IF ;
4391:
4392: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
4393:
4393:
4394: ELSE
4395:
4396: IF l_debug_mode = 'Y' THEN
4397: pa_debug.reset_curr_function;
4398: END IF ;
4399:
4400: RETURN NULL;
4401: END IF;
4950:
4951:
4952: BEGIN
4953:
4954: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4955: x_msg_count := 0;
4956: x_return_status := FND_API.G_RET_STS_SUCCESS;
4957: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4958: p_debug_mode => l_debug_mode );
4953:
4954: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4955: x_msg_count := 0;
4956: x_return_status := FND_API.G_RET_STS_SUCCESS;
4957: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4958: p_debug_mode => l_debug_mode );
4959:
4960:
4961: -----------------------------------------------------------------------------
4962: -- Validate Input Params, p_project_id and (p_cost_version_id and p_revenue_version_id
4963: -- both) cannot be null or =-99
4964: -----------------------------------------------------------------------------
4965: IF l_debug_mode = 'Y' THEN
4966: pa_debug.g_err_stage:='Validating input parameters - project id : ' || p_project_id;
4967: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4968: END IF;
4969:
4970: IF (p_project_id IS NULL) THEN
4963: -- both) cannot be null or =-99
4964: -----------------------------------------------------------------------------
4965: IF l_debug_mode = 'Y' THEN
4966: pa_debug.g_err_stage:='Validating input parameters - project id : ' || p_project_id;
4967: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4968: END IF;
4969:
4970: IF (p_project_id IS NULL) THEN
4971: IF l_debug_mode = 'Y' THEN
4968: END IF;
4969:
4970: IF (p_project_id IS NULL) THEN
4971: IF l_debug_mode = 'Y' THEN
4972: pa_debug.g_err_stage:='p_project_id is null';
4973: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4974: END IF;
4975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4969:
4970: IF (p_project_id IS NULL) THEN
4971: IF l_debug_mode = 'Y' THEN
4972: pa_debug.g_err_stage:='p_project_id is null';
4973: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4974: END IF;
4975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4978: END IF;
4979:
4980: IF l_debug_mode = 'Y' THEN
4981: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4982: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4983:
4984: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4978: END IF;
4979:
4980: IF l_debug_mode = 'Y' THEN
4981: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4982: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4983:
4984: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4980: IF l_debug_mode = 'Y' THEN
4981: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4982: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4983:
4984: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4987:
4988: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4981: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4982: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4983:
4984: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4987:
4988: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4989: IF l_debug_mode = 'Y' THEN
4986: END IF;
4987:
4988: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4989: IF l_debug_mode = 'Y' THEN
4990: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4991: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4992: END IF;
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4987:
4988: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4989: IF l_debug_mode = 'Y' THEN
4990: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4991: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4992: END IF;
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4990: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4991: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4992: END IF;
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4996: END IF;
4997: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4998: END IF;
4991: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4992: END IF;
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4996: END IF;
4997: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4998: END IF;
4999:
5001: -------------------------------------------
5002: -- Initialising all tables to empty tables.
5003: -------------------------------------------
5004: IF l_debug_mode = 'Y' THEN
5005: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
5006: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5007: END IF;
5008: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
5009: x_url_tbl := SYSTEM.PA_VARCHAR2_240_TBL_TYPE();
5002: -- Initialising all tables to empty tables.
5003: -------------------------------------------
5004: IF l_debug_mode = 'Y' THEN
5005: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
5006: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5007: END IF;
5008: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
5009: x_url_tbl := SYSTEM.PA_VARCHAR2_240_TBL_TYPE();
5010: x_reference_tbl := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
5018: ----------------------------------------------------
5019: -- Derive Value of x_context
5020: ----------------------------------------------------
5021: IF l_debug_mode = 'Y' THEN
5022: pa_debug.g_err_stage:='Derive Value of x_context';
5023: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5024: END IF;
5025:
5026: IF ((nvl(p_cost_version_id,-99) <> -99) AND (nvl(p_revenue_version_id,-99) <> -99)) THEN
5019: -- Derive Value of x_context
5020: ----------------------------------------------------
5021: IF l_debug_mode = 'Y' THEN
5022: pa_debug.g_err_stage:='Derive Value of x_context';
5023: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5024: END IF;
5025:
5026: IF ((nvl(p_cost_version_id,-99) <> -99) AND (nvl(p_revenue_version_id,-99) <> -99)) THEN
5027: l_context := 'ALL';
5036: --------------------------------------------------
5037: -- Fetching the project currency code
5038: --------------------------------------------------
5039: IF l_debug_mode = 'Y' THEN
5040: pa_debug.g_err_stage:='Derived x_context : '||x_context;
5041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5042:
5043: pa_debug.g_err_stage:='Fetching the project currency code';
5044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5037: -- Fetching the project currency code
5038: --------------------------------------------------
5039: IF l_debug_mode = 'Y' THEN
5040: pa_debug.g_err_stage:='Derived x_context : '||x_context;
5041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5042:
5043: pa_debug.g_err_stage:='Fetching the project currency code';
5044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5045: END IF;
5039: IF l_debug_mode = 'Y' THEN
5040: pa_debug.g_err_stage:='Derived x_context : '||x_context;
5041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5042:
5043: pa_debug.g_err_stage:='Fetching the project currency code';
5044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5045: END IF;
5046:
5047: BEGIN
5040: pa_debug.g_err_stage:='Derived x_context : '||x_context;
5041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5042:
5043: pa_debug.g_err_stage:='Fetching the project currency code';
5044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5045: END IF;
5046:
5047: BEGIN
5048: SELECT project_currency_code
5050: FROM Pa_Projects_All
5051: WHERE project_Id = p_project_id;
5052:
5053: IF l_debug_mode = 'Y' THEN
5054: pa_debug.g_err_stage:='x_project_currency_code = ' || x_project_currency_code;
5055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5056: END IF;
5057:
5058: EXCEPTION
5051: WHERE project_Id = p_project_id;
5052:
5053: IF l_debug_mode = 'Y' THEN
5054: pa_debug.g_err_stage:='x_project_currency_code = ' || x_project_currency_code;
5055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5056: END IF;
5057:
5058: EXCEPTION
5059: WHEN NO_DATA_FOUND THEN
5057:
5058: EXCEPTION
5059: WHEN NO_DATA_FOUND THEN
5060: IF l_debug_mode = 'Y' THEN
5061: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5062: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5063: END IF;
5064: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5065: END;
5058: EXCEPTION
5059: WHEN NO_DATA_FOUND THEN
5060: IF l_debug_mode = 'Y' THEN
5061: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5062: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5063: END IF;
5064: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5065: END;
5066:
5067: -----------------------------------------
5068: -- Fetching the margin dervied from code.
5069: -----------------------------------------
5070: IF l_debug_mode = 'Y' THEN
5071: pa_debug.g_err_stage:='Fetching the margin dervied from code';
5072: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5073: END IF;
5074:
5075: BEGIN
5068: -- Fetching the margin dervied from code.
5069: -----------------------------------------
5070: IF l_debug_mode = 'Y' THEN
5071: pa_debug.g_err_stage:='Fetching the margin dervied from code';
5072: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5073: END IF;
5074:
5075: BEGIN
5076: SELECT nvl(MARGIN_DERIVED_FROM_CODE,'B')
5080: AND fin_plan_option_level_code = 'PLAN_TYPE'
5081: AND approved_cost_plan_type_flag = 'Y';
5082:
5083: IF l_debug_mode = 'Y' THEN
5084: pa_debug.g_err_stage:='margin dervied from code :'||l_margin_derived_from_code;
5085: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5086: END IF;
5087:
5088: EXCEPTION
5081: AND approved_cost_plan_type_flag = 'Y';
5082:
5083: IF l_debug_mode = 'Y' THEN
5084: pa_debug.g_err_stage:='margin dervied from code :'||l_margin_derived_from_code;
5085: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5086: END IF;
5087:
5088: EXCEPTION
5089: WHEN NO_DATA_FOUND THEN
5087:
5088: EXCEPTION
5089: WHEN NO_DATA_FOUND THEN
5090: IF l_debug_mode = 'Y' THEN
5091: pa_debug.g_err_stage:='NO_DATA_FOUND for margin dervied from code,default to burdened cost';
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5093: END IF;
5094: l_margin_derived_from_code := 'B';
5095: END;
5088: EXCEPTION
5089: WHEN NO_DATA_FOUND THEN
5090: IF l_debug_mode = 'Y' THEN
5091: pa_debug.g_err_stage:='NO_DATA_FOUND for margin dervied from code,default to burdened cost';
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5093: END IF;
5094: l_margin_derived_from_code := 'B';
5095: END;
5096:
5098: ----------------------------------------------------
5099: -- Fetch Lookup_code ,summary and reference details.
5100: ----------------------------------------------------
5101: IF l_debug_mode = 'Y' THEN
5102: pa_debug.g_err_stage:='Fetching lookup data';
5103: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5104: END IF;
5105:
5106: OPEN c_lookup_summary;
5099: -- Fetch Lookup_code ,summary and reference details.
5100: ----------------------------------------------------
5101: IF l_debug_mode = 'Y' THEN
5102: pa_debug.g_err_stage:='Fetching lookup data';
5103: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5104: END IF;
5105:
5106: OPEN c_lookup_summary;
5107: FETCH c_lookup_summary BULK COLLECT INTO x_summary_tbl,l_lookup_code_tbl;
5118: ----------------------------------------------------------------
5119: -- Bug 3744910 -- This is being passed to get_pc_revenue_partial
5120: -- in c_change_documents_status cursor
5121: IF l_debug_mode = 'Y' THEN
5122: pa_debug.g_err_stage:='fetching the approved revenue current working version';
5123: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5124: END IF;
5125: BEGIN
5126: SELECT A.BUDGET_VERSION_ID
5119: -- Bug 3744910 -- This is being passed to get_pc_revenue_partial
5120: -- in c_change_documents_status cursor
5121: IF l_debug_mode = 'Y' THEN
5122: pa_debug.g_err_stage:='fetching the approved revenue current working version';
5123: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5124: END IF;
5125: BEGIN
5126: SELECT A.BUDGET_VERSION_ID
5127: INTO l_appr_rev_cw_version_id
5133: AND A.CI_ID IS NULL;
5134: -- AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5135:
5136: IF l_debug_mode = 'Y' THEN
5137: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5138: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5139: END IF;
5140:
5141:
5134: -- AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5135:
5136: IF l_debug_mode = 'Y' THEN
5137: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5138: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5139: END IF;
5140:
5141:
5142: EXCEPTION
5148: -- Get Approved Fin plan Type Details for the project
5149: -----------------------------------------------------
5150:
5151: IF l_debug_mode = 'Y' THEN
5152: pa_debug.g_err_stage:='Get Approved Fin plan Type Details for the project';
5153: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5154: END IF;
5155:
5156: OPEN c_get_approved_details(p_project_id);
5149: -----------------------------------------------------
5150:
5151: IF l_debug_mode = 'Y' THEN
5152: pa_debug.g_err_stage:='Get Approved Fin plan Type Details for the project';
5153: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5154: END IF;
5155:
5156: OPEN c_get_approved_details(p_project_id);
5157: FETCH c_get_approved_details BULK COLLECT INTO l_fin_plan_type_id_tbl,
5162: CLOSE c_get_approved_details;
5163:
5164: ELSIF nvl(p_calling_mode,'APPROVED') = 'CURRENT' THEN
5165: IF l_debug_mode = 'Y' THEN
5166: pa_debug.g_err_stage:='fetching the revenue current working version of current plan type';
5167: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5168: END IF;
5169:
5170: BEGIN
5163:
5164: ELSIF nvl(p_calling_mode,'APPROVED') = 'CURRENT' THEN
5165: IF l_debug_mode = 'Y' THEN
5166: pa_debug.g_err_stage:='fetching the revenue current working version of current plan type';
5167: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5168: END IF;
5169:
5170: BEGIN
5171: SELECT A.BUDGET_VERSION_ID
5182: AND A.CI_ID IS NULL;
5183: --AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5184:
5185: IF l_debug_mode = 'Y' THEN
5186: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5187: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5188: END IF;
5189:
5190:
5183: --AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5184:
5185: IF l_debug_mode = 'Y' THEN
5186: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5187: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5188: END IF;
5189:
5190:
5191: EXCEPTION
5220: --------------------------------------------------------------------------
5221: -- Insert data as 0 in all pl sql tables.
5222: --------------------------------------------------------------------------
5223: IF l_debug_mode = 'Y' THEN
5224: pa_debug.g_err_stage:='No Approved Plan type in in the system for this project';
5225: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5226: END IF;
5227: l_row_count := x_summary_tbl.COUNT;
5228: x_margin_tbl.extend(l_row_count);
5221: -- Insert data as 0 in all pl sql tables.
5222: --------------------------------------------------------------------------
5223: IF l_debug_mode = 'Y' THEN
5224: pa_debug.g_err_stage:='No Approved Plan type in in the system for this project';
5225: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5226: END IF;
5227: l_row_count := x_summary_tbl.COUNT;
5228: x_margin_tbl.extend(l_row_count);
5229: x_margin_percent_tbl.extend(l_row_count);
5281: END IF;
5282: --CLOSE c_get_approved_details;
5283:
5284: IF l_debug_mode = 'Y' THEN
5285: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5286: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5287:
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5282: --CLOSE c_get_approved_details;
5283:
5284: IF l_debug_mode = 'Y' THEN
5285: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5286: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5287:
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5290:
5284: IF l_debug_mode = 'Y' THEN
5285: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5286: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5287:
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5290:
5291: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5292: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5285: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5286: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5287:
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5290:
5291: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5292: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5293: END IF;
5287:
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5290:
5291: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5292: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5293: END IF;
5294:
5295: ---------------------------------------------------------
5288: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5290:
5291: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5292: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5293: END IF;
5294:
5295: ---------------------------------------------------------
5296: -- Deriving plan type id for links in plan summary region
5295: ---------------------------------------------------------
5296: -- Deriving plan type id for links in plan summary region
5297: ---------------------------------------------------------
5298: IF l_debug_mode = 'Y' THEN
5299: pa_debug.g_err_stage:='Deriving plan type id for links in plan summary region';
5300: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5301: END IF;
5302:
5303: IF l_context = 'ALL' THEN
5296: -- Deriving plan type id for links in plan summary region
5297: ---------------------------------------------------------
5298: IF l_debug_mode = 'Y' THEN
5299: pa_debug.g_err_stage:='Deriving plan type id for links in plan summary region';
5300: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5301: END IF;
5302:
5303: IF l_context = 'ALL' THEN
5304: IF l_ac_fin_plan_type_id IS NOT NULL THEN
5327: END IF;
5328:
5329:
5330: IF l_debug_mode = 'Y' THEN
5331: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5332: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5333:
5334: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5335: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5328:
5329:
5330: IF l_debug_mode = 'Y' THEN
5331: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5332: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5333:
5334: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5335: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5336: END IF;
5330: IF l_debug_mode = 'Y' THEN
5331: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5332: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5333:
5334: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5335: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5336: END IF;
5337:
5338:
5331: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5332: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5333:
5334: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5335: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5336: END IF;
5337:
5338:
5339:
5447: x_url_tbl.extend(1);
5448:
5449: IF l_lookup_code_tbl(i) = 10 THEN
5450: IF l_debug_mode = 'Y' THEN
5451: pa_debug.g_err_stage:='Fetching Data for Original Baselined Version';
5452: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5453: END IF;
5454: OPEN c_original_baselined(p_project_id,
5455: l_ac_fin_plan_type_id,
5448:
5449: IF l_lookup_code_tbl(i) = 10 THEN
5450: IF l_debug_mode = 'Y' THEN
5451: pa_debug.g_err_stage:='Fetching Data for Original Baselined Version';
5452: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5453: END IF;
5454: OPEN c_original_baselined(p_project_id,
5455: l_ac_fin_plan_type_id,
5456: l_ar_fin_plan_type_id,
5461: l_cost,
5462: l_revenue;
5463: CLOSE c_original_baselined;
5464: IF l_debug_mode = 'Y' THEN
5465: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5467:
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5462: l_revenue;
5463: CLOSE c_original_baselined;
5464: IF l_debug_mode = 'Y' THEN
5465: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5467:
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5470:
5464: IF l_debug_mode = 'Y' THEN
5465: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5467:
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5470:
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5465: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5467:
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5470:
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5467:
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5470:
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5468: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5470:
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476: END IF;
5470:
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476: END IF;
5477:
5478: IF l_fin_plan_type_id IS NOT NULL THEN
5471: pa_debug.g_err_stage:='l_cost:'||l_cost;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476: END IF;
5477:
5478: IF l_fin_plan_type_id IS NOT NULL THEN
5479: -- Bug 3883406
5509: END IF;
5510:
5511: ELSIF l_lookup_code_tbl(i) = 20 THEN
5512: IF l_debug_mode = 'Y' THEN
5513: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Prior Baselined Versions';
5514: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5515: END IF;
5516: OPEN c_change_documents_prior(p_project_id,
5517: l_ac_fin_plan_type_id,
5510:
5511: ELSIF l_lookup_code_tbl(i) = 20 THEN
5512: IF l_debug_mode = 'Y' THEN
5513: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Prior Baselined Versions';
5514: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5515: END IF;
5516: OPEN c_change_documents_prior(p_project_id,
5517: l_ac_fin_plan_type_id,
5518: l_ar_fin_plan_type_id,
5523: l_cost,
5524: l_revenue;
5525: CLOSE c_change_documents_prior;
5526: IF l_debug_mode = 'Y' THEN
5527: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5524: l_revenue;
5525: CLOSE c_change_documents_prior;
5526: IF l_debug_mode = 'Y' THEN
5527: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532:
5526: IF l_debug_mode = 'Y' THEN
5527: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532:
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5527: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532:
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5535:
5529:
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532:
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5535:
5536: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5537: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5530: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532:
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5535:
5536: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5537: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5538: END IF;
5532:
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5535:
5536: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5537: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5538: END IF;
5539:
5540: IF l_fin_plan_type_id IS NOT NULL THEN
5533: pa_debug.g_err_stage:='l_cost:'||l_cost;
5534: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5535:
5536: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5537: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5538: END IF;
5539:
5540: IF l_fin_plan_type_id IS NOT NULL THEN
5541: IF (l_next = 'COST' OR l_next = 'ALL') THEN
5559: END IF;
5560:
5561: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for Adjustments from Prior Baseline Versions */
5562: IF l_debug_mode = 'Y' THEN
5563: pa_debug.g_err_stage:='Fetching Data for Current Baselined';
5564: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5565: END IF;
5566: OPEN c_current_baselined(p_project_id,
5567: l_ac_fin_plan_type_id,
5560:
5561: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for Adjustments from Prior Baseline Versions */
5562: IF l_debug_mode = 'Y' THEN
5563: pa_debug.g_err_stage:='Fetching Data for Current Baselined';
5564: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5565: END IF;
5566: OPEN c_current_baselined(p_project_id,
5567: l_ac_fin_plan_type_id,
5568: l_ar_fin_plan_type_id,
5573: l_cb_cost,
5574: l_cb_revenue;
5575: CLOSE c_current_baselined;
5576: IF l_debug_mode = 'Y' THEN
5577: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5578: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5579:
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5574: l_cb_revenue;
5575: CLOSE c_current_baselined;
5576: IF l_debug_mode = 'Y' THEN
5577: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5578: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5579:
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5582:
5576: IF l_debug_mode = 'Y' THEN
5577: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5578: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5579:
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5582:
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5577: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5578: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5579:
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5582:
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5585:
5579:
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5582:
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5585:
5586: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5580: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5581: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5582:
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5585:
5586: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5582:
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5585:
5586: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: IF l_debug_mode = 'Y' THEN
5583: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5584: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5585:
5586: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: IF l_debug_mode = 'Y' THEN
5591: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: IF l_debug_mode = 'Y' THEN
5591: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5592: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5593: END IF;
5594: x_equipment_hours_tbl(i) := l_cb_equipment_quantity -
5595: x_equipment_hours_tbl(i-1) -
5588: END IF;
5589:
5590: IF l_debug_mode = 'Y' THEN
5591: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5592: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5593: END IF;
5594: x_equipment_hours_tbl(i) := l_cb_equipment_quantity -
5595: x_equipment_hours_tbl(i-1) -
5596: x_equipment_hours_tbl(i-2);
5641: END IF;
5642: END IF;
5643:
5644: IF l_debug_mode = 'Y' THEN
5645: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5646: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5647:
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5642: END IF;
5643:
5644: IF l_debug_mode = 'Y' THEN
5645: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5646: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5647:
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5650:
5644: IF l_debug_mode = 'Y' THEN
5645: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5646: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5647:
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5650:
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5645: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5646: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5647:
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5650:
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5653:
5647:
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5650:
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5648: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5649: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5650:
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5656: END IF;
5650:
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5656: END IF;
5657:
5658: x_equipment_hours_tbl(i) := l_cb_equipment_quantity;
5651: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5652: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5656: END IF;
5657:
5658: x_equipment_hours_tbl(i) := l_cb_equipment_quantity;
5659: x_labor_hours_tbl(i) := l_cb_labor_quantity;
5662: l_assigned_flag := 'Y';
5663:
5664: ELSIF l_lookup_code_tbl(i) = 50 THEN
5665: IF l_debug_mode = 'Y' THEN
5666: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Current Versions';
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5668: END IF;
5669: OPEN c_change_documents_current(p_project_id,
5670: l_ac_fin_plan_type_id,
5663:
5664: ELSIF l_lookup_code_tbl(i) = 50 THEN
5665: IF l_debug_mode = 'Y' THEN
5666: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Current Versions';
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5668: END IF;
5669: OPEN c_change_documents_current(p_project_id,
5670: l_ac_fin_plan_type_id,
5671: l_ar_fin_plan_type_id,
5676: l_cost,
5677: l_revenue;
5678: CLOSE c_change_documents_current;
5679: IF l_debug_mode = 'Y' THEN
5680: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5681: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5682:
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5677: l_revenue;
5678: CLOSE c_change_documents_current;
5679: IF l_debug_mode = 'Y' THEN
5680: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5681: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5682:
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5685:
5679: IF l_debug_mode = 'Y' THEN
5680: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5681: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5682:
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5685:
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5681: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5682:
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5685:
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5688:
5682:
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5685:
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5688:
5689: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5685:
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5688:
5689: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5691: END IF;
5685:
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5688:
5689: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5691: END IF;
5692:
5693: IF l_fin_plan_type_id IS NOT NULL THEN
5686: pa_debug.g_err_stage:='l_cost:'||l_cost;
5687: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5688:
5689: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5691: END IF;
5692:
5693: IF l_fin_plan_type_id IS NOT NULL THEN
5694: IF (l_next = 'COST' OR l_next = 'ALL') THEN
5713:
5714:
5715: ELSIF l_lookup_code_tbl(i) = 60 THEN
5716: IF l_debug_mode = 'Y' THEN
5717: pa_debug.g_err_stage:='Fetching Data for Current Working';
5718: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5719: END IF;
5720: OPEN c_current_working(p_project_id,
5721: l_ac_fin_plan_type_id,
5714:
5715: ELSIF l_lookup_code_tbl(i) = 60 THEN
5716: IF l_debug_mode = 'Y' THEN
5717: pa_debug.g_err_stage:='Fetching Data for Current Working';
5718: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5719: END IF;
5720: OPEN c_current_working(p_project_id,
5721: l_ac_fin_plan_type_id,
5722: l_ar_fin_plan_type_id,
5727: l_cw_cost,
5728: l_cw_revenue;
5729: CLOSE c_current_working;
5730: IF l_debug_mode = 'Y' THEN
5731: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5732: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5733:
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5728: l_cw_revenue;
5729: CLOSE c_current_working;
5730: IF l_debug_mode = 'Y' THEN
5731: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5732: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5733:
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5736:
5730: IF l_debug_mode = 'Y' THEN
5731: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5732: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5733:
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5736:
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5731: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5732: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5733:
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5736:
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5739:
5733:
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5736:
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5739:
5740: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5741: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5734: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5735: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5736:
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5739:
5740: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5741: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5736:
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5739:
5740: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5741: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743:
5744: IF l_debug_mode = 'Y' THEN
5737: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5739:
5740: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5741: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743:
5744: IF l_debug_mode = 'Y' THEN
5745: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5741: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743:
5744: IF l_debug_mode = 'Y' THEN
5745: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5746: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5747: END IF;
5748: x_equipment_hours_tbl(i) := l_cw_equipment_quantity -
5749: x_equipment_hours_tbl(i-1) -
5742: END IF;
5743:
5744: IF l_debug_mode = 'Y' THEN
5745: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5746: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5747: END IF;
5748: x_equipment_hours_tbl(i) := l_cw_equipment_quantity -
5749: x_equipment_hours_tbl(i-1) -
5750: x_equipment_hours_tbl(i-2);
5795: END IF;
5796: END IF;
5797:
5798: IF l_debug_mode = 'Y' THEN
5799: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5801:
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5796: END IF;
5797:
5798: IF l_debug_mode = 'Y' THEN
5799: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5801:
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5804:
5798: IF l_debug_mode = 'Y' THEN
5799: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5801:
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5804:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5799: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5801:
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5804:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5807:
5801:
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5804:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5807:
5808: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5802: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5803: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5804:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5807:
5808: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810: END IF;
5804:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5807:
5808: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810: END IF;
5811:
5812:
5805: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5807:
5808: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810: END IF;
5811:
5812:
5813: x_equipment_hours_tbl(i) := l_cw_equipment_quantity;
5817: l_assigned_flag := 'Y';
5818:
5819: ELSIF l_lookup_code_tbl(i) = 80 THEN
5820: IF l_debug_mode = 'Y' THEN
5821: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Approved';
5822: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5823: END IF;
5824: OPEN c_change_documents_status(p_project_id,
5825: 'CI_APPROVED',
5818:
5819: ELSIF l_lookup_code_tbl(i) = 80 THEN
5820: IF l_debug_mode = 'Y' THEN
5821: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Approved';
5822: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5823: END IF;
5824: OPEN c_change_documents_status(p_project_id,
5825: 'CI_APPROVED',
5826: l_margin_derived_from_code,
5831: l_cost,
5832: l_revenue;
5833: CLOSE c_change_documents_status;
5834: IF l_debug_mode = 'Y' THEN
5835: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5837:
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5832: l_revenue;
5833: CLOSE c_change_documents_status;
5834: IF l_debug_mode = 'Y' THEN
5835: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5837:
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840:
5834: IF l_debug_mode = 'Y' THEN
5835: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5837:
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840:
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5835: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5837:
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840:
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5843:
5837:
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840:
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5843:
5844: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5845: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5838: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840:
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5843:
5844: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5845: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5846: END IF;
5840:
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5843:
5844: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5845: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5846: END IF;
5847:
5848: ELSIF l_lookup_code_tbl(i) = 90 THEN
5841: pa_debug.g_err_stage:='l_cost:'||l_cost;
5842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5843:
5844: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5845: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5846: END IF;
5847:
5848: ELSIF l_lookup_code_tbl(i) = 90 THEN
5849: IF l_debug_mode = 'Y' THEN
5846: END IF;
5847:
5848: ELSIF l_lookup_code_tbl(i) = 90 THEN
5849: IF l_debug_mode = 'Y' THEN
5850: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Working';
5851: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5852: END IF;
5853: OPEN c_change_documents_status(p_project_id,
5854: 'CI_WORKING',
5847:
5848: ELSIF l_lookup_code_tbl(i) = 90 THEN
5849: IF l_debug_mode = 'Y' THEN
5850: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Working';
5851: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5852: END IF;
5853: OPEN c_change_documents_status(p_project_id,
5854: 'CI_WORKING',
5855: l_margin_derived_from_code,
5860: l_cost,
5861: l_revenue;
5862: CLOSE c_change_documents_status;
5863: IF l_debug_mode = 'Y' THEN
5864: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5865: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5866:
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5861: l_revenue;
5862: CLOSE c_change_documents_status;
5863: IF l_debug_mode = 'Y' THEN
5864: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5865: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5866:
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5869:
5863: IF l_debug_mode = 'Y' THEN
5864: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5865: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5866:
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5869:
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5864: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5865: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5866:
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5869:
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5872:
5866:
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5869:
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5872:
5873: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5867: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5869:
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5872:
5873: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5875: END IF;
5869:
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5872:
5873: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5875: END IF;
5876:
5877: ELSIF l_lookup_code_tbl(i) = 100 THEN
5870: pa_debug.g_err_stage:='l_cost:'||l_cost;
5871: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5872:
5873: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5875: END IF;
5876:
5877: ELSIF l_lookup_code_tbl(i) = 100 THEN
5878: IF l_debug_mode = 'Y' THEN
5875: END IF;
5876:
5877: ELSIF l_lookup_code_tbl(i) = 100 THEN
5878: IF l_debug_mode = 'Y' THEN
5879: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Submitted';
5880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5881: END IF;
5882: OPEN c_change_documents_status(p_project_id,
5883: 'CI_SUBMITTED',
5876:
5877: ELSIF l_lookup_code_tbl(i) = 100 THEN
5878: IF l_debug_mode = 'Y' THEN
5879: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Submitted';
5880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5881: END IF;
5882: OPEN c_change_documents_status(p_project_id,
5883: 'CI_SUBMITTED',
5884: l_margin_derived_from_code,
5889: l_cost,
5890: l_revenue;
5891: CLOSE c_change_documents_status;
5892: IF l_debug_mode = 'Y' THEN
5893: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5894: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5895:
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5890: l_revenue;
5891: CLOSE c_change_documents_status;
5892: IF l_debug_mode = 'Y' THEN
5893: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5894: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5895:
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5898:
5892: IF l_debug_mode = 'Y' THEN
5893: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5894: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5895:
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5898:
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5893: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5894: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5895:
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5898:
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5901:
5895:
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5898:
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5901:
5902: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5903: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5896: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5898:
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5901:
5902: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5903: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5904: END IF;
5898:
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5901:
5902: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5903: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5904: END IF;
5905:
5906: ELSIF l_lookup_code_tbl(i) = 110 THEN
5899: pa_debug.g_err_stage:='l_cost:'||l_cost;
5900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5901:
5902: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5903: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5904: END IF;
5905:
5906: ELSIF l_lookup_code_tbl(i) = 110 THEN
5907: IF l_debug_mode = 'Y' THEN
5904: END IF;
5905:
5906: ELSIF l_lookup_code_tbl(i) = 110 THEN
5907: IF l_debug_mode = 'Y' THEN
5908: pa_debug.g_err_stage:='Fetching Data for Projected Total';
5909: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5910: END IF;
5911: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-4) +
5912: x_equipment_hours_tbl(i-3) +
5905:
5906: ELSIF l_lookup_code_tbl(i) = 110 THEN
5907: IF l_debug_mode = 'Y' THEN
5908: pa_debug.g_err_stage:='Fetching Data for Projected Total';
5909: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5910: END IF;
5911: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-4) +
5912: x_equipment_hours_tbl(i-3) +
5913: x_equipment_hours_tbl(i-2) +
5939: END LOOP;
5940: END IF;
5941:
5942: IF l_debug_mode = 'Y' THEN
5943: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
5944: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5945: END IF;
5946:
5947: l_row_count := x_summary_tbl.COUNT;
5940: END IF;
5941:
5942: IF l_debug_mode = 'Y' THEN
5943: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
5944: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5945: END IF;
5946:
5947: l_row_count := x_summary_tbl.COUNT;
5948: IF l_row_count > 0 THEN
5985: END IF;
5986: END IF; /* COST or REVENUE version */
5987: /* Bug 4038253 :ends */
5988:
5989: pa_debug.reset_curr_function;
5990:
5991: EXCEPTION
5992: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5993: IF l_debug_mode = 'Y' THEN
5990:
5991: EXCEPTION
5992: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5993: IF l_debug_mode = 'Y' THEN
5994: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5995: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5996: END IF;
5997: pa_debug.reset_curr_function;
5998: RETURN;
5991: EXCEPTION
5992: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5993: IF l_debug_mode = 'Y' THEN
5994: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5995: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5996: END IF;
5997: pa_debug.reset_curr_function;
5998: RETURN;
5999:
5993: IF l_debug_mode = 'Y' THEN
5994: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5995: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5996: END IF;
5997: pa_debug.reset_curr_function;
5998: RETURN;
5999:
6000: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6001: l_msg_count := FND_MSG_PUB.count_msg;
6012: ELSE
6013: x_msg_count := l_msg_count;
6014: END IF;
6015: x_return_status := FND_API.G_RET_STS_ERROR;
6016: pa_debug.reset_curr_function;
6017: RETURN;
6018:
6019: WHEN OTHERS THEN
6020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6023: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
6024: ,p_procedure_name => 'get_summary_data');
6025:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6028: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
6029: END IF;
6030: pa_debug.reset_curr_function;
6031: RAISE;
6024: ,p_procedure_name => 'get_summary_data');
6025:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6028: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
6029: END IF;
6030: pa_debug.reset_curr_function;
6031: RAISE;
6032:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6028: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
6029: END IF;
6030: pa_debug.reset_curr_function;
6031: RAISE;
6032:
6033: END get_summary_data;
6034:
6068: l_partial_quantity PA_BUDGET_VERSIONS.LABOR_QUANTITY%TYPE;
6069: l_labor_quantity PA_BUDGET_VERSIONS.LABOR_QUANTITY%TYPE;
6070: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6071: BEGIN
6072: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6073: IF l_debug_mode = 'Y' THEN
6074: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6075: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6076: END IF;
6070: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6071: BEGIN
6072: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6073: IF l_debug_mode = 'Y' THEN
6074: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6075: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6076: END IF;
6077:
6078: -------------------------------
6071: BEGIN
6072: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6073: IF l_debug_mode = 'Y' THEN
6074: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6075: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6076: END IF;
6077:
6078: -------------------------------
6079: -- Fetching source version type
6079: -- Fetching source version type
6080: -------------------------------
6081: IF p_version_type IS NULL THEN
6082: IF l_debug_mode = 'Y' THEN
6083: pa_debug.g_err_stage:='fetching source version type';
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6085: END IF;
6086: BEGIN
6087: SELECT VERSION_TYPE
6080: -------------------------------
6081: IF p_version_type IS NULL THEN
6082: IF l_debug_mode = 'Y' THEN
6083: pa_debug.g_err_stage:='fetching source version type';
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6085: END IF;
6086: BEGIN
6087: SELECT VERSION_TYPE
6088: INTO l_source_version_type
6090: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6091: EXCEPTION
6092: WHEN NO_DATA_FOUND THEN
6093: IF l_debug_mode = 'Y' THEN
6094: pa_debug.g_err_stage:='source version does not exist';
6095: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6096: END IF;
6097: RAISE;
6098: END;
6091: EXCEPTION
6092: WHEN NO_DATA_FOUND THEN
6093: IF l_debug_mode = 'Y' THEN
6094: pa_debug.g_err_stage:='source version does not exist';
6095: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6096: END IF;
6097: RAISE;
6098: END;
6099: ELSE
6103: -------------------------------
6104: -- Fetching target version type
6105: -------------------------------
6106: IF l_debug_mode = 'Y' THEN
6107: pa_debug.g_err_stage:='fetching target version type';
6108: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6109: END IF;
6110: BEGIN
6111: SELECT VERSION_TYPE
6104: -- Fetching target version type
6105: -------------------------------
6106: IF l_debug_mode = 'Y' THEN
6107: pa_debug.g_err_stage:='fetching target version type';
6108: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6109: END IF;
6110: BEGIN
6111: SELECT VERSION_TYPE
6112: INTO l_target_version_type
6114: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6115: EXCEPTION
6116: WHEN NO_DATA_FOUND THEN
6117: IF l_debug_mode = 'Y' THEN
6118: pa_debug.g_err_stage:='target version does not exist';
6119: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6120: END IF;
6121: RAISE;
6122: END;
6115: EXCEPTION
6116: WHEN NO_DATA_FOUND THEN
6117: IF l_debug_mode = 'Y' THEN
6118: pa_debug.g_err_stage:='target version does not exist';
6119: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6120: END IF;
6121: RAISE;
6122: END;
6123:
6125: -- Fetching labor quantity
6126: -----------------------------------
6127: IF p_labor_qty IS NULL THEN
6128: IF l_debug_mode = 'Y' THEN
6129: pa_debug.g_err_stage:='Fetching labor quantity';
6130: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6131: END IF;
6132: BEGIN
6133: SELECT labor_quantity
6126: -----------------------------------
6127: IF p_labor_qty IS NULL THEN
6128: IF l_debug_mode = 'Y' THEN
6129: pa_debug.g_err_stage:='Fetching labor quantity';
6130: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6131: END IF;
6132: BEGIN
6133: SELECT labor_quantity
6134: INTO l_labor_quantity
6136: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6137: EXCEPTION
6138: WHEN NO_DATA_FOUND THEN
6139: IF l_debug_mode = 'Y' THEN
6140: pa_debug.g_err_stage:='source version does not exist';
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6142: END IF;
6143: RAISE;
6144: END;
6137: EXCEPTION
6138: WHEN NO_DATA_FOUND THEN
6139: IF l_debug_mode = 'Y' THEN
6140: pa_debug.g_err_stage:='source version does not exist';
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6142: END IF;
6143: RAISE;
6144: END;
6145: ELSE
6183: ELSIF l_target_version_type = 'REVENUE' -- Raja review OR l_target_version_type = 'ALL'
6184: THEN
6185: BEGIN
6186: IF l_debug_mode = 'Y' THEN
6187: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6188: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6189: END IF;
6190: SELECT 'Y'
6191: INTO l_impl_qty_exists
6184: THEN
6185: BEGIN
6186: IF l_debug_mode = 'Y' THEN
6187: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6188: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6189: END IF;
6190: SELECT 'Y'
6191: INTO l_impl_qty_exists
6192: FROM DUAL
6226: ----------------------------------------------------------------
6227: -- Fetching the approved revenue current working budget version
6228: ----------------------------------------------------------------
6229: IF l_debug_mode = 'Y' THEN
6230: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6231: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6232: END IF;
6233: BEGIN
6234: SELECT A.BUDGET_VERSION_ID
6227: -- Fetching the approved revenue current working budget version
6228: ----------------------------------------------------------------
6229: IF l_debug_mode = 'Y' THEN
6230: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6231: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6232: END IF;
6233: BEGIN
6234: SELECT A.BUDGET_VERSION_ID
6235: INTO l_appr_rev_cw_version_id
6295:
6296: /*
6297: BEGIN
6298: IF l_debug_mode = 'Y' THEN
6299: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6300: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6301: END IF;
6302: SELECT 'Y'
6303: INTO l_impl_qty_exists
6296: /*
6297: BEGIN
6298: IF l_debug_mode = 'Y' THEN
6299: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6300: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6301: END IF;
6302: SELECT 'Y'
6303: INTO l_impl_qty_exists
6304: FROM DUAL
6378: l_partial_quantity PA_BUDGET_VERSIONS.EQUIPMENT_QUANTITY%TYPE;
6379: l_equip_quantity PA_BUDGET_VERSIONS.EQUIPMENT_QUANTITY%TYPE;
6380: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6381: BEGIN
6382: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6383: IF l_debug_mode = 'Y' THEN
6384: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6385: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6386: END IF;
6380: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6381: BEGIN
6382: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6383: IF l_debug_mode = 'Y' THEN
6384: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6385: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6386: END IF;
6387:
6388: -------------------------------
6381: BEGIN
6382: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6383: IF l_debug_mode = 'Y' THEN
6384: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6385: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6386: END IF;
6387:
6388: -------------------------------
6389: -- Fetching source version type
6389: -- Fetching source version type
6390: -------------------------------
6391: IF p_version_type IS NULL THEN
6392: IF l_debug_mode = 'Y' THEN
6393: pa_debug.g_err_stage:='fetching source version type';
6394: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6395: END IF;
6396: BEGIN
6397: SELECT VERSION_TYPE
6390: -------------------------------
6391: IF p_version_type IS NULL THEN
6392: IF l_debug_mode = 'Y' THEN
6393: pa_debug.g_err_stage:='fetching source version type';
6394: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6395: END IF;
6396: BEGIN
6397: SELECT VERSION_TYPE
6398: INTO l_source_version_type
6400: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6401: EXCEPTION
6402: WHEN NO_DATA_FOUND THEN
6403: IF l_debug_mode = 'Y' THEN
6404: pa_debug.g_err_stage:='source version does not exist';
6405: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6406: END IF;
6407: RAISE;
6408: END;
6401: EXCEPTION
6402: WHEN NO_DATA_FOUND THEN
6403: IF l_debug_mode = 'Y' THEN
6404: pa_debug.g_err_stage:='source version does not exist';
6405: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6406: END IF;
6407: RAISE;
6408: END;
6409: ELSE
6413: -------------------------------
6414: -- Fetching target version type
6415: -------------------------------
6416: IF l_debug_mode = 'Y' THEN
6417: pa_debug.g_err_stage:='fetching target version type';
6418: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6419: END IF;
6420: BEGIN
6421: SELECT VERSION_TYPE
6414: -- Fetching target version type
6415: -------------------------------
6416: IF l_debug_mode = 'Y' THEN
6417: pa_debug.g_err_stage:='fetching target version type';
6418: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6419: END IF;
6420: BEGIN
6421: SELECT VERSION_TYPE
6422: INTO l_target_version_type
6424: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6425: EXCEPTION
6426: WHEN NO_DATA_FOUND THEN
6427: IF l_debug_mode = 'Y' THEN
6428: pa_debug.g_err_stage:='target version does not exist';
6429: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6430: END IF;
6431: RAISE;
6432: END;
6425: EXCEPTION
6426: WHEN NO_DATA_FOUND THEN
6427: IF l_debug_mode = 'Y' THEN
6428: pa_debug.g_err_stage:='target version does not exist';
6429: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6430: END IF;
6431: RAISE;
6432: END;
6433:
6435: -- Fetching equipment quantity
6436: -----------------------------------
6437: IF p_equip_qty IS NULL THEN
6438: IF l_debug_mode = 'Y' THEN
6439: pa_debug.g_err_stage:='Fetching equipment quantity';
6440: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6441: END IF;
6442: BEGIN
6443: SELECT EQUIPMENT_QUANTITY
6436: -----------------------------------
6437: IF p_equip_qty IS NULL THEN
6438: IF l_debug_mode = 'Y' THEN
6439: pa_debug.g_err_stage:='Fetching equipment quantity';
6440: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6441: END IF;
6442: BEGIN
6443: SELECT EQUIPMENT_QUANTITY
6444: INTO l_equip_quantity
6446: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6447: EXCEPTION
6448: WHEN NO_DATA_FOUND THEN
6449: IF l_debug_mode = 'Y' THEN
6450: pa_debug.g_err_stage:='source version does not exist';
6451: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6452: END IF;
6453: RAISE;
6454: END;
6447: EXCEPTION
6448: WHEN NO_DATA_FOUND THEN
6449: IF l_debug_mode = 'Y' THEN
6450: pa_debug.g_err_stage:='source version does not exist';
6451: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6452: END IF;
6453: RAISE;
6454: END;
6455: ELSE
6492: ELSIF l_target_version_type = 'REVENUE' -- Raja review OR l_target_version_type = 'ALL'
6493: THEN
6494: BEGIN
6495: IF l_debug_mode = 'Y' THEN
6496: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6498: END IF;
6499: SELECT 'Y'
6500: INTO l_impl_qty_exists
6493: THEN
6494: BEGIN
6495: IF l_debug_mode = 'Y' THEN
6496: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6498: END IF;
6499: SELECT 'Y'
6500: INTO l_impl_qty_exists
6501: FROM DUAL
6535: ----------------------------------------------------------------
6536: -- Fetching the approved revenue currenct working budget version
6537: ----------------------------------------------------------------
6538: IF l_debug_mode = 'Y' THEN
6539: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6540: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6541: END IF;
6542:
6543: BEGIN
6536: -- Fetching the approved revenue currenct working budget version
6537: ----------------------------------------------------------------
6538: IF l_debug_mode = 'Y' THEN
6539: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6540: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6541: END IF;
6542:
6543: BEGIN
6544: SELECT A.BUDGET_VERSION_ID
6604:
6605: /*
6606: BEGIN
6607: IF l_debug_mode = 'Y' THEN
6608: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6609: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6610: END IF;
6611: SELECT 'Y'
6612: INTO l_impl_qty_exists
6605: /*
6606: BEGIN
6607: IF l_debug_mode = 'Y' THEN
6608: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6609: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6610: END IF;
6611: SELECT 'Y'
6612: INTO l_impl_qty_exists
6613: FROM DUAL
6688: -- Bug 5845142
6689: l_ci_app_rev_flag pa_budget_versions.approved_rev_plan_type_flag%TYPE;
6690: BEGIN
6691:
6692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6693:
6694: IF l_debug_mode = 'Y' THEN
6695: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6696: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6691:
6692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6693:
6694: IF l_debug_mode = 'Y' THEN
6695: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6696: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6697: END IF;
6698:
6699: ----------------------------------------------------------------
6692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6693:
6694: IF l_debug_mode = 'Y' THEN
6695: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6696: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6697: END IF;
6698:
6699: ----------------------------------------------------------------
6700: -- Return 0 if p_pt_ct_version_type is 'COST'
6722: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6723: EXCEPTION
6724: WHEN NO_DATA_FOUND THEN
6725: IF l_debug_mode = 'Y' THEN
6726: pa_debug.g_err_stage:='In get_pc_revenue_partial - no budget version';
6727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6728: END IF;
6729: RAISE;
6730: END;
6723: EXCEPTION
6724: WHEN NO_DATA_FOUND THEN
6725: IF l_debug_mode = 'Y' THEN
6726: pa_debug.g_err_stage:='In get_pc_revenue_partial - no budget version';
6727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6728: END IF;
6729: RAISE;
6730: END;
6731: ELSE
6733: END IF;
6734:
6735: BEGIN
6736: IF l_debug_mode = 'Y' THEN
6737: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6739: END IF;
6740: SELECT 'Y'
6741: INTO l_exists
6734:
6735: BEGIN
6736: IF l_debug_mode = 'Y' THEN
6737: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6739: END IF;
6740: SELECT 'Y'
6741: INTO l_exists
6742: FROM DUAL
6761: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6762: EXCEPTION
6763: WHEN NO_DATA_FOUND THEN
6764: IF l_debug_mode = 'Y' THEN
6765: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of source';
6766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6767: END IF;
6768: RAISE;
6769: END;
6762: EXCEPTION
6763: WHEN NO_DATA_FOUND THEN
6764: IF l_debug_mode = 'Y' THEN
6765: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of source';
6766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6767: END IF;
6768: RAISE;
6769: END;
6770: ELSE
6781: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6782: EXCEPTION
6783: WHEN NO_DATA_FOUND THEN
6784: IF l_debug_mode = 'Y' THEN
6785: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of target';
6786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6787: END IF;
6788: RAISE;
6789: END;
6782: EXCEPTION
6783: WHEN NO_DATA_FOUND THEN
6784: IF l_debug_mode = 'Y' THEN
6785: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of target';
6786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6787: END IF;
6788: RAISE;
6789: END;
6790:
6824: ----------------------------------------------------------------
6825: -- Fetching the approved revenue budget currenct working version
6826: ----------------------------------------------------------------
6827: IF l_debug_mode = 'Y' THEN
6828: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6829: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6830: END IF;
6831:
6832: BEGIN
6825: -- Fetching the approved revenue budget currenct working version
6826: ----------------------------------------------------------------
6827: IF l_debug_mode = 'Y' THEN
6828: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6829: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6830: END IF;
6831:
6832: BEGIN
6833: SELECT A.BUDGET_VERSION_ID
6897: l_cost pa_budget_versions.total_project_raw_cost%TYPE;
6898:
6899: BEGIN
6900:
6901: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6902:
6903: IF l_debug_mode = 'Y' THEN
6904: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6900:
6901: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6902:
6903: IF l_debug_mode = 'Y' THEN
6904: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6906: END IF;
6907:
6908: ----------------------------------------------------------------
6901: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6902:
6903: IF l_debug_mode = 'Y' THEN
6904: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6906: END IF;
6907:
6908: ----------------------------------------------------------------
6909: -- Return 0 if p_pt_ct_version_type is 'REVENUE'
6936: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6937: EXCEPTION
6938: WHEN NO_DATA_FOUND THEN
6939: IF l_debug_mode = 'Y' THEN
6940: pa_debug.g_err_stage:='In get_pc_cost - no version type of source';
6941: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6942: END IF;
6943: RAISE;
6944: END;
6937: EXCEPTION
6938: WHEN NO_DATA_FOUND THEN
6939: IF l_debug_mode = 'Y' THEN
6940: pa_debug.g_err_stage:='In get_pc_cost - no version type of source';
6941: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6942: END IF;
6943: RAISE;
6944: END;
6945: ELSE
6956: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6957: EXCEPTION
6958: WHEN NO_DATA_FOUND THEN
6959: IF l_debug_mode = 'Y' THEN
6960: pa_debug.g_err_stage:='In get_pc_cost - no version type of target';
6961: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6962: END IF;
6963: RAISE;
6964: END;
6957: EXCEPTION
6958: WHEN NO_DATA_FOUND THEN
6959: IF l_debug_mode = 'Y' THEN
6960: pa_debug.g_err_stage:='In get_pc_cost - no version type of target';
6961: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6962: END IF;
6963: RAISE;
6964: END;
6965:
6997:
6998: EXCEPTION
6999: WHEN NO_DATA_FOUND THEN
7000: IF l_debug_mode = 'Y' THEN
7001: pa_debug.g_err_stage:='In get_pc_cost - couldnt get raw or burdened cost';
7002: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7003: END IF;
7004: RAISE;
7005: END;
6998: EXCEPTION
6999: WHEN NO_DATA_FOUND THEN
7000: IF l_debug_mode = 'Y' THEN
7001: pa_debug.g_err_stage:='In get_pc_cost - couldnt get raw or burdened cost';
7002: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7003: END IF;
7004: RAISE;
7005: END;
7006: END IF;
7021: EXCEPTION
7022: WHEN NO_DATA_FOUND THEN
7023: l_return_cost := 0;
7024: IF l_debug_mode = 'Y' THEN
7025: pa_debug.g_err_stage:='In get_pc_cost - NO_DATA_FOUND ';
7026: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7027: END IF;
7028: END;
7029:
7022: WHEN NO_DATA_FOUND THEN
7023: l_return_cost := 0;
7024: IF l_debug_mode = 'Y' THEN
7025: pa_debug.g_err_stage:='In get_pc_cost - NO_DATA_FOUND ';
7026: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7027: END IF;
7028: END;
7029:
7030: ELSIF l_version_type = 'REVENUE' THEN
7031: l_return_cost := 0;
7032: END IF;
7033:
7034: IF l_debug_mode = 'Y' THEN
7035: pa_debug.g_err_stage:='In get_pc_cost - l_return_cost ' || l_return_cost;
7036: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7037: END IF;
7038:
7039: return l_return_cost;
7032: END IF;
7033:
7034: IF l_debug_mode = 'Y' THEN
7035: pa_debug.g_err_stage:='In get_pc_cost - l_return_cost ' || l_return_cost;
7036: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7037: END IF;
7038:
7039: return l_return_cost;
7040: END get_pc_cost;
7150: and merge2.project_id = c_project_id)));
7151:
7152: BEGIN
7153:
7154: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7155: x_msg_count := 0;
7156: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7158: p_debug_mode => l_debug_mode );
7153:
7154: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7155: x_msg_count := 0;
7156: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7158: p_debug_mode => l_debug_mode );
7159:
7160:
7161: -----------------------------------------------------------------------------
7162: -- Validate Input Params, p_project_id and p_budget_version_id cannot be null
7163: -----------------------------------------------------------------------------
7164:
7165: IF l_debug_mode = 'Y' THEN
7166: pa_debug.g_err_stage:='Validating input parameters - project id and budget version id: ' || p_project_id;
7167: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7168: END IF;
7169:
7170: IF (p_project_id IS NULL) THEN
7163: -----------------------------------------------------------------------------
7164:
7165: IF l_debug_mode = 'Y' THEN
7166: pa_debug.g_err_stage:='Validating input parameters - project id and budget version id: ' || p_project_id;
7167: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7168: END IF;
7169:
7170: IF (p_project_id IS NULL) THEN
7171: IF l_debug_mode = 'Y' THEN
7168: END IF;
7169:
7170: IF (p_project_id IS NULL) THEN
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.g_err_stage:='p_project_id is null';
7173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7174: END IF;
7175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7176: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7169:
7170: IF (p_project_id IS NULL) THEN
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.g_err_stage:='p_project_id is null';
7173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7174: END IF;
7175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7176: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7177: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7177: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7178: END IF;
7179:
7180: IF l_debug_mode = 'Y' THEN
7181: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7182: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7183: END IF;
7184:
7185: IF (p_budget_version_id IS NULL) THEN
7178: END IF;
7179:
7180: IF l_debug_mode = 'Y' THEN
7181: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7182: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7183: END IF;
7184:
7185: IF (p_budget_version_id IS NULL) THEN
7186: IF l_debug_mode = 'Y' THEN
7183: END IF;
7184:
7185: IF (p_budget_version_id IS NULL) THEN
7186: IF l_debug_mode = 'Y' THEN
7187: pa_debug.g_err_stage:='p_budget_version_id is null';
7188: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7189: END IF;
7190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7191: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7184:
7185: IF (p_budget_version_id IS NULL) THEN
7186: IF l_debug_mode = 'Y' THEN
7187: pa_debug.g_err_stage:='p_budget_version_id is null';
7188: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7189: END IF;
7190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7191: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7193: END IF;
7194:
7195: IF l_debug_mode = 'Y' THEN
7196: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7197: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7198: END IF;
7199:
7200: ---------------------------------------------------------
7193: END IF;
7194:
7195: IF l_debug_mode = 'Y' THEN
7196: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7197: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7198: END IF;
7199:
7200: ---------------------------------------------------------
7201: -- Derive version type and fin_plan_type_id if not passed
7202: ---------------------------------------------------------
7203: IF p_version_type is NULL THEN
7204:
7205: IF l_debug_mode = 'Y' THEN
7206: pa_debug.g_err_stage:='fetching version type';
7207: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7208: END IF;
7209:
7210: BEGIN
7203: IF p_version_type is NULL THEN
7204:
7205: IF l_debug_mode = 'Y' THEN
7206: pa_debug.g_err_stage:='fetching version type';
7207: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7208: END IF;
7209:
7210: BEGIN
7211: Select version_type
7213: from pa_budget_versions
7214: where budget_version_id = p_budget_version_id;
7215:
7216: IF l_debug_mode = 'Y' THEN
7217: pa_debug.g_err_stage:='l_version_type; '||l_version_type;
7218: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7219: END IF;
7220:
7221: EXCEPTION
7214: where budget_version_id = p_budget_version_id;
7215:
7216: IF l_debug_mode = 'Y' THEN
7217: pa_debug.g_err_stage:='l_version_type; '||l_version_type;
7218: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7219: END IF;
7220:
7221: EXCEPTION
7222: WHEN NO_DATA_FOUND THEN
7220:
7221: EXCEPTION
7222: WHEN NO_DATA_FOUND THEN
7223: IF l_debug_mode = 'Y' THEN
7224: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching version type';
7225: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7226: END IF;
7227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7228: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7221: EXCEPTION
7222: WHEN NO_DATA_FOUND THEN
7223: IF l_debug_mode = 'Y' THEN
7224: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching version type';
7225: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7226: END IF;
7227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7228: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7229: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7235:
7236: IF p_fin_plan_type_id is NULL THEN
7237:
7238: IF l_debug_mode = 'Y' THEN
7239: pa_debug.g_err_stage:='fetching fin plan type id';
7240: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7241: END IF;
7242:
7243: BEGIN
7236: IF p_fin_plan_type_id is NULL THEN
7237:
7238: IF l_debug_mode = 'Y' THEN
7239: pa_debug.g_err_stage:='fetching fin plan type id';
7240: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7241: END IF;
7242:
7243: BEGIN
7244: Select fin_plan_type_id
7246: from pa_budget_versions
7247: where budget_version_id = p_budget_version_id;
7248:
7249: IF l_debug_mode = 'Y' THEN
7250: pa_debug.g_err_stage:='l_fin_plan_type_id; '||l_fin_plan_type_id;
7251: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7252: END IF;
7253:
7254: EXCEPTION
7247: where budget_version_id = p_budget_version_id;
7248:
7249: IF l_debug_mode = 'Y' THEN
7250: pa_debug.g_err_stage:='l_fin_plan_type_id; '||l_fin_plan_type_id;
7251: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7252: END IF;
7253:
7254: EXCEPTION
7255: WHEN NO_DATA_FOUND THEN
7253:
7254: EXCEPTION
7255: WHEN NO_DATA_FOUND THEN
7256: IF l_debug_mode = 'Y' THEN
7257: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching fin plan type id';
7258: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7259: END IF;
7260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7261: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7254: EXCEPTION
7255: WHEN NO_DATA_FOUND THEN
7256: IF l_debug_mode = 'Y' THEN
7257: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching fin plan type id';
7258: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7259: END IF;
7260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7261: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7262: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7270: -------------------------------------------
7271: -- Initialising all tables to empty tables.
7272: -------------------------------------------
7273: IF l_debug_mode = 'Y' THEN
7274: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
7275: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7276: END IF;
7277: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
7278: x_equipment_hours_tbl := SYSTEM.pa_num_tbl_type();
7271: -- Initialising all tables to empty tables.
7272: -------------------------------------------
7273: IF l_debug_mode = 'Y' THEN
7274: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
7275: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7276: END IF;
7277: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
7278: x_equipment_hours_tbl := SYSTEM.pa_num_tbl_type();
7279: x_labor_hours_tbl := SYSTEM.pa_num_tbl_type();
7286: ----------------------------------------------------
7287: -- Fetch Lookup_code ,summary and reference details.
7288: ----------------------------------------------------
7289: IF l_debug_mode = 'Y' THEN
7290: pa_debug.g_err_stage:='Fetching lookup data' || p_project_id;
7291: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7292: END IF;
7293:
7294: OPEN c_lookup_summary;
7287: -- Fetch Lookup_code ,summary and reference details.
7288: ----------------------------------------------------
7289: IF l_debug_mode = 'Y' THEN
7290: pa_debug.g_err_stage:='Fetching lookup data' || p_project_id;
7291: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7292: END IF;
7293:
7294: OPEN c_lookup_summary;
7295: FETCH c_lookup_summary BULK COLLECT INTO x_summary_tbl,l_lookup_code_tbl;
7326: x_revenue_tbl.extend(1);
7327:
7328: IF l_lookup_code_tbl(i) = 10 THEN
7329: IF l_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:='Fetching Data for Approved Change Documents';
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332: END IF;
7333: OPEN c_change_documents_status('CI_APPROVED',
7334: p_budget_version_id,
7327:
7328: IF l_lookup_code_tbl(i) = 10 THEN
7329: IF l_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:='Fetching Data for Approved Change Documents';
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332: END IF;
7333: OPEN c_change_documents_status('CI_APPROVED',
7334: p_budget_version_id,
7335: p_project_id ,
7340: l_cost,
7341: l_revenue;
7342: CLOSE c_change_documents_status;
7343: IF l_debug_mode = 'Y' THEN
7344: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7345: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7346:
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7341: l_revenue;
7342: CLOSE c_change_documents_status;
7343: IF l_debug_mode = 'Y' THEN
7344: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7345: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7346:
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7349:
7343: IF l_debug_mode = 'Y' THEN
7344: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7345: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7346:
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7349:
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7344: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7345: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7346:
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7349:
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7352:
7346:
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7349:
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7352:
7353: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7354: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7347: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7348: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7349:
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7352:
7353: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7354: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7349:
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7352:
7353: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7354: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7356:
7357: ELSIF l_lookup_code_tbl(i) = 20 THEN
7350: pa_debug.g_err_stage:='l_cost:'||l_cost;
7351: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7352:
7353: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7354: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7356:
7357: ELSIF l_lookup_code_tbl(i) = 20 THEN
7358: IF l_debug_mode = 'Y' THEN
7355: END IF;
7356:
7357: ELSIF l_lookup_code_tbl(i) = 20 THEN
7358: IF l_debug_mode = 'Y' THEN
7359: pa_debug.g_err_stage:='Fetching Data for Working Change Documents';
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361: END IF;
7362: OPEN c_change_documents_status('CI_WORKING',
7363: p_budget_version_id,
7356:
7357: ELSIF l_lookup_code_tbl(i) = 20 THEN
7358: IF l_debug_mode = 'Y' THEN
7359: pa_debug.g_err_stage:='Fetching Data for Working Change Documents';
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361: END IF;
7362: OPEN c_change_documents_status('CI_WORKING',
7363: p_budget_version_id,
7364: p_project_id ,
7369: l_cost,
7370: l_revenue;
7371: CLOSE c_change_documents_status;
7372: IF l_debug_mode = 'Y' THEN
7373: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7374: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7375:
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7370: l_revenue;
7371: CLOSE c_change_documents_status;
7372: IF l_debug_mode = 'Y' THEN
7373: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7374: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7375:
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7378:
7372: IF l_debug_mode = 'Y' THEN
7373: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7374: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7375:
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7378:
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7373: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7374: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7375:
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7378:
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7381:
7375:
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7378:
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7381:
7382: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7383: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7376: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7377: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7378:
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7381:
7382: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7383: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7384: END IF;
7378:
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7381:
7382: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7383: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7384: END IF;
7385:
7386: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7379: pa_debug.g_err_stage:='l_cost:'||l_cost;
7380: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7381:
7382: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7383: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7384: END IF;
7385:
7386: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7387: IF l_debug_mode = 'Y' THEN
7384: END IF;
7385:
7386: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7387: IF l_debug_mode = 'Y' THEN
7388: pa_debug.g_err_stage:='Fetching Data for Submitted Change Documents';
7389: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7390: END IF;
7391: OPEN c_change_documents_status('CI_SUBMITTED',
7392: p_budget_version_id,
7385:
7386: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7387: IF l_debug_mode = 'Y' THEN
7388: pa_debug.g_err_stage:='Fetching Data for Submitted Change Documents';
7389: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7390: END IF;
7391: OPEN c_change_documents_status('CI_SUBMITTED',
7392: p_budget_version_id,
7393: p_project_id ,
7398: l_cost,
7399: l_revenue;
7400: CLOSE c_change_documents_status;
7401: IF l_debug_mode = 'Y' THEN
7402: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7403: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7404:
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7399: l_revenue;
7400: CLOSE c_change_documents_status;
7401: IF l_debug_mode = 'Y' THEN
7402: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7403: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7404:
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7407:
7401: IF l_debug_mode = 'Y' THEN
7402: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7403: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7404:
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7407:
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7403: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7404:
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7407:
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410:
7404:
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7407:
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410:
7411: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7412: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7405: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7406: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7407:
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410:
7411: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7412: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7413: END IF;
7407:
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410:
7411: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7412: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7413: END IF;
7414:
7415: ELSIF l_lookup_code_tbl(i) = 40 THEN
7408: pa_debug.g_err_stage:='l_cost:'||l_cost;
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410:
7411: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7412: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7413: END IF;
7414:
7415: ELSIF l_lookup_code_tbl(i) = 40 THEN
7416: IF l_debug_mode = 'Y' THEN
7413: END IF;
7414:
7415: ELSIF l_lookup_code_tbl(i) = 40 THEN
7416: IF l_debug_mode = 'Y' THEN
7417: pa_debug.g_err_stage:='Fetching Data for Rejected Change Documents';
7418: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7419: END IF;
7420: OPEN c_change_documents_status('CI_REJECTED',
7421: p_budget_version_id,
7414:
7415: ELSIF l_lookup_code_tbl(i) = 40 THEN
7416: IF l_debug_mode = 'Y' THEN
7417: pa_debug.g_err_stage:='Fetching Data for Rejected Change Documents';
7418: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7419: END IF;
7420: OPEN c_change_documents_status('CI_REJECTED',
7421: p_budget_version_id,
7422: p_project_id ,
7427: l_cost,
7428: l_revenue;
7429: CLOSE c_change_documents_status;
7430: IF l_debug_mode = 'Y' THEN
7431: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7433:
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7428: l_revenue;
7429: CLOSE c_change_documents_status;
7430: IF l_debug_mode = 'Y' THEN
7431: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7433:
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7436:
7430: IF l_debug_mode = 'Y' THEN
7431: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7433:
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7436:
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7431: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7433:
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7436:
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7439:
7433:
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7436:
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7439:
7440: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7434: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7435: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7436:
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7439:
7440: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7442: END IF;
7436:
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7439:
7440: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7442: END IF;
7443:
7444: ELSIF l_lookup_code_tbl(i) = 50 THEN
7437: pa_debug.g_err_stage:='l_cost:'||l_cost;
7438: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7439:
7440: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7442: END IF;
7443:
7444: ELSIF l_lookup_code_tbl(i) = 50 THEN
7445: IF l_debug_mode = 'Y' THEN
7442: END IF;
7443:
7444: ELSIF l_lookup_code_tbl(i) = 50 THEN
7445: IF l_debug_mode = 'Y' THEN
7446: pa_debug.g_err_stage:='Deriving Data for Total Change Documents';
7447: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7448: END IF;
7449: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-1) +
7450: x_equipment_hours_tbl(i-2) +
7443:
7444: ELSIF l_lookup_code_tbl(i) = 50 THEN
7445: IF l_debug_mode = 'Y' THEN
7446: pa_debug.g_err_stage:='Deriving Data for Total Change Documents';
7447: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7448: END IF;
7449: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-1) +
7450: x_equipment_hours_tbl(i-2) +
7451: x_equipment_hours_tbl(i-3) +
7476:
7477: END LOOP;
7478:
7479: IF l_debug_mode = 'Y' THEN
7480: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
7481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7482: END IF;
7483:
7484: l_row_count := x_summary_tbl.COUNT;
7477: END LOOP;
7478:
7479: IF l_debug_mode = 'Y' THEN
7480: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
7481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7482: END IF;
7483:
7484: l_row_count := x_summary_tbl.COUNT;
7485: IF l_row_count > 0 THEN
7494: END IF;
7495: END LOOP;
7496: END IF;
7497:
7498: pa_debug.reset_curr_function;
7499:
7500: EXCEPTION
7501: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7502: l_msg_count := FND_MSG_PUB.count_msg;
7513: ELSE
7514: x_msg_count := l_msg_count;
7515: END IF;
7516: x_return_status := FND_API.G_RET_STS_ERROR;
7517: pa_debug.reset_curr_function;
7518: RETURN;
7519:
7520: WHEN OTHERS THEN
7521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7524: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7525: ,p_procedure_name => 'get_not_included');
7526:
7527: IF l_debug_mode = 'Y' THEN
7528: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7529: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7530: END IF;
7531: pa_debug.reset_curr_function;
7532: RAISE;
7525: ,p_procedure_name => 'get_not_included');
7526:
7527: IF l_debug_mode = 'Y' THEN
7528: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7529: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7530: END IF;
7531: pa_debug.reset_curr_function;
7532: RAISE;
7533:
7527: IF l_debug_mode = 'Y' THEN
7528: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7529: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7530: END IF;
7531: pa_debug.reset_curr_function;
7532: RAISE;
7533:
7534: END get_not_included;
7535:
7563:
7564: l_impact_type_tbl PA_PLSQL_DATATYPES.Char30TabTyp;
7565:
7566: BEGIN
7567: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7568:
7569: IF l_debug_mode = 'Y' THEN
7570: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7571: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7566: BEGIN
7567: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7568:
7569: IF l_debug_mode = 'Y' THEN
7570: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7571: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7572: END IF;
7573: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7574: p_debug_mode => l_debug_mode );
7567: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7568:
7569: IF l_debug_mode = 'Y' THEN
7570: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7571: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7572: END IF;
7573: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7574: p_debug_mode => l_debug_mode );
7575: OPEN get_impact_type_csr;
7569: IF l_debug_mode = 'Y' THEN
7570: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7571: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7572: END IF;
7573: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7574: p_debug_mode => l_debug_mode );
7575: OPEN get_impact_type_csr;
7576:
7577: FETCH get_impact_type_csr
7581:
7582: l_record_count := l_impact_type_tbl.COUNT;
7583:
7584: IF l_debug_mode = 'Y' THEN
7585: pa_debug.g_err_stage:='l_record_count is:' || l_record_count;
7586: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7587: END IF;
7588:
7589: IF l_record_count = 0 THEN
7582: l_record_count := l_impact_type_tbl.COUNT;
7583:
7584: IF l_debug_mode = 'Y' THEN
7585: pa_debug.g_err_stage:='l_record_count is:' || l_record_count;
7586: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7587: END IF;
7588:
7589: IF l_record_count = 0 THEN
7590: IF l_debug_mode = 'Y' THEN
7587: END IF;
7588:
7589: IF l_record_count = 0 THEN
7590: IF l_debug_mode = 'Y' THEN
7591: pa_debug.g_err_stage:='No Impact Exists';
7592: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7593: END IF;
7594:
7595: l_impact_type_code := 'NONE';
7588:
7589: IF l_record_count = 0 THEN
7590: IF l_debug_mode = 'Y' THEN
7591: pa_debug.g_err_stage:='No Impact Exists';
7592: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7593: END IF;
7594:
7595: l_impact_type_code := 'NONE';
7596:
7593: END IF;
7594:
7595: l_impact_type_code := 'NONE';
7596:
7597: pa_debug.reset_curr_function;
7598: RETURN l_impact_type_code;
7599: END IF;
7600:
7601: IF l_record_count > 0 THEN
7600:
7601: IF l_record_count > 0 THEN
7602: IF l_record_count = 1 THEN
7603: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7604: IF P_PA_debug_mode = 'Y' THEN
7605: pa_debug.g_err_stage:='Impact Wrongly Created';
7606: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7607: END IF;
7608: pa_debug.reset_curr_function;
7601: IF l_record_count > 0 THEN
7602: IF l_record_count = 1 THEN
7603: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7604: IF P_PA_debug_mode = 'Y' THEN
7605: pa_debug.g_err_stage:='Impact Wrongly Created';
7606: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7607: END IF;
7608: pa_debug.reset_curr_function;
7609: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7602: IF l_record_count = 1 THEN
7603: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7604: IF P_PA_debug_mode = 'Y' THEN
7605: pa_debug.g_err_stage:='Impact Wrongly Created';
7606: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7607: END IF;
7608: pa_debug.reset_curr_function;
7609: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7610: ELSE
7604: IF P_PA_debug_mode = 'Y' THEN
7605: pa_debug.g_err_stage:='Impact Wrongly Created';
7606: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7607: END IF;
7608: pa_debug.reset_curr_function;
7609: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7610: ELSE
7611: l_impact_type_code := 'FINPLAN';
7612: END IF;
7622: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7623: END IF;
7624: END IF;
7625: IF l_debug_mode = 'Y' THEN
7626: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7627: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7628: END IF;
7629:
7630: pa_debug.reset_curr_function;
7623: END IF;
7624: END IF;
7625: IF l_debug_mode = 'Y' THEN
7626: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7627: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7628: END IF;
7629:
7630: pa_debug.reset_curr_function;
7631: RETURN l_impact_type_code;
7626: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7627: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7628: END IF;
7629:
7630: pa_debug.reset_curr_function;
7631: RETURN l_impact_type_code;
7632: EXCEPTION
7633: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7634: l_msg_count := FND_MSG_PUB.count_msg;
7641: ,p_msg_data => l_msg_data
7642: ,p_data => l_data
7643: ,p_msg_index_out => l_msg_index_out);
7644: END IF;
7645: pa_debug.reset_curr_function;
7646: RAISE;
7647: WHEN OTHERS THEN
7648: IF l_debug_mode = 'Y' THEN
7649: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7645: pa_debug.reset_curr_function;
7646: RAISE;
7647: WHEN OTHERS THEN
7648: IF l_debug_mode = 'Y' THEN
7649: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7650: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7651: END IF;
7652: pa_debug.reset_curr_function;
7653: RAISE;
7646: RAISE;
7647: WHEN OTHERS THEN
7648: IF l_debug_mode = 'Y' THEN
7649: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7650: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7651: END IF;
7652: pa_debug.reset_curr_function;
7653: RAISE;
7654: END is_impact_exists;
7648: IF l_debug_mode = 'Y' THEN
7649: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7650: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7651: END IF;
7652: pa_debug.reset_curr_function;
7653: RAISE;
7654: END is_impact_exists;
7655:
7656: /* FP.M- This function checks for the particular ci type, the Cost Impact or
7668: l_debug_mode VARCHAR2(30);
7669: l_module_name VARCHAR2(30) := 'is_fin_impact_enabled';
7670:
7671: BEGIN
7672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7673:
7674: IF l_debug_mode = 'Y' THEN
7675: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7671: BEGIN
7672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7673:
7674: IF l_debug_mode = 'Y' THEN
7675: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7677: END IF;
7678: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7679: p_debug_mode => l_debug_mode );
7672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7673:
7674: IF l_debug_mode = 'Y' THEN
7675: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7677: END IF;
7678: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7679: p_debug_mode => l_debug_mode );
7680:
7674: IF l_debug_mode = 'Y' THEN
7675: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7677: END IF;
7678: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7679: p_debug_mode => l_debug_mode );
7680:
7681: BEGIN
7682: SELECT ci_type_id
7692:
7693: EXCEPTION
7694: WHEN NO_DATA_FOUND THEN
7695: IF l_debug_mode = 'Y' THEN
7696: pa_debug.g_err_stage:='No Fin Impact Exists';
7697: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7698: END IF;
7699:
7700: l_fin_impl_flag := 'NONE';
7693: EXCEPTION
7694: WHEN NO_DATA_FOUND THEN
7695: IF l_debug_mode = 'Y' THEN
7696: pa_debug.g_err_stage:='No Fin Impact Exists';
7697: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7698: END IF;
7699:
7700: l_fin_impl_flag := 'NONE';
7701:
7698: END IF;
7699:
7700: l_fin_impl_flag := 'NONE';
7701:
7702: pa_debug.reset_curr_function;
7703: RETURN l_fin_impl_flag;
7704: END;
7705: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7706: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7710: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7711: END IF;
7712:
7713: IF l_debug_mode = 'Y' THEN
7714: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7716: END IF;
7717:
7718: pa_debug.reset_curr_function;
7711: END IF;
7712:
7713: IF l_debug_mode = 'Y' THEN
7714: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7716: END IF;
7717:
7718: pa_debug.reset_curr_function;
7719: RETURN l_fin_impl_flag;
7714: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7716: END IF;
7717:
7718: pa_debug.reset_curr_function;
7719: RETURN l_fin_impl_flag;
7720: EXCEPTION
7721: WHEN OTHERS THEN
7722: IF l_debug_mode = 'Y' THEN
7719: RETURN l_fin_impl_flag;
7720: EXCEPTION
7721: WHEN OTHERS THEN
7722: IF l_debug_mode = 'Y' THEN
7723: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7724: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7725: END IF;
7726: pa_debug.reset_curr_function;
7727: RAISE;
7720: EXCEPTION
7721: WHEN OTHERS THEN
7722: IF l_debug_mode = 'Y' THEN
7723: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7724: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7725: END IF;
7726: pa_debug.reset_curr_function;
7727: RAISE;
7728: END is_fin_impact_enabled;
7722: IF l_debug_mode = 'Y' THEN
7723: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7724: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7725: END IF;
7726: pa_debug.reset_curr_function;
7727: RAISE;
7728: END is_fin_impact_enabled;
7729:
7730: /* Returns the Ids of the versions created for this Change Document(p_ci_id).
7765: c_vers_for_ci_rec c_vers_for_ci%ROWTYPE;
7766:
7767: BEGIN
7768:
7769: pa_debug.set_curr_function( p_function => 'GET_CI_VERSIONS',
7770: p_debug_mode => P_PA_debug_mode );
7771:
7772:
7773: x_msg_count := 0;
7766:
7767: BEGIN
7768:
7769: pa_debug.set_curr_function( p_function => 'GET_CI_VERSIONS',
7770: p_debug_mode => P_PA_debug_mode );
7771:
7772:
7773: x_msg_count := 0;
7774: x_return_status := FND_API.G_RET_STS_SUCCESS;
7775:
7776: IF (p_ci_id IS NULL)
7777: THEN
7778:
7779: IF P_PA_debug_mode = 'Y' THEN
7780: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7781: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7782: END IF;
7783:
7776: IF (p_ci_id IS NULL)
7777: THEN
7778:
7779: IF P_PA_debug_mode = 'Y' THEN
7780: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7781: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7782: END IF;
7783:
7784:
7777: THEN
7778:
7779: IF P_PA_debug_mode = 'Y' THEN
7780: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7781: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7782: END IF;
7783:
7784:
7785: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7787: p_token1 => l_token_name,
7788: p_value1 => l_mod_name);
7789:
7790:
7791: IF P_PA_debug_mode = 'Y' THEN
7792: pa_debug.g_err_stage:='Invalid Arguments Passed';
7793: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7794: END IF;
7795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7788: p_value1 => l_mod_name);
7789:
7790:
7791: IF P_PA_debug_mode = 'Y' THEN
7792: pa_debug.g_err_stage:='Invalid Arguments Passed';
7793: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7794: END IF;
7795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7796:
7789:
7790:
7791: IF P_PA_debug_mode = 'Y' THEN
7792: pa_debug.g_err_stage:='Invalid Arguments Passed';
7793: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7794: END IF;
7795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7796:
7797: END IF;
7795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7796:
7797: END IF;
7798:
7799: IF P_PA_debug_mode = 'Y' THEN
7800: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7801: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7802: END IF;
7803:
7796:
7797: END IF;
7798:
7799: IF P_PA_debug_mode = 'Y' THEN
7800: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7801: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7802: END IF;
7803:
7804: X_cost_budget_version_id := NULL;
7797: END IF;
7798:
7799: IF P_PA_debug_mode = 'Y' THEN
7800: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7801: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7802: END IF;
7803:
7804: X_cost_budget_version_id := NULL;
7805: X_rev_budget_version_id := NULL;
7829: END IF;
7830: END IF;
7831: END LOOP;
7832:
7833: IF P_PA_debug_mode = 'Y' THEN
7834: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7835: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7836: END IF;
7837:
7830: END IF;
7831: END LOOP;
7832:
7833: IF P_PA_debug_mode = 'Y' THEN
7834: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7835: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7836: END IF;
7837:
7838: pa_debug.reset_curr_function;
7831: END LOOP;
7832:
7833: IF P_PA_debug_mode = 'Y' THEN
7834: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7835: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7836: END IF;
7837:
7838: pa_debug.reset_curr_function;
7839:
7834: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7835: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7836: END IF;
7837:
7838: pa_debug.reset_curr_function;
7839:
7840: EXCEPTION
7841: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7842: l_msg_count := FND_MSG_PUB.count_msg;
7855: x_msg_count := l_msg_count;
7856: END IF;
7857: x_return_status := FND_API.G_RET_STS_ERROR;
7858:
7859: pa_debug.reset_curr_function;
7860:
7861: RETURN;
7862:
7863: WHEN Others THEN
7870: END IF;
7871:
7872: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7873: ,p_procedure_name => 'GET_CI_VERSIONS');
7874: IF P_PA_DEBUG_MODE = 'Y' THEN
7875: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7876: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7877: END IF;
7878: pa_debug.reset_curr_function;
7871:
7872: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7873: ,p_procedure_name => 'GET_CI_VERSIONS');
7874: IF P_PA_DEBUG_MODE = 'Y' THEN
7875: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7876: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7877: END IF;
7878: pa_debug.reset_curr_function;
7879: RAISE;
7872: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7873: ,p_procedure_name => 'GET_CI_VERSIONS');
7874: IF P_PA_DEBUG_MODE = 'Y' THEN
7875: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7876: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7877: END IF;
7878: pa_debug.reset_curr_function;
7879: RAISE;
7880:
7874: IF P_PA_DEBUG_MODE = 'Y' THEN
7875: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7876: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7877: END IF;
7878: pa_debug.reset_curr_function;
7879: RAISE;
7880:
7881: END GET_CI_VERSIONS;
7882:
7996: l_agreement_currency_code pa_agreements_all.agreement_currency_code%TYPE;
7997:
7998: BEGIN
7999:
8000: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8001: l_debug_mode := NVL(l_debug_mode, 'N');
8002:
8003:
8004: pa_debug.set_curr_function( p_function => 'GET_PLAN_TYPES_FOR_IMPL',
8000: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8001: l_debug_mode := NVL(l_debug_mode, 'N');
8002:
8003:
8004: pa_debug.set_curr_function( p_function => 'GET_PLAN_TYPES_FOR_IMPL',
8005: p_debug_mode => l_debug_mode );
8006:
8007:
8008: x_msg_count := 0;
8032: x_disable_baseline_flag_tbl := SYSTEM.pa_varchar2_1_tbl_type(); -- Bug 3735309
8033: -- Check for business rules violations
8034:
8035: IF l_debug_mode = 'Y' THEN
8036: pa_debug.g_err_stage:='Validating input parameters';
8037: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8038: END IF;
8039:
8040: -- Check if project id and ci id are null
8033: -- Check for business rules violations
8034:
8035: IF l_debug_mode = 'Y' THEN
8036: pa_debug.g_err_stage:='Validating input parameters';
8037: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8038: END IF;
8039:
8040: -- Check if project id and ci id are null
8041:
8044: THEN
8045:
8046:
8047: IF l_debug_mode = 'Y' THEN
8048: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8049: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8050:
8051: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8052: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8045:
8046:
8047: IF l_debug_mode = 'Y' THEN
8048: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8049: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8050:
8051: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8052: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8053: END IF;
8047: IF l_debug_mode = 'Y' THEN
8048: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8049: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8050:
8051: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8052: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8053: END IF;
8054:
8055:
8048: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8049: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8050:
8051: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8052: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8053: END IF;
8054:
8055:
8056: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8059: p_value1 => l_mod_name);
8060:
8061:
8062: IF l_debug_mode = 'Y' THEN
8063: pa_debug.g_err_stage:='Invalid Arguments Passed';
8064: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8065: END IF;
8066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8067:
8060:
8061:
8062: IF l_debug_mode = 'Y' THEN
8063: pa_debug.g_err_stage:='Invalid Arguments Passed';
8064: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8065: END IF;
8066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8067:
8068: END IF;
8068: END IF;
8069:
8070:
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:='Fetching Function Security return codes';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8075: -- Fetching Function Security User Privelege for submit for baseline flag
8076: -- "Financials: Project: Budget: Submit Cost"
8069:
8070:
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:='Fetching Function Security return codes';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8075: -- Fetching Function Security User Privelege for submit for baseline flag
8076: -- "Financials: Project: Budget: Submit Cost"
8077: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost,
8083: p_object_key => P_project_id);
8084:
8085: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8086: IF l_debug_mode = 'Y' THEN
8087: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
8088: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8089: END IF;
8090: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8091: END IF;
8084:
8085: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8086: IF l_debug_mode = 'Y' THEN
8087: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
8088: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8089: END IF;
8090: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8091: END IF;
8092:
8099: p_object_name => 'PA_PROJECTS',
8100: p_object_key => P_project_id);
8101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8105: END IF;
8106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8107: END IF;
8100: p_object_key => P_project_id);
8101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8105: END IF;
8106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8107: END IF;
8108:
8115: p_object_name => 'PA_PROJECTS',
8116: p_object_key => P_project_id);
8117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8118: IF l_debug_mode = 'Y' THEN
8119: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8120: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8121: END IF;
8122: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8123: END IF;
8116: p_object_key => P_project_id);
8117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8118: IF l_debug_mode = 'Y' THEN
8119: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8120: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8121: END IF;
8122: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8123: END IF;
8124:
8131: p_object_name => 'PA_PROJECTS',
8132: p_object_key => P_project_id);
8133: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8134: IF l_debug_mode = 'Y' THEN
8135: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8137: END IF;
8138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8139: END IF;
8132: p_object_key => P_project_id);
8133: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8134: IF l_debug_mode = 'Y' THEN
8135: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8137: END IF;
8138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8139: END IF;
8140:
8147: p_object_name => 'PA_PROJECTS',
8148: p_object_key => P_project_id);
8149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8150: IF l_debug_mode = 'Y' THEN
8151: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8152: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8153: END IF;
8154: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8155: END IF;
8148: p_object_key => P_project_id);
8149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8150: IF l_debug_mode = 'Y' THEN
8151: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8152: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8153: END IF;
8154: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8155: END IF;
8156:
8163: p_object_name => 'PA_PROJECTS',
8164: p_object_key => P_project_id);
8165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8166: IF l_debug_mode = 'Y' THEN
8167: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8168: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8169: END IF;
8170: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8171: END IF;
8164: p_object_key => P_project_id);
8165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8166: IF l_debug_mode = 'Y' THEN
8167: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8168: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8169: END IF;
8170: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8171: END IF;
8172:
8170: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8171: END IF;
8172:
8173: IF l_debug_mode = 'Y' THEN
8174: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8175: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8176:
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8171: END IF;
8172:
8173: IF l_debug_mode = 'Y' THEN
8174: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8175: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8176:
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8179:
8173: IF l_debug_mode = 'Y' THEN
8174: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8175: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8176:
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8179:
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8174: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8175: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8176:
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8179:
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8182:
8176:
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8179:
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8182:
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8177: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8178: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8179:
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8182:
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8185:
8179:
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8182:
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8185:
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8180: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8182:
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8185:
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8188:
8182:
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8185:
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8188:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8183: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8184: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8185:
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8188:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8191:
8185:
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8188:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8191:
8192: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8193: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8186: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8187: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8188:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8191:
8192: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8193: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8194: END IF;
8188:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8191:
8192: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8193: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8194: END IF;
8195:
8196:
8189: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8190: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8191:
8192: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8193: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8194: END IF;
8195:
8196:
8197: IF l_debug_mode = 'Y' THEN
8194: END IF;
8195:
8196:
8197: IF l_debug_mode = 'Y' THEN
8198: pa_debug.g_err_stage:= 'Entering GET_PLAN_TYPES_FOR_IMPL';
8199: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8200: END IF;
8201:
8202: BEGIN
8195:
8196:
8197: IF l_debug_mode = 'Y' THEN
8198: pa_debug.g_err_stage:= 'Entering GET_PLAN_TYPES_FOR_IMPL';
8199: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8200: END IF;
8201:
8202: BEGIN
8203:
8209: EXCEPTION
8210: WHEN NO_DATA_FOUND THEN
8211:
8212: IF l_DEBUG_MODE = 'Y' THEN
8213: pa_debug.g_err_stage:='Error while fetching status of the CI';
8214: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8215: END IF;
8216: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8217: END;
8210: WHEN NO_DATA_FOUND THEN
8211:
8212: IF l_DEBUG_MODE = 'Y' THEN
8213: pa_debug.g_err_stage:='Error while fetching status of the CI';
8214: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8215: END IF;
8216: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8217: END;
8218:
8230:
8231:
8232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8233: IF l_debug_mode = 'Y' THEN
8234: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8235: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8236: END IF;
8237: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8238: END IF;
8231:
8232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8233: IF l_debug_mode = 'Y' THEN
8234: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8235: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8236: END IF;
8237: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8238: END IF;
8239:
8249: l_version_type:='REVENUE';
8250: END IF;
8251:
8252: IF l_debug_mode = 'Y' THEN
8253: pa_debug.g_err_stage:= 'l_version_type derived is '||l_version_type;
8254: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8255: END IF;
8256: */
8257:
8250: END IF;
8251:
8252: IF l_debug_mode = 'Y' THEN
8253: pa_debug.g_err_stage:= 'l_version_type derived is '||l_version_type;
8254: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8255: END IF;
8256: */
8257:
8258: x_autobaseline_project := Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id => p_project_id);
8282: X_msg_count => l_msg_count);
8283:
8284: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8285: IF l_debug_mode = 'Y' THEN
8286: pa_debug.g_err_stage:= 'Error in get_impl_details';
8287: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8288: END IF;
8289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8290: END IF;
8283:
8284: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8285: IF l_debug_mode = 'Y' THEN
8286: pa_debug.g_err_stage:= 'Error in get_impl_details';
8287: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8288: END IF;
8289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8290: END IF;
8291:
8366: X_msg_count => l_msg_count);
8367:
8368: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8369: IF l_debug_mode = 'Y' THEN
8370: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8371: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8372: END IF;
8373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8374: END IF;
8367:
8368: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8369: IF l_debug_mode = 'Y' THEN
8370: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8371: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8372: END IF;
8373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8374: END IF;
8375:
8481: END IF;
8482:
8483:
8484: IF l_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8486: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8487:
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8482:
8483:
8484: IF l_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8486: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8487:
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8490:
8484: IF l_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8486: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8487:
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8490:
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8485: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8486: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8487:
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8490:
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8493:
8487:
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8490:
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8493:
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8488: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8489: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8490:
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8493:
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8496:
8490:
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8493:
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8496:
8497: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8498: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8491: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8492: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8493:
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8496:
8497: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8498: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8499: END IF;
8493:
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8496:
8497: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8498: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8499: END IF;
8500:
8501: /*
8494: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8495: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8496:
8497: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8498: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8499: END IF;
8500:
8501: /*
8502: Submit For Baseline Disable Logic
8526: x_disable_baseline_flag_tbl(i) := 'Y';
8527: END IF;
8528:
8529: IF l_debug_mode = 'Y' THEN
8530: pa_debug.g_err_stage:= 'x_disable_baseline_flag_tbl : '||x_disable_baseline_flag_tbl(i);
8531: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8532: END IF;
8533: -- Bug 3735309 End of changes.
8534:
8527: END IF;
8528:
8529: IF l_debug_mode = 'Y' THEN
8530: pa_debug.g_err_stage:= 'x_disable_baseline_flag_tbl : '||x_disable_baseline_flag_tbl(i);
8531: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8532: END IF;
8533: -- Bug 3735309 End of changes.
8534:
8535: i := i + 1;
8545: x_msg_count => l_msg_count,
8546: x_return_status => l_return_status);
8547:
8548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8549: IF P_PA_debug_mode = 'Y' THEN
8550: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8551: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8552: END IF;
8553: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8546: x_return_status => l_return_status);
8547:
8548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8549: IF P_PA_debug_mode = 'Y' THEN
8550: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8551: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8552: END IF;
8553: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8554: END IF;
8547:
8548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8549: IF P_PA_debug_mode = 'Y' THEN
8550: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8551: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8552: END IF;
8553: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8554: END IF;
8555: -- Bug 11708214
8554: END IF;
8555: -- Bug 11708214
8556:
8557: IF l_debug_mode = 'Y' THEN
8558: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8559: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8560: END IF;
8561: pa_debug.reset_curr_function;
8562:
8555: -- Bug 11708214
8556:
8557: IF l_debug_mode = 'Y' THEN
8558: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8559: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8560: END IF;
8561: pa_debug.reset_curr_function;
8562:
8563: EXCEPTION
8557: IF l_debug_mode = 'Y' THEN
8558: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8559: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8560: END IF;
8561: pa_debug.reset_curr_function;
8562:
8563: EXCEPTION
8564: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8565: l_msg_count := FND_MSG_PUB.count_msg;
8581: x_msg_count := l_msg_count;
8582: END IF;
8583: x_return_status := FND_API.G_RET_STS_ERROR;
8584:
8585: pa_debug.reset_curr_function;
8586: RETURN;
8587:
8588: WHEN Others THEN
8589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8596:
8597: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8598: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8599: IF l_DEBUG_MODE = 'Y' THEN
8600: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8601: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8602: END IF;
8603: pa_debug.reset_curr_function;
8604: RAISE;
8597: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8598: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8599: IF l_DEBUG_MODE = 'Y' THEN
8600: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8601: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8602: END IF;
8603: pa_debug.reset_curr_function;
8604: RAISE;
8605:
8599: IF l_DEBUG_MODE = 'Y' THEN
8600: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8601: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8602: END IF;
8603: pa_debug.reset_curr_function;
8604: RAISE;
8605:
8606:
8607: END GET_PLAN_TYPES_FOR_IMPL;
8720: l_t_pt_pref_code pa_proj_fp_options.fin_plan_preference_code%TYPE;
8721:
8722: BEGIN
8723:
8724: pa_debug.set_curr_function( p_function => 'GET_IMPL_DETAILS',
8725: p_debug_mode => P_PA_debug_mode );
8726:
8727:
8728: x_msg_count := 0;
8721:
8722: BEGIN
8723:
8724: pa_debug.set_curr_function( p_function => 'GET_IMPL_DETAILS',
8725: p_debug_mode => P_PA_debug_mode );
8726:
8727:
8728: x_msg_count := 0;
8729: x_return_status := FND_API.G_RET_STS_SUCCESS;
8734: IF (p_project_id IS NULL) OR (p_ci_id IS NULL) OR (p_fin_plan_type_id IS NULL)
8735: THEN
8736:
8737:
8738: IF P_PA_debug_mode = 'Y' THEN
8739: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8740: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8735: THEN
8736:
8737:
8738: IF P_PA_debug_mode = 'Y' THEN
8739: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8740: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8736:
8737:
8738: IF P_PA_debug_mode = 'Y' THEN
8739: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8740: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8744:
8738: IF P_PA_debug_mode = 'Y' THEN
8739: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8740: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8744:
8745: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8746: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8739: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8740: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8744:
8745: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8746: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8747:
8741:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8744:
8745: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8746: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8747:
8748: END IF;
8749:
8742: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8744:
8745: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8746: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8747:
8748: END IF;
8749:
8750:
8753: p_token1 => l_token_name,
8754: p_value1 => l_mod_name);
8755:
8756:
8757: IF P_PA_debug_mode = 'Y' THEN
8758: pa_debug.g_err_stage:='Invalid Arguments Passed';
8759: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8760: END IF;
8761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8754: p_value1 => l_mod_name);
8755:
8756:
8757: IF P_PA_debug_mode = 'Y' THEN
8758: pa_debug.g_err_stage:='Invalid Arguments Passed';
8759: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8760: END IF;
8761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8762:
8755:
8756:
8757: IF P_PA_debug_mode = 'Y' THEN
8758: pa_debug.g_err_stage:='Invalid Arguments Passed';
8759: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8760: END IF;
8761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8762:
8763: END IF;
8762:
8763: END IF;
8764:
8765:
8766: IF P_PA_debug_mode = 'Y' THEN
8767: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8768: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8769: END IF;
8770:
8763: END IF;
8764:
8765:
8766: IF P_PA_debug_mode = 'Y' THEN
8767: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8768: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8769: END IF;
8770:
8771: IF p_ci_status IS NULL OR p_ci_type_id IS NULL THEN
8764:
8765:
8766: IF P_PA_debug_mode = 'Y' THEN
8767: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8768: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8769: END IF;
8770:
8771: IF p_ci_status IS NULL OR p_ci_type_id IS NULL THEN
8772: BEGIN
8818: x_msg_data => l_msg_data,
8819: X_msg_count => l_msg_count);
8820:
8821: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8822: IF P_PA_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8824: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8825: END IF;
8826: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8819: X_msg_count => l_msg_count);
8820:
8821: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8822: IF P_PA_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8824: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8825: END IF;
8826: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8827: END IF;
8820:
8821: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8822: IF P_PA_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8824: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8825: END IF;
8826: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8827: END IF;
8828: ELSE
8881: END IF;
8882:
8883: ELSE
8884:
8885: IF P_PA_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8887: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8888: END IF;
8889:
8882:
8883: ELSE
8884:
8885: IF P_PA_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8887: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8888: END IF;
8889:
8890: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
8883: ELSE
8884:
8885: IF P_PA_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8887: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8888: END IF;
8889:
8890: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
8891: ,P_project_id => p_project_id
8897: ,X_msg_count => l_msg_count);
8898:
8899:
8900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8901: IF P_PA_debug_mode = 'Y' THEN
8902: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8903: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8904: END IF;
8905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8898:
8899:
8900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8901: IF P_PA_debug_mode = 'Y' THEN
8902: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8903: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8904: END IF;
8905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8906: END IF;
8899:
8900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8901: IF P_PA_debug_mode = 'Y' THEN
8902: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8903: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8904: END IF;
8905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8906: END IF;
8907: END IF;
9040: AND fin_plan_type_id = p_fin_plan_type_id;
9041:
9042: EXCEPTION
9043: WHEN NO_DATA_FOUND THEN
9044: IF P_PA_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
9046: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE ;
9041:
9042: EXCEPTION
9043: WHEN NO_DATA_FOUND THEN
9044: IF P_PA_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
9046: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE ;
9049: END;
9042: EXCEPTION
9043: WHEN NO_DATA_FOUND THEN
9044: IF P_PA_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
9046: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE ;
9049: END;
9050: ELSE
9063: x_msg_count => l_msg_count,
9064: x_return_status => l_return_status);
9065:
9066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9067: IF P_PA_debug_mode = 'Y' THEN
9068: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
9069: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9070: END IF;
9071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9064: x_return_status => l_return_status);
9065:
9066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9067: IF P_PA_debug_mode = 'Y' THEN
9068: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
9069: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9070: END IF;
9071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9072: END IF;
9065:
9066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9067: IF P_PA_debug_mode = 'Y' THEN
9068: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
9069: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9070: END IF;
9071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9072: END IF;
9073:
9107: l_rev_budget_version_id); */
9108:
9109: EXCEPTION
9110: WHEN NO_DATA_FOUND THEN
9111: IF P_PA_debug_mode = 'Y' THEN
9112: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
9113: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9114: END IF;
9115: RAISE ;
9108:
9109: EXCEPTION
9110: WHEN NO_DATA_FOUND THEN
9111: IF P_PA_debug_mode = 'Y' THEN
9112: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
9113: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9114: END IF;
9115: RAISE ;
9116: END;
9109: EXCEPTION
9110: WHEN NO_DATA_FOUND THEN
9111: IF P_PA_debug_mode = 'Y' THEN
9112: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
9113: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9114: END IF;
9115: RAISE ;
9116: END;
9117:
9128: AND PLAN_VERSION_ID = decode(nvl(l_rev_budget_version_id,-1),-1,l_all_budget_version_id
9129: ,l_rev_budget_version_id));
9130: EXCEPTION
9131: WHEN NO_DATA_FOUND THEN
9132: IF P_PA_debug_mode = 'Y' THEN
9133: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
9134: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9135: END IF;
9136: l_rev_impl_full := 'N';
9129: ,l_rev_budget_version_id));
9130: EXCEPTION
9131: WHEN NO_DATA_FOUND THEN
9132: IF P_PA_debug_mode = 'Y' THEN
9133: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
9134: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9135: END IF;
9136: l_rev_impl_full := 'N';
9137: END;
9130: EXCEPTION
9131: WHEN NO_DATA_FOUND THEN
9132: IF P_PA_debug_mode = 'Y' THEN
9133: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
9134: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9135: END IF;
9136: l_rev_impl_full := 'N';
9137: END;
9138:
9145: FROM PA_FIN_PLAN_TYPES_B
9146: WHERE fin_plan_type_id = p_fin_plan_type_id;
9147: EXCEPTION
9148: WHEN NO_DATA_FOUND THEN
9149: IF P_PA_debug_mode = 'Y' THEN
9150: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
9151: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9152: END IF;
9153: RAISE;
9146: WHERE fin_plan_type_id = p_fin_plan_type_id;
9147: EXCEPTION
9148: WHEN NO_DATA_FOUND THEN
9149: IF P_PA_debug_mode = 'Y' THEN
9150: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
9151: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9152: END IF;
9153: RAISE;
9154: END;
9147: EXCEPTION
9148: WHEN NO_DATA_FOUND THEN
9149: IF P_PA_debug_mode = 'Y' THEN
9150: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
9151: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9152: END IF;
9153: RAISE;
9154: END;
9155: END IF;
9206: -- Status does not allow revenue implementation
9207: X_rev_impl_flag := 'H';
9208: END IF;
9209:
9210: IF P_PA_debug_mode = 'Y' THEN
9211: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9212: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9213: END IF;
9214:
9207: X_rev_impl_flag := 'H';
9208: END IF;
9209:
9210: IF P_PA_debug_mode = 'Y' THEN
9211: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9212: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9213: END IF;
9214:
9215: pa_debug.reset_curr_function;
9208: END IF;
9209:
9210: IF P_PA_debug_mode = 'Y' THEN
9211: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9212: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9213: END IF;
9214:
9215: pa_debug.reset_curr_function;
9216:
9211: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9212: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9213: END IF;
9214:
9215: pa_debug.reset_curr_function;
9216:
9217: EXCEPTION
9218: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9219: l_msg_count := FND_MSG_PUB.count_msg;
9232: x_msg_count := l_msg_count;
9233: END IF;
9234: x_return_status := FND_API.G_RET_STS_ERROR;
9235:
9236: pa_debug.reset_curr_function;
9237: RETURN;
9238:
9239: WHEN Others THEN
9240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9242: x_msg_data := SQLERRM;
9243:
9244: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9245: ,p_procedure_name => 'GET_IMPL_DETAILS');
9246: IF P_PA_DEBUG_MODE = 'Y' THEN
9247: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9248: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9249: END IF;
9250: pa_debug.reset_curr_function;
9243:
9244: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9245: ,p_procedure_name => 'GET_IMPL_DETAILS');
9246: IF P_PA_DEBUG_MODE = 'Y' THEN
9247: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9248: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9249: END IF;
9250: pa_debug.reset_curr_function;
9251: RAISE;
9244: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9245: ,p_procedure_name => 'GET_IMPL_DETAILS');
9246: IF P_PA_DEBUG_MODE = 'Y' THEN
9247: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9248: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9249: END IF;
9250: pa_debug.reset_curr_function;
9251: RAISE;
9252:
9246: IF P_PA_DEBUG_MODE = 'Y' THEN
9247: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9248: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9249: END IF;
9250: pa_debug.reset_curr_function;
9251: RAISE;
9252:
9253: END GET_IMPL_DETAILS;
9254:
9337: AND plan_version_id=c_app_cw_ver_id
9338: AND ci_plan_version_id=c_ci_version_id
9339: AND version_type=c_version_type);
9340: BEGIN
9341: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9342: l_debug_mode := NVL(l_debug_mode, 'Y');
9343: x_msg_count := 0;
9344: x_return_status := FND_API.G_RET_STS_SUCCESS;
9345: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9341: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9342: l_debug_mode := NVL(l_debug_mode, 'Y');
9343: x_msg_count := 0;
9344: x_return_status := FND_API.G_RET_STS_SUCCESS;
9345: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9346: p_debug_mode => l_debug_mode );
9347:
9348: IF p_ci_id IS NULL OR
9349: p_project_id IS NULL THEN
9348: IF p_ci_id IS NULL OR
9349: p_project_id IS NULL THEN
9350:
9351: IF l_debug_mode = 'Y' THEN
9352: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9353: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9354:
9355: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9356: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9349: p_project_id IS NULL THEN
9350:
9351: IF l_debug_mode = 'Y' THEN
9352: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9353: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9354:
9355: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9356: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9357:
9351: IF l_debug_mode = 'Y' THEN
9352: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9353: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9354:
9355: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9356: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9357:
9358: END IF;
9359:
9352: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9353: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9354:
9355: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9356: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9357:
9358: END IF;
9359:
9360: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9382:
9383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9384:
9385: IF l_debug_mode = 'Y' THEN
9386: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9387: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9388: END IF;
9389:
9390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9384:
9385: IF l_debug_mode = 'Y' THEN
9386: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9387: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9388: END IF;
9389:
9390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9391:
9398:
9399: END IF;
9400:
9401: IF l_debug_mode = 'Y' THEN
9402: pa_debug.g_err_stage:='Getting project currency code';
9403: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9404: END IF;
9405:
9406:
9399: END IF;
9400:
9401: IF l_debug_mode = 'Y' THEN
9402: pa_debug.g_err_stage:='Getting project currency code';
9403: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9404: END IF;
9405:
9406:
9407: --Get the project currency code
9410: FROM pa_projects_all
9411: WHERE project_id=p_project_id;
9412:
9413: IF l_debug_mode = 'Y' THEN
9414: pa_debug.g_err_stage:='Getting ci status code';
9415: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9416: END IF;
9417:
9418: --Get the CI status code
9411: WHERE project_id=p_project_id;
9412:
9413: IF l_debug_mode = 'Y' THEN
9414: pa_debug.g_err_stage:='Getting ci status code';
9415: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9416: END IF;
9417:
9418: --Get the CI status code
9419: SELECT pps.project_system_status_code
9425:
9426: --Derive the value for x_impact_in_mc_flag. This should be 'Y' if either COST or REVENUE impact is
9427: --defined in multiple currencies
9428: IF l_debug_mode = 'Y' THEN
9429: pa_debug.g_err_stage:='Getting impact is mc flag';
9430: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9431: END IF;
9432:
9433: IF NVL(l_cost_ci_version_id,NVL(l_all_ci_version_id,l_rev_ci_version_id)) <>
9426: --Derive the value for x_impact_in_mc_flag. This should be 'Y' if either COST or REVENUE impact is
9427: --defined in multiple currencies
9428: IF l_debug_mode = 'Y' THEN
9429: pa_debug.g_err_stage:='Getting impact is mc flag';
9430: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9431: END IF;
9432:
9433: IF NVL(l_cost_ci_version_id,NVL(l_all_ci_version_id,l_rev_ci_version_id)) <>
9434: NVL(l_rev_ci_version_id,NVL(l_all_ci_version_id,l_cost_ci_version_id)) THEN
9467:
9468: END IF;
9469:
9470: IF l_debug_mode = 'Y' THEN
9471: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9472: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9473: END IF;
9474:
9475: --Call the API that will return the approved cost/rev current working version ids for the project
9468: END IF;
9469:
9470: IF l_debug_mode = 'Y' THEN
9471: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9472: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9473: END IF;
9474:
9475: --Call the API that will return the approved cost/rev current working version ids for the project
9476: IF p_budget_version_id IS NULL THEN
9475: --Call the API that will return the approved cost/rev current working version ids for the project
9476: IF p_budget_version_id IS NULL THEN
9477:
9478: IF l_debug_mode = 'Y' THEN
9479: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9480: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9481: END IF;
9482:
9483:
9476: IF p_budget_version_id IS NULL THEN
9477:
9478: IF l_debug_mode = 'Y' THEN
9479: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9480: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9481: END IF;
9482:
9483:
9484: pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj
9491:
9492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9493:
9494: IF l_debug_mode = 'Y' THEN
9495: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9497: END IF;
9498:
9499: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9493:
9494: IF l_debug_mode = 'Y' THEN
9495: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9497: END IF;
9498:
9499: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9500:
9515:
9516: ELSE
9517:
9518: IF l_debug_mode = 'Y' THEN
9519: pa_debug.g_err_stage:='Getting the version type for the budget version id passed';
9520: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9521: END IF;
9522:
9523: --Select the version details of the budget version id passed
9516: ELSE
9517:
9518: IF l_debug_mode = 'Y' THEN
9519: pa_debug.g_err_stage:='Getting the version type for the budget version id passed';
9520: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9521: END IF;
9522:
9523: --Select the version details of the budget version id passed
9524: SELECT pbv.version_type,
9577:
9578: --x_cost_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9579: --x_rev_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9580: IF l_debug_mode = 'Y' THEN
9581: pa_debug.g_err_stage:='Deriving x_cost_impl_into_app_cw_ver and x_rev_impl_into_app_cw_ver';
9582: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9583: END IF;
9584:
9585: IF NVL(l_cost_ci_version_id,l_all_ci_version_id) IS NOT NULL THEN
9578: --x_cost_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9579: --x_rev_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9580: IF l_debug_mode = 'Y' THEN
9581: pa_debug.g_err_stage:='Deriving x_cost_impl_into_app_cw_ver and x_rev_impl_into_app_cw_ver';
9582: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9583: END IF;
9584:
9585: IF NVL(l_cost_ci_version_id,l_all_ci_version_id) IS NOT NULL THEN
9586:
9620:
9621: END IF;
9622:
9623: IF l_debug_mode = 'Y' THEN
9624: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9625: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9626:
9627: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9628: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9621: END IF;
9622:
9623: IF l_debug_mode = 'Y' THEN
9624: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9625: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9626:
9627: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9628: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9629:
9623: IF l_debug_mode = 'Y' THEN
9624: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9625: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9626:
9627: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9628: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9629:
9630: END IF;
9631:
9624: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9625: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9626:
9627: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9628: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9629:
9630: END IF;
9631:
9632: --For bug 3957561
9637: WHERE ci_id=p_ci_id
9638: AND ci.ci_type_id=ct.ci_type_id;
9639:
9640: IF l_debug_mode = 'Y' THEN
9641: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9642: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9643:
9644: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9645: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9638: AND ci.ci_type_id=ct.ci_type_id;
9639:
9640: IF l_debug_mode = 'Y' THEN
9641: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9642: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9643:
9644: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9645: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9646:
9640: IF l_debug_mode = 'Y' THEN
9641: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9642: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9643:
9644: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9645: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9646:
9647: END IF;
9648:
9641: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9642: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9643:
9644: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9645: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9646:
9647: END IF;
9648:
9649: --End of bug 3957561
9648:
9649: --End of bug 3957561
9650:
9651: IF l_debug_mode = 'Y' THEN
9652: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9653: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9654: END IF;
9655:
9656: pa_debug.reset_curr_function;
9649: --End of bug 3957561
9650:
9651: IF l_debug_mode = 'Y' THEN
9652: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9653: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9654: END IF;
9655:
9656: pa_debug.reset_curr_function;
9657:
9652: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9653: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9654: END IF;
9655:
9656: pa_debug.reset_curr_function;
9657:
9658: EXCEPTION
9659:
9660: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9674:
9675: x_msg_count := l_msg_count;
9676: END IF;
9677: x_return_status := FND_API.G_RET_STS_ERROR;
9678: pa_debug.reset_curr_function;
9679:
9680: WHEN OTHERS THEN
9681:
9682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9685: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9686: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9687:
9688: IF l_debug_mode = 'Y' THEN
9689: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9690: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9691: END IF;
9692:
9693: pa_debug.reset_curr_function;
9686: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9687:
9688: IF l_debug_mode = 'Y' THEN
9689: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9690: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9691: END IF;
9692:
9693: pa_debug.reset_curr_function;
9694: RAISE;
9689: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9690: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9691: END IF;
9692:
9693: pa_debug.reset_curr_function;
9694: RAISE;
9695:
9696: END get_dtls_for_view_fin_imp_pg;
9697:
9734:
9735: l_app_cw_ver_rec c_app_cw_ver_csr%ROWTYPE;
9736:
9737: BEGIN
9738: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9739: l_debug_mode := NVL(l_debug_mode, 'Y');
9740: x_msg_count := 0;
9741: x_return_status := FND_API.G_RET_STS_SUCCESS;
9742: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9738: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9739: l_debug_mode := NVL(l_debug_mode, 'Y');
9740: x_msg_count := 0;
9741: x_return_status := FND_API.G_RET_STS_SUCCESS;
9742: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9743: p_debug_mode => l_debug_mode );
9744:
9745: IF p_project_id IS NULL THEN
9746:
9744:
9745: IF p_project_id IS NULL THEN
9746:
9747: IF l_debug_mode = 'Y' THEN
9748: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9749: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9750:
9751: END IF;
9752:
9745: IF p_project_id IS NULL THEN
9746:
9747: IF l_debug_mode = 'Y' THEN
9748: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9749: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9750:
9751: END IF;
9752:
9753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9759:
9760: END IF;
9761:
9762: IF l_debug_mode = 'Y' THEN
9763: pa_debug.g_err_stage:='About to derive the CW ver ids';
9764: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9765: END IF;
9766:
9767: x_app_cost_cw_ver_id:=NULL;
9760: END IF;
9761:
9762: IF l_debug_mode = 'Y' THEN
9763: pa_debug.g_err_stage:='About to derive the CW ver ids';
9764: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9765: END IF;
9766:
9767: x_app_cost_cw_ver_id:=NULL;
9768: x_app_cost_cw_ver_id:=NULL;
9788:
9789:
9790: IF l_debug_mode = 'Y' THEN
9791:
9792: pa_debug.g_err_stage:='Derived x_app_cost_cw_ver_id is '||x_app_cost_cw_ver_id ||' x_app_rev_cw_ver_id is '||x_app_rev_cw_ver_id;
9793: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9794:
9795: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9796: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9789:
9790: IF l_debug_mode = 'Y' THEN
9791:
9792: pa_debug.g_err_stage:='Derived x_app_cost_cw_ver_id is '||x_app_cost_cw_ver_id ||' x_app_rev_cw_ver_id is '||x_app_rev_cw_ver_id;
9793: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9794:
9795: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9796: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9797: END IF;
9791:
9792: pa_debug.g_err_stage:='Derived x_app_cost_cw_ver_id is '||x_app_cost_cw_ver_id ||' x_app_rev_cw_ver_id is '||x_app_rev_cw_ver_id;
9793: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9794:
9795: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9796: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9797: END IF;
9798:
9799: pa_debug.reset_curr_function;
9792: pa_debug.g_err_stage:='Derived x_app_cost_cw_ver_id is '||x_app_cost_cw_ver_id ||' x_app_rev_cw_ver_id is '||x_app_rev_cw_ver_id;
9793: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9794:
9795: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9796: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9797: END IF;
9798:
9799: pa_debug.reset_curr_function;
9800:
9795: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9796: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9797: END IF;
9798:
9799: pa_debug.reset_curr_function;
9800:
9801: EXCEPTION
9802:
9803: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9820:
9821: x_msg_count := l_msg_count;
9822: END IF;
9823: x_return_status := FND_API.G_RET_STS_ERROR;
9824: pa_debug.reset_curr_function;
9825:
9826: WHEN OTHERS THEN
9827:
9828: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905 by vvjoshi
9833: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9834: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9835:
9836: IF l_debug_mode = 'Y' THEN
9837: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9838: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9839: END IF;
9840: pa_debug.reset_curr_function;
9841: RAISE;
9834: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9835:
9836: IF l_debug_mode = 'Y' THEN
9837: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9838: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9839: END IF;
9840: pa_debug.reset_curr_function;
9841: RAISE;
9842:
9836: IF l_debug_mode = 'Y' THEN
9837: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9838: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9839: END IF;
9840: pa_debug.reset_curr_function;
9841: RAISE;
9842:
9843: END get_app_cw_ver_ids_for_proj;
9844:
9862:
9863:
9864:
9865: BEGIN
9866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9867:
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9870: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9865: BEGIN
9866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9867:
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9870: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9871: END IF;
9872: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9873: p_debug_mode => l_debug_mode );
9866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9867:
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9870: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9871: END IF;
9872: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9873: p_debug_mode => l_debug_mode );
9874:
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9870: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9871: END IF;
9872: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9873: p_debug_mode => l_debug_mode );
9874:
9875: -- Throwing error if the inputs are Null
9876: IF p_project_id IS NULL OR
9875: -- Throwing error if the inputs are Null
9876: IF p_project_id IS NULL OR
9877: p_ci_id IS NULL THEN
9878: IF l_debug_mode = 'Y' THEN
9879: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9881: END IF;
9882: pa_debug.reset_curr_function;
9883: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9876: IF p_project_id IS NULL OR
9877: p_ci_id IS NULL THEN
9878: IF l_debug_mode = 'Y' THEN
9879: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9881: END IF;
9882: pa_debug.reset_curr_function;
9883: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9884: END IF;
9878: IF l_debug_mode = 'Y' THEN
9879: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9881: END IF;
9882: pa_debug.reset_curr_function;
9883: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9884: END IF;
9885:
9886: BEGIN
9903:
9904: EXCEPTION
9905: WHEN NO_DATA_FOUND THEN
9906: IF l_debug_mode = 'Y' THEN
9907: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9908: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9909: END IF;
9910: pa_debug.reset_curr_function;
9911:
9904: EXCEPTION
9905: WHEN NO_DATA_FOUND THEN
9906: IF l_debug_mode = 'Y' THEN
9907: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9908: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9909: END IF;
9910: pa_debug.reset_curr_function;
9911:
9912: RETURN l_impl_agr_rev_amt;
9906: IF l_debug_mode = 'Y' THEN
9907: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9908: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9909: END IF;
9910: pa_debug.reset_curr_function;
9911:
9912: RETURN l_impl_agr_rev_amt;
9913:
9914: WHEN OTHERS THEN
9912: RETURN l_impl_agr_rev_amt;
9913:
9914: WHEN OTHERS THEN
9915: IF l_debug_mode = 'Y' THEN
9916: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9917: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9918: END IF;
9919: pa_debug.reset_curr_function;
9920: RAISE;
9913:
9914: WHEN OTHERS THEN
9915: IF l_debug_mode = 'Y' THEN
9916: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9917: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9918: END IF;
9919: pa_debug.reset_curr_function;
9920: RAISE;
9921: END;
9915: IF l_debug_mode = 'Y' THEN
9916: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9917: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9918: END IF;
9919: pa_debug.reset_curr_function;
9920: RAISE;
9921: END;
9922: IF l_debug_mode = 'Y' THEN
9923: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9919: pa_debug.reset_curr_function;
9920: RAISE;
9921: END;
9922: IF l_debug_mode = 'Y' THEN
9923: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9924: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9925: END IF;
9926:
9927: BEGIN
9920: RAISE;
9921: END;
9922: IF l_debug_mode = 'Y' THEN
9923: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9924: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9925: END IF;
9926:
9927: BEGIN
9928: -- Selecting the revenue amount implemeted in agreement currency
9937:
9938: EXCEPTION
9939: WHEN NO_DATA_FOUND THEN
9940: IF l_debug_mode = 'Y' THEN
9941: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9943: END IF;
9944: pa_debug.reset_curr_function;
9945:
9938: EXCEPTION
9939: WHEN NO_DATA_FOUND THEN
9940: IF l_debug_mode = 'Y' THEN
9941: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9943: END IF;
9944: pa_debug.reset_curr_function;
9945:
9946: RETURN l_impl_agr_rev_amt;
9940: IF l_debug_mode = 'Y' THEN
9941: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9943: END IF;
9944: pa_debug.reset_curr_function;
9945:
9946: RETURN l_impl_agr_rev_amt;
9947: WHEN OTHERS THEN
9948: IF l_debug_mode = 'Y' THEN
9945:
9946: RETURN l_impl_agr_rev_amt;
9947: WHEN OTHERS THEN
9948: IF l_debug_mode = 'Y' THEN
9949: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9950: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9951: END IF;
9952: pa_debug.reset_curr_function;
9953: RAISE;
9946: RETURN l_impl_agr_rev_amt;
9947: WHEN OTHERS THEN
9948: IF l_debug_mode = 'Y' THEN
9949: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9950: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9951: END IF;
9952: pa_debug.reset_curr_function;
9953: RAISE;
9954: END;
9948: IF l_debug_mode = 'Y' THEN
9949: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9950: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9951: END IF;
9952: pa_debug.reset_curr_function;
9953: RAISE;
9954: END;
9955:
9956: IF l_debug_mode = 'Y' THEN
9953: RAISE;
9954: END;
9955:
9956: IF l_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9958: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9959: END IF;
9960:
9961: pa_debug.reset_curr_function;
9954: END;
9955:
9956: IF l_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9958: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9959: END IF;
9960:
9961: pa_debug.reset_curr_function;
9962:
9957: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9958: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9959: END IF;
9960:
9961: pa_debug.reset_curr_function;
9962:
9963: RETURN l_impl_agr_rev_amt;
9964:
9965: EXCEPTION
9973: ,p_msg_data => l_msg_data
9974: ,p_data => l_data
9975: ,p_msg_index_out => l_msg_index_out);
9976: END IF;
9977: pa_debug.reset_curr_function;
9978:
9979: WHEN OTHERS THEN
9980: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9981: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9980: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9981: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9982:
9983: IF l_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9985: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: pa_debug.reset_curr_function;
9988: RAISE;
9981: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9982:
9983: IF l_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9985: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: pa_debug.reset_curr_function;
9988: RAISE;
9989: END get_impl_agr_revenue;
9983: IF l_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9985: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: pa_debug.reset_curr_function;
9988: RAISE;
9989: END get_impl_agr_revenue;
9990:
9991: /*Function added for EnC */
10059: x_msg_count := 0;
10060: x_return_status := FND_API.G_RET_STS_SUCCESS;
10061:
10062: -- Set curr function
10063: pa_debug.set_curr_function(
10064: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
10065: ,p_debug_mode => P_PA_DEBUG_MODE );
10066:
10067: -- Validate input parameters
10061:
10062: -- Set curr function
10063: pa_debug.set_curr_function(
10064: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
10065: ,p_debug_mode => P_PA_DEBUG_MODE );
10066:
10067: -- Validate input parameters
10068: IF P_PA_DEBUG_MODE = 'Y' THEN
10069: pa_debug.g_err_stage:='Validating input parameters';
10064: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
10065: ,p_debug_mode => P_PA_DEBUG_MODE );
10066:
10067: -- Validate input parameters
10068: IF P_PA_DEBUG_MODE = 'Y' THEN
10069: pa_debug.g_err_stage:='Validating input parameters';
10070: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
10071: END IF;
10072:
10065: ,p_debug_mode => P_PA_DEBUG_MODE );
10066:
10067: -- Validate input parameters
10068: IF P_PA_DEBUG_MODE = 'Y' THEN
10069: pa_debug.g_err_stage:='Validating input parameters';
10070: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
10071: END IF;
10072:
10073:
10066:
10067: -- Validate input parameters
10068: IF P_PA_DEBUG_MODE = 'Y' THEN
10069: pa_debug.g_err_stage:='Validating input parameters';
10070: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
10071: END IF;
10072:
10073:
10074: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
10073:
10074: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
10075: THEN
10076:
10077: IF P_PA_DEBUG_MODE = 'Y' THEN
10078: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10079: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10080:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10074: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
10075: THEN
10076:
10077: IF P_PA_DEBUG_MODE = 'Y' THEN
10078: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10079: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10080:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10082: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10075: THEN
10076:
10077: IF P_PA_DEBUG_MODE = 'Y' THEN
10078: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10079: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10080:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10082: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10083: END IF;
10077: IF P_PA_DEBUG_MODE = 'Y' THEN
10078: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10079: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10080:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10082: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10083: END IF;
10084:
10085: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10078: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10079: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10080:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10082: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10083: END IF;
10084:
10085: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10086: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10107: AND rac.budget_version_id = bv.budget_version_id
10108: AND rownum=1;
10109:
10110: -- reset curr function
10111: pa_debug.reset_curr_function();
10112:
10113: Exception
10114: When no_data_found Then
10115: -- reset curr function
10112:
10113: Exception
10114: When no_data_found Then
10115: -- reset curr function
10116: pa_debug.reset_curr_function();
10117: End;
10118:
10119: EXCEPTION
10120: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10134:
10135: x_msg_count := l_msg_count;
10136: END IF;
10137: x_return_status := FND_API.G_RET_STS_ERROR;
10138: pa_debug.reset_curr_function;
10139: WHEN Others THEN
10140:
10141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10142: x_msg_count := 1;
10144:
10145: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
10146: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
10147:
10148: IF P_PA_DEBUG_MODE = 'Y' THEN
10149: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10150: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10151: END IF;
10152:
10145: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
10146: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
10147:
10148: IF P_PA_DEBUG_MODE = 'Y' THEN
10149: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10150: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10151: END IF;
10152:
10153: -- reset curr function
10146: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
10147:
10148: IF P_PA_DEBUG_MODE = 'Y' THEN
10149: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10150: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10151: END IF;
10152:
10153: -- reset curr function
10154: pa_debug.Reset_Curr_Function();
10150: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10151: END IF;
10152:
10153: -- reset curr function
10154: pa_debug.Reset_Curr_Function();
10155:
10156: RAISE;
10157:
10158: END get_txn_curr_code_of_ci_ver;
10174:
10175: is_delete_allowed VARCHAR2(1) := 'Y';
10176:
10177: BEGIN
10178: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10179:
10180: IF l_debug_mode = 'Y' THEN
10181: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
10182: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10177: BEGIN
10178: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10179:
10180: IF l_debug_mode = 'Y' THEN
10181: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
10182: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10183: END IF;
10184: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10185: p_debug_mode => l_debug_mode );
10178: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10179:
10180: IF l_debug_mode = 'Y' THEN
10181: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
10182: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10183: END IF;
10184: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10185: p_debug_mode => l_debug_mode );
10186:
10180: IF l_debug_mode = 'Y' THEN
10181: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
10182: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10183: END IF;
10184: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10185: p_debug_mode => l_debug_mode );
10186:
10187: IF l_debug_mode = 'Y' THEN
10188: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10184: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10185: p_debug_mode => l_debug_mode );
10186:
10187: IF l_debug_mode = 'Y' THEN
10188: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10189: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10190: END IF;
10191:
10192: IF p_ci_type_id IS NULL THEN
10185: p_debug_mode => l_debug_mode );
10186:
10187: IF l_debug_mode = 'Y' THEN
10188: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10189: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10190: END IF;
10191:
10192: IF p_ci_type_id IS NULL THEN
10193: IF l_debug_mode = 'Y' THEN
10190: END IF;
10191:
10192: IF p_ci_type_id IS NULL THEN
10193: IF l_debug_mode = 'Y' THEN
10194: pa_debug.g_err_stage:='Input p_ci_type_id is NULL';
10195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10196: END IF;
10197: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10198: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10191:
10192: IF p_ci_type_id IS NULL THEN
10193: IF l_debug_mode = 'Y' THEN
10194: pa_debug.g_err_stage:='Input p_ci_type_id is NULL';
10195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10196: END IF;
10197: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10198: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10199: p_token1 => 'PROCEDURENAME',
10197: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10198: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10199: p_token1 => 'PROCEDURENAME',
10200: p_value1 => 'PAFPCIUB.validate_fp_ci_type_delete');
10201: pa_debug.reset_curr_function;
10202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10203: END IF;
10204:
10205: IF l_debug_mode = 'Y' THEN
10202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10203: END IF;
10204:
10205: IF l_debug_mode = 'Y' THEN
10206: pa_debug.g_err_stage:='Checkin if delete allowed';
10207: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10208: END IF;
10209:
10210: BEGIN
10203: END IF;
10204:
10205: IF l_debug_mode = 'Y' THEN
10206: pa_debug.g_err_stage:='Checkin if delete allowed';
10207: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10208: END IF;
10209:
10210: BEGIN
10211: SELECT 'N'
10219: RETURN is_delete_allowed;
10220: END;
10221:
10222: IF l_debug_mode = 'Y' THEN
10223: pa_debug.g_err_stage:='Check completed';
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10220: END;
10221:
10222: IF l_debug_mode = 'Y' THEN
10223: pa_debug.g_err_stage:='Check completed';
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10221:
10222: IF l_debug_mode = 'Y' THEN
10223: pa_debug.g_err_stage:='Check completed';
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10229: END IF;
10222: IF l_debug_mode = 'Y' THEN
10223: pa_debug.g_err_stage:='Check completed';
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10229: END IF;
10230:
10223: pa_debug.g_err_stage:='Check completed';
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10229: END IF;
10230:
10231: pa_debug.reset_curr_function;
10224: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10225: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10226: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10229: END IF;
10230:
10231: pa_debug.reset_curr_function;
10232:
10227: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10228: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10229: END IF;
10230:
10231: pa_debug.reset_curr_function;
10232:
10233: RETURN is_delete_allowed;
10234:
10235: EXCEPTION
10243: ,p_msg_data => l_msg_data
10244: ,p_data => l_data
10245: ,p_msg_index_out => l_msg_index_out);
10246: END IF;
10247: pa_debug.reset_curr_function;
10248: WHEN OTHERS THEN
10249: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
10250: ,p_procedure_name => 'validate_fp_ci_type_delete');
10251:
10249: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
10250: ,p_procedure_name => 'validate_fp_ci_type_delete');
10251:
10252: IF l_debug_mode = 'Y' THEN
10253: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10254: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10255: END IF;
10256: pa_debug.reset_curr_function;
10257: RAISE;
10250: ,p_procedure_name => 'validate_fp_ci_type_delete');
10251:
10252: IF l_debug_mode = 'Y' THEN
10253: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10254: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10255: END IF;
10256: pa_debug.reset_curr_function;
10257: RAISE;
10258: END validate_fp_ci_type_delete;
10252: IF l_debug_mode = 'Y' THEN
10253: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10254: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10255: END IF;
10256: pa_debug.reset_curr_function;
10257: RAISE;
10258: END validate_fp_ci_type_delete;
10259:
10260: -- Bug 5845142. This function will be used to check if inclusion of change orders is possible into