[Home] [Help]
62: and ppev2.proj_element_id = ppst.proj_element_id
63: and ppst.structure_type_id = pst.structure_type_id
64: and pst.structure_type_class_code = 'WORKPLAN'
65: and ppev1.proj_element_id = p_task_id
66: and ppev1.object_type = 'PA_TASKS';
67: return x_task_version_id;
68: exception when others then
69: return -999;
70: END;
337: and task_id = l_task_id
338: and published_flag = 'Y'
339: and structure_type = 'WORKPLAN'
340: and date_computed < l_as_of_date
341: and object_type = 'PA_TASKS'
342: order by date_computed desc;*/
343:
344: ---- bug 5042445
345: CURSOR c_get_prior_percent_complete(l_task_id NUMBER, l_project_id NUMBER, l_as_of_date DATE) IS
346: select nvl(completed_percentage,eff_rollup_percent_comp)
347: from pa_progress_rollup
348: where project_id = l_project_id
349: and object_id = l_task_id
350: and object_type in ('PA_STRUCTURES', 'PA_TASKS')
351: and structure_Type = 'WORKPLAN'
352: and structure_version_id is null
353: and as_of_date < l_as_of_date
354: order by as_of_date desc;
382: FUNCTION GET_LATEST_AS_OF_DATE(
383: p_task_id NUMBER
384: ,p_project_id NUMBER := null -- FPM Development Bug 3420093
385: ,p_object_id NUMBER := null -- FPM Development Bug 3420093
386: , p_object_type VARCHAR2 := 'PA_TASKS'-- FPM Development Bug 3420093
387: ,p_structure_type VARCHAR2 := 'WORKPLAN' -- FPM Development Bug 3420093
388: ) RETURN DATE IS
389:
390: --Added for performance improvements bug 2679612
566: FUNCTION as_of_date(
567: X_Project_ID IN NUMBER ,
568: X_Object_id IN NUMBER ,
569: X_Billing_Cycle_ID IN NUMBER DEFAULT NULL ,
570: X_Object_type IN VARCHAR2 DEFAULT 'PA_TASKS' ,-- FPM Development Bug 3420093
571: X_structure_type IN VARCHAR2 DEFAULT 'WORKPLAN' ,-- FPM Development Bug 3420093
572: X_proj_element_id IN NUMBER := null /* Amit : Modified for IB4 Progress CR. */
573: ) RETURN DATE IS
574:
609: WHERE project_id = X_Project_ID
610: AND current_flag = 'Y'
611: AND published_flag = 'Y'
612: AND ((object_type = 'PA_ASSIGNMENTS' and object_id = x_object_id)
613: or (object_type = 'PA_TASKS' and object_id = X_proj_element_id))
614: AND structure_type = X_structure_type
615: AND task_id = X_proj_element_id
616: ;
617:
647: SELECT max( date_computed )
648: FROM pa_percent_completes
649: WHERE project_id = X_Project_ID
650: AND ((object_id = x_object_id and object_type = 'PA_DELIVERABLES') or
651: (object_id = c_task_id and object_type = 'PA_TASKS'))
652: AND current_flag = 'Y'
653: AND published_flag = 'Y'
654: AND structure_type = X_structure_type
655: ;
667: CURSOR c_get_max_rollup_dt IS
668: SELECT max(as_of_date)
669: FROM pa_progress_rollup
670: where project_id = X_Project_ID
671: and object_type IN ('PA_TASKS', 'PA_STRUCTURES')
672: and object_id = x_object_id
673: and structure_type = 'WORKPLAN'
674: and structure_version_id is null;
675:
692: -- 4535784 Begin
693: -- To Show 30 dates in case rollup records exists after 5 cycle dates
694: -- Note that j_task is checked against 6 because each run is for 10 in which we get 5 future date and 5 null date(previous date implementaion, obsoleted now)
695: -- So we need to get 60 rows for 30 dates
696: IF ((x_object_type IN ('PA_TASKS', 'PA_STRUCTURES') and X_structure_type = 'WORKPLAN') and (j_task >=6 OR g_task_id <> x_object_id or PA_PROGRESS_UTILS.project_id <> X_Project_ID)) THEN
697: j_task := 0;
698: g_task_id := x_object_id;
699: OPEN c_get_max_rollup_dt;
700: FETCH c_get_max_rollup_dt INTO g_max_rollup_dt;
701: CLOSE c_get_max_rollup_dt;
702: END IF;
703: -- 4535784 End
704: -- Bug 3974627 Begin
705: IF x_object_type IN ('PA_TASKS', 'PA_STRUCTURES') THEN
706: -- 4535784 Begin
707: j_task := j_task+1;
708: IF j_task > 1 AND X_structure_type = 'WORKPLAN' and g_task_id = x_object_id AND trunc(nvl(g_max_rollup_dt,sysdate)) > trunc(PA_PROGRESS_UTILS.x_bill_thru_date) THEN
709: PA_PROGRESS_UTILS.l_last_progress_date := PA_PROGRESS_UTILS.x_bill_thru_date;
796:
797: FUNCTION CHECK_VALID_AS_OF_DATE(p_as_of_date IN DATE
798: , p_project_id IN NUMBER
799: , p_object_id NUMBER
800: , p_object_type VARCHAR2 := 'PA_TASKS'
801: , p_proj_element_id IN NUMBER := null /* Amit : Modified for IB4 Progress CR. */)
802: RETURN VARCHAR2 IS
803:
804:
843: AND ppp.structure_type (+) = 'WORKPLAN'
844: and ppe.project_id= p_project_id
845: and ppe.proj_element_id = p_object_id
846: and ppe.object_type = p_object_type
847: and ((ppe.object_type in ('PA_TASKS', 'PA_STRUCTURES') and rownum <61) or (ppe.object_type = 'PA_DELIVERABLES' and rownum <11)) -- Bug 4535784
848: --and rownum <11
849: ;
850:
851:
930: IS
931: SELECT nvl(ppe.WQ_ACTUAL_ENTRY_CODE,ptt.ACTUAL_WQ_ENTRY_CODE)
932: FROM pa_proj_elements ppe, pa_task_types ptt
933: WHERE ppe.type_id = ptt.task_type_id(+)
934: AND ptt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
935: AND ppe.proj_element_id = p_task_id ;
936:
937: --Bug fix 2679612
938:
1050: FUNCTION get_next_progress_cycle(
1051: p_project_id NUMBER,
1052: p_task_id NUMBER,
1053: p_object_id NUMBER := null, -- FPM Development Bug 3420093
1054: p_object_type VARCHAR2 := 'PA_TASKS', -- FPM Development Bug 3420093
1055: p_structure_type VARCHAR2 := 'WORKPLAN', -- FPM Development Bug 3420093
1056: p_start_date DATE := to_date(null) -- FPM Development Bug 3420093
1057: ) RETURN DATE IS
1058:
1091: FROM pa_percent_completes
1092: WHERE project_id = p_Project_ID
1093: AND current_flag = 'Y'
1094: AND published_flag = 'Y'
1095: AND object_type IN ('PA_ASSIGNMENTS' ,'PA_TASKS')
1096: AND structure_type = p_structure_type
1097: AND task_id = p_task_id
1098: ;
1099:
1116: WHERE project_id = p_Project_ID
1117: AND ((c_task_id IS NULL AND object_id =p_object_id) OR (c_task_id IS NOT NULL AND object_id IN (c_task_id, p_object_id)))
1118: AND current_flag = 'Y'
1119: AND published_flag = 'Y'
1120: AND object_type IN ('PA_DELIVERABLES' ,'PA_TASKS')
1121: AND structure_type = p_structure_type
1122: AND NVL(task_id, -1) = NVL(p_task_id, NVL(task_id, -1))
1123: ;
1124:
1167: --FETCH cur_pa_ppc INTO l_last_progress_date;
1168: --CLOSE cur_pa_ppc;
1169:
1170: -- Bug 3974627 Begin
1171: IF p_object_type IN ('PA_TASKS', 'PA_STRUCTURES') THEN
1172: OPEN cur_pa_ppc_str_task;
1173: FETCH cur_pa_ppc_str_task INTO l_last_progress_date;
1174: CLOSE cur_pa_ppc_str_task;
1175: ELSIF p_object_type = 'PA_ASSIGNMENTS' THEN
1234: FUNCTION get_prog_dt_closest_to_sys_dt(
1235: p_project_id NUMBER,
1236: p_task_id NUMBER, -- From deliverables it will be passed as null
1237: p_object_id NUMBER := null, -- FPM Development Bug 3420093
1238: p_object_type VARCHAR2 := 'PA_TASKS', -- FPM Development Bug 3420093
1239: p_structure_type VARCHAR2 := 'WORKPLAN'
1240: ) RETURN DATE IS
1241: l_last_progress_date DATE;
1242: l_progress_cycle_id NUMBER;
1296: WHERE project_id = p_Project_ID
1297: AND current_flag = 'Y'
1298: AND published_flag = 'Y'
1299: AND ((object_type = 'PA_ASSIGNMENTS' and object_id = p_object_id)
1300: or (object_type = 'PA_TASKS' and object_id = p_task_id))
1301: AND structure_type = p_structure_type
1302: AND task_id = p_task_id
1303: ;
1304:
1332: SELECT max( date_computed )
1333: FROM pa_percent_completes
1334: WHERE project_id = p_Project_ID
1335: AND ((object_id = p_object_id and object_type = 'PA_DELIVERABLES') or
1336: (object_id = p_task_id and object_type = 'PA_TASKS'))
1337: AND current_flag = 'Y'
1338: AND published_flag = 'Y'
1339: AND structure_type = p_structure_type
1340: ;
1379: OPEN cur_pa_ppc_w;
1380: FETCH cur_pa_ppc_w INTO l_last_progress_date;
1381: CLOSE cur_pa_ppc_w;
1382:
1383: IF p_object_type = 'PA_TASKS' THEN -- This is Done to avoid the impact
1384: l_valid_as_of_date := CHECK_VALID_AS_OF_DATE ( l_last_progress_date, p_project_id, p_task_id);
1385: ELSE
1386: l_valid_as_of_date := CHECK_VALID_AS_OF_DATE ( l_last_progress_date, p_project_id, p_object_id, p_object_type,p_task_id/* Amit : Modified for IB4 Progress CR. */ );
1387: END IF;
1402: --FETCH cur_pa_ppc INTO l_last_progress_date;
1403: --CLOSE cur_pa_ppc;
1404:
1405: -- Bug 3974627 Begin
1406: IF p_object_type IN ('PA_TASKS', 'PA_STRUCTURES') THEN
1407: OPEN cur_pa_ppc_str_task;
1408: FETCH cur_pa_ppc_str_task INTO l_last_progress_date;
1409: CLOSE cur_pa_ppc_str_task;
1410: ELSIF p_object_type = 'PA_ASSIGNMENTS' THEN
1754: x_return_status := FND_API.G_RET_STS_SUCCESS;
1755:
1756: IF p_structure_version_id IS NULL
1757: THEN
1758: IF p_object_type = 'PA_TASKS'
1759: THEN
1760: l_proj_element_id := p_object_id;
1761: UPDATE pa_proj_elements
1762: SET progress_outdated_flag = 'N'
1778: WHERE proj_element_id in ( SELECT proj_element_id
1779: FROM pa_proj_element_versions
1780: WHERE project_id = p_project_id
1781: AND parent_structure_version_id = p_structure_version_id
1782: AND object_type in ( 'PA_STRUCTURES', 'PA_TASKS' ) )
1783: AND object_type in ( 'PA_STRUCTURES', 'PA_TASKS' )
1784: AND project_id = p_project_id
1785: ;
1786: END IF;
1779: FROM pa_proj_element_versions
1780: WHERE project_id = p_project_id
1781: AND parent_structure_version_id = p_structure_version_id
1782: AND object_type in ( 'PA_STRUCTURES', 'PA_TASKS' ) )
1783: AND object_type in ( 'PA_STRUCTURES', 'PA_TASKS' )
1784: AND project_id = p_project_id
1785: ;
1786: END IF;
1787:
1898: decode(ptt.REMAIN_EFFORT_ENABLE_FLAG, 'Y', decode(pppa.REMAIN_EFFORT_ENABLE_FLAG, 'Y', 'Y', 'N'), 'N')),
1899: NVL( ppe.base_percent_comp_deriv_code, ptt.base_percent_comp_deriv_code),
1900: decode(ppe.object_type,'PA_STRUCTURES',pppa.PERCENT_COMP_ENABLE_FLAG,
1901: decode(ptt.PERCENT_COMP_ENABLE_FLAG, 'Y', decode(pppa.PERCENT_COMP_ENABLE_FLAG, 'Y', 'Y','N'), 'N')),
1902: decode(ppe.object_type,'PA_TASKS',ptt.PROG_ENTRY_ENABLE_FLAG,'Y'),
1903: pppa.ALLOW_COLLAB_PROG_ENTRY,
1904: pppa.ALLOW_PHY_PRCNT_CMP_OVERRIDES,
1905: pppa.TASK_WEIGHT_BASIS_CODE
1906: 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
1913: AND ppe.project_id = ppvs.project_id
1914: AND ppvs.latest_eff_published_flag = 'Y'
1915: AND ppvs.proj_element_id = pppa.object_id(+)
1916: AND ppvs.proj_element_id = ppst.proj_element_id
1917: AND ptt.object_type(+) = 'PA_TASKS' /* bug 3279978 FP M Enhancement */ --bug 4330450 added outer join
1918: AND ppst.structure_type_id =1;
1919:
1920: BEGIN
1921: OPEN cur_prg_deflts;
2129: is
2130: select 'X' from pa_task_types
2131: where ( initial_status_code = p_status_code
2132: or initial_progress_status_code = p_status_code)
2133: AND object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
2134: AND rownum <= 1;
2135:
2136: l_return_value boolean := FALSE;
2137: l_dummy varchar2(1);
2238: WHERE object_id_to1 = p_object_version_id
2239: AND ppev.element_version_id = por.object_id_from1
2240: AND ppev.proj_element_id = ppe.proj_element_id
2241: AND ppev.object_type = ppe.object_type
2242: AND ppe.object_type = 'PA_TASKS'
2243: AND ppe.status_code = pps.project_status_code
2244: AND pps.project_system_status_code = 'ON_HOLD';
2245:
2246: l_status_code VARCHAR2(150);
2259:
2260: FUNCTION get_task_status(
2261: p_project_id NUMBER
2262: ,p_object_id NUMBER
2263: , p_object_type VARCHAR2 := 'PA_TASKS' -- FPM Development Bug 3420093
2264: ) RETURN VARCHAR2 IS
2265:
2266: CURSOR cur_pa_proj_elems
2267: IS
2281:
2282:
2283: FUNCTION get_system_task_status(
2284: p_status_code VARCHAR2
2285: ,p_object_type VARCHAR2 := 'PA_TASKS' -- FPM Development Bug 3420093
2286: ) RETURN VARCHAR2 IS
2287:
2288: CURSOR cur_sys_status
2289: IS
2289: IS
2290: SELECT project_system_status_code
2291: FROM pa_project_statuses pps -----, fnd_lookup_values flv
2292: WHERE project_status_code = p_status_code
2293: AND status_type = decode(p_object_type, 'PA_TASKS', 'TASK', 'PA_DELIVERABLES', 'DELIVERABLE');
2294: /* bug 4699567 flv was not used in the query anyways
2295: AND lookup_type = decode(p_object_type, 'PA_TASKS', 'TASK_SYSTEM_STATUS', 'PA_DELIVERABLES', 'DELIVERABLE_SYSTEM_STATUS')
2296: AND language = 'US'; */
2297:
2291: FROM pa_project_statuses pps -----, fnd_lookup_values flv
2292: WHERE project_status_code = p_status_code
2293: AND status_type = decode(p_object_type, 'PA_TASKS', 'TASK', 'PA_DELIVERABLES', 'DELIVERABLE');
2294: /* bug 4699567 flv was not used in the query anyways
2295: AND lookup_type = decode(p_object_type, 'PA_TASKS', 'TASK_SYSTEM_STATUS', 'PA_DELIVERABLES', 'DELIVERABLE_SYSTEM_STATUS')
2296: AND language = 'US'; */
2297:
2298: l_status_code VARCHAR2(150);
2299: BEGIN
2359: ) return date is
2360: l_rollup_date date;
2361: begin
2362:
2363: /* -- FPM Dev CR 4 : Added condition for PA_TASKS and structure_version_id
2364: 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
2365:
2366: select max(as_of_date)
2367: into l_rollup_date
2360: l_rollup_date date;
2361: begin
2362:
2363: /* -- FPM Dev CR 4 : Added condition for PA_TASKS and structure_version_id
2364: 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
2365:
2366: select max(as_of_date)
2367: into l_rollup_date
2368: from pa_progress_rollup
2538: IS
2539: SELECT rel.object_id_from1
2540: FROM pa_object_relationships rel
2541: WHERE rel.object_id_to1 = c_element_version_id
2542: AND rel.object_type_to = 'PA_TASKS'
2543: AND rel.relationship_type = 'S'
2544: AND rel.object_type_from = 'PA_TASKS';
2545:
2546: CURSOR l_get_element_version_id(c_proj_element_id NUMBER, c_parent_structure_version_id NUMBER)
2540: FROM pa_object_relationships rel
2541: WHERE rel.object_id_to1 = c_element_version_id
2542: AND rel.object_type_to = 'PA_TASKS'
2543: AND rel.relationship_type = 'S'
2544: AND rel.object_type_from = 'PA_TASKS';
2545:
2546: CURSOR l_get_element_version_id(c_proj_element_id NUMBER, c_parent_structure_version_id NUMBER)
2547: IS
2548: SELECT ppev.element_version_id
2642: l_system_status_code VARCHAR2(30);
2643: BEGIN
2644: if (p_object_type = 'PA_STRUCTURES' or p_object_type = 'PA_ASSIGNMENTS') then
2645: l_return_value := 'Y';
2646: elsif (p_object_type = 'PA_TASKS') then
2647:
2648: select status_code
2649: into l_status_code
2650: from pa_proj_elements
2785: FROM pa_proj_elements ppe,
2786: pa_object_relationships por,
2787: pa_task_types ttype
2788: WHERE
2789: ppe.object_type = 'PA_TASKS'
2790: and ppe.proj_element_id = por.object_id_from2
2791: and por.object_type_from = 'PA_TASKS'
2792: and por.object_type_to = 'PA_DELIVERABLES'
2793: and por.relationship_type = 'A'
2787: pa_task_types ttype
2788: WHERE
2789: ppe.object_type = 'PA_TASKS'
2790: and ppe.proj_element_id = por.object_id_from2
2791: and por.object_type_from = 'PA_TASKS'
2792: and por.object_type_to = 'PA_DELIVERABLES'
2793: and por.relationship_type = 'A'
2794: and por.relationship_subtype = 'TASK_TO_DELIVERABLE'
2795: and nvl(ppe.base_percent_comp_deriv_code,ttype.base_percent_comp_deriv_code)='DELIVERABLE'
5739:
5740: FUNCTION Get_EARLY_PROGRESS_ENTRY_DATE(
5741: p_project_id NUMBER
5742: ,p_object_id NUMBER
5743: ,p_object_type VARCHAR2 := 'PA_TASKS'
5744: ,p_structure_type VARCHAR2 := 'WORKPLAN'
5745: ,p_task_id NUMBER := null /* Modified for IB4 Progress CR. */
5746: ) RETURN DATE
5747: IS
5773:
5774: FUNCTION Get_LATEST_PROGRESS_ENTRY_DATE(
5775: p_project_id NUMBER
5776: ,p_object_id NUMBER
5777: ,p_object_type VARCHAR2 := 'PA_TASKS'
5778: ,p_structure_type VARCHAR2 := 'WORKPLAN'
5779: ,p_task_id NUMBER := null /* Amit : Modified for IB4 Progress CR. */
5780: ) RETURN DATE
5781: IS
5826: FUNCTION check_object_has_prog(
5827: p_project_id IN NUMBER -- FPM Dev CR 7 : Removed defaulting
5828: ,p_proj_element_id IN NUMBER := null /* Modified for IB4 Progress CR. */
5829: ,p_object_id IN NUMBER -- FPM Dev CR 7 : Removed defaulting
5830: ,p_object_type IN VARCHAR2:='PA_TASKS'
5831: ,p_structure_type IN VARCHAR2:='WORKPLAN'
5832: ,p_progress_status IN VARCHAR2:='ANY'
5833: ) RETURN VARCHAR2
5834: IS
5936: Procedure REDEFAULT_BASE_PC (
5937: p_Project_ID IN NUMBER
5938: ,p_Proj_element_id IN NUMBER
5939: ,p_Structure_type IN VARCHAR2 DEFAULT 'WORKPLAN'
5940: ,p_object_type IN VARCHAR2 DEFAULT 'PA_TASKS'
5941: ,p_As_Of_Date IN DATE
5942: ,p_structure_version_id IN NUMBER DEFAULT null
5943: ,p_structure_status IN VARCHAR2 DEFAULT null
5944: ,p_calling_context IN VARCHAR2 DEFAULT 'PROGRESS'
6402: CLOSE cur_baselined_dates;
6403:
6404: -- Calculate schedule at completion.
6405:
6406: x_Sch_At_Completion := pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S')
6407: +((pa_progress_utils.return_start_end_date(l_sch_finish_date,l_base_finish_date,p_project_id,p_proj_element_id,'PA_TASKS','E')
6408: -pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S'))
6409: /l_SCH_Performance_Index);
6410:
6403:
6404: -- Calculate schedule at completion.
6405:
6406: x_Sch_At_Completion := pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S')
6407: +((pa_progress_utils.return_start_end_date(l_sch_finish_date,l_base_finish_date,p_project_id,p_proj_element_id,'PA_TASKS','E')
6408: -pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S'))
6409: /l_SCH_Performance_Index);
6410:
6411: end if;
6404: -- Calculate schedule at completion.
6405:
6406: x_Sch_At_Completion := pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S')
6407: +((pa_progress_utils.return_start_end_date(l_sch_finish_date,l_base_finish_date,p_project_id,p_proj_element_id,'PA_TASKS','E')
6408: -pa_progress_utils.return_start_end_date(l_sch_start_date,l_base_start_date,p_project_id,p_proj_element_id,'PA_TASKS','S'))
6409: /l_SCH_Performance_Index);
6410:
6411: end if;
6412:
6897: procedure set_prog_as_of_Date(p_project_id IN NUMBER,
6898: p_task_id IN NUMBER,
6899: p_as_of_date IN DATE default to_date(null),
6900: p_object_id IN NUMBER := null, -- Bug 3974627
6901: p_object_type IN VARCHAR2 := 'PA_TASKS' -- Bug 3974627
6902: ) IS
6903: BEGIN
6904: if p_as_of_date is null then
6905: IF p_object_type = 'PA_TASKS' THEN
6901: p_object_type IN VARCHAR2 := 'PA_TASKS' -- Bug 3974627
6902: ) IS
6903: BEGIN
6904: if p_as_of_date is null then
6905: IF p_object_type = 'PA_TASKS' THEN
6906: G_prog_as_of_date := get_prog_dt_closest_to_sys_dt(p_project_id => p_project_id,
6907: p_task_id => p_task_id);
6908: ELSE -- Bug 3974627 : Added ELSE and call of get_prog_dt_closest_to_sys_dt
6909: G_prog_as_of_date := get_prog_dt_closest_to_sys_dt(p_project_id => p_project_id,
6948:
6949: function check_workplan_cost ( p_project_id IN NUMBER,
6950: p_task_id IN NUMBER := NULL,
6951: p_object_id IN NUMBER := NULL,
6952: p_object_type IN VARCHAR2 := 'PA_TASKS',
6953: p_structure_version_id IN NUMBER := NULL
6954: ) RETURN VARCHAR2 IS
6955:
6956: l_workplan_cost VARCHAR2(1) := 'Y';
7006: THEN
7007: return l_labor_cost_flag;
7008: END IF;
7009:
7010: IF p_object_type = 'PA_TASKS'
7011: THEN
7012: OPEN c_assgmt_count;
7013: FETCH c_assgmt_count INTO l_tot_assgmts;
7014: CLOSE c_assgmt_count;
7372: cursor c2(p_fin_task_ver_id NUMBER) is
7373: select object_id_from1
7374: from pa_object_relationships
7375: where relationship_type='M'
7376: and object_type_from='PA_TASKS'
7377: and object_type_to='PA_TASKS'
7378: and object_id_to1 = p_fin_task_ver_id;
7379:
7380: cursor c3(p_project_id NUMBER) is
7373: select object_id_from1
7374: from pa_object_relationships
7375: where relationship_type='M'
7376: and object_type_from='PA_TASKS'
7377: and object_type_to='PA_TASKS'
7378: and object_id_to1 = p_fin_task_ver_id;
7379:
7380: cursor c3(p_project_id NUMBER) is
7381: select structure_sharing_code
8379: l_ATTRIBUTE29_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
8380: l_ATTRIBUTE30_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
8381: --End of variables for Variable for Resource Attributes
8382:
8383: l_task_id pa_tasks.task_id%TYPE := P_task_id; --bug 3860575, Satish
8384: l_top_task_id pa_tasks.task_id%TYPE;
8385: l_bill_job_group_id pa_projects_all.bill_job_group_id%TYPE;
8386: l_project_type pa_projects_all.project_type%TYPE;
8387: l_expenditure_type pa_resource_assignments.expenditure_type%TYPE;
8380: l_ATTRIBUTE30_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
8381: --End of variables for Variable for Resource Attributes
8382:
8383: l_task_id pa_tasks.task_id%TYPE := P_task_id; --bug 3860575, Satish
8384: l_top_task_id pa_tasks.task_id%TYPE;
8385: l_bill_job_group_id pa_projects_all.bill_job_group_id%TYPE;
8386: l_project_type pa_projects_all.project_type%TYPE;
8387: l_expenditure_type pa_resource_assignments.expenditure_type%TYPE;
8388: l_org_id pa_projects_all.org_id%TYPE;
8924: -- 3686920 : using l_use_planning_rates_flag to call the API GET_PLAN_VERSION_DTLS
8925: -- also when l_use_planning_rates_flag is N then we should be using ACTUAL RATES so passing ACTUAL_RATES
8926: -- to costing API
8927: -- We should not be calling Get_Default_Sch_Ids as it will not retun actual values
8928: -- If at all we need this, then we should get this value from pa_tasks and then from pa_projects
8929: --bug 3733606 moved from below
8930:
8931: BEGIN
8932: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
9962: p_scheduled_date DATE := NULL
9963: ,p_baselined_date DATE := NULL
9964: ,p_project_id NUMBER
9965: ,p_proj_element_id NUMBER
9966: ,p_object_type VARCHAR2 := 'PA_TASKS'
9967: ,p_start_end_flag VARCHAR2 := 'S'
9968: ) return date
9969:
9970: is
11003:
11004: FUNCTION check_prog_exists_and_delete(
11005: p_project_id NUMBER
11006: ,p_task_id NUMBER
11007: ,p_object_type VARCHAR2 := 'PA_TASKS'
11008: ,p_object_id NUMBER := null
11009: ,p_structure_type VARCHAR2 := 'WORKPLAN'
11010: ,p_delete_progress_flag VARCHAR2 := 'Y' -- Fix for Bug # 4140984.
11011:
11135: end if;
11136:
11137: -- 3). If progress check and deletion is requested for all the assignments of a task.
11138:
11139: elsif (p_object_type = 'PA_TASKS') then
11140:
11141: -- 3.1). If published progress exists for any of the assignments for the task then
11142: -- return 'Y'.
11143: -- 4469270 : Removed the check for ppc records
11563: ,p_proj_element_id NUMBER
11564: ,p_structure_version_id NUMBER
11565: ,p_include_sub_tasks_flag VARCHAR2 := 'Y'
11566: ,p_structure_type VARCHAR2 := 'WORKPLAN'
11567: ,p_object_type VARCHAR2 := 'PA_TASKS'
11568: ,p_as_of_date DATE := null
11569: ,p_program_flag VARCHAR2 := 'Y' -- 4392189 : Program Reporting Changes - Phase 2
11570: )
11571: RETURN NUMBER
12363: END IF;
12364:
12365: IF l_need_fetch = 'Y' THEN
12366:
12367: IF PA_PROGRESS_UTILS.check_assignment_exists(p_project_id, p_object_version_id, 'PA_TASKS') = 'Y' THEN
12368: l_actual_effort := null;
12369: l_actual_cost := null;
12370: l_etc_effort := null;
12371: l_etc_cost := null;
13192: -- Cursor is based on the VO - ProgressAsOfDatesVO which is used to populate the 'as of date' poplist
13193: FUNCTION get_def_as_of_date_prog_report(
13194: p_project_id pa_progress_rollup.project_id%TYPE,
13195: p_proj_element_id pa_progress_rollup.proj_element_id%TYPE,
13196: p_object_type pa_progress_rollup.object_type%TYPE := 'PA_TASKS'
13197: ) RETURN DATE IS
13198: l_return_date DATE;
13199:
13200: CURSOR cur_get_def_as_of_date
13210: AND ppp.structure_type (+) = 'WORKPLAN'
13211: AND ppe.project_id = p_project_id
13212: AND ppe.proj_element_id = p_proj_element_id
13213: AND ppe.object_type = p_object_type
13214: AND ((ppe.object_type IN ('PA_TASKS', 'PA_STRUCTURES')
13215: AND rownum <61)
13216: OR (ppe.object_type = 'PA_DELIVERABLES'
13217: AND rownum <11))
13218: MINUS