[Home] [Help]
134: l_dlvr_type_id NUMBER ;
135: l_pm_product_code pa_percent_completes.pm_product_code%TYPE ; -- FPM Dev CR 1
136: l_PROGRESS_COMMENT pa_percent_completes.progress_comment%TYPE ; -- FPM Dev CR 1
137: l_brief_overview pa_percent_completes.description%TYPE ; -- FPM Dev CR 1
138: l_progress_status_code pa_progress_rollup.progress_status_code%TYPE ; -- FPM Dev CR 3
139: l_record_version_number NUMBER ; -- FPM Dev CR 3
140: --3632883
141: l_dummy VARCHAR2(3);
142: l_rollup_current_flag VARCHAR2(1); -- Bug 3879461
209: and task_id = p_task_id
210: and structure_type = p_structure_type
211: ;
212:
213: delete from pa_progress_rollup
214: where project_id= p_project_id
215: and object_id = p_object_id
216: and current_flag = 'W'
217: and proj_element_id = p_task_id
233: and date_computed <= p_as_of_date --bug 4247839, modified so that two records are not created for same as of date
234: and structure_type = p_structure_type
235: ;
236:
237: delete from pa_progress_rollup
238: where project_id= p_project_id
239: and object_id = p_object_id
240: and current_flag = 'W'
241: and as_of_date < p_as_of_date
903: AND current_flag = 'Y'
904: AND object_type = p_object_type
905: AND structure_type = p_structure_type;
906:
907: UPDATE pa_progress_rollup
908: SET current_flag = 'N'
909: WHERE project_id = p_project_id
910: AND object_id = p_object_id
911: AND current_flag = 'Y'
917: -- This case would not be possible for Deliverable, but still code is there to make it in sycn with Assignments Case
918: -- IF l_db_action = 'UPDATE' THEN -- Commented to fix Bug # 3958892.
919: /*
920: -- Delete the published progress record on the same as of date
921: DELETE FROM pa_progress_rollup
922: where project_id = p_project_id
923: and object_id = p_object_id
924: and object_type = p_object_type
925: and structure_version_id is null
926: and structure_type = 'WORKPLAN'
927: and current_flag = 'Y'
928: and trunc(as_of_date) = trunc(p_as_of_date)
929: and exists(select 1
930: from pa_progress_rollup
931: where project_id = p_project_id
932: and object_id = p_object_id
933: and object_type = p_object_type
934: and structure_version_id is null
939: -- Update the working progress record on the same as of date as published progress
940: -- so that while updating rollup record its values can be considered
941: -- Basically this is done so get_prog_rollup_id can return this row for update mode
942:
943: Update pa_progress_rollup
944: set current_flag = 'Y'
945: where project_id = p_project_id
946: and object_id = p_object_id
947: and object_type = p_object_type
949: and structure_type = 'WORKPLAN'
950: and current_flag = 'W'
951: and trunc(as_of_date) = trunc(p_as_of_date);
952: */
953: Delete from pa_progress_rollup
954: where project_id = p_project_id
955: and object_id = p_object_id
956: and object_type = p_object_type
957: and structure_version_id is null
1092: pa_debug.write(x_Module=>'PA_DELIVERABLE_PROGRESS_PUB.UPDATE_DELIVERABLE_PROGRESS', x_Msg => 'INserting in progress rollup table', x_Log_Level=> 3);
1093: END IF;
1094:
1095:
1096: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
1097: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
1098: ,X_PROJECT_ID => p_project_id
1099: ,X_OBJECT_ID => p_object_id
1100: ,X_OBJECT_TYPE => p_object_type
1236: pa_debug.write(x_Module=>'PA_DELIVERABLE_PROGRESS_PUB.UPDATE_DELIVERABLE_PROGRESS', x_Msg => 'Updating in progress rollup table', x_Log_Level=> 3);
1237: END IF;
1238:
1239:
1240: PA_PROGRESS_ROLLUP_PKG.UPDATE_ROW(
1241: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
1242: ,X_PROJECT_ID => p_project_id
1243: ,X_OBJECT_ID => p_object_id
1244: ,X_OBJECT_TYPE => p_object_type
1482: IF g1_debug_mode = 'Y' THEN
1483: pa_debug.write(x_Module=>'PA_DELIVERABLE_PROGRESS_PUB.UPDATE_DELIVERABLE_PROGRESS', x_Msg => 'Updating progress rollup table', x_Log_Level=> 3);
1484: END IF;
1485:
1486: PA_PROGRESS_ROLLUP_PKG.UPDATE_ROW(
1487: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
1488: ,X_PROJECT_ID => p_project_id
1489: ,X_OBJECT_ID => p_object_id
1490: ,X_OBJECT_TYPE => p_object_type
1622: IF g1_debug_mode = 'Y' THEN
1623: pa_debug.write(x_Module=>'PA_DELIVERABLE_PROGRESS_PUB.UPDATE_DELIVERABLE_PROGRESS', x_Msg => 'Inserting progress rollup table', x_Log_Level=> 3);
1624: END IF;
1625:
1626: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
1627: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
1628: ,X_PROJECT_ID => p_project_id
1629: ,X_OBJECT_ID => p_object_id
1630: ,X_OBJECT_TYPE => p_object_type