[Home] [Help]
391: --Added for performance improvements bug 2679612
392: CURSOR cur_proj_elem
393: IS
394: SELECT project_id
395: FROM pa_proj_elements
396: WHERE proj_element_id = p_task_id;
397: l_project_id NUMBER;
398: --Added for performance improvements bug 2679612
399:
840: IS
841: SELECT trunc(p_as_of_date) FROM DUAL
842: MINUS
843: SELECT PA_PROGRESS_UTILS.AS_OF_DATE(ppe.project_id, ppe.proj_element_id, ppp.progress_cycle_id, ppe.object_type, 'WORKPLAN', p_proj_element_id/* Amit : Modified for IB4 Progress CR. */) as_of_date
844: from pa_project_statuses po, pa_proj_progress_attr ppp, pa_proj_elements ppe -- Bug 4535784 Changed from pa_resource_types to pa_project_statuses
845: where ppe.project_id = ppp.project_id(+)
846: AND ppp.structure_type (+) = 'WORKPLAN'
847: and ppe.project_id= p_project_id
848: and ppe.proj_element_id = p_object_id
919: --Bug fix 2679612
920: CURSOR cur_pa_task_prg1
921: IS
922: SELECT WQ_PLANNED_QUANTITY
923: FROM pa_proj_elements ppe,
924: pa_proj_element_versions ppev,
925: pa_proj_elem_ver_schedule ppevsh
926: WHERE ppe.project_id = ppev.project_id
927: AND ppe.proj_element_id = p_task_id
927: AND ppe.proj_element_id = p_task_id
928: AND ppev.proj_element_id = ppe.proj_element_id
929: AND ppev.element_version_id = ppevsh.element_version_id
930: AND ppev.project_id = ppevsh.project_id
931: AND ppev.parent_structure_version_id = PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id(ppe.project_id, 'WORKPLAN');
932:
933: CURSOR cur_pa_task_prg2
934: IS
935: SELECT nvl(ppe.WQ_ACTUAL_ENTRY_CODE,ptt.ACTUAL_WQ_ENTRY_CODE)
932:
933: CURSOR cur_pa_task_prg2
934: IS
935: SELECT nvl(ppe.WQ_ACTUAL_ENTRY_CODE,ptt.ACTUAL_WQ_ENTRY_CODE)
936: FROM pa_proj_elements ppe, pa_task_types ptt
937: WHERE ppe.type_id = ptt.task_type_id(+)
938: AND ptt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
939: AND ppe.proj_element_id = p_task_id ;
940:
1008: --Added for performance improvements bug 2679612
1009: CURSOR cur_proj_elem
1010: IS
1011: SELECT project_id
1012: FROM pa_proj_elements
1013: WHERE proj_element_id = p_task_id;
1014: l_project_id NUMBER;
1015: --Added for performance improvements bug 2679612
1016:
1669: --Added for performance improvements bug 2679612
1670: CURSOR cur_proj_elem
1671: IS
1672: SELECT project_id
1673: FROM pa_proj_elements
1674: WHERE proj_element_id = p_task_id;
1675: l_project_id NUMBER;
1676: --Added for performance improvements bug 2679612
1677:
1779: THEN
1780: IF p_object_type = 'PA_TASKS'
1781: THEN
1782: l_proj_element_id := p_object_id;
1783: UPDATE pa_proj_elements
1784: SET progress_outdated_flag = 'N'
1785: WHERE proj_element_id = l_proj_element_id;
1786: ELSIF p_object_type = 'PA_STRUCTURES'
1787: THEN
1784: SET progress_outdated_flag = 'N'
1785: WHERE proj_element_id = l_proj_element_id;
1786: ELSIF p_object_type = 'PA_STRUCTURES'
1787: THEN
1788: UPDATE pa_proj_elements ppe
1789: SET progress_outdated_flag = 'N'
1790: WHERE proj_element_id = ( SELECT proj_element_id
1791: FROM pa_proj_structure_types ppst
1792: WHERE ppst.structure_type_id = 1 --WORKPLAN
1794: AND project_id = p_project_id;
1795: END IF;
1796: ELSIF p_structure_version_id IS NOT NULL
1797: THEN
1798: UPDATE pa_proj_elements
1799: SET progress_outdated_flag = 'N'
1800: WHERE proj_element_id in ( SELECT proj_element_id
1801: FROM pa_proj_element_versions
1802: WHERE project_id = p_project_id
1924: decode(ppe.object_type,'PA_TASKS',ptt.PROG_ENTRY_ENABLE_FLAG,'Y'),
1925: pppa.ALLOW_COLLAB_PROG_ENTRY,
1926: pppa.ALLOW_PHY_PRCNT_CMP_OVERRIDES,
1927: pppa.TASK_WEIGHT_BASIS_CODE
1928: FROM pa_proj_elements ppe, pa_task_types ptt, pa_proj_progress_attr pppa, pa_proj_elem_ver_structure ppvs, pa_proj_structure_types ppst
1929: WHERE ppe.project_id = p_project_id
1930: AND ppe.proj_element_id = p_object_id
1931: AND ppe.object_type = p_object_type
1932: AND ppe.type_id = ptt.task_type_id(+)
2138: AND rownum <= 1;
2139:
2140: Cursor c_proj_elements
2141: is
2142: select 'X' from pa_proj_elements
2143: where status_code = p_status_code
2144: AND rownum <= 1;
2145:
2146: Cursor c_proj_elem_ver_structure
2176: l_return_value := TRUE;
2177: end if;
2178: close c_prog_rollup;
2179: end if;
2180: -- Check referense in pa_proj_elements
2181: if(NOT l_return_value) then
2182: open c_proj_elements;
2183: fetch c_proj_elements into l_dummy;
2184: if(c_proj_elements%FOUND) then
2218: --Added for performance improvements bug 2679612
2219: CURSOR cur_proj_elem
2220: IS
2221: SELECT project_id
2222: FROM pa_proj_elements
2223: WHERE proj_element_id = p_task_id;
2224: l_project_id NUMBER;
2225: --Added for performance improvements bug 2679612
2226:
2256: IS
2257: SELECT ppe.status_code
2258: FROM pa_object_relationships por,
2259: pa_proj_element_versions ppev,
2260: pa_proj_elements ppe,
2261: pa_project_statuses pps
2262: WHERE object_id_to1 = p_object_version_id
2263: AND ppev.element_version_id = por.object_id_from1
2264: AND ppev.proj_element_id = ppe.proj_element_id
2289:
2290: CURSOR cur_pa_proj_elems
2291: IS
2292: SELECT status_code
2293: FROM pa_proj_elements
2294: WHERE proj_element_id = p_object_id
2295: AND project_id = p_project_id
2296: AND object_type = p_object_type;
2297:
2384: l_rollup_date date;
2385: begin
2386:
2387: /* -- FPM Dev CR 4 : Added condition for PA_TASKS and structure_version_id
2388: if (((p_object_type = 'PA_TASKS') AND (nvl(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_object_version_id ),'N') = 'N')) OR p_structure_version_id is not null) then
2389:
2390: select max(as_of_date)
2391: into l_rollup_date
2392: from pa_progress_rollup
2553:
2554: CURSOR l_get_task_manager(c_element_version_id NUMBER)
2555: IS
2556: SELECT ppe.manager_person_id
2557: FROM pa_proj_elements PPE,
2558: pa_proj_element_versions PPEV
2559: WHERE ppev.element_version_id = c_element_version_id
2560: AND ppev.proj_element_id = ppe.proj_element_id;
2561:
2671: elsif (p_object_type = 'PA_TASKS') then
2672:
2673: select status_code
2674: into l_status_code
2675: from pa_proj_elements
2676: where project_id = p_project_id
2677: and proj_element_id = p_proj_element_id
2678: and object_type = p_object_type;
2679:
2687: else
2688:
2689: select ptt.prog_entry_enable_flag
2690: into l_return_value
2691: from pa_proj_elements ppe, pa_task_types ptt
2692: where ppe.type_id = ptt.task_type_id(+)
2693: and ppe.project_id = p_project_id
2694: and ppe.proj_element_id = p_proj_element_id;
2695: end if;
2806: l_return_value VARCHAR2(1) := 'Y';
2807: l_dummy VARCHAR2(1);
2808: CURSOR c_get_del_associated_task IS
2809: SELECT 'x'
2810: FROM pa_proj_elements ppe,
2811: pa_object_relationships por,
2812: pa_task_types ttype
2813: WHERE
2814: ppe.object_type = 'PA_TASKS'
3634: l_time_phase_code VARCHAR2(30);
3635: l_structure_version_id NUMBER;
3636: BEGIN
3637: if p_structure_version_id is null then
3638: l_structure_version_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id(p_project_id, 'WORKPLAN');
3639: else
3640: l_structure_version_id := p_structure_version_id;
3641: end if;
3642: BEGIN
6260: -- Cursor to get baselined dates.
6261:
6262: cursor cur_baselined_dates is
6263: select baseline_start_date, baseline_finish_date
6264: from pa_proj_elements
6265: where project_id = p_project_id
6266: and proj_element_id = p_proj_element_id;
6267:
6268: l_base_start_date DATE := NULL;
6607: -- Begin: Fix for Bug # 3926529.
6608:
6609: cursor cur_baselined_dates is
6610: select ppe.baseline_start_date, ppe.baseline_finish_date
6611: from pa_proj_elements ppe
6612: where ppe.project_id = p_project_id
6613: and ppe.proj_element_id = p_proj_element_id;
6614:
6615: cursor cur_scheduled_dates is
7182: c1rec c1_task%rowtype;
7183:
7184: cursor c4(p_project_id number, p_proj_element_id number) is
7185: select wq_uom_code
7186: from pa_proj_elements
7187: where project_id = p_project_id
7188: and proj_element_id = p_proj_element_id;
7189:
7190: cursor c2(p_element_version_id NUMBER) is
9620:
9621: function published_dlv_prog_exists
9622: (
9623: p_project_id PA_PROJECTS_ALL.PROJECT_ID%TYPE,
9624: p_dlv_proj_elt_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE
9625: )return VARCHAR2
9626: IS
9627: l_result VARCHAR2(1) ;
9628:
10086: if l_return_date is NULL then
10087:
10088: -- Get latest published structure version id.
10089:
10090: l_lp_str_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id(p_project_id,'WORKPLAN');
10091:
10092: if p_start_end_flag = 'S' then
10093:
10094: open cur_lp_sch_start_date(l_lp_str_ver_id);
10141: bl.txn_currency_code,
10142: pr.txn_currency_code
10143: FROM
10144: pa_proj_element_versions pev,
10145: pa_proj_elements pe,
10146: pa_resource_assignments ra,
10147: pa_resource_list_members rlm,
10148: pa_budget_lines bl,
10149: pa_progress_rollup pr
11863: IS
11864: SELECT decode(elem.base_percent_comp_deriv_code, null
11865: , ttype.base_percent_comp_deriv_code,'^'
11866: ,ttype.base_percent_comp_deriv_code,elem.base_percent_comp_deriv_code)
11867: FROM pa_proj_elements elem
11868: , pa_task_types ttype
11869: where elem.proj_element_id = c_task_id
11870: AND elem.project_id = c_project_id
11871: AND elem.object_type =c_object_type
12981: nvl(ppe.baseline_finish_date,ppevs.scheduled_finish_date) sch_end_date
12982: from pa_proj_element_versions ppev1,
12983: pa_proj_element_versions ppev2,
12984: pa_object_relationships por,
12985: pa_proj_elements ppe,
12986: pa_proj_elem_ver_schedule ppevs
12987: where ppev1.parent_structure_version_id = p_structure_version_id
12988: and ppev1.proj_element_id=ppe.proj_element_id
12989: and nvl(ppe.link_task_flag,'N') = 'N'
13301: PA_PROGRESS_UTILS.AS_OF_DATE(ppe.project_id, ppe.proj_element_id, ppp.progress_cycle_id, ppe.object_type) as_of_date ,
13302: ppe.object_type object_type
13303: FROM --pa_project_statuses po, --removed for bug 13687289
13304: pa_proj_progress_attr ppp,
13305: pa_proj_elements ppe
13306: WHERE ppe.project_id = ppp.project_id(+)
13307: AND ppp.structure_type (+) = 'WORKPLAN'
13308: AND ppe.project_id = p_project_id
13309: AND ppe.proj_element_id = p_proj_element_id