[Home] [Help]
1: PACKAGE BODY PA_PROJ_TASK_STRUC_PUB AS
2: /* $Header: PAPSWRPB.pls 120.69.12020000.7 2013/05/28 12:48:08 djambhek ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJ_TASK_STRUC_PUB';
5:
1: PACKAGE BODY PA_PROJ_TASK_STRUC_PUB AS
2: /* $Header: PAPSWRPB.pls 120.69.12020000.7 2013/05/28 12:48:08 djambhek ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJ_TASK_STRUC_PUB';
5:
6: Invalid_Arg_Exc_WP Exception ; -- Bug 2931183.
7:
8: -- API name : handle_task_number_change
50: l_count NUMBER := 0;
51: p_multiple_task_msg VARCHAR2(1) := 'T';
52: l_debug_mode VARCHAR2(1);
53: l_debug_level3 CONSTANT NUMBER := 3;
54: l_module_name VARCHAR2(100) := 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change';
55:
56: BEGIN
57: l_debug_mode := p_debug_mode;
58:
56: BEGIN
57: l_debug_mode := p_debug_mode;
58:
59: IF l_debug_mode = 'Y' THEN
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
213:
214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: FND_MSG_PUB.add_exc_msg
217: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
218: , p_procedure_name =>'handle_task_number_change' );
219:
220: END IF;
221:
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: rollback to create_dflt_structure;
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
460: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
461: p_error_text => SUBSTRB(SQLERRM,1,240));
462: rollback to create_dflt_structure;
463: raise;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: rollback to create_dflt_task_struc;
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
808: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
809: p_error_text => SUBSTRB(SQLERRM,1,240));
810: rollback to create_dflt_task_struc;
811: raise;
1832: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
1833: -- pa_task_type_utils.check_tk_type_progressable(l_task_type_id)='N') )
1834: --THEN
1835:
1836: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
1837: ( p_calling_context => p_calling_module
1838: ,p_project_id => p_project_id
1839: ,p_structure_version_id => l_structure_version_id
1840: ,p_update_wbs_flag => 'Y'
2229: IF p_calling_module = 'FORMS'
2230: THEN
2231: IF l_workplan_enabled = 'Y'
2232: THEN
2233: PA_PROJ_TASK_STRUC_PUB.recalc_task_weightings(
2234: p_tasks_in => l_tasks_out --null if called for one task
2235: ,p_task_version_id => l_task_version_id
2236: ,x_msg_count => l_msg_count
2237: ,x_msg_data => l_msg_data
2242: raise api_error;
2243: END IF;
2244:
2245: --Bug 3170832 --uncommenting the call to rollup dates
2246: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
2247: p_tasks_in => l_tasks_out --null if called for one task
2248: ,p_task_version_id => l_task_version_id
2249: ,p_structure_version_id => l_structure_version_id
2250: ,p_project_id => p_project_id
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: rollback to create_task_struc;
2340: WHEN OTHERS THEN
2341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2343: p_procedure_name => 'create_task_structure',
2344: p_error_text => SUBSTRB(SQLERRM,1,240));
2345: rollback to create_task_struc;
2346: raise;
3496: --The following API should NOT be called if CREATE_TASK_STRUCTURE is called from AMG.
3497: --AMG recalculates the weightings once all the tasks are created.
3498: IF p_calling_module = 'FORMS'
3499: THEN
3500: /* PA_PROJ_TASK_STRUC_PUB.rollup_dates(
3501: p_tasks_in => l_tasks_out --null if called for one task
3502: ,p_task_version_id => l_task_version_id
3503: ,p_structure_version_id => l_structure_version_id
3504: ,p_project_id => p_project_id
3517:
3518: /* Bug # 3420093 - Adding Progress Management modifications to update_task flow. */
3519:
3520: -- Bug#3747312
3521: -- Added PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN = 'N'
3522: -- as the add_planning_txn/delete_planning_txn should be called in
3523: -- SHARED case and for SPLIT case if p_structure_type is passed as
3524: -- WORKPLAN.
3525:
3525:
3526:
3527: /* Commenting for bug 7358214
3528:
3529: if (p_structure_type = 'WORKPLAN' OR nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')then
3530:
3531: for l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id)
3532: loop
3533: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
3603: -- End of commenting for bug 7358214
3604:
3605: -- Added for bug 7358214
3606: IF (p_structure_type = 'WORKPLAN' OR
3607: nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')
3608: THEN
3609: /* 14556729:Added for Huawei changes for update update flow */
3610: if (l_structure_version_id is not null AND NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' ) then
3611: FOR l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id) LOOP
3656: /* Commenting out the condition to check if workplan versioning is enabled for the project
3657: as PA_TASK_PUB1.update_task_det_sch_info() should be called for both versioning enabled
3658: and versioning disabled projects. */
3659:
3660: /* if (PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id) = 'Y') then */
3661:
3662: /* Calling API: pa_task_pub1.update_task_det_sch_info() only if calling module is not 'FORMS'. */
3663:
3664: if p_calling_module <> 'FORMS' then
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: rollback to update_task_struc;
3690: WHEN OTHERS THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3693: p_procedure_name => 'update_task_structure',
3694: p_error_text => SUBSTRB(SQLERRM,1,240));
3695: rollback to update_task_struc;
3696: raise;
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: rollback to delete_task_struc;
3835: WHEN OTHERS THEN
3836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3838: p_procedure_name => 'delete_task_structure',
3839: p_error_text => SUBSTRB(SQLERRM,1,240));
3840: rollback to delete_task_struc;
3841: raise;
3986:
3987: WHEN OTHERS THEN
3988:
3989: fnd_msg_pub.add_exc_msg(
3990: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3991: p_procedure_name => 'delete_project_structure',
3992: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3993:
3994: RAISE FND_API.G_EXC_ERROR;
4009: x_return_status := FND_API.G_RET_STS_ERROR;
4010: rollback to delete_project_struc;
4011: WHEN OTHERS THEN
4012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4013: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4014: p_procedure_name => 'delete_project_structure',
4015: p_error_text => SUBSTRB(SQLERRM,1,240));
4016: rollback to delete_project_struc;
4017: raise;
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: rollback to create_delete_wp_struc;
4445: WHEN OTHERS THEN
4446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4448: p_procedure_name => 'create_delete_workplan_struc',
4449: p_error_text => SUBSTRB(SQLERRM,1,240));
4450: rollback to create_delete_wp_struc;
4451: raise;
4515: IF p_copy_task_flag = 'Y'
4516: THEN
4517:
4518: --copying structrues and tasks
4519: PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk
4520: (
4521: p_init_msg_list => FND_API.G_FALSE
4522: ,p_src_project_id => p_src_project_id
4523: ,p_dest_project_id => p_dest_project_id
4539: -- when both structures are disabled in source project.
4540: IF PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id )= 'Y' OR
4541: PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id )= 'Y' THEN
4542: --copying only structrues --This is for AMG
4543: PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk
4544: (
4545: p_src_project_id => p_src_project_id
4546: ,p_dest_project_id => p_dest_project_id
4547: ,p_delta => p_delta
4583: x_return_status := FND_API.G_RET_STS_ERROR;
4584: rollback to cp_struc;
4585: WHEN OTHERS THEN
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4588: p_procedure_name => 'Copy_Structure',
4589: p_error_text => SUBSTRB(SQLERRM,1,240));
4590: rollback to cp_struc;
4591: raise;
4677: x_return_status := FND_API.G_RET_STS_ERROR;
4678: rollback to clean_struc;
4679: WHEN OTHERS THEN
4680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4682: p_procedure_name => 'Clean_unwanted_tasks',
4683: p_error_text => SUBSTRB(SQLERRM,1,240));
4684: rollback to clean_struc;
4685: raise;
4747: ) AND
4748: l_index_number = l_first_index1
4749: THEN
4750: v_task_id_above := null; --ref is the structure version. structure version is
4751: --derived in PA_PROJ_TASK_STRUC_PUB.create_task_structure API.
4752: END IF;
4753: x_task_id_above := v_task_id_above;
4754:
4755: EXCEPTION WHEN OTHERS THEN
5085: FETCH get_working_ver_num INTO l_struc_ver_number;
5086: CLOSE get_working_ver_num;
5087:
5088: --FPM bug 3301192
5089: IF NVL( PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id), 'N' ) = 'Y'
5090: THEN
5091: l_status_code := 'STRUCTURE_WORKING';
5092: l_current_working_ver_flag := 'Y';
5093: l_latest_eff_published_flag := 'N';
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5156: p_procedure_name => 'CREATE_STRUCTURE',
5157: p_error_text => SUBSTRB(SQLERRM,1,240));
5158: raise;
5159: END create_structure;
5561: ,x_Msg_data => l_msg_data
5562: );
5563: EXCEPTION
5564: WHEN OTHERS THEN
5565: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5566: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5567: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5568: raise fnd_api.g_exc_error;
5569: END;
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5607: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5608: p_error_text => SUBSTRB(SQLERRM,1,240));
5609: END create_update_struct_ver;
5610:
6141: THEN
6142: --convert pm_parent_task_reference to parent_task_id.
6143: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
6144:
6145: -- Bug 3601700 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
6146: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
6147: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
6148: -- in case of SHARED structure
6149: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
6143: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
6144:
6145: -- Bug 3601700 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
6146: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
6147: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
6148: -- in case of SHARED structure
6149: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
6150: /* PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
6151: p_pm_parent_task_reference => p_tasks_in(i).pm_parent_task_reference
6146: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
6147: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
6148: -- in case of SHARED structure
6149: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
6150: /* PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
6151: p_pm_parent_task_reference => p_tasks_in(i).pm_parent_task_reference
6152: ,p_project_id => p_project_id
6153: ,x_parent_task_id => v_parent_task_id
6154: ,x_return_status => l_return_status
6232: END IF;
6233:
6234: ---Added by rbruno bug 9544348 end
6235:
6236: PA_PROJ_TASK_STRUC_PUB.CREATE_TASK_STRUCTURE(
6237: p_project_id => p_project_id
6238: -- ,p_task_id => p_tasks_in(i).pa_task_id, rtarway, BUG 3990873
6239: ,p_task_id => l_pa_task_id
6240: ,p_parent_task_id => v_parent_task_id
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6705: THEN
6706: IF l_debug_mode = 'Y' THEN
6707: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6708: p_src_project_id, p_dest_project_id, p_dest_fn_structure_id, p_shared, p_publish_person_id are NULL';
6709: Pa_Debug.WRITE(G_PKG_NAME, Pa_Debug.g_err_stage, l_debug_level3);
6710: END IF;
6711: RAISE Invalid_Arg_Exc_WP;
6929:
6930: WHEN Invalid_Arg_Exc_WP THEN
6931: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6932: x_msg_count := 1;
6933: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6934:
6935: IF p_commit = FND_API.G_TRUE THEN
6936: ROLLBACK TO copy_src_fin_ver;
6937: END IF;
6936: ROLLBACK TO copy_src_fin_ver;
6937: END IF;
6938:
6939: Fnd_Msg_Pub.add_exc_msg
6940: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6941: , p_procedure_name => 'copy_src_financial_version'
6942: , p_error_text => x_msg_data);
6943:
6944: IF l_debug_mode = 'Y' THEN
6958: ROLLBACK TO copy_src_fin_ver;
6959: END IF;
6960:
6961: Fnd_Msg_Pub.add_exc_msg
6962: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6963: , p_procedure_name => 'copy_src_financial_version'
6964: , p_error_text => x_msg_data);
6965:
6966: IF l_debug_mode = 'Y' THEN
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7219: THEN
7220: IF l_debug_mode = 'Y' THEN
7221: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
7222: p_dest_project_id, p_dest_fn_structure_id, p_shared, p_copy_ppevSchedules_flag, p_calendar_id are NULL';
7223: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7224: l_debug_level3);
7225: END IF;
7691: ,SYSDATE
7692: ,l_user_id
7693: ,SYSDATE
7694: ,l_user_id
7695: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
7696: p_target_finish_date,
7697: l_delta,
7698: ppevs.SCHEDULED_START_DATE,
7699: null )
7696: p_target_finish_date,
7697: l_delta,
7698: ppevs.SCHEDULED_START_DATE,
7699: null )
7700: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
7701: p_target_finish_date,
7702: l_delta,
7703: ppevs.SCHEDULED_START_DATE,
7704: SCHEDULED_FINISH_DATE )
7762:
7763: WHEN Invalid_Arg_Exc_WP THEN
7764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7765: x_msg_count := 1;
7766: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7767:
7768: IF p_commit = FND_API.G_TRUE THEN
7769: ROLLBACK TO copy_src_fin_ver_tasks;
7770: END IF;
7769: ROLLBACK TO copy_src_fin_ver_tasks;
7770: END IF;
7771:
7772: Fnd_Msg_Pub.add_exc_msg
7773: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7774: , p_procedure_name => 'copy_src_financial_ver_tasks'
7775: , p_error_text => x_msg_data);
7776:
7777: IF l_debug_mode = 'Y' THEN
7791: ROLLBACK TO copy_src_fin_ver_tasks;
7792: END IF;
7793:
7794: Fnd_Msg_Pub.add_exc_msg
7795: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7796: , p_procedure_name => 'copy_src_financial_ver_tasks'
7797: , p_error_text => x_msg_data);
7798:
7799: IF l_debug_mode = 'Y' THEN
9916: ,SYSDATE
9917: ,l_user_id
9918: ,SYSDATE
9919: ,l_user_id
9920: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
9921: p_target_finish_date,
9922: l_delta,
9923: ppevs.SCHEDULED_START_DATE,
9924: null )
9921: p_target_finish_date,
9922: l_delta,
9923: ppevs.SCHEDULED_START_DATE,
9924: null )
9925: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
9926: p_target_finish_date,
9927: l_delta,
9928: ppevs.SCHEDULED_START_DATE,
9929: SCHEDULED_FINISH_DATE )
10282: IF l_workplan_enabled = 'Y' THEN
10283: -- Bug 3657808 Remove duration calculation using calendar
10284: -- and rewritting the query
10285: /*UPDATE pa_proj_elem_ver_schedule
10286: SET duration = PA_PROJ_TASK_STRUC_PUB.calc_duration( p_calendar_id,
10287: scheduled_start_date,
10288: scheduled_finish_date )
10289: WHERE project_id = p_dest_project_id;*/
10290: UPDATE pa_proj_elem_ver_schedule
10723: COMMIT;
10724: END IF;
10725:
10726: IF (p_debug_mode = 'Y') THEN
10727: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk END');
10728: Pa_Debug.reset_curr_function; --For bug 4252182
10729: END IF;
10730:
10731: EXCEPTION
10760:
10761: WHEN Invalid_Arg_Exc_WP THEN
10762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10763: x_msg_count := 1;
10764: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10765:
10766: IF p_commit = FND_API.G_TRUE THEN
10767: ROLLBACK TO copy_struc_tasks_bulk;
10768: END IF;
10789: ROLLBACK TO copy_struc_tasks_bulk;
10790: END IF;
10791:
10792: Fnd_Msg_Pub.add_exc_msg
10793: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
10794: , p_procedure_name => 'copy_structures_tasks_bulk'
10795: , p_error_text => x_msg_data);
10796:
10797: IF l_debug_mode = 'Y' THEN
11136:
11137: BEGIN
11138:
11139: IF (p_debug_mode = 'Y') THEN
11140: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
11141: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
11142: END IF;
11143:
11144: IF (p_commit = FND_API.G_TRUE) THEN
11137: BEGIN
11138:
11139: IF (p_debug_mode = 'Y') THEN
11140: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
11141: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
11142: END IF;
11143:
11144: IF (p_commit = FND_API.G_TRUE) THEN
11145: savepoint copy_structure_bulk_pvt;
11166: --ELSE
11167: l_name := substr(l_project_name, 1, 240);
11168: --END IF;
11169: -- Bug 3717026 End
11170: l_workplan_enabled := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( p_src_project_id );
11171:
11172: --bug 2838547
11173: open get_person_id(FND_GLOBAL.USER_ID);
11174: fetch get_person_id into l_publish_person_id;
12036: --Find out which unpublihsed version is last updated.
12037: IF l_max_date IS NULL
12038: THEN
12039: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
12040: l_max_date := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12041: ELSE
12042: l_max_date2 := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12043: IF l_max_date2 > l_max_date
12044: THEN
12038: THEN
12039: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
12040: l_max_date := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12041: ELSE
12042: l_max_date2 := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12043: IF l_max_date2 > l_max_date
12044: THEN
12045: --for bug 2834111
12046: l_max_date := l_max_date2;
12186: --Find out which unpublihsed version is last updated.
12187: IF l_max_date IS NULL
12188: THEN
12189: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
12190: l_max_date := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12191: ELSE
12192: l_max_date2 := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12193: IF l_max_date2 > l_max_date
12194: THEN
12188: THEN
12189: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
12190: l_max_date := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12191: ELSE
12192: l_max_date2 := PA_PROJ_TASK_STRUC_PUB.GET_MAX_LAST_UPD_DT_WRKNG_VER( l_dest_str_versions_tbl(j).src_str_version_id );
12193: IF l_max_date2 > l_max_date
12194: THEN
12195: --for bug 2834111
12196: l_max_date := l_max_date2;
12473: --contain any records if there were no working verisons. We need to create one if any of the flags
12474: --l_create_fin_version or l_create_wk_version is 'Y'.
12475: IF nvl(l_create_fin_version,'N') = 'Y' THEN
12476: l_structure_ver_name := substr(l_project_name, 1, 240);
12477: PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver(
12478: p_project_id => p_dest_project_id
12479: ,p_structure_type => 'FINANCIAL'
12480: ,p_structure_version_name => l_structure_ver_name
12481: ,p_structure_version_id => null
12493: END IF;
12494: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12495: l_structure_ver_name := substr(l_project_name||l_append||l_suffix, 1, 240);
12496:
12497: PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver(
12498: p_project_id => p_dest_project_id
12499: ,p_structure_type => 'WORKPLAN'
12500: ,p_structure_version_name => l_structure_ver_name
12501: ,p_structure_version_id => null
13020: ,SYSDATE
13021: ,l_user_id
13022: ,SYSDATE
13023: ,l_user_id
13024: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date, --fix bug 2831973
13025: p_target_finish_date,
13026: l_delta,
13027: ppevs.SCHEDULED_START_DATE,
13028: null ) --sch start date
13025: p_target_finish_date,
13026: l_delta,
13027: ppevs.SCHEDULED_START_DATE,
13028: null ) --sch start date
13029: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date, --fix bug 2831973
13030: p_target_finish_date,
13031: l_delta,
13032: ppevs.SCHEDULED_START_DATE,
13033: SCHEDULED_FINISH_DATE ) --sch end date
13103: --updating duration
13104: -- Bug 3657808 Remove duration calculation using calendar
13105: -- and rewritting the query
13106: /*UPDATE pa_proj_elem_ver_schedule
13107: SET duration = PA_PROJ_TASK_STRUC_PUB.calc_duration( p_calendar_id,
13108: scheduled_start_date,
13109: scheduled_finish_date )
13110: WHERE project_id = p_dest_project_id;*/
13111: UPDATE pa_proj_elem_ver_schedule
13220: ,x_Msg_data => x_msg_data
13221: );
13222: EXCEPTION
13223: WHEN OTHERS THEN
13224: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13225: p_procedure_name => 'copy_structures_bulk',
13226: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13227: RAISE FND_API.G_EXC_ERROR;
13228: END;
13301: OPEN cur_str_vers( l_wp_str_id );
13302: FETCH cur_str_vers INTO l_wp_str_ver_id;
13303: CLOSE cur_str_vers;
13304:
13305: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
13306: (
13307: p_calling_context => 'COPY_PROJECT'
13308: ,p_project_id => p_dest_project_id
13309: ,p_structure_version_id => l_wp_str_ver_id
13324: OPEN cur_str_vers( l_wp_str_id );
13325: FETCH cur_str_vers INTO l_wp_str_ver_id;
13326: CLOSE cur_str_vers;
13327:
13328: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
13329: (
13330: p_calling_context => 'COPY_PROJECT'
13331: ,p_project_id => p_dest_project_id
13332: ,p_structure_version_id => l_wp_str_ver_id
13346: OPEN cur_str_vers( l_fn_str_id );
13347: FETCH cur_str_vers INTO l_fn_str_ver_id;
13348: CLOSE cur_str_vers;
13349:
13350: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
13351: (
13352: p_calling_context => 'COPY_PROJECT'
13353: ,p_project_id => p_dest_project_id
13354: ,p_structure_version_id => l_fn_str_ver_id
13373: x_return_status := FND_API.G_RET_STS_SUCCESS;
13374:
13375:
13376: IF (p_debug_mode = 'Y') THEN
13377: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13378: END IF;
13379:
13380: EXCEPTION
13381: when FND_API.G_EXC_ERROR then
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13392: p_procedure_name => 'copy_structures_bulk',
13393: p_error_text => SUBSTRB(SQLERRM,1,240));
13394: when OTHERS then
13395: if p_commit = FND_API.G_TRUE then
13395: if p_commit = FND_API.G_TRUE then
13396: rollback to copy_structure_bulk_pvt;
13397: end if;
13398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13400: p_procedure_name => 'copy_structures_bulk',
13401: p_error_text => SUBSTRB(SQLERRM,1,240));
13402: raise;
13403: END copy_structures_bulk;
13583: x_return_status := FND_API.G_RET_STS_ERROR;
13584:
13585: WHEN OTHERS THEN
13586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13588: p_procedure_name => 'ROLLUP_DATES',
13589: p_error_text => SUBSTRB(SQLERRM,1,240));
13590: raise;
13591: -- End Changes for Bug 6633233
13866: l_data VARCHAR2(2000);
13867: l_msg_data VARCHAR2(2000);
13868: l_msg_index_out NUMBER;
13869: l_debug_mode VARCHAR2(1);
13870: l_module_name VARCHAR2(100) := 'pa.plsql.PA_PROJ_TASK_STRUC_PUB';
13871: l_process_code VARCHAR2(30);
13872: l_task_weight_basis_code VARCHAR2(30);
13873: l_update_wbs_flag VARCHAR2(1);
13874:
14194: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14195: l_debug_level2);
14196:
14197: --For bug 4252182
14198: pa_debug.set_curr_function( p_function => 'PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK',
14199: p_debug_mode => l_debug_mode );
14200:
14201: END IF;
14202:
14446: This was happening due to the value 'PUBLISHED' was populated in the task_unpub_ver_status_code column.
14447: When ever a task is created in MSP and sent to oracle projects the pa_project_pub.load_project and
14448: pa_project_pub.execute_update_project are called.
14449:
14450: The pa_project_pub.execute_update_project -> update_project API ...> PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK is called.
14451:
14452: Inside this API the following code is used to derive the value for task_unpub_ver_status_code column.
14453: This is correct. But after this piece of code all the passed in tasks are processed in a loop. In the
14454: loop the same variable l_task_unpub_ver_status_code is used to get the other tasks status. Hence the
14928: THEN
14929: --convert pm_parent_task_reference to parent_task_id.
14930: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14931:
14932: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14933: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14934: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14935: -- in case of SHARED structure
14936: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14930: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14931:
14932: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14933: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14934: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14935: -- in case of SHARED structure
14936: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14937:
14938: -- PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14934: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14935: -- in case of SHARED structure
14936: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14937:
14938: -- PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14939: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
14940: -- ,p_project_id => p_project_id
14941: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
14942: -- ,x_return_status => x_return_status
15065: THEN
15066: --convert pm_parent_task_reference to parent_task_id.
15067: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
15068:
15069: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
15070: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
15071: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
15072: -- in case of SHARED structure
15073: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
15067: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
15068:
15069: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
15070: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
15071: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
15072: -- in case of SHARED structure
15073: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
15074:
15075: --PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
15071: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
15072: -- in case of SHARED structure
15073: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
15074:
15075: --PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
15076: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
15077: -- ,p_project_id => p_project_id
15078: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
15079: -- ,x_return_status => x_return_status
17254: -- p_is_wp_separate_from_fn = 'Y' AND
17255: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
17256: -- NVL( l_progressable_task, 'N' ) = 'N' ))
17257: --THEN
17258: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
17259: (
17260: p_calling_context => 'AMG'
17261: ,p_project_id => p_project_id
17262: ,p_structure_version_id => l_structure_version_id
17341: --if no tasks are passed , this will be empty,
17342: -- 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 .
17343: IF ( px_tasks_out_tbl IS NOT NULL AND px_tasks_out_tbl.count > 0 and NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N')
17344: THEN
17345: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
17346: p_tasks_in => px_tasks_out_tbl
17347: ,p_task_version_id => null
17348: ,p_project_id => p_project_id
17349: ,P_structure_version_id => null
17374: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
17375: --if no tasks are passed , this will be empty,
17376: IF ( px_tasks_out_tbl IS NOT NULL AND px_tasks_out_tbl.count > 0)
17377: THEN
17378: PA_PROJ_TASK_STRUC_PUB.recalc_task_weightings(
17379: p_tasks_in => px_tasks_out_tbl
17380: ,p_task_version_id => null
17381: ,x_msg_count => x_msg_count
17382: ,x_msg_data => x_msg_data
17416:
17417: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17418: -- Instead of using local variables, used the out parameters for the standard parameters.
17419:
17420: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES(p_calling_context => 'ONLINE_UPDATE'
17421: ,p_project_id => p_project_id
17422: ,p_structure_version_id => l_structure_version_id
17423: ,x_return_status => x_return_status
17424: ,x_msg_count => x_msg_count
17441: END IF;
17442:
17443: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17444: -- Instead of using local variables, used the out parameters for the standard parameters.
17445: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
17446: ,p_project_id => p_project_id
17447: ,p_structure_version_id => l_structure_version_id
17448: ,x_return_status => x_return_status
17449: ,x_msg_count => x_msg_count
18096: CLOSE cur_all_task_ver_id;
18097: END IF;
18098:
18099: FND_MSG_PUB.add_exc_msg
18100: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18101: ,p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK'
18102: ,p_error_text => x_msg_data
18103: );
18104:
18193: x_return_status := FND_API.G_RET_STS_ERROR;
18194: rollback to plan_tasks;
18195: WHEN OTHERS THEN
18196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18198: p_procedure_name => 'delete_fin_plan_from_task',
18199: p_error_text => SUBSTRB(SQLERRM,1,240));
18200: rollback to plan_tasks;
18201: raise;
18366: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18367: END IF;
18368:
18369: IF l_update_option = 'ONLINE' THEN
18370: pa_proj_task_struc_pub.process_wbs_updates(
18371: p_commit => p_commit
18372: ,p_project_id => p_project_id
18373: ,p_structure_version_id => p_structure_version_id
18374: ,p_pub_struc_ver_id => p_pub_struc_ver_id
18385: END IF;
18386: Raise Invalid_Arg_Exc_WP;
18387: END IF;
18388: ELSIF l_update_option = 'CONCURRENT' THEN
18389: pa_proj_task_struc_pub.process_wbs_updates_conc_wrp(
18390: p_commit => p_commit
18391: ,p_project_id => p_project_id
18392: ,p_structure_version_id => p_structure_version_id
18393: ,p_pub_struc_ver_id => p_pub_struc_ver_id
18453: CLOSE cur_task_count;
18454: END IF;
18455:
18456: FND_MSG_PUB.add_exc_msg
18457: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18458: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
18459: ,p_error_text => x_msg_data);
18460:
18461: IF l_debug_mode = 'Y' THEN
18636: AND
18637:
18638: -- Begin Bug # 4584710.
18639: /*
18640: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ) = 'Y' AND
18641: nvl(l_structure_type_flag,'N') = 'Y' AND
18642: ( nvl(l_task_weighting_basis,'-99') = 'MANUAL'
18643: OR
18644: */
18824: x_msg_count := 1;
18825: x_msg_data := SQLERRM;
18826:
18827: FND_MSG_PUB.add_exc_msg
18828: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18829: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18830: ,p_error_text => x_msg_data);
18831:
18832: IF l_debug_mode = 'Y' THEN
18930: p_msg_name => 'PA_INV_PARAM_PASSED');
18931: RAISE Invalid_Arg_Exc_WP;
18932: END IF;
18933:
18934: pa_proj_task_struc_pub.process_wbs_updates(
18935: p_calling_context => p_calling_context
18936: ,p_project_id => p_project_id
18937: ,p_structure_version_id => p_structure_version_id
18938: ,p_pub_struc_ver_id => p_pub_struc_ver_id
19101: -- If the process that errored out is process_updates then set the process_update_wbs_flag to 'Y'.
19102:
19103: if (p_calling_context = 'CONC_UPDATE') then
19104:
19105: pa_proj_task_struc_pub.set_update_wbs_flag
19106: (p_project_id => p_project_id
19107: ,p_structure_version_id => p_structure_version_id
19108: ,p_update_wbs_flag => 'Y'
19109: ,x_return_status => l_return_status
19130: retcode := '2';
19131: errbuf := SQLERRM;
19132:
19133: FND_MSG_PUB.add_exc_msg
19134: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
19135: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC'
19136: ,p_error_text => errbuf);
19137:
19138: rollback to process_wbs_updates_conc;
19186: -- If the process that errored out is process_updates then set the process_update_wbs_flag to 'Y'.
19187:
19188: if (p_calling_context = 'CONC_UPDATE') then
19189:
19190: pa_proj_task_struc_pub.set_update_wbs_flag
19191: (p_project_id => p_project_id
19192: ,p_structure_version_id => p_structure_version_id
19193: ,p_update_wbs_flag => 'Y'
19194: ,x_return_status => l_return_status
19542: pa_debug.write(G_PKG_NAME, 'After Call PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT with x_return_status='||x_return_status||' l_out_online_flag='||l_out_online_flag, 3);
19543: END IF;
19544: EXCEPTION
19545: WHEN OTHERS THEN
19546: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19547: p_procedure_name => 'PROCESS_WBS_UDPATES',
19548: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
19549: RAISE Invalid_Arg_Exc_WP;
19550: END;
19812: END IF;
19813:
19814: EXCEPTION
19815: WHEN OTHERS THEN
19816: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19817: p_procedure_name => 'PROCESS_WBS_UPDATES',
19818: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for PUBLISH Mode for working '||
19819: 'verison: SQLERRM='||SQLERRM,1,120));
19820: RAISE Invalid_Arg_Exc_WP;
19837: END IF;
19838: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N'; --Set the flag back to 'N' to bypass any PJI rollup api call untill explicit plan_update gets called.
19839: EXCEPTION
19840: WHEN OTHERS THEN
19841: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19842: p_procedure_name => 'PROCESS_WBS_UPDATES',
19843: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in PUBLISH mode for'||
19844: ' working verison:SQLERRM='||SQLERRM,1,120));
19845: RAISE Invalid_Arg_Exc_WP;
20016:
20017: EXCEPTION
20018: WHEN OTHERS THEN
20019: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
20020: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20021: p_procedure_name => 'PROCESS_WBS_UDPATES',
20022: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
20023: RAISE Invalid_Arg_Exc_WP;
20024: END;
20273: END IF;
20274:
20275: EXCEPTION
20276: WHEN OTHERS THEN
20277: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20278: p_procedure_name => 'PROCESS_WBS_UPDATES',
20279: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed for Publish Mode: SQLERRM='||SQLERRM,1,240));
20280: RAISE Invalid_Arg_Exc_WP;
20281: END;
20469: END IF;
20470:
20471: EXCEPTION
20472: WHEN OTHERS THEN
20473: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20474: p_procedure_name => 'PROCESS_WBS_UPDATES',
20475: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
20476: RAISE Invalid_Arg_Exc_WP;
20477:
20491: END IF;
20492:
20493: EXCEPTION
20494: WHEN OTHERS THEN
20495: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20496: p_procedure_name => 'PROCESS_WBS_UPDATES',
20497: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
20498: RAISE Invalid_Arg_Exc_WP;
20499: END;
20674:
20675: --bug 4479392
20676: -- Mark the structure version as no pending wbs updates.
20677: IF l_debug_mode = 'Y' THEN
20678: pa_debug.write(G_PKG_NAME, 'Before calling pa_proj_task_struc_pub.set_update_wbs_flag for published version', 3);
20679: END IF;
20680:
20681: pa_proj_task_struc_pub.set_update_wbs_flag(
20682: p_project_id => p_project_id
20677: IF l_debug_mode = 'Y' THEN
20678: pa_debug.write(G_PKG_NAME, 'Before calling pa_proj_task_struc_pub.set_update_wbs_flag for published version', 3);
20679: END IF;
20680:
20681: pa_proj_task_struc_pub.set_update_wbs_flag(
20682: p_project_id => p_project_id
20683: ,p_structure_version_id => l_pub_ver_id
20684: ,p_update_wbs_flag => 'N'
20685: ,x_return_status => x_return_status
20687: ,x_msg_data => x_msg_data
20688: );
20689:
20690: IF l_debug_mode = 'Y' THEN
20691: pa_debug.write(G_PKG_NAME, 'After pa_proj_task_struc_pub.set_update_wbs_flag for published version x_return_status='|| x_return_status, 3);
20692: END IF;
20693:
20694: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20695: raise Invalid_Arg_Exc_WP;
20732: END IF;
20733:
20734: EXCEPTION
20735: WHEN OTHERS THEN
20736: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20737: p_procedure_name => 'PROCESS_WBS_UPDATES',
20738: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20739: RAISE Invalid_Arg_Exc_WP;
20740: END;
20765: END IF;
20766:
20767: EXCEPTION
20768: WHEN OTHERS THEN
20769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20770: p_procedure_name => 'PROCESS_WBS_UPDATES',
20771: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for UPDATE Mode: SQLERRM='||SQLERRM,1,120));
20772: RAISE Invalid_Arg_Exc_WP;
20773:
20786: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in UPDATE mode x_return_status='|| x_return_status,l_debug_level3);
20787: END IF;
20788: EXCEPTION
20789: WHEN OTHERS THEN
20790: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20791: p_procedure_name => 'PROCESS_WBS_UPDATES',
20792: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in Update mode:SQLERRM='||SQLERRM,1,120));
20793: RAISE Invalid_Arg_Exc_WP;
20794: END;
20802:
20803: -- Bug 4284444 : Commented the below code
20804: -- EXCEPTION
20805: -- WHEN OTHERS THEN
20806: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20807: -- p_procedure_name => 'PROCESS_WBS_UPDATES',
20808: -- p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT:'||SQLERRM,1,240));
20809: -- RAISE Invalid_Arg_Exc_WP;
20810: -- END;
20814: IF l_debug_mode = 'Y' THEN
20815: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE', 3);
20816: END IF;
20817:
20818: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20819: p_project_id => p_project_id
20820: -- ,p_structure_version_id => p_structure_version_id
20821: --Modified for BUG 4127178
20822: ,p_structure_version_id => l_pub_ver_id
20854: Raise Invalid_Arg_Exc_WP;
20855: END IF;
20856: EXCEPTION
20857: WHEN OTHERS THEN
20858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20859: p_procedure_name => 'PROCESS_WBS_UPDATES',
20860: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20861: RAISE FND_API.G_EXC_ERROR;
20862: END;
20962: IF l_debug_mode = 'Y' THEN
20963: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE in Copy Project Mode', 3);
20964: END IF;
20965:
20966: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20967: p_project_id => p_project_id
20968: ,p_structure_version_id => p_structure_version_id
20969: ,x_return_status => x_return_status
20970: ,x_msg_count => x_msg_count
21013: END IF;
21014:
21015: EXCEPTION
21016: WHEN OTHERS THEN
21017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21018: p_procedure_name => 'PROCESS_WBS_UPDATES',
21019: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT
21020: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
21021: RAISE Invalid_Arg_Exc_WP;
21030: END IF; --end bug 3035902 maansari
21031: END IF; -- (if p_calling_mode = 'APPLY_PROGRESS') then -- Fix for Bug # 4262985.
21032:
21033: -- Mark the structure version as no pending wbs updates.
21034: pa_proj_task_struc_pub.set_update_wbs_flag(
21035: p_project_id => p_project_id
21036: ,p_structure_version_id => p_structure_version_id
21037: ,p_update_wbs_flag => 'N'
21038: ,x_return_status => x_return_status
21100: CLOSE cur_structure_type;
21101: END IF;
21102:
21103: FND_MSG_PUB.add_exc_msg
21104: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21105: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
21106: ,p_error_text => x_msg_data);
21107:
21108: IF l_debug_mode = 'Y' THEN
21392: END IF;
21393:
21394: EXCEPTION
21395: WHEN OTHERS THEN
21396: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21397: p_procedure_name => 'PROCESS_TASK_WEIGHTAGE',
21398: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed='||SQLERRM,1,120));
21399: RAISE Invalid_Arg_Exc_WP;
21400:
21649: CLOSE cur_task_info;
21650: END IF;
21651:
21652: FND_MSG_PUB.add_exc_msg
21653: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21654: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
21655: ,p_error_text => x_msg_data);
21656:
21657: IF l_debug_mode = 'Y' THEN
21800: x_msg_count := 1;
21801: x_msg_data := SQLERRM;
21802:
21803: FND_MSG_PUB.add_exc_msg
21804: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21805: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21806: ,p_error_text => x_msg_data);
21807:
21808: IF l_debug_mode = 'Y' THEN
21843:
21844: -- Not doing the validation of input parameter
21845: -- as it is done in the the called API.
21846:
21847: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21848: ( p_commit => FND_API.G_TRUE
21849: ,p_calling_context => 'UPDATE'
21850: ,p_project_id => p_project_id
21851: ,p_structure_version_id => p_structure_version_id
21889: x_msg_count := 1;
21890: x_msg_data := SQLERRM;
21891:
21892: FND_MSG_PUB.add_exc_msg
21893: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21894: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21895: ,p_error_text => x_msg_data);
21896:
21897: IF l_debug_mode = 'Y' THEN
21984: OPEN cur_str_vers( l_wp_str_id );
21985: FETCH cur_str_vers INTO l_wp_str_ver_id;
21986: CLOSE cur_str_vers;
21987:
21988: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21989: (
21990: p_calling_context => 'COPY_PROJECT'
21991: ,p_project_id => p_dest_project_id
21992: ,p_structure_version_id => l_wp_str_ver_id
22012: */
22013: --If there are more than one working versions
22014: FOR cur_str_vers_rec in cur_str_vers( l_wp_str_id ) LOOP
22015:
22016: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
22017: (
22018: p_calling_context => 'COPY_PROJECT'
22019: ,p_project_id => p_dest_project_id
22020: ,p_structure_version_id => cur_str_vers_rec.element_version_id
22042: CLOSE cur_str_vers;
22043:
22044: --hsiu: 3305199 for bug with wp only project
22045: IF l_fn_str_ver_id <> -1 THEN
22046: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
22047: (
22048: p_calling_context => 'COPY_PROJECT'
22049: ,p_project_id => p_dest_project_id
22050: ,p_structure_version_id => l_fn_str_ver_id
22090: x_msg_count := 1;
22091: x_msg_data := SQLERRM;
22092:
22093: FND_MSG_PUB.add_exc_msg
22094: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
22095: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
22096: ,p_error_text => x_msg_data);
22097:
22098: IF l_debug_mode = 'Y' THEN
22315: rollback to update_current_phase;
22316: END IF;
22317: WHEN OTHERS THEN
22318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22319: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22320: p_procedure_name => 'update_current_phase',
22321: p_error_text => SUBSTRB(SQLERRM,1,240));
22322: IF p_commit = FND_API.G_TRUE THEN
22323: rollback to update_current_phase;
22608: l_object_type VARCHAR2(80);
22609: API_ERROR EXCEPTION;
22610: BEGIN
22611: IF (p_debug_mode = 'Y') THEN
22612: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
22613: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
22614: END IF;
22615: --
22616: IF (p_commit = FND_API.G_TRUE) THEN
22609: API_ERROR EXCEPTION;
22610: BEGIN
22611: IF (p_debug_mode = 'Y') THEN
22612: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
22613: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
22614: END IF;
22615: --
22616: IF (p_commit = FND_API.G_TRUE) THEN
22617: savepoint delete_intra_dependency;
22680: COMMIT;
22681: END IF;
22682: --
22683: IF (p_debug_mode = 'Y') THEN
22684: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY END');
22685: END IF;
22686: EXCEPTION
22687: WHEN API_ERROR THEN
22688: x_return_status := FND_API.G_RET_STS_ERROR;
22692: ROLLBACK TO delete_intra_dependency;
22693: END IF;
22694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22695: FND_MSG_PUB.add_exc_msg(
22696: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22697: p_procedure_name => 'delete_intra_dependency',
22698: p_error_text => SUBSTRB(SQLERRM,1,240));
22699: ROLLBACK TO delete_intra_dependency;
22700: RAISE;
22699: ROLLBACK TO delete_intra_dependency;
22700: RAISE;
22701: END delete_intra_dependency;
22702:
22703: END PA_PROJ_TASK_STRUC_PUB;
22704: