[Home] [Help]
1: package body PA_FP_ELEMENTS_PUB as
2: /* $Header: PAFPELPB.pls 120.2 2005/09/26 11:30:51 rnamburi noship $ */
3:
4: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fp_elements_pub';
5: g_plsql_max_array_size NUMBER := 200;
1: package body PA_FP_ELEMENTS_PUB as
2: /* $Header: PAFPELPB.pls 120.2 2005/09/26 11:30:51 rnamburi noship $ */
3:
4: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fp_elements_pub';
5: g_plsql_max_array_size NUMBER := 200;
6:
7: /*==================================================================================================
8: REFRESH_FP_ELEMENTS: This procedure is used to refresh the existing FP Elements records i.e.
45: BEGIN
46:
47: FND_MSG_PUB.initialize;
48: IF P_PA_DEBUG_MODE = 'Y' THEN
49: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Refresh_FP_Elements');
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
53: IF P_PA_DEBUG_MODE = 'Y' THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: x_msg_count := 1;
176: x_msg_data := SQLERRM;
177: FND_MSG_PUB.add_exc_msg
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
179: ,p_procedure_name => pa_debug.G_Err_Stack );
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
195: -> If the Source FP Option is passed, then details are got from the Source FP Option and inserted
196: for the Target FP Option.
197:
198: Bug 2920954 :- This is an existing api that has been modified to include the resource selection and
199: resource planning level parameters to pa_fp_elements_pub.insert_default api. P_copy_mode has been
200: added as a parameter to this api. If copying elements for baselined version, only the elements with
201: plan amounts need to copied.
202:
203: For bug 2976168. Copy the elements from excluded_elements table if the copy mode is not B
260: BEGIN
261:
262: FND_MSG_PUB.initialize;
263: IF P_PA_DEBUG_MODE = 'Y' THEN
264: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Copy_Elements');
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
268: IF P_PA_DEBUG_MODE = 'Y' THEN
574:
575: IF (l_from_planning_level <> l_to_planning_level OR
576: l_from_resource_list_id <> l_to_resource_list_id) THEN
577:
578: pa_debug.g_err_stage := 'Bug# 2684787: PA_FP_ELEMENTS_PUB.COPY_ELEMENTS being called with ' ||
579: 'incompatible planning levels/resource list ids..';
580: IF P_PA_DEBUG_MODE = 'Y' THEN
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: x_msg_count := 1;
880: x_msg_data := SQLERRM;
881: FND_MSG_PUB.add_exc_msg
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
883: ,p_procedure_name => pa_debug.G_Err_Stack );
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
967: l_task_id_tbl l_task_id_tbl_typ ;
968: l_top_task_id_tbl l_top_task_id_tbl_typ ;
969: l_top_plan_level_tbl l_top_plan_level_tbl_typ;
970: l_plannable_flag_tbl l_plannable_flag_tbl_typ;
971: l_dummy_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
972:
973: /* Cursor for Top and Lowest Tasks */
974: /* M24-08: Modified this cursor as it was previously inserting top and lowest task with plannable
975: flag as 'N'
1014: AND task_id = top_task_id;
1015:
1016: BEGIN
1017:
1018: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Insert_Default');
1019: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1020: l_debug_mode := NVL(l_debug_mode, 'Y');
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1398: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling add_resources_automatically';
1399: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1400: END IF;
1401:
1402: PA_FP_ELEMENTS_PUB.Add_resources_automatically
1403: ( p_proj_fp_options_id => p_proj_fp_options_id
1404: ,p_element_type => p_element_type
1405: ,p_fin_plan_level_code => l_planning_level
1406: ,p_resource_list_id => l_resource_list_id
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := 1;
1443: x_msg_data := SQLERRM;
1444: FND_MSG_PUB.add_exc_msg
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1446: ,p_procedure_name => pa_debug.G_Err_Stack );
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1479: l_debug_mode VARCHAR2(30);
1480:
1481: BEGIN
1482:
1483: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Elements');
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1548: x_msg_count := 1;
1549: x_msg_data := SQLERRM;
1550: FND_MSG_PUB.add_exc_msg
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1552: ,p_procedure_name => pa_debug.G_Err_Stack );
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1598: l_row_update_count NUMBER;
1599:
1600: BEGIN
1601:
1602: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Element');
1603: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1604: l_debug_mode := NVL(l_debug_mode, 'Y');
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: x_msg_count := 1;
1809: x_msg_data := SQLERRM;
1810: FND_MSG_PUB.add_exc_msg
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1812: ,p_procedure_name => pa_debug.G_Err_Stack );
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1939: x_msg_count := 1;
1940: x_msg_data := SQLERRM;
1941: FND_MSG_PUB.add_exc_msg
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1943: ,p_procedure_name => pa_debug.G_Err_Stack );
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2046: x_msg_count := 1;
2047: x_msg_data := SQLERRM;
2048: FND_MSG_PUB.add_exc_msg
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2050: ,p_procedure_name => pa_debug.G_Err_Stack );
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2180: BEGIN
2181:
2182: x_msg_count := 0;
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2188: pa_debug.set_process('create_enterable_resources: ' || 'PLSQL','LOG',l_debug_mode);
2578:
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: x_msg_count := 1;
2581: x_msg_data := SQLERRM;
2582: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
2583: ,p_procedure_name => 'CREATE_ENTERABLE_RESOURCES');
2584: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2958: -- The following procedure calls insert bulk rows api
2959:
2960: PROCEDURE Call_Insert_Bulk_Rows_Elements IS
2961: BEGIN
2962: PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows (
2963: p_proj_fp_options_id => p_proj_fp_options_id
2964: ,p_project_id => fp_options_rec.project_id
2965: ,p_fin_plan_type_id => fp_options_rec.fin_plan_type_id
2966: ,p_element_type => p_element_type
3382: l_res_planning_level PA_FP_ELEMENTS.RESOURCE_PLANNING_LEVEL%TYPE;
3383: l_fin_plan_level_code PA_PROJ_FP_OPTIONS.COST_FIN_PLAN_LEVEL_CODE%TYPE;
3384: l_stage NUMBER := 100;
3385:
3386: l_dummy_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
3387:
3388: BEGIN
3389:
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3386: l_dummy_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
3387:
3388: BEGIN
3389:
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3392: l_debug_mode := NVL(l_debug_mode, 'Y');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3484: P_ELEMENT_TYPE => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST);
3485:
3486: /* If automatic resource addition is enabled, call add_resources_automatically api for entire option */
3487:
3488: PA_FP_ELEMENTS_PUB.Add_resources_automatically
3489: ( p_proj_fp_options_id => p_proj_fp_options_id
3490: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
3491: ,p_fin_plan_level_code => l_fin_plan_level_code
3492: ,p_resource_list_id => p_cost_resource_list_id
3577: P_ELEMENT_TYPE => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE);
3578:
3579: /* If automatic resource addition is enabled, call add_resources_automatically api for entire option */
3580:
3581: PA_FP_ELEMENTS_PUB.Add_resources_automatically
3582: ( p_proj_fp_options_id => p_proj_fp_options_id
3583: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
3584: ,p_fin_plan_level_code => l_fin_plan_level_code
3585: ,p_resource_list_id => p_rev_resource_list_id
3664: P_ELEMENT_TYPE => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL);
3665:
3666: /* If automatic resource addition is enabled, call add_resources_automatically api for entire option */
3667:
3668: PA_FP_ELEMENTS_PUB.Add_resources_automatically
3669: ( p_proj_fp_options_id => p_proj_fp_options_id
3670: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL
3671: ,p_fin_plan_level_code => l_fin_plan_level_code
3672: ,p_resource_list_id => p_all_resource_list_id
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: x_msg_count := 1;
3737: x_msg_data := SQLERRM;
3738: FND_MSG_PUB.add_exc_msg
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3740: ,p_procedure_name => pa_debug.G_Err_Stack );
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3849: BEGIN
3850:
3851: x_msg_count := 0;
3852: x_return_status := FND_API.G_RET_STS_SUCCESS;
3853: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3855: l_debug_mode := NVL(l_debug_mode, 'Y');
3856: IF P_PA_DEBUG_MODE = 'Y' THEN
3857: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
4016:
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018: x_msg_count := 1;
4019: x_msg_data := SQLERRM;
4020: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4021: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4022: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4023: IF P_PA_DEBUG_MODE = 'Y' THEN
4024: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4206: BEGIN
4207:
4208: x_msg_count := 0;
4209: x_return_status := FND_API.G_RET_STS_SUCCESS;
4210: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4211: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4212: l_debug_mode := NVL(l_debug_mode, 'Y');
4213: IF P_PA_DEBUG_MODE = 'Y' THEN
4214: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4500:
4501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4502: x_msg_count := 1;
4503: x_msg_data := SQLERRM;
4504: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4505: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4506: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4507: IF P_PA_DEBUG_MODE = 'Y' THEN
4508: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4534: ,p_fin_plan_level_code IN pa_proj_fp_options.cost_fin_plan_level_code%TYPE
4535: ,p_resource_list_id IN pa_resource_lists_all_bg.resource_list_id%TYPE
4536: ,p_res_planning_level IN pa_proj_fp_options.cost_res_planning_level%TYPE
4537: ,p_entire_option IN VARCHAR2
4538: ,p_element_task_id_tbl IN pa_fp_elements_pub.l_task_id_tbl_typ
4539: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4540: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4541: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
4542: AS
5009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5010: x_msg_count := 1;
5011: x_msg_data := SQLERRM;
5012: FND_MSG_PUB.add_exc_msg
5013: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5014: ,p_procedure_name => 'ADD_RESOURCES_AUTOMATICALLY'
5015: ,p_error_text => sqlerrm);
5016: pa_debug.reset_curr_function;
5017: RAISE;
5133: x_msg_count := 1;
5134: x_msg_data := SQLERRM;
5135:
5136: FND_MSG_PUB.add_exc_msg
5137: ( p_pkg_name => 'pa_Fp_elements_pub'
5138: ,p_procedure_name => 'delete_task_elements'
5139: ,p_error_text => x_msg_data);
5140:
5141: IF l_debug_mode = 'Y' THEN
5146: RAISE;
5147: END delete_task_elements;
5148: /*
5149: For bug 2976168.
5150: This API is called from pa_fp_elements_pub.make_new_tasks_plannable api for an option and element_type.
5151: This API will be used to decide whether to insert a task in fp elements table or not. This api will also
5152: provide the plannable flag and task planning level of all the tasks that are eligible for insertion.
5153: */
5154: PROCEDURE Get_Task_Element_Attributes
5515: x_msg_count := 1;
5516: x_msg_data := SQLERRM;
5517:
5518: FND_MSG_PUB.add_exc_msg
5519: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5520: ,p_procedure_name => 'Get_Task_Element_Attributes'
5521: ,p_error_text => x_msg_data);
5522:
5523: IF l_debug_mode = 'Y' THEN
5544:
5545: PROCEDURE add_tasks_to_option
5546: ( p_proj_fp_options_id IN pa_proj_fp_options.proj_fp_options_id%TYPE
5547: ,p_element_type IN pa_fp_elements.element_type%TYPE
5548: ,p_tasks_tbl IN pa_fp_elements_pub.l_wbs_refresh_tasks_tbl_typ
5549: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5550: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5551: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
5552: AS
5590:
5591: proj_fp_options_rec proj_fp_options_cur%ROWTYPE;
5592:
5593:
5594: l_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
5595:
5596: l_task_plannable_flag VARCHAR2(1); /* represents the plannable of the task to
5597: be inserted*/
5598:
5905: END IF;
5906:
5907: l_task_id_tbl(1) := p_tasks_tbl(i).task_id;
5908:
5909: PA_FP_ELEMENTS_PUB.ADD_RESOURCES_AUTOMATICALLY
5910: ( p_proj_fp_options_id => p_proj_fp_options_id
5911: ,p_element_type => p_element_type
5912: ,p_fin_plan_level_code => proj_fp_options_rec.fin_plan_level_code
5913: ,p_resource_list_id => proj_fp_options_rec.resource_list_id
5948: pa_debug.g_err_stage:= 'Calling create_enterable_resources...';
5949: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5950: END IF;
5951:
5952: PA_FP_ELEMENTS_PUB.create_enterable_resources
5953: ( p_plan_version_id => proj_fp_options_rec.fin_plan_version_id
5954: ,p_res_del_req_flag => 'N' /* Since deletion of resource assignments has already been done in this flow */
5955: ,x_return_status => x_return_status
5956: ,x_msg_count => x_msg_count
6004: x_msg_count := 1;
6005: x_msg_data := SQLERRM;
6006:
6007: FND_MSG_PUB.add_exc_msg
6008: ( p_pkg_name => 'pa_fp_elements_pub'
6009: ,p_procedure_name => 'add_task_to_option'
6010: ,p_error_text => x_msg_data);
6011:
6012: IF l_debug_mode = 'Y' THEN
6027: pa_fin_plan_maint_ver_global.resubmit_concurrent_request */
6028:
6029: PROCEDURE make_new_tasks_plannable
6030: ( p_project_id IN pa_projects_all.project_id%TYPE
6031: ,p_tasks_tbl IN pa_fp_elements_pub.l_wbs_refresh_tasks_tbl_typ
6032: ,p_refresh_fp_options_tbl IN PA_PLSQL_DATATYPES.IdTabTyp
6033: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6034: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6035: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
6315: x_msg_count := 1;
6316: x_msg_data := SQLERRM;
6317:
6318: FND_MSG_PUB.add_exc_msg
6319: ( p_pkg_name => 'pa_fp_elements_pub'
6320: ,p_procedure_name => 'make_new_tasks_plannable'
6321: ,p_error_text => x_msg_data);
6322:
6323: IF l_debug_mode = 'Y' THEN
6752: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6753:
6754: END IF;
6755:
6756: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for impacted task id */
6757:
6758: /* For Bug 2976168. Modified the call to make new task plannable api.
6759:
6760: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6756: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for impacted task id */
6757:
6758: /* For Bug 2976168. Modified the call to make new task plannable api.
6759:
6760: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6761: ( p_project_id => p_project_id
6762: ,p_task_id => p_impacted_tasks_tbl(i).impacted_task_id
6763: ,x_return_status => x_return_status
6764: ,x_msg_count => x_msg_count
6774: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
6775: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
6776: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
6777:
6778: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
6779: ( p_project_id => p_project_id
6780: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
6781: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
6782: ,x_return_status => x_return_status
6858: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6859:
6860: END IF;
6861:
6862: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for old parent task id */
6863:
6864: /* Bug 2976168. Changed the way make_new_task_plannable is called
6865:
6866: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6862: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for old parent task id */
6863:
6864: /* Bug 2976168. Changed the way make_new_task_plannable is called
6865:
6866: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6867: ( p_project_id => p_project_id
6868: ,p_task_id => p_impacted_tasks_tbl(i).old_parent_task_id
6869: ,x_return_status => x_return_status
6870: ,x_msg_count => x_msg_count
6879: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
6880: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
6881: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
6882:
6883: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
6884: ( p_project_id => p_project_id
6885: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
6886: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
6887: ,x_return_status => x_return_status
7010: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7011:
7012: END IF;
7013:
7014: /* Calling pa_fp_elements_pub.delete_task_elements for impacted task id */
7015: PA_FP_ELEMENTS_PUB.Delete_task_elements
7016: ( p_task_id => p_impacted_Tasks_tbl(i).impacted_task_id
7017: ,x_return_status => x_return_status
7018: ,x_msg_count => x_msg_count
7011:
7012: END IF;
7013:
7014: /* Calling pa_fp_elements_pub.delete_task_elements for impacted task id */
7015: PA_FP_ELEMENTS_PUB.Delete_task_elements
7016: ( p_task_id => p_impacted_Tasks_tbl(i).impacted_task_id
7017: ,x_return_status => x_return_status
7018: ,x_msg_count => x_msg_count
7019: ,x_msg_data => x_msg_data);
7080:
7081: /*
7082: Bug 2976168. Changed the way make_new_task_plannable is called
7083:
7084: PA_FP_ELEMENTS_PUB.make_new_task_plannable
7085: ( p_project_id => p_project_id
7086: ,p_task_id => p_impacted_tasks_tbl(i).old_parent_task_id
7087: ,x_return_status => x_return_status
7088: ,x_msg_count => x_msg_count
7097: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
7098: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
7099: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
7100:
7101: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
7102: ( p_project_id => p_project_id
7103: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
7104: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
7105: ,x_return_status => x_return_status
7220: x_msg_count := 1;
7221: x_msg_data := SQLERRM;
7222:
7223: FND_MSG_PUB.add_exc_msg
7224: ( p_pkg_name => 'pa_fp_elements_pub'
7225: ,p_procedure_name => 'maintain_plannable_tasks'
7226: ,p_error_text => x_msg_data);
7227:
7228: IF l_debug_mode = 'Y' THEN
7233: END IF;
7234: RAISE;
7235: END maintain_plannable_tasks;
7236:
7237: End PA_FP_ELEMENTS_PUB;