[Home] [Help]
413: BEGIN
414: /*
415: select 'Y'
416: into l_exists
417: from dual
418: where exists (select 'x'
419: from pa_budget_versions bv
420: ,pa_control_items ci
421: ,pa_ci_impacts cp
450: -- and not actually merged
451:
452: select 'Y'
453: into l_exists
454: from dual
455: where exists
456: (select 'x'
457: from pa_fp_eligible_ci_v eligible
458: where eligible.project_id = p_project_id
1118: BEGIN
1119:
1120: SELECT 'Y'
1121: INTO l_exists
1122: FROM dual
1123: WHERE EXISTS ( SELECT 'X' from pa_budget_versions pb,pa_control_items pci -- added pa_control_items pci for bug 3741051
1124: WHERE pb.project_id = p_project_id --added the alias name for bug 3741051
1125: AND pb.fin_plan_type_id = l_fin_plan_type_id -- added the alias name for bug 3741051
1126: AND pb.version_type = l_version_type -- added the alias name for bug 3741051
2034: l_chk_tgt_ver_status VARCHAR2(1);
2035:
2036: Cursor is_eligible_for_rollup(c_project_id IN NUMBER,
2037: c_source_proj_fp_options_id IN NUMBER) is
2038: Select 'Y' from dual
2039: where EXISTS(
2040: select 1
2041: from pa_budget_versions pbv
2042: where pbv.budget_version_id = p_source_version_id and pbv.prc_generated_flag='M')
2047: and pua.proj_fp_options_id_rup = c_source_proj_fp_options_id
2048: and pua.upgraded_flag = 'Y');
2049:
2050: Cursor chk_tgt_ver_status is
2051: Select 'Y' from dual
2052: where exists (select 1 from pa_budget_versions pbv where pbv.budget_version_id = px_target_version_id and pbv.budget_Status_code = 'W' )
2053: and exists (select 1 from pa_budget_lines bl, pa_budget_versions pbv
2054: where pbv.budget_version_id = px_target_version_id
2055: and pbv.budget_version_id = bl.budget_version_id
3860: /* create the plan version */
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.write_file('Create_Version_OrgFcst: ' || 'calling pa_fp_budget_versions_pkg.Insert_Row to create a budget version');
3863: END IF;
3864: select pa_budget_versions_s.nextVal into l_budget_version_id from dual;
3865: /* the new version is the current working only if it's the ONLY working version */
3866: if (l_max_version = 0) then
3867: l_current_working_flag := 'Y';
3868: else
3981: IF P_PA_DEBUG_MODE = 'Y' THEN
3982: pa_debug.write_file('Create_Version_OrgFcst: ' || 'no planning options for plan_type level: creating one now');
3983: END IF;
3984: /* call table handler to create planning options for plan_type */
3985: select pa_proj_fp_options_s.nextVal into l_proj_fin_plan_options_id from dual;
3986: pa_proj_fp_options_pkg.Insert_Row
3987: (px_proj_fp_options_id => l_proj_fin_plan_options_id,
3988: p_project_id => p_project_id,
3989: p_fin_plan_option_level_code => 'PLAN_TYPE',
4018: /* create planning option for plan VERSION */
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.write_file('Create_Version_OrgFcst: ' || 'creating planning options for PLAN_VERSION level');
4021: END IF;
4022: select pa_proj_fp_options_s.nextVal into l_proj_fin_plan_options_id from dual;
4023: pa_proj_fp_options_pkg.Insert_Row
4024: (px_proj_fp_options_id => l_proj_fin_plan_options_id,
4025: p_project_id => p_project_id,
4026: p_fin_plan_option_level_code => 'PLAN_VERSION',
4569: open l_ae_csr;
4570: loop
4571: fetch l_ae_csr into l_ae_rec;
4572: exit when l_ae_csr%NOTFOUND;
4573: select pa_fp_adj_elements_s.nextVal into l_adj_element_id from dual;
4574: insert into pa_fp_adj_elements(
4575: adj_element_id,
4576: project_id,
4577: budget_version_id,
4823: END IF;
4824: open l_fe_csr;
4825: loop
4826: /* generate next forecast_element_id into local variable */
4827: select pa_org_fcst_elements_s.nextVal into l_forecast_element_id from dual;
4828: fetch l_fe_csr into l_fe_rec;
4829: exit when l_fe_csr%NOTFOUND;
4830: insert into pa_org_fcst_elements (
4831: creation_date,
5979: END IF;
5980:
5981: SELECT pa_budget_versions_s.NEXTVAL
5982: INTO l_new_budget_version_id
5983: FROM DUAL;
5984: ELSE
5985: l_new_budget_version_id := px_budget_version_id;
5986: END IF;
5987: