[Home] [Help]
1060:
1061: BEGIN
1062: SELECT 'Y'
1063: INTO l_pl_exists
1064: FROM pji_fm_extr_plan_lines epl
1065: WHERE EXISTS (
1066: SELECT 1
1067: FROM pji_pjp_proj_batch_map map
1068: WHERE map.worker_id = g_worker_id
1311: (project_id, plan_version_id, plan_type_id)
1312: SELECT / * + ORDERED * / -- INDEX(HD9, PJI_PJP_WBS_HEADER_N1)
1313: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1314: FROM pji_pjp_proj_batch_map map
1315: , pji_fm_extr_plan_lines epl
1316: , pji_pjp_wbs_header hd2 -- SUB
1317: , pji_xbs_denorm den
1318: , pji_pjp_wbs_header hd9 -- SUP
1319: , PA_PROJ_ELEM_VER_STRUCTURE ppevs1
4804: -- Currently there is no locking mechanism for either wbs header or the plan lines in this flow.
4805: -- One of the following alternative solutions are considered.
4806: -- a. Implement locking.
4807: -- b.
4808: DELETE FROM pji_fm_extr_plan_lines;
4809: -- c. call PJI_FM_XBS_ACCUM_MAINT.plan_update_pvt; and then call delete plan lines.
4810: -- Going with b for now, for simplicity.
4811: --
4812:
4839:
4840: --
4841: -- Delete plan lines that have no relevant overridden ETC info to avoid unnecessary processing overhead.
4842: --
4843: DELETE FROM pji_fm_extr_plan_lines
4844: WHERE
4845: (PROJECT_ID, PLAN_VERSION_ID) IN
4846: (SELECT DISTINCT project_id, plan_version_id
4847: FROM pji_fm_extr_plnver4) AND
4858: dbms_output.put_line ( ' After call.. l_msg_code ' || l_msg_data || ' l_return_status ' || l_return_status );
4859:
4860: SELECT COUNT(1)
4861: INTO l_count
4862: FROM pji_fm_extr_plan_lines
4863: WHERE project_id = l_project_id;
4864:
4865: dbms_output.put_line ( ' Count in plan lines is.. ' || l_count );
4866: */
5336: , ver.plan_type_code
5337: , ver.time_phased_type_code
5338: FROM
5339: PJI_FM_EXTR_PLNVER4 ver
5340: , PJI_FM_EXTR_PLAN_LINES bl
5341: , PA_PROJECTS_ALL ppa
5342: , PA_PROJ_ELEM_VER_STRUCTURE pevs
5343: WHERE 1=1
5344: AND ver.wp_flag = 'Y'
5458: --Bug 6047966.
5459: l_process := PJI_PJP_SUM_MAIN.g_process || to_char(g_worker_id);
5460: l_plan_ver_type_code := PJI_PROCESS_UTIL.GET_PROCESS_PARAMETER(l_process, 'PLAN_VERSION');
5461:
5462: DELETE FROM pji_fm_extr_plan_lines
5463: WHERE (project_id, plan_version_id) IN
5464: (SELECT ver.project_id, ver.plan_version_id
5465: FROM pji_fm_extr_plnver4 ver
5466: WHERE ver.worker_id = g_worker_id)
5471: --Bug 6047966. In case actuals alone are summarized, pji_fm_extr_plnver4
5472: --contains only -1 record. Hence that case should be handled.
5473: IF l_plan_ver_type_code ='ACTUAL' THEN
5474:
5475: DELETE FROM pji_fm_extr_plan_lines
5476: WHERE (project_id) IN
5477: (SELECT ver.project_id
5478: FROM pji_fm_extr_plnver4 ver
5479: WHERE ver.worker_id = g_worker_id
6001: , bv.current_flag current_flag
6002: , bv.original_flag original_flag
6003: , bv.current_original_flag current_original_flag
6004: , DECODE(bv.baselined_date, NULL, 'N', 'Y') baselined_flag
6005: FROM PJI_FM_EXTR_PLAN_LINES epl
6006: , pa_budget_versions bv
6007: , pa_proj_fp_options fpo
6008: WHERE
6009: epl.plan_version_id = bv.budget_version_id
12381: , ver.plan_type_code plan_type_code /*4471527 */
12382: , ver.time_phased_type_code
12383: FROM
12384: PJI_FM_EXTR_PLNVER4 ver
12385: , PJI_FM_EXTR_PLAN_LINES bl
12386: , PA_PROJECTS_ALL ppa
12387: , PA_PROJ_ELEM_VER_STRUCTURE pevs
12388: WHERE 1=1
12389: AND ver.wp_flag = 'Y'