[Home] [Help]
1: PACKAGE BODY PA_PROJ_TASK_STRUC_PUB AS
2: /* $Header: PAPSWRPB.pls 120.39.12010000.11 2008/12/04 14:41:23 rthumma 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.39.12010000.11 2008/12/04 14:41:23 rthumma 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 : create_default_structure
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: rollback to create_dflt_structure;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
244: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
245: p_error_text => SUBSTRB(SQLERRM,1,240));
246: rollback to create_dflt_structure;
247: raise;
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: rollback to create_dflt_task_struc;
589: WHEN OTHERS THEN
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
592: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
593: p_error_text => SUBSTRB(SQLERRM,1,240));
594: rollback to create_dflt_task_struc;
595: raise;
1616: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
1617: -- pa_task_type_utils.check_tk_type_progressable(l_task_type_id)='N') )
1618: --THEN
1619:
1620: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
1621: ( p_calling_context => p_calling_module
1622: ,p_project_id => p_project_id
1623: ,p_structure_version_id => l_structure_version_id
1624: ,p_update_wbs_flag => 'Y'
2013: IF p_calling_module = 'FORMS'
2014: THEN
2015: IF l_workplan_enabled = 'Y'
2016: THEN
2017: PA_PROJ_TASK_STRUC_PUB.recalc_task_weightings(
2018: p_tasks_in => l_tasks_out --null if called for one task
2019: ,p_task_version_id => l_task_version_id
2020: ,x_msg_count => l_msg_count
2021: ,x_msg_data => l_msg_data
2026: raise api_error;
2027: END IF;
2028:
2029: --Bug 3170832 --uncommenting the call to rollup dates
2030: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
2031: p_tasks_in => l_tasks_out --null if called for one task
2032: ,p_task_version_id => l_task_version_id
2033: ,p_structure_version_id => l_structure_version_id
2034: ,p_project_id => p_project_id
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: rollback to create_task_struc;
2124: WHEN OTHERS THEN
2125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2126: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2127: p_procedure_name => 'create_task_structure',
2128: p_error_text => SUBSTRB(SQLERRM,1,240));
2129: rollback to create_task_struc;
2130: raise;
3278: --The following API should NOT be called if CREATE_TASK_STRUCTURE is called from AMG.
3279: --AMG recalculates the weightings once all the tasks are created.
3280: IF p_calling_module = 'FORMS'
3281: THEN
3282: /* PA_PROJ_TASK_STRUC_PUB.rollup_dates(
3283: p_tasks_in => l_tasks_out --null if called for one task
3284: ,p_task_version_id => l_task_version_id
3285: ,p_structure_version_id => l_structure_version_id
3286: ,p_project_id => p_project_id
3299:
3300: /* Bug # 3420093 - Adding Progress Management modifications to update_task flow. */
3301:
3302: -- Bug#3747312
3303: -- Added PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN = 'N'
3304: -- as the add_planning_txn/delete_planning_txn should be called in
3305: -- SHARED case and for SPLIT case if p_structure_type is passed as
3306: -- WORKPLAN.
3307:
3307:
3308:
3309: /* Commenting for bug 7358214
3310:
3311: if (p_structure_type = 'WORKPLAN' OR nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')then
3312:
3313: for l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id)
3314: loop
3315: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
3385: -- End of commenting for bug 7358214
3386:
3387: -- Added for bug 7358214
3388: IF (p_structure_type = 'WORKPLAN' OR
3389: nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')
3390: THEN
3391: FOR l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id) LOOP
3392:
3393: -- Bug 7437034 (Initialize l_hidden_assgn to N for each iteration)
3435: /* Commenting out the condition to check if workplan versioning is enabled for the project
3436: as PA_TASK_PUB1.update_task_det_sch_info() should be called for both versioning enabled
3437: and versioning disabled projects. */
3438:
3439: /* if (PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id) = 'Y') then */
3440:
3441: /* Calling API: pa_task_pub1.update_task_det_sch_info() only if calling module is not 'FORMS'. */
3442:
3443: if p_calling_module <> 'FORMS' then
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: rollback to update_task_struc;
3469: WHEN OTHERS THEN
3470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3472: p_procedure_name => 'update_task_structure',
3473: p_error_text => SUBSTRB(SQLERRM,1,240));
3474: rollback to update_task_struc;
3475: raise;
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3613: rollback to delete_task_struc;
3614: WHEN OTHERS THEN
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3616: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3617: p_procedure_name => 'delete_task_structure',
3618: p_error_text => SUBSTRB(SQLERRM,1,240));
3619: rollback to delete_task_struc;
3620: raise;
3765:
3766: WHEN OTHERS THEN
3767:
3768: fnd_msg_pub.add_exc_msg(
3769: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3770: p_procedure_name => 'delete_project_structure',
3771: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3772:
3773: RAISE FND_API.G_EXC_ERROR;
3788: x_return_status := FND_API.G_RET_STS_ERROR;
3789: rollback to delete_project_struc;
3790: WHEN OTHERS THEN
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3793: p_procedure_name => 'delete_project_structure',
3794: p_error_text => SUBSTRB(SQLERRM,1,240));
3795: rollback to delete_project_struc;
3796: raise;
4222: x_return_status := FND_API.G_RET_STS_ERROR;
4223: rollback to create_delete_wp_struc;
4224: WHEN OTHERS THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4227: p_procedure_name => 'create_delete_workplan_struc',
4228: p_error_text => SUBSTRB(SQLERRM,1,240));
4229: rollback to create_delete_wp_struc;
4230: raise;
4294: IF p_copy_task_flag = 'Y'
4295: THEN
4296:
4297: --copying structrues and tasks
4298: PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk
4299: (
4300: p_init_msg_list => FND_API.G_FALSE
4301: ,p_src_project_id => p_src_project_id
4302: ,p_dest_project_id => p_dest_project_id
4318: -- when both structures are disabled in source project.
4319: IF PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id )= 'Y' OR
4320: PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id )= 'Y' THEN
4321: --copying only structrues --This is for AMG
4322: PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk
4323: (
4324: p_src_project_id => p_src_project_id
4325: ,p_dest_project_id => p_dest_project_id
4326: ,p_delta => p_delta
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363: rollback to cp_struc;
4364: WHEN OTHERS THEN
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4367: p_procedure_name => 'Copy_Structure',
4368: p_error_text => SUBSTRB(SQLERRM,1,240));
4369: rollback to cp_struc;
4370: raise;
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457: rollback to clean_struc;
4458: WHEN OTHERS THEN
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4461: p_procedure_name => 'Clean_unwanted_tasks',
4462: p_error_text => SUBSTRB(SQLERRM,1,240));
4463: rollback to clean_struc;
4464: raise;
4526: ) AND
4527: l_index_number = l_first_index1
4528: THEN
4529: v_task_id_above := null; --ref is the structure version. structure version is
4530: --derived in PA_PROJ_TASK_STRUC_PUB.create_task_structure API.
4531: END IF;
4532: x_task_id_above := v_task_id_above;
4533:
4534: EXCEPTION WHEN OTHERS THEN
4864: FETCH get_working_ver_num INTO l_struc_ver_number;
4865: CLOSE get_working_ver_num;
4866:
4867: --FPM bug 3301192
4868: IF NVL( PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id), 'N' ) = 'Y'
4869: THEN
4870: l_status_code := 'STRUCTURE_WORKING';
4871: l_current_working_ver_flag := 'Y';
4872: l_latest_eff_published_flag := 'N';
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4935: p_procedure_name => 'CREATE_STRUCTURE',
4936: p_error_text => SUBSTRB(SQLERRM,1,240));
4937: raise;
4938: END create_structure;
5340: ,x_Msg_data => l_msg_data
5341: );
5342: EXCEPTION
5343: WHEN OTHERS THEN
5344: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5345: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5346: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5347: raise fnd_api.g_exc_error;
5348: END;
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5385: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5386: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5387: p_error_text => SUBSTRB(SQLERRM,1,240));
5388: END create_update_struct_ver;
5389:
5917: THEN
5918: --convert pm_parent_task_reference to parent_task_id.
5919: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
5920:
5921: -- Bug 3601700 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
5922: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
5923: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
5924: -- in case of SHARED structure
5925: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
5919: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
5920:
5921: -- Bug 3601700 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
5922: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
5923: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
5924: -- in case of SHARED structure
5925: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
5926: /* PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
5927: p_pm_parent_task_reference => p_tasks_in(i).pm_parent_task_reference
5922: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
5923: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
5924: -- in case of SHARED structure
5925: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only */
5926: /* PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
5927: p_pm_parent_task_reference => p_tasks_in(i).pm_parent_task_reference
5928: ,p_project_id => p_project_id
5929: ,x_parent_task_id => v_parent_task_id
5930: ,x_return_status => l_return_status
5984: end if;
5985: end if;
5986: END IF;
5987:
5988: PA_PROJ_TASK_STRUC_PUB.CREATE_TASK_STRUCTURE(
5989: p_project_id => p_project_id
5990: -- ,p_task_id => p_tasks_in(i).pa_task_id, rtarway, BUG 3990873
5991: ,p_task_id => l_pa_task_id
5992: ,p_parent_task_id => v_parent_task_id
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6455: )
6456: THEN
6457: IF l_debug_mode = 'Y' THEN
6458: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6459: p_src_project_id, p_dest_project_id, p_dest_fn_structure_id, p_shared, p_publish_person_id are NULL';
6460: Pa_Debug.WRITE(G_PKG_NAME, Pa_Debug.g_err_stage, l_debug_level3);
6461: END IF;
6462: RAISE Invalid_Arg_Exc_WP;
6680:
6681: WHEN Invalid_Arg_Exc_WP THEN
6682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6683: x_msg_count := 1;
6684: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6685:
6686: IF p_commit = FND_API.G_TRUE THEN
6687: ROLLBACK TO copy_src_fin_ver;
6688: END IF;
6687: ROLLBACK TO copy_src_fin_ver;
6688: END IF;
6689:
6690: Fnd_Msg_Pub.add_exc_msg
6691: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6692: , p_procedure_name => 'copy_src_financial_version'
6693: , p_error_text => x_msg_data);
6694:
6695: IF l_debug_mode = 'Y' THEN
6709: ROLLBACK TO copy_src_fin_ver;
6710: END IF;
6711:
6712: Fnd_Msg_Pub.add_exc_msg
6713: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6714: , p_procedure_name => 'copy_src_financial_version'
6715: , p_error_text => x_msg_data);
6716:
6717: IF l_debug_mode = 'Y' THEN
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6969: )
6970: THEN
6971: IF l_debug_mode = 'Y' THEN
6972: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
6973: p_dest_project_id, p_dest_fn_structure_id, p_shared, p_copy_ppevSchedules_flag, p_calendar_id are NULL';
6974: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6975: l_debug_level3);
6976: END IF;
7442: ,SYSDATE
7443: ,l_user_id
7444: ,SYSDATE
7445: ,l_user_id
7446: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
7447: p_target_finish_date,
7448: l_delta,
7449: ppevs.SCHEDULED_START_DATE,
7450: null )
7447: p_target_finish_date,
7448: l_delta,
7449: ppevs.SCHEDULED_START_DATE,
7450: null )
7451: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
7452: p_target_finish_date,
7453: l_delta,
7454: ppevs.SCHEDULED_START_DATE,
7455: SCHEDULED_FINISH_DATE )
7513:
7514: WHEN Invalid_Arg_Exc_WP THEN
7515: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7516: x_msg_count := 1;
7517: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7518:
7519: IF p_commit = FND_API.G_TRUE THEN
7520: ROLLBACK TO copy_src_fin_ver_tasks;
7521: END IF;
7520: ROLLBACK TO copy_src_fin_ver_tasks;
7521: END IF;
7522:
7523: Fnd_Msg_Pub.add_exc_msg
7524: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7525: , p_procedure_name => 'copy_src_financial_ver_tasks'
7526: , p_error_text => x_msg_data);
7527:
7528: IF l_debug_mode = 'Y' THEN
7542: ROLLBACK TO copy_src_fin_ver_tasks;
7543: END IF;
7544:
7545: Fnd_Msg_Pub.add_exc_msg
7546: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7547: , p_procedure_name => 'copy_src_financial_ver_tasks'
7548: , p_error_text => x_msg_data);
7549:
7550: IF l_debug_mode = 'Y' THEN
9623: ,SYSDATE
9624: ,l_user_id
9625: ,SYSDATE
9626: ,l_user_id
9627: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
9628: p_target_finish_date,
9629: l_delta,
9630: ppevs.SCHEDULED_START_DATE,
9631: null )
9628: p_target_finish_date,
9629: l_delta,
9630: ppevs.SCHEDULED_START_DATE,
9631: null )
9632: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date,
9633: p_target_finish_date,
9634: l_delta,
9635: ppevs.SCHEDULED_START_DATE,
9636: SCHEDULED_FINISH_DATE )
9988: IF l_workplan_enabled = 'Y' THEN
9989: -- Bug 3657808 Remove duration calculation using calendar
9990: -- and rewritting the query
9991: /*UPDATE pa_proj_elem_ver_schedule
9992: SET duration = PA_PROJ_TASK_STRUC_PUB.calc_duration( p_calendar_id,
9993: scheduled_start_date,
9994: scheduled_finish_date )
9995: WHERE project_id = p_dest_project_id;*/
9996: UPDATE pa_proj_elem_ver_schedule
10408: COMMIT;
10409: END IF;
10410:
10411: IF (p_debug_mode = 'Y') THEN
10412: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk END');
10413: Pa_Debug.reset_curr_function; --For bug 4252182
10414: END IF;
10415:
10416: EXCEPTION
10445:
10446: WHEN Invalid_Arg_Exc_WP THEN
10447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10448: x_msg_count := 1;
10449: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10450:
10451: IF p_commit = FND_API.G_TRUE THEN
10452: ROLLBACK TO copy_struc_tasks_bulk;
10453: END IF;
10474: ROLLBACK TO copy_struc_tasks_bulk;
10475: END IF;
10476:
10477: Fnd_Msg_Pub.add_exc_msg
10478: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
10479: , p_procedure_name => 'copy_structures_tasks_bulk'
10480: , p_error_text => x_msg_data);
10481:
10482: IF l_debug_mode = 'Y' THEN
10821:
10822: BEGIN
10823:
10824: IF (p_debug_mode = 'Y') THEN
10825: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
10826: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
10827: END IF;
10828:
10829: IF (p_commit = FND_API.G_TRUE) THEN
10822: BEGIN
10823:
10824: IF (p_debug_mode = 'Y') THEN
10825: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
10826: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
10827: END IF;
10828:
10829: IF (p_commit = FND_API.G_TRUE) THEN
10830: savepoint copy_structure_bulk_pvt;
10851: --ELSE
10852: l_name := substr(l_project_name, 1, 240);
10853: --END IF;
10854: -- Bug 3717026 End
10855: l_workplan_enabled := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( p_src_project_id );
10856:
10857: --bug 2838547
10858: open get_person_id(FND_GLOBAL.USER_ID);
10859: fetch get_person_id into l_publish_person_id;
11715: --Find out which unpublihsed version is last updated.
11716: IF l_max_date IS NULL
11717: THEN
11718: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
11719: 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 );
11720: ELSE
11721: 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 );
11722: IF l_max_date2 > l_max_date
11723: THEN
11717: THEN
11718: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
11719: 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 );
11720: ELSE
11721: 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 );
11722: IF l_max_date2 > l_max_date
11723: THEN
11724: --for bug 2834111
11725: l_max_date := l_max_date2;
11865: --Find out which unpublihsed version is last updated.
11866: IF l_max_date IS NULL
11867: THEN
11868: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
11869: 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 );
11870: ELSE
11871: 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 );
11872: IF l_max_date2 > l_max_date
11873: THEN
11867: THEN
11868: l_latst_upd_wrkng_str_ver := l_dest_str_versions_tbl(j).src_str_version_id;
11869: 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 );
11870: ELSE
11871: 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 );
11872: IF l_max_date2 > l_max_date
11873: THEN
11874: --for bug 2834111
11875: l_max_date := l_max_date2;
12146: --contain any records if there were no working verisons. We need to create one if any of the flags
12147: --l_create_fin_version or l_create_wk_version is 'Y'.
12148: IF nvl(l_create_fin_version,'N') = 'Y' THEN
12149: l_structure_ver_name := substr(l_project_name, 1, 240);
12150: PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver(
12151: p_project_id => p_dest_project_id
12152: ,p_structure_type => 'FINANCIAL'
12153: ,p_structure_version_name => l_structure_ver_name
12154: ,p_structure_version_id => null
12166: END IF;
12167: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12168: l_structure_ver_name := substr(l_project_name||l_append||l_suffix, 1, 240);
12169:
12170: PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver(
12171: p_project_id => p_dest_project_id
12172: ,p_structure_type => 'WORKPLAN'
12173: ,p_structure_version_name => l_structure_ver_name
12174: ,p_structure_version_id => null
12692: ,SYSDATE
12693: ,l_user_id
12694: ,SYSDATE
12695: ,l_user_id
12696: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date, --fix bug 2831973
12697: p_target_finish_date,
12698: l_delta,
12699: ppevs.SCHEDULED_START_DATE,
12700: null ) --sch start date
12697: p_target_finish_date,
12698: l_delta,
12699: ppevs.SCHEDULED_START_DATE,
12700: null ) --sch start date
12701: ,PA_PROJ_TASK_STRUC_PUB.get_adjusted_dates( p_target_start_date, --fix bug 2831973
12702: p_target_finish_date,
12703: l_delta,
12704: ppevs.SCHEDULED_START_DATE,
12705: SCHEDULED_FINISH_DATE ) --sch end date
12774: --updating duration
12775: -- Bug 3657808 Remove duration calculation using calendar
12776: -- and rewritting the query
12777: /*UPDATE pa_proj_elem_ver_schedule
12778: SET duration = PA_PROJ_TASK_STRUC_PUB.calc_duration( p_calendar_id,
12779: scheduled_start_date,
12780: scheduled_finish_date )
12781: WHERE project_id = p_dest_project_id;*/
12782: UPDATE pa_proj_elem_ver_schedule
12891: ,x_Msg_data => x_msg_data
12892: );
12893: EXCEPTION
12894: WHEN OTHERS THEN
12895: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
12896: p_procedure_name => 'copy_structures_bulk',
12897: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
12898: RAISE FND_API.G_EXC_ERROR;
12899: END;
12972: OPEN cur_str_vers( l_wp_str_id );
12973: FETCH cur_str_vers INTO l_wp_str_ver_id;
12974: CLOSE cur_str_vers;
12975:
12976: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
12977: (
12978: p_calling_context => 'COPY_PROJECT'
12979: ,p_project_id => p_dest_project_id
12980: ,p_structure_version_id => l_wp_str_ver_id
12995: OPEN cur_str_vers( l_wp_str_id );
12996: FETCH cur_str_vers INTO l_wp_str_ver_id;
12997: CLOSE cur_str_vers;
12998:
12999: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
13000: (
13001: p_calling_context => 'COPY_PROJECT'
13002: ,p_project_id => p_dest_project_id
13003: ,p_structure_version_id => l_wp_str_ver_id
13017: OPEN cur_str_vers( l_fn_str_id );
13018: FETCH cur_str_vers INTO l_fn_str_ver_id;
13019: CLOSE cur_str_vers;
13020:
13021: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
13022: (
13023: p_calling_context => 'COPY_PROJECT'
13024: ,p_project_id => p_dest_project_id
13025: ,p_structure_version_id => l_fn_str_ver_id
13044: x_return_status := FND_API.G_RET_STS_SUCCESS;
13045:
13046:
13047: IF (p_debug_mode = 'Y') THEN
13048: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13049: END IF;
13050:
13051: EXCEPTION
13052: when FND_API.G_EXC_ERROR then
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13063: p_procedure_name => 'copy_structures_bulk',
13064: p_error_text => SUBSTRB(SQLERRM,1,240));
13065: when OTHERS then
13066: if p_commit = FND_API.G_TRUE then
13066: if p_commit = FND_API.G_TRUE then
13067: rollback to copy_structure_bulk_pvt;
13068: end if;
13069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13070: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13071: p_procedure_name => 'copy_structures_bulk',
13072: p_error_text => SUBSTRB(SQLERRM,1,240));
13073: raise;
13074: END copy_structures_bulk;
13519: l_data VARCHAR2(2000);
13520: l_msg_data VARCHAR2(2000);
13521: l_msg_index_out NUMBER;
13522: l_debug_mode VARCHAR2(1);
13523: l_module_name VARCHAR2(100) := 'pa.plsql.PA_PROJ_TASK_STRUC_PUB';
13524: l_process_code VARCHAR2(30);
13525: l_task_weight_basis_code VARCHAR2(30);
13526: l_update_wbs_flag VARCHAR2(1);
13527:
13689: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13690: l_debug_level2);
13691:
13692: --For bug 4252182
13693: pa_debug.set_curr_function( p_function => 'PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK',
13694: p_debug_mode => l_debug_mode );
13695:
13696: END IF;
13697:
13941: This was happening due to the value 'PUBLISHED' was populated in the task_unpub_ver_status_code column.
13942: When ever a task is created in MSP and sent to oracle projects the pa_project_pub.load_project and
13943: pa_project_pub.execute_update_project are called.
13944:
13945: The pa_project_pub.execute_update_project -> update_project API ...> PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK is called.
13946:
13947: Inside this API the following code is used to derive the value for task_unpub_ver_status_code column.
13948: This is correct. But after this piece of code all the passed in tasks are processed in a loop. In the
13949: loop the same variable l_task_unpub_ver_status_code is used to get the other tasks status. Hence the
14421: THEN
14422: --convert pm_parent_task_reference to parent_task_id.
14423: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14424:
14425: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14426: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14427: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14428: -- in case of SHARED structure
14429: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14423: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14424:
14425: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14426: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14427: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14428: -- in case of SHARED structure
14429: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14430:
14431: -- PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14427: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14428: -- in case of SHARED structure
14429: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14430:
14431: -- PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14432: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
14433: -- ,p_project_id => p_project_id
14434: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
14435: -- ,x_return_status => x_return_status
14558: THEN
14559: --convert pm_parent_task_reference to parent_task_id.
14560: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14561:
14562: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14563: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14564: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14565: -- in case of SHARED structure
14566: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14560: --All the parent tasks are created first then child tasks are created. See TRM for AMG load_task api.
14561:
14562: -- 3721124 changed function call from PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref
14563: -- to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all to retrieve task id for task reference
14564: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14565: -- in case of SHARED structure
14566: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14567:
14568: --PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14564: -- because PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref may return financial task id
14565: -- in case of SHARED structure
14566: -- new api call takes structure type as parameter, so it will return task id for the passed structure type only
14567:
14568: --PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14569: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
14570: -- ,p_project_id => p_project_id
14571: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
14572: -- ,x_return_status => x_return_status
16607: -- p_is_wp_separate_from_fn = 'Y' AND
16608: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
16609: -- NVL( l_progressable_task, 'N' ) = 'N' ))
16610: --THEN
16611: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
16612: (
16613: p_calling_context => 'AMG'
16614: ,p_project_id => p_project_id
16615: ,p_structure_version_id => l_structure_version_id
16692: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
16693: --if no tasks are passed , this will be empty,
16694: IF ( px_tasks_out_tbl IS NOT NULL AND px_tasks_out_tbl.count > 0)
16695: THEN
16696: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
16697: p_tasks_in => px_tasks_out_tbl
16698: ,p_task_version_id => null
16699: ,p_project_id => p_project_id
16700: ,P_structure_version_id => null
16725: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
16726: --if no tasks are passed , this will be empty,
16727: IF ( px_tasks_out_tbl IS NOT NULL AND px_tasks_out_tbl.count > 0)
16728: THEN
16729: PA_PROJ_TASK_STRUC_PUB.recalc_task_weightings(
16730: p_tasks_in => px_tasks_out_tbl
16731: ,p_task_version_id => null
16732: ,x_msg_count => x_msg_count
16733: ,x_msg_data => x_msg_data
16767:
16768: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
16769: -- Instead of using local variables, used the out parameters for the standard parameters.
16770:
16771: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES(p_calling_context => 'ONLINE_UPDATE'
16772: ,p_project_id => p_project_id
16773: ,p_structure_version_id => l_structure_version_id
16774: ,x_return_status => x_return_status
16775: ,x_msg_count => x_msg_count
16792: END IF;
16793:
16794: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
16795: -- Instead of using local variables, used the out parameters for the standard parameters.
16796: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
16797: ,p_project_id => p_project_id
16798: ,p_structure_version_id => l_structure_version_id
16799: ,x_return_status => x_return_status
16800: ,x_msg_count => x_msg_count
17361: CLOSE cur_all_task_ver_id;
17362: END IF;
17363:
17364: FND_MSG_PUB.add_exc_msg
17365: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
17366: ,p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK'
17367: ,p_error_text => x_msg_data
17368: );
17369:
17458: x_return_status := FND_API.G_RET_STS_ERROR;
17459: rollback to plan_tasks;
17460: WHEN OTHERS THEN
17461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17462: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
17463: p_procedure_name => 'delete_fin_plan_from_task',
17464: p_error_text => SUBSTRB(SQLERRM,1,240));
17465: rollback to plan_tasks;
17466: raise;
17630: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17631: END IF;
17632:
17633: IF l_update_option = 'ONLINE' THEN
17634: pa_proj_task_struc_pub.process_wbs_updates(
17635: p_commit => p_commit
17636: ,p_project_id => p_project_id
17637: ,p_structure_version_id => p_structure_version_id
17638: ,p_pub_struc_ver_id => p_pub_struc_ver_id
17649: END IF;
17650: Raise Invalid_Arg_Exc_WP;
17651: END IF;
17652: ELSIF l_update_option = 'CONCURRENT' THEN
17653: pa_proj_task_struc_pub.process_wbs_updates_conc_wrp(
17654: p_commit => p_commit
17655: ,p_project_id => p_project_id
17656: ,p_structure_version_id => p_structure_version_id
17657: ,p_pub_struc_ver_id => p_pub_struc_ver_id
17717: CLOSE cur_task_count;
17718: END IF;
17719:
17720: FND_MSG_PUB.add_exc_msg
17721: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
17722: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
17723: ,p_error_text => x_msg_data);
17724:
17725: IF l_debug_mode = 'Y' THEN
17900: AND
17901:
17902: -- Begin Bug # 4584710.
17903: /*
17904: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ) = 'Y' AND
17905: nvl(l_structure_type_flag,'N') = 'Y' AND
17906: ( nvl(l_task_weighting_basis,'-99') = 'MANUAL'
17907: OR
17908: */
18088: x_msg_count := 1;
18089: x_msg_data := SQLERRM;
18090:
18091: FND_MSG_PUB.add_exc_msg
18092: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18093: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18094: ,p_error_text => x_msg_data);
18095:
18096: IF l_debug_mode = 'Y' THEN
18182: p_msg_name => 'PA_INV_PARAM_PASSED');
18183: RAISE Invalid_Arg_Exc_WP;
18184: END IF;
18185:
18186: pa_proj_task_struc_pub.process_wbs_updates(
18187: p_calling_context => p_calling_context
18188: ,p_project_id => p_project_id
18189: ,p_structure_version_id => p_structure_version_id
18190: ,p_pub_struc_ver_id => p_pub_struc_ver_id
18308: -- If the process that errored out is process_updates then set the process_update_wbs_flag to 'Y'.
18309:
18310: if (p_calling_context = 'CONC_UPDATE') then
18311:
18312: pa_proj_task_struc_pub.set_update_wbs_flag
18313: (p_project_id => p_project_id
18314: ,p_structure_version_id => p_structure_version_id
18315: ,p_update_wbs_flag => 'Y'
18316: ,x_return_status => l_return_status
18337: retcode := '2';
18338: errbuf := SQLERRM;
18339:
18340: FND_MSG_PUB.add_exc_msg
18341: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18342: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC'
18343: ,p_error_text => errbuf);
18344:
18345: rollback to process_wbs_updates_conc;
18393: -- If the process that errored out is process_updates then set the process_update_wbs_flag to 'Y'.
18394:
18395: if (p_calling_context = 'CONC_UPDATE') then
18396:
18397: pa_proj_task_struc_pub.set_update_wbs_flag
18398: (p_project_id => p_project_id
18399: ,p_structure_version_id => p_structure_version_id
18400: ,p_update_wbs_flag => 'Y'
18401: ,x_return_status => l_return_status
18749: 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);
18750: END IF;
18751: EXCEPTION
18752: WHEN OTHERS THEN
18753: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18754: p_procedure_name => 'PROCESS_WBS_UDPATES',
18755: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
18756: RAISE Invalid_Arg_Exc_WP;
18757: END;
19019: END IF;
19020:
19021: EXCEPTION
19022: WHEN OTHERS THEN
19023: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19024: p_procedure_name => 'PROCESS_WBS_UPDATES',
19025: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for PUBLISH Mode for working '||
19026: 'verison: SQLERRM='||SQLERRM,1,120));
19027: RAISE Invalid_Arg_Exc_WP;
19044: END IF;
19045: 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.
19046: EXCEPTION
19047: WHEN OTHERS THEN
19048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19049: p_procedure_name => 'PROCESS_WBS_UPDATES',
19050: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in PUBLISH mode for'||
19051: ' working verison:SQLERRM='||SQLERRM,1,120));
19052: RAISE Invalid_Arg_Exc_WP;
19223:
19224: EXCEPTION
19225: WHEN OTHERS THEN
19226: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
19227: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19228: p_procedure_name => 'PROCESS_WBS_UDPATES',
19229: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
19230: RAISE Invalid_Arg_Exc_WP;
19231: END;
19478: END IF;
19479:
19480: EXCEPTION
19481: WHEN OTHERS THEN
19482: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19483: p_procedure_name => 'PROCESS_WBS_UPDATES',
19484: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed for Publish Mode: SQLERRM='||SQLERRM,1,240));
19485: RAISE Invalid_Arg_Exc_WP;
19486: END;
19674: END IF;
19675:
19676: EXCEPTION
19677: WHEN OTHERS THEN
19678: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19679: p_procedure_name => 'PROCESS_WBS_UPDATES',
19680: 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));
19681: RAISE Invalid_Arg_Exc_WP;
19682:
19696: END IF;
19697:
19698: EXCEPTION
19699: WHEN OTHERS THEN
19700: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19701: p_procedure_name => 'PROCESS_WBS_UPDATES',
19702: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
19703: RAISE Invalid_Arg_Exc_WP;
19704: END;
19879:
19880: --bug 4479392
19881: -- Mark the structure version as no pending wbs updates.
19882: IF l_debug_mode = 'Y' THEN
19883: pa_debug.write(G_PKG_NAME, 'Before calling pa_proj_task_struc_pub.set_update_wbs_flag for published version', 3);
19884: END IF;
19885:
19886: pa_proj_task_struc_pub.set_update_wbs_flag(
19887: p_project_id => p_project_id
19882: IF l_debug_mode = 'Y' THEN
19883: pa_debug.write(G_PKG_NAME, 'Before calling pa_proj_task_struc_pub.set_update_wbs_flag for published version', 3);
19884: END IF;
19885:
19886: pa_proj_task_struc_pub.set_update_wbs_flag(
19887: p_project_id => p_project_id
19888: ,p_structure_version_id => l_pub_ver_id
19889: ,p_update_wbs_flag => 'N'
19890: ,x_return_status => x_return_status
19892: ,x_msg_data => x_msg_data
19893: );
19894:
19895: IF l_debug_mode = 'Y' THEN
19896: 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);
19897: END IF;
19898:
19899: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19900: raise Invalid_Arg_Exc_WP;
19937: END IF;
19938:
19939: EXCEPTION
19940: WHEN OTHERS THEN
19941: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19942: p_procedure_name => 'PROCESS_WBS_UPDATES',
19943: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
19944: RAISE Invalid_Arg_Exc_WP;
19945: END;
19970: END IF;
19971:
19972: EXCEPTION
19973: WHEN OTHERS THEN
19974: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19975: p_procedure_name => 'PROCESS_WBS_UPDATES',
19976: 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));
19977: RAISE Invalid_Arg_Exc_WP;
19978:
19991: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in UPDATE mode x_return_status='|| x_return_status,l_debug_level3);
19992: END IF;
19993: EXCEPTION
19994: WHEN OTHERS THEN
19995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19996: p_procedure_name => 'PROCESS_WBS_UPDATES',
19997: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in Update mode:SQLERRM='||SQLERRM,1,120));
19998: RAISE Invalid_Arg_Exc_WP;
19999: END;
20007:
20008: -- Bug 4284444 : Commented the below code
20009: -- EXCEPTION
20010: -- WHEN OTHERS THEN
20011: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20012: -- p_procedure_name => 'PROCESS_WBS_UPDATES',
20013: -- p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT:'||SQLERRM,1,240));
20014: -- RAISE Invalid_Arg_Exc_WP;
20015: -- END;
20019: IF l_debug_mode = 'Y' THEN
20020: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE', 3);
20021: END IF;
20022:
20023: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20024: p_project_id => p_project_id
20025: -- ,p_structure_version_id => p_structure_version_id
20026: --Modified for BUG 4127178
20027: ,p_structure_version_id => l_pub_ver_id
20059: Raise Invalid_Arg_Exc_WP;
20060: END IF;
20061: EXCEPTION
20062: WHEN OTHERS THEN
20063: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20064: p_procedure_name => 'PROCESS_WBS_UPDATES',
20065: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20066: RAISE FND_API.G_EXC_ERROR;
20067: END;
20167: IF l_debug_mode = 'Y' THEN
20168: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE in Copy Project Mode', 3);
20169: END IF;
20170:
20171: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20172: p_project_id => p_project_id
20173: ,p_structure_version_id => p_structure_version_id
20174: ,x_return_status => x_return_status
20175: ,x_msg_count => x_msg_count
20218: END IF;
20219:
20220: EXCEPTION
20221: WHEN OTHERS THEN
20222: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20223: p_procedure_name => 'PROCESS_WBS_UPDATES',
20224: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT
20225: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20226: RAISE Invalid_Arg_Exc_WP;
20235: END IF; --end bug 3035902 maansari
20236: END IF; -- (if p_calling_mode = 'APPLY_PROGRESS') then -- Fix for Bug # 4262985.
20237:
20238: -- Mark the structure version as no pending wbs updates.
20239: pa_proj_task_struc_pub.set_update_wbs_flag(
20240: p_project_id => p_project_id
20241: ,p_structure_version_id => p_structure_version_id
20242: ,p_update_wbs_flag => 'N'
20243: ,x_return_status => x_return_status
20305: CLOSE cur_structure_type;
20306: END IF;
20307:
20308: FND_MSG_PUB.add_exc_msg
20309: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
20310: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
20311: ,p_error_text => x_msg_data);
20312:
20313: IF l_debug_mode = 'Y' THEN
20597: END IF;
20598:
20599: EXCEPTION
20600: WHEN OTHERS THEN
20601: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20602: p_procedure_name => 'PROCESS_TASK_WEIGHTAGE',
20603: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed='||SQLERRM,1,120));
20604: RAISE Invalid_Arg_Exc_WP;
20605:
20854: CLOSE cur_task_info;
20855: END IF;
20856:
20857: FND_MSG_PUB.add_exc_msg
20858: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
20859: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
20860: ,p_error_text => x_msg_data);
20861:
20862: IF l_debug_mode = 'Y' THEN
21004: x_msg_count := 1;
21005: x_msg_data := SQLERRM;
21006:
21007: FND_MSG_PUB.add_exc_msg
21008: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21009: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21010: ,p_error_text => x_msg_data);
21011:
21012: IF l_debug_mode = 'Y' THEN
21047:
21048: -- Not doing the validation of input parameter
21049: -- as it is done in the the called API.
21050:
21051: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21052: ( p_commit => FND_API.G_TRUE
21053: ,p_calling_context => 'UPDATE'
21054: ,p_project_id => p_project_id
21055: ,p_structure_version_id => p_structure_version_id
21093: x_msg_count := 1;
21094: x_msg_data := SQLERRM;
21095:
21096: FND_MSG_PUB.add_exc_msg
21097: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21098: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21099: ,p_error_text => x_msg_data);
21100:
21101: IF l_debug_mode = 'Y' THEN
21188: OPEN cur_str_vers( l_wp_str_id );
21189: FETCH cur_str_vers INTO l_wp_str_ver_id;
21190: CLOSE cur_str_vers;
21191:
21192: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21193: (
21194: p_calling_context => 'COPY_PROJECT'
21195: ,p_project_id => p_dest_project_id
21196: ,p_structure_version_id => l_wp_str_ver_id
21216: */
21217: --If there are more than one working versions
21218: FOR cur_str_vers_rec in cur_str_vers( l_wp_str_id ) LOOP
21219:
21220: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21221: (
21222: p_calling_context => 'COPY_PROJECT'
21223: ,p_project_id => p_dest_project_id
21224: ,p_structure_version_id => cur_str_vers_rec.element_version_id
21246: CLOSE cur_str_vers;
21247:
21248: --hsiu: 3305199 for bug with wp only project
21249: IF l_fn_str_ver_id <> -1 THEN
21250: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21251: (
21252: p_calling_context => 'COPY_PROJECT'
21253: ,p_project_id => p_dest_project_id
21254: ,p_structure_version_id => l_fn_str_ver_id
21294: x_msg_count := 1;
21295: x_msg_data := SQLERRM;
21296:
21297: FND_MSG_PUB.add_exc_msg
21298: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21299: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
21300: ,p_error_text => x_msg_data);
21301:
21302: IF l_debug_mode = 'Y' THEN
21507: rollback to update_current_phase;
21508: END IF;
21509: WHEN OTHERS THEN
21510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21512: p_procedure_name => 'update_current_phase',
21513: p_error_text => SUBSTRB(SQLERRM,1,240));
21514: IF p_commit = FND_API.G_TRUE THEN
21515: rollback to update_current_phase;
21793: l_object_type VARCHAR2(80);
21794: API_ERROR EXCEPTION;
21795: BEGIN
21796: IF (p_debug_mode = 'Y') THEN
21797: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
21798: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
21799: END IF;
21800: --
21801: IF (p_commit = FND_API.G_TRUE) THEN
21794: API_ERROR EXCEPTION;
21795: BEGIN
21796: IF (p_debug_mode = 'Y') THEN
21797: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
21798: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
21799: END IF;
21800: --
21801: IF (p_commit = FND_API.G_TRUE) THEN
21802: savepoint delete_intra_dependency;
21865: COMMIT;
21866: END IF;
21867: --
21868: IF (p_debug_mode = 'Y') THEN
21869: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY END');
21870: END IF;
21871: EXCEPTION
21872: WHEN API_ERROR THEN
21873: x_return_status := FND_API.G_RET_STS_ERROR;
21877: ROLLBACK TO delete_intra_dependency;
21878: END IF;
21879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21880: FND_MSG_PUB.add_exc_msg(
21881: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21882: p_procedure_name => 'delete_intra_dependency',
21883: p_error_text => SUBSTRB(SQLERRM,1,240));
21884: ROLLBACK TO delete_intra_dependency;
21885: RAISE;
21884: ROLLBACK TO delete_intra_dependency;
21885: RAISE;
21886: END delete_intra_dependency;
21887:
21888: END PA_PROJ_TASK_STRUC_PUB;
21889: