[Home] [Help]
92: l_actual_start_date pa_percent_completes.actual_start_date%TYPE;
93: l_actual_finish_date pa_percent_completes.actual_finish_date%TYPE;
94: l_estimated_start_date pa_percent_completes.estimated_start_date%TYPE;
95: l_estimated_finish_date pa_percent_completes.estimated_finish_date%TYPE;
96: l_scheduled_start_date pa_tasks.scheduled_start_date%TYPE;
97: l_scheduled_finish_date pa_tasks.scheduled_finish_date%TYPE;
98: l_est_remaining_effort NUMBER;
99: l_ETC_cost NUMBER;
100: l_actual_work_quantity NUMBER;
93: l_actual_finish_date pa_percent_completes.actual_finish_date%TYPE;
94: l_estimated_start_date pa_percent_completes.estimated_start_date%TYPE;
95: l_estimated_finish_date pa_percent_completes.estimated_finish_date%TYPE;
96: l_scheduled_start_date pa_tasks.scheduled_start_date%TYPE;
97: l_scheduled_finish_date pa_tasks.scheduled_finish_date%TYPE;
98: l_est_remaining_effort NUMBER;
99: l_ETC_cost NUMBER;
100: l_actual_work_quantity NUMBER;
101:
149: SELECT ppe.proj_element_id --, por.object_id_to1 (commented by rtarway for BUG 3746647)
150: FROM pa_proj_elements ppe,
151: pa_object_relationships por
152: WHERE
153: ppe.object_type = 'PA_TASKS'
154: and ppe.proj_element_id = por.object_id_from2
155: and por.object_id_to2 = c_del_proj_element_id
156: and por.object_type_to = c_object_type
157: and por.relationship_type = 'A'
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: l_object_type := 'PA_TASKS';
347: l_object_id := l_task_id_out;
348: OPEN c_get_element_information(p_project_id, l_object_id, l_object_type, p_structure_type);
349: FETCH c_get_element_information INTO l_object_version_id, l_structure_version_id;
350: CLOSE c_get_element_information;
353: IF g1_debug_mode = 'Y' THEN
354: pa_debug.write(x_Module=>'PA_STATUS_PUB.UPDATE_PROGRESS', x_Msg => 'Case 3 : object_type is passed', x_Log_Level=> 3);
355: END IF;
356:
357: IF p_object_type <> 'PA_ASSIGNMENTS' AND p_object_type <> 'PA_DELIVERABLES' AND p_object_type <> 'PA_TASKS' AND p_object_type <> 'PA_STRUCTURES' THEN
358: FND_MESSAGE.SET_NAME('PA','PA_PROG_WRONG_OBJ_TYPE');
359: FND_MSG_PUB.add;
360: p_return_status := FND_API.G_RET_STS_ERROR;
361: RAISE FND_API.G_EXC_ERROR;
369: p_return_status := FND_API.G_RET_STS_ERROR;
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: IF p_object_type = 'PA_TASKS' THEN
374: IF ((p_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_task_id IS NOT NULL)
375: OR (p_pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR AND p_pm_task_reference IS NOT NULL)) THEN
376:
377: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
436: FETCH c_get_del_associated_task INTO l_task_id;
437: CLOSE c_get_del_associated_task;
438: -- 20 May : Structure version_id shd also be got from here
439: IF l_task_id is not NULL THEN
440: OPEN c_get_element_information(p_project_id, l_task_id, 'PA_TASKS', 'WORKPLAN');
441: FETCH c_get_element_information INTO l_task_version_id, l_structure_version_id;
442: CLOSE c_get_element_information;
443: END IF;
444: ELSIF p_object_type = 'PA_ASSIGNMENTS' THEN
462: END IF;
463: END IF;
464: --end Added by rtarway for BUG 3872176
465:
466: OPEN c_get_element_information(p_project_id, l_task_id_out, 'PA_TASKS', p_structure_type);
467: FETCH c_get_element_information INTO l_task_version_id, l_structure_version_id;
468: CLOSE c_get_element_information;
469:
470: -- Bug 3799841, If Object_id(RLM ID is passed, then no need to call Convert_PM_TARef_To_ID
543: FETCH c_get_structure_information INTO l_object_id, l_object_version_id;
544: CLOSE c_get_structure_information;
545: l_task_id := null;
546: l_structure_version_id := l_object_version_id;
547: END IF; -- p_object_type = 'PA_TASKS'
548: END IF; --(p_task_id = 0 AND p_object_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR AND p_object_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
549:
550: IF g1_debug_mode = 'Y' THEN
551: pa_debug.write(x_Module=>'PA_STATUS_PUB.UPDATE_PROGRESS', x_Msg => 'l_object_type='||l_object_type, x_Log_Level=> 3);
748: ---- the reason we have to check valid as_of_date for each record is because this can only be done after finding out it is future or backdated record
749: ----if (G_bulk_load_flag <> 'Y' and l_progress_mode = 'FUTURE') then
750: if p_structure_type <> 'FINANCIAL' then -- added for bug 5398704
751: if (l_progress_mode = 'FUTURE') then
752: if (l_object_type = 'PA_DELIVERABLES' OR l_object_type = 'PA_TASKS' OR l_object_type = 'PA_STRUCTURES')then
753: IF PA_PROGRESS_UTILS.CHECK_VALID_AS_OF_DATE(TRUNC(l_as_of_date), l_project_id_out, l_object_id, l_object_type ) = 'N'
754: AND trunc(nvl(l_latest_as_of_date,l_as_of_date + 1 )) <> TRUNC(l_as_of_date)
755: THEN
756: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1939: G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).PM_TASK_ASSGN_REFERENCE := l_PM_TASK_ASSGN_REFERENCE;
1940: G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).ACTUAL_COST_TO_DATE := l_ACTUAL_COST_TO_DATE;
1941: G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).ACTUAL_EFFORT_TO_DATE := l_ACTUAL_EFFORT_TO_DATE;
1942:
1943: IF G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).OBJECT_TYPE = 'PA_TASKS'
1944: THEN
1945: G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).LOWEST_LEVEL_TASK := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => l_OBJECT_VERSION_ID);
1946: ELSE
1947: G_TASK_PROGRESS_in_tbl(G_TASK_PROGRESS_tbl_count).LOWEST_LEVEL_TASK := 'N';
2260: select 'Y' into l_rollup from dual
2261: where exists (select 1 from pa_percent_completes
2262: where task_id = l_TASK_ID
2263: AND PROJECT_ID = l_project_id_out
2264: and object_type = 'PA_TASKS'
2265: and PROGRESS_STATUS_CODE is not null);
2266: G_TASK_PROGRESS_in_tbl(i).PROGRESS_STATUS_CODE := 'PROGRESS_STAT_ON_TRACK';
2267: l_PROGRESS_STATUS_CODE := G_TASK_PROGRESS_in_tbl(i).PROGRESS_STATUS_CODE; -- Bug 3754134
2268: exception WHEN NO_DATA_FOUND THEN
2826: */
2827:
2828: /* Bug 3606627
2829: if l_progress_mode <> 'BACKDATED' then
2830: IF l_object_type = 'PA_TASKS'
2831: THEN
2832: l_lowest_level_task := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => l_OBJECT_VERSION_ID);
2833: ELSE
2834: l_lowest_level_task := 'N';
2905:
2906: update pa_progress_rollup
2907: set COMPLETED_PERCENTAGE = null
2908: where project_id = l_project_id_out
2909: AND OBJECT_TYPE ='PA_TASKS'
2910: AND CURRENT_FLAG='Y'
2911: AND as_of_date=l_max_as_of_date
2912: and nvl(COMPLETED_PERCENTAGE,0) = nvl(eff_rollup_percent_comp, -1);
2913: