3814: -- Commented below call
3815: -- Added new
3816: /*
3817:
3818: PA_PROGRESS_PVT.convert_task_prog_to_assgn
3819: ( p_resource_list_mem_id => l_resource_list_member_id
3820: ,p_project_id => p_project_id
3821: ,p_task_id => p_object_id
3822: ,p_structure_version_id => l_structure_version_id
4264: -- case it will ignore the passed object and starts with the lowest
4265: -- task
4266: -- History : 17-MAR-04 amksingh Rewritten For FPM Development Tracking Bug 3420093
4267: -- 08-SEP-2004 Rakesh Raghavan Bug # 3879910. Replaced code with call to API:
4268: -- PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT().
4269: -- End of comments
4270:
4271: PROCEDURE ROLLUP_PROGRESS_PVT(
4272: p_api_version IN NUMBER :=1.0
4375: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4376: FND_MSG_PUB.initialize;
4377: END IF;
4378:
4379: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4380:
4381: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
4382: p_api_version => p_api_version
4383: ,p_init_msg_list => p_init_msg_list
4377: END IF;
4378:
4379: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4380:
4381: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
4382: p_api_version => p_api_version
4383: ,p_init_msg_list => p_init_msg_list
4384: ,p_commit => p_commit
4385: ,p_validate_only => p_validate_only
4472: -- p_wp_rollup_method Possible values are COST, EFFORT, MANUAL, DURATION
4473: -- p_published_structure To indicate if the passed structure version is published
4474: -- History : 17-MAR-04 amksingh Rewritten For FPM Development Tracking Bug 3420093
4475: -- 08-SEP-2004 Rakesh Raghavan Bug # 3879910. Replaced code with call to API:
4476: -- PA_PROGRESS_PVT.UPDATE_ROLLUP_PROGRESS_PVT().
4477: -- End of comments
4478:
4479: PROCEDURE UPDATE_ROLLUP_PROGRESS_PVT(
4480: p_api_version IN NUMBER :=1.0
4558: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4559: FND_MSG_PUB.initialize;
4560: END IF;
4561:
4562: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4563:
4564: PA_PROGRESS_PVT.UPDATE_ROLLUP_PROGRESS_PVT(
4565: p_api_version => p_api_version
4566: ,p_init_msg_list => p_init_msg_list
4560: END IF;
4561:
4562: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4563:
4564: PA_PROGRESS_PVT.UPDATE_ROLLUP_PROGRESS_PVT(
4565: p_api_version => p_api_version
4566: ,p_init_msg_list => p_init_msg_list
4567: ,p_commit => p_commit
4568: ,p_validate_only => p_validate_only
7144: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ROLLUP_FUTURE_PROGRESS_PVT', x_Msg => 'p_fin_rollup_method='||p_fin_rollup_method, x_Log_Level=> 3);
7145: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ROLLUP_FUTURE_PROGRESS_PVT', x_Msg => 'p_wp_rollup_method='||p_wp_rollup_method, x_Log_Level=> 3);
7146: END IF;
7147:
7148: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
7149:
7150: PA_PROGRESS_PVT.ROLLUP_FUTURE_PROGRESS_PVT(
7151: p_project_id => p_project_id
7152: ,P_OBJECT_TYPE => P_OBJECT_TYPE
7146: END IF;
7147:
7148: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
7149:
7150: PA_PROGRESS_PVT.ROLLUP_FUTURE_PROGRESS_PVT(
7151: p_project_id => p_project_id
7152: ,P_OBJECT_TYPE => P_OBJECT_TYPE
7153: ,P_OBJECT_ID => P_OBJECT_ID
7154: ,p_object_version_id => p_object_version_id
8473: -- Bug 3956248 : Added call of copy_actuals_for_workplan
8474:
8475: BEGIN
8476: IF g1_debug_mode = 'Y' THEN
8477: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'Before calling pa_progress_pvt.copy_actuals_for_workplan ', x_Log_Level=> 3);
8478: END IF;
8479: --bug 4046422
8480: --pa_fp_copy_from_pkg.copy_actuals_for_workplan(
8481:
8478: END IF;
8479: --bug 4046422
8480: --pa_fp_copy_from_pkg.copy_actuals_for_workplan(
8481:
8482: pa_progress_pvt.copy_actuals_for_workplan(
8483: p_calling_context => 'WP_APPLY_PROGRESS_TO_WORKING'
8484: ,p_project_id => p_project_id
8485: ,p_source_struct_ver_id => PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id(p_project_id)
8486: ,p_target_struct_ver_id => p_working_str_version_id
8489: ,x_msg_data => l_msg_data);
8490:
8491:
8492: IF g1_debug_mode = 'Y' THEN
8493: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'After pa_progress_pvt.copy_actuals_for_workplan l_return_status='||l_return_status, x_Log_Level=> 3);
8494: END IF;
8495: EXCEPTION
8496: WHEN OTHERS THEN
8497: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8495: EXCEPTION
8496: WHEN OTHERS THEN
8497: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8498: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8499: p_error_text => SUBSTRB('PA_PROGRESS_PVT.COPY_ACTUALS_FOR_WORKPLAN:'||SQLERRM,1,120));
8500: RAISE FND_API.G_EXC_ERROR;
8501: END;
8502:
8503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9064: l_project_id_list.extend;
9065: l_proj_pgm_level.extend;
9066: l_project_id_list(1) := P_Project_ID;
9067: l_proj_pgm_level(1) := 1; ---setting to 2 so that pgm rollup is done
9068: -- 4600547 : We don't need to set it to 2 because PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS
9069: -- will take care of program rollup part after this call
9070:
9071: IF g1_debug_mode = 'Y' THEN
9072: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PULL_SUMMARIZED_ACTUALS', x_Msg => 'Calling GET_SUMMARIZED_ACTUALS with p_plan_res_level Y', x_Log_Level=> 3);
10012: END;
10013: */
10014: END IF;-- p_structure_type = 'WORKPLAN' THEN
10015:
10016: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
10017: p_init_msg_list => 'F'
10018: ,p_commit => 'F'
10019: ,p_validate_only => 'F'
10020: ,p_calling_module => p_calling_module
10108: ELSE
10109: l_calling_mode := 'FUTURE_ROLLUP';
10110: END IF;
10111:
10112: PA_PROGRESS_PVT.ROLLUP_FUTURE_PROGRESS_PVT(
10113: p_project_id => p_project_id
10114: ,P_OBJECT_TYPE => l_object_type
10115: ,P_OBJECT_ID => l_task_id -- p_task_id 3603636
10116: ,p_object_version_id => l_task_version_id
10153: AND l_structure_version_id IS NOT NULL THEN
10154: IF g1_debug_mode = 'Y' THEN
10155: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'Calling program_rollup_pvt', x_Log_Level=> 3);
10156: END IF;
10157: pa_progress_pvt.program_rollup_pvt(
10158: p_init_msg_list => 'F'
10159: ,p_commit => 'F'
10160: ,p_validate_only => 'F'
10161: ,p_project_id => p_project_id
11051: END IF;
11052:
11053: x_return_status := FND_API.G_RET_STS_SUCCESS;
11054:
11055: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
11056:
11057: PA_PROGRESS_PVT.program_rollup_pvt(
11058: p_api_version => p_api_version
11059: ,p_init_msg_list => p_init_msg_list
11053: x_return_status := FND_API.G_RET_STS_SUCCESS;
11054:
11055: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
11056:
11057: PA_PROGRESS_PVT.program_rollup_pvt(
11058: p_api_version => p_api_version
11059: ,p_init_msg_list => p_init_msg_list
11060: ,p_commit => p_commit
11061: ,p_validate_only => p_validate_only
19440: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
19441: x_Msg => 'Calling program_rollup_pvt l_project_id='||l_project_id||', str ver id='||latest_wp_struct_ver_ids_tbl(l_index)||',l_temp_as_of_date='||l_temp_as_of_date ,
19442: x_Log_Level=> 3);
19443:
19444: pa_progress_pvt.program_rollup_pvt(p_init_msg_list => 'F'
19445: ,p_validate_only => 'F'
19446: ,p_project_id => l_project_id
19447: ,p_as_of_date => l_temp_as_of_date
19448: ,p_structure_type => 'WORKPLAN'
21241: -- Purpose : This API is intdended to be called for Assignment, Deliverables in Task Progress Details page when user clicks Recalculate button
21242: -- : This does partial rollup of working progress records
21243: -- History : 15-JUNE-04 amksingh Rewritten For FPM Development Bug 3614828
21244: -- 08-SEP-2004 Rakesh Raghavan Bug # 3879910. Replaced code with call to API:
21245: -- PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT().
21246: -- End of comments
21247:
21248: PROCEDURE ASGN_DLV_TO_TASK_ROLLUP_PVT(
21249: p_api_version IN NUMBER :=1.0
21318: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21319: FND_MSG_PUB.initialize;
21320: END IF;
21321:
21322: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
21323:
21324: PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT(
21325: p_api_version => p_api_version
21326: ,p_init_msg_list => p_init_msg_list
21320: END IF;
21321:
21322: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
21323:
21324: PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT(
21325: p_api_version => p_api_version
21326: ,p_init_msg_list => p_init_msg_list
21327: ,p_commit => p_commit
21328: ,p_validate_only => p_validate_only
23552:
23553: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
23554: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
23555: THEN
23556: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
23557: p_init_msg_list => p_init_msg_list
23558: ,p_commit => p_commit
23559: ,p_validate_only => p_validate_only
23560: ,p_project_id => p_project_id_tbl(i)
23586: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
23587: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
23588: THEN
23589:
23590: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
23591: p_init_msg_list => 'F'
23592: ,p_commit => 'F'
23593: ,p_validate_only => 'F'
23594: ,p_calling_module => p_calling_module
23634: END IF;
23635: --14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
23636: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N')= 'N'
23637: THEN
23638: PA_PROGRESS_PVT.ROLLUP_FUTURE_PROGRESS_PVT(
23639: p_project_id => p_project_id_tbl(i)
23640: ,P_OBJECT_TYPE => l_object_type_tbl(i)
23641: ,P_OBJECT_ID => l_task_id
23642: ,p_object_version_id => l_task_version_id_tbl(i)
23740: IF g1_debug_mode = 'Y' THEN
23741: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'Calling program_rollup_pvt', x_Log_Level=> 3);
23742: END IF;
23743:
23744: pa_progress_pvt.program_rollup_pvt(
23745: p_init_msg_list => 'F'
23746: ,p_commit => 'F'
23747: ,p_validate_only => 'F'
23748: ,p_project_id => p_project_id_tbl(i)