[Home] [Help]
56: BEGIN
57: l_debug_mode := p_debug_mode;
58:
59: IF l_debug_mode = 'Y' THEN
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
57: l_debug_mode := p_debug_mode;
58:
59: IF l_debug_mode = 'Y' THEN
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
58:
59: IF l_debug_mode = 'Y' THEN
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
66: END IF;
59: IF l_debug_mode = 'Y' THEN
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
66: END IF;
67:
60: pa_debug.write(l_module_name, 'PA_PROJ_TASK_STRUC_PUB.handle_task_number_change Start : Passed Parameters :', l_debug_level3);
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
66: END IF;
67:
68: p_return_status := FND_API.G_RET_STS_SUCCESS;
61: pa_debug.write(l_module_name, 'p_project_id ='||p_project_id , l_debug_level3);
62: pa_debug.write(l_module_name, 'p_task_id ='||p_task_id , l_debug_level3);
63: pa_debug.write(l_module_name, 'p_in_task_number ='||p_in_task_number , l_debug_level3);
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
66: END IF;
67:
68: p_return_status := FND_API.G_RET_STS_SUCCESS;
69:
124: p_in_task_tbl(i).pm_task_reference = l_pm_task_reference THEN
125: IF p_in_task_tbl(i).pa_task_number = p_in_task_number THEN
126:
127: IF l_debug_mode = 'Y' THEN
128: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_id : ' || p_in_task_tbl(i).pa_task_id , l_debug_level3);
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
125: IF p_in_task_tbl(i).pa_task_number = p_in_task_number THEN
126:
127: IF l_debug_mode = 'Y' THEN
128: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_id : ' || p_in_task_tbl(i).pa_task_id , l_debug_level3);
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
133: pa_debug.write(l_module_name, 'p_in_task_number : ' || p_in_task_number , l_debug_level3);
126:
127: IF l_debug_mode = 'Y' THEN
128: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_id : ' || p_in_task_tbl(i).pa_task_id , l_debug_level3);
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
133: pa_debug.write(l_module_name, 'p_in_task_number : ' || p_in_task_number , l_debug_level3);
134: END IF;
127: IF l_debug_mode = 'Y' THEN
128: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_id : ' || p_in_task_tbl(i).pa_task_id , l_debug_level3);
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
133: pa_debug.write(l_module_name, 'p_in_task_number : ' || p_in_task_number , l_debug_level3);
134: END IF;
135:
128: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_id : ' || p_in_task_tbl(i).pa_task_id , l_debug_level3);
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
133: pa_debug.write(l_module_name, 'p_in_task_number : ' || p_in_task_number , l_debug_level3);
134: END IF;
135:
136: -- The task number for this task is not getting changed
129: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pm_task_reference : ' || p_in_task_tbl(i).pm_task_reference, l_debug_level3);
130: pa_debug.write(l_module_name, 'p_in_task_tbl(i).pa_task_number : ' || p_in_task_tbl(i).pa_task_number , l_debug_level3);
131: pa_debug.write(l_module_name, 'l_task_id : ' || l_task_id , l_debug_level3);
132: pa_debug.write(l_module_name, 'l_pm_task_reference : ' || l_pm_task_reference , l_debug_level3);
133: pa_debug.write(l_module_name, 'p_in_task_number : ' || p_in_task_number , l_debug_level3);
134: END IF;
135:
136: -- The task number for this task is not getting changed
137: -- Hence , we cannot update the task that we are processing
6653: BEGIN
6654:
6655: x_msg_count := 0;
6656: x_return_status := FND_API.G_RET_STS_SUCCESS;
6657: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6658:
6659: IF (p_commit = FND_API.G_TRUE) THEN
6660: SAVEPOINT copy_src_fin_ver;
6661: END IF;
6664: FND_MSG_PUB.initialize;
6665: END IF;
6666:
6667: IF l_debug_mode = 'Y' THEN
6668: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_version',
6669: p_debug_mode => l_debug_mode );
6670: END IF;
6671:
6672: IF l_debug_mode = 'Y' THEN
6669: p_debug_mode => l_debug_mode );
6670: END IF;
6671:
6672: IF l_debug_mode = 'Y' THEN
6673: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6674: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6675: l_debug_level3);
6676:
6677: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6670: END IF;
6671:
6672: IF l_debug_mode = 'Y' THEN
6673: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6674: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6675: l_debug_level3);
6676:
6677: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6678: l_debug_level3);
6673: Pa_Debug.g_err_stage:= 'Printing Input parameters';
6674: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6675: l_debug_level3);
6676:
6677: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6678: l_debug_level3);
6679:
6680: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6681: l_debug_level3);
6676:
6677: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
6678: l_debug_level3);
6679:
6680: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6681: l_debug_level3);
6682:
6683: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6684: l_debug_level3);
6679:
6680: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
6681: l_debug_level3);
6682:
6683: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6684: l_debug_level3);
6685:
6686: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6687: l_debug_level3);
6682:
6683: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
6684: l_debug_level3);
6685:
6686: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6687: l_debug_level3);
6688:
6689: Pa_Debug.WRITE(G_PKG_NAME,'p_publish_person_id'||':'||p_publish_person_id,
6690: l_debug_level3);
6685:
6686: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
6687: l_debug_level3);
6688:
6689: Pa_Debug.WRITE(G_PKG_NAME,'p_publish_person_id'||':'||p_publish_person_id,
6690: l_debug_level3);
6691: END IF;
6692:
6693: IF l_debug_mode = 'Y' THEN
6690: l_debug_level3);
6691: END IF;
6692:
6693: IF l_debug_mode = 'Y' THEN
6694: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6695: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6696: l_debug_level3);
6697: END IF;
6698:
6691: END IF;
6692:
6693: IF l_debug_mode = 'Y' THEN
6694: Pa_Debug.g_err_stage:= 'Validating Input parameters';
6695: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6696: l_debug_level3);
6697: END IF;
6698:
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6705: THEN
6706: IF l_debug_mode = 'Y' THEN
6707: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6708: p_src_project_id, p_dest_project_id, p_dest_fn_structure_id, p_shared, p_publish_person_id are NULL';
6709: Pa_Debug.WRITE(G_PKG_NAME, Pa_Debug.g_err_stage, l_debug_level3);
6710: END IF;
6711: RAISE Invalid_Arg_Exc_WP;
6705: THEN
6706: IF l_debug_mode = 'Y' THEN
6707: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6708: p_src_project_id, p_dest_project_id, p_dest_fn_structure_id, p_shared, p_publish_person_id are NULL';
6709: Pa_Debug.WRITE(G_PKG_NAME, Pa_Debug.g_err_stage, l_debug_level3);
6710: END IF;
6711: RAISE Invalid_Arg_Exc_WP;
6712: END IF;
6713:
6728: CLOSE cur_get_split_fin_ver;
6729: END IF;
6730:
6731: IF l_debug_mode = 'Y' THEN
6732: Pa_Debug.WRITE(G_PKG_NAME,'Source financial version id : '||l_src_fin_version_id, l_debug_level3);
6733: END IF;
6734:
6735: --Copy entry into pa_proj_element_versions for the financial version in the source project
6736: INSERT INTO pa_proj_element_versions(
6834: END IF;
6835: END IF;
6836:
6837: IF l_debug_mode = 'Y' THEN
6838: Pa_Debug.WRITE(G_PKG_NAME,'dest_latest_eff_pub_flag : '||dest_latest_eff_pub_flag, l_debug_level3);
6839: Pa_Debug.WRITE(G_PKG_NAME,'dest_current_flag : '||dest_current_flag, l_debug_level3);
6840: END IF;
6841:
6842: --Copy entry into pa_proj_elem_ver_structure for financial version in the source project
6835: END IF;
6836:
6837: IF l_debug_mode = 'Y' THEN
6838: Pa_Debug.WRITE(G_PKG_NAME,'dest_latest_eff_pub_flag : '||dest_latest_eff_pub_flag, l_debug_level3);
6839: Pa_Debug.WRITE(G_PKG_NAME,'dest_current_flag : '||dest_current_flag, l_debug_level3);
6840: END IF;
6841:
6842: --Copy entry into pa_proj_elem_ver_structure for financial version in the source project
6843: INSERT INTO PA_PROJ_ELEM_VER_STRUCTURE(
6941: , p_procedure_name => 'copy_src_financial_version'
6942: , p_error_text => x_msg_data);
6943:
6944: IF l_debug_mode = 'Y' THEN
6945: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6946: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6947: l_debug_level5);
6948: Pa_Debug.reset_curr_function;
6949: END IF;
6942: , p_error_text => x_msg_data);
6943:
6944: IF l_debug_mode = 'Y' THEN
6945: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6946: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6947: l_debug_level5);
6948: Pa_Debug.reset_curr_function;
6949: END IF;
6950: RAISE;
6944: IF l_debug_mode = 'Y' THEN
6945: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6946: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6947: l_debug_level5);
6948: Pa_Debug.reset_curr_function;
6949: END IF;
6950: RAISE;
6951:
6952: WHEN OTHERS THEN
6963: , p_procedure_name => 'copy_src_financial_version'
6964: , p_error_text => x_msg_data);
6965:
6966: IF l_debug_mode = 'Y' THEN
6967: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6968: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6969: l_debug_level5);
6970: Pa_Debug.reset_curr_function;
6971: END IF;
6964: , p_error_text => x_msg_data);
6965:
6966: IF l_debug_mode = 'Y' THEN
6967: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6968: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6969: l_debug_level5);
6970: Pa_Debug.reset_curr_function;
6971: END IF;
6972: RAISE;
6966: IF l_debug_mode = 'Y' THEN
6967: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6968: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6969: l_debug_level5);
6970: Pa_Debug.reset_curr_function;
6971: END IF;
6972: RAISE;
6973:
6974: END copy_src_financial_version;
7157:
7158:
7159: x_msg_count := 0;
7160: x_return_status := FND_API.G_RET_STS_SUCCESS;
7161: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7162:
7163: IF (p_commit = FND_API.G_TRUE) THEN
7164: SAVEPOINT copy_src_fin_ver_tasks;
7165: END IF;
7168: FND_MSG_PUB.initialize;
7169: END IF;
7170:
7171: IF l_debug_mode = 'Y' THEN
7172: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_ver_tasks',
7173: p_debug_mode => l_debug_mode );
7174: END IF;
7175:
7176: IF l_debug_mode = 'Y' THEN
7173: p_debug_mode => l_debug_mode );
7174: END IF;
7175:
7176: IF l_debug_mode = 'Y' THEN
7177: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7178: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7179: l_debug_level3);
7180:
7181: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7174: END IF;
7175:
7176: IF l_debug_mode = 'Y' THEN
7177: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7178: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7179: l_debug_level3);
7180:
7181: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7182: l_debug_level3);
7177: Pa_Debug.g_err_stage:= 'Printing Input parameters';
7178: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7179: l_debug_level3);
7180:
7181: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7182: l_debug_level3);
7183:
7184: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7185: l_debug_level3);
7180:
7181: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
7182: l_debug_level3);
7183:
7184: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7185: l_debug_level3);
7186:
7187: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
7188: l_debug_level3);
7183:
7184: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
7185: l_debug_level3);
7186:
7187: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
7188: l_debug_level3);
7189:
7190: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
7191: l_debug_level3);
7186:
7187: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_fn_structure_id'||':'||p_dest_fn_structure_id,
7188: l_debug_level3);
7189:
7190: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
7191: l_debug_level3);
7192:
7193: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
7194: l_debug_level3);
7189:
7190: Pa_Debug.WRITE(G_PKG_NAME,'p_shared'||':'||p_shared,
7191: l_debug_level3);
7192:
7193: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
7194: l_debug_level3);
7195:
7196: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7197: l_debug_level3);
7192:
7193: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_ppevSchedules_flag'||':'||p_copy_ppevSchedules_flag,
7194: l_debug_level3);
7195:
7196: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7197: l_debug_level3);
7198:
7199: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7200: l_debug_level3);
7195:
7196: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
7197: l_debug_level3);
7198:
7199: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7200: l_debug_level3);
7201:
7202: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
7203: l_debug_level3);
7198:
7199: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
7200: l_debug_level3);
7201:
7202: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
7203: l_debug_level3);
7204: END IF;
7205:
7206: IF l_debug_mode = 'Y' THEN
7203: l_debug_level3);
7204: END IF;
7205:
7206: IF l_debug_mode = 'Y' THEN
7207: Pa_Debug.g_err_stage:= 'Validating Input parameters';
7208: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7209: l_debug_level3);
7210: END IF;
7211:
7204: END IF;
7205:
7206: IF l_debug_mode = 'Y' THEN
7207: Pa_Debug.g_err_stage:= 'Validating Input parameters';
7208: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7209: l_debug_level3);
7210: END IF;
7211:
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7219: THEN
7220: IF l_debug_mode = 'Y' THEN
7221: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
7222: p_dest_project_id, p_dest_fn_structure_id, p_shared, p_copy_ppevSchedules_flag, p_calendar_id are NULL';
7223: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7224: l_debug_level3);
7225: END IF;
7219: THEN
7220: IF l_debug_mode = 'Y' THEN
7221: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
7222: p_dest_project_id, p_dest_fn_structure_id, p_shared, p_copy_ppevSchedules_flag, p_calendar_id are NULL';
7223: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7224: l_debug_level3);
7225: END IF;
7226: RAISE Invalid_Arg_Exc_WP;
7227: END IF;
7243: CLOSE cur_get_split_fin_ver;
7244: END IF;
7245:
7246: IF l_debug_mode = 'Y' THEN
7247: Pa_Debug.WRITE(G_PKG_NAME, 'Source financial version id : '||l_src_fin_version_id, l_debug_level3);
7248: END IF;
7249:
7250: --Bug 3387963 - Added to get the cursor values
7251: OPEN cur_get_carrying_out_org;
7476: AND ppevs.project_id = p_dest_project_id
7477: AND ppevs.element_version_id = ppev2.element_version_id ;
7478:
7479: IF l_debug_mode = 'Y' THEN
7480: Pa_Debug.WRITE(G_PKG_NAME, 'Creating object relatiionships for financial tasks', l_debug_level3);
7481: END IF;
7482:
7483: --Copy relationships for structure and tasks into destination project
7484: /* Start of addition for bug 6211012 */
7755: COMMIT;
7756: END IF;
7757:
7758: IF l_debug_mode = 'Y' THEN
7759: Pa_Debug.WRITE(G_PKG_NAME, 'Exiting copy_src_financial_ver_tasks...', l_debug_level3);
7760: END IF;
7761: EXCEPTION
7762:
7763: WHEN Invalid_Arg_Exc_WP THEN
7774: , p_procedure_name => 'copy_src_financial_ver_tasks'
7775: , p_error_text => x_msg_data);
7776:
7777: IF l_debug_mode = 'Y' THEN
7778: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7779: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7780: l_debug_level5);
7781: Pa_Debug.reset_curr_function;
7782: END IF;
7775: , p_error_text => x_msg_data);
7776:
7777: IF l_debug_mode = 'Y' THEN
7778: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7779: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7780: l_debug_level5);
7781: Pa_Debug.reset_curr_function;
7782: END IF;
7783: RAISE;
7777: IF l_debug_mode = 'Y' THEN
7778: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7779: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7780: l_debug_level5);
7781: Pa_Debug.reset_curr_function;
7782: END IF;
7783: RAISE;
7784:
7785: WHEN OTHERS THEN
7796: , p_procedure_name => 'copy_src_financial_ver_tasks'
7797: , p_error_text => x_msg_data);
7798:
7799: IF l_debug_mode = 'Y' THEN
7800: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7801: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7802: l_debug_level5);
7803: Pa_Debug.reset_curr_function;
7804: END IF;
7797: , p_error_text => x_msg_data);
7798:
7799: IF l_debug_mode = 'Y' THEN
7800: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7801: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7802: l_debug_level5);
7803: Pa_Debug.reset_curr_function;
7804: END IF;
7805: RAISE;
7799: IF l_debug_mode = 'Y' THEN
7800: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7801: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7802: l_debug_level5);
7803: Pa_Debug.reset_curr_function;
7804: END IF;
7805: RAISE;
7806:
7807: END copy_src_financial_ver_tasks;
8167: BEGIN
8168:
8169: x_msg_count := 0;
8170: x_return_status := FND_API.G_RET_STS_SUCCESS;
8171: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8172:
8173: IF (p_commit = FND_API.G_TRUE) THEN
8174: SAVEPOINT copy_struc_tasks_bulk;
8175: END IF;
8178: FND_MSG_PUB.initialize;
8179: END IF;
8180:
8181: IF l_debug_mode = 'Y' THEN
8182: PA_DEBUG.set_curr_function( p_function => 'copy_structures_tasks_bulk',
8183: p_debug_mode => l_debug_mode );
8184: END IF;
8185:
8186: IF l_debug_mode = 'Y' THEN
8183: p_debug_mode => l_debug_mode );
8184: END IF;
8185:
8186: IF l_debug_mode = 'Y' THEN
8187: Pa_Debug.g_err_stage:= 'Printing Input parameters';
8188: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
8189: l_debug_level3);
8190:
8191: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
8184: END IF;
8185:
8186: IF l_debug_mode = 'Y' THEN
8187: Pa_Debug.g_err_stage:= 'Printing Input parameters';
8188: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
8189: l_debug_level3);
8190:
8191: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
8192: l_debug_level3);
8187: Pa_Debug.g_err_stage:= 'Printing Input parameters';
8188: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
8189: l_debug_level3);
8190:
8191: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
8192: l_debug_level3);
8193:
8194: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
8195: l_debug_level3);
8190:
8191: Pa_Debug.WRITE(G_PKG_NAME,'p_src_project_id'||':'||p_src_project_id,
8192: l_debug_level3);
8193:
8194: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
8195: l_debug_level3);
8196:
8197: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
8198: l_debug_level3);
8193:
8194: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_id'||':'||p_dest_project_id,
8195: l_debug_level3);
8196:
8197: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
8198: l_debug_level3);
8199:
8200: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
8201: l_debug_level3);
8196:
8197: Pa_Debug.WRITE(G_PKG_NAME,'p_delta'||':'||p_delta,
8198: l_debug_level3);
8199:
8200: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
8201: l_debug_level3);
8202:
8203: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
8204: l_debug_level3);
8199:
8200: Pa_Debug.WRITE(G_PKG_NAME,'p_copy_task_flag'||':'||p_copy_task_flag,
8201: l_debug_level3);
8202:
8203: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
8204: l_debug_level3);
8205:
8206: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
8207: l_debug_level3);
8202:
8203: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_template_flag'||':'||p_dest_template_flag,
8204: l_debug_level3);
8205:
8206: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
8207: l_debug_level3);
8208:
8209: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
8210: l_debug_level3);
8205:
8206: Pa_Debug.WRITE(G_PKG_NAME,'p_src_template_flag'||':'||p_src_template_flag,
8207: l_debug_level3);
8208:
8209: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
8210: l_debug_level3);
8211:
8212: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
8213: l_debug_level3);
8208:
8209: Pa_Debug.WRITE(G_PKG_NAME,'p_dest_project_name'||':'||p_dest_project_name,
8210: l_debug_level3);
8211:
8212: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
8213: l_debug_level3);
8214:
8215: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
8216: l_debug_level3);
8211:
8212: Pa_Debug.WRITE(G_PKG_NAME,'p_target_start_date'||':'||p_target_start_date,
8213: l_debug_level3);
8214:
8215: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
8216: l_debug_level3);
8217:
8218: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
8219: l_debug_level3);
8214:
8215: Pa_Debug.WRITE(G_PKG_NAME,'p_target_finish_date'||':'||p_target_finish_date,
8216: l_debug_level3);
8217:
8218: Pa_Debug.WRITE(G_PKG_NAME,'p_calendar_id'||':'||p_calendar_id,
8219: l_debug_level3);
8220: END IF;
8221:
8222: --If source and destination project are the same
8325:
8326: l_name := substr(p_dest_project_name, 1, 240);
8327:
8328: IF l_debug_mode = 'Y' THEN
8329: Pa_Debug.WRITE(G_PKG_NAME, 'Atleast one WP ver selected : '||l_min_one_wp_ver_sel, l_debug_level3);
8330: Pa_Debug.WRITE(G_PKG_NAME, 'Financial Tasks flag : '||l_fin_tasks_flag, l_debug_level3);
8331: END IF;
8332:
8333: --Copy workplan/financial structures into the destination project
8326: l_name := substr(p_dest_project_name, 1, 240);
8327:
8328: IF l_debug_mode = 'Y' THEN
8329: Pa_Debug.WRITE(G_PKG_NAME, 'Atleast one WP ver selected : '||l_min_one_wp_ver_sel, l_debug_level3);
8330: Pa_Debug.WRITE(G_PKG_NAME, 'Financial Tasks flag : '||l_fin_tasks_flag, l_debug_level3);
8331: END IF;
8332:
8333: --Copy workplan/financial structures into the destination project
8334: INSERT INTO pa_proj_elements(
8653: AND pppa.project_id = p_src_project_id
8654: AND pppa.object_type = 'PA_STRUCTURES' ;
8655:
8656: IF l_debug_mode = 'Y' THEN
8657: Pa_Debug.WRITE(G_PKG_NAME, 'After inserting WP/FIN structures and related attributes', l_debug_level3);
8658: END IF;
8659:
8660: ---------------------------------------------------------------------------------------------------------
8661: /**** THE FOLLOWING SECTION COPIES/INSERTS WORKPLAN VERSIONS AND TASKS INTO THE DESTINATION PROJECT ****/
8700: --If there is atleast one WP version selected for copying
8701: IF 'Y' = nvl(l_min_one_wp_ver_sel,'N') THEN
8702:
8703: IF l_debug_mode = 'Y' THEN
8704: Pa_Debug.WRITE(G_PKG_NAME, 'Inserting versions and tasks for selected WP version(s)', l_debug_level3);
8705: END IF;
8706:
8707: --Copy SELECTED workplan versions
8708: INSERT INTO pa_proj_element_versions(
8876: OPEN get_current_working_selected;
8877: FETCH get_current_working_selected INTO l_current_working_selected;
8878:
8879: IF l_debug_mode = 'Y' THEN
8880: pa_debug.write(G_PKG_NAME, 'l_puc_version_id='||l_puc_version_id, l_debug_level3);
8881: pa_debug.write(G_PKG_NAME, 'l_current_working_selected='||l_current_working_selected, l_debug_level3);
8882: END IF;
8883:
8884:
8877: FETCH get_current_working_selected INTO l_current_working_selected;
8878:
8879: IF l_debug_mode = 'Y' THEN
8880: pa_debug.write(G_PKG_NAME, 'l_puc_version_id='||l_puc_version_id, l_debug_level3);
8881: pa_debug.write(G_PKG_NAME, 'l_current_working_selected='||l_current_working_selected, l_debug_level3);
8882: END IF;
8883:
8884:
8885: --If the CURRENT WORKING version is SELECTED for copying and is NOT Publish Upon Creatiion
8902: END IF;
8903: CLOSE get_current_working_selected;
8904:
8905: IF l_debug_mode = 'Y' THEN
8906: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8907: END IF;
8908: END;
8909: END IF; --IF versioning is enabled
8910: /** END OF CODE TO DETERMINE CURRENT WORKING VERSION IN DESTINATION PROJECT **/
8909: END IF; --IF versioning is enabled
8910: /** END OF CODE TO DETERMINE CURRENT WORKING VERSION IN DESTINATION PROJECT **/
8911:
8912: IF l_debug_mode = 'Y' THEN
8913: Pa_Debug.WRITE(G_PKG_NAME, 'Source version to be set as current working in dest project : '||l_cw_version_id,
8914: l_debug_level3);
8915: Pa_Debug.WRITE(G_PKG_NAME, 'Printing l_dest_wp_structure_id: '||l_dest_wp_structure_id,
8916: l_debug_level3);
8917: END IF;
8911:
8912: IF l_debug_mode = 'Y' THEN
8913: Pa_Debug.WRITE(G_PKG_NAME, 'Source version to be set as current working in dest project : '||l_cw_version_id,
8914: l_debug_level3);
8915: Pa_Debug.WRITE(G_PKG_NAME, 'Printing l_dest_wp_structure_id: '||l_dest_wp_structure_id,
8916: l_debug_level3);
8917: END IF;
8918:
8919:
8938: --3916763 Begin
8939: l_submit_wf_required := 'N';
8940:
8941: IF l_debug_mode = 'Y' THEN
8942: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8939: l_submit_wf_required := 'N';
8940:
8941: IF l_debug_mode = 'Y' THEN
8942: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8940:
8941: IF l_debug_mode = 'Y' THEN
8942: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8948: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8941: IF l_debug_mode = 'Y' THEN
8942: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8948: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8949: END IF;
8942: pa_debug.write(G_PKG_NAME, 'l_workplan_enabled='||l_workplan_enabled, l_debug_level3);
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8948: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8949: END IF;
8950:
8943: pa_debug.write(G_PKG_NAME, 'l_versioning_enabled='||l_versioning_enabled, l_debug_level3);
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8948: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8949: END IF;
8950:
8951: 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
8944: pa_debug.write(G_PKG_NAME, 'l_min_one_wp_ver_sel='||l_min_one_wp_ver_sel, l_debug_level3);
8945: pa_debug.write(G_PKG_NAME, 'l_cw_version_id='||l_cw_version_id, l_debug_level3);
8946: pa_debug.write(G_PKG_NAME, 'rec_dest_wp_struc_versions.attribute15='||rec_dest_wp_struc_versions.attribute15, l_debug_level3);
8947: pa_debug.write(G_PKG_NAME, 'l_shared='||l_shared, l_debug_level3);
8948: pa_debug.write(G_PKG_NAME, 'p_dest_template_flag='||p_dest_template_flag, l_debug_level3);
8949: END IF;
8950:
8951: 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
8952: OPEN c_get_approval_options;
8953: FETCH c_get_approval_options INTO l_wp_approval_reqd_flag, l_wp_auto_publish_flag,l_wp_approver_source_id;
8954: CLOSE c_get_approval_options;
8955:
8956: IF l_debug_mode = 'Y' THEN
8957: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8958: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8959: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8960: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8961: END IF;
8954: CLOSE c_get_approval_options;
8955:
8956: IF l_debug_mode = 'Y' THEN
8957: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8958: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8959: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8960: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8961: END IF;
8962:
8955:
8956: IF l_debug_mode = 'Y' THEN
8957: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8958: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8959: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8960: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8961: END IF;
8962:
8963: IF NVL(l_wp_approval_reqd_flag,'N') <> 'N' THEN
8956: IF l_debug_mode = 'Y' THEN
8957: pa_debug.write(G_PKG_NAME, 'l_wp_approval_reqd_flag='||l_wp_approval_reqd_flag, l_debug_level3);
8958: pa_debug.write(G_PKG_NAME, 'l_wp_auto_publish_flag='||l_wp_auto_publish_flag, l_debug_level3);
8959: pa_debug.write(G_PKG_NAME, 'l_wp_approver_source_id='||l_wp_approver_source_id, l_debug_level3);
8960: pa_debug.write(G_PKG_NAME, 'fnd_global.employee_id='||fnd_global.employee_id, l_debug_level3);
8961: END IF;
8962:
8963: IF NVL(l_wp_approval_reqd_flag,'N') <> 'N' THEN
8964: IF nvl(fnd_global.employee_id,-999) <> NVL(l_wp_approver_source_id,-999) THEN
8983: OPEN get_published_ver_num(p_dest_project_id, l_dest_wp_structure_id);
8984: FETCH get_published_ver_num INTO l_struct_version_number;
8985: CLOSE get_published_ver_num;
8986: IF l_debug_mode = 'Y' THEN
8987: Pa_Debug.WRITE(G_PKG_NAME, 'After Getting published version l_struct_version_number: '||l_struct_version_number,
8988: l_debug_level3);
8989: END If;
8990: --bug 3907862, end
8991:
9003: OPEN get_working_ver_num(p_dest_project_id, l_dest_wp_structure_id);
9004: FETCH get_working_ver_num INTO l_struct_version_number;
9005: CLOSE get_working_ver_num;
9006: IF l_debug_mode = 'Y' THEN
9007: Pa_Debug.WRITE(G_PKG_NAME, 'After Getting working version l_struct_version_number: '||l_struct_version_number,
9008: l_debug_level3);
9009: END If;
9010: --bug 3907862, end
9011:
9011:
9012: END IF;
9013:
9014: IF l_debug_mode = 'Y' THEN
9015: Pa_Debug.WRITE(G_PKG_NAME, 'Creating version : '||rec_dest_wp_struc_versions.element_version_id,
9016: l_debug_level3);
9017: END IF;
9018:
9019:
9135: WHERE lookup_type = 'PA_STRUCTURES_PREFIX'
9136: AND lookup_code = 'PA_PREFIX_COPY';
9137:
9138: IF l_debug_mode = 'Y' THEN
9139: Pa_Debug.WRITE(G_PKG_NAME, 'Making working copy of '||l_shared_make_working_copy,
9140: l_debug_level3);
9141: END IF;
9142:
9143: --Make a copy of the published version
9690: AND ppev2.project_id = ppe.project_id -- Bug 4141027
9691: ;
9692:
9693: IF l_debug_mode = 'Y' THEN
9694: Pa_Debug.WRITE(G_PKG_NAME, 'Going to insert object relationships',
9695: l_debug_level3);
9696: END IF;
9697:
9698: FOR rec_dest_wp_struc_versions IN cur_get_dest_wp_struc_versions(l_dest_wp_structure_id) LOOP
9991: FETCH cur_get_shared_ver_id INTO l_shared_dest_ver_id;
9992: CLOSE cur_get_shared_ver_id;
9993:
9994: IF l_debug_mode = 'Y' THEN
9995: Pa_Debug.WRITE(G_PKG_NAME, 'Calling pa_tasks sync up API for struc version :'||l_shared_dest_ver_id,
9996: l_debug_level3);
9997: END IF;
9998:
9999: --Call API to sync up tasks in pa_tasks table, with the new (shared) version [WP version copied from src]
10070: IF ('Y' = l_shared AND 'N' = l_fin_tasks_flag)
10071: OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
10072:
10073: IF l_debug_mode = 'Y' THEN
10074: Pa_Debug.WRITE(G_PKG_NAME, 'Creating new default WP version', l_debug_level3);
10075: END IF;
10076: --bug 3912603, Satish, this flag is for using this same condition below.
10077: check_str_sel_flag := 'Y';
10078:
10209: --If split and financial is enabled
10210: IF 'N' = l_shared AND 'Y' = l_fin_enabled THEN
10211:
10212: IF l_debug_mode = 'Y' THEN
10213: Pa_Debug.WRITE(G_PKG_NAME, 'Creating financial version in split case', l_debug_level3);
10214: END IF;
10215:
10216: --The following API call will copy the financial version from the source project to the destination project
10217: copy_src_financial_version( p_init_msg_list => p_init_msg_list
10237: --If copy financial tasks flag is checked
10238: IF 'Y' = l_fin_tasks_flag THEN
10239:
10240: IF l_debug_mode = 'Y' THEN
10241: Pa_Debug.WRITE(G_PKG_NAME, 'Creating financial tasks in split case', l_debug_level3);
10242: END IF;
10243:
10244: --The following API call will copy the tasks belonging to the financial version in the source project into
10245: --the destination project
10377:
10378: /* End of code changes for Bug 3922019*/
10379:
10380: IF l_debug_mode = 'Y' THEN
10381: Pa_Debug.WRITE(G_PKG_NAME, 'Copying task attachments...', l_debug_level3);
10382: END IF;
10383:
10384: --Copy Task Attachments
10385: OPEN cur_get_flag('WP_TASK_ATTACH_FLAG');
10386: FETCH cur_get_flag INTO l_wp_task_attach_flag;
10387: CLOSE cur_get_flag;
10388:
10389: IF l_debug_mode = 'Y' THEN
10390: Pa_Debug.WRITE(G_PKG_NAME, 'l_wp_task_attach_flag '||l_wp_task_attach_flag, l_debug_level3);
10391: END IF;
10392:
10393: OPEN cur_get_flag('FN_ATTACHMENTS_FLAG');
10394: FETCH cur_get_flag INTO l_fn_task_attach_flag;
10394: FETCH cur_get_flag INTO l_fn_task_attach_flag;
10395: CLOSE cur_get_flag;
10396:
10397: IF l_debug_mode = 'Y' THEN
10398: Pa_Debug.WRITE(G_PKG_NAME, 'l_fn_task_attach_flag '||l_fn_task_attach_flag, l_debug_level3);
10399: END IF;
10400:
10401: IF 'Y' = l_shared THEN
10402: IF ('Y' = l_min_one_wp_ver_sel AND 'Y' = l_wp_task_attach_flag )
10585: --IF ('Y' = l_shared AND 'N' = l_fin_tasks_flag)
10586: --OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
10587: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10588: IF l_debug_mode = 'Y' THEN
10589: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10590: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10591: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10592: END IF;
10593: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10586: --OR ('N' = l_shared AND 'Y' = l_workplan_enabled) THEN
10587: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10588: IF l_debug_mode = 'Y' THEN
10589: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10590: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10591: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10592: END IF;
10593: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10594: (
10587: IF ('Y' = check_str_sel_flag AND 'N' = nvl(l_min_one_wp_ver_sel,'N')) THEN
10588: IF l_debug_mode = 'Y' THEN
10589: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions ', l_debug_level3);
10590: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions p_dest_project_id '||p_dest_project_id, l_debug_level3);
10591: Pa_Debug.WRITE(G_PKG_NAME, 'Calling add_planning_transactions l_new_wp_ver_id '||l_new_wp_ver_id, l_debug_level3);
10592: END IF;
10593: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
10594: (
10595: p_context => 'WORKPLAN'
10603: RAISE FND_API.G_EXC_ERROR;
10604: END IF;
10605: ELSE
10606: IF l_debug_mode = 'Y' THEN
10607: Pa_Debug.WRITE(G_PKG_NAME, 'Calling copy_wp_budget_versions ', l_debug_level3);
10608: END IF;
10609: PA_FP_COPY_FROM_PKG.copy_wp_budget_versions
10610: ( p_source_project_id => p_src_project_id
10611: ,p_target_project_id => p_dest_project_id
10663:
10664: --3916763 Begin
10665:
10666: IF l_debug_mode = 'Y' THEN
10667: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10668: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10669: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10670: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10671: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10664: --3916763 Begin
10665:
10666: IF l_debug_mode = 'Y' THEN
10667: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10668: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10669: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10670: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10671: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10672: END IF;
10665:
10666: IF l_debug_mode = 'Y' THEN
10667: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10668: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10669: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10670: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10671: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10672: END IF;
10673:
10666: IF l_debug_mode = 'Y' THEN
10667: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10668: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10669: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10670: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10671: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10672: END IF;
10673:
10674: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10667: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_required='||l_submit_wf_required, l_debug_level3);
10668: Pa_Debug.WRITE(G_PKG_NAME, 'p_dest_project_id='||p_dest_project_id, l_debug_level3);
10669: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_id='||l_submit_wf_str_id, l_debug_level3);
10670: Pa_Debug.WRITE(G_PKG_NAME, 'l_submit_wf_str_version_id='||l_submit_wf_str_version_id, l_debug_level3);
10671: Pa_Debug.WRITE(G_PKG_NAME, 'fnd_global.resp_id='||fnd_global.resp_id, l_debug_level3);
10672: END IF;
10673:
10674: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10675: IF l_debug_mode = 'Y' THEN
10672: END IF;
10673:
10674: IF l_submit_wf_required = 'Y' AND l_submit_wf_str_version_id IS NOT NULL THEN
10675: IF l_debug_mode = 'Y' THEN
10676: Pa_Debug.WRITE(G_PKG_NAME, 'Calling SUBMIT_WORKPLAN ', l_debug_level3);
10677: END IF;
10678:
10679: PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN
10680: (
10687: ,x_msg_count => x_msg_count
10688: ,x_msg_data => x_msg_data
10689: );
10690: IF l_debug_mode = 'Y' THEN
10691: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10692: END IF;
10693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10694: RAISE FND_API.G_EXC_ERROR;
10695: END IF;
10702:
10703: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => p_src_project_id);
10704: IF l_Cbs_Enabled='Y' THEN
10705: IF l_debug_mode = 'Y' THEN
10706: Pa_Debug.WRITE(G_PKG_NAME, ' Create Alterante tasks, call PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project API', l_debug_level3);
10707: END IF;
10708: PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project(
10709: p_Source_Project_Id =>p_src_project_id,
10710: p_Target_Project_Id =>p_dest_project_id,
10714: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10715: RAISE FND_API.G_EXC_ERROR;
10716: END IF;
10717: IF l_debug_mode = 'Y' THEN
10718: Pa_Debug.WRITE(G_PKG_NAME, ' Created Alterante tasks for cbs enabled projects', l_debug_level3);
10719: END IF;
10720: END IF;-- Added for CBS phase 2 16470603
10721:
10722: IF (p_commit = FND_API.G_TRUE) THEN
10723: COMMIT;
10724: END IF;
10725:
10726: IF (p_debug_mode = 'Y') THEN
10727: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk END');
10728: Pa_Debug.reset_curr_function; --For bug 4252182
10729: END IF;
10730:
10731: EXCEPTION
10724: END IF;
10725:
10726: IF (p_debug_mode = 'Y') THEN
10727: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk END');
10728: Pa_Debug.reset_curr_function; --For bug 4252182
10729: END IF;
10730:
10731: EXCEPTION
10732:
10754: x_msg_count := l_msg_count;
10755: END IF;
10756:
10757: IF l_debug_mode = 'Y' THEN
10758: Pa_Debug.reset_curr_function;
10759: END IF;
10760:
10761: WHEN Invalid_Arg_Exc_WP THEN
10762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10772: , p_procedure_name => 'copy_structures_tasks_bulk'
10773: , p_error_text => x_msg_data);
10774:
10775: IF l_debug_mode = 'Y' THEN
10776: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10777: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10778: l_debug_level5);
10779: Pa_Debug.reset_curr_function;
10780: END IF;
10773: , p_error_text => x_msg_data);
10774:
10775: IF l_debug_mode = 'Y' THEN
10776: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10777: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10778: l_debug_level5);
10779: Pa_Debug.reset_curr_function;
10780: END IF;
10781: RAISE;
10775: IF l_debug_mode = 'Y' THEN
10776: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10777: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10778: l_debug_level5);
10779: Pa_Debug.reset_curr_function;
10780: END IF;
10781: RAISE;
10782:
10783: WHEN OTHERS THEN
10794: , p_procedure_name => 'copy_structures_tasks_bulk'
10795: , p_error_text => x_msg_data);
10796:
10797: IF l_debug_mode = 'Y' THEN
10798: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10799: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10800: l_debug_level5);
10801: Pa_Debug.reset_curr_function;
10802: END IF;
10795: , p_error_text => x_msg_data);
10796:
10797: IF l_debug_mode = 'Y' THEN
10798: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10799: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10800: l_debug_level5);
10801: Pa_Debug.reset_curr_function;
10802: END IF;
10803: RAISE;
10797: IF l_debug_mode = 'Y' THEN
10798: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
10799: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
10800: l_debug_level5);
10801: Pa_Debug.reset_curr_function;
10802: END IF;
10803: RAISE;
10804: END copy_structures_tasks_bulk;
10805:
11136:
11137: BEGIN
11138:
11139: IF (p_debug_mode = 'Y') THEN
11140: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
11141: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
11142: END IF;
11143:
11144: IF (p_commit = FND_API.G_TRUE) THEN
11137: BEGIN
11138:
11139: IF (p_debug_mode = 'Y') THEN
11140: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
11141: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
11142: END IF;
11143:
11144: IF (p_commit = FND_API.G_TRUE) THEN
11145: savepoint copy_structure_bulk_pvt;
13373: x_return_status := FND_API.G_RET_STS_SUCCESS;
13374:
13375:
13376: IF (p_debug_mode = 'Y') THEN
13377: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13378: END IF;
13379:
13380: EXCEPTION
13381: when FND_API.G_EXC_ERROR then
14185: END IF;
14186:
14187: x_msg_count := 0;
14188: x_return_status := FND_API.G_RET_STS_SUCCESS;
14189: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
14190:
14191: -- Moved down this code during UT.
14192: IF l_debug_mode = 'Y' THEN
14193: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
14189: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
14190:
14191: -- Moved down this code during UT.
14192: IF l_debug_mode = 'Y' THEN
14193: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
14194: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14195: l_debug_level2);
14196:
14197: --For bug 4252182
14190:
14191: -- Moved down this code during UT.
14192: IF l_debug_mode = 'Y' THEN
14193: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_STRUCTURE_BULK';
14194: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14195: l_debug_level2);
14196:
14197: --For bug 4252182
14198: pa_debug.set_curr_function( p_function => 'PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK',
14194: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14195: l_debug_level2);
14196:
14197: --For bug 4252182
14198: pa_debug.set_curr_function( p_function => 'PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK',
14199: p_debug_mode => l_debug_mode );
14200:
14201: END IF;
14202:
14202:
14203: -- Check for business rules violations
14204: IF l_debug_mode = 'Y' THEN
14205:
14206: pa_debug.g_err_stage:= 'Input parameter List :';
14207: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14208: l_debug_level3);
14209:
14210: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
14203: -- Check for business rules violations
14204: IF l_debug_mode = 'Y' THEN
14205:
14206: pa_debug.g_err_stage:= 'Input parameter List :';
14207: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14208: l_debug_level3);
14209:
14210: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
14211: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14206: pa_debug.g_err_stage:= 'Input parameter List :';
14207: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14208: l_debug_level3);
14209:
14210: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
14211: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14212: l_debug_level3);
14213:
14214: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
14207: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14208: l_debug_level3);
14209:
14210: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
14211: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14212: l_debug_level3);
14213:
14214: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
14215: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14210: pa_debug.g_err_stage:= 'p_project_id : ' || p_project_id;
14211: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14212: l_debug_level3);
14213:
14214: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
14215: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14216: l_debug_level3);
14217:
14218: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
14211: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14212: l_debug_level3);
14213:
14214: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
14215: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14216: l_debug_level3);
14217:
14218: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
14219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14214: pa_debug.g_err_stage:= 'p_pm_product_code : ' || p_pm_product_code;
14215: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14216: l_debug_level3);
14217:
14218: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
14219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14220: l_debug_level3);
14221:
14222: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
14215: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14216: l_debug_level3);
14217:
14218: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
14219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14220: l_debug_level3);
14221:
14222: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
14223: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14218: pa_debug.g_err_stage:= 'p_structure_type : ' || p_structure_type;
14219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14220: l_debug_level3);
14221:
14222: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
14223: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14224: l_debug_level3);
14225:
14226: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
14219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14220: l_debug_level3);
14221:
14222: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
14223: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14224: l_debug_level3);
14225:
14226: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
14227: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14222: pa_debug.g_err_stage:= 'p_wp_str_exists : ' || p_wp_str_exists;
14223: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14224: l_debug_level3);
14225:
14226: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
14227: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14228: l_debug_level3);
14229:
14230: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
14223: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14224: l_debug_level3);
14225:
14226: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
14227: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14228: l_debug_level3);
14229:
14230: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
14231: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14226: pa_debug.g_err_stage:= 'p_is_wp_separate_from_fn :' || p_is_wp_separate_from_fn;
14227: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14228: l_debug_level3);
14229:
14230: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
14231: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14232: l_debug_level3);
14233:
14234: -- IUP: Impact of Update_project
14227: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14228: l_debug_level3);
14229:
14230: pa_debug.g_err_stage:= 'p_is_wp_versioning_enabled :' || p_is_wp_versioning_enabled;
14231: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14232: l_debug_level3);
14233:
14234: -- IUP: Impact of Update_project
14235: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
14231: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14232: l_debug_level3);
14233:
14234: -- IUP: Impact of Update_project
14235: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
14236: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14237: l_debug_level3);
14238:
14239: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
14232: l_debug_level3);
14233:
14234: -- IUP: Impact of Update_project
14235: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
14236: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14237: l_debug_level3);
14238:
14239: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
14240: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14235: pa_debug.g_err_stage:= 'p_structure_version_id :' || p_structure_version_id;
14236: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14237: l_debug_level3);
14238:
14239: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
14240: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14241: l_debug_level3);
14242:
14243: END IF;
14236: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14237: l_debug_level3);
14238:
14239: pa_debug.g_err_stage:= 'p_sprocess_mode :' || p_process_mode;
14240: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14241: l_debug_level3);
14242:
14243: END IF;
14244:
14244:
14245:
14246: IF l_debug_mode = 'Y' THEN
14247:
14248: pa_debug.g_err_stage:= 'Validating input parameters';
14249: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14250: l_debug_level3);
14251: END IF;
14252:
14245:
14246: IF l_debug_mode = 'Y' THEN
14247:
14248: pa_debug.g_err_stage:= 'Validating input parameters';
14249: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14250: l_debug_level3);
14251: END IF;
14252:
14253: IF (p_project_id IS NULL) OR
14275: open cur_pa_temp_import(p_project_id);
14276: fetch cur_pa_temp_import into l_dummy_char;
14277: IF cur_pa_temp_import%FOUND THEN
14278: IF l_debug_mode = 'Y' THEN
14279: pa_debug.g_err_stage:= 'Records found in PA_TEMP_IMPORT_TASKS - Returning';
14280: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14281: l_debug_level3);
14282: END IF;
14283:
14276: fetch cur_pa_temp_import into l_dummy_char;
14277: IF cur_pa_temp_import%FOUND THEN
14278: IF l_debug_mode = 'Y' THEN
14279: pa_debug.g_err_stage:= 'Records found in PA_TEMP_IMPORT_TASKS - Returning';
14280: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14281: l_debug_level3);
14282: END IF;
14283:
14284: close cur_pa_temp_import;
14281: l_debug_level3);
14282: END IF;
14283:
14284: close cur_pa_temp_import;
14285: pa_debug.reset_curr_function;
14286: RETURN;
14287: END IF;
14288: close cur_pa_temp_import;*/
14289:
14407: raise Invalid_Arg_Exc_WP;
14408: END IF;
14409:
14410: IF l_debug_mode = 'Y' THEN
14411: pa_debug.g_err_stage := 'Structure is in a valid Status' ;
14412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14413: END IF;
14414:
14415: l_structure_version_id := p_structure_version_id;
14408: END IF;
14409:
14410: IF l_debug_mode = 'Y' THEN
14411: pa_debug.g_err_stage := 'Structure is in a valid Status' ;
14412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14413: END IF;
14414:
14415: l_structure_version_id := p_structure_version_id;
14416:
14419: FETCH cur_elem_ver_to_task_id INTO l_structure_id;
14420: CLOSE cur_elem_ver_to_task_id;
14421:
14422: IF l_debug_mode = 'Y' THEN
14423: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14424: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14425: l_debug_level3);
14426:
14427: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
14420: CLOSE cur_elem_ver_to_task_id;
14421:
14422: IF l_debug_mode = 'Y' THEN
14423: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14424: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14425: l_debug_level3);
14426:
14427: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
14428: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14423: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14424: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14425: l_debug_level3);
14426:
14427: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
14428: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14429: l_debug_level3);
14430:
14431: END IF;
14424: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14425: l_debug_level3);
14426:
14427: pa_debug.g_err_stage:= 'Structure version id : '|| l_structure_version_id;
14428: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14429: l_debug_level3);
14430:
14431: END IF;
14432:
14500: p_function_allowed => l_add_task_security);
14501:
14502: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14503: IF l_debug_mode = 'Y' THEN
14504: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14505: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14506: END IF;
14507: RAISE Invalid_Arg_Exc_WP;
14508: END IF;
14501:
14502: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14503: IF l_debug_mode = 'Y' THEN
14504: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14505: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14506: END IF;
14507: RAISE Invalid_Arg_Exc_WP;
14508: END IF;
14509:
14517: p_function_allowed => l_update_task_security);
14518:
14519: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14520: IF l_debug_mode = 'Y' THEN
14521: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14523: END IF;
14524: RAISE Invalid_Arg_Exc_WP;
14525: END IF;
14518:
14519: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14520: IF l_debug_mode = 'Y' THEN
14521: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14523: END IF;
14524: RAISE Invalid_Arg_Exc_WP;
14525: END IF;
14526:
14544: fetch cur_auto_pub_flag into l_auto_publish_flag;
14545: close cur_auto_pub_flag;
14546:
14547: IF l_debug_mode = 'Y' THEN
14548: pa_debug.g_err_stage:= 'Auto publish flag : '||l_auto_publish_flag;
14549: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14550: l_debug_level3);
14551: END IF;
14552: */
14545: close cur_auto_pub_flag;
14546:
14547: IF l_debug_mode = 'Y' THEN
14548: pa_debug.g_err_stage:= 'Auto publish flag : '||l_auto_publish_flag;
14549: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14550: l_debug_level3);
14551: END IF;
14552: */
14553:
14562: close get_structure;
14563: END IF;
14564:
14565: IF l_debug_mode = 'Y' THEN
14566: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14567: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14568: l_debug_level3);
14569: END IF;
14570:
14563: END IF;
14564:
14565: IF l_debug_mode = 'Y' THEN
14566: pa_debug.g_err_stage:= 'Structure id : '||l_structure_id;
14567: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14568: l_debug_level3);
14569: END IF;
14570:
14571: /* Bug 2955589. The following code is taken care of in Copy_Structures_bulk API.
14586: where project_id = p_project_id
14587: and proj_element_id = l_structure_id;
14588:
14589: IF l_debug_mode = 'Y' THEN
14590: pa_debug.g_err_stage:= 'No of updated records :' || sql%rowcount || ' for structure : ' || l_structure_id;
14591: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14592: l_debug_level3);
14593: END IF;
14594:
14587: and proj_element_id = l_structure_id;
14588:
14589: IF l_debug_mode = 'Y' THEN
14590: pa_debug.g_err_stage:= 'No of updated records :' || sql%rowcount || ' for structure : ' || l_structure_id;
14591: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14592: l_debug_level3);
14593: END IF;
14594:
14595: END IF;
14610: );
14611:
14612: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14613: IF l_debug_mode = 'Y' THEN
14614: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14616: END IF;
14617: RAISE Invalid_Arg_Exc_WP;
14618: END IF;
14611:
14612: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14613: IF l_debug_mode = 'Y' THEN
14614: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14616: END IF;
14617: RAISE Invalid_Arg_Exc_WP;
14618: END IF;
14619:
14617: RAISE Invalid_Arg_Exc_WP;
14618: END IF;
14619:
14620: IF l_debug_mode = 'Y' THEN
14621: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14622: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14623: l_debug_level3);
14624: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14625: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14618: END IF;
14619:
14620: IF l_debug_mode = 'Y' THEN
14621: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14622: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14623: l_debug_level3);
14624: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14625: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14626: l_debug_level3);
14620: IF l_debug_mode = 'Y' THEN
14621: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14622: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14623: l_debug_level3);
14624: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14625: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14626: l_debug_level3);
14627: END IF;
14628: END;
14621: pa_debug.g_err_stage:= 'Structure version id : '||l_structure_version_id;
14622: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14623: l_debug_level3);
14624: pa_debug.g_err_stage:= 'Task unpublished version status code : '||l_task_unpub_ver_status_code;
14625: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14626: l_debug_level3);
14627: END IF;
14628: END;
14629:
14678: fetch l_amg_project_csr into l_amg_segment1;
14679: close l_amg_project_csr;
14680:
14681: IF l_debug_mode = 'Y' THEN
14682: pa_debug.g_err_stage:= 'Entering Loop';
14683: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14684: l_debug_level3);
14685: END IF;
14686: -- Do the processing for all the tasks in the plsql table.
14679: close l_amg_project_csr;
14680:
14681: IF l_debug_mode = 'Y' THEN
14682: pa_debug.g_err_stage:= 'Entering Loop';
14683: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14684: l_debug_level3);
14685: END IF;
14686: -- Do the processing for all the tasks in the plsql table.
14687:
14881:
14882: END IF; -- IF l_task_in_rec.pa_task_id IS NULL
14883:
14884: IF l_debug_mode = 'Y' THEN
14885: pa_debug.g_err_stage:= 'Done with the validations';
14886: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14887: l_debug_level3);
14888: END IF;
14889:
14882: END IF; -- IF l_task_in_rec.pa_task_id IS NULL
14883:
14884: IF l_debug_mode = 'Y' THEN
14885: pa_debug.g_err_stage:= 'Done with the validations';
14886: pa_debug.write(l_module_name,pa_debug.g_err_stage,
14887: l_debug_level3);
14888: END IF;
14889:
14890: -- This block does following:
15009: l_cur_pa_tasks_rec.description := l_task_in_rec.task_description;
15010:
15011: ELSE -- structure type is financial
15012: IF l_debug_mode = 'Y' THEN
15013: pa_debug.g_err_stage:= 'Task Id in out table: '||px_tasks_out_tbl(i).pa_task_id;
15014: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15015: l_debug_level3);
15016: END IF;
15017:
15010:
15011: ELSE -- structure type is financial
15012: IF l_debug_mode = 'Y' THEN
15013: pa_debug.g_err_stage:= 'Task Id in out table: '||px_tasks_out_tbl(i).pa_task_id;
15014: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15015: l_debug_level3);
15016: END IF;
15017:
15018: l_task_id := px_tasks_out_tbl(i).pa_task_id;
15020: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15021: close cur_pa_tasks;
15022:
15023: IF l_debug_mode = 'Y' THEN
15024: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
15025: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15026: l_debug_level3);
15027: END IF;
15028: /** Code changes for bug 4120380. For new tasks similar case mentioned above for workplan.**/
15021: close cur_pa_tasks;
15022:
15023: IF l_debug_mode = 'Y' THEN
15024: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
15025: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15026: l_debug_level3);
15027: END IF;
15028: /** Code changes for bug 4120380. For new tasks similar case mentioned above for workplan.**/
15029: /* bug#5243018 : Reverting the fix in Bug 4120380
15037:
15038: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
15039:
15040: IF l_debug_mode = 'Y' THEN
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15043: l_debug_level3);
15044: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
15045: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15038: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
15039:
15040: IF l_debug_mode = 'Y' THEN
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15043: l_debug_level3);
15044: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
15045: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15046: l_debug_level3);
15040: IF l_debug_mode = 'Y' THEN
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15043: l_debug_level3);
15044: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
15045: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15046: l_debug_level3);
15047: END IF;
15048:
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15043: l_debug_level3);
15044: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
15045: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15046: l_debug_level3);
15047: END IF;
15048:
15049: l_WBS_changed_flag := 'Y'; --bug 3010538
15253: /*Bug 11689028 start*/
15254: handle_task_number_change(p_project_id, l_task_in_rec.pa_task_id, l_task_in_rec.pa_task_number, p_tasks_in_tbl , l_structure_id, l_debug_mode, x_return_status) ;
15255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15256: IF l_debug_mode = 'Y' THEN
15257: pa_debug.g_err_stage := 'Error calling handle_task_number_change : ' || l_task_in_rec.pa_task_id ;
15258: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15259: END IF;
15260: Raise Invalid_Arg_Exc_WP;
15261: END IF;
15254: handle_task_number_change(p_project_id, l_task_in_rec.pa_task_id, l_task_in_rec.pa_task_number, p_tasks_in_tbl , l_structure_id, l_debug_mode, x_return_status) ;
15255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15256: IF l_debug_mode = 'Y' THEN
15257: pa_debug.g_err_stage := 'Error calling handle_task_number_change : ' || l_task_in_rec.pa_task_id ;
15258: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15259: END IF;
15260: Raise Invalid_Arg_Exc_WP;
15261: END IF;
15262: /*Bug 11689028 end */
15271: THEN
15272: IF p_create_task_version_only = 'N' THEN
15273:
15274: IF l_debug_mode = 'Y' THEN
15275: pa_debug.g_err_stage := 'Calling API PA_TASK_PUB1.create_task';
15276: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15277: END IF;
15278: PA_TASK_PUB1.create_task(
15279: p_api_version => p_api_version_number
15272: IF p_create_task_version_only = 'N' THEN
15273:
15274: IF l_debug_mode = 'Y' THEN
15275: pa_debug.g_err_stage := 'Calling API PA_TASK_PUB1.create_task';
15276: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15277: END IF;
15278: PA_TASK_PUB1.create_task(
15279: p_api_version => p_api_version_number
15280: ,p_commit => p_commit
15320: px_tasks_out_tbl(i).return_status := x_return_status;
15321:
15322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15323: IF l_debug_mode = 'Y' THEN
15324: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
15325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15326: END IF;
15327: Raise Invalid_Arg_Exc_WP;
15328: END IF;
15321:
15322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15323: IF l_debug_mode = 'Y' THEN
15324: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
15325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15326: END IF;
15327: Raise Invalid_Arg_Exc_WP;
15328: END IF;
15329:
15328: END IF;
15329:
15330:
15331: IF l_debug_mode = 'Y' THEN
15332: pa_debug.g_err_stage := 'task id : ' || l_task_id ;
15333: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15334: END IF;
15335:
15336: END IF; -- p_create_task_version_only = 'N'
15329:
15330:
15331: IF l_debug_mode = 'Y' THEN
15332: pa_debug.g_err_stage := 'task id : ' || l_task_id ;
15333: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15334: END IF;
15335:
15336: END IF; -- p_create_task_version_only = 'N'
15337:
15403: ,p_token2 => 'TASK'
15404: ,p_value2 => l_task_in_rec.pa_task_id);
15405: IF l_debug_mode = 'Y'
15406: THEN
15407: pa_debug.g_err_stage := 'Error in task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
15408: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15409: END IF;
15410: Raise Invalid_Arg_Exc_WP;
15411:
15404: ,p_value2 => l_task_in_rec.pa_task_id);
15405: IF l_debug_mode = 'Y'
15406: THEN
15407: pa_debug.g_err_stage := 'Error in task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
15408: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15409: END IF;
15410: Raise Invalid_Arg_Exc_WP;
15411:
15412: END IF;
15558: ,p_token2 => 'TASK'
15559: ,p_value2 => l_task_in_rec.pa_task_id);
15560: IF l_debug_mode = 'Y'
15561: THEN
15562: pa_debug.g_err_stage := 'Error in financial task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
15563: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15564: END IF;
15565: Raise Invalid_Arg_Exc_WP;
15566:
15559: ,p_value2 => l_task_in_rec.pa_task_id);
15560: IF l_debug_mode = 'Y'
15561: THEN
15562: pa_debug.g_err_stage := 'Error in financial task updation : ' || p_tasks_in_tbl(i).pa_task_id ;
15563: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15564: END IF;
15565: Raise Invalid_Arg_Exc_WP;
15566:
15567: END IF;
15599: -- As the l_parent_task_id may get populated with l_structure_id for top tasks
15600: -- but as the below code requires it be null
15601: IF l_parent_task_id = l_structure_id THEN
15602: IF l_debug_mode = 'Y' THEN
15603: 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 ;
15604: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15605: END IF;
15606: l_parent_task_id := null;
15607: END IF;
15600: -- but as the below code requires it be null
15601: IF l_parent_task_id = l_structure_id THEN
15602: IF l_debug_mode = 'Y' THEN
15603: 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 ;
15604: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15605: END IF;
15606: l_parent_task_id := null;
15607: END IF;
15608:
15607: END IF;
15608:
15609: IF l_hierarchy_count = 1 THEN
15610: IF l_debug_mode = 'Y' THEN
15611: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15613:
15614: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15608:
15609: IF l_hierarchy_count = 1 THEN
15610: IF l_debug_mode = 'Y' THEN
15611: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15613:
15614: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15616:
15610: IF l_debug_mode = 'Y' THEN
15611: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15613:
15614: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15616:
15617: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15618: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15611: pa_debug.g_err_stage := 'l_hierarchy_count is 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15613:
15614: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15616:
15617: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15618: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15619: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15614: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15616:
15617: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15618: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15619: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15620: END IF;
15621:
15622: END IF;
15615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15616:
15617: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15618: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15619: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15620: END IF;
15621:
15622: END IF;
15623:
15634: END IF;
15635: END IF;
15636: ELSE
15637: IF l_debug_mode = 'Y' THEN
15638: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15639: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15640:
15641:
15642: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15635: END IF;
15636: ELSE
15637: IF l_debug_mode = 'Y' THEN
15638: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15639: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15640:
15641:
15642: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15638: pa_debug.g_err_stage := 'l_hierarchy_count is grater then 1 : ' || p_tasks_in_tbl(i).pa_task_id ;
15639: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15640:
15641:
15642: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15644:
15645: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15646: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15639: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15640:
15641:
15642: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15644:
15645: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15646: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15647: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15642: pa_debug.g_err_stage := 'l_parent_task_id is : ' || l_parent_task_id;
15643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15644:
15645: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15646: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15647: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15648: END IF;
15649:
15650: END IF;
15643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15644:
15645: IF task_parent_id_tbl.EXISTS(l_hierarchy_count) THEN
15646: pa_debug.g_err_stage := 'The task in hierarchy is : ' || task_parent_id_tbl(l_hierarchy_count);
15647: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15648: END IF;
15649:
15650: END IF;
15651:
15664: EXIT WHEN l_temp_success = 'T' OR l_hierarchy_count = 0;
15665:
15666: END LOOP;
15667: IF l_debug_mode = 'Y' THEN
15668: pa_debug.g_err_stage := 'Value of l_hierarchy_count : ' || l_hierarchy_count ;
15669: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15670: END IF;
15671:
15672: IF l_temp_success = 'F' THEN
15665:
15666: END LOOP;
15667: IF l_debug_mode = 'Y' THEN
15668: pa_debug.g_err_stage := 'Value of l_hierarchy_count : ' || l_hierarchy_count ;
15669: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15670: END IF;
15671:
15672: IF l_temp_success = 'F' THEN
15673: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
15805: If get_child_count%ISOPEN THEN
15806: Close get_child_count;
15807: END IF;
15808: IF l_debug_mode = 'Y' THEN
15809: pa_debug.g_err_stage:= 'Error while calculating the task weightage. Task id : '||l_task_id;
15810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level6);
15811: END IF;
15812: Raise;
15813: END;
15806: Close get_child_count;
15807: END IF;
15808: IF l_debug_mode = 'Y' THEN
15809: pa_debug.g_err_stage:= 'Error while calculating the task weightage. Task id : '||l_task_id;
15810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level6);
15811: END IF;
15812: Raise;
15813: END;
15814:
16160:
16161: IF (l_return_status <> 'Y') THEN --Its required to check like this as the called API
16162: --returns return status as Y / N.
16163: IF l_debug_mode = 'Y' THEN
16164: pa_debug.g_err_stage:= 'Cannot create this task under its parent : '||l_task_id;
16165: pa_debug.write(l_module_name,pa_debug.g_err_stage,
16166: l_debug_level6);
16167: END IF;
16168:
16161: IF (l_return_status <> 'Y') THEN --Its required to check like this as the called API
16162: --returns return status as Y / N.
16163: IF l_debug_mode = 'Y' THEN
16164: pa_debug.g_err_stage:= 'Cannot create this task under its parent : '||l_task_id;
16165: pa_debug.write(l_module_name,pa_debug.g_err_stage,
16166: l_debug_level6);
16167: END IF;
16168:
16169: x_return_status := FND_API.G_RET_STS_ERROR;
16270: THEN
16271:
16272: -- Call the table handler to create a task version.
16273: IF l_debug_mode = 'Y' THEN
16274: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row';
16275: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16276: END IF;
16277: --added for 4059962 by rtarway
16278: --Derive financial task flag
16271:
16272: -- Call the table handler to create a task version.
16273: IF l_debug_mode = 'Y' THEN
16274: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row';
16275: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16276: END IF;
16277: --added for 4059962 by rtarway
16278: --Derive financial task flag
16279: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
16360: l_task_version_id_tbl(l_task_id) := l_task_version_id;
16361: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
16362:
16363: IF l_debug_mode = 'Y' THEN
16364: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
16365: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16366: END IF;
16367:
16368: -- Required to inherit task type attributes only in the case of context create_task from update project
16361: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
16362:
16363: IF l_debug_mode = 'Y' THEN
16364: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
16365: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16366: END IF;
16367:
16368: -- Required to inherit task type attributes only in the case of context create_task from update project
16369: IF p_structure_version_id IS NOT NULL
16411: END;
16412:
16413: -- Call the table handler to create a task version.
16414: IF l_debug_mode = 'Y' THEN
16415: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row';
16416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16417: END IF;
16418:
16419: -- Bug 3075609. Since atleast one task is being updated, this structure version is an
16412:
16413: -- Call the table handler to create a task version.
16414: IF l_debug_mode = 'Y' THEN
16415: pa_debug.g_err_stage := 'Calling API PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row';
16416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16417: END IF;
16418:
16419: -- Bug 3075609. Since atleast one task is being updated, this structure version is an
16420: -- existing one. Let us maintain a flag to track this so that if this flag is Y we will
16454: l_task_version_id_tbl(l_task_id) := l_task_version_id;
16455: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
16456:
16457: IF l_debug_mode = 'Y' THEN
16458: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
16459: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16460: END IF;
16461:
16462: END IF; /* After calling PA_PROJ_ELEMENT_VERSIONS_PKG Insert_Row or Update_Row*/
16455: px_tasks_out_tbl(i).task_version_id := l_task_version_id;
16456:
16457: IF l_debug_mode = 'Y' THEN
16458: pa_debug.g_err_stage := 'Task Version id : ' || l_task_version_id ;
16459: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16460: END IF;
16461:
16462: END IF; /* After calling PA_PROJ_ELEMENT_VERSIONS_PKG Insert_Row or Update_Row*/
16463:
16498: THEN
16499: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
16500: --px_tasks_out_tbl(i).return_status
16501: IF l_debug_mode = 'Y' THEN
16502: pa_debug.g_err_stage := 'Calling API create_relationship';
16503: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16504: END IF;
16505:
16506: PA_RELATIONSHIP_PUB.Create_Relationship
16499: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
16500: --px_tasks_out_tbl(i).return_status
16501: IF l_debug_mode = 'Y' THEN
16502: pa_debug.g_err_stage := 'Calling API create_relationship';
16503: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16504: END IF;
16505:
16506: PA_RELATIONSHIP_PUB.Create_Relationship
16507: (
16531:
16532: px_tasks_out_tbl(i).return_status := x_return_status;
16533: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16534: IF l_debug_mode = 'Y' THEN
16535: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16536: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16537: END IF;
16538: Raise Invalid_Arg_Exc_WP;
16539: END IF;
16532: px_tasks_out_tbl(i).return_status := x_return_status;
16533: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16534: IF l_debug_mode = 'Y' THEN
16535: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16536: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16537: END IF;
16538: Raise Invalid_Arg_Exc_WP;
16539: END IF;
16540:
16538: Raise Invalid_Arg_Exc_WP;
16539: END IF;
16540:
16541: IF l_debug_mode = 'Y' THEN
16542: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16543: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16544: END IF;
16545:
16546: ELSE -- in update task case
16539: END IF;
16540:
16541: IF l_debug_mode = 'Y' THEN
16542: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16543: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16544: END IF;
16545:
16546: ELSE -- in update task case
16547: -- Set the following variables after calling PA_RELATIONSHIP_PUB.Create_Relationship
16584: px_tasks_out_tbl(i).return_status := x_return_status;
16585:
16586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16587: IF l_debug_mode = 'Y' THEN
16588: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16589: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16590: END IF;
16591: Raise Invalid_Arg_Exc_WP;
16592: END IF;
16585:
16586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16587: IF l_debug_mode = 'Y' THEN
16588: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16589: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16590: END IF;
16591: Raise Invalid_Arg_Exc_WP;
16592: END IF;
16593:
16591: Raise Invalid_Arg_Exc_WP;
16592: END IF;
16593:
16594: IF l_debug_mode = 'Y' THEN
16595: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16596: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16597: END IF;
16598:
16599: END IF; -- After calling PA_RELATIONSHIP_PUB Create_Relationship or Update_Relationship
16592: END IF;
16593:
16594: IF l_debug_mode = 'Y' THEN
16595: pa_debug.g_err_stage := 'Relationship id : ' || l_relationship_id ;
16596: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16597: END IF;
16598:
16599: END IF; -- After calling PA_RELATIONSHIP_PUB Create_Relationship or Update_Relationship
16600:
16737: -- Create a schedule version for the task version only if the workplan
16738: -- structure is involved.
16739:
16740: IF l_debug_mode = 'Y' THEN
16741: pa_debug.g_err_stage := 'Calling API create schedule version';
16742: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16743: END IF;
16744:
16745: PA_TASK_PUB1.Create_Schedule_Version(
16738: -- structure is involved.
16739:
16740: IF l_debug_mode = 'Y' THEN
16741: pa_debug.g_err_stage := 'Calling API create schedule version';
16742: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16743: END IF;
16744:
16745: PA_TASK_PUB1.Create_Schedule_Version(
16746: p_element_version_id => l_task_version_id
16802:
16803: px_tasks_out_tbl(i).return_status := x_return_status;
16804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16805: IF l_debug_mode = 'Y' THEN
16806: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16808: END IF;
16809:
16810: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16803: px_tasks_out_tbl(i).return_status := x_return_status;
16804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16805: IF l_debug_mode = 'Y' THEN
16806: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16808: END IF;
16809:
16810: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16811: ,p_msg_name => 'PA_PS_NO_TASK_SCH_VER_CREATED');
16812: RAISE Invalid_Arg_Exc_WP;
16813: END IF;
16814:
16815: IF l_debug_mode = 'Y' THEN
16816: pa_debug.g_err_stage := 'Schedule Version id : ' || l_dummy_number ;
16817: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16818: END IF;
16819: --rtarway, 4099429 begin
16820: -- Bug 7109656
16813: END IF;
16814:
16815: IF l_debug_mode = 'Y' THEN
16816: pa_debug.g_err_stage := 'Schedule Version id : ' || l_dummy_number ;
16817: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16818: END IF;
16819: --rtarway, 4099429 begin
16820: -- Bug 7109656
16821: 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 and l_task_in_rec.planned_effort <> '0' ) THEN
16949: px_tasks_out_tbl(i).return_status := x_return_status;
16950:
16951: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16952: IF l_debug_mode = 'Y' THEN
16953: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16954: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16955: END IF;
16956:
16957: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16950:
16951: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16952: IF l_debug_mode = 'Y' THEN
16953: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16954: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16955: END IF;
16956:
16957: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
16958: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
16965: RAISE Invalid_Arg_Exc_WP;
16966: END IF;
16967:
16968: IF l_debug_mode = 'Y' THEN
16969: pa_debug.g_err_stage := 'Schedule Version id : ' || l_ver_sch_attr_rec.pev_schedule_id ;
16970: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16971: END IF;
16972:
16973: -- Start Addition 6458891
16966: END IF;
16967:
16968: IF l_debug_mode = 'Y' THEN
16969: pa_debug.g_err_stage := 'Schedule Version id : ' || l_ver_sch_attr_rec.pev_schedule_id ;
16970: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
16971: END IF;
16972:
16973: -- Start Addition 6458891
16974: l_update_task_det_flag := 'Y';
17208: ,l_prog_entry_enable_flag_tbl
17209: LIMIT l_plsql_max_array_size;
17210:
17211: IF l_debug_mode = 'Y' THEN
17212: pa_debug.g_err_stage:= 'Fetched ' || cur_get_child_info%rowcount || ' records for processing';
17213: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17214: END IF;
17215:
17216: IF nvl(l_obj_rel_id_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
17209: LIMIT l_plsql_max_array_size;
17210:
17211: IF l_debug_mode = 'Y' THEN
17212: pa_debug.g_err_stage:= 'Fetched ' || cur_get_child_info%rowcount || ' records for processing';
17213: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
17214: END IF;
17215:
17216: IF nvl(l_obj_rel_id_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
17217: FOR i in l_obj_rel_id_tbl.first..l_obj_rel_id_tbl.last LOOP
17306: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
17307: IF p_is_wp_versioning_enabled = 'N' and NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' THEN
17308:
17309: IF l_debug_mode = 'Y' THEN
17310: pa_debug.g_err_stage := 'Calling API Task status rollup';
17311: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17312: END IF;
17313:
17314: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
17307: IF p_is_wp_versioning_enabled = 'N' and NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' THEN
17308:
17309: IF l_debug_mode = 'Y' THEN
17310: pa_debug.g_err_stage := 'Calling API Task status rollup';
17311: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17312: END IF;
17313:
17314: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
17315: p_structure_version_id => l_structure_version_id
17320: );
17321:
17322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17323: IF l_debug_mode = 'Y' THEN
17324: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
17325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17326: END IF;
17327: Raise Invalid_Arg_Exc_WP;
17328: END IF;
17321:
17322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17323: IF l_debug_mode = 'Y' THEN
17324: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
17325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17326: END IF;
17327: Raise Invalid_Arg_Exc_WP;
17328: END IF;
17329:
17333:
17334:
17335: -- Rollup dates.
17336: IF l_debug_mode = 'Y' THEN
17337: pa_debug.g_err_stage := 'Calling API rollup dates';
17338: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17339: END IF;
17340: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
17341: --if no tasks are passed , this will be empty,
17334:
17335: -- Rollup dates.
17336: IF l_debug_mode = 'Y' THEN
17337: pa_debug.g_err_stage := 'Calling API rollup dates';
17338: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17339: END IF;
17340: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
17341: --if no tasks are passed , this will be empty,
17342: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
17352: ,x_return_status => x_return_status
17353: );
17354: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17355: IF l_debug_mode = 'Y' THEN
17356: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
17357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17358: END IF;
17359: Raise Invalid_Arg_Exc_WP;
17360: END IF;
17353: );
17354: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17355: IF l_debug_mode = 'Y' THEN
17356: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
17357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17358: END IF;
17359: Raise Invalid_Arg_Exc_WP;
17360: END IF;
17361: END IF;
17367: IF nvl(l_task_weight_basis_code,'-1') = 'MANUAL' AND
17368: (l_new_structure_version = 'Y' OR -- Bug 3075609. Recalculate the task weightings only if it is a
17369: nvl(p_create_task_versions_only,'N') = 'Y') THEN -- new structure version. Otherwise donot.
17370: IF l_debug_mode = 'Y' THEN
17371: pa_debug.g_err_stage := 'Calling API recalculate task weightings';
17372: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17373: END IF;
17374: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
17375: --if no tasks are passed , this will be empty,
17368: (l_new_structure_version = 'Y' OR -- Bug 3075609. Recalculate the task weightings only if it is a
17369: nvl(p_create_task_versions_only,'N') = 'Y') THEN -- new structure version. Otherwise donot.
17370: IF l_debug_mode = 'Y' THEN
17371: pa_debug.g_err_stage := 'Calling API recalculate task weightings';
17372: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17373: END IF;
17374: --Bug3802469, rtarway, this should not be called if px_tasks_out_tbl is empty, this will be empty,
17375: --if no tasks are passed , this will be empty,
17376: IF ( px_tasks_out_tbl IS NOT NULL AND px_tasks_out_tbl.count > 0)
17383: ,x_return_status => x_return_status
17384: );
17385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17386: IF l_debug_mode = 'Y' THEN
17387: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
17388: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17389: END IF;
17390: Raise Invalid_Arg_Exc_WP;
17391: END IF;
17384: );
17385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17386: IF l_debug_mode = 'Y' THEN
17387: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
17388: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17389: END IF;
17390: Raise Invalid_Arg_Exc_WP;
17391: END IF;
17392: END IF;
17409: IF nvl(l_update_wbs_flag,'N') = 'Y' THEN
17410: IF p_process_mode = 'ONLINE' THEN
17411:
17412: IF l_debug_mode = 'Y' THEN
17413: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES';
17414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17415: END IF;
17416:
17417: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17410: IF p_process_mode = 'ONLINE' THEN
17411:
17412: IF l_debug_mode = 'Y' THEN
17413: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES';
17414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17415: END IF;
17416:
17417: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17418: -- Instead of using local variables, used the out parameters for the standard parameters.
17426:
17427: -- Changed the way in which the error is handled.
17428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17429: IF l_debug_mode = 'Y' THEN
17430: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
17431: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17432: END IF;
17433: Raise Invalid_Arg_Exc_WP;
17434: END IF;
17427: -- Changed the way in which the error is handled.
17428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17429: IF l_debug_mode = 'Y' THEN
17430: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
17431: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17432: END IF;
17433: Raise Invalid_Arg_Exc_WP;
17434: END IF;
17435:
17435:
17436: ELSIF p_process_mode = 'CONCURRENT' THEN
17437:
17438: IF l_debug_mode = 'Y' THEN
17439: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES_CONC_WRP';
17440: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17441: END IF;
17442:
17443: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17436: ELSIF p_process_mode = 'CONCURRENT' THEN
17437:
17438: IF l_debug_mode = 'Y' THEN
17439: pa_debug.g_err_stage := 'Calling API PROCESS_WBS_UPDATES_CONC_WRP';
17440: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17441: END IF;
17442:
17443: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17444: -- Instead of using local variables, used the out parameters for the standard parameters.
17450: ,x_msg_data => x_msg_data ) ;
17451: -- Changed the way in which the error is handled.
17452: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17453: IF l_debug_mode = 'Y' THEN
17454: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
17455: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17456: END IF;
17457: Raise Invalid_Arg_Exc_WP;
17458: END IF;
17451: -- Changed the way in which the error is handled.
17452: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17453: IF l_debug_mode = 'Y' THEN
17454: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
17455: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17456: END IF;
17457: Raise Invalid_Arg_Exc_WP;
17458: END IF;
17459:
17466: -- skip unnecessary processing during bulk update mode
17467: IF NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' THEN
17468:
17469: IF l_debug_mode = 'Y' THEN
17470: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17467: IF NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' THEN
17468:
17469: IF l_debug_mode = 'Y' THEN
17470: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17468:
17469: IF l_debug_mode = 'Y' THEN
17470: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17476: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
17469: IF l_debug_mode = 'Y' THEN
17470: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17476: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
17477: END IF;
17470: Pa_Debug.g_err_stage:= 'Calling FP add_planning Txn APIs';
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17476: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
17477: END IF;
17478:
17471: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,l_debug_level3);
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17476: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
17477: END IF;
17478:
17479: IF ((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' ) THEN
17472: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_type='||p_structure_type,l_debug_level3);
17473: Pa_Debug.WRITE(G_PKG_NAME,'p_is_wp_separate_from_fn='||p_is_wp_separate_from_fn,l_debug_level3);
17474: Pa_Debug.WRITE(G_PKG_NAME,'p_tasks_in_tbl.count='||p_tasks_in_tbl.count,l_debug_level3);
17475: Pa_Debug.WRITE(G_PKG_NAME,'p_structure_version_id='||p_structure_version_id,l_debug_level3);
17476: Pa_Debug.WRITE(G_PKG_NAME,'l_structure_version_id='||l_structure_version_id,l_debug_level3);
17477: END IF;
17478:
17479: IF ((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' ) THEN
17480: -- 4198962 Moved call of add_planning_transactions before population of l_del_task_ver_ids
17520: CLOSE cur_wp_task_csr_duplicate;
17521: END IF;
17522:
17523: IF l_debug_mode = 'Y' THEN
17524: Pa_Debug.WRITE(G_PKG_NAME,'Create Task Context',l_debug_level3);
17525: END IF;
17526: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17527: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17528: THEN
17526: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17527: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17528: THEN
17529: IF l_debug_mode = 'Y' THEN
17530: Pa_Debug.WRITE(G_PKG_NAME,'Lowest Task With No Assignments',l_debug_level3);
17531: END IF;
17532:
17533: 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
17534: AND l_add_plan_task_id IS NULL
17533: 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
17534: AND l_add_plan_task_id IS NULL
17535: THEN
17536: IF l_debug_mode = 'Y' THEN
17537: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP add_plan_txn',l_debug_level3);
17538: END IF;
17539:
17540: l_add_task_ver_ids.extend(1);
17541: l_add_planned_effort.extend(1);
17548: l_add_start_date(l_add_start_date.count):= p_tasks_in_tbl(l_i).scheduled_start_date;
17549: l_add_end_date(l_add_end_date.count):= p_tasks_in_tbl(l_i).scheduled_finish_date;
17550: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
17551: IF l_debug_mode = 'Y' THEN
17552: 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);
17553: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
17554: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
17555: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
17556: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
17549: l_add_end_date(l_add_end_date.count):= p_tasks_in_tbl(l_i).scheduled_finish_date;
17550: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
17551: IF l_debug_mode = 'Y' THEN
17552: 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);
17553: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
17554: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
17555: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
17556: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
17557: END IF;
17550: l_pm_product_code(l_pm_product_code.count) := p_pm_product_code;
17551: IF l_debug_mode = 'Y' THEN
17552: 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);
17553: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
17554: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
17555: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
17556: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
17557: END IF;
17558: END IF;
17551: IF l_debug_mode = 'Y' THEN
17552: 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);
17553: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
17554: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
17555: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
17556: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
17557: END IF;
17558: END IF;
17559: --As per discussion with Amit we will never enter this else part
17552: 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);
17553: Pa_Debug.WRITE(G_PKG_NAME,'l_add_planned_effort='||l_add_planned_effort(l_add_planned_effort.count),l_debug_level3);
17554: Pa_Debug.WRITE(G_PKG_NAME,'l_add_start_date='||l_add_start_date(l_add_start_date.count),l_debug_level3);
17555: Pa_Debug.WRITE(G_PKG_NAME,'l_add_end_date='||l_add_end_date(l_add_end_date.count),l_debug_level3);
17556: Pa_Debug.WRITE(G_PKG_NAME,'l_pm_product_code='||l_pm_product_code(l_pm_product_code.count),l_debug_level3);
17557: END IF;
17558: END IF;
17559: --As per discussion with Amit we will never enter this else part
17560: ELSE
17558: END IF;
17559: --As per discussion with Amit we will never enter this else part
17560: ELSE
17561: IF l_debug_mode = 'Y' THEN
17562: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn',l_debug_level3);
17563: END IF;
17564: l_del_task_ver_ids.extend(1);
17565: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
17566: END IF;
17565: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
17566: END IF;
17567: ELSE -- Update Task Context
17568: IF l_debug_mode = 'Y' THEN
17569: Pa_Debug.WRITE(G_PKG_NAME,'Update Task Context',l_debug_level3);
17570: END IF;
17571:
17572: -- Bug 4078307: Changes start
17573: -- In update task flow we should be deleting all task assignments for summary-level tasks
17574: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17575: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17576: THEN
17577: IF l_debug_mode = 'Y' THEN
17578: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
17579: END IF;
17580:
17581: l_del_task_ver_ids.extend(1);
17582: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
17590: -- update_schedule_version is already calling it.
17591: null;
17592: ELSE
17593: IF l_debug_mode = 'Y' THEN
17594: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn',l_debug_level3);
17595: END IF;
17596:
17597: l_del_task_ver_ids.extend(1);
17598: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
17616: --AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y')
17617: AND l_hidden_assgn = 'Y')--modified by rtarway for BUG 4132590
17618: THEN
17619: IF l_debug_mode = 'Y' THEN
17620: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
17621: END IF;
17622:
17623: if (l_del_task_ver_ids.count = 1000) then
17624: IF l_del_task_ver_ids.exists(1) THEN
17864:
17865: --end if;
17866:
17867: IF l_debug_mode = 'Y' THEN
17868: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17869: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17870: l_debug_level2);
17871: pa_debug.reset_curr_function;
17872:
17865: --end if;
17866:
17867: IF l_debug_mode = 'Y' THEN
17868: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17869: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17870: l_debug_level2);
17871: pa_debug.reset_curr_function;
17872:
17873: END IF;
17867: IF l_debug_mode = 'Y' THEN
17868: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_STRUCTURE_BULK';
17869: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17870: l_debug_level2);
17871: pa_debug.reset_curr_function;
17872:
17873: END IF;
17874:
17875: EXCEPTION
17877: /* Start of Bug13931870 */
17878: WHEN fnd_api.g_exc_error THEN
17879:
17880: IF l_debug_mode = 'Y' THEN
17881: pa_debug.g_err_stage:= 'In fnd_api.g_exc_error exception block';
17882: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17883: l_debug_level4);
17884: END IF;
17885:
17878: WHEN fnd_api.g_exc_error THEN
17879:
17880: IF l_debug_mode = 'Y' THEN
17881: pa_debug.g_err_stage:= 'In fnd_api.g_exc_error exception block';
17882: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17883: l_debug_level4);
17884: END IF;
17885:
17886: x_return_status := FND_API.G_RET_STS_ERROR;
17946: x_msg_count := l_msg_count;
17947: END IF;
17948:
17949: IF l_debug_mode = 'Y' THEN
17950: pa_debug.reset_curr_function;
17951: END IF;
17952:
17953: IF p_commit = FND_API.G_TRUE THEN
17954: rollback to process_task_struc;
17959:
17960: WHEN Invalid_Arg_Exc_WP THEN
17961:
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage:= 'In PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc exception block';
17964: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17965: l_debug_level4);
17966: END IF;
17967:
17960: WHEN Invalid_Arg_Exc_WP THEN
17961:
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage:= 'In PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc exception block';
17964: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17965: l_debug_level4);
17966: END IF;
17967:
17968: x_return_status := FND_API.G_RET_STS_ERROR;
18031: x_msg_count := l_msg_count;
18032: END IF;
18033:
18034: IF l_debug_mode = 'Y' THEN
18035: pa_debug.reset_curr_function;
18036: END IF;
18037:
18038: IF p_commit = FND_API.G_TRUE THEN
18039: rollback to process_task_struc;
18102: ,p_error_text => x_msg_data
18103: );
18104:
18105: IF l_debug_mode = 'Y' THEN
18106: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18107: pa_debug.write(l_module_name,pa_debug.g_err_stage,
18108: l_debug_level6);
18109: pa_debug.reset_curr_function;
18110:
18103: );
18104:
18105: IF l_debug_mode = 'Y' THEN
18106: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18107: pa_debug.write(l_module_name,pa_debug.g_err_stage,
18108: l_debug_level6);
18109: pa_debug.reset_curr_function;
18110:
18111: END IF;
18105: IF l_debug_mode = 'Y' THEN
18106: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18107: pa_debug.write(l_module_name,pa_debug.g_err_stage,
18108: l_debug_level6);
18109: pa_debug.reset_curr_function;
18110:
18111: END IF;
18112:
18113: IF p_commit = FND_API.G_TRUE THEN
18281: END IF;
18282:
18283: x_msg_count := 0;
18284: x_return_status := FND_API.G_RET_STS_SUCCESS;
18285: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18286:
18287: IF l_debug_mode = 'Y' THEN
18288: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
18289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18284: x_return_status := FND_API.G_RET_STS_SUCCESS;
18285: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18286:
18287: IF l_debug_mode = 'Y' THEN
18288: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
18289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18290: l_debug_level3);
18291:
18292: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
18285: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18286:
18287: IF l_debug_mode = 'Y' THEN
18288: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
18289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18290: l_debug_level3);
18291:
18292: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
18293: p_debug_mode => l_debug_mode );
18288: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
18289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18290: l_debug_level3);
18291:
18292: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_WRP',
18293: p_debug_mode => l_debug_mode );
18294: END IF;
18295:
18296: -- Check for business rules violations
18294: END IF;
18295:
18296: -- Check for business rules violations
18297: IF l_debug_mode = 'Y' THEN
18298: pa_debug.g_err_stage:= 'Validating input parameters';
18299: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18300: l_debug_level3);
18301:
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18295:
18296: -- Check for business rules violations
18297: IF l_debug_mode = 'Y' THEN
18298: pa_debug.g_err_stage:= 'Validating input parameters';
18299: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18300: l_debug_level3);
18301:
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18303: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18298: pa_debug.g_err_stage:= 'Validating input parameters';
18299: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18300: l_debug_level3);
18301:
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18303: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18304:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18299: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18300: l_debug_level3);
18301:
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18303: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18304:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18307:
18301:
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18303: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18304:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18307:
18308: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18309: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18302: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18303: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18304:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18307:
18308: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18309: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18310:
18304:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18307:
18308: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18309: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18310:
18311: END IF;
18312:
18305: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18306: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18307:
18308: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18309: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18310:
18311: END IF;
18312:
18313: -- Throw an error if any of the mandatory parameter is NULL.
18361: END IF;
18362:
18363: -- TWUT
18364: IF l_debug_mode = 'Y' THEN
18365: pa_debug.g_err_stage := 'Update option is '||l_update_option;
18366: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18367: END IF;
18368:
18369: IF l_update_option = 'ONLINE' THEN
18362:
18363: -- TWUT
18364: IF l_debug_mode = 'Y' THEN
18365: pa_debug.g_err_stage := 'Update option is '||l_update_option;
18366: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18367: END IF;
18368:
18369: IF l_update_option = 'ONLINE' THEN
18370: pa_proj_task_struc_pub.process_wbs_updates(
18379: ,x_msg_data => x_msg_data
18380: );
18381: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18382: IF l_debug_mode = 'Y' THEN
18383: pa_debug.g_err_stage := 'Error calling online wbs update process ';
18384: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18385: END IF;
18386: Raise Invalid_Arg_Exc_WP;
18387: END IF;
18380: );
18381: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18382: IF l_debug_mode = 'Y' THEN
18383: pa_debug.g_err_stage := 'Error calling online wbs update process ';
18384: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18385: END IF;
18386: Raise Invalid_Arg_Exc_WP;
18387: END IF;
18388: ELSIF l_update_option = 'CONCURRENT' THEN
18398: ,x_msg_data => x_msg_data
18399: );
18400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18401: IF l_debug_mode = 'Y' THEN
18402: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
18403: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18404: END IF;
18405: Raise Invalid_Arg_Exc_WP;
18406: END IF;
18399: );
18400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18401: IF l_debug_mode = 'Y' THEN
18402: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
18403: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18404: END IF;
18405: Raise Invalid_Arg_Exc_WP;
18406: END IF;
18407: END IF;
18407: END IF;
18408: END;
18409:
18410: IF l_debug_mode = 'Y' THEN
18411: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
18412: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18413: l_debug_level3);
18414: pa_debug.reset_curr_function;
18415: END IF;
18408: END;
18409:
18410: IF l_debug_mode = 'Y' THEN
18411: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
18412: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18413: l_debug_level3);
18414: pa_debug.reset_curr_function;
18415: END IF;
18416: EXCEPTION
18410: IF l_debug_mode = 'Y' THEN
18411: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_WRP';
18412: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18413: l_debug_level3);
18414: pa_debug.reset_curr_function;
18415: END IF;
18416: EXCEPTION
18417:
18418: WHEN Invalid_Arg_Exc_WP THEN
18437: ELSE
18438: x_msg_count := l_msg_count;
18439: END IF;
18440: IF l_debug_mode = 'Y' THEN
18441: pa_debug.reset_curr_function;
18442: END IF;
18443:
18444: RETURN;
18445:
18458: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
18459: ,p_error_text => x_msg_data);
18460:
18461: IF l_debug_mode = 'Y' THEN
18462: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18463: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18464: l_debug_level5);
18465: pa_debug.reset_curr_function;
18466: END IF;
18459: ,p_error_text => x_msg_data);
18460:
18461: IF l_debug_mode = 'Y' THEN
18462: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18463: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18464: l_debug_level5);
18465: pa_debug.reset_curr_function;
18466: END IF;
18467: RAISE;
18461: IF l_debug_mode = 'Y' THEN
18462: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18463: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18464: l_debug_level5);
18465: pa_debug.reset_curr_function;
18466: END IF;
18467: RAISE;
18468: END PROCESS_WBS_UPDATES_WRP;
18469:
18562: END IF;
18563:
18564: x_msg_count := 0;
18565: x_return_status := FND_API.G_RET_STS_SUCCESS;
18566: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18567:
18568: IF l_debug_mode = 'Y' THEN
18569: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18565: x_return_status := FND_API.G_RET_STS_SUCCESS;
18566: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18567:
18568: IF l_debug_mode = 'Y' THEN
18569: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18571: l_debug_level3);
18572:
18573: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
18566: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18567:
18568: IF l_debug_mode = 'Y' THEN
18569: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18571: l_debug_level3);
18572:
18573: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
18574: p_debug_mode => l_debug_mode );
18569: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18570: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18571: l_debug_level3);
18572:
18573: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC_WRP',
18574: p_debug_mode => l_debug_mode );
18575: END IF;
18576:
18577: -- Check for business rules violations
18575: END IF;
18576:
18577: -- Check for business rules violations
18578: IF l_debug_mode = 'Y' THEN
18579: pa_debug.g_err_stage:= 'Validating input parameters';
18580: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18581: l_debug_level3);
18582:
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18576:
18577: -- Check for business rules violations
18578: IF l_debug_mode = 'Y' THEN
18579: pa_debug.g_err_stage:= 'Validating input parameters';
18580: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18581: l_debug_level3);
18582:
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18584: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18579: pa_debug.g_err_stage:= 'Validating input parameters';
18580: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18581: l_debug_level3);
18582:
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18584: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18585:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18580: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18581: l_debug_level3);
18582:
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18584: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18585:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18588:
18582:
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18584: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18585:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18588:
18589: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18590: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18583: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
18584: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18585:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18588:
18589: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18590: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18591:
18585:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18588:
18589: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18590: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18591:
18592: END IF;
18593:
18586: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18587: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18588:
18589: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18590: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18591:
18592: END IF;
18593:
18594: -- Throw an error if any of the mandatory parameter is NULL.
18610: IF l_update_wbs_flag = 'N' THEN
18611: -- No further processing is required for this structure version. Return.
18612: -- TWUT.
18613: IF l_debug_mode = 'Y' THEN
18614: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18615: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18616: END IF;
18617: RETURN;
18618: END IF;
18611: -- No further processing is required for this structure version. Return.
18612: -- TWUT.
18613: IF l_debug_mode = 'Y' THEN
18614: pa_debug.g_err_stage:= 'No updates required for this structure version.';
18615: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18616: END IF;
18617: RETURN;
18618: END IF;
18619: */
18645: -- End Bug # 4584710.
18646: nvl(l_update_wbs_flag,'N') = 'N')
18647: THEN
18648: IF l_debug_mode = 'Y' THEN
18649: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
18650: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
18651: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18652: END IF;
18653: -- No further processing required. Donot launch the conc process.
18646: nvl(l_update_wbs_flag,'N') = 'N')
18647: THEN
18648: IF l_debug_mode = 'Y' THEN
18649: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
18650: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
18651: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18652: END IF;
18653: -- No further processing required. Donot launch the conc process.
18654: RETURN;
18647: THEN
18648: IF l_debug_mode = 'Y' THEN
18649: -- pa_debug.g_err_stage:= 'split + workplan + MANUAL or flag = N. No further processing required';
18650: pa_debug.g_err_stage:= 'Flag = N. No further processing required';
18651: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18652: END IF;
18653: -- No further processing required. Donot launch the conc process.
18654: RETURN;
18655: END IF;
18694: );
18695:
18696: -- TWUT
18697: IF l_debug_mode = 'Y' THEN
18698: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
18699: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18700: END IF;
18701:
18702: -- Throw an error if the request could not be submitted.
18695:
18696: -- TWUT
18697: IF l_debug_mode = 'Y' THEN
18698: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
18699: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18700: END IF;
18701:
18702: -- Throw an error if the request could not be submitted.
18703: IF l_request_id = 0 THEN
18758: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
18759:
18760: -- TWUT
18761: IF l_debug_mode = 'Y' THEN
18762: pa_debug.g_err_stage := 'Calling the financial planning API after submitting the concurrent request';
18763: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18764: END IF;
18765:
18766: pa_fp_refresh_elements_pub.set_process_flag_proj(
18759:
18760: -- TWUT
18761: IF l_debug_mode = 'Y' THEN
18762: pa_debug.g_err_stage := 'Calling the financial planning API after submitting the concurrent request';
18763: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
18764: END IF;
18765:
18766: pa_fp_refresh_elements_pub.set_process_flag_proj(
18767: p_project_id => p_project_id
18773: ,x_msg_data => x_msg_data
18774: );
18775: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18776: IF l_debug_mode = 'Y' THEN
18777: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18778: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18779: END IF;
18780: Raise Invalid_Arg_Exc_WP;
18781: END IF;
18774: );
18775: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18776: IF l_debug_mode = 'Y' THEN
18777: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18778: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18779: END IF;
18780: Raise Invalid_Arg_Exc_WP;
18781: END IF;
18782: END IF;
18786:
18787: /* DO NOT ADD ANY CODE AFTER THIS COMMIT bug 3163280 */
18788:
18789: IF l_debug_mode = 'Y' THEN
18790: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18791: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18792: l_debug_level3);
18793: pa_debug.reset_curr_function;
18794: END IF;
18787: /* DO NOT ADD ANY CODE AFTER THIS COMMIT bug 3163280 */
18788:
18789: IF l_debug_mode = 'Y' THEN
18790: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18791: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18792: l_debug_level3);
18793: pa_debug.reset_curr_function;
18794: END IF;
18795: EXCEPTION
18789: IF l_debug_mode = 'Y' THEN
18790: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC_WRP';
18791: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18792: l_debug_level3);
18793: pa_debug.reset_curr_function;
18794: END IF;
18795: EXCEPTION
18796:
18797: WHEN Invalid_Arg_Exc_WP THEN
18812: ELSE
18813: x_msg_count := l_msg_count;
18814: END IF;
18815: IF l_debug_mode = 'Y' THEN
18816: pa_debug.reset_curr_function;
18817: END IF;
18818:
18819: RETURN;
18820:
18829: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18830: ,p_error_text => x_msg_data);
18831:
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18835: l_debug_level5);
18836: pa_debug.reset_curr_function;
18837: END IF;
18830: ,p_error_text => x_msg_data);
18831:
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18835: l_debug_level5);
18836: pa_debug.reset_curr_function;
18837: END IF;
18838: RAISE;
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
18834: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
18835: l_debug_level5);
18836: pa_debug.reset_curr_function;
18837: END IF;
18838: RAISE;
18839: END PROCESS_WBS_UPDATES_CONC_WRP;
18840:
18893: BEGIN
18894:
18895: savepoint process_wbs_updates_conc;
18896:
18897: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18898: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
18899: retcode := '0';
18900: errbuf := NULL;
18901:
18899: retcode := '0';
18900: errbuf := NULL;
18901:
18902: IF l_debug_mode = 'Y' THEN
18903: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18904: p_debug_mode => l_debug_mode );
18905: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18906: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18907: END IF;
18901:
18902: IF l_debug_mode = 'Y' THEN
18903: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18904: p_debug_mode => l_debug_mode );
18905: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18906: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18907: END IF;
18908:
18909: -- Check for business rules violations
18902: IF l_debug_mode = 'Y' THEN
18903: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES_CONC',
18904: p_debug_mode => l_debug_mode );
18905: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC';
18906: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18907: END IF;
18908:
18909: -- Check for business rules violations
18910: IF l_debug_mode = 'Y' THEN
18907: END IF;
18908:
18909: -- Check for business rules violations
18910: IF l_debug_mode = 'Y' THEN
18911: pa_debug.g_err_stage:= 'Validating input parameters';
18912: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18913:
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18908:
18909: -- Check for business rules violations
18910: IF l_debug_mode = 'Y' THEN
18911: pa_debug.g_err_stage:= 'Validating input parameters';
18912: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18913:
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18916:
18910: IF l_debug_mode = 'Y' THEN
18911: pa_debug.g_err_stage:= 'Validating input parameters';
18912: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18913:
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18916:
18917: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18918: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18911: pa_debug.g_err_stage:= 'Validating input parameters';
18912: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
18913:
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18916:
18917: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18918: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18919: END IF;
18913:
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18916:
18917: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18918: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18919: END IF;
18920:
18921: IF (p_project_id IS NULL) OR
18914: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
18915: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18916:
18917: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
18918: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18919: END IF;
18920:
18921: IF (p_project_id IS NULL) OR
18922: (p_structure_version_id IS NULL)
18921: IF (p_project_id IS NULL) OR
18922: (p_structure_version_id IS NULL)
18923: THEN
18924: IF l_debug_mode = 'Y' THEN
18925: pa_debug.g_err_stage:= 'Some of the mandatory parameters to this API are NULL';
18926: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18927: END IF;
18928: PA_UTILS.ADD_MESSAGE
18929: (p_app_short_name => 'PA',
18922: (p_structure_version_id IS NULL)
18923: THEN
18924: IF l_debug_mode = 'Y' THEN
18925: pa_debug.g_err_stage:= 'Some of the mandatory parameters to this API are NULL';
18926: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18927: END IF;
18928: PA_UTILS.ADD_MESSAGE
18929: (p_app_short_name => 'PA',
18930: p_msg_name => 'PA_INV_PARAM_PASSED');
18943: ,x_msg_data => l_msg_data
18944: );
18945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18946: IF l_debug_mode = 'Y' THEN
18947: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18948: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18949: END IF;
18950: Raise Invalid_Arg_Exc_WP;
18951: END IF;
18944: );
18945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18946: IF l_debug_mode = 'Y' THEN
18947: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18948: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18949: END IF;
18950: Raise Invalid_Arg_Exc_WP;
18951: END IF;
18952:
18993: );
18994:
18995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18996: IF l_debug_mode = 'Y' THEN
18997: pa_debug.g_err_stage := 'Error calling change workplan status ';
18998: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18999: END IF;
19000: Raise Invalid_Arg_Exc_WP;
19001: END IF;
18994:
18995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18996: IF l_debug_mode = 'Y' THEN
18997: pa_debug.g_err_stage := 'Error calling change workplan status ';
18998: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18999: END IF;
19000: Raise Invalid_Arg_Exc_WP;
19001: END IF;
19002:
19010: ) ;
19011:
19012: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19013: IF l_debug_mode = 'Y' THEN
19014: pa_debug.g_err_stage := 'Error starting project execution workflow';
19015: pa_debug.log_message(p_message => pa_debug.g_err_stage);
19016: END IF;
19017: Raise Invalid_Arg_Exc_WP;
19018: END IF;
19011:
19012: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19013: IF l_debug_mode = 'Y' THEN
19014: pa_debug.g_err_stage := 'Error starting project execution workflow';
19015: pa_debug.log_message(p_message => pa_debug.g_err_stage);
19016: END IF;
19017: Raise Invalid_Arg_Exc_WP;
19018: END IF;
19019:
19026: -- Commit so that the changes that have been done are commited.
19027: commit;
19028:
19029: IF l_debug_mode = 'Y' THEN
19030: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
19031: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
19032:
19033: pa_debug.reset_curr_function;
19034: END IF;
19027: commit;
19028:
19029: IF l_debug_mode = 'Y' THEN
19030: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
19031: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
19032:
19033: pa_debug.reset_curr_function;
19034: END IF;
19035: EXCEPTION
19029: IF l_debug_mode = 'Y' THEN
19030: pa_debug.g_err_stage:= 'Exiting PROCESS_WBS_UPDATES_CONC';
19031: pa_debug.log_message(p_message=>pa_debug.g_err_stage);
19032:
19033: pa_debug.reset_curr_function;
19034: END IF;
19035: EXCEPTION
19036:
19037: WHEN Invalid_Arg_Exc_WP THEN
19120:
19121: -- Bug # 4655059.
19122:
19123: IF l_debug_mode = 'Y' THEN
19124: pa_debug.reset_curr_function;
19125: END IF;
19126: RETURN;
19127:
19128: WHEN others THEN
19205:
19206: -- Bug # 4655059.
19207:
19208: IF l_debug_mode = 'Y' THEN
19209: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
19210: pa_debug.log_message(pa_debug.g_err_stage);
19211: pa_debug.reset_curr_function;
19212: END IF;
19213: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
19206: -- Bug # 4655059.
19207:
19208: IF l_debug_mode = 'Y' THEN
19209: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
19210: pa_debug.log_message(pa_debug.g_err_stage);
19211: pa_debug.reset_curr_function;
19212: END IF;
19213: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
19214: --RAISE;
19207:
19208: IF l_debug_mode = 'Y' THEN
19209: pa_debug.g_err_stage:= 'Unexpected Error'||errbuf;
19210: pa_debug.log_message(pa_debug.g_err_stage);
19211: pa_debug.reset_curr_function;
19212: END IF;
19213: -- Bug 4360407 : We should no do RAISE, otherweise concurrent process will not error out
19214: --RAISE;
19215: RETURN;
19371: END IF;
19372:
19373: x_msg_count := 0;
19374: x_return_status := FND_API.G_RET_STS_SUCCESS;
19375: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
19376:
19377: IF l_debug_mode = 'Y' THEN
19378: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
19379: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
19374: x_return_status := FND_API.G_RET_STS_SUCCESS;
19375: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
19376:
19377: IF l_debug_mode = 'Y' THEN
19378: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
19379: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
19380: END IF;
19381:
19382: -- Check for business rules violations
19375: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
19376:
19377: IF l_debug_mode = 'Y' THEN
19378: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
19379: pa_debug.set_curr_function( p_function => 'PROCESS_WBS_UPDATES', p_debug_mode => l_debug_mode );
19380: END IF;
19381:
19382: -- Check for business rules violations
19383: IF l_debug_mode = 'Y' THEN
19380: END IF;
19381:
19382: -- Check for business rules violations
19383: IF l_debug_mode = 'Y' THEN
19384: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19381:
19382: -- Check for business rules violations
19383: IF l_debug_mode = 'Y' THEN
19384: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19389: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
19382: -- Check for business rules violations
19383: IF l_debug_mode = 'Y' THEN
19384: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19389: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
19390: END IF;
19383: IF l_debug_mode = 'Y' THEN
19384: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19389: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
19390: END IF;
19391:
19384: pa_debug.write(G_PKG_NAME, 'Validating input parameters', 3);
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19389: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
19390: END IF;
19391:
19392: -- Throw an error if any of the mandatory parameter is NULL.
19385: pa_debug.write(G_PKG_NAME, 'p_calling_context = '|| p_calling_context, 3);
19386: pa_debug.write(G_PKG_NAME, 'p_project_id = '|| p_project_id, 3);
19387: pa_debug.write(G_PKG_NAME, 'p_structure_version_id = '|| p_structure_version_id, 3);
19388: pa_debug.write(G_PKG_NAME, 'p_pub_struc_ver_id = '|| p_pub_struc_ver_id, 3);
19389: pa_debug.write(G_PKG_NAME, 'p_pub_prog_flag = '|| p_pub_prog_flag, 3);
19390: END IF;
19391:
19392: -- Throw an error if any of the mandatory parameter is NULL.
19393: IF (p_project_id IS NULL) OR (p_structure_version_id IS NULL) THEN
19400: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
19401: p_structure_version_id => p_structure_version_id);
19402:
19403: IF l_debug_mode = 'Y' THEN
19404: pa_debug.write(G_PKG_NAME, 'l_update_wbs_flag = '|| l_update_wbs_flag, 3);
19405: END IF;
19406:
19407: --bug 4409337 moved from below to make use of some of these variables for bugfix.
19408: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
19410: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
19411:
19412:
19413: IF l_debug_mode = 'Y' THEN
19414: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
19415: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
19416: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
19417: END IF;
19418: --bug 4409337
19411:
19412:
19413: IF l_debug_mode = 'Y' THEN
19414: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
19415: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
19416: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
19417: END IF;
19418: --bug 4409337
19419:
19412:
19413: IF l_debug_mode = 'Y' THEN
19414: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);
19415: pa_debug.write(G_PKG_NAME, 'l_financial_type = '|| l_financial_type, 3);
19416: pa_debug.write(G_PKG_NAME, 'l_share_flag = '|| l_share_flag, 3);
19417: END IF;
19418: --bug 4409337
19419:
19420: IF (p_calling_context = 'ASGMT_PLAN_CHANGE') THEN ---bug 4492493
19434: return;
19435: end;
19436:
19437: IF l_debug_mode = 'Y' THEN
19438: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
19439: END IF;
19440:
19441: pa_progress_pub.populate_pji_tab_for_plan(
19442: p_init_msg_list => FND_API.G_FALSE
19450: ,x_return_status => x_return_status
19451: ,x_msg_count => x_msg_count
19452: ,x_msg_data => x_msg_data);
19453: IF l_debug_mode = 'Y' THEN
19454: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
19455: END IF;
19456:
19457: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19458: raise Invalid_Arg_Exc_WP;
19457: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19458: raise Invalid_Arg_Exc_WP;
19459: END IF;
19460: IF l_debug_mode = 'Y' THEN
19461: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
19462: END IF;
19463:
19464: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19465: p_init_msg_list => FND_API.G_FALSE
19474: ,x_msg_count => x_msg_count
19475: ,x_msg_data => x_msg_data);
19476:
19477: IF l_debug_mode = 'Y' THEN
19478: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
19479: END IF;
19480:
19481: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19482: raise Invalid_Arg_Exc_WP;
19481: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19482: raise Invalid_Arg_Exc_WP;
19483: END IF;
19484: IF l_debug_mode = 'Y' THEN
19485: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
19486: END IF;
19487:
19488: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19489: p_init_msg_list => FND_API.G_FALSE
19498: ,x_msg_count => x_msg_count
19499: ,x_msg_data => x_msg_data);
19500:
19501: IF l_debug_mode = 'Y' THEN
19502: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
19503: END IF;
19504:
19505: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19506: raise Invalid_Arg_Exc_WP;
19516: END IF;
19517:
19518: IF l_update_wbs_flag = 'Y' THEN
19519: IF l_debug_mode = 'Y' THEN
19520: pa_debug.write(G_PKG_NAME, 'Calling PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT with l_online_flag='||l_online_flag, 3);
19521: END IF;
19522:
19523: BEGIN
19524: -- l_online_flag = 'Y', then it is online
19538: ,x_return_status => x_return_status
19539: ,x_online_flag => l_out_online_flag
19540: );
19541: IF l_debug_mode = 'Y' THEN
19542: pa_debug.write(G_PKG_NAME, 'After Call PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT with x_return_status='||x_return_status||' l_out_online_flag='||l_out_online_flag, 3);
19543: END IF;
19544: EXCEPTION
19545: WHEN OTHERS THEN
19546: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19556:
19557:
19558: IF NVL(l_update_wbs_flag,'N') = 'N' OR NVL(l_out_online_flag, 'Y') <> 'N' THEN
19559: IF l_debug_mode = 'Y' THEN
19560: pa_debug.write(G_PKG_NAME, 'Calling PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', 3);
19561: END IF;
19562:
19563: PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV
19564: (p_project_id => p_project_id
19567: ,x_msg_count => x_msg_count
19568: ,x_msg_data => x_msg_data);
19569:
19570: IF l_debug_mode = 'Y' THEN
19571: pa_debug.write(G_PKG_NAME, 'After Call PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV x_return_status='||x_return_status, 3);
19572: END IF;
19573:
19574: END IF;
19575:
19590: IF l_update_wbs_flag = 'N' THEN
19591: -- No further processing is required for this structure version. Return.
19592: -- TWUT.
19593: IF l_debug_mode = 'Y' THEN
19594: pa_debug.g_err_stage:= 'No updates required for this structure version.';
19595: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19596: END IF;
19597: RETURN;
19598: END IF;
19591: -- No further processing is required for this structure version. Return.
19592: -- TWUT.
19593: IF l_debug_mode = 'Y' THEN
19594: pa_debug.g_err_stage:= 'No updates required for this structure version.';
19595: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19596: END IF;
19597: RETURN;
19598: END IF;
19599: */
19611: CLOSE cur_structure_type;
19612:
19613: -- TWUT.
19614: IF l_debug_mode = 'Y' THEN
19615: pa_debug.write(G_PKG_NAME, 'Financial structure type flag '||l_structure_type_flag, 3);
19616: END IF;
19617:
19618: /*
19619: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
19627: ,x_msg_data => x_msg_data
19628: );
19629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19630: IF l_debug_mode = 'Y' THEN
19631: pa_debug.g_err_stage := 'Error calling the financial planning API';
19632: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
19633: END IF;
19634: Raise Invalid_Arg_Exc_WP;
19635: END IF;
19628: );
19629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19630: IF l_debug_mode = 'Y' THEN
19631: pa_debug.g_err_stage := 'Error calling the financial planning API';
19632: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
19633: END IF;
19634: Raise Invalid_Arg_Exc_WP;
19635: END IF;
19636: END IF;
19664: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
19665:
19666: if l_debug_mode = 'Y' then
19667:
19668: pa_debug.g_err_stage := 'Error calling the financial planning API';
19669: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
19670:
19671: end if;
19672:
19665:
19666: if l_debug_mode = 'Y' then
19667:
19668: pa_debug.g_err_stage := 'Error calling the financial planning API';
19669: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
19670:
19671: end if;
19672:
19673: Raise Invalid_Arg_Exc_WP;
19686: IF l_update_wbs_flag = 'N' THEN
19687: -- No further processing is required for this structure version. Return.
19688: -- TWUT.
19689: IF l_debug_mode = 'Y' THEN
19690: pa_debug.g_err_stage:= 'No updates required for this structure version.';
19691: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19692: END IF;
19693: RETURN;
19694: END IF;
19687: -- No further processing is required for this structure version. Return.
19688: -- TWUT.
19689: IF l_debug_mode = 'Y' THEN
19690: pa_debug.g_err_stage:= 'No updates required for this structure version.';
19691: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19692: END IF;
19693: RETURN;
19694: END IF;
19695: */
19706: CLOSE cur_structure_type;
19707:
19708: -- TWUT.
19709: IF l_debug_mode = 'Y' THEN
19710: pa_debug.g_err_stage:= 'Workplan structure type flag '||l_structure_type_flag;
19711: pa_debug.write(G_PKG_NAME, 'Workplan structure type flag '||l_structure_type_flag, 3);
19712: END IF;
19713:
19714: IF p_calling_context <> 'COPY_PROJECT' THEN --bug 3035902 maansari
19707:
19708: -- TWUT.
19709: IF l_debug_mode = 'Y' THEN
19710: pa_debug.g_err_stage:= 'Workplan structure type flag '||l_structure_type_flag;
19711: pa_debug.write(G_PKG_NAME, 'Workplan structure type flag '||l_structure_type_flag, 3);
19712: END IF;
19713:
19714: IF p_calling_context <> 'COPY_PROJECT' THEN --bug 3035902 maansari
19715: --PJI changes
19798:
19799: BEGIN
19800:
19801: IF l_debug_mode = 'Y' THEN
19802: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in PUBLISH mode for workign version', 3);
19803: END IF;
19804:
19805: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
19806: p_project_id => l_project_id,
19807: p_plan_type_id => -1,
19808: p_proj_str_ver_id => p_structure_version_id) ;
19809:
19810: IF l_debug_mode = 'Y' THEN
19811: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in UPDATE mode for working version='||l_plan_version_id, 3);
19812: END IF;
19813:
19814: EXCEPTION
19815: WHEN OTHERS THEN
19822: END;
19823: --end bug 4587145
19824:
19825: IF l_debug_mode = 'Y' THEN
19826: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in PUBLISH mode for working version', 3);
19827: END IF;
19828: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null; --set the flag so that PJI rolls up data on the working version.
19829:
19830: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
19831: p_plan_version_id => l_plan_version_id, --bug 4587145
19832: x_return_status => x_return_status);
19833:
19834: IF l_debug_mode = 'Y' THEN
19835: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in PUBLISH mode for working verison x_return_status='||
19836: x_return_status,l_debug_level3);
19837: END IF;
19838: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N'; --Set the flag back to 'N' to bypass any PJI rollup api call untill explicit plan_update gets called.
19839: EXCEPTION
19862: --bug 4472071
19863: --all code from publishing (before calling process_wbs_updates)
19864:
19865: IF l_debug_mode = 'Y' THEN
19866: pa_debug.write(G_PKG_NAME, 'Calling PA_Relationship_Pvt.Copy_Intra_Dependency', 3);
19867: END IF;
19868:
19869: PA_Relationship_Pvt.Copy_Intra_Dependency (
19870: P_Source_Ver_Tbl => NULL,
19876: X_Msg_Data => X_Msg_Data
19877: );
19878:
19879: IF l_debug_mode = 'Y' THEN
19880: pa_debug.write(G_PKG_NAME, 'After Copy_Intra_Dependency X_Return_Status='||X_Return_Status, 3);
19881: END IF;
19882:
19883: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19884: RAISE Invalid_Arg_Exc_WP;
19884: RAISE Invalid_Arg_Exc_WP;
19885: END IF;
19886:
19887: IF l_debug_mode = 'Y' THEN
19888: pa_debug.write(G_PKG_NAME, 'Calling Publish_Inter_Proj_Dep', 3);
19889: END IF;
19890:
19891: PA_RELATIONSHIP_PVT.Publish_Inter_Proj_Dep ( -- This API needs to be called
19892: p_publishing_struc_ver_id => p_structure_version_id,
19897: X_Msg_Data => X_Msg_Data
19898: );
19899:
19900: IF l_debug_mode = 'Y' THEN
19901: pa_debug.write(G_PKG_NAME, 'After Publish_Inter_Proj_Dep X_Return_Status='||X_Return_Status, 3);
19902: END IF;
19903:
19904: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19905: RAISE Invalid_Arg_Exc_WP;
19905: RAISE Invalid_Arg_Exc_WP;
19906: END IF;
19907:
19908: IF l_debug_mode = 'Y' THEN
19909: pa_debug.write(G_PKG_NAME, 'Calling Copy_OG_Lnk_For_Subproj_Ass', 3);
19910: END IF;
19911:
19912:
19913: PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass(
19919: );
19920:
19921:
19922: IF l_debug_mode = 'Y' THEN
19923: pa_debug.write(G_PKG_NAME, 'After Copy_OG_Lnk_For_Subproj_Ass X_Return_Status='||X_Return_Status, 3);
19924: END IF;
19925:
19926: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19927: RAISE Invalid_Arg_Exc_WP;
19928: END IF;
19929:
19930:
19931: IF l_debug_mode = 'Y' THEN
19932: pa_debug.write(G_PKG_NAME, 'Calling Move_CI_Lnk_For_subproj_step1', 3);
19933: END IF;
19934:
19935: PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1(
19936: p_src_str_version_id => p_structure_version_id,
19940: x_msg_count => x_msg_count,
19941: x_msg_data => x_msg_data);
19942:
19943: IF l_debug_mode = 'Y' THEN
19944: pa_debug.write(G_PKG_NAME, 'After Move_CI_Lnk_For_subproj_step1 X_Return_Status='||X_Return_Status, 3);
19945: END IF;
19946:
19947: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19948: RAISE Invalid_Arg_Exc_WP;
19948: RAISE Invalid_Arg_Exc_WP;
19949: END IF;
19950:
19951: IF l_debug_mode = 'Y' THEN
19952: pa_debug.write(G_PKG_NAME, 'Calling copy_mapping', 3);
19953: END IF;
19954:
19955:
19956: PA_PROJ_STRUC_MAPPING_PUB.copy_mapping(
19964: ,x_msg_data => x_msg_data
19965: );
19966:
19967: IF l_debug_mode = 'Y' THEN
19968: pa_debug.write(G_PKG_NAME, 'After copy_mapping X_Return_Status='||X_Return_Status, 3);
19969: END IF;
19970:
19971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19972: RAISE Invalid_Arg_Exc_WP;
19989: --moved PA_FP_COPY_FROM_PKG.copy_wp_budget_versions into plsql block
19990: BEGIN
19991:
19992: IF l_debug_mode = 'Y' THEN
19993: pa_debug.write(G_PKG_NAME, 'Calling copy_wp_budget_versions', 3);
19994: END IF;
19995:
19996: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := 'PUBLISH'; -- 4646016
19997:
20010:
20011: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
20012:
20013: IF l_debug_mode = 'Y' THEN
20014: pa_debug.write(G_PKG_NAME, 'After copy_wp_budget_versions X_Return_Status='||X_Return_Status, 3);
20015: END IF;
20016:
20017: EXCEPTION
20018: WHEN OTHERS THEN
20041:
20042: --Call sync-up API
20043:
20044: IF l_debug_mode = 'Y' THEN
20045: pa_debug.write(G_PKG_NAME,'Calling import_task', 3);
20046: END IF;
20047:
20048: PA_XC_PROJECT_PUB.import_task(
20049: p_project_id => l_project_id
20077: ,p_structure_version_id => l_pub_ver_id
20078: ,p_calling_mode => 'PUBLISH' );
20079:
20080: IF l_debug_mode = 'Y' THEN
20081: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20082: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20083: END IF;
20084: -- Fix for Bug # 4513291. Added below Exception handling
20085: x_msg_count := FND_MSG_PUB.count_msg;
20078: ,p_calling_mode => 'PUBLISH' );
20079:
20080: IF l_debug_mode = 'Y' THEN
20081: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20082: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20083: END IF;
20084: -- Fix for Bug # 4513291. Added below Exception handling
20085: x_msg_count := FND_MSG_PUB.count_msg;
20086: IF x_msg_count > 0 THEN
20088: END IF;
20089:
20090:
20091: IF l_debug_mode = 'Y' THEN
20092: pa_debug.g_err_stage:= 'Calling import_project ';
20093: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20094: END IF;
20095:
20096: l_i_msg_count := 0;
20089:
20090:
20091: IF l_debug_mode = 'Y' THEN
20092: pa_debug.g_err_stage:= 'Calling import_project ';
20093: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20094: END IF;
20095:
20096: l_i_msg_count := 0;
20097: l_i_return_status := 'S'; -- Fix for Bug # 4513291.
20116: ,x_msg_data => l_i_msg_data
20117: ,x_return_status => l_i_return_status);
20118:
20119: IF l_debug_mode = 'Y' THEN
20120: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20121: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20122: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
20123: -- Fix for Bug # 4513291.
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20117: ,x_return_status => l_i_return_status);
20118:
20119: IF l_debug_mode = 'Y' THEN
20120: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20121: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20122: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
20123: -- Fix for Bug # 4513291.
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20125: -- Fix for Bug # 4513291.
20118:
20119: IF l_debug_mode = 'Y' THEN
20120: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20121: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20122: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
20123: -- Fix for Bug # 4513291.
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20125: -- Fix for Bug # 4513291.
20126: END IF;
20120: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20121: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20122: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
20123: -- Fix for Bug # 4513291.
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20125: -- Fix for Bug # 4513291.
20126: END IF;
20127:
20128: l_msg_count := FND_MSG_PUB.count_msg;
20159: THEN
20160:
20161: --call the dates rollup API for the structure version
20162: IF l_debug_mode = 'Y' THEN
20163: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in PUBLISH mode', 3);
20164: END IF;
20165:
20166: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
20167: p_project_id => p_project_id,
20170: x_msg_count => x_msg_count,
20171: x_msg_data => x_msg_data);
20172:
20173: IF l_debug_mode = 'Y' THEN
20174: 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);
20175: END IF;
20176:
20177: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20178: RAISE Invalid_Arg_Exc_WP;
20198: ,p_link_type => 'WORKPLAN' ) = 'Y'
20199: IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,l_pub_ver_id, 'WORKPLAN') = 'Y'
20200: THEN
20201: IF l_debug_mode = 'Y' THEN
20202: 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);
20203: END IF;
20204:
20205: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
20206: p_project_id => p_project_id,
20209: x_msg_count => x_msg_count,
20210: x_msg_data => x_msg_data);
20211:
20212: IF l_debug_mode = 'Y' THEN
20213: 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);
20214: END IF;
20215:
20216: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20217: RAISE Invalid_Arg_Exc_WP;
20223: --end bug 4287813
20224: --end bug 4541039
20225:
20226: IF l_debug_mode = 'Y' THEN
20227: pa_debug.write(G_PKG_NAME, 'Calling Task_Stat_Pushdown_Rollup', 3);
20228: END IF;
20229:
20230: --push down and rollup
20231: PA_STRUCT_TASK_ROLLUP_PUB.Task_Stat_Pushdown_Rollup(
20235: ,x_msg_data => x_msg_data
20236: );
20237:
20238: IF l_debug_mode = 'Y' THEN
20239: pa_debug.write(G_PKG_NAME, 'After Task_Stat_Pushdown_Rollup x_return_status='|| x_return_status, 3);
20240: END IF;
20241:
20242: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20243: RAISE Invalid_Arg_Exc_WP;
20250:
20251: BEGIN -- Bug 4284444
20252: --new published version and prev published version
20253: IF l_debug_mode = 'Y' THEN
20254: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in PUBLISH mode', 3);
20255: END IF;
20256:
20257: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
20258: p_new_struct_ver_id => l_pub_ver_id
20268: ,x_return_status => x_return_status
20269: ,x_online_flag => l_out_online_flag -- 4392189
20270: );
20271: IF l_debug_mode = 'Y' THEN
20272: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in PUBLISH mode x_return_status='|| x_return_status, 3);
20273: END IF;
20274:
20275: EXCEPTION
20276: WHEN OTHERS THEN
20287:
20288: -- Added this for FP_M changes -- Bhumesh
20289:
20290: IF l_debug_mode = 'Y' THEN
20291: pa_debug.write(G_PKG_NAME, 'Calling Pull_Summarized_Actuals', 3);
20292: END IF;
20293:
20294: PA_PROGRESS_PUB.Pull_Summarized_Actuals (
20295: P_Project_ID => l_Project_ID
20299: ,x_msg_data => x_msg_data
20300: );
20301:
20302: IF l_debug_mode = 'Y' THEN
20303: pa_debug.write(G_PKG_NAME, 'After Pull_Summarized_Actuals x_return_status='|| x_return_status, 3);
20304: END IF;
20305:
20306: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20307: RAISE Invalid_Arg_Exc_WP;
20319: FETCH get_proj_rec_ver_number INTO l_proj_record_ver_number;
20320: CLOSE get_proj_rec_ver_number;
20321:
20322: IF l_debug_mode = 'Y' THEN
20323: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PROJECT_DATES', 3);
20324: END IF;
20325:
20326: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
20327: p_validate_only => FND_API.G_FALSE
20334: ,x_msg_count => l_msg_count
20335: ,x_msg_data => l_msg_data );
20336:
20337: IF l_debug_mode = 'Y' THEN
20338: pa_debug.write(G_PKG_NAME, 'After UPDATE_PROJECT_DATES x_return_status='|| x_return_status, 3);
20339: END IF;
20340:
20341: --Check if there is any error.
20342: l_msg_count := FND_MSG_PUB.count_msg;
20359:
20360: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_proj_element_id) = 'Y') THEN
20361: --Copy to transaction date
20362: IF l_debug_mode = 'Y' THEN
20363: pa_debug.write(G_PKG_NAME, 'Calling COPY_PROJECT_DATES', 3);
20364: END IF;
20365: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
20366: p_project_id => l_project_id,
20367: x_return_status => x_return_status,
20369: x_msg_data => l_msg_data
20370: );
20371:
20372: IF l_debug_mode = 'Y' THEN
20373: pa_debug.write(G_PKG_NAME, 'After COPY_PROJECT_DATES x_return_status='|| x_return_status, 3);
20374: END IF;
20375:
20376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20377: raise Invalid_Arg_Exc_WP;
20386:
20387: IF p_pub_prog_flag = 'Y' THEN
20388:
20389: IF l_debug_mode = 'Y' THEN
20390: pa_debug.write(G_PKG_NAME, 'Calling Publish_Progress', 3);
20391: END IF;
20392:
20393: PA_PROGRESS_PUB.Publish_Progress(
20394: p_project_id => l_Project_ID
20402: ,x_msg_data => x_msg_data
20403: );
20404:
20405: IF l_debug_mode = 'Y' THEN
20406: pa_debug.write(G_PKG_NAME, 'After Publish_Progress x_return_status='|| x_return_status, 3);
20407: END IF;
20408:
20409: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20410: raise Invalid_Arg_Exc_WP;
20422: l_copy_actuals_flag := 'N';
20423: END IF;
20424:
20425: IF l_debug_mode = 'Y' THEN
20426: pa_debug.write(G_PKG_NAME, 'Calling COPY_PROGRESS_ACT_ETC', 3);
20427: END IF;
20428:
20429: PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC(
20430: p_project_id => l_Project_ID
20439: ,x_msg_data => x_msg_data
20440: );
20441:
20442: IF l_debug_mode = 'Y' THEN
20443: pa_debug.write(G_PKG_NAME, 'After COPY_PROGRESS_ACT_ETC x_return_status='|| x_return_status, 3);
20444: END IF;
20445:
20446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20447: raise Invalid_Arg_Exc_WP;
20455: --bug 4587145
20456: BEGIN
20457:
20458: IF l_debug_mode = 'Y' THEN
20459: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in PUBLISH mode', 3);
20460: END IF;
20461:
20462: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
20463: p_project_id => l_project_id,
20464: p_plan_type_id => -1,
20465: p_proj_str_ver_id => l_pub_ver_id) ;
20466:
20467: IF l_debug_mode = 'Y' THEN
20468: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in PUBLISH mode='||l_plan_version_id, 3);
20469: END IF;
20470:
20471: EXCEPTION
20472: WHEN OTHERS THEN
20478: END;
20479: --end bug 4587145
20480:
20481: IF l_debug_mode = 'Y' THEN
20482: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in PUBLISH mode', 3);
20483: END IF;
20484:
20485: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
20486: p_plan_version_id => l_plan_version_id, --bug 4587145
20486: p_plan_version_id => l_plan_version_id, --bug 4587145
20487: x_return_status => x_return_status);
20488:
20489: IF l_debug_mode = 'Y' THEN
20490: pa_debug.write(G_PKG_NAME, 'After PLAN_UPDATE in PUBLISH mode x_return_status='|| x_return_status, 3);
20491: END IF;
20492:
20493: EXCEPTION
20494: WHEN OTHERS THEN
20508:
20509: IF p_pub_prog_flag = 'Y' AND l_as_of_date IS NOT NULL THEN
20510:
20511: IF l_debug_mode = 'Y' THEN
20512: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
20513: END IF;
20514:
20515: pa_progress_pub.populate_pji_tab_for_plan(
20516: p_init_msg_list => FND_API.G_FALSE
20526: ,x_msg_count => x_msg_count
20527: ,x_msg_data => x_msg_data);
20528:
20529: IF l_debug_mode = 'Y' THEN
20530: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
20531: END IF;
20532:
20533: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20534: raise Invalid_Arg_Exc_WP;
20534: raise Invalid_Arg_Exc_WP;
20535: END IF;
20536:
20537: IF l_debug_mode = 'Y' THEN
20538: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
20539: END IF;
20540:
20541: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
20542: p_init_msg_list => FND_API.G_FALSE
20552: ,x_msg_count => x_msg_count
20553: ,x_msg_data => x_msg_data);
20554:
20555: IF l_debug_mode = 'Y' THEN
20556: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
20557: END IF;
20558:
20559: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20560: raise Invalid_Arg_Exc_WP;
20564: /*
20565: -- 4392189 : Added PROGRAM_ROLLUP_PVT call
20566:
20567: IF l_debug_mode = 'Y' THEN
20568: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
20569: END IF;
20570:
20571: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
20572: p_init_msg_list => FND_API.G_FALSE
20580: ,x_msg_count => x_msg_count
20581: ,x_msg_data => x_msg_data);
20582:
20583: IF l_debug_mode = 'Y' THEN
20584: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
20585: END IF;
20586:
20587: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20588: raise Invalid_Arg_Exc_WP;
20592:
20593: IF p_pub_prog_flag = 'Y' THEN
20594: -- 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
20595: IF l_debug_mode = 'Y' THEN
20596: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20597: END IF;
20598:
20599: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20600: p_init_msg_list => FND_API.G_FALSE
20606: ,x_msg_count => x_msg_count
20607: ,x_msg_data => x_msg_data);
20608:
20609: IF l_debug_mode = 'Y' THEN
20610: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20611: END IF;
20612:
20613: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20614: raise Invalid_Arg_Exc_WP;
20615: END IF;
20616:
20617: --bug 3851528
20618: IF l_debug_mode = 'Y' THEN
20619: pa_debug.write(G_PKG_NAME, 'Calling clear_prog_outdated_flag', 3);
20620: END IF;
20621:
20622: PA_PROGRESS_UTILS.clear_prog_outdated_flag(
20623: p_project_id => l_Project_ID
20628: ,x_msg_count => x_msg_count
20629: ,x_msg_data => x_msg_data);
20630:
20631: IF l_debug_mode = 'Y' THEN
20632: pa_debug.write(G_PKG_NAME, 'After clear_prog_outdated_flag x_return_status='|| x_return_status, 3);
20633: END IF;
20634:
20635: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20636: raise Invalid_Arg_Exc_WP;
20652: parent project, he wil the message to run process wbs in order to see correct program rollup.
20653: But now publishing of a sub-project will push the data to all its parent. This change in pull to
20654: push mechanics does not require the following api call. Hence commenitng out.
20655: IF l_debug_mode = 'Y' THEN
20656: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PARENT_WBS_FLAG_DIRTY', 3);
20657: END IF;
20658:
20659: PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY(
20660: p_project_id => l_Project_ID
20663: ,x_msg_count => x_msg_count
20664: ,x_msg_data => x_msg_data);
20665:
20666: IF l_debug_mode = 'Y' THEN
20667: pa_debug.write(G_PKG_NAME, 'After UPDATE_PARENT_WBS_FLAG_DIRTY x_return_status='|| x_return_status, 3);
20668: END IF;
20669:
20670: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20671: raise Invalid_Arg_Exc_WP;
20674:
20675: --bug 4479392
20676: -- Mark the structure version as no pending wbs updates.
20677: IF l_debug_mode = 'Y' THEN
20678: pa_debug.write(G_PKG_NAME, 'Before calling pa_proj_task_struc_pub.set_update_wbs_flag for published version', 3);
20679: END IF;
20680:
20681: pa_proj_task_struc_pub.set_update_wbs_flag(
20682: p_project_id => p_project_id
20687: ,x_msg_data => x_msg_data
20688: );
20689:
20690: IF l_debug_mode = 'Y' THEN
20691: pa_debug.write(G_PKG_NAME, 'After pa_proj_task_struc_pub.set_update_wbs_flag for published version x_return_status='|| x_return_status, 3);
20692: END IF;
20693:
20694: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20695: raise Invalid_Arg_Exc_WP;
20709:
20710: BEGIN -- Bug 4284444
20711: --both working version
20712: IF l_debug_mode = 'Y' THEN
20713: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in UPDATE mode', 3);
20714: END IF;
20715:
20716: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
20717: p_new_struct_ver_id => p_structure_version_id
20727: ,x_online_flag => l_out_online_flag -- 4392189
20728: );
20729:
20730: IF l_debug_mode = 'Y' THEN
20731: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in UPDATE mode x_return_status='|| x_return_status, 3);
20732: END IF;
20733:
20734: EXCEPTION
20735: WHEN OTHERS THEN
20751: --bug 4587145
20752: BEGIN
20753:
20754: IF l_debug_mode = 'Y' THEN
20755: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id in UPDATE mode', 3);
20756: END IF;
20757:
20758: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
20759: p_project_id => p_project_id,
20760: p_plan_type_id => -1,
20761: p_proj_str_ver_id => p_structure_version_id) ;
20762:
20763: IF l_debug_mode = 'Y' THEN
20764: pa_debug.write(G_PKG_NAME, 'l_plan_version_id in UPDATE mode='||l_plan_version_id, 3);
20765: END IF;
20766:
20767: EXCEPTION
20768: WHEN OTHERS THEN
20774: END;
20775: --end bug 4587145
20776:
20777: IF l_debug_mode = 'Y' THEN
20778: pa_debug.write(G_PKG_NAME, 'Calling PLAN_UPDATE in UPDATE mode', 3);
20779: END IF;
20780:
20781: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE (x_msg_code => l_msg_code,
20782: p_plan_version_id => l_plan_version_id, --bug 4587145
20782: p_plan_version_id => l_plan_version_id, --bug 4587145
20783: x_return_status => x_return_status);
20784:
20785: IF l_debug_mode = 'Y' THEN
20786: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in UPDATE mode x_return_status='|| x_return_status,l_debug_level3);
20787: END IF;
20788: EXCEPTION
20789: WHEN OTHERS THEN
20790: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20811:
20812: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
20813:
20814: IF l_debug_mode = 'Y' THEN
20815: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE', 3);
20816: END IF;
20817:
20818: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20819: p_project_id => p_project_id
20825: ,x_msg_data => x_msg_data
20826: );
20827:
20828: IF l_debug_mode = 'Y' THEN
20829: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE x_return_status='|| x_return_status, 3);
20830: END IF;
20831:
20832: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20833: Raise Invalid_Arg_Exc_WP;
20864:
20865: IF nvl(l_structure_type_flag,'N') = 'Y' THEN --fpm progress management changes
20866:
20867: IF l_debug_mode = 'Y' THEN
20868: pa_debug.write(G_PKG_NAME, 'Calling RE_ROLLUP_PROGRESS', 3);
20869: END IF;
20870:
20871: PA_PROGRESS_PUB.RE_ROLLUP_PROGRESS(
20872: p_project_id => p_project_id
20875: ,x_msg_count => x_msg_count
20876: ,x_msg_data => x_msg_data
20877: );
20878: IF l_debug_mode = 'Y' THEN
20879: pa_debug.write(G_PKG_NAME, 'After RE_ROLLUP_PROGRESS x_return_status='|| x_return_status, 3);
20880: END IF;
20881:
20882: -- Bug 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
20883: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id) = 'N' THEN
20881:
20882: -- Bug 4575855 : Added call of ROLLUP_PROG_FROM_SUBPROJS
20883: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id) = 'N' THEN
20884: IF l_debug_mode = 'Y' THEN
20885: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20886: END IF;
20887:
20888: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20889: p_init_msg_list => FND_API.G_FALSE
20895: ,x_msg_count => x_msg_count
20896: ,x_msg_data => x_msg_data);
20897:
20898: IF l_debug_mode = 'Y' THEN
20899: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20900: END IF;
20901:
20902: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20903: raise Invalid_Arg_Exc_WP;
20914: IF PA_RELATIONSHIP_UTILS.Check_link_exists( p_project_id => p_project_id
20915: ,p_link_type => 'WORKPLAN' ) = 'Y'
20916: THEN
20917: IF l_debug_mode = 'Y' THEN
20918: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in UPDATE mode', 3);
20919: END IF;
20920:
20921: PA_TASK_ASSIGNMENT_UTILS.g_apply_progress_flag := 'Y'; --although th
20922: PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup(
20925: x_msg_count => x_msg_count,
20926: x_msg_data => x_msg_data);
20927:
20928: IF l_debug_mode = 'Y' THEN
20929: 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);
20930: END IF;
20931:
20932: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20933: RAISE Invalid_Arg_Exc_WP;
20959: CLOSE cur_structure_type;
20960:
20961: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
20962: IF l_debug_mode = 'Y' THEN
20963: pa_debug.write(G_PKG_NAME, 'Calling PROCESS_TASK_WEIGHTAGE in Copy Project Mode', 3);
20964: END IF;
20965:
20966: pa_proj_task_struc_pub.PROCESS_TASK_WEIGHTAGE(
20967: p_project_id => p_project_id
20971: ,x_msg_data => x_msg_data
20972: );
20973:
20974: IF l_debug_mode = 'Y' THEN
20975: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE in Copy Project Mode x_return_status='|| x_return_status, 3);
20976: END IF;
20977:
20978: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20979: Raise Invalid_Arg_Exc_WP;
20989:
20990: BEGIN
20991: --both working version
20992: IF l_debug_mode = 'Y' THEN
20993: pa_debug.write(G_PKG_NAME, 'Calling WBS_MAINT in UPDATE mode', 3);
20994: END IF;
20995:
20996: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
20997: p_new_struct_ver_id => p_structure_version_id
21007: ,x_online_flag => l_out_online_flag -- 4392189
21008: );
21009:
21010: IF l_debug_mode = 'Y' THEN
21011: pa_debug.write(G_PKG_NAME, 'After WBS_MAINT in UPDATE mode x_return_status='
21012: || x_return_status, 3);
21013: END IF;
21014:
21015: EXCEPTION
21040: ,x_msg_data => x_msg_data
21041: );
21042:
21043: IF l_debug_mode = 'Y' THEN
21044: pa_debug.write(G_PKG_NAME, 'After set_update_wbs_flag x_return_status='|| x_return_status, 3);
21045: END IF;
21046:
21047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21048: Raise Invalid_Arg_Exc_WP;
21052: commit;
21053: END IF;
21054:
21055: IF l_debug_mode = 'Y' THEN
21056: pa_debug.write(G_PKG_NAME, 'Exiting PROCESS_WBS_UPDATES', l_debug_level3);
21057: pa_debug.reset_curr_function;
21058: END IF;
21059: EXCEPTION
21060:
21053: END IF;
21054:
21055: IF l_debug_mode = 'Y' THEN
21056: pa_debug.write(G_PKG_NAME, 'Exiting PROCESS_WBS_UPDATES', l_debug_level3);
21057: pa_debug.reset_curr_function;
21058: END IF;
21059: EXCEPTION
21060:
21061: WHEN Invalid_Arg_Exc_WP THEN
21080: ELSE
21081: x_msg_count := l_msg_count;
21082: END IF;
21083: IF l_debug_mode = 'Y' THEN
21084: pa_debug.reset_curr_function;
21085: END IF;
21086:
21087: IF p_commit = FND_API.G_TRUE THEN
21088: rollback to process_wbs_updates;
21105: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
21106: ,p_error_text => x_msg_data);
21107:
21108: IF l_debug_mode = 'Y' THEN
21109: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21110: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21111: l_debug_level5);
21112: pa_debug.reset_curr_function;
21113: END IF;
21106: ,p_error_text => x_msg_data);
21107:
21108: IF l_debug_mode = 'Y' THEN
21109: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21110: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21111: l_debug_level5);
21112: pa_debug.reset_curr_function;
21113: END IF;
21114:
21108: IF l_debug_mode = 'Y' THEN
21109: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21110: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21111: l_debug_level5);
21112: pa_debug.reset_curr_function;
21113: END IF;
21114:
21115: IF p_commit = FND_API.G_TRUE THEN
21116: rollback to process_wbs_updates;
21284: END IF;
21285:
21286: x_msg_count := 0;
21287: x_return_status := FND_API.G_RET_STS_SUCCESS;
21288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21289:
21290: IF l_debug_mode = 'Y' THEN
21291: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
21292: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21287: x_return_status := FND_API.G_RET_STS_SUCCESS;
21288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21289:
21290: IF l_debug_mode = 'Y' THEN
21291: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
21292: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21293: l_debug_level3);
21294:
21295: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
21288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21289:
21290: IF l_debug_mode = 'Y' THEN
21291: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
21292: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21293: l_debug_level3);
21294:
21295: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
21296: p_debug_mode => l_debug_mode );
21291: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
21292: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21293: l_debug_level3);
21294:
21295: pa_debug.set_curr_function( p_function => 'PROCESS_TASK_WEIGHTAGE',
21296: p_debug_mode => l_debug_mode );
21297: END IF;
21298:
21299: -- Check for business rules violations
21297: END IF;
21298:
21299: -- Check for business rules violations
21300: IF l_debug_mode = 'Y' THEN
21301: pa_debug.g_err_stage:= 'Validating input parameters';
21302: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21303: l_debug_level3);
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21298:
21299: -- Check for business rules violations
21300: IF l_debug_mode = 'Y' THEN
21301: pa_debug.g_err_stage:= 'Validating input parameters';
21302: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21303: l_debug_level3);
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21306: l_debug_level3);
21300: IF l_debug_mode = 'Y' THEN
21301: pa_debug.g_err_stage:= 'Validating input parameters';
21302: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21303: l_debug_level3);
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21306: l_debug_level3);
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21301: pa_debug.g_err_stage:= 'Validating input parameters';
21302: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21303: l_debug_level3);
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21306: l_debug_level3);
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21309: l_debug_level3);
21303: l_debug_level3);
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21306: l_debug_level3);
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21309: l_debug_level3);
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21304: pa_debug.g_err_stage:= 'Input Parameter Values';
21305: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21306: l_debug_level3);
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21309: l_debug_level3);
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21312: l_debug_level3);
21306: l_debug_level3);
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21309: l_debug_level3);
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21312: l_debug_level3);
21313: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
21314: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21307: pa_debug.g_err_stage:= 'Project Id : ' || p_project_id;
21308: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21309: l_debug_level3);
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21312: l_debug_level3);
21313: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
21314: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21315: l_debug_level3);
21309: l_debug_level3);
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21312: l_debug_level3);
21313: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
21314: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21315: l_debug_level3);
21316: END IF;
21317:
21310: pa_debug.g_err_stage:= 'Structure Version Id : ' || p_structure_version_id;
21311: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21312: l_debug_level3);
21313: pa_debug.g_err_stage:= 'p_calling_context : ' || p_calling_context;
21314: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21315: l_debug_level3);
21316: END IF;
21317:
21318: IF (p_project_id IS NULL) OR
21338: l_task_weighting_basis := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
21339:
21340: IF l_task_weighting_basis is NULL THEN
21341: IF l_debug_mode = 'Y' THEN
21342: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is NULL';
21343: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21344: END IF;
21345: RAISE Invalid_Arg_Exc_WP;
21346: END IF;
21339:
21340: IF l_task_weighting_basis is NULL THEN
21341: IF l_debug_mode = 'Y' THEN
21342: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is NULL';
21343: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21344: END IF;
21345: RAISE Invalid_Arg_Exc_WP;
21346: END IF;
21347:
21346: END IF;
21347:
21348: IF l_task_weighting_basis = L_BASIS_MANUAL THEN
21349: IF l_debug_mode = 'Y' THEN
21350: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
21351: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21352: l_debug_level3);
21353: pa_debug.reset_curr_function;
21354: END IF;
21347:
21348: IF l_task_weighting_basis = L_BASIS_MANUAL THEN
21349: IF l_debug_mode = 'Y' THEN
21350: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
21351: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21352: l_debug_level3);
21353: pa_debug.reset_curr_function;
21354: END IF;
21355: RETURN;
21349: IF l_debug_mode = 'Y' THEN
21350: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is MANUAL';
21351: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21352: l_debug_level3);
21353: pa_debug.reset_curr_function;
21354: END IF;
21355: RETURN;
21356: END IF;
21357:
21379:
21380: --bug 4726889 performance fix to provide plan version id in the cursor cur_task_info
21381: BEGIN
21382: IF l_debug_mode = 'Y' THEN
21383: pa_debug.write(G_PKG_NAME, 'Calling Pa_Fp_wp_gen_amt_utils.get_wp_version_id', 3);
21384: END IF;
21385: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
21386: p_project_id => p_project_id,
21387: p_plan_type_id => -1,
21387: p_plan_type_id => -1,
21388: p_proj_str_ver_id => p_structure_version_id) ;
21389:
21390: IF l_debug_mode = 'Y' THEN
21391: pa_debug.write(G_PKG_NAME, 'l_plan_version_id='||l_plan_version_id, 3);
21392: END IF;
21393:
21394: EXCEPTION
21395: WHEN OTHERS THEN
21427: ,l_prog_enable_flag_fetch_tbl
21428: LIMIT l_plsql_max_array_size;
21429:
21430: IF l_debug_mode = 'Y' THEN
21431: pa_debug.g_err_stage:= 'Fetched ' || cur_task_info%rowcount || ' records for processing';
21432: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21433: END IF;
21434:
21435: IF nvl(l_object_rel_id_fetch_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
21428: LIMIT l_plsql_max_array_size;
21429:
21430: IF l_debug_mode = 'Y' THEN
21431: pa_debug.g_err_stage:= 'Fetched ' || cur_task_info%rowcount || ' records for processing';
21432: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21433: END IF;
21434:
21435: IF nvl(l_object_rel_id_fetch_tbl.last,0) > 0 THEN -- only if something is fetched do the processing
21436: FOR i in l_object_rel_id_fetch_tbl.first..l_object_rel_id_fetch_tbl.last LOOP
21473: EXIT WHEN nvl(l_object_rel_id_fetch_tbl.last,0) < l_plsql_max_array_size;
21474: END LOOP;
21475: CLOSE cur_task_info;
21476: IF l_debug_mode = 'Y' THEN
21477: pa_debug.g_err_stage:= 'Done with Part 1 of the Procedure';
21478: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21479: END IF;
21480: END;
21481:
21474: END LOOP;
21475: CLOSE cur_task_info;
21476: IF l_debug_mode = 'Y' THEN
21477: pa_debug.g_err_stage:= 'Done with Part 1 of the Procedure';
21478: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21479: END IF;
21480: END;
21481:
21482: -- We have the required info to calculate the task weightages in PLSQL tables.
21588: UPDATE pa_object_relationships
21589: SET weighting_percentage = l_task_weightage_tbl(i)
21590: WHERE object_relationship_id = l_object_rel_id_tbl(i);
21591: IF l_debug_mode = 'Y' THEN
21592: pa_debug.g_err_stage:= 'Updated ' || sql%rowcount || ' Records in PA_OBJECT_RELATIONSHIPS';
21593: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21594: END IF;
21595: END IF;
21596: END;
21589: SET weighting_percentage = l_task_weightage_tbl(i)
21590: WHERE object_relationship_id = l_object_rel_id_tbl(i);
21591: IF l_debug_mode = 'Y' THEN
21592: pa_debug.g_err_stage:= 'Updated ' || sql%rowcount || ' Records in PA_OBJECT_RELATIONSHIPS';
21593: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21594: END IF;
21595: END IF;
21596: END;
21597:
21599: commit;
21600: END IF;
21601:
21602: IF l_debug_mode = 'Y' THEN
21603: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
21604: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21605: l_debug_level3);
21606: pa_debug.reset_curr_function;
21607: END IF;
21600: END IF;
21601:
21602: IF l_debug_mode = 'Y' THEN
21603: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
21604: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21605: l_debug_level3);
21606: pa_debug.reset_curr_function;
21607: END IF;
21608: EXCEPTION
21602: IF l_debug_mode = 'Y' THEN
21603: pa_debug.g_err_stage:= 'Exiting PROCESS_TASK_WEIGHTAGE';
21604: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21605: l_debug_level3);
21606: pa_debug.reset_curr_function;
21607: END IF;
21608: EXCEPTION
21609:
21610: WHEN Invalid_Arg_Exc_WP THEN
21629: ELSE
21630: x_msg_count := l_msg_count;
21631: END IF;
21632: IF l_debug_mode = 'Y' THEN
21633: pa_debug.reset_curr_function;
21634: END IF;
21635:
21636: IF p_commit = FND_API.G_TRUE THEN
21637: rollback to process_task_weightage;
21654: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
21655: ,p_error_text => x_msg_data);
21656:
21657: IF l_debug_mode = 'Y' THEN
21658: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21659: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21660: l_debug_level5);
21661: pa_debug.reset_curr_function;
21662: END IF;
21655: ,p_error_text => x_msg_data);
21656:
21657: IF l_debug_mode = 'Y' THEN
21658: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21659: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21660: l_debug_level5);
21661: pa_debug.reset_curr_function;
21662: END IF;
21663:
21657: IF l_debug_mode = 'Y' THEN
21658: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21659: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21660: l_debug_level5);
21661: pa_debug.reset_curr_function;
21662: END IF;
21663:
21664: IF p_commit = FND_API.G_TRUE THEN
21665: rollback to process_task_weightage;
21711: END IF;
21712:
21713: x_msg_count := 0;
21714: x_return_status := FND_API.G_RET_STS_SUCCESS;
21715: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21716:
21717: IF l_debug_mode = 'Y' THEN
21718: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
21719: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21714: x_return_status := FND_API.G_RET_STS_SUCCESS;
21715: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21716:
21717: IF l_debug_mode = 'Y' THEN
21718: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
21719: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21720: l_debug_level3);
21721:
21722: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
21715: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21716:
21717: IF l_debug_mode = 'Y' THEN
21718: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
21719: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21720: l_debug_level3);
21721:
21722: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
21723: p_debug_mode => l_debug_mode );
21718: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
21719: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21720: l_debug_level3);
21721:
21722: pa_debug.set_curr_function( p_function => 'SET_UPDATE_WBS_FLAG',
21723: p_debug_mode => l_debug_mode );
21724: END IF;
21725:
21726: -- Check for business rules violations
21724: END IF;
21725:
21726: -- Check for business rules violations
21727: IF l_debug_mode = 'Y' THEN
21728: pa_debug.g_err_stage:= 'Validating input parameters';
21729: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21730:
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21725:
21726: -- Check for business rules violations
21727: IF l_debug_mode = 'Y' THEN
21728: pa_debug.g_err_stage:= 'Validating input parameters';
21729: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21730:
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21733:
21727: IF l_debug_mode = 'Y' THEN
21728: pa_debug.g_err_stage:= 'Validating input parameters';
21729: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21730:
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21733:
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21728: pa_debug.g_err_stage:= 'Validating input parameters';
21729: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21730:
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21733:
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21736:
21730:
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21733:
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21736:
21737: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
21738: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21731: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
21732: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21733:
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21736:
21737: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
21738: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21739: END IF;
21733:
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21736:
21737: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
21738: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21739: END IF;
21740:
21741: IF (p_project_id IS NULL) OR
21734: pa_debug.g_err_stage:= 'p_structure_version_id = '|| p_structure_version_id;
21735: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21736:
21737: pa_debug.g_err_stage:= 'p_update_wbs_flag = '|| p_update_wbs_flag;
21738: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
21739: END IF;
21740:
21741: IF (p_project_id IS NULL) OR
21742: (p_structure_version_id IS NULL) OR
21758: commit;
21759: END IF;
21760: END IF;
21761: IF l_debug_mode = 'Y' THEN
21762: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
21763: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21764: l_debug_level3);
21765: pa_debug.reset_curr_function;
21766: END IF;
21759: END IF;
21760: END IF;
21761: IF l_debug_mode = 'Y' THEN
21762: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
21763: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21764: l_debug_level3);
21765: pa_debug.reset_curr_function;
21766: END IF;
21767: EXCEPTION
21761: IF l_debug_mode = 'Y' THEN
21762: pa_debug.g_err_stage:= 'Exiting SET_UPDATE_WBS_FLAG';
21763: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21764: l_debug_level3);
21765: pa_debug.reset_curr_function;
21766: END IF;
21767: EXCEPTION
21768:
21769: WHEN Invalid_Arg_Exc_WP THEN
21784: ELSE
21785: x_msg_count := l_msg_count;
21786: END IF;
21787: IF l_debug_mode = 'Y' THEN
21788: pa_debug.reset_curr_function;
21789: END IF;
21790:
21791: IF p_commit = FND_API.G_TRUE THEN
21792: rollback to set_update_wbs_flag;
21805: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21806: ,p_error_text => x_msg_data);
21807:
21808: IF l_debug_mode = 'Y' THEN
21809: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21810: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21811: l_debug_level5);
21812: pa_debug.reset_curr_function;
21813: END IF;
21806: ,p_error_text => x_msg_data);
21807:
21808: IF l_debug_mode = 'Y' THEN
21809: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21810: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21811: l_debug_level5);
21812: pa_debug.reset_curr_function;
21813: END IF;
21814:
21808: IF l_debug_mode = 'Y' THEN
21809: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21810: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,
21811: l_debug_level5);
21812: pa_debug.reset_curr_function;
21813: END IF;
21814:
21815: IF p_commit = FND_API.G_TRUE THEN
21816: rollback to set_update_wbs_flag;
21854: ,x_msg_data => x_msg_data) ;
21855:
21856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21857: IF l_debug_mode = 'Y' THEN
21858: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21859: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21860: END IF;
21861: Raise Invalid_Arg_Exc_WP;
21862: END IF;
21855:
21856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21857: IF l_debug_mode = 'Y' THEN
21858: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21859: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21860: END IF;
21861: Raise Invalid_Arg_Exc_WP;
21862: END IF;
21863:
21879: ELSE
21880: x_msg_count := l_msg_count;
21881: END IF;
21882: IF l_debug_mode = 'Y' THEN
21883: pa_debug.reset_curr_function;
21884: END IF;
21885: RETURN;
21886: WHEN others THEN
21887:
21894: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21895: ,p_error_text => x_msg_data);
21896:
21897: IF l_debug_mode = 'Y' THEN
21898: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21899: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21900: pa_debug.reset_curr_function;
21901: END IF;
21902: RAISE;
21895: ,p_error_text => x_msg_data);
21896:
21897: IF l_debug_mode = 'Y' THEN
21898: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21899: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21900: pa_debug.reset_curr_function;
21901: END IF;
21902: RAISE;
21903: END PROCESS_WBS_UPDATES_WRP_FORM ;
21896:
21897: IF l_debug_mode = 'Y' THEN
21898: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
21899: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
21900: pa_debug.reset_curr_function;
21901: END IF;
21902: RAISE;
21903: END PROCESS_WBS_UPDATES_WRP_FORM ;
21904:
21945: BEGIN
21946:
21947: x_msg_count := 0;
21948: x_return_status := FND_API.G_RET_STS_SUCCESS;
21949: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21950: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);
21951:
21952: /* The following is the simple solution for this.
21953: Update the Process_WBS_flag only for WORKPLAN enabled structures
21995: ,x_msg_data => x_msg_data);
21996:
21997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21998: IF l_debug_mode = 'Y' THEN
21999: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22000: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22001: END IF;
22002: Raise Invalid_Arg_Exc_WP;
22003: END IF;
21996:
21997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21998: IF l_debug_mode = 'Y' THEN
21999: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22000: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22001: END IF;
22002: Raise Invalid_Arg_Exc_WP;
22003: END IF;
22004:
22023: ,x_msg_data => x_msg_data);
22024:
22025: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22026: IF l_debug_mode = 'Y' THEN
22027: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22028: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22029: END IF;
22030: Raise Invalid_Arg_Exc_WP;
22031: END IF;
22024:
22025: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22026: IF l_debug_mode = 'Y' THEN
22027: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22028: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22029: END IF;
22030: Raise Invalid_Arg_Exc_WP;
22031: END IF;
22032:
22053: ,x_msg_data => x_msg_data);
22054:
22055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22056: IF l_debug_mode = 'Y' THEN
22057: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
22058: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22059: END IF;
22060: Raise Invalid_Arg_Exc_WP;
22061: END IF;
22054:
22055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22056: IF l_debug_mode = 'Y' THEN
22057: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
22058: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22059: END IF;
22060: Raise Invalid_Arg_Exc_WP;
22061: END IF;
22062: END IF; --hsiu: 3305199 for bug with wp only project
22080: ELSE
22081: x_msg_count := l_msg_count;
22082: END IF;
22083: IF l_debug_mode = 'Y' THEN
22084: pa_debug.reset_curr_function;
22085: END IF;
22086: RETURN;
22087: WHEN others THEN
22088:
22095: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
22096: ,p_error_text => x_msg_data);
22097:
22098: IF l_debug_mode = 'Y' THEN
22099: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
22100: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
22101: pa_debug.reset_curr_function;
22102: END IF;
22103: RAISE;
22096: ,p_error_text => x_msg_data);
22097:
22098: IF l_debug_mode = 'Y' THEN
22099: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
22100: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
22101: pa_debug.reset_curr_function;
22102: END IF;
22103: RAISE;
22104: END call_process_WBS_updates;
22097:
22098: IF l_debug_mode = 'Y' THEN
22099: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
22100: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,5);
22101: pa_debug.reset_curr_function;
22102: END IF;
22103: RAISE;
22104: END call_process_WBS_updates;
22105: --End 3035902 maansari
22608: l_object_type VARCHAR2(80);
22609: API_ERROR EXCEPTION;
22610: BEGIN
22611: IF (p_debug_mode = 'Y') THEN
22612: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
22613: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
22614: END IF;
22615: --
22616: IF (p_commit = FND_API.G_TRUE) THEN
22609: API_ERROR EXCEPTION;
22610: BEGIN
22611: IF (p_debug_mode = 'Y') THEN
22612: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
22613: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
22614: END IF;
22615: --
22616: IF (p_commit = FND_API.G_TRUE) THEN
22617: savepoint delete_intra_dependency;
22680: COMMIT;
22681: END IF;
22682: --
22683: IF (p_debug_mode = 'Y') THEN
22684: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY END');
22685: END IF;
22686: EXCEPTION
22687: WHEN API_ERROR THEN
22688: x_return_status := FND_API.G_RET_STS_ERROR;