1104: -- Call Copy version API
1105: PA_FIN_PLAN_PUB.Copy_Version
1106: (p_project_id => p_project_id,
1107: p_source_version_id => l_source_version_id,
1108: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1109: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1110: px_target_version_id => l_target_version_id,
1111: x_return_status => x_return_status,
1112: x_msg_count => x_msg_count,
1105: PA_FIN_PLAN_PUB.Copy_Version
1106: (p_project_id => p_project_id,
1107: p_source_version_id => l_source_version_id,
1108: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1109: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1110: px_target_version_id => l_target_version_id,
1111: x_return_status => x_return_status,
1112: x_msg_count => x_msg_count,
1113: x_msg_data => x_msg_data);
1355: -- Call Copy version API
1356: PA_FIN_PLAN_PUB.Copy_Version
1357: (p_project_id => p_project_id,
1358: p_source_version_id => l_source_version_id,
1359: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1360: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1361: px_target_version_id => l_target_version_id,
1362: x_return_status => x_return_status,
1363: x_msg_count => x_msg_count,
1356: PA_FIN_PLAN_PUB.Copy_Version
1357: (p_project_id => p_project_id,
1358: p_source_version_id => l_source_version_id,
1359: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1360: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1361: px_target_version_id => l_target_version_id,
1362: x_return_status => x_return_status,
1363: x_msg_count => x_msg_count,
1364: x_msg_data => x_msg_data);
1697: -- Call Copy version API
1698: PA_FIN_PLAN_PUB.Copy_Version
1699: (p_project_id => p_project_id,
1700: p_source_version_id => l_source_version_id,
1701: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1702: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1703: px_target_version_id => l_target_version_id,
1704: x_return_status => x_return_status,
1705: x_msg_count => x_msg_count,
1698: PA_FIN_PLAN_PUB.Copy_Version
1699: (p_project_id => p_project_id,
1700: p_source_version_id => l_source_version_id,
1701: p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1702: p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1703: px_target_version_id => l_target_version_id,
1704: x_return_status => x_return_status,
1705: x_msg_count => x_msg_count,
1706: x_msg_data => x_msg_data);
1902: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1903: -- Check for business rules violations
1904:
1905: pa_debug.g_err_stage:= 'Validating input parameters';
1906: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1907: END IF;
1908: --Check if plan version id is null
1909:
1910: IF (p_project_id IS NULL) OR
1912: (p_target_version_id IS NULL)
1913: THEN
1914: IF p_pa_debug_mode = 'Y' THEN
1915: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
1916: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1917: pa_debug.g_err_stage:= 'p_source_version_id = '|| p_source_version_id;
1918: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1919: pa_debug.g_err_stage:= 'p_target_version_id = '|| p_target_version_id;
1920: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: IF p_pa_debug_mode = 'Y' THEN
1915: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
1916: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1917: pa_debug.g_err_stage:= 'p_source_version_id = '|| p_source_version_id;
1918: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1919: pa_debug.g_err_stage:= 'p_target_version_id = '|| p_target_version_id;
1920: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1921: END IF;
1922: PA_UTILS.ADD_MESSAGE
1916: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1917: pa_debug.g_err_stage:= 'p_source_version_id = '|| p_source_version_id;
1918: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1919: pa_debug.g_err_stage:= 'p_target_version_id = '|| p_target_version_id;
1920: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1921: END IF;
1922: PA_UTILS.ADD_MESSAGE
1923: (p_app_short_name => 'PA',
1924: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1923: (p_app_short_name => 'PA',
1924: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1925: IF p_pa_debug_mode = 'Y' THEN
1926: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1927: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1928: END IF;
1929: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1930:
1931: END IF;
1925: IF p_pa_debug_mode = 'Y' THEN
1926: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1927: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1928: END IF;
1929: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1930:
1931: END IF;
1932:
1933: IF NVL(p_calling_context,'GENERATION')<>'GENERATION' THEN
1933: IF NVL(p_calling_context,'GENERATION')<>'GENERATION' THEN
1934:
1935: IF p_pa_debug_mode = 'Y' THEN
1936: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
1937: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1938: END IF;
1939: PA_UTILS.ADD_MESSAGE
1940: (p_app_short_name => 'PA',
1941: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1943: p_value1 => 'PAFPCIMB.copy_merged_ctrl_items',
1944: p_token2 => 'STAGE',
1945: p_value2 => 'Invalid p_calling_context '||p_calling_context);
1946:
1947: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1948:
1949: END IF;
1950:
1951: --Bug 4247703. When called in generation flow, the CI links in the source should be inserted into the
2147: END IF;--IF p_calling_context ='GENERATION' THEN
2148:
2149: IF p_pa_debug_mode = 'Y' THEN
2150: pa_debug.g_err_stage:= 'Exiting copy_merged_ctrl_items';
2151: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2152: pa_debug.reset_err_stack;
2153: END IF;
2154:
2155: EXCEPTION
2153: END IF;
2154:
2155: EXCEPTION
2156:
2157: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2158:
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: l_msg_count := FND_MSG_PUB.count_msg;
2161: IF l_msg_count = 1 THEN
2186: ,p_procedure_name => 'copy_merged_ctrl_items'
2187: ,p_error_text => sqlerrm);
2188: IF p_pa_debug_mode = 'Y' THEN
2189: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2190: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2191: pa_debug.reset_err_stack;
2192: END IF;
2193: RAISE;
2194:
2271:
2272: IF l_debug_mode = 'Y' THEN
2273: pa_debug.g_err_stage:= 'Validating input parameters';
2274: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2275: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2276: END IF;
2277:
2278: IF (p_project_id IS NULL) OR
2279: (p_ci_id is NULL) OR
2282:
2283: IF l_debug_mode = 'Y' THEN
2284: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
2285: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2286: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2287: pa_debug.g_err_stage:= 'p_ci_id = '|| p_ci_id;
2288: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2289: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2290: pa_debug.g_err_stage:= 'p_t_fp_version_id = '|| p_t_fp_version_id;
2285: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2286: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2287: pa_debug.g_err_stage:= 'p_ci_id = '|| p_ci_id;
2288: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2289: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2290: pa_debug.g_err_stage:= 'p_t_fp_version_id = '|| p_t_fp_version_id;
2291: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2292: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2293: pa_debug.g_err_stage:= 'p_targ_version_type = '|| p_targ_version_type;
2288: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2289: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2290: pa_debug.g_err_stage:= 'p_t_fp_version_id = '|| p_t_fp_version_id;
2291: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2292: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2293: pa_debug.g_err_stage:= 'p_targ_version_type = '|| p_targ_version_type;
2294: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2295: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2296: END IF;
2291: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2292: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2293: pa_debug.g_err_stage:= 'p_targ_version_type = '|| p_targ_version_type;
2294: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2295: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2296: END IF;
2297: PA_UTILS.ADD_MESSAGE
2298: (p_app_short_name => 'PA',
2299: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2298: (p_app_short_name => 'PA',
2299: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2300: p_token1 => 'PROCEDURENAME',
2301: p_value1 => 'PAFPCIMB.FP_CI_MANUAL_MERGE');
2302: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2303:
2304: END IF;
2305:
2306: --Bug 4136386.If either cost or revenue part of the change order impact has already got implemented then the
2333: p_value1 => 'PAFPCIMB.FP_CI_MANUAL_MERGE',
2334: p_token2 => 'STAGE',
2335: p_value2 => 'Manual merge called for a ci which is fully impl.['||p_ci_id||', '||p_t_fp_version_id||']');
2336:
2337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2338:
2339: END IF;
2340:
2341: IF p_targ_version_type IN ('ALL','COST')
2345: /* commented for bug 3978200
2346: IF nvl(p_ci_cost_version_id,p_ci_all_version_id) IS NULL THEN
2347: IF l_debug_mode = 'Y' THEN
2348: pa_debug.g_err_stage:= 'p_ci_cost_version_id = '|| p_ci_cost_version_id;
2349: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2350:
2351: pa_debug.g_err_stage:= 'p_ci_all_version_id = '|| p_ci_all_version_id;
2352: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2353:
2348: pa_debug.g_err_stage:= 'p_ci_cost_version_id = '|| p_ci_cost_version_id;
2349: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2350:
2351: pa_debug.g_err_stage:= 'p_ci_all_version_id = '|| p_ci_all_version_id;
2352: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2353:
2354: END IF;
2355: PA_UTILS.ADD_MESSAGE
2356: (p_app_short_name => 'PA',
2356: (p_app_short_name => 'PA',
2357: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2358: p_token1 => 'PROCEDURENAME',
2359: p_value1 => 'PAFPCIMB.FP_CI_MANUAL_MERGE');
2360: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2361: END IF;
2362: */
2363:
2364: /* Call FP_CI_LINK_CONTROL_ITEMS*/
2363:
2364: /* Call FP_CI_LINK_CONTROL_ITEMS*/
2365: IF l_debug_mode = 'Y' THEN
2366: pa_debug.g_err_stage:= 'B F p_ci_cost_version_id = '|| p_ci_cost_version_id;
2367: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2368:
2369: pa_debug.g_err_stage:= 'B F p_ci_all_version_id = '|| p_ci_all_version_id;
2370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2371: END IF;
2366: pa_debug.g_err_stage:= 'B F p_ci_cost_version_id = '|| p_ci_cost_version_id;
2367: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2368:
2369: pa_debug.g_err_stage:= 'B F p_ci_all_version_id = '|| p_ci_all_version_id;
2370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2371: END IF;
2372:
2373: OPEN c_impl_dtls_csr(NVL(p_ci_cost_version_id,p_ci_all_version_id));
2374: FETCH c_impl_dtls_csr INTO l_impl_dtls_rec ;
2375: CLOSE c_impl_dtls_csr;
2376:
2377: IF l_debug_mode = 'Y' THEN
2378: pa_debug.g_err_stage:= 'COST - AFTER FETCH of cursor c_impl_dtls_csr';
2379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2380: END IF;
2381:
2382: --Though all the amounts are passed while calling the FP_CI_LINK_CONTROL_ITEMS, the called API
2383: --will take care of nulling out the amounts depending on the version type. Nulling out of cost amts
2410: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2411: IF l_debug_mode = 'Y' THEN
2412: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2413: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2414: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2415: END IF;
2416: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2417: END IF;
2418:
2412: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2413: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2414: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2415: END IF;
2416: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2417: END IF;
2418:
2419: END IF;
2420:
2425: /* commented for bug 3978200
2426: IF nvl(p_ci_rev_version_id,p_ci_all_version_id) IS NULL THEN
2427: IF l_debug_mode = 'Y' THEN
2428: pa_debug.g_err_stage:= 'p_ci_rev_version_id = '|| p_ci_rev_version_id;
2429: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2430:
2431: pa_debug.g_err_stage:= 'p_ci_all_version_id = '|| p_ci_all_version_id;
2432: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2433:
2428: pa_debug.g_err_stage:= 'p_ci_rev_version_id = '|| p_ci_rev_version_id;
2429: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2430:
2431: pa_debug.g_err_stage:= 'p_ci_all_version_id = '|| p_ci_all_version_id;
2432: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2433:
2434: END IF;
2435: PA_UTILS.ADD_MESSAGE
2436: (p_app_short_name => 'PA',
2436: (p_app_short_name => 'PA',
2437: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2438: p_token1 => 'PROCEDURENAME',
2439: p_value1 => 'PAFPCIMB.FP_CI_MANUAL_MERGE');
2440: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2441: END IF;
2442: */
2443:
2444: IF l_debug_mode = 'Y' THEN
2442: */
2443:
2444: IF l_debug_mode = 'Y' THEN
2445: pa_debug.g_err_stage:= 'B F p_ci_rev_version_id = '|| p_ci_rev_version_id;
2446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2447:
2448: pa_debug.g_err_stage:= 'B F p_ci_all_version_id = '|| p_ci_all_version_id;
2449: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2450: END IF;
2445: pa_debug.g_err_stage:= 'B F p_ci_rev_version_id = '|| p_ci_rev_version_id;
2446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2447:
2448: pa_debug.g_err_stage:= 'B F p_ci_all_version_id = '|| p_ci_all_version_id;
2449: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2450: END IF;
2451:
2452: /* Call FP_CI_LINK_CONTROL_ITEMS*/
2453: OPEN c_impl_dtls_csr(NVL(p_ci_rev_version_id,p_ci_all_version_id));
2455: CLOSE c_impl_dtls_csr;
2456:
2457: IF l_debug_mode = 'Y' THEN
2458: pa_debug.g_err_stage:= 'REV - AFTER FETCH of cursor c_impl_dtls_csr';
2459: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2460: END IF;
2461:
2462: --Though all the amounts are passed while calling the FP_CI_LINK_CONTROL_ITEMS, the called API
2463: --will take care of nulling out the amounts depending on the version type. Nulling out of cost amts
2490: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2491: IF l_debug_mode = 'Y' THEN
2492: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2493: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2494: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2495: END IF;
2496: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2497: END IF;
2498: END IF;
2492: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2493: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2494: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2495: END IF;
2496: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2497: END IF;
2498: END IF;
2499:
2500: /*
2518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2519: IF l_debug_mode = 'Y' THEN
2520: pa_debug.g_err_stage:= 'Error calling Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT';
2521: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2522: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2523: END IF;
2524: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2525: END IF;
2526:
2520: pa_debug.g_err_stage:= 'Error calling Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT';
2521: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2522: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2523: END IF;
2524: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2525: END IF;
2526:
2527: IF l_debug_mode = 'Y' THEN
2528: pa_debug.g_err_stage:= 'l_update_impact_allowed' || l_update_impact_allowed;
2526:
2527: IF l_debug_mode = 'Y' THEN
2528: pa_debug.g_err_stage:= 'l_update_impact_allowed' || l_update_impact_allowed;
2529: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2530: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2531: END IF;
2532:
2533: /*
2534: call FP_CI_UPDATE_IMPACT if flag is Y.
2553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2554: IF l_debug_mode = 'Y' THEN
2555: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2556: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2557: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2558: END IF;
2559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2560: END IF;
2561: END IF;
2555: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2556: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2557: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2558: END IF;
2559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2560: END IF;
2561: END IF;
2562:
2563: END IF;
2580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2581: IF l_debug_mode = 'Y' THEN
2582: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2583: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2584: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2585: END IF;
2586: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2587: END IF;
2588: END IF;
2582: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2583: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2584: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2585: END IF;
2586: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2587: END IF;
2588: END IF;
2589: END IF; -- update_impact_allowed = 'Y'
2590:
2590:
2591: IF l_debug_mode = 'Y' THEN
2592: pa_debug.g_err_stage:= 'Exiting FP_CI_MANUAL_MERGE';
2593: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2594: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2595: pa_debug.reset_err_stack;
2596:
2597: END IF;
2598:
2597: END IF;
2598:
2599: EXCEPTION
2600:
2601: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2602:
2603: x_return_status := FND_API.G_RET_STS_ERROR;
2604: l_msg_count := FND_MSG_PUB.count_msg;
2605:
2634:
2635: IF l_debug_mode = 'Y' THEN
2636: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2637: pa_debug.write(l_module_name,pa_debug.g_err_stage,
2638: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2639: pa_debug.reset_err_stack;
2640:
2641: END IF;
2642: RAISE;
3380: IF P_PA_debug_mode = 'Y' THEN
3381: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
3382: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383: END IF;
3384: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3385: END IF;
3386: ELSE
3387: l_ci_cost_version_id := p_ci_cost_version_id;
3388: l_ci_rev_version_id := p_ci_rev_version_id;
3576: IF P_PA_debug_mode = 'Y' THEN
3577: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
3578: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3579: END IF;
3580: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3581: END IF;
3582:
3583: END IF;
3584:
4060: IF P_PA_debug_mode = 'Y' THEN
4061: pa_debug.g_err_stage:= 'PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
4062: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4063: END IF;
4064: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4065: END IF;
4066:
4067: -- bug 3934574 In generation context, if retain manual edited lines is 'Y' filter
4068: -- all RAs with null transaction souce code
4591: IF P_PA_debug_mode = 'Y' THEN
4592: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
4593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4594: END IF;
4595: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4596: END IF;
4597:
4598: --The above API (resource defaults) returns resource attributes for the distinct resource list members passed.
4599: --The below loop will copy the resource attributes from the distinct resource list members into all the
4790: IF P_PA_debug_mode = 'Y' THEN
4791: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
4792: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4793: END IF;
4794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4795: END IF;
4796:
4797: IF P_PA_debug_mode = 'Y' THEN
4798: pa_debug.g_err_stage:= 'Returned from PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs for getting rbs elem id for new RAs';
4899: IF P_PA_debug_mode = 'Y' THEN
4900: pa_debug.g_err_stage:= 'Error in Map_Rlmi_Rbs';
4901: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4902: END IF;
4903: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4904: END IF;
4905:
4906: FOR kk in 1 .. l_targ_ra_id_tbl.count LOOP
4907:
5018: IF P_PA_debug_mode = 'Y' THEN
5019: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
5020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5021: END IF;
5022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5023: END IF;
5024:
5025:
5026: --The above API (resource defaults) returns resource attributes for the distinct resource list members passed.
5218: IF P_PA_debug_mode = 'Y' THEN
5219: pa_debug.g_err_stage:= 'Error in get_resource_defaults ';
5220: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5221: END IF;
5222: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5223: END IF;
5224:
5225: IF P_PA_debug_mode = 'Y' THEN
5226: pa_debug.g_err_stage:= 'Preparing TXN Accum Header Id and RBS Elem Id tbls';
5888:
5889: PA_FP_CALC_PLAN_PKG.calculate(
5890: p_project_id => l_project_id
5891: ,p_budget_version_id => p_budget_version_id
5892: ,p_source_context => PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT
5893: ,p_resource_assignment_tab => l_res_assignment_id_tbl
5894: ,p_delete_budget_lines_tab => l_delete_budget_lines_tbl
5895: ,p_spread_amts_flag_tab => l_spread_amount_flags_tbl
5896: ,p_txn_currency_code_tab => l_currency_code_tbl
5910: IF P_PA_debug_mode = 'Y' THEN
5911: pa_debug.g_err_stage:= 'Error in calculate';
5912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5913: END IF;
5914: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5915: END IF;
5916:
5917: --dbms_output.put_line('I24');
5918:
8840: IF P_PA_debug_mode = 'Y' THEN
8841: pa_debug.g_err_stage:= 'pa_fp_multi_currency_pkg.round_amounts returned error';
8842: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8843: END IF;
8844: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8845:
8846: END IF;
8847:
8848: END IF; --IF l_partial_factor <> 1
9197: IF P_PA_debug_mode = 'Y' THEN
9198: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9200: END IF;
9201: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9202: END IF;
9203: IF l_debug_mode = 'Y' THEN
9204: pa_debug.g_err_stage:='Start of residual amount logic';
9205: pa_debug.write('Round_Budget_Line_Amounts: ' || l_module_name,pa_debug.g_err_stage,3);
9469: IF P_PA_debug_mode = 'Y' THEN
9470: pa_debug.g_err_stage:= 'Error CALLING PAFPCALB.CheckZeroQTyNegETC';
9471: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9472: END IF;
9473: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9474: END IF;
9475: */
9476: /* Bug 5726773: End of coding done for Support of negative quantity/amounts enhancement. */
9477:
9769: IF P_PA_debug_mode = 'Y' THEN
9770: pa_debug.g_err_stage:= 'Error in ROLLUP_BUDGET_VERSION';
9771: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9772: END IF;
9773: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9774: END IF;
9775:
9776: --dbms_output.put_line('I46');
9777:
9793: IF P_PA_debug_mode = 'Y' THEN
9794: pa_debug.g_err_stage:= 'Error in g_mrc_enabled_for_budgets';
9795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9796: END IF;
9797: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9798: END IF;
9799:
9800: --dbms_output.put_line('I47');
9801:
9816: IF P_PA_debug_mode = 'Y' THEN
9817: pa_debug.g_err_stage:= 'Error in maintain_all_mc_budget_lines';
9818: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9819: END IF;
9820: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9821: END IF;
9822:
9823:
9824: END IF;
9841: IF P_PA_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9844: END IF;
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9847:
9848:
9849: PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS
9857: IF P_PA_debug_mode = 'Y' THEN
9858: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
9859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9860: END IF;
9861: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9862: END IF;
9863:
9864:
9865: pa_res_asg_currency_pub.maintain_data
9876: IF P_PA_debug_mode = 'Y' THEN
9877: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
9878: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9879: END IF;
9880: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9881: END IF;
9882:
9883: /* bug 5073816: At this point of time, the new entity would have records
9884: * from the resource assignments in the target versions which have amounts.
9898: IF P_PA_debug_mode = 'Y' THEN
9899: pa_debug.g_err_stage:= 'Error in pa_fin_plan_pub.create_default_plan_txn_rec';
9900: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9901: END IF;
9902: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9903: END IF;
9904:
9905: --IPM Architecture Enhancement: End Bug 4865563
9906:
9955: IF P_PA_DEBUG_MODE = 'Y' THEN
9956: pa_debug.g_err_stage := 'pa_planning_transaction_utils.call_update_rep_lines_api errored .... ' || x_msg_data;
9957: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9958: END IF;
9959: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9960: END IF;
9961:
9962: END IF;--IF l_rbs_version_id IS NOT NULL AND
9963:
10007: IF P_PA_debug_mode = 'Y' THEN
10008: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
10009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10010: END IF;
10011: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10012: END IF;
10013:
10014: END IF;
10015:
10044: IF P_PA_debug_mode = 'Y' THEN
10045: pa_debug.g_err_stage:= 'Error in change_management_baseline';
10046: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10047: END IF;
10048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10049: END IF;
10050:
10051: ELSE*/-- Commented as part of bug 3877815, would remove completely, once review is done.
10052:
10067: IF P_PA_debug_mode = 'Y' THEN
10068: pa_debug.g_err_stage:= 'Error in Submit_Current_Working';
10069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10070: END IF;
10071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10072: END IF;
10073:
10074: /*END IF;*/
10075:
10212: IF P_PA_debug_mode = 'Y' THEN
10213: pa_debug.g_err_stage:= 'Error in FP_CI_LINK_CONTROL_ITEMS';
10214: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10215: END IF;
10216: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10217: END IF;
10218:
10219: ELSE--IF l_impl_earlier='Y'
10220:
10292: IF P_PA_debug_mode = 'Y' THEN
10293: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
10294: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10295: END IF;
10296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10297: END IF;
10298:
10299:
10300: END IF;
10310: --dbms_output.put_line('I58');
10311: pa_debug.reset_curr_function;
10312: END IF;
10313: EXCEPTION
10314: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10315: l_msg_count := FND_MSG_PUB.count_msg;
10316:
10317: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10318: PA_INTERFACE_UTILS_PUB.get_messages
10514: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10515: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10516: p_token1 => 'PROCEDURENAME',
10517: p_value1 => l_module_name);
10518: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10519:
10520:
10521: END IF;
10522:
10548: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10549: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10550: p_token1 => 'PROCEDURENAME',
10551: p_value1 => l_module_name);
10552: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10553:
10554: END IF;
10555: --dbms_output.put_line('2');
10556:
10588: (p_app_short_name => 'PA',
10589: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10590: p_token1 => 'PROCEDURENAME',
10591: p_value1 => l_module_name);
10592: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10593:
10594: END IF;
10595:
10596: --dbms_output.put_line('3');
10614: (p_app_short_name => 'PA',
10615: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10616: p_token1 => 'PROCEDURENAME',
10617: p_value1 => l_module_name);
10618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10619:
10620: END IF;
10621:
10622: IF (p_impl_cost_flag_tbl(1) ='Y' OR
10636: (p_app_short_name => 'PA',
10637: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10638: p_token1 => 'PROCEDURENAME',
10639: p_value1 => l_module_name);
10640: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10641:
10642: END IF;
10643:
10644: END IF;
10717: (p_app_short_name => 'PA',
10718: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10719: p_token1 => 'PROCEDURENAME',
10720: p_value1 => l_module_name);
10721: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10722:
10723: END IF;
10724:
10725: l_copy_ci_ver_flag:='Y';
11366: OR (x_ci_all_version_id_tbl(i) IS NOT NULL AND l_ci_all_res_cls_flag <> l_targ_resource_cls_flag))
11367: then
11368: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
11369: p_msg_name => 'PA_PS_FP_SOU_TAR_PRL_NOT_EQUAL');
11370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11371: end if;
11372: --CBS 12.2 enhancement changes end here
11373: IF l_impl_cost_flag_tbl(j) IS NULL AND
11374: l_impl_rev_flag_tbl(j) IS NULL THEN
11403: IF P_PA_debug_mode = 'Y' THEN
11404: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
11405: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
11406: END IF;
11407: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11408: END IF;
11409: ELSE
11410:
11411: l_cost_impl_flag:=nvl(l_impl_cost_flag_tbl(j),'N');
11644: IF p_context='CI_MERGE' THEN
11645: l_msg_count_at_end := fnd_msg_pub.count_msg;
11646: IF l_init_msg_count <> l_msg_count_at_end THEN
11647:
11648: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11649:
11650: ELSE
11651:
11652: x_return_status:='S';
11665: --dbms_output.put_line('9');
11666:
11667: EXCEPTION
11668:
11669: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11670: l_msg_count := FND_MSG_PUB.count_msg;
11671: IF l_msg_count = 1 THEN
11672: PA_INTERFACE_UTILS_PUB.get_messages
11673: (p_encoded => FND_API.G_TRUE
12028: IF P_PA_debug_mode = 'Y' THEN
12029: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
12030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12031: END IF;
12032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12033: END IF;
12034:
12035: IF l_debug_mode = 'Y' THEN
12036: pa_debug.g_err_stage:= 'Call to pa_fp_ci_implement_pkg.create_ci_impact_fund_lines done';
12055: IF P_PA_debug_mode = 'Y' THEN
12056: pa_debug.g_err_stage:= 'Error in change_management_baseline';
12057: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12058: END IF;
12059: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12060: END IF;
12061:
12062: IF l_debug_mode = 'Y' THEN
12063: pa_debug.g_err_stage:= 'Call to pa_baseline_funding_pkg.change_management_baseline done';
12087: IF P_PA_debug_mode = 'Y' THEN
12088: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info';
12089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12090: END IF;
12091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12092: END IF;
12093:
12094: IF l_debug_mode = 'Y' THEN
12095: pa_debug.g_err_stage:= 'New current working version id' || l_new_cw_version_id ;
12110: IF P_PA_debug_mode = 'Y' THEN
12111: pa_debug.g_err_stage:= 'Error in Get_Baselined_Version_Info';
12112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12113: END IF;
12114: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12115: END IF;
12116:
12117: IF l_debug_mode = 'Y' THEN
12118: pa_debug.g_err_stage:= 'New baseline version id' || l_baseline_version_id ;
12333:
12334: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12335: IF l_debug_mode = 'Y' THEN
12336: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12337: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12338: END IF;
12339: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12340: END IF;
12341:
12335: IF l_debug_mode = 'Y' THEN
12336: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12337: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12338: END IF;
12339: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12340: END IF;
12341:
12342: -- For the baseline version
12343: FP_CI_LINK_CONTROL_ITEMS
12366:
12367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12371: END IF;
12372: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12373: END IF;
12374:
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12371: END IF;
12372: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12373: END IF;
12374:
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage:= 'Call to FP_CI_LINK_CONTROL_ITEMS DONE';
12399: IF P_PA_debug_mode = 'Y' THEN
12400: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
12401: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12402: END IF;
12403: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12404: END IF;
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage:= 'Call to pa_fp_ci_merge.FP_CI_UPDATE_IMPACT done';
12407: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12460: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12461: pa_debug.reset_curr_function;
12462: END IF;
12463: EXCEPTION
12464: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12465: l_msg_count := FND_MSG_PUB.count_msg;
12466: IF l_msg_count = 1 THEN
12467: PA_INTERFACE_UTILS_PUB.get_messages
12468: (p_encoded => FND_API.G_TRUE
12715: IF l_debug_mode = 'Y' THEN
12716: pa_debug.g_err_stage:='Called API validate_ci_merge_input_data returned error';
12717: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12718: END IF;
12719: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12720:
12721: END IF;
12722:
12723: --dbms_output.put_line('M3');
12910: END IF;
12911: IF p_context ='PARTIAL_REV' THEN
12912: l_partial_impl_succeeded:='N';
12913: END IF;
12914: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12915: ELSE
12916: --Record that this implementation is successful
12917: IF p_context='IMPL_FIN_IMPACT' THEN
12918: l_succ_impl_plan_types.EXTEND(1);
12961: IF p_context ='PARTIAL_REV' THEN
12962: l_partial_impl_succeeded:='N';
12963: END IF;
12964:
12965: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12966:
12967: ELSE
12968: --Record that this implementation is successful
12969: IF p_context='IMPL_FIN_IMPACT' THEN
13187: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
13188: pa_debug.reset_curr_function;
13189: END IF;
13190: EXCEPTION
13191: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13192: l_msg_count := FND_MSG_PUB.count_msg;
13193: IF l_msg_count = 1 THEN
13194: PA_INTERFACE_UTILS_PUB.get_messages
13195: (p_encoded => FND_API.G_TRUE