[Home] [Help]
61: select 'PRG',to_number(null), to_number(null), e.project_id ,e.element_version_id , e.proj_element_id ,to_number(null), e.element_version_id ,
62: e.proj_element_id , 1,1,e.proj_element_id, 'Y',
63: sysdate , -1 , sysdate , -1 , - 1,
64: to_number(null), to_number(null)
65: from pa_proj_element_versions e where project_id = p_project_id and object_type = 'PA_STRUCTURES';
66:
67:
68: insert into pa_olap_wbs_header (
69: PROJECT_ID,PLAN_VERSION_ID,WBS_VERSION_ID,
106:
107:
108: t_element_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(1008);
109:
110: select proj_element_id into p_elem_id from pa_proj_element_versions
111: where element_version_id = t_element_version_id;
112:
113:
114: INSERT INTO pji_rep_xbs_denorm
147: SELECT t1.project_id , 'N', t1.project_id , nvl(t1.parent_task_id , p_elem_id ) parent_task_id ,
148: t1.task_id ,'N' ,emt.name,'Y' ,decode(nvl(t2.parent_task_id ,-1) , -1 , 'N', 'Y' ),
149: SYSDATE, SYSDATE, 1, 1,
150: 0 ,t_element_version_id, ver.display_sequence,t_element_version_id, 'WF'
151: FROM pa_tasks t1 , pa_proj_elements emt,pa_proj_element_versions ver,
152: ( select distinct parent_task_id from pa_tasks t3 where t3.project_id = p_project_id ) t2
153: where t1.project_id = p_project_id
154: and t1.task_id = t2.parent_task_id (+)
155: AND t1.task_id = emt.PROJ_ELEMENT_ID
340: if ( p_element_version_id is not null ) then -- Bug 16507592
341:
342: select nvl(p.pjt_rollup_enabled_flag,'N'), p.cbs_enable_flag, ver.proj_element_id -- SCOPE_00 Get cbs_enabled_flag
343: into l_pjt_rollup_flag, l_cbs_enabled_flag, l_new_elem_id
344: from pa_projects_all p , PA_PROJ_ELEMENT_VERSIONS ver
345: where p.project_id = p_project_id and p.project_id = ver.project_id
346: and ver.element_version_id = p_element_version_id ;
347:
348: l_struct_ver_id := p_element_version_id; -- Bug 16507592
436: select /*+ ordered */
437: -- OLAP_BUG
438: -- a.proj_element_id , nvl(c.proj_element_id,p_element_version_id)
439: a.proj_element_id , nvl(c.proj_element_id,l_new_elem_id )
440: from PA_PROJ_ELEMENT_VERSIONS a , pa_object_relationships b , PA_PROJ_ELEMENT_VERSIONS c
441: where a.project_id = p_project_id
442: and a.object_type = 'PA_TASKS'
443: and a.parent_structure_version_id = l_struct_ver_id -- Bug 16507592
444: and a.element_version_id = b.object_id_to1 (+)
543: SELECT denorm.sup_project_id,'N',denorm.sup_project_id,denorm.sup_emt_id,
544: denorm.sub_emt_id,'N',emt.name,DECODE(denorm.sub_level-sup_level,0,'N','Y'),DECODE(denorm.sub_leaf_flag,'Y','N','Y'),
545: SYSDATE, SYSDATE, 1, 1,
546: 0 ,p_element_version_id, ver.display_sequence,p_element_version_id, denorm.relationship_type
547: FROM pji_xbs_denorm denorm, pa_proj_elements emt,pa_proj_element_versions ver
548: WHERE 1=1
549: AND denorm.sup_project_id = p_project_id
550: AND denorm.struct_version_id = p_element_version_id
551: AND denorm.sub_level - denorm.sup_level<=1
581: , p_element_version_id
582: , denorm.relationship_type
583: FROM pji_xbs_denorm denorm
584: , pa_proj_elements emt
585: ,pa_proj_element_versions ver
586: WHERE 1=1
587: AND denorm.sup_project_id = p_project_id
588: AND denorm.sub_emt_id = emt.proj_element_id
589: AND denorm.struct_version_id = p_element_version_id
720: AND struct_version_id IS NULL
721: AND struct_type = 'PRG'
722: AND NVL(relationship_type,'WF') IN ('WF',l_relationship_type)
723: ) structs
724: ,pa_proj_element_versions ver
725: WHERE 1=1
726: AND denorm.sub_level-denorm.sup_level<=1
727: AND denorm.struct_type = 'WBS'
728: AND denorm.sub_emt_id = emt.proj_element_id
770: AND struct_version_id IS NULL
771: AND struct_type = 'PRG'
772: AND NVL(relationship_type,'WF') IN ('WF',l_relationship_type)
773: ) structs
774: ,pa_proj_element_versions ver
775: WHERE 1=1
776: AND denorm.sub_emt_id = emt.proj_element_id
777: AND denorm.struct_version_id = structs.wbs_version_id
778: AND denorm.struct_type = 'XBS'
2110:
2111: BEGIN
2112: SELECT elm.proj_element_id
2113: INTO x_wbs_element_id
2114: FROM pa_proj_element_versions elm
2115: WHERE elm.element_version_id = x_wbs_version_id;
2116: EXCEPTION
2117: WHEN NO_DATA_FOUND THEN
2118: x_msg_count := x_msg_count + 1;
2123: /* SELECT hdr.wbs_version_id,elm.proj_element_id
2124: INTO x_wbs_version_id, x_wbs_element_id
2125: FROM
2126: pji_pjp_wbs_header hdr
2127: , pa_proj_element_versions elm
2128: WHERE
2129: hdr.wbs_version_id = elm.element_version_id
2130: AND hdr.project_id = p_project_id
2131: AND hdr.plan_version_id = p_plan_version_id;
5499: BEGIN
5500: SELECT project_id
5501: INTO l_project_id
5502: FROM
5503: pa_proj_element_versions
5504: WHERE
5505: ELEMENT_VERSION_ID = p_wbs_version_id;
5506: EXCEPTION
5507: WHEN NO_DATA_FOUND THEN
5791:
5792: PROCEDURE GET_PROCESS_STATUS_MSG(
5793: p_project_id IN pa_projects_all.project_id%TYPE
5794: , p_structure_type IN pa_structure_types.structure_type%TYPE := NULL
5795: , p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE := NULL
5796: , p_prg_flag IN VARCHAR2 := NULL
5797: , x_message_name OUT NOCOPY VARCHAR2
5798: , x_message_type OUT NOCOPY VARCHAR2
5799: , x_structure_version_id OUT NOCOPY NUMBER
5802: , x_msg_count IN OUT NOCOPY NUMBER
5803: , x_msg_data IN OUT NOCOPY VARCHAR2)
5804: IS
5805:
5806: CURSOR struct_list(c_structure_version_id pa_proj_element_versions.element_version_id%TYPE
5807: , c_structure_type VARCHAR2) IS
5808: SELECT vs.element_version_id, vs.project_id
5809: FROM pa_proj_elem_ver_structure vs
5810: , pji_xbs_denorm denorm
5815: AND denorm.sub_id = vs.element_version_id;
5816:
5817: l_relationship_type VARCHAR2(2);
5818: l_project_id pa_projects_all.project_id%TYPE;
5819: l_structure_version_id pa_proj_element_versions.element_version_id%TYPE;
5820:
5821: BEGIN
5822:
5823: IF g_debug_mode = 'Y' THEN
6326: FROM pji_fp_xbs_accum_f f,
6327: pa_projects_all p,
6328: pa_rbs_prj_assignments r,
6329: pa_proj_elem_ver_structure s,
6330: pa_proj_element_versions ppev,
6331: pji_pjp_wbs_header h
6332: WHERE p.project_id=f.project_id
6333: AND p.project_id=r.project_id
6334: AND p.project_id=s.project_id