2186: BEGIN
2187:
2188: x_msg_count := 0;
2189: x_return_status := FND_API.G_RET_STS_SUCCESS;
2190: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2191:
2192: IF l_debug_mode = 'Y' THEN
2193: PA_DEBUG.set_curr_function( p_function => 'CHECK_MOVE_FINANCIAL_TASK_OK',
2194: p_debug_mode => l_debug_mode );
2189: x_return_status := FND_API.G_RET_STS_SUCCESS;
2190: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2191:
2192: IF l_debug_mode = 'Y' THEN
2193: PA_DEBUG.set_curr_function( p_function => 'CHECK_MOVE_FINANCIAL_TASK_OK',
2194: p_debug_mode => l_debug_mode );
2195: END IF;
2196:
2197: IF l_debug_mode = 'Y' THEN
2194: p_debug_mode => l_debug_mode );
2195: END IF;
2196:
2197: IF l_debug_mode = 'Y' THEN
2198: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2199: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2200: l_debug_level3);
2201:
2202: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2195: END IF;
2196:
2197: IF l_debug_mode = 'Y' THEN
2198: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2199: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2200: l_debug_level3);
2201:
2202: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2203: l_debug_level3);
2198: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2199: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2200: l_debug_level3);
2201:
2202: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2203: l_debug_level3);
2204:
2205: Pa_Debug.WRITE(g_module_name,'p_ref_task_version_id'||':'||p_ref_task_version_id,
2206: l_debug_level3);
2201:
2202: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2203: l_debug_level3);
2204:
2205: Pa_Debug.WRITE(g_module_name,'p_ref_task_version_id'||':'||p_ref_task_version_id,
2206: l_debug_level3);
2207: END IF;
2208:
2209:
2207: END IF;
2208:
2209:
2210: IF l_debug_mode = 'Y' THEN
2211: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';
2212: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
2213: END IF;
2214:
2215:
2208:
2209:
2210: IF l_debug_mode = 'Y' THEN
2211: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';
2212: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
2213: END IF;
2214:
2215:
2216: OPEN c_get_fin_task_flag (p_task_version_id);
2250: ,p_procedure_name => 'CHECK_MOVE_FINANCIAL_TASK_OK'
2251: ,p_error_text => x_msg_data);
2252:
2253: IF l_debug_mode = 'Y' THEN
2254: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2255: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2256: l_debug_level5);
2257: Pa_Debug.reset_curr_function;
2258: END IF;
2251: ,p_error_text => x_msg_data);
2252:
2253: IF l_debug_mode = 'Y' THEN
2254: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2255: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2256: l_debug_level5);
2257: Pa_Debug.reset_curr_function;
2258: END IF;
2259: RAISE;
2253: IF l_debug_mode = 'Y' THEN
2254: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2255: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2256: l_debug_level5);
2257: Pa_Debug.reset_curr_function;
2258: END IF;
2259: RAISE;
2260: END CHECK_MOVE_FINANCIAL_TASK_OK;
2261:
2330:
2331: BEGIN
2332: x_msg_count := 0;
2333: x_return_status := FND_API.G_RET_STS_SUCCESS;
2334: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2335:
2336: IF l_debug_mode = 'Y' THEN
2337: PA_DEBUG.set_curr_function( p_function => 'CHECK_WORKPLAN_TASK_EXISTS',
2338: p_debug_mode => l_debug_mode );
2333: x_return_status := FND_API.G_RET_STS_SUCCESS;
2334: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2335:
2336: IF l_debug_mode = 'Y' THEN
2337: PA_DEBUG.set_curr_function( p_function => 'CHECK_WORKPLAN_TASK_EXISTS',
2338: p_debug_mode => l_debug_mode );
2339: END IF;
2340:
2341: IF l_debug_mode = 'Y' THEN
2338: p_debug_mode => l_debug_mode );
2339: END IF;
2340:
2341: IF l_debug_mode = 'Y' THEN
2342: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2343: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2344: l_debug_level3);
2345:
2346: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2339: END IF;
2340:
2341: IF l_debug_mode = 'Y' THEN
2342: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2343: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2344: l_debug_level3);
2345:
2346: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2347: l_debug_level3);
2342: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2343: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2344: l_debug_level3);
2345:
2346: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,
2347: l_debug_level3);
2348: END IF;
2349:
2350: --If any non financial task exists in the hierarchy, the cursor will select 'X'
2385: ,p_procedure_name => 'CHECK_WORKPLAN_TASK_EXISTS'
2386: ,p_error_text => x_msg_data);
2387:
2388: IF l_debug_mode = 'Y' THEN
2389: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2390: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2391: l_debug_level5);
2392: Pa_Debug.reset_curr_function;
2393: END IF;
2386: ,p_error_text => x_msg_data);
2387:
2388: IF l_debug_mode = 'Y' THEN
2389: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2390: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2391: l_debug_level5);
2392: Pa_Debug.reset_curr_function;
2393: END IF;
2394: RAISE;
2388: IF l_debug_mode = 'Y' THEN
2389: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2390: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2391: l_debug_level5);
2392: Pa_Debug.reset_curr_function;
2393: END IF;
2394: RAISE;
2395:
2396: END CHECK_WORKPLAN_TASK_EXISTS;