[Home] [Help]
6: -- Pre-reqs : None
7: -- Return Value : N/A
8: -- Prameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7: -- Return Value : N/A
8: -- Prameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
8: -- Prameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
16: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29: G_IS_SUBPROJECT_EXISTS VARCHAR2(1);
30:
31: PROCEDURE Rollup_From_Subproject_Unltd(
32: p_api_version IN NUMBER := 1.0
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
36: ,p_validation_level IN VARCHAR2 := 100
37: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
30:
31: PROCEDURE Rollup_From_Subproject_Unltd(
32: p_api_version IN NUMBER := 1.0
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
36: ,p_validation_level IN VARCHAR2 := 100
37: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
38: ,p_debug_mode IN VARCHAR2 := 'N'
31: PROCEDURE Rollup_From_Subproject_Unltd(
32: p_api_version IN NUMBER := 1.0
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
36: ,p_validation_level IN VARCHAR2 := 100
37: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
38: ,p_debug_mode IN VARCHAR2 := 'N'
39: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
311: IF (l_debug_mode = 'Y') THEN
312: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Entered...', 3);
313: END IF;
314:
315: IF (p_commit = FND_API.G_TRUE) THEN
316: savepoint Rollup_From_Subproject_PVT;
317: END IF;
318:
319: IF (l_debug_mode = 'Y') THEN
320: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Performing validations...', 3);
321: END IF;
322:
323: IF (p_element_versions.count = 0) THEN
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325: return;
326: END IF;
327:
328: i:=1;
385: get_lnk_task_rel_det_rec.lnk_proj_id_to); --Bug 3634389
386:
387: FETCH get_lnk_task_start_dt INTO get_lnk_task_start_dt_rec;
388: IF get_lnk_task_start_dt%NOTFOUND THEN
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391: CLOSE get_lnk_task_start_dt;
392: --
393: --Getting the finish date for the linking task
395: get_lnk_task_rel_det_rec.lnk_proj_id_from, --Bug 3634389
396: get_lnk_task_rel_det_rec.lnk_proj_id_to); --Bug 3634389
397: FETCH get_lnk_task_finish_dt INTO get_lnk_task_finish_dt_rec;
398: IF get_lnk_task_finish_dt%NOTFOUND THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: CLOSE get_lnk_task_finish_dt;
402: --
403: --bug 4238036
445: WHERE element_version_id = get_lnk_task_rec.lnk_task_ver_id
446: AND project_id = l_lnk_task_project_id --Bug 3634389
447: ;
448: IF SQL%NOTFOUND THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452: END IF; -- Bug 6719725
453:
490: -- 5660584, pqe base bug 5638103
491: /* bug 5638103
492: --bug: 3696446
493: IF (length(l_predicate) IS NULL) THEN
494: x_return_status := FND_API.G_RET_STS_SUCCESS;
495: return;
496: END IF;
497: --end bug 3696446
498: */
643: end loop; -- by kchaitan end loop1
644: */
645: --Moved for final fix
646: IF (l_rollup_table.count = 0) THEN
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648: return;
649: END IF;
650: -- end changes for bug 5638103
651:
662: p_partial_effort_flag1 => 'Y',
663: p_process_rollup_flag1 => 'Y',
664: p_process_effort_flag1 => 'Y');
665: --
666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSE
669: IF ((PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_lnk_task_project_id) ='N') AND
670: (PA_RELATIONSHIP_UTILS.IS_AUTO_ROLLUP(l_lnk_task_project_id) = 'Y')) OR
663: p_process_rollup_flag1 => 'Y',
664: p_process_effort_flag1 => 'Y');
665: --
666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSE
669: IF ((PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_lnk_task_project_id) ='N') AND
670: (PA_RELATIONSHIP_UTILS.IS_AUTO_ROLLUP(l_lnk_task_project_id) = 'Y')) OR
671: ((PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_lnk_task_project_id) ='Y') AND
735: IF (l_debug_mode = 'Y') THEN
736: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status='||x_return_status, 3);
737: END IF;
738:
739: IF x_return_status = FND_API.G_RET_STS_ERROR then
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: END LOOP;
743: ELSE
736: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates x_return_status='||x_return_status, 3);
737: END IF;
738:
739: IF x_return_status = FND_API.G_RET_STS_ERROR then
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: END LOOP;
743: ELSE
744: FOR i IN l_rollup_table.FIRST..l_rollup_table.LAST LOOP
786: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES', 3);
787: END IF;
788:
789: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
790: p_validate_only => FND_API.G_FALSE
791: ,p_project_id => l_proj_id_tbl(i)
792: ,p_date_type => 'SCHEDULED'
793: ,p_start_date => l_get_sch_dates_cur.scheduled_start_date
794: ,p_finish_date => l_get_sch_dates_cur.scheduled_finish_date
800: IF (l_debug_mode = 'Y') THEN
801: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status, 3);
802: END IF;
803:
804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
807: END IF;
808:
801: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status, 3);
802: END IF;
803:
804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
807: END IF;
808:
809: IF (l_versioning = 'N') THEN
812: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION', 3);
813: END IF;
814:
815: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
816: p_commit => FND_API.G_FALSE,
817: p_structure_version_id => l_rollup_table(i).object_id,
818: x_return_status => x_return_status,
819: x_msg_count => x_msg_count,
820: x_msg_data => x_msg_data);
823: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status, 3);
824: END IF;
825:
826:
827: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
828: x_msg_count := FND_MSG_PUB.count_msg;
829: if x_msg_count = 1 then
830: x_msg_data := x_msg_data;
831: end if;
828: x_msg_count := FND_MSG_PUB.count_msg;
829: if x_msg_count = 1 then
830: x_msg_data := x_msg_data;
831: end if;
832: raise FND_API.G_EXC_ERROR;
833: end if;
834: END IF;
835: --end baseline changes
836:
848: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES', 3);
849: END IF;
850:
851: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
852: p_validate_only => FND_API.G_FALSE
853: ,p_project_id => l_struc_project_id
854: ,x_return_status => x_return_status
855: ,x_msg_count => x_msg_count
856: ,x_msg_data => x_msg_data
859: IF (l_debug_mode = 'Y') THEN
860: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd', 'After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATESx_return_status='||x_return_status, 3);
861: END IF;
862:
863: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
864: x_msg_count := FND_MSG_PUB.count_msg;
865: if x_msg_count = 1 then
866: x_msg_data := x_msg_data;
867: end if;
864: x_msg_count := FND_MSG_PUB.count_msg;
865: if x_msg_count = 1 then
866: x_msg_data := x_msg_data;
867: end if;
868: raise FND_API.G_EXC_ERROR;
869: end if;
870: END IF;
871: END IF; --<
872: END LOOP;
873: --end bug 4416432 issue # 5 and 6
874:
875: END IF; --end if for return status after calling pa_schedule_objects_pvt.generate_schedule
876: --
877: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
878: --
879: EXCEPTION
880: WHEN excp_resource_busy THEN -- Bug 6719725
881: IF (p_commit = FND_API.G_TRUE) THEN
877: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
878: --
879: EXCEPTION
880: WHEN excp_resource_busy THEN -- Bug 6719725
881: IF (p_commit = FND_API.G_TRUE) THEN
882: ROLLBACK to Rollup_From_Subproject_PVT;
883: END IF;
884: x_msg_count := FND_MSG_PUB.count_msg;
885: x_return_status := FND_API.G_RET_STS_ERROR;
881: IF (p_commit = FND_API.G_TRUE) THEN
882: ROLLBACK to Rollup_From_Subproject_PVT;
883: END IF;
884: x_msg_count := FND_MSG_PUB.count_msg;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886:
887: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
888: p_procedure_name => 'Rollup_From_Subproject',
889: p_error_text => 'The Strucuture of one of the project in program hierarchy is currently being updated by another process. Please re-submit the process update after sometime.');
888: p_procedure_name => 'Rollup_From_Subproject',
889: p_error_text => 'The Strucuture of one of the project in program hierarchy is currently being updated by another process. Please re-submit the process update after sometime.');
890:
891: RAISE;
892: WHEN FND_API.G_EXC_ERROR THEN
893: IF (p_commit = FND_API.G_TRUE) THEN
894: ROLLBACK to Rollup_From_Subproject_PVT;
895: END IF;
896: x_msg_count := FND_MSG_PUB.count_msg;
889: p_error_text => 'The Strucuture of one of the project in program hierarchy is currently being updated by another process. Please re-submit the process update after sometime.');
890:
891: RAISE;
892: WHEN FND_API.G_EXC_ERROR THEN
893: IF (p_commit = FND_API.G_TRUE) THEN
894: ROLLBACK to Rollup_From_Subproject_PVT;
895: END IF;
896: x_msg_count := FND_MSG_PUB.count_msg;
897: x_return_status := FND_API.G_RET_STS_ERROR;
893: IF (p_commit = FND_API.G_TRUE) THEN
894: ROLLBACK to Rollup_From_Subproject_PVT;
895: END IF;
896: x_msg_count := FND_MSG_PUB.count_msg;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: WHEN OTHERS THEN
899: IF (p_commit = FND_API.G_TRUE) THEN
900: ROLLBACK to Rollup_From_Subproject_PVT;
901: END IF;
895: END IF;
896: x_msg_count := FND_MSG_PUB.count_msg;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: WHEN OTHERS THEN
899: IF (p_commit = FND_API.G_TRUE) THEN
900: ROLLBACK to Rollup_From_Subproject_PVT;
901: END IF;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: x_msg_count := FND_MSG_PUB.count_msg;
898: WHEN OTHERS THEN
899: IF (p_commit = FND_API.G_TRUE) THEN
900: ROLLBACK to Rollup_From_Subproject_PVT;
901: END IF;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: x_msg_count := FND_MSG_PUB.count_msg;
904: --put message
905: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
906: p_procedure_name => 'Rollup_From_Subproject_Unltd',
914: * This procedure should be there to maintain compatibility with calls from online flow
915: */
916: PROCEDURE Rollup_From_Subproject(
917: p_api_version IN NUMBER := 1.0
918: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
919: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
920: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
921: ,p_validation_level IN VARCHAR2 := 100
922: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
915: */
916: PROCEDURE Rollup_From_Subproject(
917: p_api_version IN NUMBER := 1.0
918: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
919: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
920: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
921: ,p_validation_level IN VARCHAR2 := 100
922: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
923: ,p_debug_mode IN VARCHAR2 := 'N'
916: PROCEDURE Rollup_From_Subproject(
917: p_api_version IN NUMBER := 1.0
918: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
919: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
920: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
921: ,p_validation_level IN VARCHAR2 := 100
922: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
923: ,p_debug_mode IN VARCHAR2 := 'N'
924: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
941: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'BEGIN', 3);
942: END IF;
943:
944: IF (p_element_versions.count = 0) THEN
945: x_return_status := FND_API.G_RET_STS_SUCCESS;
946:
947: IF (l_debug_mode = 'Y') THEN
948: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.ROLLUP_FROM_SUBPROJECT', 'p_element_versions.COUNT is 0', 3);
949: END IF;
981: -- Pre-reqs : None
982: -- Return Value : N/A
983: -- Prameters
984: -- p_api_version IN NUMBER := 1.0
985: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
986: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
987: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
988: -- p_validation_level IN VARCHAR2 := 100
989: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
982: -- Return Value : N/A
983: -- Prameters
984: -- p_api_version IN NUMBER := 1.0
985: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
986: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
987: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
988: -- p_validation_level IN VARCHAR2 := 100
989: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
990: -- p_debug_mode IN VARCHAR2 := 'N'
983: -- Prameters
984: -- p_api_version IN NUMBER := 1.0
985: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
986: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
987: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
988: -- p_validation_level IN VARCHAR2 := 100
989: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
990: -- p_debug_mode IN VARCHAR2 := 'N'
991: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1002: -- cannot use PL/SQL table as an input/output parameter
1003:
1004: PROCEDURE TASKS_ROLLUP_UNLIMITED(
1005: p_api_version IN NUMBER := 1.0
1006: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1007: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1009: ,p_validation_level IN VARCHAR2 := 100
1010: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1003:
1004: PROCEDURE TASKS_ROLLUP_UNLIMITED(
1005: p_api_version IN NUMBER := 1.0
1006: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1007: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1009: ,p_validation_level IN VARCHAR2 := 100
1010: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1011: ,p_debug_mode IN VARCHAR2 := 'N'
1004: PROCEDURE TASKS_ROLLUP_UNLIMITED(
1005: p_api_version IN NUMBER := 1.0
1006: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1007: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1009: ,p_validation_level IN VARCHAR2 := 100
1010: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1011: ,p_debug_mode IN VARCHAR2 := 'N'
1012: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1023: IF (p_debug_mode = 'Y') THEN
1024: pa_debug.debug('PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited BEGIN');
1025: END IF;
1026:
1027: IF (p_commit = FND_API.G_TRUE) THEN
1028: savepoint TASKS_ROLLUP_UNLIMITED_PUB;
1029: END IF;
1030:
1031: If (p_element_versions.count = 0) THEN
1028: savepoint TASKS_ROLLUP_UNLIMITED_PUB;
1029: END IF;
1030:
1031: If (p_element_versions.count = 0) THEN
1032: x_return_status := FND_API.G_RET_STS_SUCCESS;
1033: return;
1034: END IF;
1035:
1036: FOR i in 1..p_element_versions.count LOOP
1056: ,x_msg_count => x_msg_count
1057: ,x_msg_data => x_msg_data
1058: );
1059: --Added by rtarway for BUG 4349474
1060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063: -- delete the array 100 records are reached
1064: l_element_ver_ids.delete;
1057: ,x_msg_data => x_msg_data
1058: );
1059: --Added by rtarway for BUG 4349474
1060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063: -- delete the array 100 records are reached
1064: l_element_ver_ids.delete;
1065: ELSE
1084: ,x_msg_count => x_msg_count
1085: ,x_msg_data => x_msg_data
1086: );
1087: --Added by rtarway for BUG 4349474
1088: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092:
1085: ,x_msg_data => x_msg_data
1086: );
1087: --Added by rtarway for BUG 4349474
1088: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092:
1093:
1090: END IF;
1091: END IF;
1092:
1093:
1094: IF (p_commit = FND_API.G_TRUE) THEN
1095: commit;
1096: END IF;
1097:
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1094: IF (p_commit = FND_API.G_TRUE) THEN
1095: commit;
1096: END IF;
1097:
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099:
1100: EXCEPTION
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: IF (p_commit = FND_API.G_TRUE) THEN
1097:
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099:
1100: EXCEPTION
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: IF (p_commit = FND_API.G_TRUE) THEN
1103: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1104: END IF;
1105: x_msg_count := FND_MSG_PUB.count_msg;
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099:
1100: EXCEPTION
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: IF (p_commit = FND_API.G_TRUE) THEN
1103: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1104: END IF;
1105: x_msg_count := FND_MSG_PUB.count_msg;
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1102: IF (p_commit = FND_API.G_TRUE) THEN
1103: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1104: END IF;
1105: x_msg_count := FND_MSG_PUB.count_msg;
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1107: WHEN OTHERS THEN
1108: IF (p_commit = FND_API.G_TRUE) THEN
1109: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1110: END IF;
1104: END IF;
1105: x_msg_count := FND_MSG_PUB.count_msg;
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1107: WHEN OTHERS THEN
1108: IF (p_commit = FND_API.G_TRUE) THEN
1109: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1110: END IF;
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: x_msg_count := FND_MSG_PUB.count_msg;
1107: WHEN OTHERS THEN
1108: IF (p_commit = FND_API.G_TRUE) THEN
1109: ROLLBACK to TASKS_ROLLUP_UNLIMITED_PUB;
1110: END IF;
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: x_msg_count := FND_MSG_PUB.count_msg;
1113: --put message
1114: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
1115: p_procedure_name => 'Tasks_Rollup_Unlimited',
1124: -- Pre-reqs : None
1125: -- Return Value : N/A
1126: -- Prameters
1127: -- p_api_version IN NUMBER := 1.0
1128: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1130: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: -- p_validation_level IN VARCHAR2 := 100
1132: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1125: -- Return Value : N/A
1126: -- Prameters
1127: -- p_api_version IN NUMBER := 1.0
1128: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1130: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: -- p_validation_level IN VARCHAR2 := 100
1132: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1133: -- p_debug_mode IN VARCHAR2 := 'N'
1126: -- Prameters
1127: -- p_api_version IN NUMBER := 1.0
1128: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1130: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1131: -- p_validation_level IN VARCHAR2 := 100
1132: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1133: -- p_debug_mode IN VARCHAR2 := 'N'
1134: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1139:
1140:
1141: Procedure Tasks_Rollup(
1142: p_api_version IN NUMBER := 1.0
1143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1146: ,p_validation_level IN VARCHAR2 := 100
1147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1140:
1141: Procedure Tasks_Rollup(
1142: p_api_version IN NUMBER := 1.0
1143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1146: ,p_validation_level IN VARCHAR2 := 100
1147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1148: ,p_debug_mode IN VARCHAR2 := 'N'
1141: Procedure Tasks_Rollup(
1142: p_api_version IN NUMBER := 1.0
1143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1146: ,p_validation_level IN VARCHAR2 := 100
1147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1148: ,p_debug_mode IN VARCHAR2 := 'N'
1149: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1372: IF (l_debug_mode = 'Y') THEN
1373: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Entered...', 3);
1374: END IF;
1375:
1376: IF (p_commit = FND_API.G_TRUE) THEN
1377: savepoint TASKS_ROLLUP_PVT;
1378: END IF;
1379:
1380: IF (l_debug_mode = 'Y') THEN
1381: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP', 'Performing validations',3);
1382: END IF;
1383:
1384: If (p_element_versions.count = 0) THEN
1385: x_return_status := FND_API.G_RET_STS_SUCCESS;
1386: return;
1387: END IF;
1388:
1389: l_index := 1;
1601: p_process_rollup_flag1 => 'Y',
1602: p_process_effort_flag1 => 'Y');
1603: end if;
1604:
1605: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSE
1608: /* BEGIN
1609: --Update the tasks
1602: p_process_effort_flag1 => 'Y');
1603: end if;
1604:
1605: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSE
1608: /* BEGIN
1609: --Update the tasks
1610: l_CursorId := DBMS_SQL.OPEN_CURSOR;
1635: -- hyau call API to get duration in hours to store to db
1636: OPEN get_calendar_id_csr(l_project_id, l_element_version_id);
1637: FETCH get_calendar_id_csr INTO l_calendar_id;
1638: IF get_calendar_id_csr%NOTFOUND then
1639: x_return_status := FND_API.G_RET_STS_ERROR;
1640: x_msg_count := 1;
1641: x_msg_data := 'PA_PS_NO_SCHEDULE_RECORD';
1642: RAISE FND_API.G_EXC_ERROR;
1643: end if;
1638: IF get_calendar_id_csr%NOTFOUND then
1639: x_return_status := FND_API.G_RET_STS_ERROR;
1640: x_msg_count := 1;
1641: x_msg_data := 'PA_PS_NO_SCHEDULE_RECORD';
1642: RAISE FND_API.G_EXC_ERROR;
1643: end if;
1644: CLOSE get_calendar_id_csr;
1645:
1646: pa_duration_utils.get_duration(
1652: ,x_return_status => x_return_status
1653: ,x_msg_count => x_msg_count
1654: ,x_msg_data => x_msg_data);
1655:
1656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1657: RAISE FND_API.G_EXC_ERROR;
1658: END IF;
1659:
1660: --Bind variables
1653: ,x_msg_count => x_msg_count
1654: ,x_msg_data => x_msg_data);
1655:
1656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1657: RAISE FND_API.G_EXC_ERROR;
1658: END IF;
1659:
1660: --Bind variables
1661: DBMS_SQL.BIND_VARIABLE(l_CursorId, ':sd', l_rollup_table(l_index).start_date1);
1679: if l_template_flag = 'Y' OR
1680: PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_proj_id_tbl(l_index)) = 'N' then
1681: if l_rollup_table(l_index).object_type = 'PA_STRUCTURES' then
1682: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
1683: p_validate_only => FND_API.G_FALSE
1684: ,p_project_id => l_proj_id_tbl(l_index)
1685: ,p_date_type => 'SCHEDULED'
1686: ,p_start_date => l_rollup_table(l_index).start_date1
1687: ,p_finish_date => l_rollup_table(l_index).finish_date1
1689: ,x_return_status => x_return_status
1690: ,x_msg_count => x_msg_count
1691: ,x_msg_data => x_msg_data );
1692:
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: END IF;
1696: END IF;
1697: END IF;
1690: ,x_msg_count => x_msg_count
1691: ,x_msg_data => x_msg_data );
1692:
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: RAISE FND_API.G_EXC_ERROR;
1695: END IF;
1696: END IF;
1697: END IF;
1698: -- End of changes
1873: WHEN OTHERS THEN
1874: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
1875: p_procedure_name => 'Tasks_Rollup',
1876: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates:'||SQLERRM,1,240));
1877: RAISE FND_API.G_EXC_ERROR;
1878: END;
1879:
1880: IF x_return_status = FND_API.G_RET_STS_ERROR then
1881: RAISE FND_API.G_EXC_ERROR;
1876: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENT_UTILS.Adjust_Asgmt_Dates:'||SQLERRM,1,240));
1877: RAISE FND_API.G_EXC_ERROR;
1878: END;
1879:
1880: IF x_return_status = FND_API.G_RET_STS_ERROR then
1881: RAISE FND_API.G_EXC_ERROR;
1882: End If;
1883: END LOOP;
1884: -- till here by skannoji
1877: RAISE FND_API.G_EXC_ERROR;
1878: END;
1879:
1880: IF x_return_status = FND_API.G_RET_STS_ERROR then
1881: RAISE FND_API.G_EXC_ERROR;
1882: End If;
1883: END LOOP;
1884: -- till here by skannoji
1885:
1899: END IF;
1900:
1901:
1902: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
1903: p_validate_only => FND_API.G_FALSE
1904: ,p_project_id => l_baseline_proj_id
1905: ,p_date_type => 'SCHEDULED'
1906: ,p_start_date => l_get_sch_dates_cur.scheduled_start_date
1907: ,p_finish_date => l_get_sch_dates_cur.scheduled_finish_date
1914: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES x_return_status='||x_return_status,3);
1915: END IF;
1916:
1917:
1918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1922:
1915: END IF;
1916:
1917:
1918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1922:
1923:
1927: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION l_structure_version_id='||l_structure_version_id,3);
1928: END IF;
1929:
1930: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1931: p_commit => FND_API.G_FALSE,
1932: p_structure_version_id => l_structure_version_id,
1933: x_return_status => x_return_status,
1934: x_msg_count => x_msg_count,
1935: x_msg_data => x_msg_data);
1938: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION x_return_status='||x_return_status,3);
1939: END IF;
1940:
1941:
1942: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1943: x_msg_count := FND_MSG_PUB.count_msg;
1944: if x_msg_count = 1 then
1945: x_msg_data := x_msg_data;
1946: end if;
1943: x_msg_count := FND_MSG_PUB.count_msg;
1944: if x_msg_count = 1 then
1945: x_msg_data := x_msg_data;
1946: end if;
1947: raise FND_API.G_EXC_ERROR;
1948: end if;
1949: END IF;
1950: --end baseline changes
1951:
1970: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','Before calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES',3);
1971: END IF;
1972:
1973: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
1974: p_validate_only => FND_API.G_FALSE
1975: ,p_project_id => l_struc_project_id
1976: ,x_return_status => x_return_status
1977: ,x_msg_count => x_msg_count
1978: ,x_msg_data => x_msg_data
1982: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES x_return_status='||x_return_status,3);
1983: END IF;
1984:
1985:
1986: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1987: x_msg_count := FND_MSG_PUB.count_msg;
1988: if x_msg_count = 1 then
1989: x_msg_data := x_msg_data;
1990: end if;
1987: x_msg_count := FND_MSG_PUB.count_msg;
1988: if x_msg_count = 1 then
1989: x_msg_data := x_msg_data;
1990: end if;
1991: raise FND_API.G_EXC_ERROR;
1992: end if;
1993:
1994: --copy to project level
1995:
2048: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project''s sub-project x_return_status='||x_return_status,3);
2049: END IF;
2050:
2051: --
2052: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2053: x_msg_count := FND_MSG_PUB.count_msg;
2054: if x_msg_count = 1 then
2055: x_msg_data := x_msg_data;
2056: end if;
2053: x_msg_count := FND_MSG_PUB.count_msg;
2054: if x_msg_count = 1 then
2055: x_msg_data := x_msg_data;
2056: end if;
2057: raise FND_API.G_EXC_ERROR;
2058: end if;
2059: /* bug 4541039
2060: --bug 4296915
2061: END IF;
2164: IF (l_debug_mode = 'Y') THEN
2165: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||
2166: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id||' x_return_status='||x_return_status,3);
2167: END If;
2168: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2169: x_msg_count := FND_MSG_PUB.count_msg;
2170: if x_msg_count = 1 then
2171: x_msg_data := x_msg_data;
2172: end if;
2169: x_msg_count := FND_MSG_PUB.count_msg;
2170: if x_msg_count = 1 then
2171: x_msg_data := x_msg_data;
2172: end if;
2173: raise FND_API.G_EXC_ERROR;
2174: end if;
2175: END IF; ----check_pub_str bug 4296915
2176: CLOSE check_pub_str;
2177: CLOSE chk_str_working_ver; --this shold be inside ELSE otherwise its giving invalid cursor. --maansari 4293726
2205: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.TASKS_ROLLUP','After calling Rollup_From_Subproject to rollup from the current project id='||
2206: cur_select_hier_rec.object_id_to2||' to its parent project id='||get_str_ver_ic_lnk_tasks_rec.parent_proj_id||' x_return_status='||x_return_status,3);
2207: END IF;
2208:
2209: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2210: x_msg_count := FND_MSG_PUB.count_msg;
2211: if x_msg_count = 1 then
2212: x_msg_data := x_msg_data;
2213: end if;
2210: x_msg_count := FND_MSG_PUB.count_msg;
2211: if x_msg_count = 1 then
2212: x_msg_data := x_msg_data;
2213: end if;
2214: raise FND_API.G_EXC_ERROR;
2215: end if;
2216:
2217: -- END IF;--end if for checking published ver exists or not
2218: END IF;--end if for checking veriosning enabled or not
2222: END IF; --l_rollup_from_sub_project = 'Y'
2223: END LOOP;
2224: ----bug 4541039
2225:
2226: x_return_status := FND_API.G_RET_STS_SUCCESS;
2227: --
2228: EXCEPTION
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: IF (p_commit = FND_API.G_TRUE) THEN
2225:
2226: x_return_status := FND_API.G_RET_STS_SUCCESS;
2227: --
2228: EXCEPTION
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: IF (p_commit = FND_API.G_TRUE) THEN
2231: ROLLBACK to TASKS_ROLLUP_PVT;
2232: END IF;
2233: x_msg_count := FND_MSG_PUB.count_msg;
2226: x_return_status := FND_API.G_RET_STS_SUCCESS;
2227: --
2228: EXCEPTION
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: IF (p_commit = FND_API.G_TRUE) THEN
2231: ROLLBACK to TASKS_ROLLUP_PVT;
2232: END IF;
2233: x_msg_count := FND_MSG_PUB.count_msg;
2234: x_return_status := FND_API.G_RET_STS_ERROR;
2230: IF (p_commit = FND_API.G_TRUE) THEN
2231: ROLLBACK to TASKS_ROLLUP_PVT;
2232: END IF;
2233: x_msg_count := FND_MSG_PUB.count_msg;
2234: x_return_status := FND_API.G_RET_STS_ERROR;
2235: WHEN OTHERS THEN
2236: IF (p_commit = FND_API.G_TRUE) THEN
2237: ROLLBACK to TASKS_ROLLUP_PVT;
2238: END IF;
2232: END IF;
2233: x_msg_count := FND_MSG_PUB.count_msg;
2234: x_return_status := FND_API.G_RET_STS_ERROR;
2235: WHEN OTHERS THEN
2236: IF (p_commit = FND_API.G_TRUE) THEN
2237: ROLLBACK to TASKS_ROLLUP_PVT;
2238: END IF;
2239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2240: x_msg_count := FND_MSG_PUB.count_msg;
2235: WHEN OTHERS THEN
2236: IF (p_commit = FND_API.G_TRUE) THEN
2237: ROLLBACK to TASKS_ROLLUP_PVT;
2238: END IF;
2239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2240: x_msg_count := FND_MSG_PUB.count_msg;
2241: --put message
2242: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2243: p_procedure_name => 'Tasks_Rollup',
2247: end Tasks_Rollup;
2248:
2249: Procedure Task_Status_Rollup(
2250: p_api_version IN NUMBER := 1.0
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2252: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2253: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2254: ,p_validation_level IN VARCHAR2 := 100
2255: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2248:
2249: Procedure Task_Status_Rollup(
2250: p_api_version IN NUMBER := 1.0
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2252: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2253: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2254: ,p_validation_level IN VARCHAR2 := 100
2255: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2256: ,p_debug_mode IN VARCHAR2 := 'N'
2249: Procedure Task_Status_Rollup(
2250: p_api_version IN NUMBER := 1.0
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2252: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2253: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2254: ,p_validation_level IN VARCHAR2 := 100
2255: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2256: ,p_debug_mode IN VARCHAR2 := 'N'
2257: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2391: IF (p_debug_mode = 'Y') THEN
2392: pa_debug.debug('PVT.TASK_STATUS_ROLLUP BEGIN');
2393: END IF;
2394:
2395: IF (p_commit = FND_API.G_TRUE) THEN
2396: savepoint TASK_STATUS_ROLLUP_PUB;
2397: END IF;
2398:
2399: IF (p_debug_mode = 'Y') THEN
2490: p_process_flag2 => 'N',
2491: p_process_rollup_flag2 => 'N',
2492: p_process_progress_flag2 => 'N');
2493:
2494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2495: RAISE FND_API.G_EXC_ERROR;
2496: END IF;
2497:
2498: --getting task status
2491: p_process_rollup_flag2 => 'N',
2492: p_process_progress_flag2 => 'N');
2493:
2494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2495: RAISE FND_API.G_EXC_ERROR;
2496: END IF;
2497:
2498: --getting task status
2499: OPEN get_task_status;
2545:
2546: END LOOP;
2547: END IF;
2548:
2549: x_return_status := FND_API.G_RET_STS_SUCCESS;
2550: EXCEPTION
2551: WHEN FND_API.G_EXC_ERROR THEN
2552: IF (p_commit = FND_API.G_TRUE) THEN
2553: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2547: END IF;
2548:
2549: x_return_status := FND_API.G_RET_STS_SUCCESS;
2550: EXCEPTION
2551: WHEN FND_API.G_EXC_ERROR THEN
2552: IF (p_commit = FND_API.G_TRUE) THEN
2553: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2554: END IF;
2555: x_msg_count := FND_MSG_PUB.count_msg;
2548:
2549: x_return_status := FND_API.G_RET_STS_SUCCESS;
2550: EXCEPTION
2551: WHEN FND_API.G_EXC_ERROR THEN
2552: IF (p_commit = FND_API.G_TRUE) THEN
2553: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2554: END IF;
2555: x_msg_count := FND_MSG_PUB.count_msg;
2556: x_return_status := FND_API.G_RET_STS_ERROR;
2552: IF (p_commit = FND_API.G_TRUE) THEN
2553: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2554: END IF;
2555: x_msg_count := FND_MSG_PUB.count_msg;
2556: x_return_status := FND_API.G_RET_STS_ERROR;
2557: WHEN OTHERS THEN
2558: IF (p_commit = FND_API.G_TRUE) THEN
2559: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2560: END IF;
2554: END IF;
2555: x_msg_count := FND_MSG_PUB.count_msg;
2556: x_return_status := FND_API.G_RET_STS_ERROR;
2557: WHEN OTHERS THEN
2558: IF (p_commit = FND_API.G_TRUE) THEN
2559: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2560: END IF;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: x_msg_count := FND_MSG_PUB.count_msg;
2557: WHEN OTHERS THEN
2558: IF (p_commit = FND_API.G_TRUE) THEN
2559: ROLLBACK to TASK_STATUS_ROLLUP_PUB;
2560: END IF;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: x_msg_count := FND_MSG_PUB.count_msg;
2563: --put message
2564: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2565: p_procedure_name => 'Task_Status_Rollup',
2569:
2570:
2571: Procedure Task_Stat_Pushdown_Rollup(
2572: p_api_version IN NUMBER := 1.0
2573: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2574: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2575: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2576: ,p_validation_level IN VARCHAR2 := 100
2577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2570:
2571: Procedure Task_Stat_Pushdown_Rollup(
2572: p_api_version IN NUMBER := 1.0
2573: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2574: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2575: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2576: ,p_validation_level IN VARCHAR2 := 100
2577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2578: ,p_debug_mode IN VARCHAR2 := 'N'
2571: Procedure Task_Stat_Pushdown_Rollup(
2572: p_api_version IN NUMBER := 1.0
2573: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2574: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2575: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2576: ,p_validation_level IN VARCHAR2 := 100
2577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2578: ,p_debug_mode IN VARCHAR2 := 'N'
2579: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2600: IF (p_debug_mode = 'Y') THEN
2601: pa_debug.debug('PVT.TASK_STATUS_ROLLUP BEGIN');
2602: END IF;
2603:
2604: IF (p_commit = FND_API.G_TRUE) THEN
2605: savepoint TASK_STAT_PUSHDOWN_ROLLUP;
2606: END IF;
2607:
2608: IF (p_debug_mode = 'Y') THEN
2615: FETCH get_zero_weight_status into l_zero_weight_rec;
2616: EXIT WHEN get_zero_weight_status%NOTFOUND;
2617:
2618: PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS(
2619: p_validate_only => FND_API.G_FALSE
2620: ,p_task_status => l_zero_weight_rec.status_code
2621: ,p_project_id => l_zero_weight_rec.project_id
2622: ,p_object_id => l_zero_weight_rec.proj_element_id
2623: ,p_object_version_id => l_zero_weight_rec.element_version_id
2626: ,x_msg_count => x_msg_count
2627: ,x_msg_data => x_msg_data
2628: );
2629:
2630: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2631: RAISE FND_API.G_EXC_ERROR;
2632: END IF;
2633:
2634: END LOOP;
2627: ,x_msg_data => x_msg_data
2628: );
2629:
2630: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2631: RAISE FND_API.G_EXC_ERROR;
2632: END IF;
2633:
2634: END LOOP;
2635: CLOSE get_zero_weight_status;
2640: ,x_return_status => x_return_status
2641: ,x_msg_count => x_msg_count
2642: ,x_msg_data => x_msg_data);
2643:
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2641: ,x_msg_count => x_msg_count
2642: ,x_msg_data => x_msg_data);
2643:
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649: EXCEPTION
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649: EXCEPTION
2650: WHEN FND_API.G_EXC_ERROR THEN
2651: IF (p_commit = FND_API.G_TRUE) THEN
2652: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2646: END IF;
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649: EXCEPTION
2650: WHEN FND_API.G_EXC_ERROR THEN
2651: IF (p_commit = FND_API.G_TRUE) THEN
2652: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2653: END IF;
2654: x_msg_count := FND_MSG_PUB.count_msg;
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649: EXCEPTION
2650: WHEN FND_API.G_EXC_ERROR THEN
2651: IF (p_commit = FND_API.G_TRUE) THEN
2652: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2653: END IF;
2654: x_msg_count := FND_MSG_PUB.count_msg;
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2651: IF (p_commit = FND_API.G_TRUE) THEN
2652: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2653: END IF;
2654: x_msg_count := FND_MSG_PUB.count_msg;
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2656: WHEN OTHERS THEN
2657: IF (p_commit = FND_API.G_TRUE) THEN
2658: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2659: END IF;
2653: END IF;
2654: x_msg_count := FND_MSG_PUB.count_msg;
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2656: WHEN OTHERS THEN
2657: IF (p_commit = FND_API.G_TRUE) THEN
2658: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2659: END IF;
2660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2661: x_msg_count := FND_MSG_PUB.count_msg;
2656: WHEN OTHERS THEN
2657: IF (p_commit = FND_API.G_TRUE) THEN
2658: ROLLBACK to TASK_STAT_PUSHDOWN_ROLLUP;
2659: END IF;
2660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2661: x_msg_count := FND_MSG_PUB.count_msg;
2662: --put message
2663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2664: p_procedure_name => 'Task_Stat_Pushdown_Rollup',
2672: -- Pre-reqs : None
2673: -- Return Value : N/A
2674: -- Prameters
2675: -- p_api_version IN NUMBER := 1.0
2676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2679: -- p_validation_level IN VARCHAR2 := 100
2680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2673: -- Return Value : N/A
2674: -- Prameters
2675: -- p_api_version IN NUMBER := 1.0
2676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2679: -- p_validation_level IN VARCHAR2 := 100
2680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2681: -- p_debug_mode IN VARCHAR2 := 'N'
2674: -- Prameters
2675: -- p_api_version IN NUMBER := 1.0
2676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2679: -- p_validation_level IN VARCHAR2 := 100
2680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2681: -- p_debug_mode IN VARCHAR2 := 'N'
2682: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2696: -- Bug 4541039
2697:
2698: PROCEDURE Program_Schedule_dates_rollup(
2699: p_api_version IN NUMBER := 1.0
2700: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2701: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2702: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2703: ,p_validation_level IN VARCHAR2 := 100
2704: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2697:
2698: PROCEDURE Program_Schedule_dates_rollup(
2699: p_api_version IN NUMBER := 1.0
2700: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2701: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2702: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2703: ,p_validation_level IN VARCHAR2 := 100
2704: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2705: ,p_debug_mode IN VARCHAR2 := 'N'
2698: PROCEDURE Program_Schedule_dates_rollup(
2699: p_api_version IN NUMBER := 1.0
2700: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2701: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2702: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2703: ,p_validation_level IN VARCHAR2 := 100
2704: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2705: ,p_debug_mode IN VARCHAR2 := 'N'
2706: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2797:
2798: BEGIN
2799:
2800: x_msg_count := 0;
2801: x_return_status := FND_API.G_RET_STS_SUCCESS;
2802: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2803:
2804: IF (p_debug_mode = 'Y') THEN
2805: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_structure_version_id='||p_structure_version_id, 3);
2805: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_structure_version_id='||p_structure_version_id, 3);
2806: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDULE_DATES_ROLLUP','Entered in PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP p_project_id='||p_project_id, 3);
2807: END IF;
2808:
2809: IF (p_commit = FND_API.G_TRUE) THEN
2810: savepoint Program_Schedule_dates_rollup;
2811: END IF;
2812:
2813: IF (p_structure_version_id IS NULL OR p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
2836: x_return_status => x_return_status,
2837: x_msg_count => x_msg_count,
2838: x_msg_data => x_msg_data);
2839:
2840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2841: RAISE FND_API.G_EXC_ERROR;
2842: END IF;
2843:
2844:
2837: x_msg_count => x_msg_count,
2838: x_msg_data => x_msg_data);
2839:
2840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2841: RAISE FND_API.G_EXC_ERROR;
2842: END IF;
2843:
2844:
2845: IF l_debug_mode = 'Y' THEN
2879: IF l_debug_mode = 'Y' THEN
2880: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2881: END IF;
2882:
2883: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2884: RAISE FND_API.G_EXC_ERROR;
2885: END IF;
2886: END IF;
2887: END LOOP;
2880: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2881: END IF;
2882:
2883: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2884: RAISE FND_API.G_EXC_ERROR;
2885: END IF;
2886: END IF;
2887: END LOOP;
2888: ELSIF (p_structure_version_id IS NOT NULL AND p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) --bug5861729
2918: IF l_debug_mode = 'Y' THEN
2919: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2920: END IF;
2921:
2922: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925: END IF;
2926:
2919: pa_debug.write('PA_STRUCT_TASK_ROLLUP_PUB.PROGRAM_SCHEDUlE_DATES_ROLLUP', 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Rollup_From_Subproject_Unltd x_return_status='||x_return_status, 3);
2920: END IF;
2921:
2922: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925: END IF;
2926:
2927: END IF; --if p_structure_verison is not null
2925: END IF;
2926:
2927: END IF; --if p_structure_verison is not null
2928:
2929: x_return_status := FND_API.G_RET_STS_SUCCESS;
2930: EXCEPTION
2931: WHEN FND_API.G_EXC_ERROR THEN
2932: IF (p_commit = FND_API.G_TRUE) THEN
2933: ROLLBACK to Program_Schedule_dates_rollup;
2927: END IF; --if p_structure_verison is not null
2928:
2929: x_return_status := FND_API.G_RET_STS_SUCCESS;
2930: EXCEPTION
2931: WHEN FND_API.G_EXC_ERROR THEN
2932: IF (p_commit = FND_API.G_TRUE) THEN
2933: ROLLBACK to Program_Schedule_dates_rollup;
2934: END IF;
2935: x_msg_count := FND_MSG_PUB.count_msg;
2928:
2929: x_return_status := FND_API.G_RET_STS_SUCCESS;
2930: EXCEPTION
2931: WHEN FND_API.G_EXC_ERROR THEN
2932: IF (p_commit = FND_API.G_TRUE) THEN
2933: ROLLBACK to Program_Schedule_dates_rollup;
2934: END IF;
2935: x_msg_count := FND_MSG_PUB.count_msg;
2936: x_return_status := FND_API.G_RET_STS_ERROR;
2932: IF (p_commit = FND_API.G_TRUE) THEN
2933: ROLLBACK to Program_Schedule_dates_rollup;
2934: END IF;
2935: x_msg_count := FND_MSG_PUB.count_msg;
2936: x_return_status := FND_API.G_RET_STS_ERROR;
2937: WHEN OTHERS THEN
2938: IF (p_commit = FND_API.G_TRUE) THEN
2939: ROLLBACK to Program_Schedule_dates_rollup;
2940: END IF;
2934: END IF;
2935: x_msg_count := FND_MSG_PUB.count_msg;
2936: x_return_status := FND_API.G_RET_STS_ERROR;
2937: WHEN OTHERS THEN
2938: IF (p_commit = FND_API.G_TRUE) THEN
2939: ROLLBACK to Program_Schedule_dates_rollup;
2940: END IF;
2941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2942: x_msg_count := FND_MSG_PUB.count_msg;
2937: WHEN OTHERS THEN
2938: IF (p_commit = FND_API.G_TRUE) THEN
2939: ROLLBACK to Program_Schedule_dates_rollup;
2940: END IF;
2941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2942: x_msg_count := FND_MSG_PUB.count_msg;
2943: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCT_TASK_ROLLUP_PUB',
2944: p_procedure_name => 'Program_Schedule_dates_rollup',
2945: p_error_text => SUBSTRB(SQLERRM,1,240));