[Home] [Help]
1: PACKAGE BODY Pa_Fp_Control_Items_Utils AS
2: /* $Header: PAFPCIUB.pls 120.6.12010000.2 2008/11/28 12:55:05 vgovvala 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: PROCEDURE Get_Fin_Plan_Dtls(p_project_id IN Pa_Projects_All.Project_Id%TYPE,
7: p_ci_id IN NUMBER,
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39: x_msg_count := 0;
40: x_no_of_ci_plan_versions := 0;
41: x_margin_derived_from_code := 'B';
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
44: END IF;
45: FND_MSG_PUB.initialize;
46:
39: x_msg_count := 0;
40: x_no_of_ci_plan_versions := 0;
41: x_margin_derived_from_code := 'B';
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
44: END IF;
45: FND_MSG_PUB.initialize;
46:
47: x_ci_est_qty := pa_fin_plan_utils.Get_Approved_Budget_Ver_Qty(
277: ELSIF l_rev_budget_flag = 'Y' AND l_cost_budget_flag = 'Y' THEN
278: x_fp_pref_code := 'COST_AND_REV_SEP';
279: END IF;
280: END IF;
281: Pa_Debug.Reset_Err_Stack;
282: EXCEPTION
283: WHEN OTHERS THEN
284: FND_MSG_PUB.Add_Exc_Msg(
285: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
282: EXCEPTION
283: WHEN OTHERS THEN
284: FND_MSG_PUB.Add_Exc_Msg(
285: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
290: pa_debug.reset_err_stack;
283: WHEN OTHERS THEN
284: FND_MSG_PUB.Add_Exc_Msg(
285: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
290: pa_debug.reset_err_stack;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: FND_MSG_PUB.Add_Exc_Msg(
285: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
290: pa_debug.reset_err_stack;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: RAISE;
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
290: pa_debug.reset_err_stack;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: RAISE;
293: END Get_Fin_Plan_Dtls;
294:
331: l_debug_mode VARCHAR2(30);
332:
333: BEGIN
334:
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
337: END IF;
338:
339: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
332:
333: BEGIN
334:
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
337: END IF;
338:
339: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
340: l_debug_mode := NVL(l_debug_mode, 'Y');
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
337: END IF;
338:
339: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
340: l_debug_mode := NVL(l_debug_mode, 'Y');
341:
342: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
343:
338:
339: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
340: l_debug_mode := NVL(l_debug_mode, 'Y');
341:
342: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
343:
344: SELECT
345: pacitl.name into x_ci_type_name
346: FROM pa_control_items paci, pa_ci_types_tl pacitl
349: and paci.ci_type_id = pacitl.ci_type_id
350: and pacitl.language = userenv('lang');
351:
352: IF x_ci_type_name IS NULL THEN
353: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
354: IF P_PA_DEBUG_MODE = 'Y' THEN
355: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
356: END IF;
357: END IF;
350: and pacitl.language = userenv('lang');
351:
352: IF x_ci_type_name IS NULL THEN
353: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
354: IF P_PA_DEBUG_MODE = 'Y' THEN
355: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
356: END IF;
357: END IF;
358: pa_debug.reset_err_stack;
351:
352: IF x_ci_type_name IS NULL THEN
353: pa_debug.g_err_stage := 'x_ci_type_name [ IS NULL ]';
354: IF P_PA_DEBUG_MODE = 'Y' THEN
355: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
356: END IF;
357: END IF;
358: pa_debug.reset_err_stack;
359: EXCEPTION
354: IF P_PA_DEBUG_MODE = 'Y' THEN
355: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || pa_debug.g_err_stage);
356: END IF;
357: END IF;
358: pa_debug.reset_err_stack;
359: EXCEPTION
360: WHEN NO_DATA_FOUND THEN
361: null;
362: WHEN OTHERS THEN
361: null;
362: WHEN OTHERS THEN
363: FND_MSG_PUB.add_exc_msg(
364: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
365: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
366: IF P_PA_DEBUG_MODE = 'Y' THEN
367: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
368: END IF;
369: pa_debug.reset_err_stack;
362: WHEN OTHERS THEN
363: FND_MSG_PUB.add_exc_msg(
364: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
365: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
366: IF P_PA_DEBUG_MODE = 'Y' THEN
367: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
368: END IF;
369: pa_debug.reset_err_stack;
370: END get_finplan_ci_type_name;
363: FND_MSG_PUB.add_exc_msg(
364: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
365: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
366: IF P_PA_DEBUG_MODE = 'Y' THEN
367: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
368: END IF;
369: pa_debug.reset_err_stack;
370: END get_finplan_ci_type_name;
371:
365: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
366: IF P_PA_DEBUG_MODE = 'Y' THEN
367: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
368: END IF;
369: pa_debug.reset_err_stack;
370: END get_finplan_ci_type_name;
371:
372: PROCEDURE get_fp_ci_agreement_dtls
373: (
383: IS
384: l_debug_mode varchar2(30) := 'Y';
385:
386: BEGIN
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
389: END IF;
390:
391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
384: l_debug_mode varchar2(30) := 'Y';
385:
386: BEGIN
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
389: END IF;
390:
391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
392: l_debug_mode := NVL(l_debug_mode, 'Y');
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
389: END IF;
390:
391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
392: l_debug_mode := NVL(l_debug_mode, 'Y');
393: SELECT pg.agreement_num,
394: pg.amount,
395: pg.agreement_currency_code
404: and bv.version_type in ('REVENUE','ALL'); -- Raja FP M Change Bug 3619687
405: --and rownum < 2;
406:
407: IF x_agreement_num IS NULL THEN
408: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
409: IF P_PA_DEBUG_MODE = 'Y' THEN
410: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
411: END IF;
412: END IF;
405: --and rownum < 2;
406:
407: IF x_agreement_num IS NULL THEN
408: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
409: IF P_PA_DEBUG_MODE = 'Y' THEN
410: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
411: END IF;
412: END IF;
413: IF x_agreement_amount IS NULL THEN
406:
407: IF x_agreement_num IS NULL THEN
408: pa_debug.g_err_stage := 'x_agreement_num [ IS NULL ]';
409: IF P_PA_DEBUG_MODE = 'Y' THEN
410: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
411: END IF;
412: END IF;
413: IF x_agreement_amount IS NULL THEN
414: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
410: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
411: END IF;
412: END IF;
413: IF x_agreement_amount IS NULL THEN
414: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
415: IF P_PA_DEBUG_MODE = 'Y' THEN
416: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
417: END IF;
418: END IF;
411: END IF;
412: END IF;
413: IF x_agreement_amount IS NULL THEN
414: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
415: IF P_PA_DEBUG_MODE = 'Y' THEN
416: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
417: END IF;
418: END IF;
419: IF x_agreement_currency_code IS NULL THEN
412: END IF;
413: IF x_agreement_amount IS NULL THEN
414: pa_debug.g_err_stage := 'x_agreement_amount [ IS NULL ]';
415: IF P_PA_DEBUG_MODE = 'Y' THEN
416: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
417: END IF;
418: END IF;
419: IF x_agreement_currency_code IS NULL THEN
420: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
416: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
417: END IF;
418: END IF;
419: IF x_agreement_currency_code IS NULL THEN
420: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
421: IF P_PA_DEBUG_MODE = 'Y' THEN
422: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
423: END IF;
424: END IF;
417: END IF;
418: END IF;
419: IF x_agreement_currency_code IS NULL THEN
420: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
421: IF P_PA_DEBUG_MODE = 'Y' THEN
422: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
423: END IF;
424: END IF;
425: pa_debug.reset_err_stack;
418: END IF;
419: IF x_agreement_currency_code IS NULL THEN
420: pa_debug.g_err_stage := 'x_agreement_currency_code [ IS NULL ]';
421: IF P_PA_DEBUG_MODE = 'Y' THEN
422: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
423: END IF;
424: END IF;
425: pa_debug.reset_err_stack;
426: EXCEPTION
421: IF P_PA_DEBUG_MODE = 'Y' THEN
422: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || pa_debug.g_err_stage);
423: END IF;
424: END IF;
425: pa_debug.reset_err_stack;
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: null;
429: WHEN OTHERS THEN
428: null;
429: WHEN OTHERS THEN
430: FND_MSG_PUB.add_exc_msg(
431: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
432: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
435: END IF;
436: pa_debug.reset_err_stack;
429: WHEN OTHERS THEN
430: FND_MSG_PUB.add_exc_msg(
431: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
432: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
435: END IF;
436: pa_debug.reset_err_stack;
437: END get_fp_ci_agreement_dtls;
430: FND_MSG_PUB.add_exc_msg(
431: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
432: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
435: END IF;
436: pa_debug.reset_err_stack;
437: END get_fp_ci_agreement_dtls;
438:
432: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
435: END IF;
436: pa_debug.reset_err_stack;
437: END get_fp_ci_agreement_dtls;
438:
439: /*********************************************************************
440: This procedure is called while merging change requests into
465: -- Local Variable Declaration
466: l_debug_mode VARCHAR2(30);
467:
468: BEGIN
469: IF P_PA_DEBUG_MODE = 'Y' THEN
470: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
471: END IF;
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
466: l_debug_mode VARCHAR2(30);
467:
468: BEGIN
469: IF P_PA_DEBUG_MODE = 'Y' THEN
470: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
471: END IF;
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
468: BEGIN
469: IF P_PA_DEBUG_MODE = 'Y' THEN
470: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
471: END IF;
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
475: x_return_status := FND_API.G_RET_STS_SUCCESS;
476: x_msg_count := 0;
470: pa_debug.init_err_stack('PAFPCIUB.FP_CI_GET_VERSION_DETAILS');
471: END IF;
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
475: x_return_status := FND_API.G_RET_STS_SUCCESS;
476: x_msg_count := 0;
477: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 1');
478: --Get the column values for this budget version id and project id combination
557: WHEN OTHERS THEN
558: FND_MSG_PUB.add_exc_msg
559: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
560: 'FP_CI_GET_VERSION_DETAILS'
561: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
562: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
563: IF P_PA_DEBUG_MODE = 'Y' THEN
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
559: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
560: 'FP_CI_GET_VERSION_DETAILS'
561: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
562: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
563: IF P_PA_DEBUG_MODE = 'Y' THEN
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
566: END IF;
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: 'FP_CI_GET_VERSION_DETAILS'
561: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
562: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
563: IF P_PA_DEBUG_MODE = 'Y' THEN
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
566: END IF;
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: PA_DEBUG.Reset_Curr_Function;
561: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
562: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
563: IF P_PA_DEBUG_MODE = 'Y' THEN
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
566: END IF;
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: PA_DEBUG.Reset_Curr_Function;
569: RAISE;
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
566: END IF;
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: PA_DEBUG.Reset_Curr_Function;
569: RAISE;
570: END FP_CI_GET_VERSION_DETAILS;
571: -- end of FP_CI_GET_VERSION_DETAILS
572:
665: l_targ_pt_name pa_fin_plan_types_tl.name%TYPE;
666: l_src_ci_number pa_control_items.ci_number%TYPE;
667: l_module_name varchar2(30) := 'check is possible';
668: BEGIN
669: IF P_PA_DEBUG_MODE = 'Y' THEN
670: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
671: END IF;
672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
673: l_debug_mode := NVL(l_debug_mode, 'Y');
666: l_src_ci_number pa_control_items.ci_number%TYPE;
667: l_module_name varchar2(30) := 'check is possible';
668: BEGIN
669: IF P_PA_DEBUG_MODE = 'Y' THEN
670: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
671: END IF;
672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
673: l_debug_mode := NVL(l_debug_mode, 'Y');
674: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
668: BEGIN
669: IF P_PA_DEBUG_MODE = 'Y' THEN
670: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
671: END IF;
672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
673: l_debug_mode := NVL(l_debug_mode, 'Y');
674: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
675: x_return_status := FND_API.G_RET_STS_SUCCESS;
676: x_msg_count := 0;
670: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_MERGE_POSSIBLE');
671: END IF;
672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
673: l_debug_mode := NVL(l_debug_mode, 'Y');
674: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
675: x_return_status := FND_API.G_RET_STS_SUCCESS;
676: x_msg_count := 0;
677: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
678: -- The API is sure to have ONE target version id for merge check
677: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
678: -- The API is sure to have ONE target version id for merge check
679:
680: IF l_debug_mode = 'Y' THEN
681: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
683:
684: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
678: -- The API is sure to have ONE target version id for merge check
679:
680: IF l_debug_mode = 'Y' THEN
681: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
683:
684: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
686: END IF;
680: IF l_debug_mode = 'Y' THEN
681: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
683:
684: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
686: END IF;
687:
688: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
681: pa_debug.g_err_stage:='p_target_fp_version_id = ' || p_target_fp_version_id;
682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
683:
684: pa_debug.g_err_stage:='p_calling_mode = ' || p_calling_mode;
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
686: END IF;
687:
688: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
689: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
687:
688: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
689: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
690: IF l_debug_mode = 'Y' THEN
691: pa_debug.g_err_stage:='p_source_fp_version_id_tbl = ' || p_source_fp_version_id_tbl(i);
692: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
693: END IF;
694: END LOOP;
695: END IF;
688: IF p_source_fp_version_id_tbl.COUNT > 0 THEN
689: FOR i IN p_source_fp_version_id_tbl.FIRST .. p_source_fp_version_id_tbl.LAST LOOP
690: IF l_debug_mode = 'Y' THEN
691: pa_debug.g_err_stage:='p_source_fp_version_id_tbl = ' || p_source_fp_version_id_tbl(i);
692: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
693: END IF;
694: END LOOP;
695: END IF;
696:
982: END IF;
983: END IF;
984:
985: IF l_debug_mode = 'Y' THEN
986: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
988:
989: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
983: END IF;
984:
985: IF l_debug_mode = 'Y' THEN
986: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
988:
989: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
991: END IF;
985: IF l_debug_mode = 'Y' THEN
986: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
988:
989: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
991: END IF;
992:
993: --Added agreement check for P2 bug 2724156
986: pa_debug.g_err_stage:='Source version type: ' || l_s_version_type;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
988:
989: pa_debug.g_err_stage:='Target version type: ' || l_t_version_type;
990: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
991: END IF;
992:
993: --Added agreement check for P2 bug 2724156
994: IF (l_s_version_type IN ('REVENUE','ALL') AND l_t_version_type IN ('REVENUE','ALL')) THEN
1002: FROM pa_budget_versions
1003: where budget_version_id = l_t_version_id;
1004:
1005: IF l_debug_mode = 'Y' THEN
1006: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1007: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1008:
1009: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1010: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1003: where budget_version_id = l_t_version_id;
1004:
1005: IF l_debug_mode = 'Y' THEN
1006: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1007: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1008:
1009: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1010: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1011: END IF;
1005: IF l_debug_mode = 'Y' THEN
1006: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1007: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1008:
1009: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1010: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1011: END IF;
1012:
1013: IF (l_s_agreement_id <> l_t_agreement_id) THEN
1006: pa_debug.g_err_stage:='Source Agr: ' || l_s_agreement_id;
1007: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1008:
1009: pa_debug.g_err_stage:='Target Agr: ' || l_t_agreement_id;
1010: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1011: END IF;
1012:
1013: IF (l_s_agreement_id <> l_t_agreement_id) THEN
1014: --MERGE NOT POSSIBLE
1025: END IF;
1026: END IF;
1027:
1028: IF l_debug_mode = 'Y' THEN
1029: pa_debug.g_err_stage:='Error: ' || l_raise_error_flag;
1030: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1031: END IF;
1032:
1033: --end of agreement check for P2 bug 2724156
1026: END IF;
1027:
1028: IF l_debug_mode = 'Y' THEN
1029: pa_debug.g_err_stage:='Error: ' || l_raise_error_flag;
1030: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1031: END IF;
1032:
1033: --end of agreement check for P2 bug 2724156
1034: IF (l_raise_error_flag = 'Y') THEN
1075: if l_ci_number is not null then
1076: l_chg_doc_token := l_chg_doc_token ||'('||l_ci_number ||')';
1077: end if;
1078: IF l_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:='Token: ' || l_chg_doc_token;
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082: exception
1083: when no_data_found then
1076: l_chg_doc_token := l_chg_doc_token ||'('||l_ci_number ||')';
1077: end if;
1078: IF l_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:='Token: ' || l_chg_doc_token;
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082: exception
1083: when no_data_found then
1084: l_count := 0;
1488: WHEN OTHERS THEN
1489: FND_MSG_PUB.add_exc_msg
1490: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1491: 'FP_CI_CHECK_MERGE_POSSIBLE'
1492: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1489: FND_MSG_PUB.add_exc_msg
1490: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1491: 'FP_CI_CHECK_MERGE_POSSIBLE'
1492: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1497: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1490: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1491: 'FP_CI_CHECK_MERGE_POSSIBLE'
1492: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1497: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: 'FP_CI_CHECK_MERGE_POSSIBLE'
1492: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1497: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: PA_DEBUG.Reset_Curr_Function;
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1497: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: PA_DEBUG.Reset_Curr_Function;
1500: RAISE;
1501:
1502: END FP_CI_CHECK_MERGE_POSSIBLE;
1503: -- end of FP_CI_CHECK_MERGE_POSSIBLE
1885: BEGIN
1886:
1887: x_msg_count := 0;
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1890: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1891: l_debug_mode := NVL(l_debug_mode, 'Y');
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1893:
1886:
1887: x_msg_count := 0;
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1890: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1891: l_debug_mode := NVL(l_debug_mode, 'Y');
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1893:
1894: -- Check for business rules violations
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1890: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1891: l_debug_mode := NVL(l_debug_mode, 'Y');
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1893:
1894: -- Check for business rules violations
1895:
1896: pa_debug.g_err_stage:= 'Validating input parameters';
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1893:
1894: -- Check for business rules violations
1895:
1896: pa_debug.g_err_stage:= 'Validating input parameters';
1897: IF P_PA_DEBUG_MODE = 'Y' THEN
1898: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1899: END IF;
1900:
1893:
1894: -- Check for business rules violations
1895:
1896: pa_debug.g_err_stage:= 'Validating input parameters';
1897: IF P_PA_DEBUG_MODE = 'Y' THEN
1898: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1899: END IF;
1900:
1901: --Check if plan version id is null
1894: -- Check for business rules violations
1895:
1896: pa_debug.g_err_stage:= 'Validating input parameters';
1897: IF P_PA_DEBUG_MODE = 'Y' THEN
1898: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1899: END IF;
1900:
1901: --Check if plan version id is null
1902:
1903: IF (p_project_id IS NULL) OR
1904: (p_fin_plan_type_id IS NULL) OR
1905: (p_version_type IS NULL)
1906: THEN
1907: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1904: (p_fin_plan_type_id IS NULL) OR
1905: (p_version_type IS NULL)
1906: THEN
1907: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1905: (p_version_type IS NULL)
1906: THEN
1907: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1907: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1918: END IF;
1919:
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1918: END IF;
1919:
1920: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1918: END IF;
1919:
1920: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1919:
1920: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1922:
1923: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1924: IF P_PA_DEBUG_MODE = 'Y' THEN
1925: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1926: END IF;
1927:
1920: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1922:
1923: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1924: IF P_PA_DEBUG_MODE = 'Y' THEN
1925: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1926: END IF;
1927:
1928: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1922:
1923: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1924: IF P_PA_DEBUG_MODE = 'Y' THEN
1925: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1926: END IF;
1927:
1928: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1929: END IF;
1971: -- End; jwhite: Added for Plannable Task Dev Effort ------------------
1972:
1973: EXCEPTION
1974: WHEN OTHERS THEN
1975: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
1976: IF P_PA_DEBUG_MODE = 'Y' THEN
1977: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1978: END IF;
1979: raise;
1972:
1973: EXCEPTION
1974: WHEN OTHERS THEN
1975: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
1976: IF P_PA_DEBUG_MODE = 'Y' THEN
1977: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1978: END IF;
1979: raise;
1980: END;
1973: EXCEPTION
1974: WHEN OTHERS THEN
1975: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
1976: IF P_PA_DEBUG_MODE = 'Y' THEN
1977: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1978: END IF;
1979: raise;
1980: END;
1981:
1978: END IF;
1979: raise;
1980: END;
1981:
1982: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
1983: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1979: raise;
1980: END;
1981:
1982: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
1983: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1980: END;
1981:
1982: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
1983: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1983: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1989: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1990: END IF;
1991:
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1989: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1990: END IF;
1991:
1992: -- Fetch resource list info
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1989: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1990: END IF;
1991:
1992: -- Fetch resource list info
1993:
1990: END IF;
1991:
1992: -- Fetch resource list info
1993:
1994: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
1995: IF P_PA_DEBUG_MODE = 'Y' THEN
1996: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: END IF;
1998:
1991:
1992: -- Fetch resource list info
1993:
1994: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
1995: IF P_PA_DEBUG_MODE = 'Y' THEN
1996: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: END IF;
1998:
1999: pa_fin_plan_utils.get_resource_list_info(
1992: -- Fetch resource list info
1993:
1994: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
1995: IF P_PA_DEBUG_MODE = 'Y' THEN
1996: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: END IF;
1998:
1999: pa_fin_plan_utils.get_resource_list_info(
2000: p_resource_list_id => l_resource_list_id
2032: -- and derive the task level of it
2033:
2034: IF p_impacted_task_id IS NOT NULL THEN
2035:
2036: pa_debug.g_err_stage:= 'Fetching impacted task details';
2037: IF P_PA_DEBUG_MODE = 'Y' THEN
2038: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2039: END IF;
2040:
2033:
2034: IF p_impacted_task_id IS NOT NULL THEN
2035:
2036: pa_debug.g_err_stage:= 'Fetching impacted task details';
2037: IF P_PA_DEBUG_MODE = 'Y' THEN
2038: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2039: END IF;
2040:
2041: -- Fetching top task id and parent task id of impacted task id
2034: IF p_impacted_task_id IS NOT NULL THEN
2035:
2036: pa_debug.g_err_stage:= 'Fetching impacted task details';
2037: IF P_PA_DEBUG_MODE = 'Y' THEN
2038: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2039: END IF;
2040:
2041: -- Fetching top task id and parent task id of impacted task id
2042:
2063: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2064: END IF;
2065: EXCEPTION
2066: WHEN Others THEN
2067: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2068: IF P_PA_DEBUG_MODE = 'Y' THEN
2069: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2070: END IF;
2071: RAISE;
2064: END IF;
2065: EXCEPTION
2066: WHEN Others THEN
2067: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2068: IF P_PA_DEBUG_MODE = 'Y' THEN
2069: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2070: END IF;
2071: RAISE;
2072: END;
2065: EXCEPTION
2066: WHEN Others THEN
2067: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2068: IF P_PA_DEBUG_MODE = 'Y' THEN
2069: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2070: END IF;
2071: RAISE;
2072: END;
2073: END IF;
2071: RAISE;
2072: END;
2073: END IF;
2074:
2075: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2076: IF P_PA_DEBUG_MODE = 'Y' THEN
2077: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2078: END IF;
2079:
2072: END;
2073: END IF;
2074:
2075: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2076: IF P_PA_DEBUG_MODE = 'Y' THEN
2077: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2078: END IF;
2079:
2080: END IF;
2073: END IF;
2074:
2075: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2076: IF P_PA_DEBUG_MODE = 'Y' THEN
2077: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2078: END IF;
2079:
2080: END IF;
2081:
2092: THEN
2093:
2094: -- Check if plan type has any plannable elements
2095:
2096: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2097: IF P_PA_DEBUG_MODE = 'Y' THEN
2098: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2099: END IF;
2100:
2093:
2094: -- Check if plan type has any plannable elements
2095:
2096: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2097: IF P_PA_DEBUG_MODE = 'Y' THEN
2098: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2099: END IF;
2100:
2101: OPEN cur_impacted_task_null;
2094: -- Check if plan type has any plannable elements
2095:
2096: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2097: IF P_PA_DEBUG_MODE = 'Y' THEN
2098: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2099: END IF;
2100:
2101: OPEN cur_impacted_task_null;
2102: FETCH cur_impacted_task_null INTO l_count;
2104: ELSE
2105: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2106:
2107: -- Check if top task id of impacted task is plannable
2108: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2109: IF P_PA_DEBUG_MODE = 'Y' THEN
2110: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2111: END IF;
2112:
2105: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2106:
2107: -- Check if top task id of impacted task is plannable
2108: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2109: IF P_PA_DEBUG_MODE = 'Y' THEN
2110: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2111: END IF;
2112:
2113: OPEN cur_impact_task_level_M_child;
2106:
2107: -- Check if top task id of impacted task is plannable
2108: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2109: IF P_PA_DEBUG_MODE = 'Y' THEN
2110: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2111: END IF;
2112:
2113: OPEN cur_impact_task_level_M_child;
2114: FETCH cur_impact_task_level_M_child INTO l_count;
2117: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L THEN
2118:
2119: -- Check if the impacted task or its top task is plannable
2120:
2121: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2122: IF P_PA_DEBUG_MODE = 'Y' THEN
2123: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2124: END IF;
2125:
2118:
2119: -- Check if the impacted task or its top task is plannable
2120:
2121: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2122: IF P_PA_DEBUG_MODE = 'Y' THEN
2123: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2124: END IF;
2125:
2126: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2119: -- Check if the impacted task or its top task is plannable
2120:
2121: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2122: IF P_PA_DEBUG_MODE = 'Y' THEN
2123: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2124: END IF;
2125:
2126: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2127: FETCH cur_impact_task_level_L INTO l_count;
2130: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T THEN
2131:
2132: -- Check if there are any plannable elements with top task id as impacted task id.
2133:
2134: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2135: IF P_PA_DEBUG_MODE = 'Y' THEN
2136: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137: END IF;
2138:
2131:
2132: -- Check if there are any plannable elements with top task id as impacted task id.
2133:
2134: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2135: IF P_PA_DEBUG_MODE = 'Y' THEN
2136: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137: END IF;
2138:
2139: OPEN cur_impact_task_level_T;
2132: -- Check if there are any plannable elements with top task id as impacted task id.
2133:
2134: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2135: IF P_PA_DEBUG_MODE = 'Y' THEN
2136: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137: END IF;
2138:
2139: OPEN cur_impact_task_level_T;
2140: FETCH cur_impact_task_level_T INTO l_count;
2145: IF l_count = 0
2146: THEN
2147: x_version_allowed_flag := 'N';
2148:
2149: pa_debug.g_err_stage:= 'Ci_version cant be created';
2150: IF P_PA_DEBUG_MODE = 'Y' THEN
2151: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2152: END IF;
2153:
2146: THEN
2147: x_version_allowed_flag := 'N';
2148:
2149: pa_debug.g_err_stage:= 'Ci_version cant be created';
2150: IF P_PA_DEBUG_MODE = 'Y' THEN
2151: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2152: END IF;
2153:
2154: -- raise error if the ci version cant be created
2147: x_version_allowed_flag := 'N';
2148:
2149: pa_debug.g_err_stage:= 'Ci_version cant be created';
2150: IF P_PA_DEBUG_MODE = 'Y' THEN
2151: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2152: END IF;
2153:
2154: -- raise error if the ci version cant be created
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2160: ELSE
2161: x_version_allowed_flag := 'Y';
2162: END IF;
2163:
2164: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2165: IF P_PA_DEBUG_MODE = 'Y' THEN
2166: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2167: END IF;
2168: pa_debug.reset_err_stack;
2161: x_version_allowed_flag := 'Y';
2162: END IF;
2163:
2164: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2165: IF P_PA_DEBUG_MODE = 'Y' THEN
2166: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2167: END IF;
2168: pa_debug.reset_err_stack;
2169:
2162: END IF;
2163:
2164: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2165: IF P_PA_DEBUG_MODE = 'Y' THEN
2166: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2167: END IF;
2168: pa_debug.reset_err_stack;
2169:
2170: EXCEPTION
2164: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2165: IF P_PA_DEBUG_MODE = 'Y' THEN
2166: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2167: END IF;
2168: pa_debug.reset_err_stack;
2169:
2170: EXCEPTION
2171:
2172: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2186: ELSE
2187: x_msg_count := l_msg_count;
2188: END IF;
2189:
2190: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2191: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2192: pa_debug.reset_err_stack;
2193: RAISE;
2194:
2187: x_msg_count := l_msg_count;
2188: END IF;
2189:
2190: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2191: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2192: pa_debug.reset_err_stack;
2193: RAISE;
2194:
2195: WHEN others THEN
2188: END IF;
2189:
2190: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2191: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2192: pa_debug.reset_err_stack;
2193: RAISE;
2194:
2195: WHEN others THEN
2196:
2198: x_msg_count := 1;
2199: x_msg_data := SQLERRM;
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2205: END IF;
2206: pa_debug.reset_err_stack;
2199: x_msg_data := SQLERRM;
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2205: END IF;
2206: pa_debug.reset_err_stack;
2207: RAISE;
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2205: END IF;
2206: pa_debug.reset_err_stack;
2207: RAISE;
2208:
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2205: END IF;
2206: pa_debug.reset_err_stack;
2207: RAISE;
2208:
2209: END Is_Create_CI_Version_Allowed;
2210:
2219:
2220: BEGIN
2221: x_return_status := FND_API.G_RET_STS_SUCCESS;
2222:
2223: IF P_PA_DEBUG_MODE = 'Y' THEN
2224: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2225: END IF;
2226:
2227: IF p_agreement_number IS NULL THEN
2220: BEGIN
2221: x_return_status := FND_API.G_RET_STS_SUCCESS;
2222:
2223: IF P_PA_DEBUG_MODE = 'Y' THEN
2224: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2225: END IF;
2226:
2227: IF p_agreement_number IS NULL THEN
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2227: IF p_agreement_number IS NULL THEN
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2229: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2230: p_msg_name => 'PA_FP_AGR_NUM_REQ' );
2231: pa_debug.reset_err_stack;
2232: RETURN;
2233: END IF;
2234:
2235: SELECT a.Agreement_Id INTO x_agreement_id FROM
2240: a.agreement_id = spf.agreement_id AND
2241: spf.project_id = p_project_id AND
2242: NVL(spf.total_unbaselined_amount,0) > 0 AND
2243: ROWNUM < 2;
2244: pa_debug.reset_err_stack;
2245: RETURN;
2246: EXCEPTION
2247: WHEN NO_DATA_FOUND THEN
2248: x_return_status := FND_API.G_RET_STS_ERROR;
2249: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2250: p_msg_name => 'PA_FP_AGR_INVALID',
2251: p_token1 => 'AGREEMENT_NUMBER',
2252: p_value1 => p_agreement_number);
2253: pa_debug.reset_err_stack;
2254: RETURN;
2255:
2256: WHEN OTHERS THEN
2257: FND_MSG_PUB.Add_Exc_Msg(
2255:
2256: WHEN OTHERS THEN
2257: FND_MSG_PUB.Add_Exc_Msg(
2258: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2259: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2263: pa_debug.reset_err_stack;
2256: WHEN OTHERS THEN
2257: FND_MSG_PUB.Add_Exc_Msg(
2258: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2259: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2263: pa_debug.reset_err_stack;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: FND_MSG_PUB.Add_Exc_Msg(
2258: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2259: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2263: pa_debug.reset_err_stack;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: RAISE;
2259: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2263: pa_debug.reset_err_stack;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: RAISE;
2266: END IsValidAgreement;
2267:
2344: -- Local Variable Declaration
2345: l_debug_mode VARCHAR2(30);
2346:
2347: BEGIN
2348: IF P_PA_DEBUG_MODE = 'Y' THEN
2349: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2350: END IF;
2351: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2352: l_debug_mode := NVL(l_debug_mode, 'Y');
2345: l_debug_mode VARCHAR2(30);
2346:
2347: BEGIN
2348: IF P_PA_DEBUG_MODE = 'Y' THEN
2349: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2350: END IF;
2351: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2352: l_debug_mode := NVL(l_debug_mode, 'Y');
2353: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2347: BEGIN
2348: IF P_PA_DEBUG_MODE = 'Y' THEN
2349: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2350: END IF;
2351: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2352: l_debug_mode := NVL(l_debug_mode, 'Y');
2353: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355: x_msg_count := 0;
2349: pa_debug.init_err_stack('PAFPCIUB.GET_BUDGET_VERSION_INFO');
2350: END IF;
2351: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2352: l_debug_mode := NVL(l_debug_mode, 'Y');
2353: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355: x_msg_count := 0;
2356: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 1');
2357: --Get the column values for this budget version id and project id combination
2408: WHEN OTHERS THEN
2409: FND_MSG_PUB.add_exc_msg
2410: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2411: 'GET_BUDGET_VERSION_INFO'
2412: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2413: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2410: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2411: 'GET_BUDGET_VERSION_INFO'
2412: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2413: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2417: END IF;
2418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2411: 'GET_BUDGET_VERSION_INFO'
2412: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2413: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2417: END IF;
2418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2419: PA_DEBUG.Reset_Curr_Function;
2412: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2413: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2417: END IF;
2418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2419: PA_DEBUG.Reset_Curr_Function;
2420: RAISE;
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2417: END IF;
2418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2419: PA_DEBUG.Reset_Curr_Function;
2420: RAISE;
2421: END GET_BUDGET_VERSION_INFO;
2422: -- end of GET_BUDGET_VERSION_INFO
2423:
2662: -- Local Variable Declaration
2663: l_debug_mode VARCHAR2(30);
2664:
2665: BEGIN
2666: IF P_PA_DEBUG_MODE = 'Y' THEN
2667: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2668: END IF;
2669: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2670: l_debug_mode := NVL(l_debug_mode, 'Y');
2663: l_debug_mode VARCHAR2(30);
2664:
2665: BEGIN
2666: IF P_PA_DEBUG_MODE = 'Y' THEN
2667: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2668: END IF;
2669: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2670: l_debug_mode := NVL(l_debug_mode, 'Y');
2671: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2665: BEGIN
2666: IF P_PA_DEBUG_MODE = 'Y' THEN
2667: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2668: END IF;
2669: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2670: l_debug_mode := NVL(l_debug_mode, 'Y');
2671: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2672: x_return_status := FND_API.G_RET_STS_SUCCESS;
2673: x_msg_count := 0;
2667: pa_debug.init_err_stack('PAFPCIUB.CHECK_PLAN_VERSION_NAME_OR_ID');
2668: END IF;
2669: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2670: l_debug_mode := NVL(l_debug_mode, 'Y');
2671: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2672: x_return_status := FND_API.G_RET_STS_SUCCESS;
2673: x_msg_count := 0;
2674: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 1');
2675: --Get the number of versions for this budget version name
2703: WHEN OTHERS THEN
2704: FND_MSG_PUB.add_exc_msg
2705: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2706: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2707: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2708: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2705: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2706: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2707: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2708: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2712: END IF;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2706: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2707: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2708: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2712: END IF;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: PA_DEBUG.Reset_Curr_Function;
2707: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2708: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2712: END IF;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: PA_DEBUG.Reset_Curr_Function;
2715: RAISE;
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2712: END IF;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: PA_DEBUG.Reset_Curr_Function;
2715: RAISE;
2716: END CHECK_PLAN_VERSION_NAME_OR_ID;
2717: -- end of CHECK_PLAN_VERSION_NAME_OR_ID
2718:
2764: l_msg_index_out NUMBER := NULL;
2765:
2766:
2767: BEGIN
2768: IF P_PA_DEBUG_MODE = 'Y' THEN
2769: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2770: END IF;
2771: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2772: l_debug_mode := NVL(l_debug_mode, 'Y');
2765:
2766:
2767: BEGIN
2768: IF P_PA_DEBUG_MODE = 'Y' THEN
2769: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2770: END IF;
2771: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2772: l_debug_mode := NVL(l_debug_mode, 'Y');
2773: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2767: BEGIN
2768: IF P_PA_DEBUG_MODE = 'Y' THEN
2769: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2770: END IF;
2771: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2772: l_debug_mode := NVL(l_debug_mode, 'Y');
2773: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2774: x_return_status := FND_API.G_RET_STS_SUCCESS;
2775: x_msg_count := 0;
2769: pa_debug.init_err_stack('PAFPCIUB.FP_CI_CHECK_COPY_POSSIBLE');
2770: END IF;
2771: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2772: l_debug_mode := NVL(l_debug_mode, 'Y');
2773: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2774: x_return_status := FND_API.G_RET_STS_SUCCESS;
2775: x_msg_count := 0;
2776: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 1');
2777:
3072: ELSE
3073: x_msg_count := l_msg_count;
3074: END IF;
3075: x_return_status := FND_API.G_RET_STS_ERROR;
3076: pa_debug.reset_err_stack;
3077: RAISE;
3078: WHEN OTHERS THEN
3079: FND_MSG_PUB.add_exc_msg
3080: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3078: WHEN OTHERS THEN
3079: FND_MSG_PUB.add_exc_msg
3080: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3081: 'FP_CI_CHECK_COPY_POSSIBLE'
3082: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3083: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3080: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3081: 'FP_CI_CHECK_COPY_POSSIBLE'
3082: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3083: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3081: 'FP_CI_CHECK_COPY_POSSIBLE'
3082: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3083: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: PA_DEBUG.Reset_Curr_Function;
3082: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3083: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: PA_DEBUG.Reset_Curr_Function;
3090:
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: PA_DEBUG.Reset_Curr_Function;
3090:
3091: END FP_CI_CHECK_COPY_POSSIBLE;
3092:
3093:
3111: l_debug_mode VARCHAR2(30);
3112: l_no_of_bv_versions NUMBER := 0;
3113:
3114: BEGIN
3115: IF P_PA_DEBUG_MODE = 'Y' THEN
3116: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3117: END IF;
3118: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3119: l_debug_mode := NVL(l_debug_mode, 'Y');
3112: l_no_of_bv_versions NUMBER := 0;
3113:
3114: BEGIN
3115: IF P_PA_DEBUG_MODE = 'Y' THEN
3116: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3117: END IF;
3118: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3119: l_debug_mode := NVL(l_debug_mode, 'Y');
3120: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3114: BEGIN
3115: IF P_PA_DEBUG_MODE = 'Y' THEN
3116: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3117: END IF;
3118: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3119: l_debug_mode := NVL(l_debug_mode, 'Y');
3120: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3121: x_return_status := FND_API.G_RET_STS_SUCCESS;
3122: x_msg_count := 0;
3116: pa_debug.init_err_stack('PAFPCIUB.CHECK_FP_PLAN_VERSION_EXISTS');
3117: END IF;
3118: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3119: l_debug_mode := NVL(l_debug_mode, 'Y');
3120: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3121: x_return_status := FND_API.G_RET_STS_SUCCESS;
3122: x_msg_count := 0;
3123:
3124: x_call_fp_api_flag := 'N';
3145: WHEN OTHERS THEN
3146: FND_MSG_PUB.add_exc_msg
3147: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3148: 'CHECK_FP_PLAN_VERSION_EXISTS'
3149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3150: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3147: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3148: 'CHECK_FP_PLAN_VERSION_EXISTS'
3149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3150: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3154: END IF;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3148: 'CHECK_FP_PLAN_VERSION_EXISTS'
3149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3150: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3154: END IF;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: PA_DEBUG.Reset_Curr_Function;
3149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3150: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3154: END IF;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: PA_DEBUG.Reset_Curr_Function;
3157: RAISE;
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3154: END IF;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: PA_DEBUG.Reset_Curr_Function;
3157: RAISE;
3158: END CHECK_FP_PLAN_VERSION_EXISTS;
3159: -- end of CHECK_FP_PLAN_VERSION_EXISTS
3160:
3205:
3206: BEGIN
3207: x_msg_count := 0;
3208: x_return_status := FND_API.G_RET_STS_SUCCESS;
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3211: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3212: END IF;
3213:
3206: BEGIN
3207: x_msg_count := 0;
3208: x_return_status := FND_API.G_RET_STS_SUCCESS;
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3211: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3212: END IF;
3213:
3214: /* Get the details of the CI Budget Versions. */
3207: x_msg_count := 0;
3208: x_return_status := FND_API.G_RET_STS_SUCCESS;
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3211: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3212: END IF;
3213:
3214: /* Get the details of the CI Budget Versions. */
3215: OPEN cur_ci_version_dtl;
3221:
3222: IF nvl(l_ci_version_id_tbl.last,0) < 1 THEN
3223: /* If there are no budget versions for the CI, throw an error to the user. */
3224:
3225: IF P_PA_DEBUG_MODE = 'Y' THEN
3226: pa_debug.g_err_stage := 'No Budget Version for the CI';
3227: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3222: IF nvl(l_ci_version_id_tbl.last,0) < 1 THEN
3223: /* If there are no budget versions for the CI, throw an error to the user. */
3224:
3225: IF P_PA_DEBUG_MODE = 'Y' THEN
3226: pa_debug.g_err_stage := 'No Budget Version for the CI';
3227: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3223: /* If there are no budget versions for the CI, throw an error to the user. */
3224:
3225: IF P_PA_DEBUG_MODE = 'Y' THEN
3226: pa_debug.g_err_stage := 'No Budget Version for the CI';
3227: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3231: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3224:
3225: IF P_PA_DEBUG_MODE = 'Y' THEN
3226: pa_debug.g_err_stage := 'No Budget Version for the CI';
3227: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3231: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3235:
3236: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3237: LOOP
3238:
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3241: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3242: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3243: END IF;
3236: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3237: LOOP
3238:
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3241: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3242: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3243: END IF;
3244:
3237: LOOP
3238:
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3241: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3242: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3243: END IF;
3244:
3245: -- Bug 3809665 Check if change order versions have any budget lines with
3238:
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3241: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3242: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3243: END IF;
3244:
3245: -- Bug 3809665 Check if change order versions have any budget lines with
3246: -- rejection code
3265: ,x_msg_count => l_msg_count
3266: ,x_msg_data => l_msg_data);
3267:
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3266: ,x_msg_data => l_msg_data);
3267:
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3274: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3267:
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3274: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3275: END IF;
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3274: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3275: END IF;
3276:
3276:
3277: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3278: current working apporved budget plan version. */
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3282: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3283: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3284: END IF;
3277: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3278: current working apporved budget plan version. */
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3282: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3283: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3284: END IF;
3285:
3278: current working apporved budget plan version. */
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3282: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3283: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3284: END IF;
3285:
3286: --Added by Xin Liu. For enhancement.
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3282: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3283: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3284: END IF;
3285:
3286: --Added by Xin Liu. For enhancement.
3287:
3310: END LOOP;
3311:
3312: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3313:
3314: IF p_pa_debug_mode = 'Y' THEN
3315: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3316: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3317: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3318: pa_debug.reset_err_stack;
3311:
3312: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3313:
3314: IF p_pa_debug_mode = 'Y' THEN
3315: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3316: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3317: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3318: pa_debug.reset_err_stack;
3319: END IF;
3312: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3313:
3314: IF p_pa_debug_mode = 'Y' THEN
3315: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3316: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3317: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3318: pa_debug.reset_err_stack;
3319: END IF;
3320:
3314: IF p_pa_debug_mode = 'Y' THEN
3315: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3316: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3317: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3318: pa_debug.reset_err_stack;
3319: END IF;
3320:
3321: EXCEPTION
3322: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3334: x_msg_count := l_msg_count;
3335: ELSE
3336: x_msg_count := l_msg_count;
3337: END IF;
3338: IF p_pa_debug_mode = 'Y' THEN
3339: pa_debug.reset_err_stack;
3340: END IF;
3341: /* #2723909: Returning to the calling procedure instead of raising it,
3342: so that the calling procedure checks for the return status of this procedure
3335: ELSE
3336: x_msg_count := l_msg_count;
3337: END IF;
3338: IF p_pa_debug_mode = 'Y' THEN
3339: pa_debug.reset_err_stack;
3340: END IF;
3341: /* #2723909: Returning to the calling procedure instead of raising it,
3342: so that the calling procedure checks for the return status of this procedure
3343: and handles it appropriately. */
3350: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3351: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3352: ,p_error_text => x_msg_data);
3353:
3354: IF p_pa_debug_mode = 'Y' THEN
3355: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3356: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3357: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3358: pa_debug.reset_err_stack;
3351: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3352: ,p_error_text => x_msg_data);
3353:
3354: IF p_pa_debug_mode = 'Y' THEN
3355: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3356: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3357: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3358: pa_debug.reset_err_stack;
3359: END IF;
3352: ,p_error_text => x_msg_data);
3353:
3354: IF p_pa_debug_mode = 'Y' THEN
3355: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3356: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3357: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3358: pa_debug.reset_err_stack;
3359: END IF;
3360: RAISE;
3354: IF p_pa_debug_mode = 'Y' THEN
3355: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3356: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3357: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3358: pa_debug.reset_err_stack;
3359: END IF;
3360: RAISE;
3361: END Fp_Ci_Impact_Submit_Chk;
3362:
3409: BEGIN
3410:
3411: x_msg_count := 0;
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3414: IF l_debug_mode = 'Y' THEN
3415: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3416: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3417: END IF;
3411: x_msg_count := 0;
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3414: IF l_debug_mode = 'Y' THEN
3415: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3416: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3417: END IF;
3418:
3419: -- Check for business rules violations
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3414: IF l_debug_mode = 'Y' THEN
3415: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3416: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3417: END IF;
3418:
3419: -- Check for business rules violations
3420:
3418:
3419: -- Check for business rules violations
3420:
3421: IF l_debug_mode = 'Y' THEN
3422: pa_debug.g_err_stage:= 'Validating input parameters';
3423: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3424: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3425: END IF;
3426:
3419: -- Check for business rules violations
3420:
3421: IF l_debug_mode = 'Y' THEN
3422: pa_debug.g_err_stage:= 'Validating input parameters';
3423: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3424: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3425: END IF;
3426:
3427: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3427: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3428: OR (p_target_version_id is NULL)
3429: THEN
3430: IF l_debug_mode = 'Y' THEN
3431: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3428: OR (p_target_version_id is NULL)
3429: THEN
3430: IF l_debug_mode = 'Y' THEN
3431: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3430: IF l_debug_mode = 'Y' THEN
3431: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3431: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3442: END IF;
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3442: END IF;
3443: PA_UTILS.ADD_MESSAGE
3444: (p_app_short_name => 'PA',
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3442: END IF;
3443: PA_UTILS.ADD_MESSAGE
3444: (p_app_short_name => 'PA',
3445: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3499: END IF; --end if for approved revenue and cost flag check
3500:
3501:
3502: IF l_debug_mode = 'Y' THEN
3503: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3504: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3501:
3502: IF l_debug_mode = 'Y' THEN
3503: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3504: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3503: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3504: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3510: pa_debug.reset_err_stack;
3511:
3504: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3510: pa_debug.reset_err_stack;
3511:
3512: END IF;
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3510: pa_debug.reset_err_stack;
3511:
3512: END IF;
3513:
3514: EXCEPTION
3531: ELSE
3532: x_msg_count := l_msg_count;
3533: END IF;
3534: IF l_debug_mode = 'Y' THEN
3535: pa_debug.reset_err_stack;
3536: END IF;
3537: RAISE;
3538:
3539: WHEN others THEN
3547: ,p_procedure_name => 'FP_CI_VALIDATE_UPDATE_IMPACT'
3548: ,p_error_text => x_msg_data);
3549:
3550: IF l_debug_mode = 'Y' THEN
3551: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3552: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3553: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3554: pa_debug.reset_err_stack;
3555:
3548: ,p_error_text => x_msg_data);
3549:
3550: IF l_debug_mode = 'Y' THEN
3551: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3552: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3553: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3554: pa_debug.reset_err_stack;
3555:
3556: END IF;
3550: IF l_debug_mode = 'Y' THEN
3551: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3552: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3553: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3554: pa_debug.reset_err_stack;
3555:
3556: END IF;
3557: RAISE;
3558:
4015: l_error_msg_header_flag := 'N';
4016: x_tsk_plan_level_mismatch := 'N';
4017: l_index := 1;
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4021: END IF;
4022:
4023: IF p_pa_debug_mode = 'Y' THEN
4016: x_tsk_plan_level_mismatch := 'N';
4017: l_index := 1;
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4021: END IF;
4022:
4023: IF p_pa_debug_mode = 'Y' THEN
4024: PA_DEBUG.write_log (x_module =>
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4021: END IF;
4022:
4023: IF p_pa_debug_mode = 'Y' THEN
4024: PA_DEBUG.write_log (x_module =>
4025: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4026: ,x_msg => 'selecting source version fp option details'
4027: ,x_log_level => 5);
4020: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4021: END IF;
4022:
4023: IF p_pa_debug_mode = 'Y' THEN
4024: PA_DEBUG.write_log (x_module =>
4025: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4026: ,x_msg => 'selecting source version fp option details'
4027: ,x_log_level => 5);
4028: END IF;
4038: bv.fin_plan_type_id = o.fin_plan_type_id and
4039: o.project_id = p_project_id and
4040: o.fin_plan_version_id = bv.budget_version_id;
4041:
4042: IF p_pa_debug_mode = 'Y' THEN
4043: PA_DEBUG.write_log (x_module =>
4044: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4045: ,x_msg => 'selecting target version fp option details'
4046: ,x_log_level => 5);
4039: o.project_id = p_project_id and
4040: o.fin_plan_version_id = bv.budget_version_id;
4041:
4042: IF p_pa_debug_mode = 'Y' THEN
4043: PA_DEBUG.write_log (x_module =>
4044: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4045: ,x_msg => 'selecting target version fp option details'
4046: ,x_log_level => 5);
4047: END IF;
4065: l_source_task_id := tsk_rec.task_id;
4066: l_source_plan_level := tsk_rec.top_task_planning_level;
4067:
4068: begin
4069: IF p_pa_debug_mode = 'Y' THEN
4070: PA_DEBUG.write_log (x_module =>
4071: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4072: ,x_msg => 'checking for the same task is planned in the target'
4073: ,x_log_level => 5);
4066: l_source_plan_level := tsk_rec.top_task_planning_level;
4067:
4068: begin
4069: IF p_pa_debug_mode = 'Y' THEN
4070: PA_DEBUG.write_log (x_module =>
4071: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4072: ,x_msg => 'checking for the same task is planned in the target'
4073: ,x_log_level => 5);
4074: END IF;
4087: when no_data_found then
4088: /* checking for whether the top task is planned in the
4089: target */
4090: begin
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 => 'checking for whether the top task is planned in the target'
4095: ,x_log_level => 5);
4088: /* checking for whether the top task is planned in the
4089: target */
4090: begin
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 => 'checking for whether the top task is planned in the target'
4095: ,x_log_level => 5);
4096: END IF;
4110: if l_source_plan_level = 'TOP' then
4111: /* checking for whether the top task in the source version
4112: is planned at the lowest task level in target version */
4113: begin
4114: IF p_pa_debug_mode = 'Y' THEN
4115: PA_DEBUG.write_log (x_module =>
4116: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4117: ,x_msg => 'checking for source - top task and target - lowest task'
4118: ,x_log_level => 5);
4111: /* checking for whether the top task in the source version
4112: is planned at the lowest task level in target version */
4113: begin
4114: IF p_pa_debug_mode = 'Y' THEN
4115: PA_DEBUG.write_log (x_module =>
4116: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4117: ,x_msg => 'checking for source - top task and target - lowest task'
4118: ,x_log_level => 5);
4119: END IF;
4143: end;
4144:
4145: if l_source_plan_level = 'TOP' and
4146: l_target_plan_level = 'LOWEST' then
4147: IF p_pa_debug_mode = 'Y' THEN
4148: PA_DEBUG.write_log (x_module =>
4149: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4150: ,x_msg => 'getting the task info from pa_tasks table'
4151: ,x_log_level => 5);
4144:
4145: if l_source_plan_level = 'TOP' and
4146: l_target_plan_level = 'LOWEST' then
4147: IF p_pa_debug_mode = 'Y' THEN
4148: PA_DEBUG.write_log (x_module =>
4149: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4150: ,x_msg => 'getting the task info from pa_tasks table'
4151: ,x_log_level => 5);
4152: END IF;
4193: Lowest Lowest
4194: Top Top
4195: Lowest Top
4196: */
4197: IF p_pa_debug_mode = 'Y' THEN
4198: PA_DEBUG.write_log (x_module =>
4199: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4200: ,x_msg => 'populating the pl sql table for source and target task'
4201: ,x_log_level => 5);
4194: Top Top
4195: Lowest Top
4196: */
4197: IF p_pa_debug_mode = 'Y' THEN
4198: PA_DEBUG.write_log (x_module =>
4199: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4200: ,x_msg => 'populating the pl sql table for source and target task'
4201: ,x_log_level => 5);
4202: END IF;
4216: l_index := l_index + 1;
4217: end if;
4218: end if; /* end if for top and lowest check */
4219: END LOOP;
4220: IF p_pa_debug_mode = 'Y' THEN
4221: PA_DEBUG.Reset_Err_Stack;
4222: END IF;
4223: EXCEPTION
4224: WHEN OTHERS THEN
4217: end if;
4218: end if; /* end if for top and lowest check */
4219: END LOOP;
4220: IF p_pa_debug_mode = 'Y' THEN
4221: PA_DEBUG.Reset_Err_Stack;
4222: END IF;
4223: EXCEPTION
4224: WHEN OTHERS THEN
4225: IF p_pa_debug_mode = 'Y' THEN
4221: PA_DEBUG.Reset_Err_Stack;
4222: END IF;
4223: EXCEPTION
4224: WHEN OTHERS THEN
4225: IF p_pa_debug_mode = 'Y' THEN
4226: PA_DEBUG.Reset_Err_Stack;
4227: END IF;
4228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4222: END IF;
4223: EXCEPTION
4224: WHEN OTHERS THEN
4225: IF p_pa_debug_mode = 'Y' THEN
4226: PA_DEBUG.Reset_Err_Stack;
4227: END IF;
4228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4230: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4249: l_module_name VARCHAR2(100) := 'NON_APP_STATUSES_EXIST' ;
4250:
4251: BEGIN
4252:
4253: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4254:
4255: IF l_debug_mode = 'Y' THEN
4256: pa_debug.set_curr_function( p_function => 'NON_APP_STATUSES_EXIST',
4257: p_debug_mode => l_debug_mode );
4252:
4253: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4254:
4255: IF l_debug_mode = 'Y' THEN
4256: pa_debug.set_curr_function( p_function => 'NON_APP_STATUSES_EXIST',
4257: p_debug_mode => l_debug_mode );
4258: END IF;
4259:
4260: BEGIN
4277: l_return := 'N';
4278: END;
4279:
4280: IF l_debug_mode = 'Y' THEN
4281: pa_debug.reset_curr_function;
4282: END IF;
4283:
4284: RETURN l_return;
4285: END NON_APP_STATUSES_EXIST;
4300:
4301: BEGIN
4302:
4303: IF l_debug_mode = 'Y' THEN
4304: pa_debug.set_curr_function( p_function => 'GET_CI_ALLOWED_IMPACTS',
4305: p_debug_mode => l_debug_mode );
4306: END IF;
4307:
4308: BEGIN
4314: WHERE ci_type_id = p_ci_type_id;
4315: EXCEPTION
4316: WHEN NO_DATA_FOUND THEN
4317: IF l_debug_mode = 'Y' THEN
4318: pa_debug.reset_curr_function;
4319: END IF;
4320: END;
4321: IF (l_cost_impact_flag = 'Y' AND l_rev_impact_flag = 'Y') THEN
4322:
4320: END;
4321: IF (l_cost_impact_flag = 'Y' AND l_rev_impact_flag = 'Y') THEN
4322:
4323: IF l_debug_mode = 'Y' THEN
4324: pa_debug.reset_curr_function;
4325: END IF ;
4326:
4327: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
4328:
4328:
4329: ELSIF l_cost_impact_flag = 'Y' THEN
4330:
4331: IF l_debug_mode = 'Y' THEN
4332: pa_debug.reset_curr_function;
4333: END IF ;
4334:
4335: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
4336:
4336:
4337: ELSIF l_rev_impact_flag = 'Y' THEN
4338:
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.reset_curr_function;
4341: END IF ;
4342:
4343: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
4344:
4344:
4345: ELSE
4346:
4347: IF l_debug_mode = 'Y' THEN
4348: pa_debug.reset_curr_function;
4349: END IF ;
4350:
4351: RETURN NULL;
4352: END IF;
4894:
4895:
4896: BEGIN
4897:
4898: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4899: x_msg_count := 0;
4900: x_return_status := FND_API.G_RET_STS_SUCCESS;
4901: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4902: p_debug_mode => l_debug_mode );
4897:
4898: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4899: x_msg_count := 0;
4900: x_return_status := FND_API.G_RET_STS_SUCCESS;
4901: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4902: p_debug_mode => l_debug_mode );
4903:
4904:
4905: -----------------------------------------------------------------------------
4906: -- Validate Input Params, p_project_id and (p_cost_version_id and p_revenue_version_id
4907: -- both) cannot be null or =-99
4908: -----------------------------------------------------------------------------
4909: IF l_debug_mode = 'Y' THEN
4910: pa_debug.g_err_stage:='Validating input parameters - project id : ' || p_project_id;
4911: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4912: END IF;
4913:
4914: IF (p_project_id IS NULL) THEN
4907: -- both) cannot be null or =-99
4908: -----------------------------------------------------------------------------
4909: IF l_debug_mode = 'Y' THEN
4910: pa_debug.g_err_stage:='Validating input parameters - project id : ' || p_project_id;
4911: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4912: END IF;
4913:
4914: IF (p_project_id IS NULL) THEN
4915: IF l_debug_mode = 'Y' THEN
4912: END IF;
4913:
4914: IF (p_project_id IS NULL) THEN
4915: IF l_debug_mode = 'Y' THEN
4916: pa_debug.g_err_stage:='p_project_id is null';
4917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4918: END IF;
4919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4920: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4913:
4914: IF (p_project_id IS NULL) THEN
4915: IF l_debug_mode = 'Y' THEN
4916: pa_debug.g_err_stage:='p_project_id is null';
4917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4918: END IF;
4919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4920: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4922: END IF;
4923:
4924: IF l_debug_mode = 'Y' THEN
4925: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4927:
4928: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4929: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4922: END IF;
4923:
4924: IF l_debug_mode = 'Y' THEN
4925: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4927:
4928: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4929: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4930: END IF;
4924: IF l_debug_mode = 'Y' THEN
4925: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4927:
4928: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4929: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4930: END IF;
4931:
4932: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4925: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4927:
4928: pa_debug.g_err_stage:='Validating input parameters - p_revenue_version_id : '||p_revenue_version_id;
4929: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4930: END IF;
4931:
4932: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4933: IF l_debug_mode = 'Y' THEN
4930: END IF;
4931:
4932: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4933: IF l_debug_mode = 'Y' THEN
4934: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4935: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4936: END IF;
4937: IF l_debug_mode = 'Y' THEN
4938: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4931:
4932: IF ((nvl(p_cost_version_id,-99) = -99) AND (nvl(p_revenue_version_id,-99) = -99)) THEN
4933: IF l_debug_mode = 'Y' THEN
4934: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4935: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4936: END IF;
4937: IF l_debug_mode = 'Y' THEN
4938: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4939: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4934: pa_debug.g_err_stage:='Validating p_cost_version_id :'||p_cost_version_id;
4935: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4936: END IF;
4937: IF l_debug_mode = 'Y' THEN
4938: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4939: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4940: END IF;
4941: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4942: END IF;
4935: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4936: END IF;
4937: IF l_debug_mode = 'Y' THEN
4938: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4939: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4940: END IF;
4941: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4942: END IF;
4943:
4945: -------------------------------------------
4946: -- Initialising all tables to empty tables.
4947: -------------------------------------------
4948: IF l_debug_mode = 'Y' THEN
4949: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
4950: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4951: END IF;
4952: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
4953: x_url_tbl := SYSTEM.PA_VARCHAR2_240_TBL_TYPE();
4946: -- Initialising all tables to empty tables.
4947: -------------------------------------------
4948: IF l_debug_mode = 'Y' THEN
4949: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
4950: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4951: END IF;
4952: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
4953: x_url_tbl := SYSTEM.PA_VARCHAR2_240_TBL_TYPE();
4954: x_reference_tbl := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
4962: ----------------------------------------------------
4963: -- Derive Value of x_context
4964: ----------------------------------------------------
4965: IF l_debug_mode = 'Y' THEN
4966: pa_debug.g_err_stage:='Derive Value of x_context';
4967: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4968: END IF;
4969:
4970: IF ((nvl(p_cost_version_id,-99) <> -99) AND (nvl(p_revenue_version_id,-99) <> -99)) THEN
4963: -- Derive Value of x_context
4964: ----------------------------------------------------
4965: IF l_debug_mode = 'Y' THEN
4966: pa_debug.g_err_stage:='Derive Value of x_context';
4967: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4968: END IF;
4969:
4970: IF ((nvl(p_cost_version_id,-99) <> -99) AND (nvl(p_revenue_version_id,-99) <> -99)) THEN
4971: l_context := 'ALL';
4980: --------------------------------------------------
4981: -- Fetching the project currency code
4982: --------------------------------------------------
4983: IF l_debug_mode = 'Y' THEN
4984: pa_debug.g_err_stage:='Derived x_context : '||x_context;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986:
4987: pa_debug.g_err_stage:='Fetching the project currency code';
4988: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4981: -- Fetching the project currency code
4982: --------------------------------------------------
4983: IF l_debug_mode = 'Y' THEN
4984: pa_debug.g_err_stage:='Derived x_context : '||x_context;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986:
4987: pa_debug.g_err_stage:='Fetching the project currency code';
4988: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4989: END IF;
4983: IF l_debug_mode = 'Y' THEN
4984: pa_debug.g_err_stage:='Derived x_context : '||x_context;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986:
4987: pa_debug.g_err_stage:='Fetching the project currency code';
4988: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4989: END IF;
4990:
4991: BEGIN
4984: pa_debug.g_err_stage:='Derived x_context : '||x_context;
4985: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4986:
4987: pa_debug.g_err_stage:='Fetching the project currency code';
4988: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4989: END IF;
4990:
4991: BEGIN
4992: SELECT project_currency_code
4994: FROM Pa_Projects_All
4995: WHERE project_Id = p_project_id;
4996:
4997: IF l_debug_mode = 'Y' THEN
4998: pa_debug.g_err_stage:='x_project_currency_code = ' || x_project_currency_code;
4999: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5000: END IF;
5001:
5002: EXCEPTION
4995: WHERE project_Id = p_project_id;
4996:
4997: IF l_debug_mode = 'Y' THEN
4998: pa_debug.g_err_stage:='x_project_currency_code = ' || x_project_currency_code;
4999: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5000: END IF;
5001:
5002: EXCEPTION
5003: WHEN NO_DATA_FOUND THEN
5001:
5002: EXCEPTION
5003: WHEN NO_DATA_FOUND THEN
5004: IF l_debug_mode = 'Y' THEN
5005: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5006: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5007: END IF;
5008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5009: END;
5002: EXCEPTION
5003: WHEN NO_DATA_FOUND THEN
5004: IF l_debug_mode = 'Y' THEN
5005: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5006: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5007: END IF;
5008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5009: END;
5010:
5011: -----------------------------------------
5012: -- Fetching the margin dervied from code.
5013: -----------------------------------------
5014: IF l_debug_mode = 'Y' THEN
5015: pa_debug.g_err_stage:='Fetching the margin dervied from code';
5016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5017: END IF;
5018:
5019: BEGIN
5012: -- Fetching the margin dervied from code.
5013: -----------------------------------------
5014: IF l_debug_mode = 'Y' THEN
5015: pa_debug.g_err_stage:='Fetching the margin dervied from code';
5016: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5017: END IF;
5018:
5019: BEGIN
5020: SELECT nvl(MARGIN_DERIVED_FROM_CODE,'B')
5024: AND fin_plan_option_level_code = 'PLAN_TYPE'
5025: AND approved_cost_plan_type_flag = 'Y';
5026:
5027: IF l_debug_mode = 'Y' THEN
5028: pa_debug.g_err_stage:='margin dervied from code :'||l_margin_derived_from_code;
5029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5030: END IF;
5031:
5032: EXCEPTION
5025: AND approved_cost_plan_type_flag = 'Y';
5026:
5027: IF l_debug_mode = 'Y' THEN
5028: pa_debug.g_err_stage:='margin dervied from code :'||l_margin_derived_from_code;
5029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5030: END IF;
5031:
5032: EXCEPTION
5033: WHEN NO_DATA_FOUND THEN
5031:
5032: EXCEPTION
5033: WHEN NO_DATA_FOUND THEN
5034: IF l_debug_mode = 'Y' THEN
5035: pa_debug.g_err_stage:='NO_DATA_FOUND for margin dervied from code,default to burdened cost';
5036: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5037: END IF;
5038: l_margin_derived_from_code := 'B';
5039: END;
5032: EXCEPTION
5033: WHEN NO_DATA_FOUND THEN
5034: IF l_debug_mode = 'Y' THEN
5035: pa_debug.g_err_stage:='NO_DATA_FOUND for margin dervied from code,default to burdened cost';
5036: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5037: END IF;
5038: l_margin_derived_from_code := 'B';
5039: END;
5040:
5042: ----------------------------------------------------
5043: -- Fetch Lookup_code ,summary and reference details.
5044: ----------------------------------------------------
5045: IF l_debug_mode = 'Y' THEN
5046: pa_debug.g_err_stage:='Fetching lookup data';
5047: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5048: END IF;
5049:
5050: OPEN c_lookup_summary;
5043: -- Fetch Lookup_code ,summary and reference details.
5044: ----------------------------------------------------
5045: IF l_debug_mode = 'Y' THEN
5046: pa_debug.g_err_stage:='Fetching lookup data';
5047: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5048: END IF;
5049:
5050: OPEN c_lookup_summary;
5051: FETCH c_lookup_summary BULK COLLECT INTO x_summary_tbl,l_lookup_code_tbl;
5062: ----------------------------------------------------------------
5063: -- Bug 3744910 -- This is being passed to get_pc_revenue_partial
5064: -- in c_change_documents_status cursor
5065: IF l_debug_mode = 'Y' THEN
5066: pa_debug.g_err_stage:='fetching the approved revenue current working version';
5067: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5068: END IF;
5069: BEGIN
5070: SELECT A.BUDGET_VERSION_ID
5063: -- Bug 3744910 -- This is being passed to get_pc_revenue_partial
5064: -- in c_change_documents_status cursor
5065: IF l_debug_mode = 'Y' THEN
5066: pa_debug.g_err_stage:='fetching the approved revenue current working version';
5067: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5068: END IF;
5069: BEGIN
5070: SELECT A.BUDGET_VERSION_ID
5071: INTO l_appr_rev_cw_version_id
5077: AND A.CI_ID IS NULL;
5078: -- AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5079:
5080: IF l_debug_mode = 'Y' THEN
5081: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5083: END IF;
5084:
5085:
5078: -- AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5079:
5080: IF l_debug_mode = 'Y' THEN
5081: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5083: END IF;
5084:
5085:
5086: EXCEPTION
5092: -- Get Approved Fin plan Type Details for the project
5093: -----------------------------------------------------
5094:
5095: IF l_debug_mode = 'Y' THEN
5096: pa_debug.g_err_stage:='Get Approved Fin plan Type Details for the project';
5097: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5098: END IF;
5099:
5100: OPEN c_get_approved_details(p_project_id);
5093: -----------------------------------------------------
5094:
5095: IF l_debug_mode = 'Y' THEN
5096: pa_debug.g_err_stage:='Get Approved Fin plan Type Details for the project';
5097: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5098: END IF;
5099:
5100: OPEN c_get_approved_details(p_project_id);
5101: FETCH c_get_approved_details BULK COLLECT INTO l_fin_plan_type_id_tbl,
5106: CLOSE c_get_approved_details;
5107:
5108: ELSIF nvl(p_calling_mode,'APPROVED') = 'CURRENT' THEN
5109: IF l_debug_mode = 'Y' THEN
5110: pa_debug.g_err_stage:='fetching the revenue current working version of current plan type';
5111: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5112: END IF;
5113:
5114: BEGIN
5107:
5108: ELSIF nvl(p_calling_mode,'APPROVED') = 'CURRENT' THEN
5109: IF l_debug_mode = 'Y' THEN
5110: pa_debug.g_err_stage:='fetching the revenue current working version of current plan type';
5111: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5112: END IF;
5113:
5114: BEGIN
5115: SELECT A.BUDGET_VERSION_ID
5126: AND A.CI_ID IS NULL;
5127: --AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5128:
5129: IF l_debug_mode = 'Y' THEN
5130: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5131: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5132: END IF;
5133:
5134:
5127: --AND A.BUDGET_STATUS_CODE in ('S','W'); -- Bug#3815378
5128:
5129: IF l_debug_mode = 'Y' THEN
5130: pa_debug.g_err_stage:='---l_appr_rev_cw_version_id----'||l_appr_rev_cw_version_id;
5131: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5132: END IF;
5133:
5134:
5135: EXCEPTION
5164: --------------------------------------------------------------------------
5165: -- Insert data as 0 in all pl sql tables.
5166: --------------------------------------------------------------------------
5167: IF l_debug_mode = 'Y' THEN
5168: pa_debug.g_err_stage:='No Approved Plan type in in the system for this project';
5169: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5170: END IF;
5171: l_row_count := x_summary_tbl.COUNT;
5172: x_margin_tbl.extend(l_row_count);
5165: -- Insert data as 0 in all pl sql tables.
5166: --------------------------------------------------------------------------
5167: IF l_debug_mode = 'Y' THEN
5168: pa_debug.g_err_stage:='No Approved Plan type in in the system for this project';
5169: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5170: END IF;
5171: l_row_count := x_summary_tbl.COUNT;
5172: x_margin_tbl.extend(l_row_count);
5173: x_margin_percent_tbl.extend(l_row_count);
5225: END IF;
5226: --CLOSE c_get_approved_details;
5227:
5228: IF l_debug_mode = 'Y' THEN
5229: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5230: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5231:
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5226: --CLOSE c_get_approved_details;
5227:
5228: IF l_debug_mode = 'Y' THEN
5229: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5230: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5231:
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5234:
5228: IF l_debug_mode = 'Y' THEN
5229: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5230: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5231:
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5234:
5235: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5229: pa_debug.g_err_stage:='l_ac_fin_plan_type_id; '||l_ac_fin_plan_type_id;
5230: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5231:
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5234:
5235: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5237: END IF;
5231:
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5234:
5235: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5237: END IF;
5238:
5239: ---------------------------------------------------------
5232: pa_debug.g_err_stage:='l_ar_fin_plan_type_id; '||l_ar_fin_plan_type_id;
5233: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5234:
5235: pa_debug.g_err_stage:='l_report_version_type :'||l_report_version_type;
5236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5237: END IF;
5238:
5239: ---------------------------------------------------------
5240: -- Deriving plan type id for links in plan summary region
5239: ---------------------------------------------------------
5240: -- Deriving plan type id for links in plan summary region
5241: ---------------------------------------------------------
5242: IF l_debug_mode = 'Y' THEN
5243: pa_debug.g_err_stage:='Deriving plan type id for links in plan summary region';
5244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5245: END IF;
5246:
5247: IF l_context = 'ALL' THEN
5240: -- Deriving plan type id for links in plan summary region
5241: ---------------------------------------------------------
5242: IF l_debug_mode = 'Y' THEN
5243: pa_debug.g_err_stage:='Deriving plan type id for links in plan summary region';
5244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5245: END IF;
5246:
5247: IF l_context = 'ALL' THEN
5248: IF l_ac_fin_plan_type_id IS NOT NULL THEN
5271: END IF;
5272:
5273:
5274: IF l_debug_mode = 'Y' THEN
5275: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5277:
5278: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5272:
5273:
5274: IF l_debug_mode = 'Y' THEN
5275: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5277:
5278: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5280: END IF;
5274: IF l_debug_mode = 'Y' THEN
5275: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5277:
5278: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5280: END IF;
5281:
5282:
5275: pa_debug.g_err_stage:='Derived l_fin_plan_type_id --- '||l_fin_plan_type_id;
5276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5277:
5278: pa_debug.g_err_stage:='Derived l_next --- '||l_next;
5279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5280: END IF;
5281:
5282:
5283:
5391: x_url_tbl.extend(1);
5392:
5393: IF l_lookup_code_tbl(i) = 10 THEN
5394: IF l_debug_mode = 'Y' THEN
5395: pa_debug.g_err_stage:='Fetching Data for Original Baselined Version';
5396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5397: END IF;
5398: OPEN c_original_baselined(p_project_id,
5399: l_ac_fin_plan_type_id,
5392:
5393: IF l_lookup_code_tbl(i) = 10 THEN
5394: IF l_debug_mode = 'Y' THEN
5395: pa_debug.g_err_stage:='Fetching Data for Original Baselined Version';
5396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5397: END IF;
5398: OPEN c_original_baselined(p_project_id,
5399: l_ac_fin_plan_type_id,
5400: l_ar_fin_plan_type_id,
5405: l_cost,
5406: l_revenue;
5407: CLOSE c_original_baselined;
5408: IF l_debug_mode = 'Y' THEN
5409: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5410: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5411:
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5406: l_revenue;
5407: CLOSE c_original_baselined;
5408: IF l_debug_mode = 'Y' THEN
5409: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5410: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5411:
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5414:
5408: IF l_debug_mode = 'Y' THEN
5409: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5410: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5411:
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5414:
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5409: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5410: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5411:
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5414:
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5417:
5411:
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5414:
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5417:
5418: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5412: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5413: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5414:
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5417:
5418: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5420: END IF;
5414:
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5417:
5418: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5420: END IF;
5421:
5422: IF l_fin_plan_type_id IS NOT NULL THEN
5415: pa_debug.g_err_stage:='l_cost:'||l_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5417:
5418: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5420: END IF;
5421:
5422: IF l_fin_plan_type_id IS NOT NULL THEN
5423: -- Bug 3883406
5453: END IF;
5454:
5455: ELSIF l_lookup_code_tbl(i) = 20 THEN
5456: IF l_debug_mode = 'Y' THEN
5457: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Prior Baselined Versions';
5458: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5459: END IF;
5460: OPEN c_change_documents_prior(p_project_id,
5461: l_ac_fin_plan_type_id,
5454:
5455: ELSIF l_lookup_code_tbl(i) = 20 THEN
5456: IF l_debug_mode = 'Y' THEN
5457: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Prior Baselined Versions';
5458: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5459: END IF;
5460: OPEN c_change_documents_prior(p_project_id,
5461: l_ac_fin_plan_type_id,
5462: l_ar_fin_plan_type_id,
5467: l_cost,
5468: l_revenue;
5469: CLOSE c_change_documents_prior;
5470: IF l_debug_mode = 'Y' THEN
5471: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5468: l_revenue;
5469: CLOSE c_change_documents_prior;
5470: IF l_debug_mode = 'Y' THEN
5471: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476:
5470: IF l_debug_mode = 'Y' THEN
5471: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476:
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5471: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5473:
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476:
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5479:
5473:
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476:
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5479:
5480: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5474: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5475: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5476:
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5479:
5480: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5482: END IF;
5476:
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5479:
5480: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5482: END IF;
5483:
5484: IF l_fin_plan_type_id IS NOT NULL THEN
5477: pa_debug.g_err_stage:='l_cost:'||l_cost;
5478: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5479:
5480: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5482: END IF;
5483:
5484: IF l_fin_plan_type_id IS NOT NULL THEN
5485: IF (l_next = 'COST' OR l_next = 'ALL') THEN
5503: END IF;
5504:
5505: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for Adjustments from Prior Baseline Versions */
5506: IF l_debug_mode = 'Y' THEN
5507: pa_debug.g_err_stage:='Fetching Data for Current Baselined';
5508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5509: END IF;
5510: OPEN c_current_baselined(p_project_id,
5511: l_ac_fin_plan_type_id,
5504:
5505: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for Adjustments from Prior Baseline Versions */
5506: IF l_debug_mode = 'Y' THEN
5507: pa_debug.g_err_stage:='Fetching Data for Current Baselined';
5508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5509: END IF;
5510: OPEN c_current_baselined(p_project_id,
5511: l_ac_fin_plan_type_id,
5512: l_ar_fin_plan_type_id,
5517: l_cb_cost,
5518: l_cb_revenue;
5519: CLOSE c_current_baselined;
5520: IF l_debug_mode = 'Y' THEN
5521: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5522: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5523:
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5518: l_cb_revenue;
5519: CLOSE c_current_baselined;
5520: IF l_debug_mode = 'Y' THEN
5521: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5522: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5523:
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5526:
5520: IF l_debug_mode = 'Y' THEN
5521: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5522: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5523:
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5526:
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5521: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5522: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5523:
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5526:
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5523:
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5526:
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5524: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5526:
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532: END IF;
5526:
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532: END IF;
5533:
5534: IF l_debug_mode = 'Y' THEN
5527: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5528: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5529:
5530: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532: END IF;
5533:
5534: IF l_debug_mode = 'Y' THEN
5535: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5531: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5532: END IF;
5533:
5534: IF l_debug_mode = 'Y' THEN
5535: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5536: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5537: END IF;
5538: x_equipment_hours_tbl(i) := l_cb_equipment_quantity -
5539: x_equipment_hours_tbl(i-1) -
5532: END IF;
5533:
5534: IF l_debug_mode = 'Y' THEN
5535: pa_debug.g_err_stage:='Inserting Data for Adjustments from Prior versions';
5536: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5537: END IF;
5538: x_equipment_hours_tbl(i) := l_cb_equipment_quantity -
5539: x_equipment_hours_tbl(i-1) -
5540: x_equipment_hours_tbl(i-2);
5585: END IF;
5586: END IF;
5587:
5588: IF l_debug_mode = 'Y' THEN
5589: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5591:
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5586: END IF;
5587:
5588: IF l_debug_mode = 'Y' THEN
5589: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5591:
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5594:
5588: IF l_debug_mode = 'Y' THEN
5589: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5591:
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5594:
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5589: pa_debug.g_err_stage:='l_cb_labor_quantity:'||l_cb_labor_quantity;
5590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5591:
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5594:
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5597:
5591:
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5594:
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5597:
5598: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5599: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5592: pa_debug.g_err_stage:='l_cb_equipment_quantity:'||l_cb_equipment_quantity;
5593: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5594:
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5597:
5598: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5599: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5600: END IF;
5594:
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5597:
5598: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5599: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5600: END IF;
5601:
5602: x_equipment_hours_tbl(i) := l_cb_equipment_quantity;
5595: pa_debug.g_err_stage:='l_cb_cost:'||l_cb_cost;
5596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5597:
5598: pa_debug.g_err_stage:='l_cb_revenue:'||l_cb_revenue;
5599: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5600: END IF;
5601:
5602: x_equipment_hours_tbl(i) := l_cb_equipment_quantity;
5603: x_labor_hours_tbl(i) := l_cb_labor_quantity;
5606: l_assigned_flag := 'Y';
5607:
5608: ELSIF l_lookup_code_tbl(i) = 50 THEN
5609: IF l_debug_mode = 'Y' THEN
5610: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Current Versions';
5611: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5612: END IF;
5613: OPEN c_change_documents_current(p_project_id,
5614: l_ac_fin_plan_type_id,
5607:
5608: ELSIF l_lookup_code_tbl(i) = 50 THEN
5609: IF l_debug_mode = 'Y' THEN
5610: pa_debug.g_err_stage:='Fetching Data for Change Docs fom Current Versions';
5611: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5612: END IF;
5613: OPEN c_change_documents_current(p_project_id,
5614: l_ac_fin_plan_type_id,
5615: l_ar_fin_plan_type_id,
5620: l_cost,
5621: l_revenue;
5622: CLOSE c_change_documents_current;
5623: IF l_debug_mode = 'Y' THEN
5624: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5626:
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5621: l_revenue;
5622: CLOSE c_change_documents_current;
5623: IF l_debug_mode = 'Y' THEN
5624: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5626:
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5629:
5623: IF l_debug_mode = 'Y' THEN
5624: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5626:
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5629:
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5624: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5626:
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5629:
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5632:
5626:
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5629:
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5632:
5633: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5634: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5627: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5628: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5629:
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5632:
5633: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5634: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5635: END IF;
5629:
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5632:
5633: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5634: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5635: END IF;
5636:
5637: IF l_fin_plan_type_id IS NOT NULL THEN
5630: pa_debug.g_err_stage:='l_cost:'||l_cost;
5631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5632:
5633: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5634: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5635: END IF;
5636:
5637: IF l_fin_plan_type_id IS NOT NULL THEN
5638: IF (l_next = 'COST' OR l_next = 'ALL') THEN
5657:
5658:
5659: ELSIF l_lookup_code_tbl(i) = 60 THEN
5660: IF l_debug_mode = 'Y' THEN
5661: pa_debug.g_err_stage:='Fetching Data for Current Working';
5662: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5663: END IF;
5664: OPEN c_current_working(p_project_id,
5665: l_ac_fin_plan_type_id,
5658:
5659: ELSIF l_lookup_code_tbl(i) = 60 THEN
5660: IF l_debug_mode = 'Y' THEN
5661: pa_debug.g_err_stage:='Fetching Data for Current Working';
5662: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5663: END IF;
5664: OPEN c_current_working(p_project_id,
5665: l_ac_fin_plan_type_id,
5666: l_ar_fin_plan_type_id,
5671: l_cw_cost,
5672: l_cw_revenue;
5673: CLOSE c_current_working;
5674: IF l_debug_mode = 'Y' THEN
5675: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5677:
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5672: l_cw_revenue;
5673: CLOSE c_current_working;
5674: IF l_debug_mode = 'Y' THEN
5675: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5677:
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680:
5674: IF l_debug_mode = 'Y' THEN
5675: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5677:
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680:
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5675: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5677:
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680:
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683:
5677:
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680:
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683:
5684: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5678: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5679: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5680:
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683:
5684: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5686: END IF;
5680:
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683:
5684: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5686: END IF;
5687:
5688: IF l_debug_mode = 'Y' THEN
5681: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5682: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5683:
5684: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5686: END IF;
5687:
5688: IF l_debug_mode = 'Y' THEN
5689: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5685: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5686: END IF;
5687:
5688: IF l_debug_mode = 'Y' THEN
5689: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5691: END IF;
5692: x_equipment_hours_tbl(i) := l_cw_equipment_quantity -
5693: x_equipment_hours_tbl(i-1) -
5686: END IF;
5687:
5688: IF l_debug_mode = 'Y' THEN
5689: pa_debug.g_err_stage:='Inserting Data for Adjustments';
5690: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5691: END IF;
5692: x_equipment_hours_tbl(i) := l_cw_equipment_quantity -
5693: x_equipment_hours_tbl(i-1) -
5694: x_equipment_hours_tbl(i-2);
5739: END IF;
5740: END IF;
5741:
5742: IF l_debug_mode = 'Y' THEN
5743: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5744: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5745:
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5740: END IF;
5741:
5742: IF l_debug_mode = 'Y' THEN
5743: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5744: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5745:
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5748:
5742: IF l_debug_mode = 'Y' THEN
5743: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5744: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5745:
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5748:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5743: pa_debug.g_err_stage:='l_cw_labor_quantity:'||l_cw_labor_quantity;
5744: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5745:
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5748:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5751:
5745:
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5748:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5751:
5752: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5753: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5746: pa_debug.g_err_stage:='l_cw_equipment_quantity:'||l_cw_equipment_quantity;
5747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5748:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5751:
5752: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5753: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5754: END IF;
5748:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5751:
5752: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5753: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5754: END IF;
5755:
5756:
5749: pa_debug.g_err_stage:='l_cw_cost:'||l_cw_cost;
5750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5751:
5752: pa_debug.g_err_stage:='l_cw_revenue:'||l_cw_revenue;
5753: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5754: END IF;
5755:
5756:
5757: x_equipment_hours_tbl(i) := l_cw_equipment_quantity;
5761: l_assigned_flag := 'Y';
5762:
5763: ELSIF l_lookup_code_tbl(i) = 80 THEN
5764: IF l_debug_mode = 'Y' THEN
5765: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Approved';
5766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5767: END IF;
5768: OPEN c_change_documents_status(p_project_id,
5769: 'CI_APPROVED',
5762:
5763: ELSIF l_lookup_code_tbl(i) = 80 THEN
5764: IF l_debug_mode = 'Y' THEN
5765: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Approved';
5766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5767: END IF;
5768: OPEN c_change_documents_status(p_project_id,
5769: 'CI_APPROVED',
5770: l_margin_derived_from_code,
5775: l_cost,
5776: l_revenue;
5777: CLOSE c_change_documents_status;
5778: IF l_debug_mode = 'Y' THEN
5779: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5780: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5781:
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5776: l_revenue;
5777: CLOSE c_change_documents_status;
5778: IF l_debug_mode = 'Y' THEN
5779: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5780: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5781:
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5784:
5778: IF l_debug_mode = 'Y' THEN
5779: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5780: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5781:
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5784:
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5779: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5780: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5781:
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5784:
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5787:
5781:
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5784:
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5787:
5788: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5789: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5782: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5784:
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5787:
5788: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5789: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5790: END IF;
5784:
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5787:
5788: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5789: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5790: END IF;
5791:
5792: ELSIF l_lookup_code_tbl(i) = 90 THEN
5785: pa_debug.g_err_stage:='l_cost:'||l_cost;
5786: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5787:
5788: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5789: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5790: END IF;
5791:
5792: ELSIF l_lookup_code_tbl(i) = 90 THEN
5793: IF l_debug_mode = 'Y' THEN
5790: END IF;
5791:
5792: ELSIF l_lookup_code_tbl(i) = 90 THEN
5793: IF l_debug_mode = 'Y' THEN
5794: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Working';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5796: END IF;
5797: OPEN c_change_documents_status(p_project_id,
5798: 'CI_WORKING',
5791:
5792: ELSIF l_lookup_code_tbl(i) = 90 THEN
5793: IF l_debug_mode = 'Y' THEN
5794: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Working';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5796: END IF;
5797: OPEN c_change_documents_status(p_project_id,
5798: 'CI_WORKING',
5799: l_margin_derived_from_code,
5804: l_cost,
5805: l_revenue;
5806: CLOSE c_change_documents_status;
5807: IF l_debug_mode = 'Y' THEN
5808: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810:
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5805: l_revenue;
5806: CLOSE c_change_documents_status;
5807: IF l_debug_mode = 'Y' THEN
5808: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810:
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5813:
5807: IF l_debug_mode = 'Y' THEN
5808: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810:
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5813:
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5808: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5809: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5810:
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5813:
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5816:
5810:
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5813:
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5816:
5817: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5818: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5811: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5813:
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5816:
5817: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5818: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5819: END IF;
5813:
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5816:
5817: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5818: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5819: END IF;
5820:
5821: ELSIF l_lookup_code_tbl(i) = 100 THEN
5814: pa_debug.g_err_stage:='l_cost:'||l_cost;
5815: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5816:
5817: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5818: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5819: END IF;
5820:
5821: ELSIF l_lookup_code_tbl(i) = 100 THEN
5822: IF l_debug_mode = 'Y' THEN
5819: END IF;
5820:
5821: ELSIF l_lookup_code_tbl(i) = 100 THEN
5822: IF l_debug_mode = 'Y' THEN
5823: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Submitted';
5824: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5825: END IF;
5826: OPEN c_change_documents_status(p_project_id,
5827: 'CI_SUBMITTED',
5820:
5821: ELSIF l_lookup_code_tbl(i) = 100 THEN
5822: IF l_debug_mode = 'Y' THEN
5823: pa_debug.g_err_stage:='Fetching Data for Change Docs of System Status Submitted';
5824: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5825: END IF;
5826: OPEN c_change_documents_status(p_project_id,
5827: 'CI_SUBMITTED',
5828: l_margin_derived_from_code,
5833: l_cost,
5834: l_revenue;
5835: CLOSE c_change_documents_status;
5836: IF l_debug_mode = 'Y' THEN
5837: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5838: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5839:
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5834: l_revenue;
5835: CLOSE c_change_documents_status;
5836: IF l_debug_mode = 'Y' THEN
5837: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5838: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5839:
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5842:
5836: IF l_debug_mode = 'Y' THEN
5837: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5838: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5839:
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5842:
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5837: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
5838: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5839:
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5842:
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5845:
5839:
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5842:
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5845:
5846: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5840: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5842:
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5845:
5846: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5848: END IF;
5842:
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5845:
5846: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5848: END IF;
5849:
5850: ELSIF l_lookup_code_tbl(i) = 110 THEN
5843: pa_debug.g_err_stage:='l_cost:'||l_cost;
5844: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5845:
5846: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5848: END IF;
5849:
5850: ELSIF l_lookup_code_tbl(i) = 110 THEN
5851: IF l_debug_mode = 'Y' THEN
5848: END IF;
5849:
5850: ELSIF l_lookup_code_tbl(i) = 110 THEN
5851: IF l_debug_mode = 'Y' THEN
5852: pa_debug.g_err_stage:='Fetching Data for Projected Total';
5853: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5854: END IF;
5855: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-4) +
5856: x_equipment_hours_tbl(i-3) +
5849:
5850: ELSIF l_lookup_code_tbl(i) = 110 THEN
5851: IF l_debug_mode = 'Y' THEN
5852: pa_debug.g_err_stage:='Fetching Data for Projected Total';
5853: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5854: END IF;
5855: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-4) +
5856: x_equipment_hours_tbl(i-3) +
5857: x_equipment_hours_tbl(i-2) +
5883: END LOOP;
5884: END IF;
5885:
5886: IF l_debug_mode = 'Y' THEN
5887: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
5888: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5889: END IF;
5890:
5891: l_row_count := x_summary_tbl.COUNT;
5884: END IF;
5885:
5886: IF l_debug_mode = 'Y' THEN
5887: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
5888: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5889: END IF;
5890:
5891: l_row_count := x_summary_tbl.COUNT;
5892: IF l_row_count > 0 THEN
5929: END IF;
5930: END IF; /* COST or REVENUE version */
5931: /* Bug 4038253 :ends */
5932:
5933: pa_debug.reset_curr_function;
5934:
5935: EXCEPTION
5936: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5937: IF l_debug_mode = 'Y' THEN
5934:
5935: EXCEPTION
5936: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5937: IF l_debug_mode = 'Y' THEN
5938: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5939: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5940: END IF;
5941: pa_debug.reset_curr_function;
5942: RETURN;
5935: EXCEPTION
5936: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5937: IF l_debug_mode = 'Y' THEN
5938: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5939: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5940: END IF;
5941: pa_debug.reset_curr_function;
5942: RETURN;
5943:
5937: IF l_debug_mode = 'Y' THEN
5938: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5939: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5940: END IF;
5941: pa_debug.reset_curr_function;
5942: RETURN;
5943:
5944: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5945: l_msg_count := FND_MSG_PUB.count_msg;
5956: ELSE
5957: x_msg_count := l_msg_count;
5958: END IF;
5959: x_return_status := FND_API.G_RET_STS_ERROR;
5960: pa_debug.reset_curr_function;
5961: RETURN;
5962:
5963: WHEN OTHERS THEN
5964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5967: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
5968: ,p_procedure_name => 'get_summary_data');
5969:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5972: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5973: END IF;
5974: pa_debug.reset_curr_function;
5975: RAISE;
5968: ,p_procedure_name => 'get_summary_data');
5969:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5972: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5973: END IF;
5974: pa_debug.reset_curr_function;
5975: RAISE;
5976:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5972: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5973: END IF;
5974: pa_debug.reset_curr_function;
5975: RAISE;
5976:
5977: END get_summary_data;
5978:
6012: l_partial_quantity PA_BUDGET_VERSIONS.LABOR_QUANTITY%TYPE;
6013: l_labor_quantity PA_BUDGET_VERSIONS.LABOR_QUANTITY%TYPE;
6014: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6015: BEGIN
6016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6017: IF l_debug_mode = 'Y' THEN
6018: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6020: END IF;
6014: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6015: BEGIN
6016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6017: IF l_debug_mode = 'Y' THEN
6018: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6020: END IF;
6021:
6022: -------------------------------
6015: BEGIN
6016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6017: IF l_debug_mode = 'Y' THEN
6018: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6020: END IF;
6021:
6022: -------------------------------
6023: -- Fetching source version type
6023: -- Fetching source version type
6024: -------------------------------
6025: IF p_version_type IS NULL THEN
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='fetching source version type';
6028: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6029: END IF;
6030: BEGIN
6031: SELECT VERSION_TYPE
6024: -------------------------------
6025: IF p_version_type IS NULL THEN
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='fetching source version type';
6028: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6029: END IF;
6030: BEGIN
6031: SELECT VERSION_TYPE
6032: INTO l_source_version_type
6034: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6035: EXCEPTION
6036: WHEN NO_DATA_FOUND THEN
6037: IF l_debug_mode = 'Y' THEN
6038: pa_debug.g_err_stage:='source version does not exist';
6039: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6040: END IF;
6041: RAISE;
6042: END;
6035: EXCEPTION
6036: WHEN NO_DATA_FOUND THEN
6037: IF l_debug_mode = 'Y' THEN
6038: pa_debug.g_err_stage:='source version does not exist';
6039: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6040: END IF;
6041: RAISE;
6042: END;
6043: ELSE
6047: -------------------------------
6048: -- Fetching target version type
6049: -------------------------------
6050: IF l_debug_mode = 'Y' THEN
6051: pa_debug.g_err_stage:='fetching target version type';
6052: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6053: END IF;
6054: BEGIN
6055: SELECT VERSION_TYPE
6048: -- Fetching target version type
6049: -------------------------------
6050: IF l_debug_mode = 'Y' THEN
6051: pa_debug.g_err_stage:='fetching target version type';
6052: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6053: END IF;
6054: BEGIN
6055: SELECT VERSION_TYPE
6056: INTO l_target_version_type
6058: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6059: EXCEPTION
6060: WHEN NO_DATA_FOUND THEN
6061: IF l_debug_mode = 'Y' THEN
6062: pa_debug.g_err_stage:='target version does not exist';
6063: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6064: END IF;
6065: RAISE;
6066: END;
6059: EXCEPTION
6060: WHEN NO_DATA_FOUND THEN
6061: IF l_debug_mode = 'Y' THEN
6062: pa_debug.g_err_stage:='target version does not exist';
6063: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6064: END IF;
6065: RAISE;
6066: END;
6067:
6069: -- Fetching labor quantity
6070: -----------------------------------
6071: IF p_labor_qty IS NULL THEN
6072: IF l_debug_mode = 'Y' THEN
6073: pa_debug.g_err_stage:='Fetching labor quantity';
6074: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6075: END IF;
6076: BEGIN
6077: SELECT labor_quantity
6070: -----------------------------------
6071: IF p_labor_qty IS NULL THEN
6072: IF l_debug_mode = 'Y' THEN
6073: pa_debug.g_err_stage:='Fetching labor quantity';
6074: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6075: END IF;
6076: BEGIN
6077: SELECT labor_quantity
6078: INTO l_labor_quantity
6080: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6081: EXCEPTION
6082: WHEN NO_DATA_FOUND THEN
6083: IF l_debug_mode = 'Y' THEN
6084: pa_debug.g_err_stage:='source version does not exist';
6085: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6086: END IF;
6087: RAISE;
6088: END;
6081: EXCEPTION
6082: WHEN NO_DATA_FOUND THEN
6083: IF l_debug_mode = 'Y' THEN
6084: pa_debug.g_err_stage:='source version does not exist';
6085: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6086: END IF;
6087: RAISE;
6088: END;
6089: ELSE
6127: ELSIF l_target_version_type = 'REVENUE' -- Raja review OR l_target_version_type = 'ALL'
6128: THEN
6129: BEGIN
6130: IF l_debug_mode = 'Y' THEN
6131: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6133: END IF;
6134: SELECT 'Y'
6135: INTO l_impl_qty_exists
6128: THEN
6129: BEGIN
6130: IF l_debug_mode = 'Y' THEN
6131: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6133: END IF;
6134: SELECT 'Y'
6135: INTO l_impl_qty_exists
6136: FROM DUAL
6170: ----------------------------------------------------------------
6171: -- Fetching the approved revenue current working budget version
6172: ----------------------------------------------------------------
6173: IF l_debug_mode = 'Y' THEN
6174: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6175: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6176: END IF;
6177: BEGIN
6178: SELECT A.BUDGET_VERSION_ID
6171: -- Fetching the approved revenue current working budget version
6172: ----------------------------------------------------------------
6173: IF l_debug_mode = 'Y' THEN
6174: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6175: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6176: END IF;
6177: BEGIN
6178: SELECT A.BUDGET_VERSION_ID
6179: INTO l_appr_rev_cw_version_id
6239:
6240: /*
6241: BEGIN
6242: IF l_debug_mode = 'Y' THEN
6243: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6245: END IF;
6246: SELECT 'Y'
6247: INTO l_impl_qty_exists
6240: /*
6241: BEGIN
6242: IF l_debug_mode = 'Y' THEN
6243: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6245: END IF;
6246: SELECT 'Y'
6247: INTO l_impl_qty_exists
6248: FROM DUAL
6322: l_partial_quantity PA_BUDGET_VERSIONS.EQUIPMENT_QUANTITY%TYPE;
6323: l_equip_quantity PA_BUDGET_VERSIONS.EQUIPMENT_QUANTITY%TYPE;
6324: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6325: BEGIN
6326: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6327: IF l_debug_mode = 'Y' THEN
6328: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6329: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6330: END IF;
6324: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6325: BEGIN
6326: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6327: IF l_debug_mode = 'Y' THEN
6328: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6329: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6330: END IF;
6331:
6332: -------------------------------
6325: BEGIN
6326: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6327: IF l_debug_mode = 'Y' THEN
6328: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6329: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6330: END IF;
6331:
6332: -------------------------------
6333: -- Fetching source version type
6333: -- Fetching source version type
6334: -------------------------------
6335: IF p_version_type IS NULL THEN
6336: IF l_debug_mode = 'Y' THEN
6337: pa_debug.g_err_stage:='fetching source version type';
6338: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6339: END IF;
6340: BEGIN
6341: SELECT VERSION_TYPE
6334: -------------------------------
6335: IF p_version_type IS NULL THEN
6336: IF l_debug_mode = 'Y' THEN
6337: pa_debug.g_err_stage:='fetching source version type';
6338: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6339: END IF;
6340: BEGIN
6341: SELECT VERSION_TYPE
6342: INTO l_source_version_type
6344: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6345: EXCEPTION
6346: WHEN NO_DATA_FOUND THEN
6347: IF l_debug_mode = 'Y' THEN
6348: pa_debug.g_err_stage:='source version does not exist';
6349: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6350: END IF;
6351: RAISE;
6352: END;
6345: EXCEPTION
6346: WHEN NO_DATA_FOUND THEN
6347: IF l_debug_mode = 'Y' THEN
6348: pa_debug.g_err_stage:='source version does not exist';
6349: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6350: END IF;
6351: RAISE;
6352: END;
6353: ELSE
6357: -------------------------------
6358: -- Fetching target version type
6359: -------------------------------
6360: IF l_debug_mode = 'Y' THEN
6361: pa_debug.g_err_stage:='fetching target version type';
6362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6363: END IF;
6364: BEGIN
6365: SELECT VERSION_TYPE
6358: -- Fetching target version type
6359: -------------------------------
6360: IF l_debug_mode = 'Y' THEN
6361: pa_debug.g_err_stage:='fetching target version type';
6362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6363: END IF;
6364: BEGIN
6365: SELECT VERSION_TYPE
6366: INTO l_target_version_type
6368: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6369: EXCEPTION
6370: WHEN NO_DATA_FOUND THEN
6371: IF l_debug_mode = 'Y' THEN
6372: pa_debug.g_err_stage:='target version does not exist';
6373: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6374: END IF;
6375: RAISE;
6376: END;
6369: EXCEPTION
6370: WHEN NO_DATA_FOUND THEN
6371: IF l_debug_mode = 'Y' THEN
6372: pa_debug.g_err_stage:='target version does not exist';
6373: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6374: END IF;
6375: RAISE;
6376: END;
6377:
6379: -- Fetching equipment quantity
6380: -----------------------------------
6381: IF p_equip_qty IS NULL THEN
6382: IF l_debug_mode = 'Y' THEN
6383: pa_debug.g_err_stage:='Fetching equipment quantity';
6384: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6385: END IF;
6386: BEGIN
6387: SELECT EQUIPMENT_QUANTITY
6380: -----------------------------------
6381: IF p_equip_qty IS NULL THEN
6382: IF l_debug_mode = 'Y' THEN
6383: pa_debug.g_err_stage:='Fetching equipment quantity';
6384: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6385: END IF;
6386: BEGIN
6387: SELECT EQUIPMENT_QUANTITY
6388: INTO l_equip_quantity
6390: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6391: EXCEPTION
6392: WHEN NO_DATA_FOUND THEN
6393: IF l_debug_mode = 'Y' THEN
6394: pa_debug.g_err_stage:='source version does not exist';
6395: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6396: END IF;
6397: RAISE;
6398: END;
6391: EXCEPTION
6392: WHEN NO_DATA_FOUND THEN
6393: IF l_debug_mode = 'Y' THEN
6394: pa_debug.g_err_stage:='source version does not exist';
6395: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6396: END IF;
6397: RAISE;
6398: END;
6399: ELSE
6436: ELSIF l_target_version_type = 'REVENUE' -- Raja review OR l_target_version_type = 'ALL'
6437: THEN
6438: BEGIN
6439: IF l_debug_mode = 'Y' THEN
6440: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6442: END IF;
6443: SELECT 'Y'
6444: INTO l_impl_qty_exists
6437: THEN
6438: BEGIN
6439: IF l_debug_mode = 'Y' THEN
6440: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6442: END IF;
6443: SELECT 'Y'
6444: INTO l_impl_qty_exists
6445: FROM DUAL
6479: ----------------------------------------------------------------
6480: -- Fetching the approved revenue currenct working budget version
6481: ----------------------------------------------------------------
6482: IF l_debug_mode = 'Y' THEN
6483: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6484: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6485: END IF;
6486:
6487: BEGIN
6480: -- Fetching the approved revenue currenct working budget version
6481: ----------------------------------------------------------------
6482: IF l_debug_mode = 'Y' THEN
6483: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6484: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6485: END IF;
6486:
6487: BEGIN
6488: SELECT A.BUDGET_VERSION_ID
6548:
6549: /*
6550: BEGIN
6551: IF l_debug_mode = 'Y' THEN
6552: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6553: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6554: END IF;
6555: SELECT 'Y'
6556: INTO l_impl_qty_exists
6549: /*
6550: BEGIN
6551: IF l_debug_mode = 'Y' THEN
6552: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6553: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6554: END IF;
6555: SELECT 'Y'
6556: INTO l_impl_qty_exists
6557: FROM DUAL
6630: l_budget_version_type pa_budget_versions.version_type%TYPE;
6631: l_version_type pa_budget_versions.version_type%TYPE;
6632: BEGIN
6633:
6634: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6635:
6636: IF l_debug_mode = 'Y' THEN
6637: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6633:
6634: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6635:
6636: IF l_debug_mode = 'Y' THEN
6637: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6639: END IF;
6640:
6641: ----------------------------------------------------------------
6634: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6635:
6636: IF l_debug_mode = 'Y' THEN
6637: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6639: END IF;
6640:
6641: ----------------------------------------------------------------
6642: -- Return 0 if p_pt_ct_version_type is 'COST'
6653: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6654: EXCEPTION
6655: WHEN NO_DATA_FOUND THEN
6656: IF l_debug_mode = 'Y' THEN
6657: pa_debug.g_err_stage:='In get_pc_revenue_partial - no budget version';
6658: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6659: END IF;
6660: RAISE;
6661: END;
6654: EXCEPTION
6655: WHEN NO_DATA_FOUND THEN
6656: IF l_debug_mode = 'Y' THEN
6657: pa_debug.g_err_stage:='In get_pc_revenue_partial - no budget version';
6658: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6659: END IF;
6660: RAISE;
6661: END;
6662: ELSE
6664: END IF;
6665:
6666: BEGIN
6667: IF l_debug_mode = 'Y' THEN
6668: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6669: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6670: END IF;
6671: SELECT 'Y'
6672: INTO l_exists
6665:
6666: BEGIN
6667: IF l_debug_mode = 'Y' THEN
6668: pa_debug.g_err_stage:='Check if record exits in pa_fp_merged_ctl_items';
6669: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6670: END IF;
6671: SELECT 'Y'
6672: INTO l_exists
6673: FROM DUAL
6692: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6693: EXCEPTION
6694: WHEN NO_DATA_FOUND THEN
6695: IF l_debug_mode = 'Y' THEN
6696: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of source';
6697: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6698: END IF;
6699: RAISE;
6700: END;
6693: EXCEPTION
6694: WHEN NO_DATA_FOUND THEN
6695: IF l_debug_mode = 'Y' THEN
6696: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of source';
6697: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6698: END IF;
6699: RAISE;
6700: END;
6701: ELSE
6712: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6713: EXCEPTION
6714: WHEN NO_DATA_FOUND THEN
6715: IF l_debug_mode = 'Y' THEN
6716: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of target';
6717: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6718: END IF;
6719: RAISE;
6720: END;
6713: EXCEPTION
6714: WHEN NO_DATA_FOUND THEN
6715: IF l_debug_mode = 'Y' THEN
6716: pa_debug.g_err_stage:='In get_pc_revenue_partial - no version type of target';
6717: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6718: END IF;
6719: RAISE;
6720: END;
6721:
6755: ----------------------------------------------------------------
6756: -- Fetching the approved revenue budget currenct working version
6757: ----------------------------------------------------------------
6758: IF l_debug_mode = 'Y' THEN
6759: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6760: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6761: END IF;
6762:
6763: BEGIN
6756: -- Fetching the approved revenue budget currenct working version
6757: ----------------------------------------------------------------
6758: IF l_debug_mode = 'Y' THEN
6759: pa_debug.g_err_stage:='fetching the approved revenue current working version';
6760: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6761: END IF;
6762:
6763: BEGIN
6764: SELECT A.BUDGET_VERSION_ID
6828: l_cost pa_budget_versions.total_project_raw_cost%TYPE;
6829:
6830: BEGIN
6831:
6832: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6833:
6834: IF l_debug_mode = 'Y' THEN
6835: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6831:
6832: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6833:
6834: IF l_debug_mode = 'Y' THEN
6835: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6837: END IF;
6838:
6839: ----------------------------------------------------------------
6832: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6833:
6834: IF l_debug_mode = 'Y' THEN
6835: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6837: END IF;
6838:
6839: ----------------------------------------------------------------
6840: -- Return 0 if p_pt_ct_version_type is 'REVENUE'
6867: WHERE BUDGET_VERSION_ID = p_ci_version_id;
6868: EXCEPTION
6869: WHEN NO_DATA_FOUND THEN
6870: IF l_debug_mode = 'Y' THEN
6871: pa_debug.g_err_stage:='In get_pc_cost - no version type of source';
6872: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6873: END IF;
6874: RAISE;
6875: END;
6868: EXCEPTION
6869: WHEN NO_DATA_FOUND THEN
6870: IF l_debug_mode = 'Y' THEN
6871: pa_debug.g_err_stage:='In get_pc_cost - no version type of source';
6872: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6873: END IF;
6874: RAISE;
6875: END;
6876: ELSE
6887: WHERE BUDGET_VERSION_ID = p_budget_version_id;
6888: EXCEPTION
6889: WHEN NO_DATA_FOUND THEN
6890: IF l_debug_mode = 'Y' THEN
6891: pa_debug.g_err_stage:='In get_pc_cost - no version type of target';
6892: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6893: END IF;
6894: RAISE;
6895: END;
6888: EXCEPTION
6889: WHEN NO_DATA_FOUND THEN
6890: IF l_debug_mode = 'Y' THEN
6891: pa_debug.g_err_stage:='In get_pc_cost - no version type of target';
6892: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6893: END IF;
6894: RAISE;
6895: END;
6896:
6926:
6927: EXCEPTION
6928: WHEN NO_DATA_FOUND THEN
6929: IF l_debug_mode = 'Y' THEN
6930: pa_debug.g_err_stage:='In get_pc_cost - couldnt get raw or burdened cost';
6931: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6932: END IF;
6933: RAISE;
6934: END;
6927: EXCEPTION
6928: WHEN NO_DATA_FOUND THEN
6929: IF l_debug_mode = 'Y' THEN
6930: pa_debug.g_err_stage:='In get_pc_cost - couldnt get raw or burdened cost';
6931: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6932: END IF;
6933: RAISE;
6934: END;
6935: END IF;
6949: EXCEPTION
6950: WHEN NO_DATA_FOUND THEN
6951: l_return_cost := 0;
6952: IF l_debug_mode = 'Y' THEN
6953: pa_debug.g_err_stage:='In get_pc_cost - NO_DATA_FOUND ';
6954: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6955: END IF;
6956: END;
6957:
6950: WHEN NO_DATA_FOUND THEN
6951: l_return_cost := 0;
6952: IF l_debug_mode = 'Y' THEN
6953: pa_debug.g_err_stage:='In get_pc_cost - NO_DATA_FOUND ';
6954: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6955: END IF;
6956: END;
6957:
6958: ELSIF l_version_type = 'REVENUE' THEN
6959: l_return_cost := 0;
6960: END IF;
6961:
6962: IF l_debug_mode = 'Y' THEN
6963: pa_debug.g_err_stage:='In get_pc_cost - l_return_cost ' || l_return_cost;
6964: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6965: END IF;
6966:
6967: return l_return_cost;
6960: END IF;
6961:
6962: IF l_debug_mode = 'Y' THEN
6963: pa_debug.g_err_stage:='In get_pc_cost - l_return_cost ' || l_return_cost;
6964: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6965: END IF;
6966:
6967: return l_return_cost;
6968: END get_pc_cost;
7078: and merge2.project_id = c_project_id)));
7079:
7080: BEGIN
7081:
7082: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7083: x_msg_count := 0;
7084: x_return_status := FND_API.G_RET_STS_SUCCESS;
7085: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7086: p_debug_mode => l_debug_mode );
7081:
7082: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7083: x_msg_count := 0;
7084: x_return_status := FND_API.G_RET_STS_SUCCESS;
7085: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7086: p_debug_mode => l_debug_mode );
7087:
7088:
7089: -----------------------------------------------------------------------------
7090: -- Validate Input Params, p_project_id and p_budget_version_id cannot be null
7091: -----------------------------------------------------------------------------
7092:
7093: IF l_debug_mode = 'Y' THEN
7094: pa_debug.g_err_stage:='Validating input parameters - project id and budget version id: ' || p_project_id;
7095: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7096: END IF;
7097:
7098: IF (p_project_id IS NULL) THEN
7091: -----------------------------------------------------------------------------
7092:
7093: IF l_debug_mode = 'Y' THEN
7094: pa_debug.g_err_stage:='Validating input parameters - project id and budget version id: ' || p_project_id;
7095: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7096: END IF;
7097:
7098: IF (p_project_id IS NULL) THEN
7099: IF l_debug_mode = 'Y' THEN
7096: END IF;
7097:
7098: IF (p_project_id IS NULL) THEN
7099: IF l_debug_mode = 'Y' THEN
7100: pa_debug.g_err_stage:='p_project_id is null';
7101: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7102: END IF;
7103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7104: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7097:
7098: IF (p_project_id IS NULL) THEN
7099: IF l_debug_mode = 'Y' THEN
7100: pa_debug.g_err_stage:='p_project_id is null';
7101: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7102: END IF;
7103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7104: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7105: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7105: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7106: END IF;
7107:
7108: IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7110: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7111: END IF;
7112:
7113: IF (p_budget_version_id IS NULL) THEN
7106: END IF;
7107:
7108: IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7110: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7111: END IF;
7112:
7113: IF (p_budget_version_id IS NULL) THEN
7114: IF l_debug_mode = 'Y' THEN
7111: END IF;
7112:
7113: IF (p_budget_version_id IS NULL) THEN
7114: IF l_debug_mode = 'Y' THEN
7115: pa_debug.g_err_stage:='p_budget_version_id is null';
7116: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7117: END IF;
7118: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7119: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7112:
7113: IF (p_budget_version_id IS NULL) THEN
7114: IF l_debug_mode = 'Y' THEN
7115: pa_debug.g_err_stage:='p_budget_version_id is null';
7116: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7117: END IF;
7118: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7119: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7120: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7120: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7121: END IF;
7122:
7123: IF l_debug_mode = 'Y' THEN
7124: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7126: END IF;
7127:
7128: ---------------------------------------------------------
7121: END IF;
7122:
7123: IF l_debug_mode = 'Y' THEN
7124: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7126: END IF;
7127:
7128: ---------------------------------------------------------
7129: -- Derive version type and fin_plan_type_id if not passed
7130: ---------------------------------------------------------
7131: IF p_version_type is NULL THEN
7132:
7133: IF l_debug_mode = 'Y' THEN
7134: pa_debug.g_err_stage:='fetching version type';
7135: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7136: END IF;
7137:
7138: BEGIN
7131: IF p_version_type is NULL THEN
7132:
7133: IF l_debug_mode = 'Y' THEN
7134: pa_debug.g_err_stage:='fetching version type';
7135: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7136: END IF;
7137:
7138: BEGIN
7139: Select version_type
7141: from pa_budget_versions
7142: where budget_version_id = p_budget_version_id;
7143:
7144: IF l_debug_mode = 'Y' THEN
7145: pa_debug.g_err_stage:='l_version_type; '||l_version_type;
7146: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7147: END IF;
7148:
7149: EXCEPTION
7142: where budget_version_id = p_budget_version_id;
7143:
7144: IF l_debug_mode = 'Y' THEN
7145: pa_debug.g_err_stage:='l_version_type; '||l_version_type;
7146: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7147: END IF;
7148:
7149: EXCEPTION
7150: WHEN NO_DATA_FOUND THEN
7148:
7149: EXCEPTION
7150: WHEN NO_DATA_FOUND THEN
7151: IF l_debug_mode = 'Y' THEN
7152: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching version type';
7153: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7154: END IF;
7155: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7156: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7149: EXCEPTION
7150: WHEN NO_DATA_FOUND THEN
7151: IF l_debug_mode = 'Y' THEN
7152: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching version type';
7153: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7154: END IF;
7155: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7156: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7157: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7163:
7164: IF p_fin_plan_type_id is NULL THEN
7165:
7166: IF l_debug_mode = 'Y' THEN
7167: pa_debug.g_err_stage:='fetching fin plan type id';
7168: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7169: END IF;
7170:
7171: BEGIN
7164: IF p_fin_plan_type_id is NULL THEN
7165:
7166: IF l_debug_mode = 'Y' THEN
7167: pa_debug.g_err_stage:='fetching fin plan type id';
7168: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7169: END IF;
7170:
7171: BEGIN
7172: Select fin_plan_type_id
7174: from pa_budget_versions
7175: where budget_version_id = p_budget_version_id;
7176:
7177: IF l_debug_mode = 'Y' THEN
7178: pa_debug.g_err_stage:='l_fin_plan_type_id; '||l_fin_plan_type_id;
7179: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7180: END IF;
7181:
7182: EXCEPTION
7175: where budget_version_id = p_budget_version_id;
7176:
7177: IF l_debug_mode = 'Y' THEN
7178: pa_debug.g_err_stage:='l_fin_plan_type_id; '||l_fin_plan_type_id;
7179: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7180: END IF;
7181:
7182: EXCEPTION
7183: WHEN NO_DATA_FOUND THEN
7181:
7182: EXCEPTION
7183: WHEN NO_DATA_FOUND THEN
7184: IF l_debug_mode = 'Y' THEN
7185: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching fin plan type id';
7186: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7187: END IF;
7188: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7189: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7182: EXCEPTION
7183: WHEN NO_DATA_FOUND THEN
7184: IF l_debug_mode = 'Y' THEN
7185: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching fin plan type id';
7186: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7187: END IF;
7188: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7189: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7198: -------------------------------------------
7199: -- Initialising all tables to empty tables.
7200: -------------------------------------------
7201: IF l_debug_mode = 'Y' THEN
7202: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
7203: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7204: END IF;
7205: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
7206: x_equipment_hours_tbl := SYSTEM.pa_num_tbl_type();
7199: -- Initialising all tables to empty tables.
7200: -------------------------------------------
7201: IF l_debug_mode = 'Y' THEN
7202: pa_debug.g_err_stage:='Initialising all tables to empty tables.';
7203: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7204: END IF;
7205: x_summary_tbl := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
7206: x_equipment_hours_tbl := SYSTEM.pa_num_tbl_type();
7207: x_labor_hours_tbl := SYSTEM.pa_num_tbl_type();
7214: ----------------------------------------------------
7215: -- Fetch Lookup_code ,summary and reference details.
7216: ----------------------------------------------------
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:='Fetching lookup data' || p_project_id;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7220: END IF;
7221:
7222: OPEN c_lookup_summary;
7215: -- Fetch Lookup_code ,summary and reference details.
7216: ----------------------------------------------------
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:='Fetching lookup data' || p_project_id;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7220: END IF;
7221:
7222: OPEN c_lookup_summary;
7223: FETCH c_lookup_summary BULK COLLECT INTO x_summary_tbl,l_lookup_code_tbl;
7254: x_revenue_tbl.extend(1);
7255:
7256: IF l_lookup_code_tbl(i) = 10 THEN
7257: IF l_debug_mode = 'Y' THEN
7258: pa_debug.g_err_stage:='Fetching Data for Approved Change Documents';
7259: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7260: END IF;
7261: OPEN c_change_documents_status('CI_APPROVED',
7262: p_budget_version_id,
7255:
7256: IF l_lookup_code_tbl(i) = 10 THEN
7257: IF l_debug_mode = 'Y' THEN
7258: pa_debug.g_err_stage:='Fetching Data for Approved Change Documents';
7259: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7260: END IF;
7261: OPEN c_change_documents_status('CI_APPROVED',
7262: p_budget_version_id,
7263: p_project_id ,
7268: l_cost,
7269: l_revenue;
7270: CLOSE c_change_documents_status;
7271: IF l_debug_mode = 'Y' THEN
7272: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7274:
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7269: l_revenue;
7270: CLOSE c_change_documents_status;
7271: IF l_debug_mode = 'Y' THEN
7272: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7274:
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7277:
7271: IF l_debug_mode = 'Y' THEN
7272: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7274:
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7277:
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7272: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7274:
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7277:
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7280:
7274:
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7277:
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7280:
7281: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7282: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7275: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7276: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7277:
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7280:
7281: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7282: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7283: END IF;
7277:
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7280:
7281: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7282: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7283: END IF;
7284:
7285: ELSIF l_lookup_code_tbl(i) = 20 THEN
7278: pa_debug.g_err_stage:='l_cost:'||l_cost;
7279: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7280:
7281: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7282: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7283: END IF;
7284:
7285: ELSIF l_lookup_code_tbl(i) = 20 THEN
7286: IF l_debug_mode = 'Y' THEN
7283: END IF;
7284:
7285: ELSIF l_lookup_code_tbl(i) = 20 THEN
7286: IF l_debug_mode = 'Y' THEN
7287: pa_debug.g_err_stage:='Fetching Data for Working Change Documents';
7288: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7289: END IF;
7290: OPEN c_change_documents_status('CI_WORKING',
7291: p_budget_version_id,
7284:
7285: ELSIF l_lookup_code_tbl(i) = 20 THEN
7286: IF l_debug_mode = 'Y' THEN
7287: pa_debug.g_err_stage:='Fetching Data for Working Change Documents';
7288: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7289: END IF;
7290: OPEN c_change_documents_status('CI_WORKING',
7291: p_budget_version_id,
7292: p_project_id ,
7297: l_cost,
7298: l_revenue;
7299: CLOSE c_change_documents_status;
7300: IF l_debug_mode = 'Y' THEN
7301: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7302: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7303:
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7298: l_revenue;
7299: CLOSE c_change_documents_status;
7300: IF l_debug_mode = 'Y' THEN
7301: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7302: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7303:
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7306:
7300: IF l_debug_mode = 'Y' THEN
7301: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7302: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7303:
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7306:
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7301: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7302: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7303:
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7306:
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7309:
7303:
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7306:
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7309:
7310: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7311: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7304: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7305: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7306:
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7309:
7310: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7311: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7312: END IF;
7306:
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7309:
7310: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7311: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7312: END IF;
7313:
7314: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7307: pa_debug.g_err_stage:='l_cost:'||l_cost;
7308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7309:
7310: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7311: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7312: END IF;
7313:
7314: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7315: IF l_debug_mode = 'Y' THEN
7312: END IF;
7313:
7314: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7315: IF l_debug_mode = 'Y' THEN
7316: pa_debug.g_err_stage:='Fetching Data for Submitted Change Documents';
7317: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7318: END IF;
7319: OPEN c_change_documents_status('CI_SUBMITTED',
7320: p_budget_version_id,
7313:
7314: ELSIF l_lookup_code_tbl(i) = 30 THEN /* fetching data for COs included into asdfsd prior versions */
7315: IF l_debug_mode = 'Y' THEN
7316: pa_debug.g_err_stage:='Fetching Data for Submitted Change Documents';
7317: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7318: END IF;
7319: OPEN c_change_documents_status('CI_SUBMITTED',
7320: p_budget_version_id,
7321: p_project_id ,
7326: l_cost,
7327: l_revenue;
7328: CLOSE c_change_documents_status;
7329: IF l_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332:
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7327: l_revenue;
7328: CLOSE c_change_documents_status;
7329: IF l_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332:
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7335:
7329: IF l_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332:
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7335:
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7330: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7332:
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7335:
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7338:
7332:
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7335:
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7338:
7339: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7340: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7333: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7334: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7335:
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7338:
7339: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7340: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7341: END IF;
7335:
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7338:
7339: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7340: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7341: END IF;
7342:
7343: ELSIF l_lookup_code_tbl(i) = 40 THEN
7336: pa_debug.g_err_stage:='l_cost:'||l_cost;
7337: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7338:
7339: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7340: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7341: END IF;
7342:
7343: ELSIF l_lookup_code_tbl(i) = 40 THEN
7344: IF l_debug_mode = 'Y' THEN
7341: END IF;
7342:
7343: ELSIF l_lookup_code_tbl(i) = 40 THEN
7344: IF l_debug_mode = 'Y' THEN
7345: pa_debug.g_err_stage:='Fetching Data for Rejected Change Documents';
7346: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7347: END IF;
7348: OPEN c_change_documents_status('CI_REJECTED',
7349: p_budget_version_id,
7342:
7343: ELSIF l_lookup_code_tbl(i) = 40 THEN
7344: IF l_debug_mode = 'Y' THEN
7345: pa_debug.g_err_stage:='Fetching Data for Rejected Change Documents';
7346: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7347: END IF;
7348: OPEN c_change_documents_status('CI_REJECTED',
7349: p_budget_version_id,
7350: p_project_id ,
7355: l_cost,
7356: l_revenue;
7357: CLOSE c_change_documents_status;
7358: IF l_debug_mode = 'Y' THEN
7359: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361:
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7356: l_revenue;
7357: CLOSE c_change_documents_status;
7358: IF l_debug_mode = 'Y' THEN
7359: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361:
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7364:
7358: IF l_debug_mode = 'Y' THEN
7359: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361:
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7364:
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7359: pa_debug.g_err_stage:='l_labor_quantity:'||l_labor_quantity;
7360: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7361:
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7364:
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7367:
7361:
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7364:
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7367:
7368: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7369: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7362: pa_debug.g_err_stage:='l_equipment_quantity:'||l_equipment_quantity;
7363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7364:
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7367:
7368: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7369: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7370: END IF;
7364:
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7367:
7368: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7369: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7370: END IF;
7371:
7372: ELSIF l_lookup_code_tbl(i) = 50 THEN
7365: pa_debug.g_err_stage:='l_cost:'||l_cost;
7366: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7367:
7368: pa_debug.g_err_stage:='l_revenue:'||l_revenue;
7369: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7370: END IF;
7371:
7372: ELSIF l_lookup_code_tbl(i) = 50 THEN
7373: IF l_debug_mode = 'Y' THEN
7370: END IF;
7371:
7372: ELSIF l_lookup_code_tbl(i) = 50 THEN
7373: IF l_debug_mode = 'Y' THEN
7374: pa_debug.g_err_stage:='Deriving Data for Total Change Documents';
7375: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7376: END IF;
7377: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-1) +
7378: x_equipment_hours_tbl(i-2) +
7371:
7372: ELSIF l_lookup_code_tbl(i) = 50 THEN
7373: IF l_debug_mode = 'Y' THEN
7374: pa_debug.g_err_stage:='Deriving Data for Total Change Documents';
7375: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7376: END IF;
7377: x_equipment_hours_tbl(i) := x_equipment_hours_tbl(i-1) +
7378: x_equipment_hours_tbl(i-2) +
7379: x_equipment_hours_tbl(i-3) +
7404:
7405: END LOOP;
7406:
7407: IF l_debug_mode = 'Y' THEN
7408: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410: END IF;
7411:
7412: l_row_count := x_summary_tbl.COUNT;
7405: END LOOP;
7406:
7407: IF l_debug_mode = 'Y' THEN
7408: pa_debug.g_err_stage:='Deriving Margin and Margin Percent';
7409: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7410: END IF;
7411:
7412: l_row_count := x_summary_tbl.COUNT;
7413: IF l_row_count > 0 THEN
7422: END IF;
7423: END LOOP;
7424: END IF;
7425:
7426: pa_debug.reset_curr_function;
7427:
7428: EXCEPTION
7429: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7430: l_msg_count := FND_MSG_PUB.count_msg;
7441: ELSE
7442: x_msg_count := l_msg_count;
7443: END IF;
7444: x_return_status := FND_API.G_RET_STS_ERROR;
7445: pa_debug.reset_curr_function;
7446: RETURN;
7447:
7448: WHEN OTHERS THEN
7449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7452: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7453: ,p_procedure_name => 'get_not_included');
7454:
7455: IF l_debug_mode = 'Y' THEN
7456: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7457: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7458: END IF;
7459: pa_debug.reset_curr_function;
7460: RAISE;
7453: ,p_procedure_name => 'get_not_included');
7454:
7455: IF l_debug_mode = 'Y' THEN
7456: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7457: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7458: END IF;
7459: pa_debug.reset_curr_function;
7460: RAISE;
7461:
7455: IF l_debug_mode = 'Y' THEN
7456: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7457: pa_debug.write('get_not_included: ' || g_module_name,pa_debug.g_err_stage,5);
7458: END IF;
7459: pa_debug.reset_curr_function;
7460: RAISE;
7461:
7462: END get_not_included;
7463:
7491:
7492: l_impact_type_tbl PA_PLSQL_DATATYPES.Char30TabTyp;
7493:
7494: BEGIN
7495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7496:
7497: IF l_debug_mode = 'Y' THEN
7498: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7494: BEGIN
7495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7496:
7497: IF l_debug_mode = 'Y' THEN
7498: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7500: END IF;
7501: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7502: p_debug_mode => l_debug_mode );
7495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7496:
7497: IF l_debug_mode = 'Y' THEN
7498: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7500: END IF;
7501: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7502: p_debug_mode => l_debug_mode );
7503: OPEN get_impact_type_csr;
7497: IF l_debug_mode = 'Y' THEN
7498: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7500: END IF;
7501: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7502: p_debug_mode => l_debug_mode );
7503: OPEN get_impact_type_csr;
7504:
7505: FETCH get_impact_type_csr
7509:
7510: l_record_count := l_impact_type_tbl.COUNT;
7511:
7512: IF l_debug_mode = 'Y' THEN
7513: pa_debug.g_err_stage:='l_record_count is:' || l_record_count;
7514: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7515: END IF;
7516:
7517: IF l_record_count = 0 THEN
7510: l_record_count := l_impact_type_tbl.COUNT;
7511:
7512: IF l_debug_mode = 'Y' THEN
7513: pa_debug.g_err_stage:='l_record_count is:' || l_record_count;
7514: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7515: END IF;
7516:
7517: IF l_record_count = 0 THEN
7518: IF l_debug_mode = 'Y' THEN
7515: END IF;
7516:
7517: IF l_record_count = 0 THEN
7518: IF l_debug_mode = 'Y' THEN
7519: pa_debug.g_err_stage:='No Impact Exists';
7520: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7521: END IF;
7522:
7523: l_impact_type_code := 'NONE';
7516:
7517: IF l_record_count = 0 THEN
7518: IF l_debug_mode = 'Y' THEN
7519: pa_debug.g_err_stage:='No Impact Exists';
7520: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7521: END IF;
7522:
7523: l_impact_type_code := 'NONE';
7524:
7521: END IF;
7522:
7523: l_impact_type_code := 'NONE';
7524:
7525: pa_debug.reset_curr_function;
7526: RETURN l_impact_type_code;
7527: END IF;
7528:
7529: IF l_record_count > 0 THEN
7528:
7529: IF l_record_count > 0 THEN
7530: IF l_record_count = 1 THEN
7531: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7532: IF P_PA_debug_mode = 'Y' THEN
7533: pa_debug.g_err_stage:='Impact Wrongly Created';
7534: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7535: END IF;
7536: pa_debug.reset_curr_function;
7529: IF l_record_count > 0 THEN
7530: IF l_record_count = 1 THEN
7531: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7532: IF P_PA_debug_mode = 'Y' THEN
7533: pa_debug.g_err_stage:='Impact Wrongly Created';
7534: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7535: END IF;
7536: pa_debug.reset_curr_function;
7537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7530: IF l_record_count = 1 THEN
7531: IF NOT l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' THEN
7532: IF P_PA_debug_mode = 'Y' THEN
7533: pa_debug.g_err_stage:='Impact Wrongly Created';
7534: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7535: END IF;
7536: pa_debug.reset_curr_function;
7537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7538: ELSE
7532: IF P_PA_debug_mode = 'Y' THEN
7533: pa_debug.g_err_stage:='Impact Wrongly Created';
7534: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7535: END IF;
7536: pa_debug.reset_curr_function;
7537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7538: ELSE
7539: l_impact_type_code := 'FINPLAN';
7540: END IF;
7550: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7551: END IF;
7552: END IF;
7553: IF l_debug_mode = 'Y' THEN
7554: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7555: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7556: END IF;
7557:
7558: pa_debug.reset_curr_function;
7551: END IF;
7552: END IF;
7553: IF l_debug_mode = 'Y' THEN
7554: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7555: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7556: END IF;
7557:
7558: pa_debug.reset_curr_function;
7559: RETURN l_impact_type_code;
7554: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7555: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7556: END IF;
7557:
7558: pa_debug.reset_curr_function;
7559: RETURN l_impact_type_code;
7560: EXCEPTION
7561: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7562: l_msg_count := FND_MSG_PUB.count_msg;
7569: ,p_msg_data => l_msg_data
7570: ,p_data => l_data
7571: ,p_msg_index_out => l_msg_index_out);
7572: END IF;
7573: pa_debug.reset_curr_function;
7574: RAISE;
7575: WHEN OTHERS THEN
7576: IF l_debug_mode = 'Y' THEN
7577: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7573: pa_debug.reset_curr_function;
7574: RAISE;
7575: WHEN OTHERS THEN
7576: IF l_debug_mode = 'Y' THEN
7577: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7578: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7579: END IF;
7580: pa_debug.reset_curr_function;
7581: RAISE;
7574: RAISE;
7575: WHEN OTHERS THEN
7576: IF l_debug_mode = 'Y' THEN
7577: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7578: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7579: END IF;
7580: pa_debug.reset_curr_function;
7581: RAISE;
7582: END is_impact_exists;
7576: IF l_debug_mode = 'Y' THEN
7577: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7578: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7579: END IF;
7580: pa_debug.reset_curr_function;
7581: RAISE;
7582: END is_impact_exists;
7583:
7584: /* FP.M- This function checks for the particular ci type, the Cost Impact or
7596: l_debug_mode VARCHAR2(30);
7597: l_module_name VARCHAR2(30) := 'is_fin_impact_enabled';
7598:
7599: BEGIN
7600: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7601:
7602: IF l_debug_mode = 'Y' THEN
7603: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7599: BEGIN
7600: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7601:
7602: IF l_debug_mode = 'Y' THEN
7603: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7605: END IF;
7606: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7607: p_debug_mode => l_debug_mode );
7600: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7601:
7602: IF l_debug_mode = 'Y' THEN
7603: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7605: END IF;
7606: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7607: p_debug_mode => l_debug_mode );
7608:
7602: IF l_debug_mode = 'Y' THEN
7603: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7605: END IF;
7606: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7607: p_debug_mode => l_debug_mode );
7608:
7609: BEGIN
7610: SELECT ci_type_id
7620:
7621: EXCEPTION
7622: WHEN NO_DATA_FOUND THEN
7623: IF l_debug_mode = 'Y' THEN
7624: pa_debug.g_err_stage:='No Fin Impact Exists';
7625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7626: END IF;
7627:
7628: l_fin_impl_flag := 'NONE';
7621: EXCEPTION
7622: WHEN NO_DATA_FOUND THEN
7623: IF l_debug_mode = 'Y' THEN
7624: pa_debug.g_err_stage:='No Fin Impact Exists';
7625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7626: END IF;
7627:
7628: l_fin_impl_flag := 'NONE';
7629:
7626: END IF;
7627:
7628: l_fin_impl_flag := 'NONE';
7629:
7630: pa_debug.reset_curr_function;
7631: RETURN l_fin_impl_flag;
7632: END;
7633: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7634: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7638: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7639: END IF;
7640:
7641: IF l_debug_mode = 'Y' THEN
7642: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7643: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7644: END IF;
7645:
7646: pa_debug.reset_curr_function;
7639: END IF;
7640:
7641: IF l_debug_mode = 'Y' THEN
7642: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7643: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7644: END IF;
7645:
7646: pa_debug.reset_curr_function;
7647: RETURN l_fin_impl_flag;
7642: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7643: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7644: END IF;
7645:
7646: pa_debug.reset_curr_function;
7647: RETURN l_fin_impl_flag;
7648: EXCEPTION
7649: WHEN OTHERS THEN
7650: IF l_debug_mode = 'Y' THEN
7647: RETURN l_fin_impl_flag;
7648: EXCEPTION
7649: WHEN OTHERS THEN
7650: IF l_debug_mode = 'Y' THEN
7651: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7652: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7653: END IF;
7654: pa_debug.reset_curr_function;
7655: RAISE;
7648: EXCEPTION
7649: WHEN OTHERS THEN
7650: IF l_debug_mode = 'Y' THEN
7651: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7652: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7653: END IF;
7654: pa_debug.reset_curr_function;
7655: RAISE;
7656: END is_fin_impact_enabled;
7650: IF l_debug_mode = 'Y' THEN
7651: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7652: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
7653: END IF;
7654: pa_debug.reset_curr_function;
7655: RAISE;
7656: END is_fin_impact_enabled;
7657:
7658: /* Returns the Ids of the versions created for this Change Document(p_ci_id).
7690: c_vers_for_ci_rec c_vers_for_ci%ROWTYPE;
7691:
7692: BEGIN
7693:
7694: pa_debug.set_curr_function( p_function => 'GET_CI_VERSIONS',
7695: p_debug_mode => P_PA_debug_mode );
7696:
7697:
7698: x_msg_count := 0;
7691:
7692: BEGIN
7693:
7694: pa_debug.set_curr_function( p_function => 'GET_CI_VERSIONS',
7695: p_debug_mode => P_PA_debug_mode );
7696:
7697:
7698: x_msg_count := 0;
7699: x_return_status := FND_API.G_RET_STS_SUCCESS;
7700:
7701: IF (p_ci_id IS NULL)
7702: THEN
7703:
7704: IF P_PA_debug_mode = 'Y' THEN
7705: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7706: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7707: END IF;
7708:
7701: IF (p_ci_id IS NULL)
7702: THEN
7703:
7704: IF P_PA_debug_mode = 'Y' THEN
7705: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7706: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7707: END IF;
7708:
7709:
7702: THEN
7703:
7704: IF P_PA_debug_mode = 'Y' THEN
7705: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7706: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7707: END IF;
7708:
7709:
7710: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7712: p_token1 => l_token_name,
7713: p_value1 => l_mod_name);
7714:
7715:
7716: IF P_PA_debug_mode = 'Y' THEN
7717: pa_debug.g_err_stage:='Invalid Arguments Passed';
7718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7719: END IF;
7720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7713: p_value1 => l_mod_name);
7714:
7715:
7716: IF P_PA_debug_mode = 'Y' THEN
7717: pa_debug.g_err_stage:='Invalid Arguments Passed';
7718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7719: END IF;
7720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7721:
7714:
7715:
7716: IF P_PA_debug_mode = 'Y' THEN
7717: pa_debug.g_err_stage:='Invalid Arguments Passed';
7718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7719: END IF;
7720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7721:
7722: END IF;
7720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7721:
7722: END IF;
7723:
7724: IF P_PA_debug_mode = 'Y' THEN
7725: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7726: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7727: END IF;
7728:
7721:
7722: END IF;
7723:
7724: IF P_PA_debug_mode = 'Y' THEN
7725: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7726: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7727: END IF;
7728:
7729: X_cost_budget_version_id := NULL;
7722: END IF;
7723:
7724: IF P_PA_debug_mode = 'Y' THEN
7725: pa_debug.g_err_stage:= 'Entering GET_CI_VERSIONS';
7726: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7727: END IF;
7728:
7729: X_cost_budget_version_id := NULL;
7730: X_rev_budget_version_id := NULL;
7739: X_all_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7740: END IF;
7741: END LOOP;
7742:
7743: IF P_PA_debug_mode = 'Y' THEN
7744: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7746: END IF;
7747:
7740: END IF;
7741: END LOOP;
7742:
7743: IF P_PA_debug_mode = 'Y' THEN
7744: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7746: END IF;
7747:
7748: pa_debug.reset_curr_function;
7741: END LOOP;
7742:
7743: IF P_PA_debug_mode = 'Y' THEN
7744: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7746: END IF;
7747:
7748: pa_debug.reset_curr_function;
7749:
7744: pa_debug.g_err_stage:= 'Exiting GET_CI_VERSIONS';
7745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7746: END IF;
7747:
7748: pa_debug.reset_curr_function;
7749:
7750: EXCEPTION
7751: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7752: l_msg_count := FND_MSG_PUB.count_msg;
7765: x_msg_count := l_msg_count;
7766: END IF;
7767: x_return_status := FND_API.G_RET_STS_ERROR;
7768:
7769: pa_debug.reset_curr_function;
7770:
7771: RETURN;
7772:
7773: WHEN Others THEN
7780: END IF;
7781:
7782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7783: ,p_procedure_name => 'GET_CI_VERSIONS');
7784: IF P_PA_DEBUG_MODE = 'Y' THEN
7785: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7786: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7787: END IF;
7788: pa_debug.reset_curr_function;
7781:
7782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7783: ,p_procedure_name => 'GET_CI_VERSIONS');
7784: IF P_PA_DEBUG_MODE = 'Y' THEN
7785: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7786: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7787: END IF;
7788: pa_debug.reset_curr_function;
7789: RAISE;
7782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7783: ,p_procedure_name => 'GET_CI_VERSIONS');
7784: IF P_PA_DEBUG_MODE = 'Y' THEN
7785: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7786: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7787: END IF;
7788: pa_debug.reset_curr_function;
7789: RAISE;
7790:
7784: IF P_PA_DEBUG_MODE = 'Y' THEN
7785: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7786: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7787: END IF;
7788: pa_debug.reset_curr_function;
7789: RAISE;
7790:
7791: END GET_CI_VERSIONS;
7792:
7901: l_submit_revenue_check VARCHAR2(1);
7902:
7903: BEGIN
7904:
7905: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7906: l_debug_mode := NVL(l_debug_mode, 'N');
7907:
7908:
7909: pa_debug.set_curr_function( p_function => 'GET_PLAN_TYPES_FOR_IMPL',
7905: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7906: l_debug_mode := NVL(l_debug_mode, 'N');
7907:
7908:
7909: pa_debug.set_curr_function( p_function => 'GET_PLAN_TYPES_FOR_IMPL',
7910: p_debug_mode => l_debug_mode );
7911:
7912:
7913: x_msg_count := 0;
7937: x_disable_baseline_flag_tbl := SYSTEM.pa_varchar2_1_tbl_type(); -- Bug 3735309
7938: -- Check for business rules violations
7939:
7940: IF l_debug_mode = 'Y' THEN
7941: pa_debug.g_err_stage:='Validating input parameters';
7942: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7943: END IF;
7944:
7945: -- Check if project id and ci id are null
7938: -- Check for business rules violations
7939:
7940: IF l_debug_mode = 'Y' THEN
7941: pa_debug.g_err_stage:='Validating input parameters';
7942: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
7943: END IF;
7944:
7945: -- Check if project id and ci id are null
7946:
7949: THEN
7950:
7951:
7952: IF l_debug_mode = 'Y' THEN
7953: pa_debug.g_err_stage:='Project_id = '||p_project_id;
7954: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7955:
7956: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7957: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7950:
7951:
7952: IF l_debug_mode = 'Y' THEN
7953: pa_debug.g_err_stage:='Project_id = '||p_project_id;
7954: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7955:
7956: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7957: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7958: END IF;
7952: IF l_debug_mode = 'Y' THEN
7953: pa_debug.g_err_stage:='Project_id = '||p_project_id;
7954: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7955:
7956: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7957: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7958: END IF;
7959:
7960:
7953: pa_debug.g_err_stage:='Project_id = '||p_project_id;
7954: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7955:
7956: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
7957: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7958: END IF;
7959:
7960:
7961: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7964: p_value1 => l_mod_name);
7965:
7966:
7967: IF l_debug_mode = 'Y' THEN
7968: pa_debug.g_err_stage:='Invalid Arguments Passed';
7969: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7970: END IF;
7971: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7972:
7965:
7966:
7967: IF l_debug_mode = 'Y' THEN
7968: pa_debug.g_err_stage:='Invalid Arguments Passed';
7969: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7970: END IF;
7971: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7972:
7973: END IF;
7973: END IF;
7974:
7975:
7976: IF l_debug_mode = 'Y' THEN
7977: pa_debug.g_err_stage:='Fetching Function Security return codes';
7978: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7979: END IF;
7980: -- Fetching Function Security User Privelege for submit for baseline flag
7981: -- "Financials: Project: Budget: Submit Cost"
7974:
7975:
7976: IF l_debug_mode = 'Y' THEN
7977: pa_debug.g_err_stage:='Fetching Function Security return codes';
7978: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7979: END IF;
7980: -- Fetching Function Security User Privelege for submit for baseline flag
7981: -- "Financials: Project: Budget: Submit Cost"
7982: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost,
7988: p_object_key => P_project_id);
7989:
7990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7991: IF l_debug_mode = 'Y' THEN
7992: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
7993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7994: END IF;
7995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7996: END IF;
7989:
7990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7991: IF l_debug_mode = 'Y' THEN
7992: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
7993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7994: END IF;
7995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7996: END IF;
7997:
8004: p_object_name => 'PA_PROJECTS',
8005: p_object_key => P_project_id);
8006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8007: IF l_debug_mode = 'Y' THEN
8008: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8009: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8010: END IF;
8011: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8012: END IF;
8005: p_object_key => P_project_id);
8006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8007: IF l_debug_mode = 'Y' THEN
8008: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8009: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8010: END IF;
8011: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8012: END IF;
8013:
8020: p_object_name => 'PA_PROJECTS',
8021: p_object_key => P_project_id);
8022: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8023: IF l_debug_mode = 'Y' THEN
8024: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8025: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8026: END IF;
8027: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8028: END IF;
8021: p_object_key => P_project_id);
8022: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8023: IF l_debug_mode = 'Y' THEN
8024: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8025: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8026: END IF;
8027: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8028: END IF;
8029:
8036: p_object_name => 'PA_PROJECTS',
8037: p_object_key => P_project_id);
8038: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8039: IF l_debug_mode = 'Y' THEN
8040: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8041: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8042: END IF;
8043: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8044: END IF;
8037: p_object_key => P_project_id);
8038: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8039: IF l_debug_mode = 'Y' THEN
8040: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8041: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8042: END IF;
8043: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8044: END IF;
8045:
8052: p_object_name => 'PA_PROJECTS',
8053: p_object_key => P_project_id);
8054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8055: IF l_debug_mode = 'Y' THEN
8056: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8057: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8058: END IF;
8059: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8060: END IF;
8053: p_object_key => P_project_id);
8054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8055: IF l_debug_mode = 'Y' THEN
8056: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8057: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8058: END IF;
8059: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8060: END IF;
8061:
8068: p_object_name => 'PA_PROJECTS',
8069: p_object_key => P_project_id);
8070: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8075: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8076: END IF;
8069: p_object_key => P_project_id);
8070: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8075: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8076: END IF;
8077:
8075: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8076: END IF;
8077:
8078: IF l_debug_mode = 'Y' THEN
8079: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8080: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8081:
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8076: END IF;
8077:
8078: IF l_debug_mode = 'Y' THEN
8079: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8080: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8081:
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8084:
8078: IF l_debug_mode = 'Y' THEN
8079: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8080: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8081:
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8084:
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8079: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8080: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8081:
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8084:
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8087:
8081:
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8084:
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8087:
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8082: pa_debug.g_err_stage:='l_submit_cost: '||l_submit_cost;
8083: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8084:
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8087:
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8090:
8084:
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8087:
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8090:
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8085: pa_debug.g_err_stage:='l_submit_revenue: '||l_submit_revenue;
8086: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8087:
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8090:
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8093:
8087:
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8090:
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8093:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8088: pa_debug.g_err_stage:='l_submit_cost_appr: '||l_submit_cost_appr;
8089: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8090:
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8093:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8096:
8090:
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8093:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8096:
8097: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8098: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8091: pa_debug.g_err_stage:='l_submit_revenue_appr: '||l_submit_revenue_appr;
8092: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8093:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8096:
8097: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8098: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8099: END IF;
8093:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8096:
8097: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8098: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8099: END IF;
8100:
8101:
8094: pa_debug.g_err_stage:='l_submit_cost_forecast: '||l_submit_cost_forecast;
8095: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8096:
8097: pa_debug.g_err_stage:='l_submit_revenue_forecast: '||l_submit_revenue_forecast;
8098: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8099: END IF;
8100:
8101:
8102: IF l_debug_mode = 'Y' THEN
8099: END IF;
8100:
8101:
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Entering GET_PLAN_TYPES_FOR_IMPL';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8105: END IF;
8106:
8107: BEGIN
8100:
8101:
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Entering GET_PLAN_TYPES_FOR_IMPL';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8105: END IF;
8106:
8107: BEGIN
8108:
8114: EXCEPTION
8115: WHEN NO_DATA_FOUND THEN
8116:
8117: IF l_DEBUG_MODE = 'Y' THEN
8118: pa_debug.g_err_stage:='Error while fetching status of the CI';
8119: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8120: END IF;
8121: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8122: END;
8115: WHEN NO_DATA_FOUND THEN
8116:
8117: IF l_DEBUG_MODE = 'Y' THEN
8118: pa_debug.g_err_stage:='Error while fetching status of the CI';
8119: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8120: END IF;
8121: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8122: END;
8123:
8135:
8136:
8137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8138: IF l_debug_mode = 'Y' THEN
8139: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8140: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8141: END IF;
8142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8143: END IF;
8136:
8137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8138: IF l_debug_mode = 'Y' THEN
8139: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8140: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8141: END IF;
8142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8143: END IF;
8144:
8154: l_version_type:='REVENUE';
8155: END IF;
8156:
8157: IF l_debug_mode = 'Y' THEN
8158: pa_debug.g_err_stage:= 'l_version_type derived is '||l_version_type;
8159: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8160: END IF;
8161: */
8162:
8155: END IF;
8156:
8157: IF l_debug_mode = 'Y' THEN
8158: pa_debug.g_err_stage:= 'l_version_type derived is '||l_version_type;
8159: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8160: END IF;
8161: */
8162:
8163: x_autobaseline_project := Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id => p_project_id);
8187: X_msg_count => l_msg_count);
8188:
8189: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8190: IF l_debug_mode = 'Y' THEN
8191: pa_debug.g_err_stage:= 'Error in get_impl_details';
8192: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8193: END IF;
8194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8195: END IF;
8188:
8189: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8190: IF l_debug_mode = 'Y' THEN
8191: pa_debug.g_err_stage:= 'Error in get_impl_details';
8192: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8193: END IF;
8194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8195: END IF;
8196:
8271: X_msg_count => l_msg_count);
8272:
8273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8274: IF l_debug_mode = 'Y' THEN
8275: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8276: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8277: END IF;
8278: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8279: END IF;
8272:
8273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8274: IF l_debug_mode = 'Y' THEN
8275: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8276: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8277: END IF;
8278: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8279: END IF;
8280:
8367: END IF;
8368:
8369:
8370: IF l_debug_mode = 'Y' THEN
8371: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8372: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8373:
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8368:
8369:
8370: IF l_debug_mode = 'Y' THEN
8371: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8372: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8373:
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8376:
8370: IF l_debug_mode = 'Y' THEN
8371: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8372: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8373:
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8376:
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8371: pa_debug.g_err_stage:= 'Deriving x_disable Submit for Baseline';
8372: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8373:
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8376:
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8379:
8373:
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8376:
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8379:
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8374: pa_debug.g_err_stage:= 'l_render_impl_cost :'||l_render_impl_cost_tbl(i);
8375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8376:
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8379:
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8382:
8376:
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8379:
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8382:
8383: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8384: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8377: pa_debug.g_err_stage:= 'l_render_impl_revenue :'||l_render_impl_revenue_tbl(i);
8378: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8379:
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8382:
8383: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8384: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8385: END IF;
8379:
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8382:
8383: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8384: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8385: END IF;
8386:
8387: /*
8380: pa_debug.g_err_stage:= 'l_disable_impl_cost :'||l_disable_impl_cost_tbl(i);
8381: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8382:
8383: pa_debug.g_err_stage:= 'l_disable_impl_revenue :'||l_disable_impl_revenue_tbl(i);
8384: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8385: END IF;
8386:
8387: /*
8388: Submit For Baseline Disable Logic
8412: x_disable_baseline_flag_tbl(i) := 'Y';
8413: END IF;
8414:
8415: IF l_debug_mode = 'Y' THEN
8416: pa_debug.g_err_stage:= 'x_disable_baseline_flag_tbl : '||x_disable_baseline_flag_tbl(i);
8417: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8418: END IF;
8419: -- Bug 3735309 End of changes.
8420:
8413: END IF;
8414:
8415: IF l_debug_mode = 'Y' THEN
8416: pa_debug.g_err_stage:= 'x_disable_baseline_flag_tbl : '||x_disable_baseline_flag_tbl(i);
8417: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8418: END IF;
8419: -- Bug 3735309 End of changes.
8420:
8421: i := i + 1;
8422: END LOOP;
8423:
8424:
8425: IF l_debug_mode = 'Y' THEN
8426: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8427: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8428: END IF;
8429: pa_debug.reset_curr_function;
8430:
8423:
8424:
8425: IF l_debug_mode = 'Y' THEN
8426: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8427: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8428: END IF;
8429: pa_debug.reset_curr_function;
8430:
8431: EXCEPTION
8425: IF l_debug_mode = 'Y' THEN
8426: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPES_FOR_IMPL';
8427: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8428: END IF;
8429: pa_debug.reset_curr_function;
8430:
8431: EXCEPTION
8432: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8433: l_msg_count := FND_MSG_PUB.count_msg;
8449: x_msg_count := l_msg_count;
8450: END IF;
8451: x_return_status := FND_API.G_RET_STS_ERROR;
8452:
8453: pa_debug.reset_curr_function;
8454: RETURN;
8455:
8456: WHEN Others THEN
8457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8464:
8465: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8466: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8467: IF l_DEBUG_MODE = 'Y' THEN
8468: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8469: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8470: END IF;
8471: pa_debug.reset_curr_function;
8472: RAISE;
8465: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8466: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8467: IF l_DEBUG_MODE = 'Y' THEN
8468: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8469: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8470: END IF;
8471: pa_debug.reset_curr_function;
8472: RAISE;
8473:
8467: IF l_DEBUG_MODE = 'Y' THEN
8468: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8469: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8470: END IF;
8471: pa_debug.reset_curr_function;
8472: RAISE;
8473:
8474:
8475: END GET_PLAN_TYPES_FOR_IMPL;
8583: l_current_working_flag Pa_budget_versions.current_working_flag%TYPE; -- Bug 3732446
8584:
8585: BEGIN
8586:
8587: pa_debug.set_curr_function( p_function => 'GET_IMPL_DETAILS',
8588: p_debug_mode => P_PA_debug_mode );
8589:
8590:
8591: x_msg_count := 0;
8584:
8585: BEGIN
8586:
8587: pa_debug.set_curr_function( p_function => 'GET_IMPL_DETAILS',
8588: p_debug_mode => P_PA_debug_mode );
8589:
8590:
8591: x_msg_count := 0;
8592: x_return_status := FND_API.G_RET_STS_SUCCESS;
8597: IF (p_project_id IS NULL) OR (p_ci_id IS NULL) OR (p_fin_plan_type_id IS NULL)
8598: THEN
8599:
8600:
8601: IF P_PA_debug_mode = 'Y' THEN
8602: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8603: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8598: THEN
8599:
8600:
8601: IF P_PA_debug_mode = 'Y' THEN
8602: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8603: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8599:
8600:
8601: IF P_PA_debug_mode = 'Y' THEN
8602: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8603: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8607:
8601: IF P_PA_debug_mode = 'Y' THEN
8602: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8603: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8607:
8608: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8609: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8602: pa_debug.g_err_stage:='Project_id = '||p_project_id;
8603: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8607:
8608: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8609: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8610:
8604:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8607:
8608: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8609: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8610:
8611: END IF;
8612:
8605: pa_debug.g_err_stage:='Ci_id = '||p_ci_id;
8606: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8607:
8608: pa_debug.g_err_stage:='p_fin_plan_type_id = '||p_fin_plan_type_id;
8609: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8610:
8611: END IF;
8612:
8613:
8616: p_token1 => l_token_name,
8617: p_value1 => l_mod_name);
8618:
8619:
8620: IF P_PA_debug_mode = 'Y' THEN
8621: pa_debug.g_err_stage:='Invalid Arguments Passed';
8622: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8623: END IF;
8624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8617: p_value1 => l_mod_name);
8618:
8619:
8620: IF P_PA_debug_mode = 'Y' THEN
8621: pa_debug.g_err_stage:='Invalid Arguments Passed';
8622: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8623: END IF;
8624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8625:
8618:
8619:
8620: IF P_PA_debug_mode = 'Y' THEN
8621: pa_debug.g_err_stage:='Invalid Arguments Passed';
8622: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8623: END IF;
8624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8625:
8626: END IF;
8625:
8626: END IF;
8627:
8628:
8629: IF P_PA_debug_mode = 'Y' THEN
8630: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8631: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8632: END IF;
8633:
8626: END IF;
8627:
8628:
8629: IF P_PA_debug_mode = 'Y' THEN
8630: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8631: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8632: END IF;
8633:
8634: IF p_ci_status IS NULL OR p_ci_type_id IS NULL THEN
8627:
8628:
8629: IF P_PA_debug_mode = 'Y' THEN
8630: pa_debug.g_err_stage:= 'Entering GET_IMPL_DETAILS';
8631: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8632: END IF;
8633:
8634: IF p_ci_status IS NULL OR p_ci_type_id IS NULL THEN
8635: BEGIN
8681: x_msg_data => l_msg_data,
8682: X_msg_count => l_msg_count);
8683:
8684: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8685: IF P_PA_debug_mode = 'Y' THEN
8686: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8687: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8688: END IF;
8689: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8682: X_msg_count => l_msg_count);
8683:
8684: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8685: IF P_PA_debug_mode = 'Y' THEN
8686: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8687: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8688: END IF;
8689: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8690: END IF;
8683:
8684: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8685: IF P_PA_debug_mode = 'Y' THEN
8686: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8687: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8688: END IF;
8689: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8690: END IF;
8691: ELSE
8723: END IF;
8724:
8725: ELSE
8726:
8727: IF P_PA_debug_mode = 'Y' THEN
8728: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8729: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8730: END IF;
8731:
8724:
8725: ELSE
8726:
8727: IF P_PA_debug_mode = 'Y' THEN
8728: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8729: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8730: END IF;
8731:
8732: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
8725: ELSE
8726:
8727: IF P_PA_debug_mode = 'Y' THEN
8728: pa_debug.g_err_stage:= 'Calling GET_CURR_WORKING_VERSION_IDS';
8729: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8730: END IF;
8731:
8732: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
8733: ,P_project_id => p_project_id
8739: ,X_msg_count => l_msg_count);
8740:
8741:
8742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8743: IF P_PA_debug_mode = 'Y' THEN
8744: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8746: END IF;
8747: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8740:
8741:
8742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8743: IF P_PA_debug_mode = 'Y' THEN
8744: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8746: END IF;
8747: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8748: END IF;
8741:
8742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8743: IF P_PA_debug_mode = 'Y' THEN
8744: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8746: END IF;
8747: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8748: END IF;
8749: END IF;
8882: AND fin_plan_type_id = p_fin_plan_type_id;
8883:
8884: EXCEPTION
8885: WHEN NO_DATA_FOUND THEN
8886: IF P_PA_debug_mode = 'Y' THEN
8887: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
8888: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8889: END IF;
8890: RAISE ;
8883:
8884: EXCEPTION
8885: WHEN NO_DATA_FOUND THEN
8886: IF P_PA_debug_mode = 'Y' THEN
8887: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
8888: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8889: END IF;
8890: RAISE ;
8891: END;
8884: EXCEPTION
8885: WHEN NO_DATA_FOUND THEN
8886: IF P_PA_debug_mode = 'Y' THEN
8887: pa_debug.g_err_stage:='No data found while getting approved_rev_plan_type_flag ';
8888: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8889: END IF;
8890: RAISE ;
8891: END;
8892: ELSE
8905: x_msg_count => l_msg_count,
8906: x_return_status => l_return_status);
8907:
8908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8909: IF P_PA_debug_mode = 'Y' THEN
8910: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8911: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8912: END IF;
8913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8906: x_return_status => l_return_status);
8907:
8908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8909: IF P_PA_debug_mode = 'Y' THEN
8910: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8911: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8912: END IF;
8913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8914: END IF;
8907:
8908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8909: IF P_PA_debug_mode = 'Y' THEN
8910: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8911: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8912: END IF;
8913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8914: END IF;
8915:
8949: l_rev_budget_version_id); */
8950:
8951: EXCEPTION
8952: WHEN NO_DATA_FOUND THEN
8953: IF P_PA_debug_mode = 'Y' THEN
8954: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
8955: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8956: END IF;
8957: RAISE ;
8950:
8951: EXCEPTION
8952: WHEN NO_DATA_FOUND THEN
8953: IF P_PA_debug_mode = 'Y' THEN
8954: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
8955: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8956: END IF;
8957: RAISE ;
8958: END;
8951: EXCEPTION
8952: WHEN NO_DATA_FOUND THEN
8953: IF P_PA_debug_mode = 'Y' THEN
8954: pa_debug.g_err_stage:='get rev_partially_impl_flag - NO_DATA_FOUND ';
8955: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8956: END IF;
8957: RAISE ;
8958: END;
8959:
8970: AND PLAN_VERSION_ID = decode(nvl(l_rev_budget_version_id,-1),-1,l_all_budget_version_id
8971: ,l_rev_budget_version_id));
8972: EXCEPTION
8973: WHEN NO_DATA_FOUND THEN
8974: IF P_PA_debug_mode = 'Y' THEN
8975: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
8976: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8977: END IF;
8978: l_rev_impl_full := 'N';
8971: ,l_rev_budget_version_id));
8972: EXCEPTION
8973: WHEN NO_DATA_FOUND THEN
8974: IF P_PA_debug_mode = 'Y' THEN
8975: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
8976: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8977: END IF;
8978: l_rev_impl_full := 'N';
8979: END;
8972: EXCEPTION
8973: WHEN NO_DATA_FOUND THEN
8974: IF P_PA_debug_mode = 'Y' THEN
8975: pa_debug.g_err_stage:='Deriving rev partial flag - Rev not yet implemented';
8976: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8977: END IF;
8978: l_rev_impl_full := 'N';
8979: END;
8980:
8987: FROM PA_FIN_PLAN_TYPES_B
8988: WHERE fin_plan_type_id = p_fin_plan_type_id;
8989: EXCEPTION
8990: WHEN NO_DATA_FOUND THEN
8991: IF P_PA_debug_mode = 'Y' THEN
8992: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
8993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8994: END IF;
8995: RAISE;
8988: WHERE fin_plan_type_id = p_fin_plan_type_id;
8989: EXCEPTION
8990: WHEN NO_DATA_FOUND THEN
8991: IF P_PA_debug_mode = 'Y' THEN
8992: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
8993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8994: END IF;
8995: RAISE;
8996: END;
8989: EXCEPTION
8990: WHEN NO_DATA_FOUND THEN
8991: IF P_PA_debug_mode = 'Y' THEN
8992: pa_debug.g_err_stage:='Deriving rev partial flag : Record not found for plan type';
8993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8994: END IF;
8995: RAISE;
8996: END;
8997: END IF;
9048: -- Status does not allow revenue implementation
9049: X_rev_impl_flag := 'H';
9050: END IF;
9051:
9052: IF P_PA_debug_mode = 'Y' THEN
9053: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9054: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9055: END IF;
9056:
9049: X_rev_impl_flag := 'H';
9050: END IF;
9051:
9052: IF P_PA_debug_mode = 'Y' THEN
9053: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9054: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9055: END IF;
9056:
9057: pa_debug.reset_curr_function;
9050: END IF;
9051:
9052: IF P_PA_debug_mode = 'Y' THEN
9053: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9054: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9055: END IF;
9056:
9057: pa_debug.reset_curr_function;
9058:
9053: pa_debug.g_err_stage:= 'Exiting GET_IMPL_DETAILS';
9054: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
9055: END IF;
9056:
9057: pa_debug.reset_curr_function;
9058:
9059: EXCEPTION
9060: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9061: l_msg_count := FND_MSG_PUB.count_msg;
9074: x_msg_count := l_msg_count;
9075: END IF;
9076: x_return_status := FND_API.G_RET_STS_ERROR;
9077:
9078: pa_debug.reset_curr_function;
9079: RETURN;
9080:
9081: WHEN Others THEN
9082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9084: x_msg_data := SQLERRM;
9085:
9086: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9087: ,p_procedure_name => 'GET_IMPL_DETAILS');
9088: IF P_PA_DEBUG_MODE = 'Y' THEN
9089: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9090: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9091: END IF;
9092: pa_debug.reset_curr_function;
9085:
9086: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9087: ,p_procedure_name => 'GET_IMPL_DETAILS');
9088: IF P_PA_DEBUG_MODE = 'Y' THEN
9089: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9090: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9091: END IF;
9092: pa_debug.reset_curr_function;
9093: RAISE;
9086: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9087: ,p_procedure_name => 'GET_IMPL_DETAILS');
9088: IF P_PA_DEBUG_MODE = 'Y' THEN
9089: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9090: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9091: END IF;
9092: pa_debug.reset_curr_function;
9093: RAISE;
9094:
9088: IF P_PA_DEBUG_MODE = 'Y' THEN
9089: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9090: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9091: END IF;
9092: pa_debug.reset_curr_function;
9093: RAISE;
9094:
9095: END GET_IMPL_DETAILS;
9096:
9179: AND plan_version_id=c_app_cw_ver_id
9180: AND ci_plan_version_id=c_ci_version_id
9181: AND version_type=c_version_type);
9182: BEGIN
9183: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9184: l_debug_mode := NVL(l_debug_mode, 'Y');
9185: x_msg_count := 0;
9186: x_return_status := FND_API.G_RET_STS_SUCCESS;
9187: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9183: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9184: l_debug_mode := NVL(l_debug_mode, 'Y');
9185: x_msg_count := 0;
9186: x_return_status := FND_API.G_RET_STS_SUCCESS;
9187: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9188: p_debug_mode => l_debug_mode );
9189:
9190: IF p_ci_id IS NULL OR
9191: p_project_id IS NULL THEN
9190: IF p_ci_id IS NULL OR
9191: p_project_id IS NULL THEN
9192:
9193: IF l_debug_mode = 'Y' THEN
9194: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9196:
9197: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9198: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9191: p_project_id IS NULL THEN
9192:
9193: IF l_debug_mode = 'Y' THEN
9194: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9196:
9197: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9198: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9199:
9193: IF l_debug_mode = 'Y' THEN
9194: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9196:
9197: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9198: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9199:
9200: END IF;
9201:
9194: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9196:
9197: pa_debug.g_err_stage:= 'Passed p_ci_id is '||p_ci_id;
9198: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9199:
9200: END IF;
9201:
9202: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9224:
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226:
9227: IF l_debug_mode = 'Y' THEN
9228: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9229: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9230: END IF;
9231:
9232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226:
9227: IF l_debug_mode = 'Y' THEN
9228: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9229: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9230: END IF;
9231:
9232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9233:
9240:
9241: END IF;
9242:
9243: IF l_debug_mode = 'Y' THEN
9244: pa_debug.g_err_stage:='Getting project currency code';
9245: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9246: END IF;
9247:
9248:
9241: END IF;
9242:
9243: IF l_debug_mode = 'Y' THEN
9244: pa_debug.g_err_stage:='Getting project currency code';
9245: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9246: END IF;
9247:
9248:
9249: --Get the project currency code
9252: FROM pa_projects_all
9253: WHERE project_id=p_project_id;
9254:
9255: IF l_debug_mode = 'Y' THEN
9256: pa_debug.g_err_stage:='Getting ci status code';
9257: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9258: END IF;
9259:
9260: --Get the CI status code
9253: WHERE project_id=p_project_id;
9254:
9255: IF l_debug_mode = 'Y' THEN
9256: pa_debug.g_err_stage:='Getting ci status code';
9257: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9258: END IF;
9259:
9260: --Get the CI status code
9261: SELECT pps.project_system_status_code
9267:
9268: --Derive the value for x_impact_in_mc_flag. This should be 'Y' if either COST or REVENUE impact is
9269: --defined in multiple currencies
9270: IF l_debug_mode = 'Y' THEN
9271: pa_debug.g_err_stage:='Getting impact is mc flag';
9272: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9273: END IF;
9274:
9275: IF NVL(l_cost_ci_version_id,NVL(l_all_ci_version_id,l_rev_ci_version_id)) <>
9268: --Derive the value for x_impact_in_mc_flag. This should be 'Y' if either COST or REVENUE impact is
9269: --defined in multiple currencies
9270: IF l_debug_mode = 'Y' THEN
9271: pa_debug.g_err_stage:='Getting impact is mc flag';
9272: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9273: END IF;
9274:
9275: IF NVL(l_cost_ci_version_id,NVL(l_all_ci_version_id,l_rev_ci_version_id)) <>
9276: NVL(l_rev_ci_version_id,NVL(l_all_ci_version_id,l_cost_ci_version_id)) THEN
9309:
9310: END IF;
9311:
9312: IF l_debug_mode = 'Y' THEN
9313: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9314: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9315: END IF;
9316:
9317: --Call the API that will return the approved cost/rev current working version ids for the project
9310: END IF;
9311:
9312: IF l_debug_mode = 'Y' THEN
9313: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9314: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9315: END IF;
9316:
9317: --Call the API that will return the approved cost/rev current working version ids for the project
9318: IF p_budget_version_id IS NULL THEN
9317: --Call the API that will return the approved cost/rev current working version ids for the project
9318: IF p_budget_version_id IS NULL THEN
9319:
9320: IF l_debug_mode = 'Y' THEN
9321: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9322: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9323: END IF;
9324:
9325:
9318: IF p_budget_version_id IS NULL THEN
9319:
9320: IF l_debug_mode = 'Y' THEN
9321: pa_debug.g_err_stage:='Getting app cost/rev current working version ids';
9322: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9323: END IF;
9324:
9325:
9326: pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj
9333:
9334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9335:
9336: IF l_debug_mode = 'Y' THEN
9337: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9338: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9339: END IF;
9340:
9341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9335:
9336: IF l_debug_mode = 'Y' THEN
9337: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9338: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9339: END IF;
9340:
9341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9342:
9357:
9358: ELSE
9359:
9360: IF l_debug_mode = 'Y' THEN
9361: pa_debug.g_err_stage:='Getting the version type for the budget version id passed';
9362: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9363: END IF;
9364:
9365: --Select the version details of the budget version id passed
9358: ELSE
9359:
9360: IF l_debug_mode = 'Y' THEN
9361: pa_debug.g_err_stage:='Getting the version type for the budget version id passed';
9362: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9363: END IF;
9364:
9365: --Select the version details of the budget version id passed
9366: SELECT pbv.version_type,
9419:
9420: --x_cost_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9421: --x_rev_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9422: IF l_debug_mode = 'Y' THEN
9423: pa_debug.g_err_stage:='Deriving x_cost_impl_into_app_cw_ver and x_rev_impl_into_app_cw_ver';
9424: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9425: END IF;
9426:
9427: IF NVL(l_cost_ci_version_id,l_all_ci_version_id) IS NOT NULL THEN
9420: --x_cost_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9421: --x_rev_impl_into_app_cw_ver should be Y if the change doc has got implemented into app_cw_ver
9422: IF l_debug_mode = 'Y' THEN
9423: pa_debug.g_err_stage:='Deriving x_cost_impl_into_app_cw_ver and x_rev_impl_into_app_cw_ver';
9424: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9425: END IF;
9426:
9427: IF NVL(l_cost_ci_version_id,l_all_ci_version_id) IS NOT NULL THEN
9428:
9462:
9463: END IF;
9464:
9465: IF l_debug_mode = 'Y' THEN
9466: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9467: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9468:
9469: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9470: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9463: END IF;
9464:
9465: IF l_debug_mode = 'Y' THEN
9466: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9467: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9468:
9469: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9470: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9471:
9465: IF l_debug_mode = 'Y' THEN
9466: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9467: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9468:
9469: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9470: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9471:
9472: END IF;
9473:
9466: pa_debug.g_err_stage:='x_cost_impl_into_app_cw_ver is '||x_cost_impl_into_app_cw_ver;
9467: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9468:
9469: pa_debug.g_err_stage:='x_rev_impl_into_app_cw_ver is '||x_rev_impl_into_app_cw_ver;
9470: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9471:
9472: END IF;
9473:
9474: --For bug 3957561
9479: WHERE ci_id=p_ci_id
9480: AND ci.ci_type_id=ct.ci_type_id;
9481:
9482: IF l_debug_mode = 'Y' THEN
9483: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9484: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9485:
9486: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9487: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9480: AND ci.ci_type_id=ct.ci_type_id;
9481:
9482: IF l_debug_mode = 'Y' THEN
9483: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9484: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9485:
9486: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9487: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9488:
9482: IF l_debug_mode = 'Y' THEN
9483: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9484: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9485:
9486: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9487: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9488:
9489: END IF;
9490:
9483: pa_debug.g_err_stage:='x_ci_number is '||x_ci_number;
9484: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9485:
9486: pa_debug.g_err_stage:='x_ci_type is '||x_ci_type;
9487: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9488:
9489: END IF;
9490:
9491: --End of bug 3957561
9490:
9491: --End of bug 3957561
9492:
9493: IF l_debug_mode = 'Y' THEN
9494: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9496: END IF;
9497:
9498: pa_debug.reset_curr_function;
9491: --End of bug 3957561
9492:
9493: IF l_debug_mode = 'Y' THEN
9494: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9496: END IF;
9497:
9498: pa_debug.reset_curr_function;
9499:
9494: pa_debug.g_err_stage:='Exiting get_dtls_for_view_fin_imp_pg';
9495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9496: END IF;
9497:
9498: pa_debug.reset_curr_function;
9499:
9500: EXCEPTION
9501:
9502: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9516:
9517: x_msg_count := l_msg_count;
9518: END IF;
9519: x_return_status := FND_API.G_RET_STS_ERROR;
9520: pa_debug.reset_curr_function;
9521:
9522: WHEN OTHERS THEN
9523:
9524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9527: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9528: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9529:
9530: IF l_debug_mode = 'Y' THEN
9531: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9533: END IF;
9534:
9535: pa_debug.reset_curr_function;
9528: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9529:
9530: IF l_debug_mode = 'Y' THEN
9531: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9533: END IF;
9534:
9535: pa_debug.reset_curr_function;
9536: RAISE;
9531: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9533: END IF;
9534:
9535: pa_debug.reset_curr_function;
9536: RAISE;
9537:
9538: END get_dtls_for_view_fin_imp_pg;
9539:
9576:
9577: l_app_cw_ver_rec c_app_cw_ver_csr%ROWTYPE;
9578:
9579: BEGIN
9580: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9581: l_debug_mode := NVL(l_debug_mode, 'Y');
9582: x_msg_count := 0;
9583: x_return_status := FND_API.G_RET_STS_SUCCESS;
9584: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9580: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9581: l_debug_mode := NVL(l_debug_mode, 'Y');
9582: x_msg_count := 0;
9583: x_return_status := FND_API.G_RET_STS_SUCCESS;
9584: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9585: p_debug_mode => l_debug_mode );
9586:
9587: IF p_project_id IS NULL THEN
9588:
9586:
9587: IF p_project_id IS NULL THEN
9588:
9589: IF l_debug_mode = 'Y' THEN
9590: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9591: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9592:
9593: END IF;
9594:
9587: IF p_project_id IS NULL THEN
9588:
9589: IF l_debug_mode = 'Y' THEN
9590: pa_debug.g_err_stage:= 'Passed project id is '||p_project_id;
9591: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9592:
9593: END IF;
9594:
9595: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9601:
9602: END IF;
9603:
9604: IF l_debug_mode = 'Y' THEN
9605: pa_debug.g_err_stage:='About to derive the CW ver ids';
9606: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9607: END IF;
9608:
9609: x_app_cost_cw_ver_id:=NULL;
9602: END IF;
9603:
9604: IF l_debug_mode = 'Y' THEN
9605: pa_debug.g_err_stage:='About to derive the CW ver ids';
9606: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9607: END IF;
9608:
9609: x_app_cost_cw_ver_id:=NULL;
9610: x_app_cost_cw_ver_id:=NULL;
9630:
9631:
9632: IF l_debug_mode = 'Y' THEN
9633:
9634: 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;
9635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9636:
9637: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9631:
9632: IF l_debug_mode = 'Y' THEN
9633:
9634: 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;
9635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9636:
9637: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9639: END IF;
9633:
9634: 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;
9635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9636:
9637: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9639: END IF;
9640:
9641: pa_debug.reset_curr_function;
9634: 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;
9635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9636:
9637: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9639: END IF;
9640:
9641: pa_debug.reset_curr_function;
9642:
9637: pa_debug.g_err_stage:='Exiting get_app_cw_ver_ids_for_proj';
9638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9639: END IF;
9640:
9641: pa_debug.reset_curr_function;
9642:
9643: EXCEPTION
9644:
9645: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9662:
9663: x_msg_count := l_msg_count;
9664: END IF;
9665: x_return_status := FND_API.G_RET_STS_ERROR;
9666: pa_debug.reset_curr_function;
9667:
9668: WHEN OTHERS THEN
9669:
9670: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905 by vvjoshi
9675: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9676: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9677:
9678: IF l_debug_mode = 'Y' THEN
9679: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9680: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9681: END IF;
9682: pa_debug.reset_curr_function;
9683: RAISE;
9676: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9677:
9678: IF l_debug_mode = 'Y' THEN
9679: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9680: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9681: END IF;
9682: pa_debug.reset_curr_function;
9683: RAISE;
9684:
9678: IF l_debug_mode = 'Y' THEN
9679: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9680: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9681: END IF;
9682: pa_debug.reset_curr_function;
9683: RAISE;
9684:
9685: END get_app_cw_ver_ids_for_proj;
9686:
9704:
9705:
9706:
9707: BEGIN
9708: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9709:
9710: IF l_debug_mode = 'Y' THEN
9711: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9707: BEGIN
9708: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9709:
9710: IF l_debug_mode = 'Y' THEN
9711: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9713: END IF;
9714: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9715: p_debug_mode => l_debug_mode );
9708: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9709:
9710: IF l_debug_mode = 'Y' THEN
9711: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9713: END IF;
9714: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9715: p_debug_mode => l_debug_mode );
9716:
9710: IF l_debug_mode = 'Y' THEN
9711: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9713: END IF;
9714: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9715: p_debug_mode => l_debug_mode );
9716:
9717: -- Throwing error if the inputs are Null
9718: IF p_project_id IS NULL OR
9717: -- Throwing error if the inputs are Null
9718: IF p_project_id IS NULL OR
9719: p_ci_id IS NULL THEN
9720: IF l_debug_mode = 'Y' THEN
9721: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9722: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9723: END IF;
9724: pa_debug.reset_curr_function;
9725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9718: IF p_project_id IS NULL OR
9719: p_ci_id IS NULL THEN
9720: IF l_debug_mode = 'Y' THEN
9721: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9722: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9723: END IF;
9724: pa_debug.reset_curr_function;
9725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9726: END IF;
9720: IF l_debug_mode = 'Y' THEN
9721: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9722: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9723: END IF;
9724: pa_debug.reset_curr_function;
9725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9726: END IF;
9727:
9728: BEGIN
9745:
9746: EXCEPTION
9747: WHEN NO_DATA_FOUND THEN
9748: IF l_debug_mode = 'Y' THEN
9749: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9751: END IF;
9752: pa_debug.reset_curr_function;
9753:
9746: EXCEPTION
9747: WHEN NO_DATA_FOUND THEN
9748: IF l_debug_mode = 'Y' THEN
9749: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9751: END IF;
9752: pa_debug.reset_curr_function;
9753:
9754: RETURN l_impl_agr_rev_amt;
9748: IF l_debug_mode = 'Y' THEN
9749: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9750: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9751: END IF;
9752: pa_debug.reset_curr_function;
9753:
9754: RETURN l_impl_agr_rev_amt;
9755:
9756: WHEN OTHERS THEN
9754: RETURN l_impl_agr_rev_amt;
9755:
9756: WHEN OTHERS THEN
9757: IF l_debug_mode = 'Y' THEN
9758: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9759: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9760: END IF;
9761: pa_debug.reset_curr_function;
9762: RAISE;
9755:
9756: WHEN OTHERS THEN
9757: IF l_debug_mode = 'Y' THEN
9758: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9759: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9760: END IF;
9761: pa_debug.reset_curr_function;
9762: RAISE;
9763: END;
9757: IF l_debug_mode = 'Y' THEN
9758: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9759: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9760: END IF;
9761: pa_debug.reset_curr_function;
9762: RAISE;
9763: END;
9764: IF l_debug_mode = 'Y' THEN
9765: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9761: pa_debug.reset_curr_function;
9762: RAISE;
9763: END;
9764: IF l_debug_mode = 'Y' THEN
9765: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9767: END IF;
9768:
9769: BEGIN
9762: RAISE;
9763: END;
9764: IF l_debug_mode = 'Y' THEN
9765: pa_debug.g_err_stage:='Rev Current Working version id: ' || l_cw_bv_id;
9766: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9767: END IF;
9768:
9769: BEGIN
9770: -- Selecting the revenue amount implemeted in agreement currency
9779:
9780: EXCEPTION
9781: WHEN NO_DATA_FOUND THEN
9782: IF l_debug_mode = 'Y' THEN
9783: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9784: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9785: END IF;
9786: pa_debug.reset_curr_function;
9787:
9780: EXCEPTION
9781: WHEN NO_DATA_FOUND THEN
9782: IF l_debug_mode = 'Y' THEN
9783: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9784: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9785: END IF;
9786: pa_debug.reset_curr_function;
9787:
9788: RETURN l_impl_agr_rev_amt;
9782: IF l_debug_mode = 'Y' THEN
9783: pa_debug.g_err_stage:='No Rev Current Working Version Exists';
9784: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9785: END IF;
9786: pa_debug.reset_curr_function;
9787:
9788: RETURN l_impl_agr_rev_amt;
9789: WHEN OTHERS THEN
9790: IF l_debug_mode = 'Y' THEN
9787:
9788: RETURN l_impl_agr_rev_amt;
9789: WHEN OTHERS THEN
9790: IF l_debug_mode = 'Y' THEN
9791: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9792: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9793: END IF;
9794: pa_debug.reset_curr_function;
9795: RAISE;
9788: RETURN l_impl_agr_rev_amt;
9789: WHEN OTHERS THEN
9790: IF l_debug_mode = 'Y' THEN
9791: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9792: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9793: END IF;
9794: pa_debug.reset_curr_function;
9795: RAISE;
9796: END;
9790: IF l_debug_mode = 'Y' THEN
9791: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9792: pa_debug.write(l_module_name || g_module_name,pa_debug.g_err_stage,5);
9793: END IF;
9794: pa_debug.reset_curr_function;
9795: RAISE;
9796: END;
9797:
9798: IF l_debug_mode = 'Y' THEN
9795: RAISE;
9796: END;
9797:
9798: IF l_debug_mode = 'Y' THEN
9799: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9801: END IF;
9802:
9803: pa_debug.reset_curr_function;
9796: END;
9797:
9798: IF l_debug_mode = 'Y' THEN
9799: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9801: END IF;
9802:
9803: pa_debug.reset_curr_function;
9804:
9799: pa_debug.g_err_stage:='Agr Revenue Amount: ' || l_impl_agr_rev_amt;
9800: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9801: END IF;
9802:
9803: pa_debug.reset_curr_function;
9804:
9805: RETURN l_impl_agr_rev_amt;
9806:
9807: EXCEPTION
9815: ,p_msg_data => l_msg_data
9816: ,p_data => l_data
9817: ,p_msg_index_out => l_msg_index_out);
9818: END IF;
9819: pa_debug.reset_curr_function;
9820:
9821: WHEN OTHERS THEN
9822: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9823: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9822: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9823: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9824:
9825: IF l_debug_mode = 'Y' THEN
9826: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9828: END IF;
9829: pa_debug.reset_curr_function;
9830: RAISE;
9823: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9824:
9825: IF l_debug_mode = 'Y' THEN
9826: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9828: END IF;
9829: pa_debug.reset_curr_function;
9830: RAISE;
9831: END get_impl_agr_revenue;
9825: IF l_debug_mode = 'Y' THEN
9826: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9828: END IF;
9829: pa_debug.reset_curr_function;
9830: RAISE;
9831: END get_impl_agr_revenue;
9832:
9833: /* Function returns 'Y' if the change order has been implemented/included into ANY budget version. */
9875: x_msg_count := 0;
9876: x_return_status := FND_API.G_RET_STS_SUCCESS;
9877:
9878: -- Set curr function
9879: pa_debug.set_curr_function(
9880: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
9881: ,p_debug_mode => P_PA_DEBUG_MODE );
9882:
9883: -- Validate input parameters
9877:
9878: -- Set curr function
9879: pa_debug.set_curr_function(
9880: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
9881: ,p_debug_mode => P_PA_DEBUG_MODE );
9882:
9883: -- Validate input parameters
9884: IF P_PA_DEBUG_MODE = 'Y' THEN
9885: pa_debug.g_err_stage:='Validating input parameters';
9880: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
9881: ,p_debug_mode => P_PA_DEBUG_MODE );
9882:
9883: -- Validate input parameters
9884: IF P_PA_DEBUG_MODE = 'Y' THEN
9885: pa_debug.g_err_stage:='Validating input parameters';
9886: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
9887: END IF;
9888:
9881: ,p_debug_mode => P_PA_DEBUG_MODE );
9882:
9883: -- Validate input parameters
9884: IF P_PA_DEBUG_MODE = 'Y' THEN
9885: pa_debug.g_err_stage:='Validating input parameters';
9886: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
9887: END IF;
9888:
9889:
9882:
9883: -- Validate input parameters
9884: IF P_PA_DEBUG_MODE = 'Y' THEN
9885: pa_debug.g_err_stage:='Validating input parameters';
9886: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,3);
9887: END IF;
9888:
9889:
9890: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
9889:
9890: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
9891: THEN
9892:
9893: IF P_PA_DEBUG_MODE = 'Y' THEN
9894: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
9895: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9896:
9897: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
9890: IF (p_project_id IS NULL) OR (p_ci_id IS NULL)
9891: THEN
9892:
9893: IF P_PA_DEBUG_MODE = 'Y' THEN
9894: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
9895: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9896:
9897: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
9898: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9891: THEN
9892:
9893: IF P_PA_DEBUG_MODE = 'Y' THEN
9894: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
9895: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9896:
9897: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
9898: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9899: END IF;
9893: IF P_PA_DEBUG_MODE = 'Y' THEN
9894: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
9895: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9896:
9897: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
9898: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9899: END IF;
9900:
9901: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
9894: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
9895: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9896:
9897: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
9898: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9899: END IF;
9900:
9901: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
9902: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9923: AND rac.budget_version_id = bv.budget_version_id
9924: AND rownum=1;
9925:
9926: -- reset curr function
9927: pa_debug.reset_curr_function();
9928:
9929: Exception
9930: When no_data_found Then
9931: -- reset curr function
9928:
9929: Exception
9930: When no_data_found Then
9931: -- reset curr function
9932: pa_debug.reset_curr_function();
9933: End;
9934:
9935: EXCEPTION
9936: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9950:
9951: x_msg_count := l_msg_count;
9952: END IF;
9953: x_return_status := FND_API.G_RET_STS_ERROR;
9954: pa_debug.reset_curr_function;
9955: WHEN Others THEN
9956:
9957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9958: x_msg_count := 1;
9960:
9961: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9962: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
9963:
9964: IF P_PA_DEBUG_MODE = 'Y' THEN
9965: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9966: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9967: END IF;
9968:
9961: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9962: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
9963:
9964: IF P_PA_DEBUG_MODE = 'Y' THEN
9965: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9966: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9967: END IF;
9968:
9969: -- reset curr function
9962: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
9963:
9964: IF P_PA_DEBUG_MODE = 'Y' THEN
9965: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9966: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9967: END IF;
9968:
9969: -- reset curr function
9970: pa_debug.Reset_Curr_Function();
9966: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
9967: END IF;
9968:
9969: -- reset curr function
9970: pa_debug.Reset_Curr_Function();
9971:
9972: RAISE;
9973:
9974: END get_txn_curr_code_of_ci_ver;
9990:
9991: is_delete_allowed VARCHAR2(1) := 'Y';
9992:
9993: BEGIN
9994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9995:
9996: IF l_debug_mode = 'Y' THEN
9997: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
9998: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9993: BEGIN
9994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9995:
9996: IF l_debug_mode = 'Y' THEN
9997: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
9998: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9999: END IF;
10000: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10001: p_debug_mode => l_debug_mode );
9994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9995:
9996: IF l_debug_mode = 'Y' THEN
9997: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
9998: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9999: END IF;
10000: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10001: p_debug_mode => l_debug_mode );
10002:
9996: IF l_debug_mode = 'Y' THEN
9997: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
9998: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9999: END IF;
10000: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10001: p_debug_mode => l_debug_mode );
10002:
10003: IF l_debug_mode = 'Y' THEN
10004: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10000: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10001: p_debug_mode => l_debug_mode );
10002:
10003: IF l_debug_mode = 'Y' THEN
10004: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10005: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10006: END IF;
10007:
10008: IF p_ci_type_id IS NULL THEN
10001: p_debug_mode => l_debug_mode );
10002:
10003: IF l_debug_mode = 'Y' THEN
10004: pa_debug.g_err_stage:='Entering validate_fp_ci_type_delete';
10005: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10006: END IF;
10007:
10008: IF p_ci_type_id IS NULL THEN
10009: IF l_debug_mode = 'Y' THEN
10006: END IF;
10007:
10008: IF p_ci_type_id IS NULL THEN
10009: IF l_debug_mode = 'Y' THEN
10010: pa_debug.g_err_stage:='Input p_ci_type_id is NULL';
10011: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10012: END IF;
10013: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10014: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10007:
10008: IF p_ci_type_id IS NULL THEN
10009: IF l_debug_mode = 'Y' THEN
10010: pa_debug.g_err_stage:='Input p_ci_type_id is NULL';
10011: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10012: END IF;
10013: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10014: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10015: p_token1 => 'PROCEDURENAME',
10013: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10014: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10015: p_token1 => 'PROCEDURENAME',
10016: p_value1 => 'PAFPCIUB.validate_fp_ci_type_delete');
10017: pa_debug.reset_curr_function;
10018: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10019: END IF;
10020:
10021: IF l_debug_mode = 'Y' THEN
10018: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10019: END IF;
10020:
10021: IF l_debug_mode = 'Y' THEN
10022: pa_debug.g_err_stage:='Checkin if delete allowed';
10023: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10024: END IF;
10025:
10026: BEGIN
10019: END IF;
10020:
10021: IF l_debug_mode = 'Y' THEN
10022: pa_debug.g_err_stage:='Checkin if delete allowed';
10023: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10024: END IF;
10025:
10026: BEGIN
10027: SELECT 'N'
10035: RETURN is_delete_allowed;
10036: END;
10037:
10038: IF l_debug_mode = 'Y' THEN
10039: pa_debug.g_err_stage:='Check completed';
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10036: END;
10037:
10038: IF l_debug_mode = 'Y' THEN
10039: pa_debug.g_err_stage:='Check completed';
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10037:
10038: IF l_debug_mode = 'Y' THEN
10039: pa_debug.g_err_stage:='Check completed';
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10045: END IF;
10038: IF l_debug_mode = 'Y' THEN
10039: pa_debug.g_err_stage:='Check completed';
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10045: END IF;
10046:
10039: pa_debug.g_err_stage:='Check completed';
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10045: END IF;
10046:
10047: pa_debug.reset_curr_function;
10040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10041: pa_debug.g_err_stage:='Value returned: ' || is_delete_allowed;
10042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10045: END IF;
10046:
10047: pa_debug.reset_curr_function;
10048:
10043: pa_debug.g_err_stage:='Leaving validate_fp_ci_type_delete';
10044: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10045: END IF;
10046:
10047: pa_debug.reset_curr_function;
10048:
10049: RETURN is_delete_allowed;
10050:
10051: EXCEPTION
10059: ,p_msg_data => l_msg_data
10060: ,p_data => l_data
10061: ,p_msg_index_out => l_msg_index_out);
10062: END IF;
10063: pa_debug.reset_curr_function;
10064: WHEN OTHERS THEN
10065: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
10066: ,p_procedure_name => 'validate_fp_ci_type_delete');
10067:
10065: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
10066: ,p_procedure_name => 'validate_fp_ci_type_delete');
10067:
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10070: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: pa_debug.reset_curr_function;
10073: RAISE;
10066: ,p_procedure_name => 'validate_fp_ci_type_delete');
10067:
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10070: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: pa_debug.reset_curr_function;
10073: RAISE;
10074: END validate_fp_ci_type_delete;
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10070: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: pa_debug.reset_curr_function;
10073: RAISE;
10074: END validate_fp_ci_type_delete;
10075:
10076: END Pa_Fp_Control_Items_Utils;