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;
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;
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;
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';
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,
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,
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:
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 );
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,
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,
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