[Home] [Help]
6404: BEGIN
6405:
6406: x_msg_count := 0;
6407: x_return_status := FND_API.G_RET_STS_SUCCESS;
6408: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6409:
6410: IF (p_commit = FND_API.G_TRUE) THEN
6411: SAVEPOINT copy_src_fin_ver;
6412: END IF;
6415: FND_MSG_PUB.initialize;
6416: END IF;
6417:
6418: IF l_debug_mode = 'Y' THEN
6419: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_version',
6420: p_debug_mode => l_debug_mode );
6421: END IF;
6422:
6423: IF l_debug_mode = 'Y' THEN
6420: p_debug_mode => l_debug_mode );
6421: END IF;
6422:
6423: IF l_debug_mode = 'Y' THEN
6424: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6425: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6426: l_debug_level3);
6427:
6428: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6421: END IF;
6422:
6423: IF l_debug_mode = 'Y' THEN
6424: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6425: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6426: l_debug_level3);
6427:
6428: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6429: l_debug_level3);
6424: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6425: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6426: l_debug_level3);
6427:
6428: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6429: l_debug_level3);
6430:
6431: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6432: l_debug_level3);
6427:
6428: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6429: l_debug_level3);
6430:
6431: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6432: l_debug_level3);
6433:
6434: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6435: l_debug_level3);
6430:
6431: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6432: l_debug_level3);
6433:
6434: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6435: l_debug_level3);
6436:
6437: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6438: l_debug_level3);
6433:
6434: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6435: l_debug_level3);
6436:
6437: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6438: l_debug_level3);
6439:
6440: Pa_Debug.WRITE(G_PKG_NAME,'p_publish_person_id'||':'||p_publish_person_id,
6441: l_debug_level3);
6436:
6437: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6438: l_debug_level3);
6439:
6440: Pa_Debug.WRITE(G_PKG_NAME,'p_publish_person_id'||':'||p_publish_person_id,
6441: l_debug_level3);
6442: END IF;
6443:
6444: IF l_debug_mode = 'Y' THEN
6441: l_debug_level3);
6442: END IF;
6443:
6444: IF l_debug_mode = 'Y' THEN
6445: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6446: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6447: l_debug_level3);
6448: END IF;
6449:
6442: END IF;
6443:
6444: IF l_debug_mode = 'Y' THEN
6445: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6446: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6447: l_debug_level3);
6448: END IF;
6449:
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
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;
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;
6463: END IF;
6464:
6479: CLOSE cur_get_split_fin_ver;
6480: END IF;
6481:
6482: IF l_debug_mode = 'Y' THEN
6483: Pa_Debug.WRITE(G_PKG_NAME,'Source financial version id : '||l_src_fin_version_id, l_debug_level3);
6484: END IF;
6485:
6486: --Copy entry into pa_proj_element_versions for the financial version in the source project
6487: INSERT INTO pa_proj_element_versions(
6585: END IF;
6586: END IF;
6587:
6588: IF l_debug_mode = 'Y' THEN
6589: Pa_Debug.WRITE(G_PKG_NAME,'dest_latest_eff_pub_flag : '||dest_latest_eff_pub_flag, l_debug_level3);
6590: Pa_Debug.WRITE(G_PKG_NAME,'dest_current_flag : '||dest_current_flag, l_debug_level3);
6591: END IF;
6592:
6593: --Copy entry into pa_proj_elem_ver_structure for financial version in the source project
6586: END IF;
6587:
6588: IF l_debug_mode = 'Y' THEN
6589: Pa_Debug.WRITE(G_PKG_NAME,'dest_latest_eff_pub_flag : '||dest_latest_eff_pub_flag, l_debug_level3);
6590: Pa_Debug.WRITE(G_PKG_NAME,'dest_current_flag : '||dest_current_flag, l_debug_level3);
6591: END IF;
6592:
6593: --Copy entry into pa_proj_elem_ver_structure for financial version in the source project
6594: INSERT INTO PA_PROJ_ELEM_VER_STRUCTURE(
6692: , p_procedure_name => 'copy_src_financial_version'
6693: , p_error_text => x_msg_data);
6694:
6695: IF l_debug_mode = 'Y' THEN
6696: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6697: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6698: l_debug_level5);
6699: Pa_Debug.reset_curr_function;
6700: END IF;
6693: , p_error_text => x_msg_data);
6694:
6695: IF l_debug_mode = 'Y' THEN
6696: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6697: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6698: l_debug_level5);
6699: Pa_Debug.reset_curr_function;
6700: END IF;
6701: RAISE;
6695: IF l_debug_mode = 'Y' THEN
6696: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6697: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6698: l_debug_level5);
6699: Pa_Debug.reset_curr_function;
6700: END IF;
6701: RAISE;
6702:
6703: WHEN OTHERS THEN
6714: , p_procedure_name => 'copy_src_financial_version'
6715: , p_error_text => x_msg_data);
6716:
6717: IF l_debug_mode = 'Y' THEN
6718: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6719: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6720: l_debug_level5);
6721: Pa_Debug.reset_curr_function;
6722: END IF;
6715: , p_error_text => x_msg_data);
6716:
6717: IF l_debug_mode = 'Y' THEN
6718: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6719: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6720: l_debug_level5);
6721: Pa_Debug.reset_curr_function;
6722: END IF;
6723: RAISE;
6717: IF l_debug_mode = 'Y' THEN
6718: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6719: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6720: l_debug_level5);
6721: Pa_Debug.reset_curr_function;
6722: END IF;
6723: RAISE;
6724:
6725: END copy_src_financial_version;
6908:
6909:
6910: x_msg_count := 0;
6911: x_return_status := FND_API.G_RET_STS_SUCCESS;
6912: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6913:
6914: IF (p_commit = FND_API.G_TRUE) THEN
6915: SAVEPOINT copy_src_fin_ver_tasks;
6916: END IF;
6919: FND_MSG_PUB.initialize;
6920: END IF;
6921:
6922: IF l_debug_mode = 'Y' THEN
6923: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_ver_tasks',
6924: p_debug_mode => l_debug_mode );
6925: END IF;
6926:
6927: IF l_debug_mode = 'Y' THEN
6924: p_debug_mode => l_debug_mode );
6925: END IF;
6926:
6927: IF l_debug_mode = 'Y' THEN
6928: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6929: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6930: l_debug_level3);
6931:
6932: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6925: END IF;
6926:
6927: IF l_debug_mode = 'Y' THEN
6928: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6929: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6930: l_debug_level3);
6931:
6932: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6933: l_debug_level3);
6928: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6929: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6930: l_debug_level3);
6931:
6932: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6933: l_debug_level3);
6934:
6935: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6936: l_debug_level3);
6931:
6932: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6933: l_debug_level3);
6934:
6935: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6936: l_debug_level3);
6937:
6938: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6939: l_debug_level3);
6934:
6935: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6936: l_debug_level3);
6937:
6938: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6939: l_debug_level3);
6940:
6941: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6942: l_debug_level3);
6937:
6938: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6939: l_debug_level3);
6940:
6941: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6942: l_debug_level3);
6943:
6944: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
6945: l_debug_level3);
6940:
6941: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6942: l_debug_level3);
6943:
6944: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
6945: l_debug_level3);
6946:
6947: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
6948: l_debug_level3);
6943:
6944: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
6945: l_debug_level3);
6946:
6947: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
6948: l_debug_level3);
6949:
6950: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
6951: l_debug_level3);
6946:
6947: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
6948: l_debug_level3);
6949:
6950: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
6951: l_debug_level3);
6952:
6953: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
6954: l_debug_level3);
6949:
6950: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
6951: l_debug_level3);
6952:
6953: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
6954: l_debug_level3);
6955: END IF;
6956:
6957: IF l_debug_mode = 'Y' THEN
6954: l_debug_level3);
6955: END IF;
6956:
6957: IF l_debug_mode = 'Y' THEN
6958: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6959: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6960: l_debug_level3);
6961: END IF;
6962:
6955: END IF;
6956:
6957: IF l_debug_mode = 'Y' THEN
6958: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6959: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6960: l_debug_level3);
6961: END IF;
6962:
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
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;
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;
6977: RAISE Invalid_Arg_Exc_WP;
6978: END IF;
6994: CLOSE cur_get_split_fin_ver;
6995: END IF;
6996:
6997: IF l_debug_mode = 'Y' THEN
6998: Pa_Debug.WRITE(G_PKG_NAME, 'Source financial version id : '||l_src_fin_version_id, l_debug_level3);
6999: END IF;
7000:
7001: --Bug 3387963 - Added to get the cursor values
7002: OPEN cur_get_carrying_out_org;
7227: AND ppevs.project_id = p_dest_project_id
7228: AND ppevs.element_version_id = ppev2.element_version_id ;
7229:
7230: IF l_debug_mode = 'Y' THEN
7231: Pa_Debug.WRITE(G_PKG_NAME, 'Creating object relatiionships for financial tasks', l_debug_level3);
7232: END IF;
7233:
7234: --Copy relationships for structure and tasks into destination project
7235: /* Start of addition for bug 6211012 */
7506: COMMIT;
7507: END IF;
7508:
7509: IF l_debug_mode = 'Y' THEN
7510: Pa_Debug.WRITE(G_PKG_NAME, 'Exiting copy_src_financial_ver_tasks...', l_debug_level3);
7511: END IF;
7512: EXCEPTION
7513:
7514: WHEN Invalid_Arg_Exc_WP THEN
7525: , p_procedure_name => 'copy_src_financial_ver_tasks'
7526: , p_error_text => x_msg_data);
7527:
7528: IF l_debug_mode = 'Y' THEN
7529: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7530: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7531: l_debug_level5);
7532: Pa_Debug.reset_curr_function;
7533: END IF;
7526: , p_error_text => x_msg_data);
7527:
7528: IF l_debug_mode = 'Y' THEN
7529: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7530: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7531: l_debug_level5);
7532: Pa_Debug.reset_curr_function;
7533: END IF;
7534: RAISE;
7528: IF l_debug_mode = 'Y' THEN
7529: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7530: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7531: l_debug_level5);
7532: Pa_Debug.reset_curr_function;
7533: END IF;
7534: RAISE;
7535:
7536: WHEN OTHERS THEN
7547: , p_procedure_name => 'copy_src_financial_ver_tasks'
7548: , p_error_text => x_msg_data);
7549:
7550: IF l_debug_mode = 'Y' THEN
7551: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7552: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7553: l_debug_level5);
7554: Pa_Debug.reset_curr_function;
7555: END IF;
7548: , p_error_text => x_msg_data);
7549:
7550: IF l_debug_mode = 'Y' THEN
7551: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7552: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7553: l_debug_level5);
7554: Pa_Debug.reset_curr_function;
7555: END IF;
7556: RAISE;
7550: IF l_debug_mode = 'Y' THEN
7551: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7552: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7553: l_debug_level5);
7554: Pa_Debug.reset_curr_function;
7555: END IF;
7556: RAISE;
7557:
7558: END copy_src_financial_ver_tasks;
7906: BEGIN
7907:
7908: x_msg_count := 0;
7909: x_return_status := FND_API.G_RET_STS_SUCCESS;
7910: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7911:
7912: IF (p_commit = FND_API.G_TRUE) THEN
7913: SAVEPOINT copy_struc_tasks_bulk;
7914: END IF;
7917: FND_MSG_PUB.initialize;
7918: END IF;
7919:
7920: IF l_debug_mode = 'Y' THEN
7921: PA_DEBUG.set_curr_function( p_function => 'copy_structures_tasks_bulk',
7922: p_debug_mode => l_debug_mode );
7923: END IF;
7924:
7925: IF l_debug_mode = 'Y' THEN
7922: p_debug_mode => l_debug_mode );
7923: END IF;
7924:
7925: IF l_debug_mode = 'Y' THEN
7926: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7927: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7928: l_debug_level3);
7929:
7930: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7923: END IF;
7924:
7925: IF l_debug_mode = 'Y' THEN
7926: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7927: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7928: l_debug_level3);
7929:
7930: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7931: l_debug_level3);
7926: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7927: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7928: l_debug_level3);
7929:
7930: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7931: l_debug_level3);
7932:
7933: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7934: l_debug_level3);
7929:
7930: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7931: l_debug_level3);
7932:
7933: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7934: l_debug_level3);
7935:
7936: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
7937: l_debug_level3);
7932:
7933: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7934: l_debug_level3);
7935:
7936: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
7937: l_debug_level3);
7938:
7939: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
7940: l_debug_level3);
7935:
7936: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
7937: l_debug_level3);
7938:
7939: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
7940: l_debug_level3);
7941:
7942: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
7943: l_debug_level3);
7938:
7939: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
7940: l_debug_level3);
7941:
7942: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
7943: l_debug_level3);
7944:
7945: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
7946: l_debug_level3);
7941:
7942: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
7943: l_debug_level3);
7944:
7945: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
7946: l_debug_level3);
7947:
7948: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
7949: l_debug_level3);
7944:
7945: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
7946: l_debug_level3);
7947:
7948: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
7949: l_debug_level3);
7950:
7951: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7952: l_debug_level3);
7947:
7948: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
7949: l_debug_level3);
7950:
7951: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7952: l_debug_level3);
7953:
7954: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7955: l_debug_level3);
7950:
7951: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7952: l_debug_level3);
7953:
7954: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7955: l_debug_level3);
7956:
7957: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
7958: l_debug_level3);
7953:
7954: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7955: l_debug_level3);
7956:
7957: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
7958: l_debug_level3);
7959: END IF;
7960:
7961: --If source and destination project are the same
8064:
8065: l_name := substr(p_dest_project_name, 1, 240);
8066:
8067: IF l_debug_mode = 'Y' THEN
8068: Pa_Debug.WRITE(G_PKG_NAME, 'Atleast one WP ver selected : '||l_min_one_wp_ver_sel, l_debug_level3);
8069: Pa_Debug.WRITE(G_PKG_NAME, 'Financial Tasks flag : '||l_fin_tasks_flag, l_debug_level3);
8070: END IF;
8071:
8072: --Copy workplan/financial structures into the destination project
8065: l_name := substr(p_dest_project_name, 1, 240);
8066:
8067: IF l_debug_mode = 'Y' THEN
8068: Pa_Debug.WRITE(G_PKG_NAME, 'Atleast one WP ver selected : '||l_min_one_wp_ver_sel, l_debug_level3);
8069: Pa_Debug.WRITE(G_PKG_NAME, 'Financial Tasks flag : '||l_fin_tasks_flag, l_debug_level3);
8070: END IF;
8071:
8072: --Copy workplan/financial structures into the destination project
8073: INSERT INTO pa_proj_elements(
8386: AND pppa.project_id = p_src_project_id
8387: AND pppa.object_type = 'PA_STRUCTURES' ;
8388:
8389: IF l_debug_mode = 'Y' THEN
8390: Pa_Debug.WRITE(G_PKG_NAME, 'After inserting WP/FIN structures and related attributes', l_debug_level3);
8391: END IF;
8392:
8393: ---------------------------------------------------------------------------------------------------------
8394: /**** THE FOLLOWING SECTION COPIES/INSERTS WORKPLAN VERSIONS AND TASKS INTO THE DESTINATION PROJECT ****/
8433: --If there is atleast one WP version selected for copying
8434: IF 'Y' = nvl(l_min_one_wp_ver_sel,'N') THEN
8435:
8436: IF l_debug_mode = 'Y' THEN
8437: Pa_Debug.WRITE(G_PKG_NAME, 'Inserting versions and tasks for selected WP version(s)', l_debug_level3);
8438: END IF;
8439:
8440: --Copy SELECTED workplan versions
8441: INSERT INTO pa_proj_element_versions(
8609: OPEN get_current_working_selected;
8610: FETCH get_current_working_selected INTO l_current_working_selected;
8611:
8612: IF l_debug_mode = 'Y' THEN
8613: pa_debug.write(G_PKG_NAME, 'l_puc_version_id='||l_puc_version_id, l_debug_level3);
8614: pa_debug.write(G_PKG_NAME, 'l_current_working_selected='||l_current_working_selected, l_debug_level3);
8615: END IF;
8616:
8617:
8610: FETCH get_current_working_selected INTO l_current_working_selected;
8611:
8612: IF l_debug_mode = 'Y' THEN
8613: pa_debug.write(G_PKG_NAME, 'l_puc_version_id='||l_puc_version_id, l_debug_level3);
8614: pa_debug.write(G_PKG_NAME, 'l_current_working_selected='||l_current_working_selected, l_debug_level3);
8615: END IF;
8616:
8617:
8618: --If the CURRENT WORKING version is SELECTED for copying and is NOT Publish Upon Creatiion
8635: END IF;
8636: CLOSE get_current_working_selected;
8637:
8638: IF l_debug_mode = 'Y' THEN
8639: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8640: END IF;
8641: END;
8642: END IF; --IF versioning is enabled
8643: /** END OF CODE TO DETERMINE CURRENT WORKING VERSION IN DESTINATION PROJECT **/
8642: END IF; --IF versioning is enabled
8643: /** END OF CODE TO DETERMINE CURRENT WORKING VERSION IN DESTINATION PROJECT **/
8644:
8645: IF l_debug_mode = 'Y' THEN
8646: Pa_Debug.WRITE(G_PKG_NAME, 'Source version to be set as current working in dest project : '||l_cw_version_id,
8647: l_debug_level3);
8648: Pa_Debug.WRITE(G_PKG_NAME, 'Printing l_dest_wp_structure_id: '||l_dest_wp_structure_id,
8649: l_debug_level3);
8650: END IF;
8644:
8645: IF l_debug_mode = 'Y' THEN
8646: Pa_Debug.WRITE(G_PKG_NAME, 'Source version to be set as current working in dest project : '||l_cw_version_id,
8647: l_debug_level3);
8648: Pa_Debug.WRITE(G_PKG_NAME, 'Printing l_dest_wp_structure_id: '||l_dest_wp_structure_id,
8649: l_debug_level3);
8650: END IF;
8651:
8652:
8671: --3916763 Begin
8672: l_submit_wf_required := 'N';
8673:
8674: IF l_debug_mode = 'Y' THEN
8675: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8672: l_submit_wf_required := 'N';
8673:
8674: IF l_debug_mode = 'Y' THEN
8675: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8673:
8674: IF l_debug_mode = 'Y' THEN
8675: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8681: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8674: IF l_debug_mode = 'Y' THEN
8675: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8681: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8682: END IF;
8675: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8681: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8682: END IF;
8683:
8676: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8681: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8682: END IF;
8683:
8684: IF NVL(l_workplan_enabled,'N') = 'Y' AND nvl(l_versioning_enabled,'N') = 'Y' AND nvl(l_min_one_wp_ver_sel,'N') = 'Y' THEN
8677: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8678: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8679: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8680: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8681: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8682: END IF;
8683:
8684: IF NVL(l_workplan_enabled,'N') = 'Y' AND nvl(l_versioning_enabled,'N') = 'Y' AND nvl(l_min_one_wp_ver_sel,'N') = 'Y' THEN
8685: OPEN c_get_approval_options;
8686: FETCH c_get_approval_options INTO l_wp_approval_reqd_flag, l_wp_auto_publish_flag,l_wp_approver_source_id;
8687: CLOSE c_get_approval_options;
8688:
8689: IF l_debug_mode = 'Y' THEN
8690: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8691: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8692: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8693: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8694: END IF;
8687: CLOSE c_get_approval_options;
8688:
8689: IF l_debug_mode = 'Y' THEN
8690: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8691: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8692: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8693: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8694: END IF;
8695:
8688:
8689: IF l_debug_mode = 'Y' THEN
8690: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8691: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8692: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8693: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8694: END IF;
8695:
8696: IF NVL(l_wp_approval_reqd_flag,'N') <> 'N' THEN
8689: IF l_debug_mode = 'Y' THEN
8690: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8691: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8692: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8693: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8694: END IF;
8695:
8696: IF NVL(l_wp_approval_reqd_flag,'N') <> 'N' THEN
8697: IF nvl(fnd_global.employee_id,-999) <> NVL(l_wp_approver_source_id,-999) THEN
8716: OPEN get_published_ver_num(p_dest_project_id, l_dest_wp_structure_id);
8717: FETCH get_published_ver_num INTO l_struct_version_number;
8718: CLOSE get_published_ver_num;
8719: IF l_debug_mode = 'Y' THEN
8720: Pa_Debug.WRITE(G_PKG_NAME, 'After Getting published version l_struct_version_number: '||l_struct_version_number,
8721: l_debug_level3);
8722: END If;
8723: --bug 3907862, end
8724:
8736: OPEN get_working_ver_num(p_dest_project_id, l_dest_wp_structure_id);
8737: FETCH get_working_ver_num INTO l_struct_version_number;
8738: CLOSE get_working_ver_num;
8739: IF l_debug_mode = 'Y' THEN
8740: Pa_Debug.WRITE(G_PKG_NAME, 'After Getting working version l_struct_version_number: '||l_struct_version_number,
8741: l_debug_level3);
8742: END If;
8743: --bug 3907862, end
8744:
8744:
8745: END IF;
8746:
8747: IF l_debug_mode = 'Y' THEN
8748: Pa_Debug.WRITE(G_PKG_NAME, 'Creating version : '||rec_dest_wp_struc_versions.element_version_id,
8749: l_debug_level3);
8750: END IF;
8751:
8752:
8843: WHERE lookup_type = 'PA_STRUCTURES_PREFIX'
8844: AND lookup_code = 'PA_PREFIX_COPY';
8845:
8846: IF l_debug_mode = 'Y' THEN
8847: Pa_Debug.WRITE(G_PKG_NAME, 'Making working copy of '||l_shared_make_working_copy,
8848: l_debug_level3);
8849: END IF;
8850:
8851: --Make a copy of the published version
9398: AND ppev2.project_id = ppe.project_id -- Bug 4141027
9399: ;
9400:
9401: IF l_debug_mode = 'Y' THEN
9402: Pa_Debug.WRITE(G_PKG_NAME, 'Going to insert object relationships',
9403: l_debug_level3);
9404: END IF;
9405:
9406: FOR rec_dest_wp_struc_versions IN cur_get_dest_wp_struc_versions(l_dest_wp_structure_id) LOOP
9697: FETCH cur_get_shared_ver_id INTO l_shared_dest_ver_id;
9698: CLOSE cur_get_shared_ver_id;
9699:
9700: IF l_debug_mode = 'Y' THEN
9701: Pa_Debug.WRITE(G_PKG_NAME, 'Calling pa_tasks sync up API for struc version :'||l_shared_dest_ver_id,
9702: l_debug_level3);
9703: END IF;
9704:
9705: --Call API to sync up tasks in pa_tasks table, with the new (shared) version [WP version copied from src]
9776: IF ('Y' = l_shared AND 'N' = l_fin_tasks_flag)
9777: OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
9778:
9779: IF l_debug_mode = 'Y' THEN
9780: Pa_Debug.WRITE(G_PKG_NAME, 'Creating new default WP version', l_debug_level3);
9781: END IF;
9782: --bug 3912603, Satish, this flag is for using this same condition below.
9783: check_str_sel_flag := 'Y';
9784:
9915: --If split and financial is enabled
9916: IF 'N' = l_shared AND 'Y' = l_fin_enabled THEN
9917:
9918: IF l_debug_mode = 'Y' THEN
9919: Pa_Debug.WRITE(G_PKG_NAME, 'Creating financial version in split case', l_debug_level3);
9920: END IF;
9921:
9922: --The following API call will copy the financial version from the source project to the destination project
9923: copy_src_financial_version( p_init_msg_list => p_init_msg_list
9943: --If copy financial tasks flag is checked
9944: IF 'Y' = l_fin_tasks_flag THEN
9945:
9946: IF l_debug_mode = 'Y' THEN
9947: Pa_Debug.WRITE(G_PKG_NAME, 'Creating financial tasks in split case', l_debug_level3);
9948: END IF;
9949:
9950: --The following API call will copy the tasks belonging to the financial version in the source project into
9951: --the destination project
10083:
10084: /* End of code changes for Bug 3922019*/
10085:
10086: IF l_debug_mode = 'Y' THEN
10087: Pa_Debug.WRITE(G_PKG_NAME, 'Copying task attachments...', l_debug_level3);
10088: END IF;
10089:
10090: --Copy Task Attachments
10091: OPEN cur_get_flag('WP_TASK_ATTACH_FLAG');
10092: FETCH cur_get_flag INTO l_wp_task_attach_flag;
10093: CLOSE cur_get_flag;
10094:
10095: IF l_debug_mode = 'Y' THEN
10096: Pa_Debug.WRITE(G_PKG_NAME, 'l_wp_task_attach_flag '||l_wp_task_attach_flag, l_debug_level3);
10097: END IF;
10098:
10099: OPEN cur_get_flag('FN_ATTACHMENTS_FLAG');
10100: FETCH cur_get_flag INTO l_fn_task_attach_flag;
10100: FETCH cur_get_flag INTO l_fn_task_attach_flag;
10101: CLOSE cur_get_flag;
10102:
10103: IF l_debug_mode = 'Y' THEN
10104: Pa_Debug.WRITE(G_PKG_NAME, 'l_fn_task_attach_flag '||l_fn_task_attach_flag, l_debug_level3);
10105: END IF;
10106:
10107: IF 'Y' = l_shared THEN
10108: IF ('Y' = l_min_one_wp_ver_sel AND 'Y' = l_wp_task_attach_flag )
10291: --IF ('Y' = l_shared AND 'N' = l_fin_tasks_flag)
10292: --OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
10293: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10294: IF l_debug_mode = 'Y' THEN
10295: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10296: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10297: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10298: END IF;
10299: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10292: --OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
10293: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10294: IF l_debug_mode = 'Y' THEN
10295: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10296: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10297: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10298: END IF;
10299: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10300: (
10293: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10294: IF l_debug_mode = 'Y' THEN
10295: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10296: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10297: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10298: END IF;
10299: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10300: (
10301: p_context => 'WORKPLAN'
10309: RAISE FND_API.G_EXC_ERROR;
10310: END IF;
10311: ELSE
10312: IF l_debug_mode = 'Y' THEN
10313: Pa_Debug.WRITE(G_PKG_NAME, 'Calling copy_wp_budget_versions ', l_debug_level3);
10314: END IF;
10315: PA_FP_COPY_FROM_PKG.copy_wp_budget_versions
10316: ( p_source_project_id => p_src_project_id
10317: ,p_target_project_id => p_dest_project_id
10369:
10370: --3916763 Begin
10371:
10372: IF l_debug_mode = 'Y' THEN
10373: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10374: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10375: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10376: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10377: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10370: --3916763 Begin
10371:
10372: IF l_debug_mode = 'Y' THEN
10373: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10374: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10375: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10376: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10377: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10378: END IF;
10371:
10372: IF l_debug_mode = 'Y' THEN
10373: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10374: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10375: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10376: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10377: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10378: END IF;
10379:
10372: IF l_debug_mode = 'Y' THEN
10373: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10374: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10375: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10376: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10377: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10378: END IF;
10379:
10380: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10373: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10374: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10375: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10376: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10377: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10378: END IF;
10379:
10380: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10381: IF l_debug_mode = 'Y' THEN
10378: END IF;
10379:
10380: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10381: IF l_debug_mode = 'Y' THEN
10382: Pa_Debug.WRITE(G_PKG_NAME, 'Calling SUBMIT_WORKPLAN ', l_debug_level3);
10383: END IF;
10384:
10385: PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN
10386: (
10393: ,x_msg_count => x_msg_count
10394: ,x_msg_data => x_msg_data
10395: );
10396: IF l_debug_mode = 'Y' THEN
10397: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10398: END IF;
10399: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10400: RAISE FND_API.G_EXC_ERROR;
10401: END IF;
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
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
10417:
10439: x_msg_count := l_msg_count;
10440: END IF;
10441:
10442: IF l_debug_mode = 'Y' THEN
10443: Pa_Debug.reset_curr_function;
10444: END IF;
10445:
10446: WHEN Invalid_Arg_Exc_WP THEN
10447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10457: , p_procedure_name => 'copy_structures_tasks_bulk'
10458: , p_error_text => x_msg_data);
10459:
10460: IF l_debug_mode = 'Y' THEN
10461: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10462: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10463: l_debug_level5);
10464: Pa_Debug.reset_curr_function;
10465: END IF;
10458: , p_error_text => x_msg_data);
10459:
10460: IF l_debug_mode = 'Y' THEN
10461: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10462: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10463: l_debug_level5);
10464: Pa_Debug.reset_curr_function;
10465: END IF;
10466: RAISE;
10460: IF l_debug_mode = 'Y' THEN
10461: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10462: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10463: l_debug_level5);
10464: Pa_Debug.reset_curr_function;
10465: END IF;
10466: RAISE;
10467:
10468: WHEN OTHERS THEN
10479: , p_procedure_name => 'copy_structures_tasks_bulk'
10480: , p_error_text => x_msg_data);
10481:
10482: IF l_debug_mode = 'Y' THEN
10483: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10484: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10485: l_debug_level5);
10486: Pa_Debug.reset_curr_function;
10487: END IF;
10480: , p_error_text => x_msg_data);
10481:
10482: IF l_debug_mode = 'Y' THEN
10483: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10484: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10485: l_debug_level5);
10486: Pa_Debug.reset_curr_function;
10487: END IF;
10488: RAISE;
10482: IF l_debug_mode = 'Y' THEN
10483: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10484: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10485: l_debug_level5);
10486: Pa_Debug.reset_curr_function;
10487: END IF;
10488: RAISE;
10489: END copy_structures_tasks_bulk;
10490:
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;
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
13680: END IF;
13681:
13682: x_msg_count := 0;
13683: x_return_status := FND_API.G_RET_STS_SUCCESS;
13684: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13685:
13686: -- Moved down this code during UT.
13687: IF l_debug_mode = 'Y' THEN
13688: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
13684: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13685:
13686: -- Moved down this code during UT.
13687: IF l_debug_mode = 'Y' THEN
13688: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
13689: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13690: l_debug_level2);
13691:
13692: --For bug 4252182
13685:
13686: -- Moved down this code during UT.
13687: IF l_debug_mode = 'Y' THEN
13688: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
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',
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:
13697:
13698: -- Check for business rules violations
13699: IF l_debug_mode = 'Y' THEN
13700:
13701: pa_debug.g_err_stage:= 'Input parameter List :';
13702: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13703: l_debug_level3);
13704:
13705: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
13698: -- Check for business rules violations
13699: IF l_debug_mode = 'Y' THEN
13700:
13701: pa_debug.g_err_stage:= 'Input parameter List :';
13702: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13703: l_debug_level3);
13704:
13705: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
13706: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13701: pa_debug.g_err_stage:= 'Input parameter List :';
13702: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13703: l_debug_level3);
13704:
13705: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
13706: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13707: l_debug_level3);
13708:
13709: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
13702: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13703: l_debug_level3);
13704:
13705: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
13706: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13707: l_debug_level3);
13708:
13709: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
13710: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13705: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
13706: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13707: l_debug_level3);
13708:
13709: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
13710: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13711: l_debug_level3);
13712:
13713: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
13706: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13707: l_debug_level3);
13708:
13709: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
13710: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13711: l_debug_level3);
13712:
13713: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
13714: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13709: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
13710: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13711: l_debug_level3);
13712:
13713: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
13714: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13715: l_debug_level3);
13716:
13717: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
13710: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13711: l_debug_level3);
13712:
13713: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
13714: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13715: l_debug_level3);
13716:
13717: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
13718: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13713: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
13714: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13715: l_debug_level3);
13716:
13717: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
13718: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13719: l_debug_level3);
13720:
13721: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
13714: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13715: l_debug_level3);
13716:
13717: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
13718: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13719: l_debug_level3);
13720:
13721: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
13722: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13717: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
13718: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13719: l_debug_level3);
13720:
13721: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
13722: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13723: l_debug_level3);
13724:
13725: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
13718: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13719: l_debug_level3);
13720:
13721: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
13722: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13723: l_debug_level3);
13724:
13725: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
13726: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13721: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
13722: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13723: l_debug_level3);
13724:
13725: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
13726: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13727: l_debug_level3);
13728:
13729: -- IUP: Impact of Update_project
13722: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13723: l_debug_level3);
13724:
13725: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
13726: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13727: l_debug_level3);
13728:
13729: -- IUP: Impact of Update_project
13730: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
13726: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13727: l_debug_level3);
13728:
13729: -- IUP: Impact of Update_project
13730: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
13731: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13732: l_debug_level3);
13733:
13734: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
13727: l_debug_level3);
13728:
13729: -- IUP: Impact of Update_project
13730: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
13731: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13732: l_debug_level3);
13733:
13734: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
13735: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13730: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
13731: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13732: l_debug_level3);
13733:
13734: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
13735: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13736: l_debug_level3);
13737:
13738: END IF;
13731: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13732: l_debug_level3);
13733:
13734: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
13735: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13736: l_debug_level3);
13737:
13738: END IF;
13739:
13739:
13740:
13741: IF l_debug_mode = 'Y' THEN
13742:
13743: pa_debug.g_err_stage:= 'Validating input parameters';
13744: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13745: l_debug_level3);
13746: END IF;
13747:
13740:
13741: IF l_debug_mode = 'Y' THEN
13742:
13743: pa_debug.g_err_stage:= 'Validating input parameters';
13744: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13745: l_debug_level3);
13746: END IF;
13747:
13748: IF (p_project_id IS NULL) OR
13770: open cur_pa_temp_import(p_project_id);
13771: fetch cur_pa_temp_import into l_dummy_char;
13772: IF cur_pa_temp_import%FOUND THEN
13773: IF l_debug_mode = 'Y' THEN
13774: pa_debug.g_err_stage:= 'Records found in PA_TEMP_IMPORT_TASKS - Returning';
13775: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13776: l_debug_level3);
13777: END IF;
13778:
13771: fetch cur_pa_temp_import into l_dummy_char;
13772: IF cur_pa_temp_import%FOUND THEN
13773: IF l_debug_mode = 'Y' THEN
13774: pa_debug.g_err_stage:= 'Records found in PA_TEMP_IMPORT_TASKS - Returning';
13775: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13776: l_debug_level3);
13777: END IF;
13778:
13779: close cur_pa_temp_import;
13776: l_debug_level3);
13777: END IF;
13778:
13779: close cur_pa_temp_import;
13780: pa_debug.reset_curr_function;
13781: RETURN;
13782: END IF;
13783: close cur_pa_temp_import;*/
13784:
13902: raise Invalid_Arg_Exc_WP;
13903: END IF;
13904:
13905: IF l_debug_mode = 'Y' THEN
13906: pa_debug.g_err_stage := 'Structure is in a valid Status' ;
13907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
13908: END IF;
13909:
13910: l_structure_version_id := p_structure_version_id;
13903: END IF;
13904:
13905: IF l_debug_mode = 'Y' THEN
13906: pa_debug.g_err_stage := 'Structure is in a valid Status' ;
13907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
13908: END IF;
13909:
13910: l_structure_version_id := p_structure_version_id;
13911:
13914: FETCH cur_elem_ver_to_task_id INTO l_structure_id;
13915: CLOSE cur_elem_ver_to_task_id;
13916:
13917: IF l_debug_mode = 'Y' THEN
13918: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
13919: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13920: l_debug_level3);
13921:
13922: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
13915: CLOSE cur_elem_ver_to_task_id;
13916:
13917: IF l_debug_mode = 'Y' THEN
13918: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
13919: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13920: l_debug_level3);
13921:
13922: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
13923: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13918: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
13919: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13920: l_debug_level3);
13921:
13922: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
13923: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13924: l_debug_level3);
13925:
13926: END IF;
13919: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13920: l_debug_level3);
13921:
13922: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
13923: pa_debug.write(l_module_name,pa_debug.g_err_stage,
13924: l_debug_level3);
13925:
13926: END IF;
13927:
13995: p_function_allowed => l_add_task_security);
13996:
13997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13998: IF l_debug_mode = 'Y' THEN
13999: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14000: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14001: END IF;
14002: RAISE Invalid_Arg_Exc_WP;
14003: END IF;
13996:
13997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13998: IF l_debug_mode = 'Y' THEN
13999: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14000: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14001: END IF;
14002: RAISE Invalid_Arg_Exc_WP;
14003: END IF;
14004:
14012: p_function_allowed => l_update_task_security);
14013:
14014: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14015: IF l_debug_mode = 'Y' THEN
14016: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14018: END IF;
14019: RAISE Invalid_Arg_Exc_WP;
14020: END IF;
14013:
14014: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14015: IF l_debug_mode = 'Y' THEN
14016: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14018: END IF;
14019: RAISE Invalid_Arg_Exc_WP;
14020: END IF;
14021:
14039: fetch cur_auto_pub_flag into l_auto_publish_flag;
14040: close cur_auto_pub_flag;
14041:
14042: IF l_debug_mode = 'Y' THEN
14043: pa_debug.g_err_stage:= 'Auto publish flag : '||l_auto_publish_flag;
14044: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14045: l_debug_level3);
14046: END IF;
14047: */
14040: close cur_auto_pub_flag;
14041:
14042: IF l_debug_mode = 'Y' THEN
14043: pa_debug.g_err_stage:= 'Auto publish flag : '||l_auto_publish_flag;
14044: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14045: l_debug_level3);
14046: END IF;
14047: */
14048:
14057: close get_structure;
14058: END IF;
14059:
14060: IF l_debug_mode = 'Y' THEN
14061: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14062: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14063: l_debug_level3);
14064: END IF;
14065:
14058: END IF;
14059:
14060: IF l_debug_mode = 'Y' THEN
14061: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14062: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14063: l_debug_level3);
14064: END IF;
14065:
14066: /* Bug 2955589. The following code is taken care of in Copy_Structures_bulk API.
14081: where project_id = p_project_id
14082: and proj_element_id = l_structure_id;
14083:
14084: IF l_debug_mode = 'Y' THEN
14085: pa_debug.g_err_stage:= 'No of updated records :' || sql%rowcount || ' for structure : ' || l_structure_id;
14086: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14087: l_debug_level3);
14088: END IF;
14089:
14082: and proj_element_id = l_structure_id;
14083:
14084: IF l_debug_mode = 'Y' THEN
14085: pa_debug.g_err_stage:= 'No of updated records :' || sql%rowcount || ' for structure : ' || l_structure_id;
14086: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14087: l_debug_level3);
14088: END IF;
14089:
14090: END IF;
14105: );
14106:
14107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14108: IF l_debug_mode = 'Y' THEN
14109: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14111: END IF;
14112: RAISE Invalid_Arg_Exc_WP;
14113: END IF;
14106:
14107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14108: IF l_debug_mode = 'Y' THEN
14109: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14111: END IF;
14112: RAISE Invalid_Arg_Exc_WP;
14113: END IF;
14114:
14112: RAISE Invalid_Arg_Exc_WP;
14113: END IF;
14114:
14115: IF l_debug_mode = 'Y' THEN
14116: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14117: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14118: l_debug_level3);
14119: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14120: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14113: END IF;
14114:
14115: IF l_debug_mode = 'Y' THEN
14116: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14117: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14118: l_debug_level3);
14119: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14120: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14121: l_debug_level3);
14115: IF l_debug_mode = 'Y' THEN
14116: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14117: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14118: l_debug_level3);
14119: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14120: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14121: l_debug_level3);
14122: END IF;
14123: END;
14116: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14117: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14118: l_debug_level3);
14119: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14120: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14121: l_debug_level3);
14122: END IF;
14123: END;
14124:
14173: fetch l_amg_project_csr into l_amg_segment1;
14174: close l_amg_project_csr;
14175:
14176: IF l_debug_mode = 'Y' THEN
14177: pa_debug.g_err_stage:= 'Entering Loop';
14178: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14179: l_debug_level3);
14180: END IF;
14181: -- Do the processing for all the tasks in the plsql table.
14174: close l_amg_project_csr;
14175:
14176: IF l_debug_mode = 'Y' THEN
14177: pa_debug.g_err_stage:= 'Entering Loop';
14178: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14179: l_debug_level3);
14180: END IF;
14181: -- Do the processing for all the tasks in the plsql table.
14182:
14374:
14375: END IF; -- IF l_task_in_rec.pa_task_id IS NULL
14376:
14377: IF l_debug_mode = 'Y' THEN
14378: pa_debug.g_err_stage:= 'Done with the validations';
14379: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14380: l_debug_level3);
14381: END IF;
14382:
14375: END IF; -- IF l_task_in_rec.pa_task_id IS NULL
14376:
14377: IF l_debug_mode = 'Y' THEN
14378: pa_debug.g_err_stage:= 'Done with the validations';
14379: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14380: l_debug_level3);
14381: END IF;
14382:
14383: -- This block does following:
14502: l_cur_pa_tasks_rec.description := l_task_in_rec.task_description;
14503:
14504: ELSE -- structure type is financial
14505: IF l_debug_mode = 'Y' THEN
14506: pa_debug.g_err_stage:= 'Task Id in out table: '||px_tasks_out_tbl(i).pa_task_id;
14507: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14508: l_debug_level3);
14509: END IF;
14510:
14503:
14504: ELSE -- structure type is financial
14505: IF l_debug_mode = 'Y' THEN
14506: pa_debug.g_err_stage:= 'Task Id in out table: '||px_tasks_out_tbl(i).pa_task_id;
14507: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14508: l_debug_level3);
14509: END IF;
14510:
14511: l_task_id := px_tasks_out_tbl(i).pa_task_id;
14513: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
14514: close cur_pa_tasks;
14515:
14516: IF l_debug_mode = 'Y' THEN
14517: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
14518: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14519: l_debug_level3);
14520: END IF;
14521: /** Code changes for bug 4120380. For new tasks similar case mentioned above for workplan.**/
14514: close cur_pa_tasks;
14515:
14516: IF l_debug_mode = 'Y' THEN
14517: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
14518: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14519: l_debug_level3);
14520: END IF;
14521: /** Code changes for bug 4120380. For new tasks similar case mentioned above for workplan.**/
14522: /* bug#5243018 : Reverting the fix in Bug 4120380
14530:
14531: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
14532:
14533: IF l_debug_mode = 'Y' THEN
14534: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
14535: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14536: l_debug_level3);
14537: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
14538: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14531: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
14532:
14533: IF l_debug_mode = 'Y' THEN
14534: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
14535: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14536: l_debug_level3);
14537: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
14538: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14539: l_debug_level3);
14533: IF l_debug_mode = 'Y' THEN
14534: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
14535: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14536: l_debug_level3);
14537: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
14538: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14539: l_debug_level3);
14540: END IF;
14541:
14534: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
14535: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14536: l_debug_level3);
14537: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
14538: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14539: l_debug_level3);
14540: END IF;
14541:
14542: l_WBS_changed_flag := 'Y'; --bug 3010538
14746: THEN
14747: IF p_create_task_version_only = 'N' THEN
14748:
14749: IF l_debug_mode = 'Y' THEN
14750: pa_debug.g_err_stage := 'Calling API PA_TASK_PUB1.create_task';
14751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14752: END IF;
14753:
14754: PA_TASK_PUB1.create_task(
14747: IF p_create_task_version_only = 'N' THEN
14748:
14749: IF l_debug_mode = 'Y' THEN
14750: pa_debug.g_err_stage := 'Calling API PA_TASK_PUB1.create_task';
14751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14752: END IF;
14753:
14754: PA_TASK_PUB1.create_task(
14755: p_api_version => p_api_version_number
14793: px_tasks_out_tbl(i).return_status := x_return_status;
14794:
14795: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14796: IF l_debug_mode = 'Y' THEN
14797: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
14798: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14799: END IF;
14800: Raise Invalid_Arg_Exc_WP;
14801: END IF;
14794:
14795: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14796: IF l_debug_mode = 'Y' THEN
14797: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
14798: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14799: END IF;
14800: Raise Invalid_Arg_Exc_WP;
14801: END IF;
14802:
14801: END IF;
14802:
14803:
14804: IF l_debug_mode = 'Y' THEN
14805: pa_debug.g_err_stage := 'task id : ' || l_task_id ;
14806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14807: END IF;
14808:
14809: END IF; -- p_create_task_version_only = 'N'
14802:
14803:
14804: IF l_debug_mode = 'Y' THEN
14805: pa_debug.g_err_stage := 'task id : ' || l_task_id ;
14806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14807: END IF;
14808:
14809: END IF; -- p_create_task_version_only = 'N'
14810:
14875: ,p_token2 => 'TASK'
14876: ,p_value2 => l_task_in_rec.pa_task_id);
14877: IF l_debug_mode = 'Y'
14878: THEN
14879: pa_debug.g_err_stage := 'Error in task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
14880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14881: END IF;
14882: Raise Invalid_Arg_Exc_WP;
14883:
14876: ,p_value2 => l_task_in_rec.pa_task_id);
14877: IF l_debug_mode = 'Y'
14878: THEN
14879: pa_debug.g_err_stage := 'Error in task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
14880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14881: END IF;
14882: Raise Invalid_Arg_Exc_WP;
14883:
14884: END IF;
14980: ,p_token2 => 'TASK'
14981: ,p_value2 => l_task_in_rec.pa_task_id);
14982: IF l_debug_mode = 'Y'
14983: THEN
14984: pa_debug.g_err_stage := 'Error in financial task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
14985: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14986: END IF;
14987: Raise Invalid_Arg_Exc_WP;
14988:
14981: ,p_value2 => l_task_in_rec.pa_task_id);
14982: IF l_debug_mode = 'Y'
14983: THEN
14984: pa_debug.g_err_stage := 'Error in financial task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
14985: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14986: END IF;
14987: Raise Invalid_Arg_Exc_WP;
14988:
14989: END IF;
15021: -- As the l_parent_task_id may get populated with l_structure_id for top tasks
15022: -- but as the below code requires it be null
15023: IF l_parent_task_id = l_structure_id THEN
15024: IF l_debug_mode = 'Y' THEN
15025: pa_debug.g_err_stage := 'Parent task Id is upd with struc. id so shld be nulled out : ' || p_tasks_in_tbl(i).pa_task_id ;
15026: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15027: END IF;
15028: l_parent_task_id := null;
15029: END IF;
15022: -- but as the below code requires it be null
15023: IF l_parent_task_id = l_structure_id THEN
15024: IF l_debug_mode = 'Y' THEN
15025: pa_debug.g_err_stage := 'Parent task Id is upd with struc. id so shld be nulled out : ' || p_tasks_in_tbl(i).pa_task_id ;
15026: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15027: END IF;
15028: l_parent_task_id := null;
15029: END IF;
15030:
15029: END IF;
15030:
15031: IF l_hierarchy_count = 1 THEN
15032: IF l_debug_mode = 'Y' THEN
15033: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15035:
15036: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15030:
15031: IF l_hierarchy_count = 1 THEN
15032: IF l_debug_mode = 'Y' THEN
15033: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15035:
15036: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15038:
15032: IF l_debug_mode = 'Y' THEN
15033: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15035:
15036: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15038:
15039: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15040: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15033: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15035:
15036: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15038:
15039: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15040: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15036: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15038:
15039: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15040: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15042: END IF;
15043:
15044: END IF;
15037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15038:
15039: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15040: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15042: END IF;
15043:
15044: END IF;
15045:
15056: END IF;
15057: END IF;
15058: ELSE
15059: IF l_debug_mode = 'Y' THEN
15060: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15062:
15063:
15064: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15057: END IF;
15058: ELSE
15059: IF l_debug_mode = 'Y' THEN
15060: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15062:
15063:
15064: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15060: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15062:
15063:
15064: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15066:
15067: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15068: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15062:
15063:
15064: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15066:
15067: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15068: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15064: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15066:
15067: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15068: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15070: END IF;
15071:
15072: END IF;
15065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15066:
15067: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15068: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15070: END IF;
15071:
15072: END IF;
15073:
15086: EXIT WHEN l_temp_success = 'T' OR l_hierarchy_count = 0;
15087:
15088: END LOOP;
15089: IF l_debug_mode = 'Y' THEN
15090: pa_debug.g_err_stage := 'Value of l_hierarchy_count : ' || l_hierarchy_count ;
15091: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15092: END IF;
15093:
15094: IF l_temp_success = 'F' THEN
15087:
15088: END LOOP;
15089: IF l_debug_mode = 'Y' THEN
15090: pa_debug.g_err_stage := 'Value of l_hierarchy_count : ' || l_hierarchy_count ;
15091: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15092: END IF;
15093:
15094: IF l_temp_success = 'F' THEN
15095: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
15227: If get_child_count%ISOPEN THEN
15228: Close get_child_count;
15229: END IF;
15230: IF l_debug_mode = 'Y' THEN
15231: pa_debug.g_err_stage:= 'Error while calculating the task weightage. Task id : '||l_task_id;
15232: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level6);
15233: END IF;
15234: Raise;
15235: END;
15228: Close get_child_count;
15229: END IF;
15230: IF l_debug_mode = 'Y' THEN
15231: pa_debug.g_err_stage:= 'Error while calculating the task weightage. Task id : '||l_task_id;
15232: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level6);
15233: END IF;
15234: Raise;
15235: END;
15236:
15582:
15583: IF (l_return_status <> 'Y') THEN --Its required to check like this as the called API
15584: --returns return status as Y / N.
15585: IF l_debug_mode = 'Y' THEN
15586: pa_debug.g_err_stage:= 'Cannot create this task under its parent : '||l_task_id;
15587: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15588: l_debug_level6);
15589: END IF;
15590:
15583: IF (l_return_status <> 'Y') THEN --Its required to check like this as the called API
15584: --returns return status as Y / N.
15585: IF l_debug_mode = 'Y' THEN
15586: pa_debug.g_err_stage:= 'Cannot create this task under its parent : '||l_task_id;
15587: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15588: l_debug_level6);
15589: END IF;
15590:
15591: x_return_status := FND_API.G_RET_STS_ERROR;
15692: THEN
15693:
15694: -- Call the table handler to create a task version.
15695: IF l_debug_mode = 'Y' THEN
15696: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row';
15697: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15698: END IF;
15699: --added for 4059962 by rtarway
15700: --Derive financial task flag
15693:
15694: -- Call the table handler to create a task version.
15695: IF l_debug_mode = 'Y' THEN
15696: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row';
15697: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15698: END IF;
15699: --added for 4059962 by rtarway
15700: --Derive financial task flag
15701: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
15782: l_task_version_id_tbl(l_task_id) := l_task_version_id;
15783: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
15784:
15785: IF l_debug_mode = 'Y' THEN
15786: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
15787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15788: END IF;
15789:
15790: -- Required to inherit task type attributes only in the case of context create_task from update project
15783: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
15784:
15785: IF l_debug_mode = 'Y' THEN
15786: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
15787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15788: END IF;
15789:
15790: -- Required to inherit task type attributes only in the case of context create_task from update project
15791: IF p_structure_version_id IS NOT NULL
15833: END;
15834:
15835: -- Call the table handler to create a task version.
15836: IF l_debug_mode = 'Y' THEN
15837: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row';
15838: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15839: END IF;
15840:
15841: -- Bug 3075609. Since atleast one task is being updated, this structure version is an
15834:
15835: -- Call the table handler to create a task version.
15836: IF l_debug_mode = 'Y' THEN
15837: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row';
15838: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15839: END IF;
15840:
15841: -- Bug 3075609. Since atleast one task is being updated, this structure version is an
15842: -- existing one. Let us maintain a flag to track this so that if this flag is Y we will
15876: l_task_version_id_tbl(l_task_id) := l_task_version_id;
15877: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
15878:
15879: IF l_debug_mode = 'Y' THEN
15880: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
15881: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15882: END IF;
15883:
15884: END IF; /* After calling PA_PROJ_ELEMENT_VERSIONS_PKG Insert_Row or Update_Row*/
15877: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
15878:
15879: IF l_debug_mode = 'Y' THEN
15880: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
15881: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15882: END IF;
15883:
15884: END IF; /* After calling PA_PROJ_ELEMENT_VERSIONS_PKG Insert_Row or Update_Row*/
15885:
15920: THEN
15921: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
15922: --px_tasks_out_tbl(i).return_status
15923: IF l_debug_mode = 'Y' THEN
15924: pa_debug.g_err_stage := 'Calling API create_relationship';
15925: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15926: END IF;
15927:
15928: PA_RELATIONSHIP_PUB.Create_Relationship
15921: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
15922: --px_tasks_out_tbl(i).return_status
15923: IF l_debug_mode = 'Y' THEN
15924: pa_debug.g_err_stage := 'Calling API create_relationship';
15925: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15926: END IF;
15927:
15928: PA_RELATIONSHIP_PUB.Create_Relationship
15929: (
15953:
15954: px_tasks_out_tbl(i).return_status := x_return_status;
15955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15956: IF l_debug_mode = 'Y' THEN
15957: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
15958: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15959: END IF;
15960: Raise Invalid_Arg_Exc_WP;
15961: END IF;
15954: px_tasks_out_tbl(i).return_status := x_return_status;
15955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15956: IF l_debug_mode = 'Y' THEN
15957: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
15958: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15959: END IF;
15960: Raise Invalid_Arg_Exc_WP;
15961: END IF;
15962:
15960: Raise Invalid_Arg_Exc_WP;
15961: END IF;
15962:
15963: IF l_debug_mode = 'Y' THEN
15964: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
15965: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15966: END IF;
15967:
15968: ELSE -- in update task case
15961: END IF;
15962:
15963: IF l_debug_mode = 'Y' THEN
15964: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
15965: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15966: END IF;
15967:
15968: ELSE -- in update task case
15969: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
16006: px_tasks_out_tbl(i).return_status := x_return_status;
16007:
16008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16009: IF l_debug_mode = 'Y' THEN
16010: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16012: END IF;
16013: Raise Invalid_Arg_Exc_WP;
16014: END IF;
16007:
16008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16009: IF l_debug_mode = 'Y' THEN
16010: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16012: END IF;
16013: Raise Invalid_Arg_Exc_WP;
16014: END IF;
16015:
16013: Raise Invalid_Arg_Exc_WP;
16014: END IF;
16015:
16016: IF l_debug_mode = 'Y' THEN
16017: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16019: END IF;
16020:
16021: END IF; -- After calling PA_RELATIONSHIP_PUB Create_Relationship or Update_Relationship
16014: END IF;
16015:
16016: IF l_debug_mode = 'Y' THEN
16017: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16019: END IF;
16020:
16021: END IF; -- After calling PA_RELATIONSHIP_PUB Create_Relationship or Update_Relationship
16022:
16159: -- Create a schedule version for the task version only if the workplan
16160: -- structure is involved.
16161:
16162: IF l_debug_mode = 'Y' THEN
16163: pa_debug.g_err_stage := 'Calling API create schedule version';
16164: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16165: END IF;
16166:
16167: PA_TASK_PUB1.Create_Schedule_Version(
16160: -- structure is involved.
16161:
16162: IF l_debug_mode = 'Y' THEN
16163: pa_debug.g_err_stage := 'Calling API create schedule version';
16164: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16165: END IF;
16166:
16167: PA_TASK_PUB1.Create_Schedule_Version(
16168: p_element_version_id => l_task_version_id
16224:
16225: px_tasks_out_tbl(i).return_status := x_return_status;
16226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16227: IF l_debug_mode = 'Y' THEN
16228: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16230: END IF;
16231:
16232: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16225: px_tasks_out_tbl(i).return_status := x_return_status;
16226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16227: IF l_debug_mode = 'Y' THEN
16228: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16230: END IF;
16231:
16232: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16233: ,p_msg_name => 'PA_PS_NO_TASK_SCH_VER_CREATED');
16234: RAISE Invalid_Arg_Exc_WP;
16235: END IF;
16236:
16237: IF l_debug_mode = 'Y' THEN
16238: pa_debug.g_err_stage := 'Schedule Version id : ' || l_dummy_number ;
16239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16240: END IF;
16241: --rtarway, 4099429 begin
16242: if (l_task_in_rec.planned_effort is not null and l_task_in_rec.planned_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16235: END IF;
16236:
16237: IF l_debug_mode = 'Y' THEN
16238: pa_debug.g_err_stage := 'Schedule Version id : ' || l_dummy_number ;
16239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16240: END IF;
16241: --rtarway, 4099429 begin
16242: if (l_task_in_rec.planned_effort is not null and l_task_in_rec.planned_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16243: and l_task_in_rec.planned_effort > 0) then
16372: px_tasks_out_tbl(i).return_status := x_return_status;
16373:
16374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16375: IF l_debug_mode = 'Y' THEN
16376: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16377: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16378: END IF;
16379:
16380: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16373:
16374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16375: IF l_debug_mode = 'Y' THEN
16376: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16377: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16378: END IF;
16379:
16380: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16381: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
16388: RAISE Invalid_Arg_Exc_WP;
16389: END IF;
16390:
16391: IF l_debug_mode = 'Y' THEN
16392: pa_debug.g_err_stage := 'Schedule Version id : ' || l_ver_sch_attr_rec.pev_schedule_id ;
16393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16394: END IF;
16395:
16396: -- Start Addition 6458891
16389: END IF;
16390:
16391: IF l_debug_mode = 'Y' THEN
16392: pa_debug.g_err_stage := 'Schedule Version id : ' || l_ver_sch_attr_rec.pev_schedule_id ;
16393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16394: END IF;
16395:
16396: -- Start Addition 6458891
16397: l_update_task_det_flag := 'Y';
16561: ,l_prog_entry_enable_flag_tbl
16562: LIMIT l_plsql_max_array_size;
16563:
16564: IF l_debug_mode = 'Y' THEN
16565: pa_debug.g_err_stage:= 'Fetched ' || cur_get_child_info%rowcount || ' records for processing';
16566: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
16567: END IF;
16568:
16569: IF nvl(l_obj_rel_id_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
16562: LIMIT l_plsql_max_array_size;
16563:
16564: IF l_debug_mode = 'Y' THEN
16565: pa_debug.g_err_stage:= 'Fetched ' || cur_get_child_info%rowcount || ' records for processing';
16566: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
16567: END IF;
16568:
16569: IF nvl(l_obj_rel_id_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
16570: FOR i in l_obj_rel_id_tbl.first..l_obj_rel_id_tbl.last LOOP
16658: -- versioning is not enabled.
16659: IF p_is_wp_versioning_enabled = 'N' THEN
16660:
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage := 'Calling API Task status rollup';
16663: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16664: END IF;
16665:
16666: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
16659: IF p_is_wp_versioning_enabled = 'N' THEN
16660:
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage := 'Calling API Task status rollup';
16663: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16664: END IF;
16665:
16666: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
16667: p_structure_version_id => l_structure_version_id
16672: );
16673:
16674: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16675: IF l_debug_mode = 'Y' THEN
16676: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
16677: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16678: END IF;
16679: Raise Invalid_Arg_Exc_WP;
16680: END IF;
16673:
16674: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16675: IF l_debug_mode = 'Y' THEN
16676: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
16677: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16678: END IF;
16679: Raise Invalid_Arg_Exc_WP;
16680: END IF;
16681:
16685:
16686:
16687: -- Rollup dates.
16688: IF l_debug_mode = 'Y' THEN
16689: pa_debug.g_err_stage := 'Calling API rollup dates';
16690: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16691: END IF;
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,
16686:
16687: -- Rollup dates.
16688: IF l_debug_mode = 'Y' THEN
16689: pa_debug.g_err_stage := 'Calling API rollup dates';
16690: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16691: END IF;
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)
16703: ,x_return_status => x_return_status
16704: );
16705: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16706: IF l_debug_mode = 'Y' THEN
16707: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
16708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16709: END IF;
16710: Raise Invalid_Arg_Exc_WP;
16711: END IF;
16704: );
16705: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16706: IF l_debug_mode = 'Y' THEN
16707: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
16708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16709: END IF;
16710: Raise Invalid_Arg_Exc_WP;
16711: END IF;
16712: END IF;
16718: IF nvl(l_task_weight_basis_code,'-1') = 'MANUAL' AND
16719: (l_new_structure_version = 'Y' OR -- Bug 3075609. Recalculate the task weightings only if it is a
16720: nvl(p_create_task_versions_only,'N') = 'Y') THEN -- new structure version. Otherwise donot.
16721: IF l_debug_mode = 'Y' THEN
16722: pa_debug.g_err_stage := 'Calling API recalculate task weightings';
16723: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16724: END IF;
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,
16719: (l_new_structure_version = 'Y' OR -- Bug 3075609. Recalculate the task weightings only if it is a
16720: nvl(p_create_task_versions_only,'N') = 'Y') THEN -- new structure version. Otherwise donot.
16721: IF l_debug_mode = 'Y' THEN
16722: pa_debug.g_err_stage := 'Calling API recalculate task weightings';
16723: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16724: END IF;
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)
16734: ,x_return_status => x_return_status
16735: );
16736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16737: IF l_debug_mode = 'Y' THEN
16738: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
16739: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16740: END IF;
16741: Raise Invalid_Arg_Exc_WP;
16742: END IF;
16735: );
16736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16737: IF l_debug_mode = 'Y' THEN
16738: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
16739: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16740: END IF;
16741: Raise Invalid_Arg_Exc_WP;
16742: END IF;
16743: END IF;
16760: IF nvl(l_update_wbs_flag,'N') = 'Y' THEN
16761: IF p_process_mode = 'ONLINE' THEN
16762:
16763: IF l_debug_mode = 'Y' THEN
16764: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES';
16765: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16766: END IF;
16767:
16768: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
16761: IF p_process_mode = 'ONLINE' THEN
16762:
16763: IF l_debug_mode = 'Y' THEN
16764: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES';
16765: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16766: END IF;
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.
16777:
16778: -- Changed the way in which the error is handled.
16779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16780: IF l_debug_mode = 'Y' THEN
16781: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
16782: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16783: END IF;
16784: Raise Invalid_Arg_Exc_WP;
16785: END IF;
16778: -- Changed the way in which the error is handled.
16779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16780: IF l_debug_mode = 'Y' THEN
16781: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
16782: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16783: END IF;
16784: Raise Invalid_Arg_Exc_WP;
16785: END IF;
16786:
16786:
16787: ELSIF p_process_mode = 'CONCURRENT' THEN
16788:
16789: IF l_debug_mode = 'Y' THEN
16790: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES_CONC_WRP';
16791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16792: END IF;
16793:
16794: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
16787: ELSIF p_process_mode = 'CONCURRENT' THEN
16788:
16789: IF l_debug_mode = 'Y' THEN
16790: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES_CONC_WRP';
16791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
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.
16801: ,x_msg_data => x_msg_data ) ;
16802: -- Changed the way in which the error is handled.
16803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16804: IF l_debug_mode = 'Y' THEN
16805: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
16806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16807: END IF;
16808: Raise Invalid_Arg_Exc_WP;
16809: END IF;
16802: -- Changed the way in which the error is handled.
16803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16804: IF l_debug_mode = 'Y' THEN
16805: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
16806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16807: END IF;
16808: Raise Invalid_Arg_Exc_WP;
16809: END IF;
16810:
16814:
16815: --Amit : Bug 3964548 Begin
16816:
16817: IF l_debug_mode = 'Y' THEN
16818: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16815: --Amit : Bug 3964548 Begin
16816:
16817: IF l_debug_mode = 'Y' THEN
16818: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16816:
16817: IF l_debug_mode = 'Y' THEN
16818: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16824: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
16817: IF l_debug_mode = 'Y' THEN
16818: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16824: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
16825: END IF;
16818: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16824: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
16825: END IF;
16826:
16819: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16824: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
16825: END IF;
16826:
16827: IF ((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' ) THEN
16820: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
16821: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
16822: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
16823: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
16824: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
16825: END IF;
16826:
16827: IF ((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' ) THEN
16828: -- 4198962 Moved call of add_planning_transactions before population of l_del_task_ver_ids
16868: CLOSE cur_wp_task_csr_duplicate;
16869: END IF;
16870:
16871: IF l_debug_mode = 'Y' THEN
16872: Pa_Debug.WRITE(G_PKG_NAME,'Create Task Context',l_debug_level3);
16873: END IF;
16874: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16875: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16876: THEN
16874: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16875: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16876: THEN
16877: IF l_debug_mode = 'Y' THEN
16878: Pa_Debug.WRITE(G_PKG_NAME,'Lowest Task With No Assignments',l_debug_level3);
16879: END IF;
16880:
16881: IF p_tasks_in_tbl(l_i).planned_effort IS NOT NULL AND p_tasks_in_tbl(l_i).planned_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16882: AND l_add_plan_task_id IS NULL
16881: IF p_tasks_in_tbl(l_i).planned_effort IS NOT NULL AND p_tasks_in_tbl(l_i).planned_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16882: AND l_add_plan_task_id IS NULL
16883: THEN
16884: IF l_debug_mode = 'Y' THEN
16885: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP add_plan_txn',l_debug_level3);
16886: END IF;
16887:
16888: l_add_task_ver_ids.extend(1);
16889: l_add_planned_effort.extend(1);
16896: l_add_start_date(l_add_start_date.count):= p_tasks_in_tbl(l_i).scheduled_start_date;
16897: l_add_end_date(l_add_end_date.count):= p_tasks_in_tbl(l_i).scheduled_finish_date;
16898: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
16899: IF l_debug_mode = 'Y' THEN
16900: Pa_Debug.WRITE(G_PKG_NAME,'l_add_task_ver_ids='||l_add_task_ver_ids(l_add_task_ver_ids.count),l_debug_level3);
16901: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
16902: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
16903: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
16904: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
16897: l_add_end_date(l_add_end_date.count):= p_tasks_in_tbl(l_i).scheduled_finish_date;
16898: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
16899: IF l_debug_mode = 'Y' THEN
16900: Pa_Debug.WRITE(G_PKG_NAME,'l_add_task_ver_ids='||l_add_task_ver_ids(l_add_task_ver_ids.count),l_debug_level3);
16901: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
16902: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
16903: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
16904: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
16905: END IF;
16898: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
16899: IF l_debug_mode = 'Y' THEN
16900: Pa_Debug.WRITE(G_PKG_NAME,'l_add_task_ver_ids='||l_add_task_ver_ids(l_add_task_ver_ids.count),l_debug_level3);
16901: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
16902: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
16903: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
16904: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
16905: END IF;
16906: END IF;
16899: IF l_debug_mode = 'Y' THEN
16900: Pa_Debug.WRITE(G_PKG_NAME,'l_add_task_ver_ids='||l_add_task_ver_ids(l_add_task_ver_ids.count),l_debug_level3);
16901: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
16902: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
16903: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
16904: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
16905: END IF;
16906: END IF;
16907: --As per discussion with Amit we will never enter this else part
16900: Pa_Debug.WRITE(G_PKG_NAME,'l_add_task_ver_ids='||l_add_task_ver_ids(l_add_task_ver_ids.count),l_debug_level3);
16901: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
16902: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
16903: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
16904: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
16905: END IF;
16906: END IF;
16907: --As per discussion with Amit we will never enter this else part
16908: ELSE
16906: END IF;
16907: --As per discussion with Amit we will never enter this else part
16908: ELSE
16909: IF l_debug_mode = 'Y' THEN
16910: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn',l_debug_level3);
16911: END IF;
16912: l_del_task_ver_ids.extend(1);
16913: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16914: END IF;
16913: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16914: END IF;
16915: ELSE -- Update Task Context
16916: IF l_debug_mode = 'Y' THEN
16917: Pa_Debug.WRITE(G_PKG_NAME,'Update Task Context',l_debug_level3);
16918: END IF;
16919:
16920: -- Bug 4078307: Changes start
16921: -- In update task flow we should be deleting all task assignments for summary-level tasks
16922: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16923: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16924: THEN
16925: IF l_debug_mode = 'Y' THEN
16926: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
16927: END IF;
16928:
16929: l_del_task_ver_ids.extend(1);
16930: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16938: -- update_schedule_version is already calling it.
16939: null;
16940: ELSE
16941: IF l_debug_mode = 'Y' THEN
16942: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn',l_debug_level3);
16943: END IF;
16944:
16945: l_del_task_ver_ids.extend(1);
16946: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16964: --AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y')
16965: AND l_hidden_assgn = 'Y')--modified by rtarway for BUG 4132590
16966: THEN
16967: IF l_debug_mode = 'Y' THEN
16968: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
16969: END IF;
16970:
16971: if (l_del_task_ver_ids.count = 1000) then
16972: IF l_del_task_ver_ids.exists(1) THEN
17212:
17213: --end if;
17214:
17215: IF l_debug_mode = 'Y' THEN
17216: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17217: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17218: l_debug_level2);
17219: pa_debug.reset_curr_function;
17220:
17213: --end if;
17214:
17215: IF l_debug_mode = 'Y' THEN
17216: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17217: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17218: l_debug_level2);
17219: pa_debug.reset_curr_function;
17220:
17221: END IF;
17215: IF l_debug_mode = 'Y' THEN
17216: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17217: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17218: l_debug_level2);
17219: pa_debug.reset_curr_function;
17220:
17221: END IF;
17222:
17223: EXCEPTION
17224:
17225: WHEN Invalid_Arg_Exc_WP THEN
17226:
17227: IF l_debug_mode = 'Y' THEN
17228: pa_debug.g_err_stage:= 'In PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc exception block';
17229: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17230: l_debug_level4);
17231: END IF;
17232:
17225: WHEN Invalid_Arg_Exc_WP THEN
17226:
17227: IF l_debug_mode = 'Y' THEN
17228: pa_debug.g_err_stage:= 'In PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc exception block';
17229: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17230: l_debug_level4);
17231: END IF;
17232:
17233: x_return_status := FND_API.G_RET_STS_ERROR;
17296: x_msg_count := l_msg_count;
17297: END IF;
17298:
17299: IF l_debug_mode = 'Y' THEN
17300: pa_debug.reset_curr_function;
17301: END IF;
17302:
17303: IF p_commit = FND_API.G_TRUE THEN
17304: rollback to process_task_struc;
17367: ,p_error_text => x_msg_data
17368: );
17369:
17370: IF l_debug_mode = 'Y' THEN
17371: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17372: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17373: l_debug_level6);
17374: pa_debug.reset_curr_function;
17375:
17368: );
17369:
17370: IF l_debug_mode = 'Y' THEN
17371: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17372: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17373: l_debug_level6);
17374: pa_debug.reset_curr_function;
17375:
17376: END IF;
17370: IF l_debug_mode = 'Y' THEN
17371: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17372: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17373: l_debug_level6);
17374: pa_debug.reset_curr_function;
17375:
17376: END IF;
17377:
17378: IF p_commit = FND_API.G_TRUE THEN
17545: END IF;
17546:
17547: x_msg_count := 0;
17548: x_return_status := FND_API.G_RET_STS_SUCCESS;
17549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17550:
17551: IF l_debug_mode = 'Y' THEN
17552: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
17553: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17548: x_return_status := FND_API.G_RET_STS_SUCCESS;
17549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17550:
17551: IF l_debug_mode = 'Y' THEN
17552: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
17553: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17554: l_debug_level3);
17555:
17556: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
17549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17550:
17551: IF l_debug_mode = 'Y' THEN
17552: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
17553: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17554: l_debug_level3);
17555:
17556: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
17557: p_debug_mode => l_debug_mode );
17552: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
17553: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17554: l_debug_level3);
17555:
17556: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
17557: p_debug_mode => l_debug_mode );
17558: END IF;
17559:
17560: -- Check for business rules violations
17558: END IF;
17559:
17560: -- Check for business rules violations
17561: IF l_debug_mode = 'Y' THEN
17562: pa_debug.g_err_stage:= 'Validating input parameters';
17563: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17564: l_debug_level3);
17565:
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17559:
17560: -- Check for business rules violations
17561: IF l_debug_mode = 'Y' THEN
17562: pa_debug.g_err_stage:= 'Validating input parameters';
17563: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17564: l_debug_level3);
17565:
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17567: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17562: pa_debug.g_err_stage:= 'Validating input parameters';
17563: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17564: l_debug_level3);
17565:
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17567: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17568:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17563: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17564: l_debug_level3);
17565:
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17567: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17568:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17571:
17565:
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17567: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17568:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17571:
17572: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17573: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17566: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17567: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17568:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17571:
17572: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17573: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17574:
17568:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17571:
17572: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17573: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17574:
17575: END IF;
17576:
17569: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17571:
17572: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17573: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17574:
17575: END IF;
17576:
17577: -- Throw an error if any of the mandatory parameter is NULL.
17625: END IF;
17626:
17627: -- TWUT
17628: IF l_debug_mode = 'Y' THEN
17629: pa_debug.g_err_stage := 'Update option is '||l_update_option;
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
17626:
17627: -- TWUT
17628: IF l_debug_mode = 'Y' THEN
17629: pa_debug.g_err_stage := 'Update option is '||l_update_option;
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(
17643: ,x_msg_data => x_msg_data
17644: );
17645: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17646: IF l_debug_mode = 'Y' THEN
17647: pa_debug.g_err_stage := 'Error calling online wbs update process ';
17648: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17649: END IF;
17650: Raise Invalid_Arg_Exc_WP;
17651: END IF;
17644: );
17645: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17646: IF l_debug_mode = 'Y' THEN
17647: pa_debug.g_err_stage := 'Error calling online wbs update process ';
17648: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17649: END IF;
17650: Raise Invalid_Arg_Exc_WP;
17651: END IF;
17652: ELSIF l_update_option = 'CONCURRENT' THEN
17662: ,x_msg_data => x_msg_data
17663: );
17664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17665: IF l_debug_mode = 'Y' THEN
17666: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
17667: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17668: END IF;
17669: Raise Invalid_Arg_Exc_WP;
17670: END IF;
17663: );
17664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17665: IF l_debug_mode = 'Y' THEN
17666: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
17667: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17668: END IF;
17669: Raise Invalid_Arg_Exc_WP;
17670: END IF;
17671: END IF;
17671: END IF;
17672: END;
17673:
17674: IF l_debug_mode = 'Y' THEN
17675: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
17676: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17677: l_debug_level3);
17678: pa_debug.reset_curr_function;
17679: END IF;
17672: END;
17673:
17674: IF l_debug_mode = 'Y' THEN
17675: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
17676: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17677: l_debug_level3);
17678: pa_debug.reset_curr_function;
17679: END IF;
17680: EXCEPTION
17674: IF l_debug_mode = 'Y' THEN
17675: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
17676: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17677: l_debug_level3);
17678: pa_debug.reset_curr_function;
17679: END IF;
17680: EXCEPTION
17681:
17682: WHEN Invalid_Arg_Exc_WP THEN
17701: ELSE
17702: x_msg_count := l_msg_count;
17703: END IF;
17704: IF l_debug_mode = 'Y' THEN
17705: pa_debug.reset_curr_function;
17706: END IF;
17707:
17708: RETURN;
17709:
17722: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
17723: ,p_error_text => x_msg_data);
17724:
17725: IF l_debug_mode = 'Y' THEN
17726: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17727: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17728: l_debug_level5);
17729: pa_debug.reset_curr_function;
17730: END IF;
17723: ,p_error_text => x_msg_data);
17724:
17725: IF l_debug_mode = 'Y' THEN
17726: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17727: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17728: l_debug_level5);
17729: pa_debug.reset_curr_function;
17730: END IF;
17731: RAISE;
17725: IF l_debug_mode = 'Y' THEN
17726: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
17727: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17728: l_debug_level5);
17729: pa_debug.reset_curr_function;
17730: END IF;
17731: RAISE;
17732: END PROCESS_WBS_UPDATES_WRP;
17733:
17826: END IF;
17827:
17828: x_msg_count := 0;
17829: x_return_status := FND_API.G_RET_STS_SUCCESS;
17830: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17831:
17832: IF l_debug_mode = 'Y' THEN
17833: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
17834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17829: x_return_status := FND_API.G_RET_STS_SUCCESS;
17830: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17831:
17832: IF l_debug_mode = 'Y' THEN
17833: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
17834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17835: l_debug_level3);
17836:
17837: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
17830: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17831:
17832: IF l_debug_mode = 'Y' THEN
17833: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
17834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17835: l_debug_level3);
17836:
17837: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
17838: p_debug_mode => l_debug_mode );
17833: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
17834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17835: l_debug_level3);
17836:
17837: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
17838: p_debug_mode => l_debug_mode );
17839: END IF;
17840:
17841: -- Check for business rules violations
17839: END IF;
17840:
17841: -- Check for business rules violations
17842: IF l_debug_mode = 'Y' THEN
17843: pa_debug.g_err_stage:= 'Validating input parameters';
17844: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17845: l_debug_level3);
17846:
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17840:
17841: -- Check for business rules violations
17842: IF l_debug_mode = 'Y' THEN
17843: pa_debug.g_err_stage:= 'Validating input parameters';
17844: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17845: l_debug_level3);
17846:
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17848: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17843: pa_debug.g_err_stage:= 'Validating input parameters';
17844: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17845: l_debug_level3);
17846:
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17848: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17849:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17844: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
17845: l_debug_level3);
17846:
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17848: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17849:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17852:
17846:
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17848: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17849:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17852:
17853: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17854: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17847: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
17848: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17849:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17852:
17853: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17854: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17855:
17849:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17852:
17853: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17854: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17855:
17856: END IF;
17857:
17850: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
17851: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17852:
17853: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
17854: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17855:
17856: END IF;
17857:
17858: -- Throw an error if any of the mandatory parameter is NULL.
17874: IF l_update_wbs_flag = 'N' THEN
17875: -- No further processing is required for this structure version. Return.
17876: -- TWUT.
17877: IF l_debug_mode = 'Y' THEN
17878: pa_debug.g_err_stage:= 'No updates required for this structure version.';
17879: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17880: END IF;
17881: RETURN;
17882: END IF;
17875: -- No further processing is required for this structure version. Return.
17876: -- TWUT.
17877: IF l_debug_mode = 'Y' THEN
17878: pa_debug.g_err_stage:= 'No updates required for this structure version.';
17879: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17880: END IF;
17881: RETURN;
17882: END IF;
17883: */
17909: -- End Bug # 4584710.
17910: nvl(l_update_wbs_flag,'N') = 'N')
17911: THEN
17912: IF l_debug_mode = 'Y' THEN
17913: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
17914: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
17915: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17916: END IF;
17917: -- No further processing required. Donot launch the conc process.
17910: nvl(l_update_wbs_flag,'N') = 'N')
17911: THEN
17912: IF l_debug_mode = 'Y' THEN
17913: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
17914: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
17915: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17916: END IF;
17917: -- No further processing required. Donot launch the conc process.
17918: RETURN;
17911: THEN
17912: IF l_debug_mode = 'Y' THEN
17913: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
17914: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
17915: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17916: END IF;
17917: -- No further processing required. Donot launch the conc process.
17918: RETURN;
17919: END IF;
17958: );
17959:
17960: -- TWUT
17961: IF l_debug_mode = 'Y' THEN
17962: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
17963: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17964: END IF;
17965:
17966: -- Throw an error if the request could not be submitted.
17959:
17960: -- TWUT
17961: IF l_debug_mode = 'Y' THEN
17962: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
17963: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17964: END IF;
17965:
17966: -- Throw an error if the request could not be submitted.
17967: IF l_request_id = 0 THEN
18022: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
18023:
18024: -- TWUT
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage := 'Calling the financial planning API after submitting the concurrent request';
18027: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18028: END IF;
18029:
18030: pa_fp_refresh_elements_pub.set_process_flag_proj(
18023:
18024: -- TWUT
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage := 'Calling the financial planning API after submitting the concurrent request';
18027: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18028: END IF;
18029:
18030: pa_fp_refresh_elements_pub.set_process_flag_proj(
18031: p_project_id => p_project_id
18037: ,x_msg_data => x_msg_data
18038: );
18039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18040: IF l_debug_mode = 'Y' THEN
18041: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18042: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18043: END IF;
18044: Raise Invalid_Arg_Exc_WP;
18045: END IF;
18038: );
18039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18040: IF l_debug_mode = 'Y' THEN
18041: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18042: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18043: END IF;
18044: Raise Invalid_Arg_Exc_WP;
18045: END IF;
18046: END IF;
18050:
18051: /* DO NOT ADD ANY CODE AFTER THIS COMMIT bug 3163280 */
18052:
18053: IF l_debug_mode = 'Y' THEN
18054: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18055: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18056: l_debug_level3);
18057: pa_debug.reset_curr_function;
18058: END IF;
18051: /* DO NOT ADD ANY CODE AFTER THIS COMMIT bug 3163280 */
18052:
18053: IF l_debug_mode = 'Y' THEN
18054: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18055: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18056: l_debug_level3);
18057: pa_debug.reset_curr_function;
18058: END IF;
18059: EXCEPTION
18053: IF l_debug_mode = 'Y' THEN
18054: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18055: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18056: l_debug_level3);
18057: pa_debug.reset_curr_function;
18058: END IF;
18059: EXCEPTION
18060:
18061: WHEN Invalid_Arg_Exc_WP THEN
18076: ELSE
18077: x_msg_count := l_msg_count;
18078: END IF;
18079: IF l_debug_mode = 'Y' THEN
18080: pa_debug.reset_curr_function;
18081: END IF;
18082:
18083: RETURN;
18084:
18093: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18094: ,p_error_text => x_msg_data);
18095:
18096: IF l_debug_mode = 'Y' THEN
18097: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18098: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18099: l_debug_level5);
18100: pa_debug.reset_curr_function;
18101: END IF;
18094: ,p_error_text => x_msg_data);
18095:
18096: IF l_debug_mode = 'Y' THEN
18097: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18098: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18099: l_debug_level5);
18100: pa_debug.reset_curr_function;
18101: END IF;
18102: RAISE;
18096: IF l_debug_mode = 'Y' THEN
18097: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18098: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18099: l_debug_level5);
18100: pa_debug.reset_curr_function;
18101: END IF;
18102: RAISE;
18103: END PROCESS_WBS_UPDATES_CONC_WRP;
18104:
18145: BEGIN
18146:
18147: savepoint process_wbs_updates_conc;
18148:
18149: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18150: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
18151: retcode := '0';
18152: errbuf := NULL;
18153:
18151: retcode := '0';
18152: errbuf := NULL;
18153:
18154: IF l_debug_mode = 'Y' THEN
18155: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18156: p_debug_mode => l_debug_mode );
18157: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18158: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18159: END IF;
18153:
18154: IF l_debug_mode = 'Y' THEN
18155: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18156: p_debug_mode => l_debug_mode );
18157: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18158: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18159: END IF;
18160:
18161: -- Check for business rules violations
18154: IF l_debug_mode = 'Y' THEN
18155: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18156: p_debug_mode => l_debug_mode );
18157: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18158: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18159: END IF;
18160:
18161: -- Check for business rules violations
18162: IF l_debug_mode = 'Y' THEN
18159: END IF;
18160:
18161: -- Check for business rules violations
18162: IF l_debug_mode = 'Y' THEN
18163: pa_debug.g_err_stage:= 'Validating input parameters';
18164: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18165:
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18160:
18161: -- Check for business rules violations
18162: IF l_debug_mode = 'Y' THEN
18163: pa_debug.g_err_stage:= 'Validating input parameters';
18164: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18165:
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18168:
18162: IF l_debug_mode = 'Y' THEN
18163: pa_debug.g_err_stage:= 'Validating input parameters';
18164: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18165:
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18168:
18169: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18170: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18163: pa_debug.g_err_stage:= 'Validating input parameters';
18164: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18165:
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18168:
18169: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18170: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18171: END IF;
18165:
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18168:
18169: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18170: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18171: END IF;
18172:
18173: IF (p_project_id IS NULL) OR
18166: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18167: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18168:
18169: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18170: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18171: END IF;
18172:
18173: IF (p_project_id IS NULL) OR
18174: (p_structure_version_id IS NULL)
18173: IF (p_project_id IS NULL) OR
18174: (p_structure_version_id IS NULL)
18175: THEN
18176: IF l_debug_mode = 'Y' THEN
18177: pa_debug.g_err_stage:= 'Some of the mandatory parameters to this API are NULL';
18178: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18179: END IF;
18180: PA_UTILS.ADD_MESSAGE
18181: (p_app_short_name => 'PA',
18174: (p_structure_version_id IS NULL)
18175: THEN
18176: IF l_debug_mode = 'Y' THEN
18177: pa_debug.g_err_stage:= 'Some of the mandatory parameters to this API are NULL';
18178: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18179: END IF;
18180: PA_UTILS.ADD_MESSAGE
18181: (p_app_short_name => 'PA',
18182: p_msg_name => 'PA_INV_PARAM_PASSED');
18195: ,x_msg_data => l_msg_data
18196: );
18197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18198: IF l_debug_mode = 'Y' THEN
18199: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18200: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18201: END IF;
18202: Raise Invalid_Arg_Exc_WP;
18203: END IF;
18196: );
18197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18198: IF l_debug_mode = 'Y' THEN
18199: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18200: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18201: END IF;
18202: Raise Invalid_Arg_Exc_WP;
18203: END IF;
18204:
18233: -- Commit so that the changes that have been done are commited.
18234: commit;
18235:
18236: IF l_debug_mode = 'Y' THEN
18237: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
18238: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18239:
18240: pa_debug.reset_curr_function;
18241: END IF;
18234: commit;
18235:
18236: IF l_debug_mode = 'Y' THEN
18237: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
18238: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18239:
18240: pa_debug.reset_curr_function;
18241: END IF;
18242: EXCEPTION
18236: IF l_debug_mode = 'Y' THEN
18237: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
18238: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18239:
18240: pa_debug.reset_curr_function;
18241: END IF;
18242: EXCEPTION
18243:
18244: WHEN Invalid_Arg_Exc_WP THEN
18327:
18328: -- Bug # 4655059.
18329:
18330: IF l_debug_mode = 'Y' THEN
18331: pa_debug.reset_curr_function;
18332: END IF;
18333: RETURN;
18334:
18335: WHEN others THEN
18412:
18413: -- Bug # 4655059.
18414:
18415: IF l_debug_mode = 'Y' THEN
18416: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
18417: pa_debug.log_message(pa_debug.g_err_stage);
18418: pa_debug.reset_curr_function;
18419: END IF;
18420: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
18413: -- Bug # 4655059.
18414:
18415: IF l_debug_mode = 'Y' THEN
18416: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
18417: pa_debug.log_message(pa_debug.g_err_stage);
18418: pa_debug.reset_curr_function;
18419: END IF;
18420: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
18421: --RAISE;
18414:
18415: IF l_debug_mode = 'Y' THEN
18416: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
18417: pa_debug.log_message(pa_debug.g_err_stage);
18418: pa_debug.reset_curr_function;
18419: END IF;
18420: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
18421: --RAISE;
18422: RETURN;
18578: END IF;
18579:
18580: x_msg_count := 0;
18581: x_return_status := FND_API.G_RET_STS_SUCCESS;
18582: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18583:
18584: IF l_debug_mode = 'Y' THEN
18585: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
18586: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
18581: x_return_status := FND_API.G_RET_STS_SUCCESS;
18582: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18583:
18584: IF l_debug_mode = 'Y' THEN
18585: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
18586: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
18587: END IF;
18588:
18589: -- Check for business rules violations
18582: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18583:
18584: IF l_debug_mode = 'Y' THEN
18585: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
18586: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
18587: END IF;
18588:
18589: -- Check for business rules violations
18590: IF l_debug_mode = 'Y' THEN
18587: END IF;
18588:
18589: -- Check for business rules violations
18590: IF l_debug_mode = 'Y' THEN
18591: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18588:
18589: -- Check for business rules violations
18590: IF l_debug_mode = 'Y' THEN
18591: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18596: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
18589: -- Check for business rules violations
18590: IF l_debug_mode = 'Y' THEN
18591: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18596: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
18597: END IF;
18590: IF l_debug_mode = 'Y' THEN
18591: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18596: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
18597: END IF;
18598:
18591: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18596: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
18597: END IF;
18598:
18599: -- Throw an error if any of the mandatory parameter is NULL.
18592: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
18593: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
18594: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
18595: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
18596: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
18597: END IF;
18598:
18599: -- Throw an error if any of the mandatory parameter is NULL.
18600: IF (p_project_id IS NULL) OR (p_structure_version_id IS NULL) THEN
18607: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
18608: p_structure_version_id => p_structure_version_id);
18609:
18610: IF l_debug_mode = 'Y' THEN
18611: pa_debug.write(G_PKG_NAME, 'l_update_wbs_flag = '|| l_update_wbs_flag, 3);
18612: END IF;
18613:
18614: --bug 4409337 moved from below to make use of some of these variables for bugfix.
18615: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
18617: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
18618:
18619:
18620: IF l_debug_mode = 'Y' THEN
18621: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
18622: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
18623: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
18624: END IF;
18625: --bug 4409337
18618:
18619:
18620: IF l_debug_mode = 'Y' THEN
18621: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
18622: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
18623: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
18624: END IF;
18625: --bug 4409337
18626:
18619:
18620: IF l_debug_mode = 'Y' THEN
18621: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
18622: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
18623: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
18624: END IF;
18625: --bug 4409337
18626:
18627: IF (p_calling_context = 'ASGMT_PLAN_CHANGE') THEN ---bug 4492493
18641: return;
18642: end;
18643:
18644: IF l_debug_mode = 'Y' THEN
18645: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
18646: END IF;
18647:
18648: pa_progress_pub.populate_pji_tab_for_plan(
18649: p_init_msg_list => FND_API.G_FALSE
18657: ,x_return_status => x_return_status
18658: ,x_msg_count => x_msg_count
18659: ,x_msg_data => x_msg_data);
18660: IF l_debug_mode = 'Y' THEN
18661: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
18662: END IF;
18663:
18664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18665: raise Invalid_Arg_Exc_WP;
18664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18665: raise Invalid_Arg_Exc_WP;
18666: END IF;
18667: IF l_debug_mode = 'Y' THEN
18668: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
18669: END IF;
18670:
18671: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
18672: p_init_msg_list => FND_API.G_FALSE
18681: ,x_msg_count => x_msg_count
18682: ,x_msg_data => x_msg_data);
18683:
18684: IF l_debug_mode = 'Y' THEN
18685: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
18686: END IF;
18687:
18688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18689: raise Invalid_Arg_Exc_WP;
18688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18689: raise Invalid_Arg_Exc_WP;
18690: END IF;
18691: IF l_debug_mode = 'Y' THEN
18692: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
18693: END IF;
18694:
18695: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
18696: p_init_msg_list => FND_API.G_FALSE
18705: ,x_msg_count => x_msg_count
18706: ,x_msg_data => x_msg_data);
18707:
18708: IF l_debug_mode = 'Y' THEN
18709: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
18710: END IF;
18711:
18712: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18713: raise Invalid_Arg_Exc_WP;
18723: END IF;
18724:
18725: IF l_update_wbs_flag = 'Y' THEN
18726: IF l_debug_mode = 'Y' THEN
18727: pa_debug.write(G_PKG_NAME, 'Calling PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT with l_online_flag='||l_online_flag, 3);
18728: END IF;
18729:
18730: BEGIN
18731: -- l_online_flag = 'Y', then it is online
18745: ,x_return_status => x_return_status
18746: ,x_online_flag => l_out_online_flag
18747: );
18748: IF l_debug_mode = 'Y' THEN
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',
18763:
18764:
18765: IF NVL(l_update_wbs_flag,'N') = 'N' OR NVL(l_out_online_flag, 'Y') <> 'N' THEN
18766: IF l_debug_mode = 'Y' THEN
18767: pa_debug.write(G_PKG_NAME, 'Calling PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', 3);
18768: END IF;
18769:
18770: PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV
18771: (p_project_id => p_project_id
18774: ,x_msg_count => x_msg_count
18775: ,x_msg_data => x_msg_data);
18776:
18777: IF l_debug_mode = 'Y' THEN
18778: pa_debug.write(G_PKG_NAME, 'After Call PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV x_return_status='||x_return_status, 3);
18779: END IF;
18780:
18781: END IF;
18782:
18797: IF l_update_wbs_flag = 'N' THEN
18798: -- No further processing is required for this structure version. Return.
18799: -- TWUT.
18800: IF l_debug_mode = 'Y' THEN
18801: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18802: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18803: END IF;
18804: RETURN;
18805: END IF;
18798: -- No further processing is required for this structure version. Return.
18799: -- TWUT.
18800: IF l_debug_mode = 'Y' THEN
18801: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18802: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18803: END IF;
18804: RETURN;
18805: END IF;
18806: */
18818: CLOSE cur_structure_type;
18819:
18820: -- TWUT.
18821: IF l_debug_mode = 'Y' THEN
18822: pa_debug.write(G_PKG_NAME, 'Financial structure type flag '||l_structure_type_flag, 3);
18823: END IF;
18824:
18825: /*
18826: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
18834: ,x_msg_data => x_msg_data
18835: );
18836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18837: IF l_debug_mode = 'Y' THEN
18838: pa_debug.g_err_stage := 'Error calling the financial planning API';
18839: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18840: END IF;
18841: Raise Invalid_Arg_Exc_WP;
18842: END IF;
18835: );
18836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18837: IF l_debug_mode = 'Y' THEN
18838: pa_debug.g_err_stage := 'Error calling the financial planning API';
18839: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18840: END IF;
18841: Raise Invalid_Arg_Exc_WP;
18842: END IF;
18843: END IF;
18871: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
18872:
18873: if l_debug_mode = 'Y' then
18874:
18875: pa_debug.g_err_stage := 'Error calling the financial planning API';
18876: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18877:
18878: end if;
18879:
18872:
18873: if l_debug_mode = 'Y' then
18874:
18875: pa_debug.g_err_stage := 'Error calling the financial planning API';
18876: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18877:
18878: end if;
18879:
18880: Raise Invalid_Arg_Exc_WP;
18893: IF l_update_wbs_flag = 'N' THEN
18894: -- No further processing is required for this structure version. Return.
18895: -- TWUT.
18896: IF l_debug_mode = 'Y' THEN
18897: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18898: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18899: END IF;
18900: RETURN;
18901: END IF;
18894: -- No further processing is required for this structure version. Return.
18895: -- TWUT.
18896: IF l_debug_mode = 'Y' THEN
18897: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18898: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18899: END IF;
18900: RETURN;
18901: END IF;
18902: */
18913: CLOSE cur_structure_type;
18914:
18915: -- TWUT.
18916: IF l_debug_mode = 'Y' THEN
18917: pa_debug.g_err_stage:= 'Workplan structure type flag '||l_structure_type_flag;
18918: pa_debug.write(G_PKG_NAME, 'Workplan structure type flag '||l_structure_type_flag, 3);
18919: END IF;
18920:
18921: IF p_calling_context <> 'COPY_PROJECT' THEN --bug 3035902 maansari
18914:
18915: -- TWUT.
18916: IF l_debug_mode = 'Y' THEN
18917: pa_debug.g_err_stage:= 'Workplan structure type flag '||l_structure_type_flag;
18918: pa_debug.write(G_PKG_NAME, 'Workplan structure type flag '||l_structure_type_flag, 3);
18919: END IF;
18920:
18921: IF p_calling_context <> 'COPY_PROJECT' THEN --bug 3035902 maansari
18922: --PJI changes
19005:
19006: BEGIN
19007:
19008: IF l_debug_mode = 'Y' THEN
19009: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in PUBLISH mode for workign version', 3);
19010: END IF;
19011:
19012: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
19013: p_project_id => l_project_id,
19014: p_plan_type_id => -1,
19015: p_proj_str_ver_id => p_structure_version_id) ;
19016:
19017: IF l_debug_mode = 'Y' THEN
19018: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in UPDATE mode for working version='||l_plan_version_id, 3);
19019: END IF;
19020:
19021: EXCEPTION
19022: WHEN OTHERS THEN
19029: END;
19030: --end bug 4587145
19031:
19032: IF l_debug_mode = 'Y' THEN
19033: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in PUBLISH mode for working version', 3);
19034: END IF;
19035: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null; --set the flag so that PJI rolls up data on the working version.
19036:
19037: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
19038: p_plan_version_id => l_plan_version_id, --bug 4587145
19039: x_return_status => x_return_status);
19040:
19041: IF l_debug_mode = 'Y' THEN
19042: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in PUBLISH mode for working verison x_return_status='||
19043: x_return_status,l_debug_level3);
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
19069: --bug 4472071
19070: --all code from publishing (before calling process_wbs_updates)
19071:
19072: IF l_debug_mode = 'Y' THEN
19073: pa_debug.write(G_PKG_NAME, 'Calling PA_Relationship_Pvt.Copy_Intra_Dependency', 3);
19074: END IF;
19075:
19076: PA_Relationship_Pvt.Copy_Intra_Dependency (
19077: P_Source_Ver_Tbl => NULL,
19083: X_Msg_Data => X_Msg_Data
19084: );
19085:
19086: IF l_debug_mode = 'Y' THEN
19087: pa_debug.write(G_PKG_NAME, 'After Copy_Intra_Dependency X_Return_Status='||X_Return_Status, 3);
19088: END IF;
19089:
19090: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19091: RAISE Invalid_Arg_Exc_WP;
19091: RAISE Invalid_Arg_Exc_WP;
19092: END IF;
19093:
19094: IF l_debug_mode = 'Y' THEN
19095: pa_debug.write(G_PKG_NAME, 'Calling Publish_Inter_Proj_Dep', 3);
19096: END IF;
19097:
19098: PA_RELATIONSHIP_PVT.Publish_Inter_Proj_Dep ( -- This API needs to be called
19099: p_publishing_struc_ver_id => p_structure_version_id,
19104: X_Msg_Data => X_Msg_Data
19105: );
19106:
19107: IF l_debug_mode = 'Y' THEN
19108: pa_debug.write(G_PKG_NAME, 'After Publish_Inter_Proj_Dep X_Return_Status='||X_Return_Status, 3);
19109: END IF;
19110:
19111: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19112: RAISE Invalid_Arg_Exc_WP;
19112: RAISE Invalid_Arg_Exc_WP;
19113: END IF;
19114:
19115: IF l_debug_mode = 'Y' THEN
19116: pa_debug.write(G_PKG_NAME, 'Calling Copy_OG_Lnk_For_Subproj_Ass', 3);
19117: END IF;
19118:
19119:
19120: PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass(
19126: );
19127:
19128:
19129: IF l_debug_mode = 'Y' THEN
19130: pa_debug.write(G_PKG_NAME, 'After Copy_OG_Lnk_For_Subproj_Ass X_Return_Status='||X_Return_Status, 3);
19131: END IF;
19132:
19133: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19134: RAISE Invalid_Arg_Exc_WP;
19135: END IF;
19136:
19137:
19138: IF l_debug_mode = 'Y' THEN
19139: pa_debug.write(G_PKG_NAME, 'Calling Move_CI_Lnk_For_subproj_step1', 3);
19140: END IF;
19141:
19142: PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1(
19143: p_src_str_version_id => p_structure_version_id,
19147: x_msg_count => x_msg_count,
19148: x_msg_data => x_msg_data);
19149:
19150: IF l_debug_mode = 'Y' THEN
19151: pa_debug.write(G_PKG_NAME, 'After Move_CI_Lnk_For_subproj_step1 X_Return_Status='||X_Return_Status, 3);
19152: END IF;
19153:
19154: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19155: RAISE Invalid_Arg_Exc_WP;
19155: RAISE Invalid_Arg_Exc_WP;
19156: END IF;
19157:
19158: IF l_debug_mode = 'Y' THEN
19159: pa_debug.write(G_PKG_NAME, 'Calling copy_mapping', 3);
19160: END IF;
19161:
19162:
19163: PA_PROJ_STRUC_MAPPING_PUB.copy_mapping(
19171: ,x_msg_data => x_msg_data
19172: );
19173:
19174: IF l_debug_mode = 'Y' THEN
19175: pa_debug.write(G_PKG_NAME, 'After copy_mapping X_Return_Status='||X_Return_Status, 3);
19176: END IF;
19177:
19178: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19179: RAISE Invalid_Arg_Exc_WP;
19196: --moved PA_FP_COPY_FROM_PKG.copy_wp_budget_versions into plsql block
19197: BEGIN
19198:
19199: IF l_debug_mode = 'Y' THEN
19200: pa_debug.write(G_PKG_NAME, 'Calling copy_wp_budget_versions', 3);
19201: END IF;
19202:
19203: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := 'PUBLISH'; -- 4646016
19204:
19217:
19218: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
19219:
19220: IF l_debug_mode = 'Y' THEN
19221: pa_debug.write(G_PKG_NAME, 'After copy_wp_budget_versions X_Return_Status='||X_Return_Status, 3);
19222: END IF;
19223:
19224: EXCEPTION
19225: WHEN OTHERS THEN
19248:
19249: --Call sync-up API
19250:
19251: IF l_debug_mode = 'Y' THEN
19252: pa_debug.write(G_PKG_NAME,'Calling import_task', 3);
19253: END IF;
19254:
19255: PA_XC_PROJECT_PUB.import_task(
19256: p_project_id => l_project_id
19284: ,p_structure_version_id => l_pub_ver_id
19285: ,p_calling_mode => 'PUBLISH' );
19286:
19287: IF l_debug_mode = 'Y' THEN
19288: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19290: END IF;
19291: -- Fix for Bug # 4513291. Added below Exception handling
19292: x_msg_count := FND_MSG_PUB.count_msg;
19285: ,p_calling_mode => 'PUBLISH' );
19286:
19287: IF l_debug_mode = 'Y' THEN
19288: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19290: END IF;
19291: -- Fix for Bug # 4513291. Added below Exception handling
19292: x_msg_count := FND_MSG_PUB.count_msg;
19293: IF x_msg_count > 0 THEN
19295: END IF;
19296:
19297:
19298: IF l_debug_mode = 'Y' THEN
19299: pa_debug.g_err_stage:= 'Calling import_project ';
19300: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19301: END IF;
19302:
19303: l_i_msg_count := 0;
19296:
19297:
19298: IF l_debug_mode = 'Y' THEN
19299: pa_debug.g_err_stage:= 'Calling import_project ';
19300: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19301: END IF;
19302:
19303: l_i_msg_count := 0;
19304: l_i_return_status := 'S'; -- Fix for Bug # 4513291.
19323: ,x_msg_data => l_i_msg_data
19324: ,x_return_status => l_i_return_status);
19325:
19326: IF l_debug_mode = 'Y' THEN
19327: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19328: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19329: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
19330: -- Fix for Bug # 4513291.
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19324: ,x_return_status => l_i_return_status);
19325:
19326: IF l_debug_mode = 'Y' THEN
19327: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19328: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19329: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
19330: -- Fix for Bug # 4513291.
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19332: -- Fix for Bug # 4513291.
19325:
19326: IF l_debug_mode = 'Y' THEN
19327: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19328: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19329: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
19330: -- Fix for Bug # 4513291.
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19332: -- Fix for Bug # 4513291.
19333: END IF;
19327: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19328: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19329: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
19330: -- Fix for Bug # 4513291.
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19332: -- Fix for Bug # 4513291.
19333: END IF;
19334:
19335: l_msg_count := FND_MSG_PUB.count_msg;
19376: THEN
19377:
19378: --call the dates rollup API for the structure version
19379: IF l_debug_mode = 'Y' THEN
19380: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in PUBLISH mode', 3);
19381: END IF;
19382:
19383: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
19384: p_project_id => p_project_id,
19387: x_msg_count => x_msg_count,
19388: x_msg_data => x_msg_data);
19389:
19390: IF l_debug_mode = 'Y' THEN
19391: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in PUBLISH mode x_return_status='||x_return_status, 3);
19392: END IF;
19393:
19394: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19395: RAISE Invalid_Arg_Exc_WP;
19403: ,p_link_type => 'WORKPLAN' ) = 'Y'
19404: IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,l_pub_ver_id, 'WORKPLAN') = 'Y'
19405: THEN
19406: IF l_debug_mode = 'Y' THEN
19407: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published structure verison in PUBLISH mode', 3);
19408: END IF;
19409:
19410: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
19411: p_project_id => p_project_id,
19414: x_msg_count => x_msg_count,
19415: x_msg_data => x_msg_data);
19416:
19417: IF l_debug_mode = 'Y' THEN
19418: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published structure version in PUBLISH mode x_return_status='||x_return_status, 3);
19419: END IF;
19420:
19421: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19422: RAISE Invalid_Arg_Exc_WP;
19428: --end bug 4287813
19429: --end bug 4541039
19430:
19431: IF l_debug_mode = 'Y' THEN
19432: pa_debug.write(G_PKG_NAME, 'Calling Task_Stat_Pushdown_Rollup', 3);
19433: END IF;
19434:
19435: --push down and rollup
19436: PA_STRUCT_TASK_ROLLUP_PUB.Task_Stat_Pushdown_Rollup(
19440: ,x_msg_data => x_msg_data
19441: );
19442:
19443: IF l_debug_mode = 'Y' THEN
19444: pa_debug.write(G_PKG_NAME, 'After Task_Stat_Pushdown_Rollup x_return_status='|| x_return_status, 3);
19445: END IF;
19446:
19447: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19448: RAISE Invalid_Arg_Exc_WP;
19455:
19456: BEGIN -- Bug 4284444
19457: --new published version and prev published version
19458: IF l_debug_mode = 'Y' THEN
19459: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in PUBLISH mode', 3);
19460: END IF;
19461:
19462: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
19463: p_new_struct_ver_id => l_pub_ver_id
19473: ,x_return_status => x_return_status
19474: ,x_online_flag => l_out_online_flag -- 4392189
19475: );
19476: IF l_debug_mode = 'Y' THEN
19477: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in PUBLISH mode x_return_status='|| x_return_status, 3);
19478: END IF;
19479:
19480: EXCEPTION
19481: WHEN OTHERS THEN
19492:
19493: -- Added this for FP_M changes -- Bhumesh
19494:
19495: IF l_debug_mode = 'Y' THEN
19496: pa_debug.write(G_PKG_NAME, 'Calling Pull_Summarized_Actuals', 3);
19497: END IF;
19498:
19499: PA_PROGRESS_PUB.Pull_Summarized_Actuals (
19500: P_Project_ID => l_Project_ID
19504: ,x_msg_data => x_msg_data
19505: );
19506:
19507: IF l_debug_mode = 'Y' THEN
19508: pa_debug.write(G_PKG_NAME, 'After Pull_Summarized_Actuals x_return_status='|| x_return_status, 3);
19509: END IF;
19510:
19511: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19512: RAISE Invalid_Arg_Exc_WP;
19524: FETCH get_proj_rec_ver_number INTO l_proj_record_ver_number;
19525: CLOSE get_proj_rec_ver_number;
19526:
19527: IF l_debug_mode = 'Y' THEN
19528: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PROJECT_DATES', 3);
19529: END IF;
19530:
19531: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
19532: p_validate_only => FND_API.G_FALSE
19539: ,x_msg_count => l_msg_count
19540: ,x_msg_data => l_msg_data );
19541:
19542: IF l_debug_mode = 'Y' THEN
19543: pa_debug.write(G_PKG_NAME, 'After UPDATE_PROJECT_DATES x_return_status='|| x_return_status, 3);
19544: END IF;
19545:
19546: --Check if there is any error.
19547: l_msg_count := FND_MSG_PUB.count_msg;
19564:
19565: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_proj_element_id) = 'Y') THEN
19566: --Copy to transaction date
19567: IF l_debug_mode = 'Y' THEN
19568: pa_debug.write(G_PKG_NAME, 'Calling COPY_PROJECT_DATES', 3);
19569: END IF;
19570: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
19571: p_project_id => l_project_id,
19572: x_return_status => x_return_status,
19574: x_msg_data => l_msg_data
19575: );
19576:
19577: IF l_debug_mode = 'Y' THEN
19578: pa_debug.write(G_PKG_NAME, 'After COPY_PROJECT_DATES x_return_status='|| x_return_status, 3);
19579: END IF;
19580:
19581: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19582: raise Invalid_Arg_Exc_WP;
19591:
19592: IF p_pub_prog_flag = 'Y' THEN
19593:
19594: IF l_debug_mode = 'Y' THEN
19595: pa_debug.write(G_PKG_NAME, 'Calling Publish_Progress', 3);
19596: END IF;
19597:
19598: PA_PROGRESS_PUB.Publish_Progress(
19599: p_project_id => l_Project_ID
19607: ,x_msg_data => x_msg_data
19608: );
19609:
19610: IF l_debug_mode = 'Y' THEN
19611: pa_debug.write(G_PKG_NAME, 'After Publish_Progress x_return_status='|| x_return_status, 3);
19612: END IF;
19613:
19614: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19615: raise Invalid_Arg_Exc_WP;
19627: l_copy_actuals_flag := 'N';
19628: END IF;
19629:
19630: IF l_debug_mode = 'Y' THEN
19631: pa_debug.write(G_PKG_NAME, 'Calling COPY_PROGRESS_ACT_ETC', 3);
19632: END IF;
19633:
19634: PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC(
19635: p_project_id => l_Project_ID
19644: ,x_msg_data => x_msg_data
19645: );
19646:
19647: IF l_debug_mode = 'Y' THEN
19648: pa_debug.write(G_PKG_NAME, 'After COPY_PROGRESS_ACT_ETC x_return_status='|| x_return_status, 3);
19649: END IF;
19650:
19651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19652: raise Invalid_Arg_Exc_WP;
19660: --bug 4587145
19661: BEGIN
19662:
19663: IF l_debug_mode = 'Y' THEN
19664: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in PUBLISH mode', 3);
19665: END IF;
19666:
19667: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
19668: p_project_id => l_project_id,
19669: p_plan_type_id => -1,
19670: p_proj_str_ver_id => l_pub_ver_id) ;
19671:
19672: IF l_debug_mode = 'Y' THEN
19673: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in PUBLISH mode='||l_plan_version_id, 3);
19674: END IF;
19675:
19676: EXCEPTION
19677: WHEN OTHERS THEN
19683: END;
19684: --end bug 4587145
19685:
19686: IF l_debug_mode = 'Y' THEN
19687: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in PUBLISH mode', 3);
19688: END IF;
19689:
19690: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
19691: p_plan_version_id => l_plan_version_id, --bug 4587145
19691: p_plan_version_id => l_plan_version_id, --bug 4587145
19692: x_return_status => x_return_status);
19693:
19694: IF l_debug_mode = 'Y' THEN
19695: pa_debug.write(G_PKG_NAME, 'After PLAN_UPDATE in PUBLISH mode x_return_status='|| x_return_status, 3);
19696: END IF;
19697:
19698: EXCEPTION
19699: WHEN OTHERS THEN
19713:
19714: IF p_pub_prog_flag = 'Y' AND l_as_of_date IS NOT NULL THEN
19715:
19716: IF l_debug_mode = 'Y' THEN
19717: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
19718: END IF;
19719:
19720: pa_progress_pub.populate_pji_tab_for_plan(
19721: p_init_msg_list => FND_API.G_FALSE
19731: ,x_msg_count => x_msg_count
19732: ,x_msg_data => x_msg_data);
19733:
19734: IF l_debug_mode = 'Y' THEN
19735: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
19736: END IF;
19737:
19738: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19739: raise Invalid_Arg_Exc_WP;
19739: raise Invalid_Arg_Exc_WP;
19740: END IF;
19741:
19742: IF l_debug_mode = 'Y' THEN
19743: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
19744: END IF;
19745:
19746: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19747: p_init_msg_list => FND_API.G_FALSE
19757: ,x_msg_count => x_msg_count
19758: ,x_msg_data => x_msg_data);
19759:
19760: IF l_debug_mode = 'Y' THEN
19761: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
19762: END IF;
19763:
19764: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19765: raise Invalid_Arg_Exc_WP;
19769: /*
19770: -- 4392189 : Added PROGRAM_ROLLUP_PVT call
19771:
19772: IF l_debug_mode = 'Y' THEN
19773: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
19774: END IF;
19775:
19776: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19777: p_init_msg_list => FND_API.G_FALSE
19785: ,x_msg_count => x_msg_count
19786: ,x_msg_data => x_msg_data);
19787:
19788: IF l_debug_mode = 'Y' THEN
19789: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
19790: END IF;
19791:
19792: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19793: raise Invalid_Arg_Exc_WP;
19797:
19798: IF p_pub_prog_flag = 'Y' THEN
19799: -- 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
19800: IF l_debug_mode = 'Y' THEN
19801: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
19802: END IF;
19803:
19804: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
19805: p_init_msg_list => FND_API.G_FALSE
19811: ,x_msg_count => x_msg_count
19812: ,x_msg_data => x_msg_data);
19813:
19814: IF l_debug_mode = 'Y' THEN
19815: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
19816: END IF;
19817:
19818: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19819: raise Invalid_Arg_Exc_WP;
19820: END IF;
19821:
19822: --bug 3851528
19823: IF l_debug_mode = 'Y' THEN
19824: pa_debug.write(G_PKG_NAME, 'Calling clear_prog_outdated_flag', 3);
19825: END IF;
19826:
19827: PA_PROGRESS_UTILS.clear_prog_outdated_flag(
19828: p_project_id => l_Project_ID
19833: ,x_msg_count => x_msg_count
19834: ,x_msg_data => x_msg_data);
19835:
19836: IF l_debug_mode = 'Y' THEN
19837: pa_debug.write(G_PKG_NAME, 'After clear_prog_outdated_flag x_return_status='|| x_return_status, 3);
19838: END IF;
19839:
19840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19841: raise Invalid_Arg_Exc_WP;
19857: parent project, he wil the message to run process wbs in order to see correct program rollup.
19858: But now publishing of a sub-project will push the data to all its parent. This change in pull to
19859: push mechanics does not require the following api call. Hence commenitng out.
19860: IF l_debug_mode = 'Y' THEN
19861: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PARENT_WBS_FLAG_DIRTY', 3);
19862: END IF;
19863:
19864: PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY(
19865: p_project_id => l_Project_ID
19868: ,x_msg_count => x_msg_count
19869: ,x_msg_data => x_msg_data);
19870:
19871: IF l_debug_mode = 'Y' THEN
19872: pa_debug.write(G_PKG_NAME, 'After UPDATE_PARENT_WBS_FLAG_DIRTY x_return_status='|| x_return_status, 3);
19873: END IF;
19874:
19875: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19876: raise Invalid_Arg_Exc_WP;
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
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;
19914:
19915: BEGIN -- Bug 4284444
19916: --both working version
19917: IF l_debug_mode = 'Y' THEN
19918: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in UPDATE mode', 3);
19919: END IF;
19920:
19921: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
19922: p_new_struct_ver_id => p_structure_version_id
19932: ,x_online_flag => l_out_online_flag -- 4392189
19933: );
19934:
19935: IF l_debug_mode = 'Y' THEN
19936: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in UPDATE mode x_return_status='|| x_return_status, 3);
19937: END IF;
19938:
19939: EXCEPTION
19940: WHEN OTHERS THEN
19956: --bug 4587145
19957: BEGIN
19958:
19959: IF l_debug_mode = 'Y' THEN
19960: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in UPDATE mode', 3);
19961: END IF;
19962:
19963: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
19964: p_project_id => p_project_id,
19965: p_plan_type_id => -1,
19966: p_proj_str_ver_id => p_structure_version_id) ;
19967:
19968: IF l_debug_mode = 'Y' THEN
19969: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in UPDATE mode='||l_plan_version_id, 3);
19970: END IF;
19971:
19972: EXCEPTION
19973: WHEN OTHERS THEN
19979: END;
19980: --end bug 4587145
19981:
19982: IF l_debug_mode = 'Y' THEN
19983: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in UPDATE mode', 3);
19984: END IF;
19985:
19986: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
19987: p_plan_version_id => l_plan_version_id, --bug 4587145
19987: p_plan_version_id => l_plan_version_id, --bug 4587145
19988: x_return_status => x_return_status);
19989:
19990: IF l_debug_mode = 'Y' THEN
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',
20016:
20017: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
20018:
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
20030: ,x_msg_data => x_msg_data
20031: );
20032:
20033: IF l_debug_mode = 'Y' THEN
20034: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE x_return_status='|| x_return_status, 3);
20035: END IF;
20036:
20037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20038: Raise Invalid_Arg_Exc_WP;
20069:
20070: IF nvl(l_structure_type_flag,'N') = 'Y' THEN --fpm progress management changes
20071:
20072: IF l_debug_mode = 'Y' THEN
20073: pa_debug.write(G_PKG_NAME, 'Calling RE_ROLLUP_PROGRESS', 3);
20074: END IF;
20075:
20076: PA_PROGRESS_PUB.RE_ROLLUP_PROGRESS(
20077: p_project_id => p_project_id
20080: ,x_msg_count => x_msg_count
20081: ,x_msg_data => x_msg_data
20082: );
20083: IF l_debug_mode = 'Y' THEN
20084: pa_debug.write(G_PKG_NAME, 'After RE_ROLLUP_PROGRESS x_return_status='|| x_return_status, 3);
20085: END IF;
20086:
20087: -- Bug 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
20088: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id) = 'N' THEN
20086:
20087: -- Bug 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
20088: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id) = 'N' THEN
20089: IF l_debug_mode = 'Y' THEN
20090: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20091: END IF;
20092:
20093: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20094: p_init_msg_list => FND_API.G_FALSE
20100: ,x_msg_count => x_msg_count
20101: ,x_msg_data => x_msg_data);
20102:
20103: IF l_debug_mode = 'Y' THEN
20104: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20105: END IF;
20106:
20107: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20108: raise Invalid_Arg_Exc_WP;
20119: IF PA_RELATIONSHIP_UTILS.Check_link_exists( p_project_id => p_project_id
20120: ,p_link_type => 'WORKPLAN' ) = 'Y'
20121: THEN
20122: IF l_debug_mode = 'Y' THEN
20123: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in UPDATE mode', 3);
20124: END IF;
20125:
20126: PA_TASK_ASSIGNMENT_UTILS.g_apply_progress_flag := 'Y'; --although th
20127: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
20130: x_msg_count => x_msg_count,
20131: x_msg_data => x_msg_data);
20132:
20133: IF l_debug_mode = 'Y' THEN
20134: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in UPDATE mode x_return_status='||x_return_status, 3);
20135: END IF;
20136:
20137: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20138: RAISE Invalid_Arg_Exc_WP;
20164: CLOSE cur_structure_type;
20165:
20166: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
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
20176: ,x_msg_data => x_msg_data
20177: );
20178:
20179: IF l_debug_mode = 'Y' THEN
20180: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE in Copy Project Mode x_return_status='|| x_return_status, 3);
20181: END IF;
20182:
20183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20184: Raise Invalid_Arg_Exc_WP;
20194:
20195: BEGIN
20196: --both working version
20197: IF l_debug_mode = 'Y' THEN
20198: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in UPDATE mode', 3);
20199: END IF;
20200:
20201: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
20202: p_new_struct_ver_id => p_structure_version_id
20212: ,x_online_flag => l_out_online_flag -- 4392189
20213: );
20214:
20215: IF l_debug_mode = 'Y' THEN
20216: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in UPDATE mode x_return_status='
20217: || x_return_status, 3);
20218: END IF;
20219:
20220: EXCEPTION
20245: ,x_msg_data => x_msg_data
20246: );
20247:
20248: IF l_debug_mode = 'Y' THEN
20249: pa_debug.write(G_PKG_NAME, 'After set_update_wbs_flag x_return_status='|| x_return_status, 3);
20250: END IF;
20251:
20252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20253: Raise Invalid_Arg_Exc_WP;
20257: commit;
20258: END IF;
20259:
20260: IF l_debug_mode = 'Y' THEN
20261: pa_debug.write(G_PKG_NAME, 'Exiting PROCESS_WBS_UPDATES', l_debug_level3);
20262: pa_debug.reset_curr_function;
20263: END IF;
20264: EXCEPTION
20265:
20258: END IF;
20259:
20260: IF l_debug_mode = 'Y' THEN
20261: pa_debug.write(G_PKG_NAME, 'Exiting PROCESS_WBS_UPDATES', l_debug_level3);
20262: pa_debug.reset_curr_function;
20263: END IF;
20264: EXCEPTION
20265:
20266: WHEN Invalid_Arg_Exc_WP THEN
20285: ELSE
20286: x_msg_count := l_msg_count;
20287: END IF;
20288: IF l_debug_mode = 'Y' THEN
20289: pa_debug.reset_curr_function;
20290: END IF;
20291:
20292: IF p_commit = FND_API.G_TRUE THEN
20293: rollback to process_wbs_updates;
20310: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
20311: ,p_error_text => x_msg_data);
20312:
20313: IF l_debug_mode = 'Y' THEN
20314: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20315: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20316: l_debug_level5);
20317: pa_debug.reset_curr_function;
20318: END IF;
20311: ,p_error_text => x_msg_data);
20312:
20313: IF l_debug_mode = 'Y' THEN
20314: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20315: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20316: l_debug_level5);
20317: pa_debug.reset_curr_function;
20318: END IF;
20319:
20313: IF l_debug_mode = 'Y' THEN
20314: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20315: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20316: l_debug_level5);
20317: pa_debug.reset_curr_function;
20318: END IF;
20319:
20320: IF p_commit = FND_API.G_TRUE THEN
20321: rollback to process_wbs_updates;
20489: END IF;
20490:
20491: x_msg_count := 0;
20492: x_return_status := FND_API.G_RET_STS_SUCCESS;
20493: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20494:
20495: IF l_debug_mode = 'Y' THEN
20496: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
20497: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20492: x_return_status := FND_API.G_RET_STS_SUCCESS;
20493: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20494:
20495: IF l_debug_mode = 'Y' THEN
20496: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
20497: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20498: l_debug_level3);
20499:
20500: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
20493: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20494:
20495: IF l_debug_mode = 'Y' THEN
20496: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
20497: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20498: l_debug_level3);
20499:
20500: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
20501: p_debug_mode => l_debug_mode );
20496: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
20497: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20498: l_debug_level3);
20499:
20500: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
20501: p_debug_mode => l_debug_mode );
20502: END IF;
20503:
20504: -- Check for business rules violations
20502: END IF;
20503:
20504: -- Check for business rules violations
20505: IF l_debug_mode = 'Y' THEN
20506: pa_debug.g_err_stage:= 'Validating input parameters';
20507: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20508: l_debug_level3);
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20503:
20504: -- Check for business rules violations
20505: IF l_debug_mode = 'Y' THEN
20506: pa_debug.g_err_stage:= 'Validating input parameters';
20507: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20508: l_debug_level3);
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20511: l_debug_level3);
20505: IF l_debug_mode = 'Y' THEN
20506: pa_debug.g_err_stage:= 'Validating input parameters';
20507: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20508: l_debug_level3);
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20511: l_debug_level3);
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20506: pa_debug.g_err_stage:= 'Validating input parameters';
20507: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20508: l_debug_level3);
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20511: l_debug_level3);
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20514: l_debug_level3);
20508: l_debug_level3);
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20511: l_debug_level3);
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20514: l_debug_level3);
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20509: pa_debug.g_err_stage:= 'Input Parameter Values';
20510: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20511: l_debug_level3);
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20514: l_debug_level3);
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20517: l_debug_level3);
20511: l_debug_level3);
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20514: l_debug_level3);
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20517: l_debug_level3);
20518: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
20519: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20512: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
20513: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20514: l_debug_level3);
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20517: l_debug_level3);
20518: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
20519: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20520: l_debug_level3);
20514: l_debug_level3);
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20517: l_debug_level3);
20518: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
20519: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20520: l_debug_level3);
20521: END IF;
20522:
20515: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
20516: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20517: l_debug_level3);
20518: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
20519: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20520: l_debug_level3);
20521: END IF;
20522:
20523: IF (p_project_id IS NULL) OR
20543: l_task_weighting_basis := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
20544:
20545: IF l_task_weighting_basis is NULL THEN
20546: IF l_debug_mode = 'Y' THEN
20547: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is NULL';
20548: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20549: END IF;
20550: RAISE Invalid_Arg_Exc_WP;
20551: END IF;
20544:
20545: IF l_task_weighting_basis is NULL THEN
20546: IF l_debug_mode = 'Y' THEN
20547: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is NULL';
20548: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20549: END IF;
20550: RAISE Invalid_Arg_Exc_WP;
20551: END IF;
20552:
20551: END IF;
20552:
20553: IF l_task_weighting_basis = L_BASIS_MANUAL THEN
20554: IF l_debug_mode = 'Y' THEN
20555: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
20556: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20557: l_debug_level3);
20558: pa_debug.reset_curr_function;
20559: END IF;
20552:
20553: IF l_task_weighting_basis = L_BASIS_MANUAL THEN
20554: IF l_debug_mode = 'Y' THEN
20555: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
20556: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20557: l_debug_level3);
20558: pa_debug.reset_curr_function;
20559: END IF;
20560: RETURN;
20554: IF l_debug_mode = 'Y' THEN
20555: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
20556: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20557: l_debug_level3);
20558: pa_debug.reset_curr_function;
20559: END IF;
20560: RETURN;
20561: END IF;
20562:
20584:
20585: --bug 4726889 performance fix to provide plan version id in the cursor cur_task_info
20586: BEGIN
20587: IF l_debug_mode = 'Y' THEN
20588: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id', 3);
20589: END IF;
20590: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
20591: p_project_id => p_project_id,
20592: p_plan_type_id => -1,
20592: p_plan_type_id => -1,
20593: p_proj_str_ver_id => p_structure_version_id) ;
20594:
20595: IF l_debug_mode = 'Y' THEN
20596: pa_debug.write(G_PKG_NAME, 'l_plan_version_id='||l_plan_version_id, 3);
20597: END IF;
20598:
20599: EXCEPTION
20600: WHEN OTHERS THEN
20632: ,l_prog_enable_flag_fetch_tbl
20633: LIMIT l_plsql_max_array_size;
20634:
20635: IF l_debug_mode = 'Y' THEN
20636: pa_debug.g_err_stage:= 'Fetched ' || cur_task_info%rowcount || ' records for processing';
20637: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20638: END IF;
20639:
20640: IF nvl(l_object_rel_id_fetch_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
20633: LIMIT l_plsql_max_array_size;
20634:
20635: IF l_debug_mode = 'Y' THEN
20636: pa_debug.g_err_stage:= 'Fetched ' || cur_task_info%rowcount || ' records for processing';
20637: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20638: END IF;
20639:
20640: IF nvl(l_object_rel_id_fetch_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
20641: FOR i in l_object_rel_id_fetch_tbl.first..l_object_rel_id_fetch_tbl.last LOOP
20678: EXIT WHEN nvl(l_object_rel_id_fetch_tbl.last,0) < l_plsql_max_array_size;
20679: END LOOP;
20680: CLOSE cur_task_info;
20681: IF l_debug_mode = 'Y' THEN
20682: pa_debug.g_err_stage:= 'Done with Part 1 of the Procedure';
20683: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20684: END IF;
20685: END;
20686:
20679: END LOOP;
20680: CLOSE cur_task_info;
20681: IF l_debug_mode = 'Y' THEN
20682: pa_debug.g_err_stage:= 'Done with Part 1 of the Procedure';
20683: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20684: END IF;
20685: END;
20686:
20687: -- We have the required info to calculate the task weightages in PLSQL tables.
20793: UPDATE pa_object_relationships
20794: SET weighting_percentage = l_task_weightage_tbl(i)
20795: WHERE object_relationship_id = l_object_rel_id_tbl(i);
20796: IF l_debug_mode = 'Y' THEN
20797: pa_debug.g_err_stage:= 'Updated ' || sql%rowcount || ' Records in PA_OBJECT_RELATIONSHIPS';
20798: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20799: END IF;
20800: END IF;
20801: END;
20794: SET weighting_percentage = l_task_weightage_tbl(i)
20795: WHERE object_relationship_id = l_object_rel_id_tbl(i);
20796: IF l_debug_mode = 'Y' THEN
20797: pa_debug.g_err_stage:= 'Updated ' || sql%rowcount || ' Records in PA_OBJECT_RELATIONSHIPS';
20798: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20799: END IF;
20800: END IF;
20801: END;
20802:
20804: commit;
20805: END IF;
20806:
20807: IF l_debug_mode = 'Y' THEN
20808: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
20809: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20810: l_debug_level3);
20811: pa_debug.reset_curr_function;
20812: END IF;
20805: END IF;
20806:
20807: IF l_debug_mode = 'Y' THEN
20808: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
20809: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20810: l_debug_level3);
20811: pa_debug.reset_curr_function;
20812: END IF;
20813: EXCEPTION
20807: IF l_debug_mode = 'Y' THEN
20808: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
20809: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20810: l_debug_level3);
20811: pa_debug.reset_curr_function;
20812: END IF;
20813: EXCEPTION
20814:
20815: WHEN Invalid_Arg_Exc_WP THEN
20834: ELSE
20835: x_msg_count := l_msg_count;
20836: END IF;
20837: IF l_debug_mode = 'Y' THEN
20838: pa_debug.reset_curr_function;
20839: END IF;
20840:
20841: IF p_commit = FND_API.G_TRUE THEN
20842: rollback to process_task_weightage;
20859: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
20860: ,p_error_text => x_msg_data);
20861:
20862: IF l_debug_mode = 'Y' THEN
20863: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20864: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20865: l_debug_level5);
20866: pa_debug.reset_curr_function;
20867: END IF;
20860: ,p_error_text => x_msg_data);
20861:
20862: IF l_debug_mode = 'Y' THEN
20863: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20864: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20865: l_debug_level5);
20866: pa_debug.reset_curr_function;
20867: END IF;
20868:
20862: IF l_debug_mode = 'Y' THEN
20863: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
20864: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20865: l_debug_level5);
20866: pa_debug.reset_curr_function;
20867: END IF;
20868:
20869: IF p_commit = FND_API.G_TRUE THEN
20870: rollback to process_task_weightage;
20916: END IF;
20917:
20918: x_msg_count := 0;
20919: x_return_status := FND_API.G_RET_STS_SUCCESS;
20920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20921:
20922: IF l_debug_mode = 'Y' THEN
20923: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
20924: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20919: x_return_status := FND_API.G_RET_STS_SUCCESS;
20920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20921:
20922: IF l_debug_mode = 'Y' THEN
20923: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
20924: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20925: l_debug_level3);
20926:
20927: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
20920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20921:
20922: IF l_debug_mode = 'Y' THEN
20923: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
20924: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20925: l_debug_level3);
20926:
20927: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
20928: p_debug_mode => l_debug_mode );
20923: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
20924: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20925: l_debug_level3);
20926:
20927: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
20928: p_debug_mode => l_debug_mode );
20929: END IF;
20930:
20931: -- Check for business rules violations
20929: END IF;
20930:
20931: -- Check for business rules violations
20932: IF l_debug_mode = 'Y' THEN
20933: pa_debug.g_err_stage:= 'Validating input parameters';
20934: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20935:
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20930:
20931: -- Check for business rules violations
20932: IF l_debug_mode = 'Y' THEN
20933: pa_debug.g_err_stage:= 'Validating input parameters';
20934: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20935:
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20938:
20932: IF l_debug_mode = 'Y' THEN
20933: pa_debug.g_err_stage:= 'Validating input parameters';
20934: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20935:
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20938:
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20933: pa_debug.g_err_stage:= 'Validating input parameters';
20934: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20935:
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20938:
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20941:
20935:
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20938:
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20941:
20942: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
20943: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20936: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
20937: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20938:
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20941:
20942: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
20943: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20944: END IF;
20938:
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20941:
20942: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
20943: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20944: END IF;
20945:
20946: IF (p_project_id IS NULL) OR
20939: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
20940: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20941:
20942: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
20943: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20944: END IF;
20945:
20946: IF (p_project_id IS NULL) OR
20947: (p_structure_version_id IS NULL) OR
20962: commit;
20963: END IF;
20964:
20965: IF l_debug_mode = 'Y' THEN
20966: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
20967: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20968: l_debug_level3);
20969: pa_debug.reset_curr_function;
20970: END IF;
20963: END IF;
20964:
20965: IF l_debug_mode = 'Y' THEN
20966: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
20967: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20968: l_debug_level3);
20969: pa_debug.reset_curr_function;
20970: END IF;
20971: EXCEPTION
20965: IF l_debug_mode = 'Y' THEN
20966: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
20967: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
20968: l_debug_level3);
20969: pa_debug.reset_curr_function;
20970: END IF;
20971: EXCEPTION
20972:
20973: WHEN Invalid_Arg_Exc_WP THEN
20988: ELSE
20989: x_msg_count := l_msg_count;
20990: END IF;
20991: IF l_debug_mode = 'Y' THEN
20992: pa_debug.reset_curr_function;
20993: END IF;
20994:
20995: IF p_commit = FND_API.G_TRUE THEN
20996: rollback to set_update_wbs_flag;
21009: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21010: ,p_error_text => x_msg_data);
21011:
21012: IF l_debug_mode = 'Y' THEN
21013: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21014: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21015: l_debug_level5);
21016: pa_debug.reset_curr_function;
21017: END IF;
21010: ,p_error_text => x_msg_data);
21011:
21012: IF l_debug_mode = 'Y' THEN
21013: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21014: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21015: l_debug_level5);
21016: pa_debug.reset_curr_function;
21017: END IF;
21018:
21012: IF l_debug_mode = 'Y' THEN
21013: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21014: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21015: l_debug_level5);
21016: pa_debug.reset_curr_function;
21017: END IF;
21018:
21019: IF p_commit = FND_API.G_TRUE THEN
21020: rollback to set_update_wbs_flag;
21058: ,x_msg_data => x_msg_data) ;
21059:
21060: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21061: IF l_debug_mode = 'Y' THEN
21062: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21063: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21064: END IF;
21065: Raise Invalid_Arg_Exc_WP;
21066: END IF;
21059:
21060: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21061: IF l_debug_mode = 'Y' THEN
21062: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21063: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21064: END IF;
21065: Raise Invalid_Arg_Exc_WP;
21066: END IF;
21067:
21083: ELSE
21084: x_msg_count := l_msg_count;
21085: END IF;
21086: IF l_debug_mode = 'Y' THEN
21087: pa_debug.reset_curr_function;
21088: END IF;
21089: RETURN;
21090: WHEN others THEN
21091:
21098: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21099: ,p_error_text => x_msg_data);
21100:
21101: IF l_debug_mode = 'Y' THEN
21102: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21103: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21104: pa_debug.reset_curr_function;
21105: END IF;
21106: RAISE;
21099: ,p_error_text => x_msg_data);
21100:
21101: IF l_debug_mode = 'Y' THEN
21102: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21103: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21104: pa_debug.reset_curr_function;
21105: END IF;
21106: RAISE;
21107: END PROCESS_WBS_UPDATES_WRP_FORM ;
21100:
21101: IF l_debug_mode = 'Y' THEN
21102: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21103: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21104: pa_debug.reset_curr_function;
21105: END IF;
21106: RAISE;
21107: END PROCESS_WBS_UPDATES_WRP_FORM ;
21108:
21149: BEGIN
21150:
21151: x_msg_count := 0;
21152: x_return_status := FND_API.G_RET_STS_SUCCESS;
21153: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21154: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);
21155:
21156: /* The following is the simple solution for this.
21157: Update the Process_WBS_flag only for WORKPLAN enabled structures
21199: ,x_msg_data => x_msg_data);
21200:
21201: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21202: IF l_debug_mode = 'Y' THEN
21203: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21204: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21205: END IF;
21206: Raise Invalid_Arg_Exc_WP;
21207: END IF;
21200:
21201: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21202: IF l_debug_mode = 'Y' THEN
21203: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21204: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21205: END IF;
21206: Raise Invalid_Arg_Exc_WP;
21207: END IF;
21208:
21227: ,x_msg_data => x_msg_data);
21228:
21229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21230: IF l_debug_mode = 'Y' THEN
21231: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21232: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21233: END IF;
21234: Raise Invalid_Arg_Exc_WP;
21235: END IF;
21228:
21229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21230: IF l_debug_mode = 'Y' THEN
21231: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21232: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21233: END IF;
21234: Raise Invalid_Arg_Exc_WP;
21235: END IF;
21236:
21257: ,x_msg_data => x_msg_data);
21258:
21259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21260: IF l_debug_mode = 'Y' THEN
21261: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
21262: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21263: END IF;
21264: Raise Invalid_Arg_Exc_WP;
21265: END IF;
21258:
21259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21260: IF l_debug_mode = 'Y' THEN
21261: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
21262: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21263: END IF;
21264: Raise Invalid_Arg_Exc_WP;
21265: END IF;
21266: END IF; --hsiu: 3305199 for bug with wp only project
21284: ELSE
21285: x_msg_count := l_msg_count;
21286: END IF;
21287: IF l_debug_mode = 'Y' THEN
21288: pa_debug.reset_curr_function;
21289: END IF;
21290: RETURN;
21291: WHEN others THEN
21292:
21299: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
21300: ,p_error_text => x_msg_data);
21301:
21302: IF l_debug_mode = 'Y' THEN
21303: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21304: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21305: pa_debug.reset_curr_function;
21306: END IF;
21307: RAISE;
21300: ,p_error_text => x_msg_data);
21301:
21302: IF l_debug_mode = 'Y' THEN
21303: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21304: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21305: pa_debug.reset_curr_function;
21306: END IF;
21307: RAISE;
21308: END call_process_WBS_updates;
21301:
21302: IF l_debug_mode = 'Y' THEN
21303: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21304: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21305: pa_debug.reset_curr_function;
21306: END IF;
21307: RAISE;
21308: END call_process_WBS_updates;
21309: --End 3035902 maansari
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;