[Home] [Help]
2537:
2538: IF (p_event_rec.event_id IS NULL) THEN
2539: SELECT pa_pji_proj_events_log_s.NEXTVAL
2540: INTO p_event_rec.event_id
2541: FROM DUAL;
2542: END IF;
2543:
2544: /* Added for Bug#6145813 by vvjoshi - START*/
2545:
3203: , bv.SECONDARY_RBS_FLAG
3204: , bv.lp_flag
3205: FROM pji_fm_extr_plnver3_T bv
3206: , pji_xbs_denorm den
3207: , ( SELECT -3 plan_version_id FROM DUAL
3208: UNION ALL
3209: SELECT -4 FROM DUAL ) cbco
3210: WHERE 1=1
3211: AND bv.plan_version_id = l_fp_version_ids(l_count)
3205: FROM pji_fm_extr_plnver3_T bv
3206: , pji_xbs_denorm den
3207: , ( SELECT -3 plan_version_id FROM DUAL
3208: UNION ALL
3209: SELECT -4 FROM DUAL ) cbco
3210: WHERE 1=1
3211: AND bv.plan_version_id = l_fp_version_ids(l_count)
3212: AND bv.wp_flag = 'N'
3213: AND bv.baselined_flag = 'Y'
4232: BEGIN
4233: IF p_rerun_flag='Y' THEN
4234: select 1
4235: into l_prg_event_id
4236: from dual
4237: where exists (select log.event_id
4238: from pji_pa_proj_events_log log,pa_proj_element_versions ver
4239: where log.event_type='PRG_CHANGE'
4240: and log.event_object =to_char(ver.prg_group)
4247: and ver.project_id=l_project_id);
4248: else
4249: select 1
4250: into l_prg_event_id
4251: from dual
4252: where exists (select log.event_id
4253: from pa_pji_proj_events_log log,pa_proj_element_versions ver
4254: where log.event_type='PRG_CHANGE'
4255: and log.event_object =to_char(ver.prg_group)
4789: -------------------------------------
4790: --Initialize Event sequence
4791: SELECT pa_pji_proj_events_log_s.NEXTVAL
4792: INTO l_event_id
4793: FROM sys.dual;
4794:
4795: IF l_versioned_flag = 'N' THEN
4796: --CASE 1: Non-Versioned (Work plans + actuals + fin plans)
4797:
4857: -1,
4858: p_project_id,
4859: p_old_struct_ver_id,
4860: NULL
4861: FROM dual;
4862: END IF;
4863:
4864: -- Commented the logic to always process the request online
4865: -- this code change was done for R12 bug 5198662.
4976: -1,
4977: p_project_id,
4978: p_old_struct_ver_id,
4979: NULL
4980: FROM dual;
4981: END IF;
4982:
4983: WBS_LOCK_PVT (
4984: p_event_id => l_event_id,
5077: -1,
5078: p_project_id,
5079: p_old_struct_ver_id,
5080: NULL
5081: FROM dual;
5082: END IF;
5083:
5084: -- Commented the logic to always process the request online
5085: -- this code change was done for R12 bug 5198662.
5174: end if;
5175: select decode(p_calling_context, 'ONLINE_PUBLISH', 'CONC_PUBLISH'
5176: , 'ONLINE_UPDATE', 'CONC_UPDATE', p_calling_context)
5177: into l_calling_context
5178: from dual;
5179: savepoint process_proj_sum_conc;
5180: BEGIN
5181: SELECT
5182: TO_NUMBER(elog.ATTRIBUTE1),
5441: SELECT
5442: DECODE (p_event_type, 'WBS_PUBLISH', 'Y', 'N')
5443: INTO
5444: l_publish_flag
5445: FROM dual;
5446:
5447: WBS_MAINT_PVT (
5448: p_event_id => p_event_id,
5449: p_versioned_flag => l_versioned_flag,
6181: l_creation_date CREATION_DATE,
6182: l_created_by CREATED_BY,
6183: l_last_update_login LAST_UPDATE_LOGIN,
6184: l_prg_plan_type_code_tbl(i) PLAN_TYPE_CODE /*4471527 */
6185: FROM dual;
6186:
6187: END IF;
6188:
6189: END LOOP;