[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
2050: l_chk_tgt_ver_status VARCHAR2(1);
2051:
2052: Cursor is_eligible_for_rollup(c_project_id IN NUMBER,
2053: c_source_proj_fp_options_id IN NUMBER) is
2054: Select 'Y' from dual
2055: where EXISTS(
2056: select 1
2057: from pa_budget_versions pbv
2058: where pbv.budget_version_id = p_source_version_id and pbv.prc_generated_flag='M')
2063: and pua.proj_fp_options_id_rup = c_source_proj_fp_options_id
2064: and pua.upgraded_flag = 'Y');
2065:
2066: Cursor chk_tgt_ver_status is
2067: Select 'Y' from dual
2068: where exists (select 1 from pa_budget_versions pbv where pbv.budget_version_id = px_target_version_id and pbv.budget_Status_code = 'W' )
2069: and exists (select 1 from pa_budget_lines bl, pa_budget_versions pbv
2070: where pbv.budget_version_id = px_target_version_id
2071: and pbv.budget_version_id = bl.budget_version_id
3876: /* create the plan version */
3877: IF P_PA_DEBUG_MODE = 'Y' THEN
3878: pa_debug.write_file('Create_Version_OrgFcst: ' || 'calling pa_fp_budget_versions_pkg.Insert_Row to create a budget version');
3879: END IF;
3880: select pa_budget_versions_s.nextVal into l_budget_version_id from dual;
3881: /* the new version is the current working only if it's the ONLY working version */
3882: if (l_max_version = 0) then
3883: l_current_working_flag := 'Y';
3884: else
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('Create_Version_OrgFcst: ' || 'no planning options for plan_type level: creating one now');
3999: END IF;
4000: /* call table handler to create planning options for plan_type */
4001: select pa_proj_fp_options_s.nextVal into l_proj_fin_plan_options_id from dual;
4002: pa_proj_fp_options_pkg.Insert_Row
4003: (px_proj_fp_options_id => l_proj_fin_plan_options_id,
4004: p_project_id => p_project_id,
4005: p_fin_plan_option_level_code => 'PLAN_TYPE',
4034: /* create planning option for plan VERSION */
4035: IF P_PA_DEBUG_MODE = 'Y' THEN
4036: pa_debug.write_file('Create_Version_OrgFcst: ' || 'creating planning options for PLAN_VERSION level');
4037: END IF;
4038: select pa_proj_fp_options_s.nextVal into l_proj_fin_plan_options_id from dual;
4039: pa_proj_fp_options_pkg.Insert_Row
4040: (px_proj_fp_options_id => l_proj_fin_plan_options_id,
4041: p_project_id => p_project_id,
4042: p_fin_plan_option_level_code => 'PLAN_VERSION',
4585: open l_ae_csr;
4586: loop
4587: fetch l_ae_csr into l_ae_rec;
4588: exit when l_ae_csr%NOTFOUND;
4589: select pa_fp_adj_elements_s.nextVal into l_adj_element_id from dual;
4590: insert into pa_fp_adj_elements(
4591: adj_element_id,
4592: project_id,
4593: budget_version_id,
4839: END IF;
4840: open l_fe_csr;
4841: loop
4842: /* generate next forecast_element_id into local variable */
4843: select pa_org_fcst_elements_s.nextVal into l_forecast_element_id from dual;
4844: fetch l_fe_csr into l_fe_rec;
4845: exit when l_fe_csr%NOTFOUND;
4846: insert into pa_org_fcst_elements (
4847: creation_date,
5996: END IF;
5997:
5998: SELECT pa_budget_versions_s.NEXTVAL
5999: INTO l_new_budget_version_id
6000: FROM DUAL;
6001: ELSE
6002: l_new_budget_version_id := px_budget_version_id;
6003: END IF;
6004: