[Home] [Help]
51: l_est_qty pa_budget_versions.est_quantity%TYPE;
52: l_est_equip_qty pa_budget_versions.est_equipment_quantity%TYPE;
53: l_est_proj_revenue pa_budget_versions.est_project_revenue%TYPE;
54:
55: l_approved_cost_plan_type_flag Pa_Proj_Fp_Options.APPROVED_COST_PLAN_TYPE_FLAG%TYPE; -- Added for bug 4907408
56:
57: -- Bug 5845142. Selected app cost/rev flags too.
58: CURSOR est_amt_csr
59: IS
97: pa_debug.g_err_stage:= 'p_agreement_number:'|| p_agreement_number;
98: pa_debug.write('Maintain_Ctrl_Item_Version',pa_debug.g_err_stage,3);
99: END IF;
100:
101: SELECT COUNT(*) INTO l_no_of_app_plan_types FROM Pa_Proj_Fp_Options
102: WHERE
103: Project_Id = p_project_id AND
104: Fin_Plan_Option_Level_Code = 'PLAN_TYPE' AND
105: ( NVL(Approved_Cost_Plan_Type_Flag ,'N') = 'Y' OR
113: *
114: *IF l_no_of_app_plan_types = 1 THEN
115: * SELECT approved_cost_plan_type_flag
116: * INTO l_approved_cost_plan_type_flag
117: * FROM pa_proj_fp_options
118: * WHERE project_id = p_project_id
119: * AND fin_plan_option_level_code = 'PLAN_TYPE'
120: * AND ( NVL(approved_cost_plan_type_flag,'N') = 'Y'
121: * OR
126: SELECT 'Y'
127: INTO l_approved_cost_plan_type_flag
128: FROM DUAL
129: WHERE EXISTS (SELECT 'X'
130: FROM pa_proj_fp_options
131: WHERE project_id = p_project_id
132: AND fin_plan_option_level_code = 'PLAN_TYPE'
133: AND approved_cost_plan_type_flag = 'Y');
134: EXCEPTION
442: SELECT DECODE(fin_plan_preference_code,
443: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,
444: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
445: INTO l_element_type
446: FROM pa_proj_fp_options
447: WHERE project_id=p_project_id
448: AND fin_plan_type_id=l_fin_plan_type_id
449: AND fin_plan_version_id IS NULL;
450:
507: SELECT DECODE(fin_plan_preference_code,
508: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,
509: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
510: INTO l_element_type
511: FROM pa_proj_fp_options
512: WHERE project_id=p_project_id
513: AND fin_plan_type_id=l_fin_plan_type_id
514: AND fin_plan_version_id IS NULL;
515:
656: l_err_stack varchar2(1000) := null;
657: lx_cur_work_bv_id NUMBER;
658:
659: -- Bug 5845142
660: l_approved_rev_plan_type_flag pa_proj_fp_options.approved_rev_plan_type_flag%TYPE;
661: l_approved_cost_plan_type_flag pa_proj_fp_options.approved_cost_plan_type_flag%TYPE;
662:
663: BEGIN
664: x_return_status := FND_API.G_RET_STS_SUCCESS;
657: lx_cur_work_bv_id NUMBER;
658:
659: -- Bug 5845142
660: l_approved_rev_plan_type_flag pa_proj_fp_options.approved_rev_plan_type_flag%TYPE;
661: l_approved_cost_plan_type_flag pa_proj_fp_options.approved_cost_plan_type_flag%TYPE;
662:
663: BEGIN
664: x_return_status := FND_API.G_RET_STS_SUCCESS;
665:
689: SELECT approved_rev_plan_type_flag,
690: approved_cost_plan_type_flag
691: INTO l_approved_rev_plan_type_flag,
692: l_approved_cost_plan_type_flag
693: FROM pa_proj_fp_options
694: WHERE project_id=p_project_id
695: AND fin_plan_type_id=p_fin_plan_type_id
696: AND fin_plan_version_id IS NULL;
697: