[Home] [Help]
1: package body PA_FP_ELEMENTS_PUB as
2: /* $Header: PAFPELPB.pls 120.4.12020000.3 2013/04/04 07:22:59 djambhek ship $ */
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.4.12020000.3 2013/04/04 07:22:59 djambhek ship $ */
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);
3854: BEGIN
3855:
3856: x_msg_count := 0;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
4025:
4026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4027: x_msg_count := 1;
4028: x_msg_data := SQLERRM;
4029: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4030: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4031: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4032: IF P_PA_DEBUG_MODE = 'Y' THEN
4033: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4215: BEGIN
4216:
4217: x_msg_count := 0;
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4509:
4510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4511: x_msg_count := 1;
4512: x_msg_data := SQLERRM;
4513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4514: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4515: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4516: IF P_PA_DEBUG_MODE = 'Y' THEN
4517: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4543: ,p_fin_plan_level_code IN pa_proj_fp_options.cost_fin_plan_level_code%TYPE
4544: ,p_resource_list_id IN pa_resource_lists_all_bg.resource_list_id%TYPE
4545: ,p_res_planning_level IN pa_proj_fp_options.cost_res_planning_level%TYPE
4546: ,p_entire_option IN VARCHAR2
4547: ,p_element_task_id_tbl IN pa_fp_elements_pub.l_task_id_tbl_typ
4548: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4549: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4550: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
4551: AS
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: x_msg_count := 1;
5020: x_msg_data := SQLERRM;
5021: FND_MSG_PUB.add_exc_msg
5022: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5023: ,p_procedure_name => 'ADD_RESOURCES_AUTOMATICALLY'
5024: ,p_error_text => sqlerrm);
5025: pa_debug.reset_curr_function;
5026: RAISE;
5142: x_msg_count := 1;
5143: x_msg_data := SQLERRM;
5144:
5145: FND_MSG_PUB.add_exc_msg
5146: ( p_pkg_name => 'pa_Fp_elements_pub'
5147: ,p_procedure_name => 'delete_task_elements'
5148: ,p_error_text => x_msg_data);
5149:
5150: IF l_debug_mode = 'Y' THEN
5155: RAISE;
5156: END delete_task_elements;
5157: /*
5158: For bug 2976168.
5159: This API is called from pa_fp_elements_pub.make_new_tasks_plannable api for an option and element_type.
5160: This API will be used to decide whether to insert a task in fp elements table or not. This api will also
5161: provide the plannable flag and task planning level of all the tasks that are eligible for insertion.
5162: */
5163: PROCEDURE Get_Task_Element_Attributes
5524: x_msg_count := 1;
5525: x_msg_data := SQLERRM;
5526:
5527: FND_MSG_PUB.add_exc_msg
5528: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5529: ,p_procedure_name => 'Get_Task_Element_Attributes'
5530: ,p_error_text => x_msg_data);
5531:
5532: IF l_debug_mode = 'Y' THEN
5553:
5554: PROCEDURE add_tasks_to_option
5555: ( p_proj_fp_options_id IN pa_proj_fp_options.proj_fp_options_id%TYPE
5556: ,p_element_type IN pa_fp_elements.element_type%TYPE
5557: ,p_tasks_tbl IN pa_fp_elements_pub.l_wbs_refresh_tasks_tbl_typ
5558: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5559: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5560: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
5561: AS
5599:
5600: proj_fp_options_rec proj_fp_options_cur%ROWTYPE;
5601:
5602:
5603: l_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
5604:
5605: l_task_plannable_flag VARCHAR2(1); /* represents the plannable of the task to
5606: be inserted*/
5607:
5914: END IF;
5915:
5916: l_task_id_tbl(1) := p_tasks_tbl(i).task_id;
5917:
5918: PA_FP_ELEMENTS_PUB.ADD_RESOURCES_AUTOMATICALLY
5919: ( p_proj_fp_options_id => p_proj_fp_options_id
5920: ,p_element_type => p_element_type
5921: ,p_fin_plan_level_code => proj_fp_options_rec.fin_plan_level_code
5922: ,p_resource_list_id => proj_fp_options_rec.resource_list_id
5957: pa_debug.g_err_stage:= 'Calling create_enterable_resources...';
5958: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5959: END IF;
5960:
5961: PA_FP_ELEMENTS_PUB.create_enterable_resources
5962: ( p_plan_version_id => proj_fp_options_rec.fin_plan_version_id
5963: ,p_res_del_req_flag => 'N' /* Since deletion of resource assignments has already been done in this flow */
5964: ,x_return_status => x_return_status
5965: ,x_msg_count => x_msg_count
6013: x_msg_count := 1;
6014: x_msg_data := SQLERRM;
6015:
6016: FND_MSG_PUB.add_exc_msg
6017: ( p_pkg_name => 'pa_fp_elements_pub'
6018: ,p_procedure_name => 'add_task_to_option'
6019: ,p_error_text => x_msg_data);
6020:
6021: IF l_debug_mode = 'Y' THEN
6036: pa_fin_plan_maint_ver_global.resubmit_concurrent_request */
6037:
6038: PROCEDURE make_new_tasks_plannable
6039: ( p_project_id IN pa_projects_all.project_id%TYPE
6040: ,p_tasks_tbl IN pa_fp_elements_pub.l_wbs_refresh_tasks_tbl_typ
6041: ,p_refresh_fp_options_tbl IN PA_PLSQL_DATATYPES.IdTabTyp
6042: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6043: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6044: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
6324: x_msg_count := 1;
6325: x_msg_data := SQLERRM;
6326:
6327: FND_MSG_PUB.add_exc_msg
6328: ( p_pkg_name => 'pa_fp_elements_pub'
6329: ,p_procedure_name => 'make_new_tasks_plannable'
6330: ,p_error_text => x_msg_data);
6331:
6332: IF l_debug_mode = 'Y' THEN
6761: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6762:
6763: END IF;
6764:
6765: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for impacted task id */
6766:
6767: /* For Bug 2976168. Modified the call to make new task plannable api.
6768:
6769: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6765: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for impacted task id */
6766:
6767: /* For Bug 2976168. Modified the call to make new task plannable api.
6768:
6769: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6770: ( p_project_id => p_project_id
6771: ,p_task_id => p_impacted_tasks_tbl(i).impacted_task_id
6772: ,x_return_status => x_return_status
6773: ,x_msg_count => x_msg_count
6783: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
6784: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
6785: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
6786:
6787: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
6788: ( p_project_id => p_project_id
6789: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
6790: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
6791: ,x_return_status => x_return_status
6867: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6868:
6869: END IF;
6870:
6871: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for old parent task id */
6872:
6873: /* Bug 2976168. Changed the way make_new_task_plannable is called
6874:
6875: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6871: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for old parent task id */
6872:
6873: /* Bug 2976168. Changed the way make_new_task_plannable is called
6874:
6875: PA_FP_ELEMENTS_PUB.make_new_task_plannable
6876: ( p_project_id => p_project_id
6877: ,p_task_id => p_impacted_tasks_tbl(i).old_parent_task_id
6878: ,x_return_status => x_return_status
6879: ,x_msg_count => x_msg_count
6888: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
6889: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
6890: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
6891:
6892: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
6893: ( p_project_id => p_project_id
6894: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
6895: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
6896: ,x_return_status => x_return_status
7019: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7020:
7021: END IF;
7022:
7023: /* Calling pa_fp_elements_pub.delete_task_elements for impacted task id */
7024: PA_FP_ELEMENTS_PUB.Delete_task_elements
7025: ( p_task_id => p_impacted_Tasks_tbl(i).impacted_task_id
7026: ,x_return_status => x_return_status
7027: ,x_msg_count => x_msg_count
7020:
7021: END IF;
7022:
7023: /* Calling pa_fp_elements_pub.delete_task_elements for impacted task id */
7024: PA_FP_ELEMENTS_PUB.Delete_task_elements
7025: ( p_task_id => p_impacted_Tasks_tbl(i).impacted_task_id
7026: ,x_return_status => x_return_status
7027: ,x_msg_count => x_msg_count
7028: ,x_msg_data => x_msg_data);
7089:
7090: /*
7091: Bug 2976168. Changed the way make_new_task_plannable is called
7092:
7093: PA_FP_ELEMENTS_PUB.make_new_task_plannable
7094: ( p_project_id => p_project_id
7095: ,p_task_id => p_impacted_tasks_tbl(i).old_parent_task_id
7096: ,x_return_status => x_return_status
7097: ,x_msg_count => x_msg_count
7106: l_wbs_refresh_tasks_tbl(1).parent_task_id := task_info_rec.parent_task_id;
7107: l_wbs_refresh_tasks_tbl(1).top_task_id := task_info_rec.top_task_id;
7108: l_wbs_refresh_tasks_tbl(1).task_level := task_info_rec.task_level;
7109:
7110: PA_FP_ELEMENTS_PUB.make_new_tasks_plannable
7111: ( p_project_id => p_project_id
7112: ,p_tasks_tbl => l_wbs_refresh_tasks_tbl
7113: ,p_refresh_fp_options_tbl => l_all_fp_options_tbl
7114: ,x_return_status => x_return_status
7229: x_msg_count := 1;
7230: x_msg_data := SQLERRM;
7231:
7232: FND_MSG_PUB.add_exc_msg
7233: ( p_pkg_name => 'pa_fp_elements_pub'
7234: ,p_procedure_name => 'maintain_plannable_tasks'
7235: ,p_error_text => x_msg_data);
7236:
7237: IF l_debug_mode = 'Y' THEN
7242: END IF;
7243: RAISE;
7244: END maintain_plannable_tasks;
7245:
7246: End PA_FP_ELEMENTS_PUB;