2237: BEGIN
2238:
2239: x_msg_count := 0;
2240: x_return_status := FND_API.G_RET_STS_SUCCESS;
2241: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2242:
2243: IF l_debug_mode = 'Y' THEN
2244: PA_DEBUG.set_curr_function( p_function => 'CHECK_MOVE_FINANCIAL_TASK_OK',
2245: p_debug_mode => l_debug_mode );
2240: x_return_status := FND_API.G_RET_STS_SUCCESS;
2241: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2242:
2243: IF l_debug_mode = 'Y' THEN
2244: PA_DEBUG.set_curr_function( p_function => 'CHECK_MOVE_FINANCIAL_TASK_OK',
2245: p_debug_mode => l_debug_mode );
2246: END IF;
2247:
2248: IF l_debug_mode = 'Y' THEN
2245: p_debug_mode => l_debug_mode );
2246: END IF;
2247:
2248: IF l_debug_mode = 'Y' THEN
2249: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2250: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2251: l_debug_level3);
2252:
2253: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2246: END IF;
2247:
2248: IF l_debug_mode = 'Y' THEN
2249: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2250: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2251: l_debug_level3);
2252:
2253: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2254: l_debug_level3);
2249: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2250: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2251: l_debug_level3);
2252:
2253: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2254: l_debug_level3);
2255:
2256: Pa_Debug.WRITE(g_module_name,'p_ref_task_version_id'||':'||p_ref_task_version_id,
2257: l_debug_level3);
2252:
2253: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2254: l_debug_level3);
2255:
2256: Pa_Debug.WRITE(g_module_name,'p_ref_task_version_id'||':'||p_ref_task_version_id,
2257: l_debug_level3);
2258: END IF;
2259:
2260:
2258: END IF;
2259:
2260:
2261: IF l_debug_mode = 'Y' THEN
2262: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';
2263: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
2264: END IF;
2265:
2266:
2259:
2260:
2261: IF l_debug_mode = 'Y' THEN
2262: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';
2263: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
2264: END IF;
2265:
2266:
2267: OPEN c_get_fin_task_flag (p_task_version_id);
2301: ,p_procedure_name => 'CHECK_MOVE_FINANCIAL_TASK_OK'
2302: ,p_error_text => x_msg_data);
2303:
2304: IF l_debug_mode = 'Y' THEN
2305: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2306: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2307: l_debug_level5);
2308: Pa_Debug.reset_curr_function;
2309: END IF;
2302: ,p_error_text => x_msg_data);
2303:
2304: IF l_debug_mode = 'Y' THEN
2305: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2306: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2307: l_debug_level5);
2308: Pa_Debug.reset_curr_function;
2309: END IF;
2310: RAISE;
2304: IF l_debug_mode = 'Y' THEN
2305: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2306: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2307: l_debug_level5);
2308: Pa_Debug.reset_curr_function;
2309: END IF;
2310: RAISE;
2311: END CHECK_MOVE_FINANCIAL_TASK_OK;
2312:
2381:
2382: BEGIN
2383: x_msg_count := 0;
2384: x_return_status := FND_API.G_RET_STS_SUCCESS;
2385: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2386:
2387: IF l_debug_mode = 'Y' THEN
2388: PA_DEBUG.set_curr_function( p_function => 'CHECK_WORKPLAN_TASK_EXISTS',
2389: p_debug_mode => l_debug_mode );
2384: x_return_status := FND_API.G_RET_STS_SUCCESS;
2385: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2386:
2387: IF l_debug_mode = 'Y' THEN
2388: PA_DEBUG.set_curr_function( p_function => 'CHECK_WORKPLAN_TASK_EXISTS',
2389: p_debug_mode => l_debug_mode );
2390: END IF;
2391:
2392: IF l_debug_mode = 'Y' THEN
2389: p_debug_mode => l_debug_mode );
2390: END IF;
2391:
2392: IF l_debug_mode = 'Y' THEN
2393: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2394: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2395: l_debug_level3);
2396:
2397: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2390: END IF;
2391:
2392: IF l_debug_mode = 'Y' THEN
2393: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2394: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2395: l_debug_level3);
2396:
2397: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2398: l_debug_level3);
2393: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2394: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2395: l_debug_level3);
2396:
2397: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2398: l_debug_level3);
2399: END IF;
2400:
2401: --If any non financial task exists in the hierarchy, the cursor will select 'X'
2436: ,p_procedure_name => 'CHECK_WORKPLAN_TASK_EXISTS'
2437: ,p_error_text => x_msg_data);
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2441: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2442: l_debug_level5);
2443: Pa_Debug.reset_curr_function;
2444: END IF;
2437: ,p_error_text => x_msg_data);
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2441: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2442: l_debug_level5);
2443: Pa_Debug.reset_curr_function;
2444: END IF;
2445: RAISE;
2439: IF l_debug_mode = 'Y' THEN
2440: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2441: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2442: l_debug_level5);
2443: Pa_Debug.reset_curr_function;
2444: END IF;
2445: RAISE;
2446:
2447: END CHECK_WORKPLAN_TASK_EXISTS;