[Home] [Help]
4162:
4163: BEGIN
4164: Select ppev1.proj_element_id
4165: into l_structure_id
4166: from pa_proj_element_versions ppev1, pa_proj_element_versions ppev2
4167: where ppev2.element_version_id = p_object_version_id
4168: and ppev2.project_id = ppev1.project_id
4169: and ppev2.parent_structure_version_id = ppev1.element_version_id;
4170: EXCEPTION WHEN OTHERS THEN
4921:
4922: -- Bug # 4576303.
4923: cursor cur_tasks_exist (c_str_ver_id NUMBER) is
4924: select 'Y'
4925: from pa_proj_element_versions ppev
4926: where ppev.parent_structure_version_id = c_str_ver_id
4927: and ppev.object_type = 'PA_TASKS';
4928:
4929: l_tasks_exist VARCHAR2(1) := null;
5423:
5424: CURSOR cur_ppevs( c_element_version_id NUMBER )
5425: IS
5426: SELECT project_id, proj_element_id
5427: FROM pa_proj_element_versions
5428: WHERE element_version_id = c_element_version_id
5429: ;
5430:
5431: l_rollup_row_id VARCHAR2(18);
5564: UNION -- Bug 3878024 : Added Union
5565: SELECT to_number(null) object_id_from1, p_object_version_id object_id_to1
5566: FROM DUAL
5567: ) pobj,
5568: pa_proj_element_versions ppev1,
5569: pa_proj_elem_ver_schedule sch
5570: WHERE pobj.object_id_to1 = ppev1.element_version_id
5571: AND ppev1.element_version_id = sch.element_version_id;
5572:
5758:
5759: -- Bug 3878024 : Begin
5760: BEGIN
5761: SELECT parent_structure_version_id INTO l_structure_version_id
5762: FROM pa_proj_element_versions
5763: WHERE element_version_id = p_object_version_id;
5764: EXCEPTION
5765: WHEN OTHERS THEN
5766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
7255:
7256: CURSOR C1(p_project_id NUMBER, p_working_str_version_id NUMBER) is
7257: -- Bug # 4581937.
7258: select ppr.*
7259: from pa_progress_rollup ppr, pa_proj_element_versions ppev --4871809
7260: where ppr.project_id = p_project_id
7261: and ppr.structure_version_id is null
7262: and ppr.object_type in ('PA_STRUCTURES','PA_ASSIGNMENTS','PA_TASKS')
7263: --and pa_proj_elements_utils.is_lowest_task(ppr.object_version_id) = 'Y' --bug 4050532
7279:
7280: -- FPM Dev CR 4 : Added the cusrosr c_get_work_obj_ver_id
7281: CURSOR c_get_work_obj_ver_id(c_proj_element_id NUMBER, c_structure_version_id NUMBER) IS
7282: select element_version_id
7283: from pa_proj_element_versions
7284: where project_id = p_project_id
7285: and proj_element_id = c_proj_element_id
7286: and parent_structure_version_id = c_structure_version_id;
7287:
9010: CURSOR c_check_prog_exists_prg IS
9011: SELECT 'Y' from dual
9012: where exists ( select DISTINCT ppev.PROJECT_ID
9013: FROM pa_progress_rollup ppr,
9014: pa_proj_element_versions ppev
9015: where ppr.project_id=ppev.project_id
9016: and ppev.OBJECT_TYPE = 'PA_STRUCTURES'
9017: and ppr.structure_type = 'WORKPLAN'
9018: and ppr.structure_version_id is null
9016: and ppev.OBJECT_TYPE = 'PA_STRUCTURES'
9017: and ppr.structure_type = 'WORKPLAN'
9018: and ppr.structure_version_id is null
9019: and exists (select null
9020: from PA_PROJ_ELEMENT_VERSIONS ppev2
9021: where ppev2.project_id=p_project_id
9022: and ppev.prg_group=ppev2.prg_group)
9023: );
9024:
9269:
9270: CURSOR c_get_task_version_id(c_proj_element_id NUMBER, c_project_id NUMBER, c_structure_version_id NUMBER)
9271: IS
9272: SELECT element_version_id, parent_structure_version_id
9273: FROM pa_proj_element_versions
9274: WHERE proj_element_id = c_proj_element_id
9275: AND object_type = 'PA_TASKS'
9276: AND project_id = c_project_id
9277: AND parent_structure_version_id = c_structure_version_id;
9285:
9286: CURSOR c_get_latest_pub_task_ver(c_proj_element_id NUMBER, c_project_id NUMBER)
9287: IS
9288: SELECT elemver.element_version_id, elemver.parent_structure_version_id
9289: FROM pa_proj_element_versions elemver, pa_proj_elem_ver_structure str
9290: WHERE elemver.proj_element_id = c_proj_element_id
9291: AND elemver.object_type = 'PA_TASKS'
9292: AND elemver.project_id = c_project_id
9293: AND str.project_id = c_project_id
10069:
10070: BEGIN
10071: Select ppev1.proj_element_id
10072: into l_structure_id
10073: from pa_proj_element_versions ppev1, pa_proj_element_versions ppev2
10074: where ppev2.element_version_id = l_task_version_id
10075: and ppev2.project_id = ppev1.project_id
10076: and ppev2.parent_structure_version_id = ppev1.element_version_id;
10077: EXCEPTION WHEN OTHERS THEN
11147: -- Bug 3957457 : get percent complete from pa_progress_rollup instead of pa_percent_complete
11148: -- 4392189 : Program Reporting Changes - Phase 2 : Get base % complete rather rollup % complete
11149: -- SELECT ppv.proj_element_id, ppv.element_version_id, ppv.record_version_number, nvl(ppr.completed_percentage, ppr.eff_rollup_percent_comp) completed_percentage
11150: SELECT ppv.proj_element_id, ppv.element_version_id, ppv.record_version_number, nvl(ppr.completed_percentage, ppr.base_percent_complete) completed_percentage
11151: FROM pa_proj_element_versions ppv, pa_progress_rollup ppr
11152: WHERE ppv.project_id = p_project_id
11153: AND ppv.financial_task_flag = 'Y'
11154: AND ppv.parent_structure_version_id = c_structure_version_id -- Bug 3957457
11155: -- AND PA_PROJ_ELEMENTS_UTILS.check_child_element_exist(ppv.element_version_id) = 'N' bug 4086613
11160: AND ppr.structure_type(+) = c_structure_type
11161: AND ppr.structure_version_id(+) is null -- Bug 3957457
11162: and not exists (select 1
11163: from pa_object_relationships por,
11164: pa_proj_element_versions ppv1
11165: where por.object_id_from1 = ppv.element_version_id
11166: and relationship_type = 'S'
11167: and ppv1.element_version_id = por.object_id_to1
11168: and ppv1.financial_task_flag = 'Y')
11173: IS
11174: -- Bug 3952006 : get percent complete from pa_progress_rollup instead of pa_percent_complete
11175: --SELECT ppv.proj_element_id, ppv.element_version_id, ppv.record_version_number, nvl(ppr.completed_percentage, ppr.eff_rollup_percent_comp) completed_percentage
11176: SELECT ppv.proj_element_id, ppv.element_version_id, ppv.record_version_number, nvl(ppr.completed_percentage, ppr.base_percent_complete) completed_percentage
11177: FROM pa_proj_element_versions ppv, pa_progress_rollup ppr, pa_object_relationships por
11178: WHERE ppv.project_id = p_project_id
11179: AND ppv.parent_structure_version_id = c_structure_version_id -- Bug 3952006
11180: AND ppv.project_id = ppr.project_id(+)
11181: AND por.object_id_to1 = c_object_version_id
11720: and NVL(ppc.cbs_element_id,-1)=NVL(c_cbs_element_id,-1);
11721:
11722: CURSOR c_get_work_obj_ver_id(c_proj_element_id NUMBER, c_structure_version_id NUMBER, c_object_type VARCHAR2) IS
11723: select element_version_id
11724: from pa_proj_element_versions
11725: where project_id = p_project_id
11726: and proj_element_id = c_proj_element_id
11727: and ((c_object_type <> 'PA_DELIVERABLES' and parent_structure_version_id = c_structure_version_id)
11728: OR c_object_type = 'PA_DELIVERABLES'); -- 4398411 : Added Deliverable condition
14211: ptt.initial_progress_status_code,
14212: ppevs.scheduled_start_date,
14213: ppevs.scheduled_finish_date
14214: from pa_proj_elements ppe,
14215: pa_proj_element_versions ppev,
14216: pa_proj_elem_ver_schedule ppevs,
14217: pa_task_types ptt
14218: where ppev.proj_element_id = l_obj
14219: and ppev.parent_structure_version_id = l_latest_wp_struct_ver_id
22404: CURSOR c_get_min_max_dates(c_par_project_id NUMBER, c_par_task_id NUMBER, c_par_task_ver_id NUMBER, c_par_str_ver_id NUMBER, c_as_of_date DATE) IS
22405: select min(ppr.actual_start_date), max(ppr.actual_finish_date), min(ppr.estimated_start_date), max(ppr.estimated_finish_date)
22406: FROM
22407: --- removed join with pa_structures_links_v for performance improvement
22408: pa_proj_element_versions ppv1 --4871809
22409: ,pa_proj_element_versions ppv2
22410: ,pa_object_relationships por1
22411: ,pa_object_relationships por2
22412: ,pa_progress_rollup ppr
22405: select min(ppr.actual_start_date), max(ppr.actual_finish_date), min(ppr.estimated_start_date), max(ppr.estimated_finish_date)
22406: FROM
22407: --- removed join with pa_structures_links_v for performance improvement
22408: pa_proj_element_versions ppv1 --4871809
22409: ,pa_proj_element_versions ppv2
22410: ,pa_object_relationships por1
22411: ,pa_object_relationships por2
22412: ,pa_progress_rollup ppr
22413: WHERE
22629:
22630: CURSOR c_get_task_version_id(c_proj_element_id NUMBER, c_project_id NUMBER, c_structure_version_id NUMBER)
22631: IS
22632: SELECT element_version_id, parent_structure_version_id
22633: FROM pa_proj_element_versions
22634: WHERE proj_element_id = c_proj_element_id
22635: AND object_type = 'PA_TASKS'
22636: AND project_id = c_project_id
22637: AND parent_structure_version_id = c_structure_version_id;
22645:
22646: CURSOR c_get_latest_pub_task_ver(c_proj_element_id NUMBER, c_project_id NUMBER)
22647: IS
22648: SELECT elemver.element_version_id, elemver.parent_structure_version_id
22649: FROM pa_proj_element_versions elemver, pa_proj_elem_ver_structure str
22650: WHERE elemver.proj_element_id = c_proj_element_id
22651: AND elemver.object_type = 'PA_TASKS'
22652: AND elemver.project_id = c_project_id
22653: AND str.project_id = c_project_id
23697: -- Bug 8881708 - l_task_version_id is not initialized in this procedure
23698: /*
23699: Select ppev1.proj_element_id
23700: into l_structure_id
23701: from pa_proj_element_versions ppev1, pa_proj_element_versions ppev2
23702: where ppev2.element_version_id = l_task_version_id
23703: and ppev2.project_id = ppev1.project_id
23704: and ppev2.parent_structure_version_id = ppev1.element_version_id;
23705: */