[Home] [Help]
2161:
2162: IF (p_event_rec.event_id IS NULL) THEN
2163: SELECT pa_pji_proj_events_log_s.NEXTVAL
2164: INTO p_event_rec.event_id
2165: FROM DUAL;
2166: END IF;
2167:
2168: /* Added for Bug#6145813 by vvjoshi - START*/
2169:
2827: , bv.SECONDARY_RBS_FLAG
2828: , bv.lp_flag
2829: FROM pji_fm_extr_plnver3_T bv
2830: , pji_xbs_denorm den
2831: , ( SELECT -3 plan_version_id FROM DUAL
2832: UNION ALL
2833: SELECT -4 FROM DUAL ) cbco
2834: WHERE 1=1
2835: AND bv.plan_version_id = l_fp_version_ids(l_count)
2829: FROM pji_fm_extr_plnver3_T bv
2830: , pji_xbs_denorm den
2831: , ( SELECT -3 plan_version_id FROM DUAL
2832: UNION ALL
2833: SELECT -4 FROM DUAL ) cbco
2834: WHERE 1=1
2835: AND bv.plan_version_id = l_fp_version_ids(l_count)
2836: AND bv.wp_flag = 'N'
2837: AND bv.baselined_flag = 'Y'
3856: BEGIN
3857: IF p_rerun_flag='Y' THEN
3858: select 1
3859: into l_prg_event_id
3860: from dual
3861: where exists (select log.event_id
3862: from pji_pa_proj_events_log log,pa_proj_element_versions ver
3863: where log.event_type='PRG_CHANGE'
3864: and log.event_object =to_char(ver.prg_group)
3871: and ver.project_id=l_project_id);
3872: else
3873: select 1
3874: into l_prg_event_id
3875: from dual
3876: where exists (select log.event_id
3877: from pa_pji_proj_events_log log,pa_proj_element_versions ver
3878: where log.event_type='PRG_CHANGE'
3879: and log.event_object =to_char(ver.prg_group)
4411: -------------------------------------
4412: --Initialize Event sequence
4413: SELECT pa_pji_proj_events_log_s.NEXTVAL
4414: INTO l_event_id
4415: FROM sys.dual;
4416:
4417: IF l_versioned_flag = 'N' THEN
4418: --CASE 1: Non-Versioned (Work plans + actuals + fin plans)
4419:
4479: -1,
4480: p_project_id,
4481: p_old_struct_ver_id,
4482: NULL
4483: FROM dual;
4484: END IF;
4485:
4486: -- Commented the logic to always process the request online
4487: -- this code change was done for R12 bug 5198662.
4598: -1,
4599: p_project_id,
4600: p_old_struct_ver_id,
4601: NULL
4602: FROM dual;
4603: END IF;
4604:
4605: WBS_LOCK_PVT (
4606: p_event_id => l_event_id,
4699: -1,
4700: p_project_id,
4701: p_old_struct_ver_id,
4702: NULL
4703: FROM dual;
4704: END IF;
4705:
4706: -- Commented the logic to always process the request online
4707: -- this code change was done for R12 bug 5198662.
4796: end if;
4797: select decode(p_calling_context, 'ONLINE_PUBLISH', 'CONC_PUBLISH'
4798: , 'ONLINE_UPDATE', 'CONC_UPDATE', p_calling_context)
4799: into l_calling_context
4800: from dual;
4801: savepoint process_proj_sum_conc;
4802: BEGIN
4803: SELECT
4804: TO_NUMBER(elog.ATTRIBUTE1),
5063: SELECT
5064: DECODE (p_event_type, 'WBS_PUBLISH', 'Y', 'N')
5065: INTO
5066: l_publish_flag
5067: FROM dual;
5068:
5069: WBS_MAINT_PVT (
5070: p_event_id => p_event_id,
5071: p_versioned_flag => l_versioned_flag,
5661: l_creation_date CREATION_DATE,
5662: l_created_by CREATED_BY,
5663: l_last_update_login LAST_UPDATE_LOGIN,
5664: l_prg_plan_type_code_tbl(i) PLAN_TYPE_CODE /*4471527 */
5665: FROM dual;
5666:
5667: END IF;
5668:
5669: END LOOP;