[Home] [Help]
69:
70:
71: PROCEDURE create_draft_budget
72: ( p_api_version_number IN NUMBER
73: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
74: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
75: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
76: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
77: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
70:
71: PROCEDURE create_draft_budget
72: ( p_api_version_number IN NUMBER
73: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
74: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
75: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
76: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
77: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
78: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
283:
284: --Standard begin of API savepoint
285: SAVEPOINT create_draft_budget_pub;
286: p_msg_count := 0;
287: p_return_status := FND_API.G_RET_STS_SUCCESS;
288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
289: l_module_name := 'create_draft_budget' || g_module_name;
290:
291: -- Changes for bug 3182963
296:
297:
298:
299: -- Standard call to check for call compatibility.
300: IF NOT FND_API.Compatible_API_Call ( PA_BUDGET_PUB.g_api_version_number ,
301: p_api_version_number ,
302: l_api_name ,
303: G_PKG_NAME )
304: THEN
301: p_api_version_number ,
302: l_api_name ,
303: G_PKG_NAME )
304: THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
307:
308: --dbms_output.put_line('copying input parameters to local variables');
309:
507: ,p_msg_count => p_msg_count
508: ,p_msg_data => p_msg_data
509: ,p_return_status => p_return_status);
510:
511: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
512: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
513: END IF;
514: */
515:
564: ,x_msg_count => p_msg_count
565: ,x_msg_data => p_msg_data
566: ,x_return_status => p_return_status);
567:
568: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
569:
570: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
571:
572: END IF;
634: x_return_status => p_return_status,
635: x_msg_count => p_msg_count,
636: x_msg_data => p_msg_data );
637:
638: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
639: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
640: -- RAISE FND_API.G_EXC_ERROR;
641: END IF; -- IF l_err_code <> 0 THEN
642:
636: x_msg_data => p_msg_data );
637:
638: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
639: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
640: -- RAISE FND_API.G_EXC_ERROR;
641: END IF; -- IF l_err_code <> 0 THEN
642:
643: IF l_debug_mode = 'Y' THEN
644: pa_debug.g_err_stage := 'Got the uncategorized res list info';
888: pa_debug.g_err_stage := 'Error executing create draft';
889: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
890: END IF;
891:
892: RAISE FND_API.G_EXC_ERROR;
893:
894: ELSIF l_err_code < 0
895: THEN
896:
909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
910: END IF;
911:
912:
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914:
915: END IF;
916:
917: IF l_debug_mode = 'Y' THEN
1197: ,x_msg_count => p_msg_count
1198: ,x_msg_data => p_msg_data
1199: ,x_return_status => p_return_status);
1200:
1201: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1202:
1203: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1204:
1205: END IF;
1237: /* initialize return status for budget line to success */
1238:
1239: /* Bug 3133930 initialization is removed here as it has been done in
1240: validate_budget_lines */
1241: /* p_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS; */
1242:
1243: l_budget_line_in_rec := l_budget_lines_in(i);
1244: IF l_budget_line_in_rec.pm_budget_line_reference =
1245: PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1303: ,p_budget_amount_code => l_budget_amount_code
1304: ,p_budget_entry_method_code => p_entry_method_code
1305: ,p_categorization_code => l_categorization_code
1306: ,p_budget_version_id => l_budget_version_id );
1307: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1308: THEN
1309: p_budget_lines_out(i).return_status := l_return_status;
1310:
1311: IF l_debug_mode = 'Y' THEN
1312: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1313: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1314: END IF;
1315:
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1317:
1318: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1319: THEN
1320: p_budget_lines_out(i).return_status := l_return_status;
1314: END IF;
1315:
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1317:
1318: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1319: THEN
1320: p_budget_lines_out(i).return_status := l_return_status;
1321: p_multiple_task_msg := 'F';
1322: IF l_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'Error inserting line '||i;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1325: END IF;
1326:
1327: -- RAISE FND_API.G_EXC_ERROR;
1328:
1329: END IF;
1330:
1331: IF l_debug_mode = 'Y' THEN
1339: END LOOP budget_line;
1340:
1341: IF p_multiple_task_msg = 'F'
1342: THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: END IF;
1345:
1346: END IF;
1347:
1638: ,x_msg_count => p_msg_count
1639: ,x_msg_data => p_msg_data
1640: ,x_return_status => p_return_status);
1641:
1642: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1643:
1644: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1645:
1646: END IF;
2003: ,x_return_status => p_return_status
2004: ,x_msg_count => p_msg_count
2005: ,x_msg_data => p_msg_data );
2006:
2007: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2009: END IF;
2010:
2011: IF l_CW_version_id IS NOT NULL THEN
2027: , x_msg_count => p_msg_count
2028: , x_msg_data => p_msg_data
2029: );
2030:
2031: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2032:
2033: IF l_debug_mode = 'Y' THEN
2034: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2081: x_return_status => p_return_status,
2082: x_msg_count => p_msg_count,
2083: x_msg_data => p_msg_data) ;
2084:
2085: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2086:
2087: IF l_debug_mode = 'Y' THEN
2088: pa_debug.g_err_stage := 'Error executing lock unlock version';
2089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2162: ,x_msg_count => p_msg_count
2163: ,x_msg_data => p_msg_data);
2164:
2165:
2166: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2167:
2168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2169:
2170: END IF;
2185: x_return_status => p_return_status,
2186: x_msg_count => p_msg_count,
2187: x_msg_data => p_msg_data) ;
2188:
2189: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2190:
2191: IF l_debug_mode = 'Y' THEN
2192: pa_debug.g_err_stage := 'Error executing lock unlock version';
2193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2234: END IF;
2235:
2236:
2237: RAISE FND_API.G_EXC_ERROR;
2238:
2239: ELSIF l_err_code < 0
2240: THEN
2241:
2253: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2255: END IF;
2256:
2257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2258:
2259: END IF;
2260:
2261: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2269: ,x_msg_count => p_msg_count
2270: ,x_msg_data => p_msg_data );
2271:
2272:
2273: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2274:
2275: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2276:
2277: END IF;
2336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2337: END IF;
2338:
2339:
2340: RAISE FND_API.G_EXC_ERROR;
2341:
2342: ELSIF l_err_code < 0
2343: THEN
2344:
2357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2358: END IF;
2359:
2360:
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362:
2363: END IF;
2364:
2365:
2365:
2366: END IF;
2367:
2368:
2369: IF FND_API.TO_BOOLEAN( p_commit )
2370: THEN
2371:
2372: IF l_debug_mode = 'Y' THEN
2373: pa_debug.g_err_stage := 'About to do a COMMIT';
2393: -- dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2394: ROLLBACK TO create_draft_budget_pub;
2395:
2396: IF p_return_status IS NULL OR
2397: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
2398: p_return_status := FND_API.G_RET_STS_ERROR;
2399: END IF;
2400:
2401: l_msg_count := FND_MSG_PUB.count_msg;
2394: ROLLBACK TO create_draft_budget_pub;
2395:
2396: IF p_return_status IS NULL OR
2397: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
2398: p_return_status := FND_API.G_RET_STS_ERROR;
2399: END IF;
2400:
2401: l_msg_count := FND_MSG_PUB.count_msg;
2402: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2402: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2403:
2404: IF l_msg_count = 1 AND p_msg_data IS NULL THEN
2405: PA_INTERFACE_UTILS_PUB.get_messages
2406: (p_encoded => FND_API.G_TRUE,
2407: p_msg_index => 1,
2408: p_msg_count => l_msg_count,
2409: p_msg_data => l_msg_data,
2410: p_data => l_data,
2423: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2424:
2425: RETURN;
2426:
2427: WHEN FND_API.G_EXC_ERROR
2428: THEN
2429:
2430: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in create_draft_budget'); */
2431:
2430: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in create_draft_budget'); */
2431:
2432: ROLLBACK TO create_draft_budget_pub;
2433:
2434: p_return_status := FND_API.G_RET_STS_ERROR;
2435:
2436: FND_MSG_PUB.Count_And_Get
2437: ( p_count => p_msg_count ,
2438: p_data => p_msg_data );
2441: pa_debug.reset_curr_function;
2442: END IF;
2443:
2444:
2445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2446: THEN
2447:
2448: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception in create_draft_budget'); */
2449:
2448: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception in create_draft_budget'); */
2449:
2450: ROLLBACK TO create_draft_budget_pub;
2451:
2452: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453:
2454: FND_MSG_PUB.Count_And_Get
2455: ( p_count => p_msg_count ,
2456: p_data => p_msg_data );
2464: WHEN ROW_ALREADY_LOCKED
2465: THEN
2466: ROLLBACK TO create_draft_budget_pub;
2467:
2468: p_return_status := FND_API.G_RET_STS_ERROR;
2469:
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2471: THEN
2472: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
2495: /* -- dbms_output.put_line('handling an OTHERS exception'); */
2496:
2497: ROLLBACK TO create_draft_budget_pub;
2498:
2499: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2500:
2501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2502: THEN
2503: FND_MSG_PUB.add_exc_msg
2571: -- 11-Mar-2003 Srikanth Included the parameters for Fin Plan Model
2572:
2573: PROCEDURE load_budget_line
2574: ( p_api_version_number IN NUMBER
2575: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2576: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2577: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2578: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2579: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2572:
2573: PROCEDURE load_budget_line
2574: ( p_api_version_number IN NUMBER
2575: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2576: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2577: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2578: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2579: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2580: ,p_resource_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2695: --bug fix 13686054 end
2696:
2697: -- Standard call to check for call compatibility.
2698:
2699: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2700: p_api_version_number ,
2701: l_api_name ,
2702: G_PKG_NAME )
2703: THEN
2701: l_api_name ,
2702: G_PKG_NAME )
2703: THEN
2704:
2705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2706:
2707: END IF;
2708:
2709: -- Initialize the message table if requested.
2707: END IF;
2708:
2709: -- Initialize the message table if requested.
2710:
2711: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2712: THEN
2713:
2714: FND_MSG_PUB.initialize;
2715:
2716: END IF;
2717:
2718: -- Set API return status to success
2719:
2720: p_return_status := FND_API.G_RET_STS_SUCCESS;
2721:
2722: -- assign a value to the global counter for this table
2723: G_budget_lines_tbl_count := G_budget_lines_tbl_count + 1;
2724:
2801:
2802:
2803: EXCEPTION
2804:
2805: WHEN FND_API.G_EXC_ERROR
2806: THEN
2807: ROLLBACK TO load_budget_line_pub;
2808:
2809: p_return_status := FND_API.G_RET_STS_ERROR;
2805: WHEN FND_API.G_EXC_ERROR
2806: THEN
2807: ROLLBACK TO load_budget_line_pub;
2808:
2809: p_return_status := FND_API.G_RET_STS_ERROR;
2810:
2811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2812: THEN
2813: ROLLBACK TO load_budget_line_pub;
2807: ROLLBACK TO load_budget_line_pub;
2808:
2809: p_return_status := FND_API.G_RET_STS_ERROR;
2810:
2811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2812: THEN
2813: ROLLBACK TO load_budget_line_pub;
2814:
2815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2812: THEN
2813: ROLLBACK TO load_budget_line_pub;
2814:
2815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2816:
2817: WHEN OTHERS THEN
2818: ROLLBACK TO load_budget_line_pub;
2819:
2816:
2817: WHEN OTHERS THEN
2818: ROLLBACK TO load_budget_line_pub;
2819:
2820: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2821:
2822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2823: THEN
2824: FND_MSG_PUB.add_exc_msg
2845: -- 29-NOV-1996 L. de Werker Added parameter p_pm_budget_reference
2846: -- 01-sep-2004 tpalaniv Added parameter p_pm_budget_reference while calling create_draft_budget
2847: PROCEDURE execute_create_draft_budget
2848: ( p_api_version_number IN NUMBER
2849: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2850: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2851: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2852: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2853: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2846: -- 01-sep-2004 tpalaniv Added parameter p_pm_budget_reference while calling create_draft_budget
2847: PROCEDURE execute_create_draft_budget
2848: ( p_api_version_number IN NUMBER
2849: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2850: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2851: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2852: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2853: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2854: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2925: SAVEPOINT execute_create_budget_pub;
2926:
2927: -- Standard call to check for call compatibility.
2928:
2929: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2930: p_api_version_number ,
2931: l_api_name ,
2932: G_PKG_NAME )
2933: THEN
2931: l_api_name ,
2932: G_PKG_NAME )
2933: THEN
2934:
2935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2936:
2937: END IF;
2938:
2939: -- Initialize the message table if requested.
2937: END IF;
2938:
2939: -- Initialize the message table if requested.
2940:
2941: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2942: THEN
2943:
2944: FND_MSG_PUB.initialize;
2945:
2946: END IF;
2947:
2948: -- Set API return status to success
2949:
2950: p_return_status := FND_API.G_RET_STS_SUCCESS;
2951:
2952: create_draft_budget
2953: ( p_api_version_number => p_api_version_number
2954: ,p_commit => FND_API.G_FALSE
2950: p_return_status := FND_API.G_RET_STS_SUCCESS;
2951:
2952: create_draft_budget
2953: ( p_api_version_number => p_api_version_number
2954: ,p_commit => FND_API.G_FALSE
2955: ,p_init_msg_list => FND_API.G_FALSE
2956: ,p_msg_count => p_msg_count
2957: ,p_msg_data => p_msg_data
2958: ,p_return_status => l_return_status
2951:
2952: create_draft_budget
2953: ( p_api_version_number => p_api_version_number
2954: ,p_commit => FND_API.G_FALSE
2955: ,p_init_msg_list => FND_API.G_FALSE
2956: ,p_msg_count => p_msg_count
2957: ,p_msg_data => p_msg_data
2958: ,p_return_status => l_return_status
2959: ,p_pm_product_code => p_pm_product_code
3021: SAVEPOINT execute_create_budget_pub;
3022:
3023: /* -- dbms_output.put_line('Return status create_draft_budget: '||l_return_status); */
3024:
3025: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3026: THEN
3027:
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029:
3024:
3025: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3026: THEN
3027:
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029:
3030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3031: THEN
3032:
3026: THEN
3027:
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029:
3030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3031: THEN
3032:
3033: RAISE FND_API.G_EXC_ERROR;
3034: END IF;
3029:
3030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3031: THEN
3032:
3033: RAISE FND_API.G_EXC_ERROR;
3034: END IF;
3035:
3036: IF fnd_api.to_boolean(p_commit)
3037: THEN
3032:
3033: RAISE FND_API.G_EXC_ERROR;
3034: END IF;
3035:
3036: IF fnd_api.to_boolean(p_commit)
3037: THEN
3038: COMMIT;
3039: END IF;
3040:
3040:
3041:
3042: EXCEPTION
3043:
3044: WHEN FND_API.G_EXC_ERROR
3045: THEN
3046:
3047:
3048: ROLLBACK TO execute_create_budget_pub;
3046:
3047:
3048: ROLLBACK TO execute_create_budget_pub;
3049:
3050: p_return_status := FND_API.G_RET_STS_ERROR;
3051:
3052: FND_MSG_PUB.Count_And_Get
3053: ( p_count => p_msg_count ,
3054: p_data => p_msg_data );
3052: FND_MSG_PUB.Count_And_Get
3053: ( p_count => p_msg_count ,
3054: p_data => p_msg_data );
3055:
3056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3057: THEN
3058:
3059: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3060:
3059: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3060:
3061: ROLLBACK TO execute_create_budget_pub;
3062:
3063: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3064:
3065: FND_MSG_PUB.Count_And_Get
3066: ( p_count => p_msg_count ,
3067: p_data => p_msg_data );
3070:
3071:
3072: ROLLBACK TO execute_create_budget_pub;
3073:
3074: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3075:
3076: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3077: THEN
3078: FND_MSG_PUB.add_exc_msg
3104: --
3105: --
3106: PROCEDURE fetch_budget_line
3107: ( p_api_version_number IN NUMBER
3108: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3109: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3110: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3111: ,p_line_return_status OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
3112:
3123: SAVEPOINT fetch_budget_line_pub;
3124:
3125: -- Standard call to check for call compatibility.
3126:
3127: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3128: p_api_version_number ,
3129: l_api_name ,
3130: G_PKG_NAME )
3131: THEN
3129: l_api_name ,
3130: G_PKG_NAME )
3131: THEN
3132:
3133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3134:
3135: END IF;
3136:
3137: -- Initialize the message table if requested.
3135: END IF;
3136:
3137: -- Initialize the message table if requested.
3138:
3139: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3140: THEN
3141:
3142: FND_MSG_PUB.initialize;
3143:
3144: END IF;
3145:
3146: -- Set API return status to success
3147:
3148: p_return_status := FND_API.G_RET_STS_SUCCESS;
3149:
3150: -- Check budget line index value,
3151: -- when they don't provide an index we will error out
3152:
3166: ,p_attribute4 => ''
3167: ,p_attribute5 => '');
3168: END IF;
3169:
3170: p_return_status := FND_API.G_RET_STS_ERROR;
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSE
3173: l_index := p_line_index;
3174: END IF;
3167: ,p_attribute5 => '');
3168: END IF;
3169:
3170: p_return_status := FND_API.G_RET_STS_ERROR;
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSE
3173: l_index := p_line_index;
3174: END IF;
3175:
3179:
3180:
3181: EXCEPTION
3182:
3183: WHEN FND_API.G_EXC_ERROR
3184: THEN
3185:
3186: ROLLBACK TO fetch_budget_line_pub;
3187:
3184: THEN
3185:
3186: ROLLBACK TO fetch_budget_line_pub;
3187:
3188: p_return_status := FND_API.G_RET_STS_ERROR;
3189:
3190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3191: THEN
3192:
3186: ROLLBACK TO fetch_budget_line_pub;
3187:
3188: p_return_status := FND_API.G_RET_STS_ERROR;
3189:
3190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3191: THEN
3192:
3193: ROLLBACK TO fetch_budget_line_pub;
3194:
3191: THEN
3192:
3193: ROLLBACK TO fetch_budget_line_pub;
3194:
3195: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3196:
3197: WHEN OTHERS THEN
3198:
3199: ROLLBACK TO fetch_budget_line_pub;
3197: WHEN OTHERS THEN
3198:
3199: ROLLBACK TO fetch_budget_line_pub;
3200:
3201: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3202:
3203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3204: THEN
3205: FND_MSG_PUB.add_exc_msg
3280:
3281:
3282: PROCEDURE Baseline_Budget
3283: ( p_api_version_number IN NUMBER
3284: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3285: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3286: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3287: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3288: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3281:
3282: PROCEDURE Baseline_Budget
3283: ( p_api_version_number IN NUMBER
3284: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3285: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3286: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3287: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3288: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3289: ,p_workflow_started OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3497:
3498:
3499: --Standard call to check for call compatibility.
3500:
3501: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3502: p_api_version_number ,
3503: l_api_name ,
3504: G_PKG_NAME )
3505: THEN
3503: l_api_name ,
3504: G_PKG_NAME )
3505: THEN
3506:
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508:
3509: END IF;
3510:
3511: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3515: p_debug_mode => l_debug_mode );
3516:
3517:
3518: --Initialize the message table if requested.
3519: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3520: THEN
3521:
3522: FND_MSG_PUB.initialize;
3523:
3539: ,p_msg_count => l_msg_count
3540: ,p_msg_data => l_msg_data
3541: ,p_return_status => l_return_status);
3542:
3543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3544: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3545: END IF;
3546: */
3547: --product_code is mandatory
3566: pa_debug.g_err_stage:= 'Product code is missing';
3567: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3568: END IF;
3569:
3570: -- RAISE FND_API.G_EXC_ERROR;
3571: l_any_error_occurred_flag := 'Y';
3572:
3573: ELSE
3574: l_pm_product_code :='Z';
3594: ,p_attribute3 => ''
3595: ,p_attribute4 => ''
3596: ,p_attribute5 => '');
3597: END IF;
3598: p_return_status := FND_API.G_RET_STS_ERROR;
3599: -- RAISE FND_API.G_EXC_ERROR;
3600: l_any_error_occurred_flag := 'Y';
3601: IF l_debug_mode = 'Y' THEN
3602: pa_debug.g_err_stage:= 'Product code is invalid';
3595: ,p_attribute4 => ''
3596: ,p_attribute5 => '');
3597: END IF;
3598: p_return_status := FND_API.G_RET_STS_ERROR;
3599: -- RAISE FND_API.G_EXC_ERROR;
3600: l_any_error_occurred_flag := 'Y';
3601: IF l_debug_mode = 'Y' THEN
3602: pa_debug.g_err_stage:= 'Product code is invalid';
3603: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3638: -- p_msg_data => l_msg_data,
3639: -- p_return_status => l_return_status,
3640: -- p_function_allowed => l_function_allowed );
3641:
3642: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: --THEN
3644: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645: --
3646: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3640: -- p_function_allowed => l_function_allowed );
3641:
3642: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: --THEN
3644: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645: --
3646: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3647: --THEN
3648: -- RAISE FND_API.G_EXC_ERROR;
3642: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3643: --THEN
3644: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645: --
3646: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3647: --THEN
3648: -- RAISE FND_API.G_EXC_ERROR;
3649: --END IF;
3650: --IF l_function_allowed = 'N' THEN
3644: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3645: --
3646: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3647: --THEN
3648: -- RAISE FND_API.G_EXC_ERROR;
3649: --END IF;
3650: --IF l_function_allowed = 'N' THEN
3651: -- pa_interface_utils_pub.map_new_amg_msg
3652: -- ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
3657: -- ,p_attribute2 => ''
3658: -- ,p_attribute3 => ''
3659: -- ,p_attribute4 => ''
3660: -- ,p_attribute5 => '');
3661: -- p_return_status := FND_API.G_RET_STS_ERROR;
3662: -- RAISE FND_API.G_EXC_ERROR;
3663: --END IF;
3664:
3665:
3658: -- ,p_attribute3 => ''
3659: -- ,p_attribute4 => ''
3660: -- ,p_attribute5 => '');
3661: -- p_return_status := FND_API.G_RET_STS_ERROR;
3662: -- RAISE FND_API.G_EXC_ERROR;
3663: --END IF;
3664:
3665:
3666: -- Set API return status to success
3664:
3665:
3666: -- Set API return status to success
3667:
3668: p_return_status := FND_API.G_RET_STS_SUCCESS;
3669:
3670:
3671:
3672: -- 12-AUG-97, jwhite:
3695: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3700: THEN
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3702:
3703: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3697: END IF;
3698:
3699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3700: THEN
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3702:
3703: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3700: THEN
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3702:
3703: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3706:
3707: END IF;
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3702:
3703: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3706:
3707: END IF;
3708:
3709: IF l_project_id IS NULL --never happens because previous procedure checks this.
3726: pa_debug.g_err_stage:= 'Project id is null ';
3727: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3728: END IF;
3729:
3730: RAISE FND_API.G_EXC_ERROR;
3731:
3732: END IF;
3733:
3734: -- Get segment1 for AMG messages
3805: ,p_version_type => NULL
3806: ,x_return_status => l_return_status
3807: ,x_ret_code => l_security_ret_code );
3808:
3809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3810: l_security_ret_code = 'N' THEN
3811:
3812: IF l_debug_mode = 'Y' THEN
3813: pa_debug.g_err_stage := 'Security API failed' ;
3845: pa_debug.g_err_stage:= 'Invalid budget type ';
3846: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3847: END IF;
3848:
3849: RAISE FND_API.G_EXC_ERROR;
3850:
3851: ELSE
3852: CLOSE l_budget_types_csr;
3853: END IF;
3883: ,x_return_status => l_return_status
3884: ,x_msg_count => l_msg_count
3885: ,x_msg_data => l_msg_data);
3886:
3887: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3888:
3889: IF l_debug_mode = 'Y' THEN
3890: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3954: ,x_msg_count => l_msg_count
3955: ,x_msg_data => l_msg_data);
3956:
3957: -- dbms_output.put_line('Got the version type');
3958: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959:
3960: IF l_debug_mode = 'Y' THEN
3961: pa_debug.g_err_stage := 'get_version_type failed' ;
3962: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3976: ,p_version_type => l_version_type
3977: ,x_return_status => l_return_status
3978: ,x_ret_code => l_security_ret_code );
3979:
3980: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3981: l_security_ret_code = 'N' THEN
3982:
3983: IF l_debug_mode = 'Y' THEN
3984: pa_debug.g_err_stage := 'Security API failed' ;
3999: ,x_return_status => l_return_status
4000: ,x_msg_count => l_msg_count
4001: ,x_msg_data => l_msg_data);
4002:
4003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4004: THEN
4005: -- RAISE FND_API.G_EXC_ERROR;
4006: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4007: END IF;
4001: ,x_msg_data => l_msg_data);
4002:
4003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4004: THEN
4005: -- RAISE FND_API.G_EXC_ERROR;
4006: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4007: END IF;
4008:
4009: END IF;--IF p_budget_type_code IS NOT NULL
4027: , x_msg_count => l_msg_count
4028: );
4029:
4030:
4031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4032: THEN
4033: IF l_debug_mode = 'Y' THEN
4034: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
4035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4034: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
4035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4036: END IF;
4037:
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4039:
4040:
4041: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4042: THEN
4037:
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4039:
4040:
4041: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4042: THEN
4043: -- RAISE FND_API.G_EXC_ERROR;
4044: l_any_error_occurred_flag := 'Y';
4045:
4039:
4040:
4041: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4042: THEN
4043: -- RAISE FND_API.G_EXC_ERROR;
4044: l_any_error_occurred_flag := 'Y';
4045:
4046: END IF;
4047:
4061: ,p_attribute4 => ''
4062: ,p_attribute5 => '');
4063: END IF;
4064:
4065: -- RAISE FND_API.G_EXC_ERROR;
4066: l_any_error_occurred_flag := 'Y';
4067: END IF;
4068:
4069:
4141: ,p_attribute5 => '');
4142: END IF;
4143:
4144: CLOSE l_budget_versions_csr;
4145: RAISE FND_API.G_EXC_ERROR;
4146:
4147: IF l_debug_mode = 'Y' THEN
4148: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4149: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4168: ,x_return_status => l_return_status
4169: ,x_msg_count => l_msg_count
4170: ,x_msg_data => l_msg_data );
4171:
4172: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4173: IF l_debug_mode = 'Y' THEN
4174: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4176: END IF;
4193: ,p_attribute5 => '');
4194: END IF;
4195: -- Raising the error since its not possible to proceed if there is no
4196: -- Current working version
4197: RAISE FND_API.G_EXC_ERROR;
4198: l_any_error_occurred_flag := 'Y';
4199: IF l_debug_mode = 'Y' THEN
4200: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4210: ,x_return_status => l_return_status
4211: ,x_msg_count => l_msg_count
4212: ,x_msg_data => l_msg_data);
4213:
4214: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4215: IF l_debug_mode = 'Y' THEN
4216: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4218: END IF;
4239: ,x_return_status => p_return_status
4240: ,x_msg_count => p_msg_count
4241: ,x_msg_data => p_msg_data );
4242:
4243: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4244: IF(l_debug_mode='Y') THEN
4245: pa_debug.g_err_stage := 'Auto baseline API falied';
4246: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4247: END IF;
4383: END IF;
4384:
4385: END IF;
4386:
4387: -- RAISE FND_API.G_EXC_ERROR;
4388: l_any_error_occurred_flag := 'Y';
4389:
4390: ELSIF l_err_code < 0
4391: THEN
4399: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4400:
4401: END IF;
4402:
4403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4404:
4405: END IF;
4406: -- dbms_output.put_line('About to verify budget rules');
4407:
4446: ,p_attribute5 => '');
4447: END IF;
4448:
4449: CLOSE l_budget_rules_csr;
4450: -- RAISE FND_API.G_EXC_ERROR;
4451: l_any_error_occurred_flag := 'Y';
4452:
4453: ELSE
4454:
4488: IF (l_warnings_only_flag = 'Y')
4489: THEN
4490: p_return_status := 'W';
4491: ELSE
4492: -- RAISE FND_API.G_EXC_ERROR;
4493: l_any_error_occurred_flag := 'Y';
4494: END IF;
4495: -- dbms_output.put_line('Count after verify the baseline rules is >0');
4496:
4531: IF (l_warnings_only_flag = 'Y')
4532: THEN
4533: p_return_status := 'W';
4534: ELSE
4535: -- RAISE FND_API.G_EXC_ERROR;
4536: l_any_error_occurred_flag := 'Y';
4537: END IF;
4538: END IF;
4539:
4554: x_return_status => p_return_status,
4555: x_msg_count => p_msg_count,
4556: x_msg_data => p_msg_data) ;
4557:
4558: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4559:
4560: IF l_debug_mode = 'Y' THEN
4561: pa_debug.g_err_stage := 'Error executing lock unlock version';
4562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4620: FND_MESSAGE.SET_TOKEN('ERRMSG', l_err_stage);
4621: FND_MSG_PUB.add;
4622: END IF;
4623:
4624: -- RAISE FND_API.G_EXC_ERROR;
4625: l_any_error_occurred_flag := 'Y';
4626: ELSIF (l_err_code < 0)
4627: THEN
4628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4632: , p_procedure_name => 'BUDGET_WF_IS_USED'
4633: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4634: END IF;
4635:
4636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4637: END IF;
4638:
4639: -- Stop further processing if any errors are reported
4640: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4643: pa_debug.g_err_stage := 'About to display all the messages';
4644: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4645: END IF;
4646: -- dbms_output.put_line('Displaying all messages');
4647: l_return_status := FND_API.G_RET_STS_ERROR;
4648: l_any_error_occurred_flag := 'Y';
4649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4650: END IF;
4651: -- dbms_output.put_line('Starting with workflow = T');
4686: FND_MESSAGE.SET_TOKEN('ERRMSG', l_err_stage);
4687: FND_MSG_PUB.add;
4688: END IF;
4689:
4690: RAISE FND_API.G_EXC_ERROR;
4691:
4692: ELSIF (l_err_code < 0)
4693: THEN
4694: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4698: , p_procedure_name => 'START_BUDGET_WF'
4699: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4700: END IF;
4701:
4702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4703: END IF;
4704:
4705:
4706:
4709: -- NOTE: A commit is required to actually start/activate the workflow instance opened
4710: -- by the previous Start_Budget_WF procedure.
4711:
4712:
4713: IF FND_API.TO_BOOLEAN( p_commit )
4714: THEN
4715: COMMIT;
4716: END IF;
4717:
4797: END IF;
4798:
4799: END IF;
4800:
4801: RAISE FND_API.G_EXC_ERROR;
4802:
4803: ELSIF l_err_code < 0
4804: THEN
4805:
4816: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4817:
4818: END IF;
4819:
4820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4821:
4822: END IF;
4823:
4824: -- after calling BASELINE, set the budget_status_code back to 'W' (Working)
4871: ,x_return_status => l_return_status
4872: ,x_msg_count => l_msg_count
4873: ,x_msg_data => l_msg_data );
4874:
4875: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876:
4877: IF l_debug_mode = 'Y' THEN
4878: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4879: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4903: ,x_return_status => l_return_status
4904: ,x_msg_count => l_msg_count
4905: ,x_msg_data => l_msg_data);
4906:
4907: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4908: THEN
4909: -- RAISE FND_API.G_EXC_ERROR;
4910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4911: END IF;
4905: ,x_msg_data => l_msg_data);
4906:
4907: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4908: THEN
4909: -- RAISE FND_API.G_EXC_ERROR;
4910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4911: END IF;
4912:
4913: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4931: ,x_return_status => l_return_status
4932: ,x_msg_count => l_msg_count
4933: ,x_msg_data => l_msg_data );
4934:
4935: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
4936: l_msg_count <> 0THEN
4937:
4938: IF l_debug_mode = 'Y' THEN
4939: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4956: x_return_status => p_return_status,
4957: x_msg_count => p_msg_count,
4958: x_msg_data => p_msg_data) ;
4959:
4960: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4961:
4962: IF l_debug_mode = 'Y' THEN
4963: pa_debug.g_err_stage := 'Error executing lock unlock version';
4964: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4972:
4973: END IF;-- IF p_budget_type_code IS NOT NULL
4974:
4975:
4976: IF FND_API.TO_BOOLEAN( p_commit )
4977: THEN
4978: COMMIT;
4979: END IF;
4980:
4991: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4992: ROLLBACK TO baseline_budget_pub;
4993:
4994: IF p_return_status IS NULL OR
4995: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4996: p_return_status := FND_API.G_RET_STS_ERROR;
4997: END IF;
4998: l_msg_count := FND_MSG_PUB.count_msg;
4999: IF l_msg_count = 1 THEN
4992: ROLLBACK TO baseline_budget_pub;
4993:
4994: IF p_return_status IS NULL OR
4995: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4996: p_return_status := FND_API.G_RET_STS_ERROR;
4997: END IF;
4998: l_msg_count := FND_MSG_PUB.count_msg;
4999: IF l_msg_count = 1 THEN
5000: PA_INTERFACE_UTILS_PUB.get_messages
4997: END IF;
4998: l_msg_count := FND_MSG_PUB.count_msg;
4999: IF l_msg_count = 1 THEN
5000: PA_INTERFACE_UTILS_PUB.get_messages
5001: (p_encoded => FND_API.G_TRUE,
5002: p_msg_index => 1,
5003: p_msg_count => l_msg_count,
5004: p_msg_data => l_msg_data,
5005: p_data => l_data,
5013: pa_debug.reset_curr_function;
5014:
5015: RETURN;
5016:
5017: WHEN FND_API.G_EXC_ERROR
5018: THEN
5019:
5020:
5021: ROLLBACK TO baseline_budget_pub;
5019:
5020:
5021: ROLLBACK TO baseline_budget_pub;
5022:
5023: p_return_status := FND_API.G_RET_STS_ERROR;
5024:
5025: FND_MSG_PUB.Count_And_Get
5026: ( p_count => p_msg_count ,
5027: p_data => p_msg_data );
5027: p_data => p_msg_data );
5028:
5029: pa_debug.reset_curr_function;
5030:
5031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5032: THEN
5033:
5034:
5035: ROLLBACK TO baseline_budget_pub;
5033:
5034:
5035: ROLLBACK TO baseline_budget_pub;
5036:
5037: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5038:
5039: FND_MSG_PUB.Count_And_Get
5040: ( p_count => p_msg_count ,
5041: p_data => p_msg_data );
5046: THEN
5047:
5048: ROLLBACK TO baseline_budget_pub;
5049:
5050: p_return_status := FND_API.G_RET_STS_ERROR ;
5051:
5052: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5053: THEN
5054: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
5073:
5074:
5075: ROLLBACK TO baseline_budget_pub;
5076:
5077: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5078:
5079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5080: THEN
5081: FND_MSG_PUB.add_exc_msg
5115: -- add_budget_line for FP.M FinPlan model.
5116:
5117: PROCEDURE Add_Budget_Line
5118: ( p_api_version_number IN NUMBER
5119: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5120: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5121: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5122: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5123: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5116:
5117: PROCEDURE Add_Budget_Line
5118: ( p_api_version_number IN NUMBER
5119: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5120: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5121: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5122: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5123: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5124: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5244:
5245: SAVEPOINT add_budget_line_pub;
5246:
5247: p_msg_count := 0;
5248: p_return_status := FND_API.G_RET_STS_SUCCESS;
5249: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5250: l_module_name := g_module_name || ':Add_Budget_Line';
5251:
5252: IF ( l_debug_mode = 'Y' )
5261: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5262: END IF;
5263:
5264: --Initialize the message table if requested.
5265: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5266: THEN
5267: FND_MSG_PUB.initialize;
5268: END IF;
5269:
5267: FND_MSG_PUB.initialize;
5268: END IF;
5269:
5270: --Set API return status to success
5271: p_return_status := FND_API.G_RET_STS_SUCCESS;
5272:
5273: --Get the CBS flag 16604257
5274: l_cbs_enabled_project := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => l_project_id);
5275: If l_cbs_enabled_project='N' Then
5323: ,x_msg_count => p_msg_count
5324: ,x_msg_data => p_msg_data
5325: ,x_return_status => p_return_status );
5326:
5327: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5328: IF(l_debug_mode='Y') THEN
5329: pa_debug.g_err_stage := 'validate header info API falied';
5330: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5331: END IF;
5361:
5362: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
5363: ,p_msg_name => 'PA_FP_CBS_ENABLED'
5364: );
5365: p_return_status := FND_API.G_RET_STS_ERROR;
5366: RAISE FND_API.G_EXC_ERROR;
5367:
5368: END IF;
5369:
5362: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
5363: ,p_msg_name => 'PA_FP_CBS_ENABLED'
5364: );
5365: p_return_status := FND_API.G_RET_STS_ERROR;
5366: RAISE FND_API.G_EXC_ERROR;
5367:
5368: END IF;
5369:
5370: --Insert BUDGET LINES
5410: ,p_categorization_code => l_categorization_code
5411: ,p_budget_version_id => l_budget_version_id
5412: ,p_change_reason_code => p_change_reason_code);
5413:
5414: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5415: THEN
5416: IF(l_debug_mode='Y') THEN
5417: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5416: IF(l_debug_mode='Y') THEN
5417: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5419: END IF;
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421:
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5423: THEN
5424: IF(l_debug_mode='Y') THEN
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5419: END IF;
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421:
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5423: THEN
5424: IF(l_debug_mode='Y') THEN
5425: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5424: IF(l_debug_mode='Y') THEN
5425: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5430:
5431:
5432: --check for overlapping dates
5450:
5451: FND_MSG_PUB.add;
5452: END IF;
5453:
5454: RAISE FND_API.G_EXC_ERROR;
5455:
5456: ELSIF l_err_code < 0
5457: THEN
5458:
5468: , p_procedure_name => 'CHECK_OVERLAPPING_DATES'
5469: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
5470: END IF;
5471:
5472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5473:
5474: END IF;
5475:
5476:
5515: ,p_attribute5 => to_char(p_budget_start_date));
5516: END IF;
5517: END IF;
5518:
5519: RAISE FND_API.G_EXC_ERROR;
5520:
5521: ELSIF l_err_code < 0 THEN
5522:
5523: IF(l_debug_mode='Y') THEN
5532: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
5533: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
5534: END IF;
5535:
5536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5537:
5538: END IF;
5539:
5540:
5779: ,x_message_count => p_msg_count
5780: ,x_return_status => p_return_status
5781: ,x_message_data => p_msg_data) ;
5782:
5783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5784: THEN
5785: IF(l_debug_mode='Y') THEN
5786: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5840: ,x_msg_count => p_msg_count
5841: ,x_msg_data => p_msg_data
5842: ,x_return_status => p_return_status );
5843:
5844: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5845: IF(l_debug_mode='Y') THEN
5846: pa_debug.g_err_stage := 'validate budget lines API falied';
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5848: END IF;
5919: ,x_return_status => p_return_status
5920: ,x_msg_count => p_msg_count
5921: ,x_msg_data => p_msg_data);
5922:
5923: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5924: -- Error message is not added here as the api lock_unlock_version
5925: -- adds the message to stack
5926: IF(l_debug_mode='Y') THEN
5927: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5926: IF(l_debug_mode='Y') THEN
5927: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5928: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5929: END IF;
5930: RAISE FND_API.G_EXC_ERROR;
5931: END IF;
5932:
5933: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of inserting
5934: --budget lines data in all relevant tables.
5939: ,x_return_status => p_return_status
5940: ,x_msg_count => p_msg_count
5941: ,x_msg_data => p_msg_data );
5942:
5943: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5944: THEN
5945: IF(l_debug_mode='Y') THEN
5946: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5945: IF(l_debug_mode='Y') THEN
5946: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5948: END IF;
5949: RAISE FND_API.G_EXC_ERROR;
5950: END IF;
5951:
5952:
5953: --unlock the budget version after inserting the budget line
5963: ,x_return_status => p_return_status
5964: ,x_msg_count => p_msg_count
5965: ,x_msg_data => p_msg_data);
5966:
5967: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5968: -- Error message is not added here as the api lock_unlock_version
5969: -- adds the message to stack
5970: IF(l_debug_mode='Y') THEN
5971: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5970: IF(l_debug_mode='Y') THEN
5971: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5972: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5973: END IF;
5974: RAISE FND_API.G_EXC_ERROR;
5975: END IF;
5976:
5977:
5978: END IF; --end of code to insert budget line
5977:
5978: END IF; --end of code to insert budget line
5979:
5980:
5981: IF FND_API.to_boolean( p_commit )
5982: THEN
5983: COMMIT;
5984: END IF;
5985:
5998: THEN
5999:
6000: ROLLBACK TO add_budget_line_pub;
6001:
6002: p_return_status := FND_API.G_RET_STS_ERROR;
6003: l_msg_count := FND_MSG_PUB.count_msg;
6004:
6005: IF l_msg_count = 1 and p_msg_data IS NULL THEN
6006: PA_INTERFACE_UTILS_PUB.get_messages
6003: l_msg_count := FND_MSG_PUB.count_msg;
6004:
6005: IF l_msg_count = 1 and p_msg_data IS NULL THEN
6006: PA_INTERFACE_UTILS_PUB.get_messages
6007: (p_encoded => FND_API.G_TRUE
6008: ,p_msg_index => 1
6009: ,p_msg_count => l_msg_count
6010: ,p_msg_data => l_msg_data
6011: ,p_data => l_data
6022:
6023: RETURN;
6024:
6025:
6026: WHEN FND_API.G_EXC_ERROR
6027: THEN
6028:
6029: ROLLBACK TO add_budget_line_pub;
6030:
6027: THEN
6028:
6029: ROLLBACK TO add_budget_line_pub;
6030:
6031: p_return_status := FND_API.G_RET_STS_ERROR;
6032:
6033: FND_MSG_PUB.count_and_get
6034: ( p_count => p_msg_count ,
6035: p_data => p_msg_data );
6038: pa_debug.reset_curr_function;
6039: END IF;
6040:
6041:
6042: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6043: THEN
6044:
6045: ROLLBACK TO add_budget_line_pub;
6046:
6043: THEN
6044:
6045: ROLLBACK TO add_budget_line_pub;
6046:
6047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048:
6049: FND_MSG_PUB.count_and_get
6050: ( p_count => p_msg_count ,
6051: p_data => p_msg_data );
6059: THEN
6060:
6061: ROLLBACK TO add_budget_line_pub;
6062:
6063: p_return_status := FND_API.G_RET_STS_ERROR;
6064:
6065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6066: THEN
6067: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
6087: THEN
6088:
6089: ROLLBACK TO add_budget_line_pub;
6090:
6091: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6092:
6093: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6094: THEN
6095: FND_MSG_PUB.add_exc_msg
6125: -- 11-APR-2005 Rishukla Bug 4224464: FP M Changes for delete_draft_budget
6126:
6127: PROCEDURE delete_draft_budget
6128: ( p_api_version_number IN NUMBER
6129: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6130: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6131: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6132: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6133: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6126:
6127: PROCEDURE delete_draft_budget
6128: ( p_api_version_number IN NUMBER
6129: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6130: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6131: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6132: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6133: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
6134: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6250: SAVEPOINT delete_draft_budget_pub;
6251:
6252: -- Standard call to check for call compatibility.
6253:
6254: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6255: p_api_version_number ,
6256: l_api_name ,
6257: G_PKG_NAME )
6258: THEN
6256: l_api_name ,
6257: G_PKG_NAME )
6258: THEN
6259:
6260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6261:
6262: END IF;
6263:
6264: p_msg_count := 0;
6261:
6262: END IF;
6263:
6264: p_msg_count := 0;
6265: p_return_status := FND_API.G_RET_STS_SUCCESS;
6266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6267:
6268: IF ( l_debug_mode = 'Y' )
6269: THEN
6272: END IF;
6273:
6274: -- Initialize the message table if requested.
6275:
6276: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6277: THEN
6278:
6279: FND_MSG_PUB.initialize;
6280:
6370: pa_debug.g_err_stage := 'Product code is missing' ;
6371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6372: END IF;
6373:
6374: -- RAISE FND_API.G_EXC_ERROR;
6375: l_any_error_occurred_flag:='Y' ;
6376: END IF;
6377:
6378: l_pm_product_code :='Z';
6395: ,p_attribute3 => ''
6396: ,p_attribute4 => ''
6397: ,p_attribute5 => '');
6398: END IF;
6399: p_return_status := FND_API.G_RET_STS_ERROR;
6400: --RAISE FND_API.G_EXC_ERROR;
6401: l_any_error_occurred_flag:='Y';
6402: IF l_debug_mode = 'Y' THEN
6403: pa_debug.g_err_stage := 'Product code is invalid' ;
6396: ,p_attribute4 => ''
6397: ,p_attribute5 => '');
6398: END IF;
6399: p_return_status := FND_API.G_RET_STS_ERROR;
6400: --RAISE FND_API.G_EXC_ERROR;
6401: l_any_error_occurred_flag:='Y';
6402: IF l_debug_mode = 'Y' THEN
6403: pa_debug.g_err_stage := 'Product code is invalid' ;
6404: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6415: p_out_project_id => l_project_id,
6416: p_return_status => l_return_status );
6417:
6418:
6419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6420: THEN
6421: IF l_debug_mode = 'Y' THEN
6422: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6423: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6422: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6423: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6424: END IF;
6425:
6426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6427:
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6429: THEN
6430: IF l_debug_mode = 'Y' THEN
6424: END IF;
6425:
6426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6427:
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6429: THEN
6430: IF l_debug_mode = 'Y' THEN
6431: pa_debug.g_err_stage := 'Error while getting project id' ;
6432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6431: pa_debug.g_err_stage := 'Error while getting project id' ;
6432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6433: END IF;
6434:
6435: RAISE FND_API.G_EXC_ERROR;
6436:
6437: END IF;
6438:
6439: -- Get segment1 for AMG messages
6458:
6459: -- the above API adds the error message to stack. Hence the message is not added here.
6460: -- Also, as security check is important further validations are not done in case this
6461: -- validation fails.
6462: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR
6463: l_security_ret_code = 'N') THEN
6464: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6465: IF l_debug_mode = 'Y' THEN
6466: pa_debug.g_err_stage:= 'Security API Failed';
6495: END IF;
6496:
6497:
6498: CLOSE l_budget_type_csr;
6499: RAISE FND_API.G_EXC_ERROR;
6500:
6501: END IF;
6502:
6503: CLOSE l_budget_type_csr;
6548: END IF;
6549:
6550:
6551: CLOSE l_budget_version_csr;
6552: RAISE FND_API.G_EXC_ERROR;
6553:
6554: END IF;
6555:
6556: CLOSE l_budget_version_csr;
6579: ,p_token3 => 'BUDGET_VERSION_ID'
6580: ,p_value3 => l_budget_version_id);
6581: END IF;
6582:
6583: RAISE FND_API.G_EXC_ERROR;
6584:
6585: END IF;--budgetary control enabled check
6586:
6587:
6592: IF(l_debug_mode='Y') THEN
6593: pa_debug.g_err_stage := 'About to display all the messages';
6594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6595: END IF;
6596: p_return_status := FND_API.G_RET_STS_ERROR;
6597: l_any_error_occurred_flag := 'Y';
6598: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6599: END IF;
6600:
6644: END IF;
6645:
6646: END IF;
6647:
6648: RAISE FND_API.G_EXC_ERROR;
6649:
6650: ELSIF l_err_code < 0
6651: THEN
6652:
6664: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
6665:
6666: END IF;
6667:
6668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6669:
6670: END IF;
6671:
6672: CLOSE l_lock_budget_csr; --FYI, does not release locks
6683: ,x_return_status => p_return_status
6684: ,x_msg_count => p_msg_count
6685: ,x_msg_data => p_msg_data);
6686: -- Throw the error if the above API is not successfully executed
6687: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6688:
6689: IF l_debug_mode = 'Y' THEN
6690: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6737: ,x_return_status => p_return_status
6738: ,x_msg_count => p_msg_count
6739: ,x_msg_data => p_msg_data);
6740:
6741: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6742:
6743: IF l_debug_mode = 'Y' THEN
6744: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6745: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6760: ,p_version_type => l_version_type
6761: ,x_return_status => p_return_status
6762: ,x_ret_code => l_security_ret_code );
6763:
6764: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
6765: l_security_ret_code='N') THEN
6766: -- dbms_output.put_line('Exc in security');
6767: IF l_debug_mode = 'Y' THEN
6768: pa_debug.g_err_stage := 'Security API failed' ;
6819: END IF;
6820:
6821: END IF; --version_number IS NULL
6822:
6823: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6824: IF l_debug_mode = 'Y' THEN
6825: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6827: END IF;
6874: 'to an organisation forecasting project';
6875: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6876: END IF;
6877:
6878: p_return_status := FND_API.G_RET_STS_ERROR;
6879: l_any_error_occurred_flag:='Y' ;
6880: END IF; --org_forecast = 'Y'
6881:
6882: --Lock the version before deleting it
6891: ,x_return_status => p_return_status
6892: ,x_msg_count => p_msg_count
6893: ,x_msg_data => p_msg_data);
6894:
6895: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6896: -- Error message is not added here as the api lock_unlock_version
6897: -- adds the message to stack
6898: IF(l_debug_mode='Y') THEN
6899: pa_debug.g_err_stage := 'Failed in locking the version';
6907: IF(l_debug_mode='Y') THEN
6908: pa_debug.g_err_stage := 'About to display all the messages';
6909: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6910: END IF;
6911: p_return_status := FND_API.G_RET_STS_ERROR;
6912: l_any_error_occurred_flag := 'Y';
6913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6914: END IF;
6915:
6923: ,x_return_status => p_return_status
6924: ,x_msg_count => p_msg_count
6925: ,x_msg_data => p_msg_data );
6926:
6927: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6928:
6929: IF(l_debug_mode='Y') THEN
6930: pa_debug.g_err_stage := 'Failed in deleting the version';
6931: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6986:
6987: END IF;
6988:
6989:
6990: IF fnd_api.to_boolean(p_commit)
6991: THEN
6992: COMMIT;
6993: END IF;
6994:
7004:
7005: EXCEPTION
7006: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7007:
7008: p_return_status := FND_API.G_RET_STS_ERROR;
7009: l_msg_count := FND_MSG_PUB.count_msg;
7010:
7011: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7012: PA_INTERFACE_UTILS_PUB.get_messages
7009: l_msg_count := FND_MSG_PUB.count_msg;
7010:
7011: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7012: PA_INTERFACE_UTILS_PUB.get_messages
7013: (p_encoded => FND_API.G_TRUE
7014: ,p_msg_index => 1
7015: ,p_msg_count => l_msg_count
7016: ,p_msg_data => l_msg_data
7017: ,p_data => l_data
7025: pa_debug.reset_curr_function;
7026: END IF;
7027: RETURN;
7028:
7029: WHEN FND_API.G_EXC_ERROR
7030: THEN
7031:
7032: ROLLBACK TO delete_draft_budget_pub;
7033:
7030: THEN
7031:
7032: ROLLBACK TO delete_draft_budget_pub;
7033:
7034: p_return_status := FND_API.G_RET_STS_ERROR;
7035:
7036: FND_MSG_PUB.Count_And_Get
7037: ( p_count => p_msg_count ,
7038: p_data => p_msg_data );
7039: IF ( l_debug_mode = 'Y' ) THEN
7040: pa_debug.reset_curr_function;
7041: END IF;
7042:
7043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7044: THEN
7045:
7046: ROLLBACK TO delete_draft_budget_pub;
7047:
7044: THEN
7045:
7046: ROLLBACK TO delete_draft_budget_pub;
7047:
7048: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7049:
7050: FND_MSG_PUB.Count_And_Get
7051: ( p_count => p_msg_count ,
7052: p_data => p_msg_data );
7057: WHEN ROW_ALREADY_LOCKED
7058: THEN
7059: ROLLBACK TO delete_draft_budget_pub;
7060:
7061: p_return_status := FND_API.G_RET_STS_ERROR;
7062:
7063: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7064: THEN
7065: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
7082: WHEN OTHERS THEN
7083:
7084: ROLLBACK TO delete_draft_budget_pub;
7085:
7086: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7087:
7088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7089: THEN
7090: FND_MSG_PUB.add_exc_msg
7110: -- version except the current original and current baseline budget
7111: -- versions.
7112: --
7113: --Called subprograms:
7114: -- FND_API.compatible_api_call
7115: -- PA_PROJECT_PVT.convert_pm_projref_to_id
7116: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
7117: -- PA_BUDGET_UTILS.delete_draft
7118: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
7126: -- 05-APR-2005 Rishukla Created.
7127:
7128: PROCEDURE delete_baseline_budget
7129: ( p_api_version_number IN NUMBER
7130: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7131: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7132: ,p_msg_count OUT NOCOPY NUMBER
7133: ,p_msg_data OUT NOCOPY VARCHAR2
7134: ,p_return_status OUT NOCOPY VARCHAR2
7127:
7128: PROCEDURE delete_baseline_budget
7129: ( p_api_version_number IN NUMBER
7130: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7131: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7132: ,p_msg_count OUT NOCOPY NUMBER
7133: ,p_msg_data OUT NOCOPY VARCHAR2
7134: ,p_return_status OUT NOCOPY VARCHAR2
7135: ,p_pm_product_code IN pa_projects_all.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
7257:
7258: SAVEPOINT delete_baseline_budget_pub;
7259:
7260: p_msg_count := 0;
7261: p_return_status := FND_API.G_RET_STS_SUCCESS;
7262: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7263:
7264: IF ( l_debug_mode = 'Y' )
7265: THEN
7274: END IF;
7275:
7276: --Initialize the message table if requested.
7277:
7278: IF FND_API.to_boolean( p_init_msg_list )
7279: THEN
7280: FND_MSG_PUB.initialize;
7281: END IF;
7282:
7281: END IF;
7282:
7283: --Standard call to check for call compatibility.
7284:
7285: IF NOT FND_API.compatible_api_call ( g_api_version_number ,
7286: p_api_version_number ,
7287: l_api_name ,
7288: G_PKG_NAME )
7289: THEN
7286: p_api_version_number ,
7287: l_api_name ,
7288: G_PKG_NAME )
7289: THEN
7290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7291: END IF;
7292:
7293: --Convert following IN parameters from G_PA_MISS_XXX to null
7294:
7386: pa_debug.g_err_stage := 'Product code is missing' ;
7387: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7388: END IF;
7389:
7390: p_return_status := FND_API.G_RET_STS_ERROR;
7391: l_any_error_occurred_flag:='Y' ;
7392:
7393: ELSE --p_pm_product_code is not null
7394:
7405: PA_UTILS.add_message
7406: (p_app_short_name => 'PA',
7407: p_msg_name => 'PA_PRODUCT_CODE_IS_INVALID_AMG');
7408: END IF;
7409: p_return_status := FND_API.G_RET_STS_ERROR;
7410: l_any_error_occurred_flag:='Y';
7411: IF l_debug_mode = 'Y' THEN
7412: pa_debug.g_err_stage := 'Product code is invalid' ;
7413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7431: pa_debug.g_err_stage := 'Version Number is missing' ;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7433: END IF;
7434:
7435: p_return_status := FND_API.G_RET_STS_ERROR;
7436: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7437:
7438: END IF; --l_version_number IS NULL
7439:
7444: p_pa_project_id => p_pa_project_id, --l_project_id /* bug #12674987 */
7445: p_out_project_id => l_project_id,
7446: p_return_status => l_return_status );
7447:
7448: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7449: THEN
7450: IF l_debug_mode = 'Y' THEN
7451: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7452: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7451: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7452: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7453: END IF;
7454:
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7456:
7457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7458: THEN
7459: IF l_debug_mode = 'Y' THEN
7453: END IF;
7454:
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7456:
7457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7458: THEN
7459: IF l_debug_mode = 'Y' THEN
7460: pa_debug.g_err_stage := 'Error while getting project id' ;
7461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7460: pa_debug.g_err_stage := 'Error while getting project id' ;
7461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7462: END IF;
7463:
7464: RAISE FND_API.G_EXC_ERROR;
7465:
7466: END IF;
7467:
7468: -- Get segment1 for AMG messages
7524: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7526: END IF;
7527:
7528: p_return_status := FND_API.G_RET_STS_ERROR;
7529: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7530:
7531: ELSE --l_budget_version_no_rec has been fetched
7532:
7543: 'or current original can not be deleted';
7544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7545: END IF;
7546:
7547: p_return_status := FND_API.G_RET_STS_ERROR;
7548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7549: END IF;
7550: END IF; --l_budget_version_no_rec.budget_version_id IS NULL
7551:
7571:
7572: -- the above API adds the error message to stack. Hence the message is not added here.
7573: -- Also, as security check is important further validations are not done in case this
7574: -- validation fails.
7575: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7576: THEN
7577: IF l_debug_mode = 'Y' THEN
7578: pa_debug.g_err_stage:= 'Security API Failed';
7579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7606: ,p_token3 => 'BUDGET_VERSION_ID'
7607: ,p_value3 => l_budget_version_no_rec.budget_version_id);
7608: END IF;
7609:
7610: RAISE FND_API.G_EXC_ERROR;
7611:
7612: END IF;--budgetary control enabled check
7613:
7614:
7617: IF(l_debug_mode='Y') THEN
7618: pa_debug.g_err_stage := 'About to display all the messages';
7619: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7620: END IF;
7621: p_return_status := FND_API.G_RET_STS_ERROR;
7622: l_any_error_occurred_flag := 'Y';
7623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7624: END IF;
7625:
7668: ,p_attribute5 => '');
7669: END IF;
7670:
7671: END IF; --FND_MSG_PUB.check_msg_level
7672: RAISE FND_API.G_EXC_ERROR;
7673:
7674: ELSIF l_err_code < 0 THEN
7675:
7676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7685: , p_procedure_name => 'DELETE_DRAFT'
7686: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
7687: END IF; --FND_MSG_PUB.check_msg_level
7688:
7689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7690:
7691: END IF; --l_err_code > 0
7692:
7693: ELSE --finplan model
7700: ,x_return_status => p_return_status
7701: ,x_msg_count => p_msg_count
7702: ,x_msg_data => p_msg_data);
7703: --Throw the error if the above API is not successfully executed
7704: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7705: IF l_debug_mode = 'Y' THEN
7706: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7708: END IF;
7742: ,x_return_status => p_return_status
7743: ,x_msg_count => p_msg_count
7744: ,x_msg_data => p_msg_data);
7745:
7746: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7747: IF l_debug_mode = 'Y' THEN
7748: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7750: END IF;
7762: ,p_version_type => l_version_type
7763: ,x_return_status => p_return_status
7764: ,x_ret_code => l_security_ret_code );
7765:
7766: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7767: l_security_ret_code='N') THEN
7768: IF l_debug_mode = 'Y' THEN
7769: pa_debug.g_err_stage := 'Security API failed' ;
7770: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7793: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7794: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7795: END IF;
7796:
7797: p_return_status := FND_API.G_RET_STS_ERROR;
7798: l_any_error_occurred_flag:='Y' ;
7799: END IF; --l_budget_version_id IS NULL
7800:
7801: --if the budget version belongs to an org forecast project then throw an error
7812: 'to an organisation forecasting project';
7813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7814: END IF;
7815:
7816: p_return_status := FND_API.G_RET_STS_ERROR;
7817: l_any_error_occurred_flag:='Y' ;
7818: END IF; --org_forecast = 'Y'
7819:
7820: --Stop Further processing if any errors are reported
7822: IF(l_debug_mode='Y') THEN
7823: pa_debug.g_err_stage := 'About to display all the messages';
7824: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7825: END IF;
7826: p_return_status := FND_API.G_RET_STS_ERROR;
7827: l_any_error_occurred_flag := 'Y';
7828: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7829: END IF;
7830:
7838: ,x_return_status => p_return_status
7839: ,x_msg_count => p_msg_count
7840: ,x_msg_data => p_msg_data );
7841:
7842: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7843:
7844: IF(l_debug_mode='Y') THEN
7845: pa_debug.g_err_stage := 'Failed in deleting the version';
7846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7898:
7899: End IF; --l_budget_type_code IS NOT NULL
7900:
7901:
7902: IF fnd_api.to_boolean(p_commit)
7903: THEN
7904: COMMIT;
7905: END IF;
7906:
7916: EXCEPTION
7917: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7918: THEN
7919:
7920: p_return_status := FND_API.G_RET_STS_ERROR;
7921: l_msg_count := FND_MSG_PUB.count_msg;
7922:
7923: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7924: PA_INTERFACE_UTILS_PUB.get_messages
7921: l_msg_count := FND_MSG_PUB.count_msg;
7922:
7923: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7924: PA_INTERFACE_UTILS_PUB.get_messages
7925: (p_encoded => FND_API.G_TRUE
7926: ,p_msg_index => 1
7927: ,p_msg_count => l_msg_count
7928: ,p_msg_data => l_msg_data
7929: ,p_data => l_data
7939: END IF;
7940:
7941: RETURN;
7942:
7943: WHEN FND_API.G_EXC_ERROR
7944: THEN
7945:
7946: ROLLBACK TO delete_baseline_budget_pub;
7947:
7944: THEN
7945:
7946: ROLLBACK TO delete_baseline_budget_pub;
7947:
7948: p_return_status := FND_API.G_RET_STS_ERROR;
7949:
7950: FND_MSG_PUB.count_and_get
7951: ( p_count => p_msg_count ,
7952: p_data => p_msg_data );
7954: IF ( l_debug_mode = 'Y' ) THEN
7955: pa_debug.reset_curr_function;
7956: END IF;
7957:
7958: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7959: THEN
7960:
7961: ROLLBACK TO delete_baseline_budget_pub;
7962:
7959: THEN
7960:
7961: ROLLBACK TO delete_baseline_budget_pub;
7962:
7963: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7964:
7965: FND_MSG_PUB.count_and_get
7966: ( p_count => p_msg_count ,
7967: p_data => p_msg_data );
7973: WHEN ROW_ALREADY_LOCKED
7974: THEN
7975: ROLLBACK TO delete_baseline_budget_pub;
7976:
7977: p_return_status := FND_API.G_RET_STS_ERROR;
7978:
7979: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7980: THEN
7981: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
7999: WHEN OTHERS THEN
8000:
8001: ROLLBACK TO delete_baseline_budget_pub;
8002:
8003: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8004:
8005: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8006: THEN
8007: FND_MSG_PUB.add_exc_msg
8261: --Standard begin of API savepoint
8262: SAVEPOINT delete_budget_line_pub;
8263:
8264: p_msg_count := 0;
8265: p_return_status := FND_API.G_RET_STS_SUCCESS;
8266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8267: l_module_name := g_module_name || ':Delete_Budget_Line ';
8268:
8269: IF ( l_debug_mode = 'Y' )
8278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8279: END IF;
8280:
8281: --Initialize the message table if requested.
8282: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8283: THEN
8284: FND_MSG_PUB.initialize;
8285: END IF;
8286:
8284: FND_MSG_PUB.initialize;
8285: END IF;
8286:
8287: --Set API return status to success
8288: p_return_status := FND_API.G_RET_STS_SUCCESS;
8289:
8290: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8291: --header level validations
8292: PA_BUDGET_PVT.validate_header_info
8327: ,x_msg_count => p_msg_count
8328: ,x_msg_data => p_msg_data
8329: ,x_return_status => p_return_status );
8330:
8331: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8332: IF(l_debug_mode='Y') THEN
8333: pa_debug.g_err_stage := 'validate header info API falied';
8334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8335: END IF;
8356: p_pm_task_reference => p_pm_task_reference,
8357: p_out_task_id => l_task_id,
8358: p_return_status => p_return_status );
8359:
8360: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8361: THEN
8362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8363:
8364: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8358: p_return_status => p_return_status );
8359:
8360: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8361: THEN
8362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8363:
8364: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8365: THEN
8366: RAISE FND_API.G_EXC_ERROR;
8360: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8361: THEN
8362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8363:
8364: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8365: THEN
8366: RAISE FND_API.G_EXC_ERROR;
8367: END IF;
8368:
8362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8363:
8364: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8365: THEN
8366: RAISE FND_API.G_EXC_ERROR;
8367: END IF;
8368:
8369: END IF;
8370:
8392: ,p_resource_list_member_id => p_resource_list_member_id
8393: ,p_out_resource_list_member_id => l_resource_list_member_id
8394: ,p_return_status => p_return_status );
8395:
8396: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8397: THEN
8398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8399: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8400: THEN
8394: ,p_return_status => p_return_status );
8395:
8396: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8397: THEN
8398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8399: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8400: THEN
8401: RAISE FND_API.G_EXC_ERROR;
8402: END IF;
8395:
8396: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8397: THEN
8398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8399: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8400: THEN
8401: RAISE FND_API.G_EXC_ERROR;
8402: END IF;
8403:
8397: THEN
8398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8399: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8400: THEN
8401: RAISE FND_API.G_EXC_ERROR;
8402: END IF;
8403:
8404: ELSE
8405:
8451: ,p_attribute5 => to_char(p_start_date));
8452: END IF;
8453:
8454: CLOSE l_resource_assignment_csr;
8455: RAISE FND_API.G_EXC_ERROR;
8456:
8457: END IF;
8458:
8459: CLOSE l_resource_assignment_csr;
8485: ,p_attribute5 => to_char(p_start_date));
8486: END IF;
8487:
8488: CLOSE l_budget_periods_csr;
8489: RAISE FND_API.G_EXC_ERROR;
8490: END IF;
8491: CLOSE l_budget_periods_csr;
8492:
8493: ELSIF p_start_date IS NOT NULL
8520: ,p_attribute5 => '');
8521: END IF;
8522:
8523: CLOSE l_start_date_csr;
8524: RAISE FND_API.G_EXC_ERROR;
8525: END IF;
8526:
8527: CLOSE l_start_date_csr;
8528:
8748: ,p_attribute5 => to_char(l_start_date));
8749: END IF;
8750:
8751: CLOSE l_budget_line_rowid_csr;
8752: RAISE FND_API.G_EXC_ERROR;
8753:
8754: END IF;
8755:
8756: --Loop for deleting budget lines begins
8787: END IF;
8788:
8789: CLOSE l_budget_line_rowid_csr;
8790:
8791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8792: END;
8793:
8794: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8795: THEN
8874: END IF;
8875:
8876: END IF;
8877:
8878: RAISE FND_API.G_EXC_ERROR;
8879:
8880: ELSIF l_err_code < 0
8881: THEN
8882:
8889: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
8890:
8891: END IF;
8892:
8893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8894:
8895: END IF;
8896:
8897: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8910: ,x_return_status => p_return_status
8911: ,x_msg_count => p_msg_count
8912: ,x_msg_data => p_msg_data);
8913:
8914: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8915: -- Error message is not added here as the api lock_unlock_version
8916: -- adds the message to stack
8917: IF(l_debug_mode='Y') THEN
8918: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8917: IF(l_debug_mode='Y') THEN
8918: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8919: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8920: END IF;
8921: RAISE FND_API.G_EXC_ERROR;
8922: END IF;
8923:
8924: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8925: /* Added the following code for Bug# 5998035 */
8933: ,x_return_status => p_return_status
8934: ,x_msg_count => p_msg_count
8935: ,x_msg_data => p_msg_data
8936: );
8937: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8938: IF(l_debug_mode='Y') THEN
8939: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8940: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8941: END IF;
8938: IF(l_debug_mode='Y') THEN
8939: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8940: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8941: END IF;
8942: RAISE FND_API.G_EXC_ERROR;
8943: END IF;
8944: /* End of code for Bug# 5998035 */
8945: ELSE
8946: PA_FP_CALC_PLAN_PKG.calculate
8958: ,x_msg_count => p_msg_count
8959: ,x_msg_data => p_msg_data );
8960: END IF;
8961:
8962: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8963: IF(l_debug_mode='Y') THEN
8964: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8966: END IF;
8963: IF(l_debug_mode='Y') THEN
8964: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8966: END IF;
8967: RAISE FND_API.G_EXC_ERROR;
8968: END IF;
8969:
8970: --unlock the budget version after deleting the budget line
8971: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8980: ,x_return_status => p_return_status
8981: ,x_msg_count => p_msg_count
8982: ,x_msg_data => p_msg_data);
8983:
8984: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8985: -- Error message is not added here as the api lock_unlock_version
8986: -- adds the message to stack
8987: IF(l_debug_mode='Y') THEN
8988: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8987: IF(l_debug_mode='Y') THEN
8988: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8989: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8990: END IF;
8991: RAISE FND_API.G_EXC_ERROR;
8992: END IF;
8993:
8994: END IF;--end of code to delete budget line
8995:
8992: END IF;
8993:
8994: END IF;--end of code to delete budget line
8995:
8996: IF fnd_api.to_boolean(p_commit)
8997: THEN
8998: COMMIT;
8999: END IF;
9000:
9009: THEN
9010:
9011: ROLLBACK TO delete_budget_line_pub;
9012:
9013: p_return_status := FND_API.G_RET_STS_ERROR;
9014: l_msg_count := FND_MSG_PUB.count_msg;
9015:
9016: IF l_msg_count = 1 and p_msg_data IS NULL THEN
9017: PA_INTERFACE_UTILS_PUB.get_messages
9014: l_msg_count := FND_MSG_PUB.count_msg;
9015:
9016: IF l_msg_count = 1 and p_msg_data IS NULL THEN
9017: PA_INTERFACE_UTILS_PUB.get_messages
9018: (p_encoded => FND_API.G_TRUE
9019: ,p_msg_index => 1
9020: ,p_msg_count => l_msg_count
9021: ,p_msg_data => l_msg_data
9022: ,p_data => l_data
9033:
9034: RETURN;
9035:
9036:
9037: WHEN FND_API.G_EXC_ERROR
9038: THEN
9039:
9040: ROLLBACK TO delete_budget_line_pub;
9041:
9038: THEN
9039:
9040: ROLLBACK TO delete_budget_line_pub;
9041:
9042: p_return_status := FND_API.G_RET_STS_ERROR;
9043:
9044: FND_MSG_PUB.Count_And_Get
9045: ( p_count => p_msg_count ,
9046: p_data => p_msg_data );
9049: pa_debug.reset_curr_function;
9050: END IF;
9051:
9052:
9053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9054: THEN
9055:
9056: ROLLBACK TO delete_budget_line_pub;
9057:
9054: THEN
9055:
9056: ROLLBACK TO delete_budget_line_pub;
9057:
9058: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9059:
9060: FND_MSG_PUB.Count_And_Get
9061: ( p_count => p_msg_count ,
9062: p_data => p_msg_data );
9069: WHEN ROW_ALREADY_LOCKED
9070: THEN
9071: ROLLBACK TO delete_budget_line_pub;
9072:
9073: p_return_status := FND_API.G_RET_STS_ERROR;
9074:
9075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9076: THEN
9077: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
9096: WHEN OTHERS THEN
9097:
9098: ROLLBACK TO delete_budget_line_pub;
9099:
9100: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9101:
9102: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9103: THEN
9104: FND_MSG_PUB.add_exc_msg
9139: -- 26-APR-2005 Bug 4224464. Changed the procedure update_budget to support finplan model.
9140:
9141: PROCEDURE update_budget
9142: ( p_api_version_number IN NUMBER
9143: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9144: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9145: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
9146: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
9147: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
9140:
9141: PROCEDURE update_budget
9142: ( p_api_version_number IN NUMBER
9143: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9144: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9145: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
9146: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
9147: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
9148: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9820: ,x_msg_count => p_msg_count
9821: ,x_msg_data => p_msg_data
9822: ,x_return_status => p_return_status );
9823:
9824: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9825: IF(l_debug_mode='Y') THEN
9826: pa_debug.g_err_stage := 'validate header info API falied';
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9828: END IF;
9898: x_msg_count => l_msg_count,
9899: x_msg_data => l_msg_data) ;
9900:
9901:
9902: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9903:
9904: IF l_debug_mode = 'Y' THEN
9905: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9906: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9946: ,x_message_count => l_msg_count
9947: ,x_return_status => x_return_status
9948: ,x_message_data => l_msg_data) ;
9949:
9950: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9951: THEN
9952: -- RAISE FND_API.G_EXC_ERROR;
9953: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9954: END IF;
9948: ,x_message_data => l_msg_data) ;
9949:
9950: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9951: THEN
9952: -- RAISE FND_API.G_EXC_ERROR;
9953: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9954: END IF;
9955: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL. */
9956: /*Commenting ends for bug 6408139 */
9988: ,x_message_count => l_msg_count
9989: ,x_return_status => x_return_status
9990: ,x_message_data => l_msg_data) ;
9991:
9992: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9993: THEN
9994: -- RAISE FND_API.G_EXC_ERROR;
9995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9996: END IF;
9990: ,x_message_data => l_msg_data) ;
9991:
9992: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9993: THEN
9994: -- RAISE FND_API.G_EXC_ERROR;
9995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9996: END IF;
9997:
9998: END IF ; -- Getting plan flags only when all are passed as G_PA_MISS_CHAR
10046: ,p_attribute4 => ''
10047: ,p_attribute5 => '');
10048: END IF;
10049:
10050: RAISE FND_API.G_EXC_ERROR;
10051: END IF;
10052:
10053: CLOSE l_budget_change_reason_csr;
10054:
10416: ,p_attribute3 => ''
10417: ,p_attribute4 => ''
10418: ,p_attribute5 => '');
10419: END IF;
10420: RAISE FND_API.G_EXC_ERROR;
10421: END IF;
10422:
10423: /*End of code for Bug 6417360*/
10424:
10474: ,x_return_status => x_return_status
10475: ,x_msg_count => l_msg_count
10476: ,x_msg_data => l_msg_data );
10477:
10478: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10479: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10480: END IF;
10481:
10482: -- Further processing is required only if the version to be updated is not the current working verion
10497: x_return_status => x_return_status,
10498: x_msg_count => l_msg_count,
10499: x_msg_data => l_msg_data) ;
10500:
10501: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10502:
10503: IF l_debug_mode = 'Y' THEN
10504: pa_debug.g_err_stage := 'Error executing lock unlock version';
10505: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10526: x_return_status => x_return_status,
10527: x_msg_count => l_msg_count,
10528: x_msg_data => l_msg_data);
10529:
10530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10531: IF l_debug_mode= 'Y' THEN
10532: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10533: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10534: END IF;
10915: ,x_msg_count => p_msg_count
10916: ,x_msg_data => p_msg_data
10917: ,x_return_status => p_return_status);
10918:
10919: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN -- 3453650
10920: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10921: END IF;
10922:
10923: ELSE --l_budget_type_code IS NOT NULL
10971: ,x_msg_count => p_msg_count
10972: ,x_msg_data => p_msg_data
10973: ,x_return_status => p_return_status);
10974:
10975: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10976: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10977: END IF;
10978: END IF; --l_budget_type_code IS NOT NULL
10979:
11098: x_return_status => p_return_status,
11099: x_msg_count => p_msg_count,
11100: x_msg_data => p_msg_data);
11101:
11102: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11103: IF l_debug_mode = 'Y' THEN
11104: pa_debug.g_err_stage:= 'valid_rate_type returned error';
11105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11106: END IF;
11131: ,x_return_status => p_return_status
11132: ,x_msg_count => p_msg_count
11133: ,x_msg_data => p_msg_data);
11134:
11135: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11136: p_return_status:=FND_API.G_RET_STS_ERROR;
11137: IF l_debug_mode = 'Y' THEN
11138: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
11139: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11132: ,x_msg_count => p_msg_count
11133: ,x_msg_data => p_msg_data);
11134:
11135: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11136: p_return_status:=FND_API.G_RET_STS_ERROR;
11137: IF l_debug_mode = 'Y' THEN
11138: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
11139: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11140: END IF;
11193:
11194: --dbms_output.put_line('In budget lines LOOP');
11195:
11196: --initialize return status for budget line to success
11197: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_SUCCESS;
11198:
11199: /*Note carefully that we should be using l_budget_lines_in for all the processing going fwd. This l_budgte_lines_in table is an
11200: *.output parameter of vallidate_budget_lines(this call to validate_budget_lines has been made before this point in code). */
11201: l_budget_line_in_rec := l_budget_lines_in(l_budget_line_index);--p_budget_lines_in(l_budget_line_index);
11227: ,p_attribute5 => '');
11228: END IF;
11229:
11230: CLOSE l_budget_periods_csr;
11231: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11232: p_multiple_task_msg := 'F';
11233:
11234:
11235: END IF;
11257: ,p_attribute4 => ''
11258: ,p_attribute5 => '');
11259: END IF;
11260:
11261: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11262: p_multiple_task_msg := 'F';
11263: -- RAISE FND_API.G_EXC_ERROR;
11264:
11265: END IF;
11259: END IF;
11260:
11261: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11262: p_multiple_task_msg := 'F';
11263: -- RAISE FND_API.G_EXC_ERROR;
11264:
11265: END IF;
11266:
11267:
11305: ,p_attribute4 => ''
11306: ,p_attribute5 => to_char(l_budget_start_date));
11307: END IF;
11308: p_multiple_task_msg := 'F';
11309: -- RAISE FND_API.G_EXC_ERROR;
11310: END IF;
11311:
11312: l_resource_list_member_id := l_uncategorized_rlmid;
11313: l_budget_alias := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
11327: ,p_resource_list_member_id =>l_budget_line_in_rec.resource_list_member_id
11328: ,p_out_resource_list_member_id => l_resource_list_member_id
11329: ,p_return_status => l_return_status );
11330:
11331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11332: p_budget_lines_out(l_budget_line_index).return_status :=
11333: l_return_status;
11334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11330:
11331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11332: p_budget_lines_out(l_budget_line_index).return_status :=
11333: l_return_status;
11334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11336: p_budget_lines_out(l_budget_line_index).return_status :=
11337: l_return_status;
11338: p_multiple_task_msg := 'F';
11331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11332: p_budget_lines_out(l_budget_line_index).return_status :=
11333: l_return_status;
11334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11336: p_budget_lines_out(l_budget_line_index).return_status :=
11337: l_return_status;
11338: p_multiple_task_msg := 'F';
11339: -- RAISE FND_API.G_EXC_ERROR;
11335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11336: p_budget_lines_out(l_budget_line_index).return_status :=
11337: l_return_status;
11338: p_multiple_task_msg := 'F';
11339: -- RAISE FND_API.G_EXC_ERROR;
11340: END IF;
11341: l_budget_alias := l_budget_line_in_rec.resource_alias;
11342: END IF; -- If l_budget_line_in_rec.resource_alias <>
11343: END IF; -- If l_categorization_code = 'N'
11354: p_pa_task_id => l_budget_line_in_rec.pa_task_id,
11355: p_pm_task_reference => l_budget_line_in_rec.pm_task_reference,
11356: p_out_task_id => l_task_id,
11357: p_return_status => l_return_status );
11358: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11359: p_budget_lines_out(l_budget_line_index).return_status :=
11360: l_return_status;
11361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11362: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11357: p_return_status => l_return_status );
11358: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11359: p_budget_lines_out(l_budget_line_index).return_status :=
11360: l_return_status;
11361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11362: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11363: p_budget_lines_out(l_budget_line_index).return_status :=
11364: l_return_status;
11365: p_multiple_task_msg := 'F';
11358: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11359: p_budget_lines_out(l_budget_line_index).return_status :=
11360: l_return_status;
11361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11362: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11363: p_budget_lines_out(l_budget_line_index).return_status :=
11364: l_return_status;
11365: p_multiple_task_msg := 'F';
11366: -- RAISE FND_API.G_EXC_ERROR;
11362: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11363: p_budget_lines_out(l_budget_line_index).return_status :=
11364: l_return_status;
11365: p_multiple_task_msg := 'F';
11366: -- RAISE FND_API.G_EXC_ERROR;
11367: END IF;
11368: END IF;
11369:
11370: ELSE -- Bug 3453650 budget_type_code is not null
11431: ,p_resource_list_member_id => l_budget_line_in_rec.resource_list_member_id
11432: ,p_out_resource_list_member_id => l_resource_list_member_id -- 3453650
11433: ,p_return_status => x_return_status );
11434:
11435: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11436: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11439: p_budget_lines_out(l_budget_line_index).return_status :=
11433: ,p_return_status => x_return_status );
11434:
11435: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11436: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11439: p_budget_lines_out(l_budget_line_index).return_status :=
11440: x_return_status;
11441: p_multiple_task_msg := 'F';
11434:
11435: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11436: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11439: p_budget_lines_out(l_budget_line_index).return_status :=
11440: x_return_status;
11441: p_multiple_task_msg := 'F';
11442: END IF;
11456: p_pa_task_id => l_budget_line_in_rec.pa_task_id,
11457: p_pm_task_reference => l_budget_line_in_rec.pm_task_reference,
11458: p_out_task_id => l_task_id,
11459: p_return_status => l_return_status );
11460: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11461: p_budget_lines_out(l_budget_line_index).return_status :=
11462: l_return_status;
11463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11464: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11459: p_return_status => l_return_status );
11460: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11461: p_budget_lines_out(l_budget_line_index).return_status :=
11462: l_return_status;
11463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11464: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11465: p_budget_lines_out(l_budget_line_index).return_status :=
11466: l_return_status;
11467: p_multiple_task_msg := 'F';
11460: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11461: p_budget_lines_out(l_budget_line_index).return_status :=
11462: l_return_status;
11463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11464: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11465: p_budget_lines_out(l_budget_line_index).return_status :=
11466: l_return_status;
11467: p_multiple_task_msg := 'F';
11468:
11590: ,p_categorization_code => l_categorization_code
11591: ,p_budget_version_id => l_budget_version_id
11592: ,p_change_reason_code => l_budget_line_in_rec.change_reason_code );
11593:
11594: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11595: THEN
11596: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11598:
11593:
11594: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11595: THEN
11596: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11598:
11599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11600: THEN
11601: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11595: THEN
11596: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11598:
11599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11600: THEN
11601: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11602: p_multiple_task_msg := 'F';
11603: END IF;
11612: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
11613: IF p_budget_lines_in(l_budget_line_index).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11614: l_budget_line_in_rec.raw_cost := NULL;
11615: ELSIF(p_budget_lines_in(l_budget_line_index).raw_cost is null) THEN
11616: l_budget_line_in_rec.raw_cost := FND_API.G_MISS_NUM;
11617: ELSE
11618: l_budget_line_in_rec.raw_cost := l_budget_line_in_rec.raw_cost;
11619: END IF;
11620:
11620:
11621: IF p_budget_lines_in(l_budget_line_index).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11622: l_budget_line_in_rec.burdened_cost := NULL;
11623: ELSIF(p_budget_lines_in(l_budget_line_index).burdened_cost is null) THEN
11624: l_budget_line_in_rec.burdened_cost := FND_API.G_MISS_NUM;
11625: ELSE
11626: l_budget_line_in_rec.burdened_cost := l_budget_line_in_rec.burdened_cost;
11627: END IF;
11628:
11628:
11629: IF p_budget_lines_in(l_budget_line_index).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11630: l_budget_line_in_rec.revenue := NULL;
11631: ELSIF(p_budget_lines_in(l_budget_line_index).revenue is null) THEN
11632: l_budget_line_in_rec.revenue := FND_API.G_MISS_NUM;
11633: ELSE
11634: l_budget_line_in_rec.revenue := l_budget_line_in_rec.revenue;
11635: END IF;
11636:
11636:
11637: IF p_budget_lines_in(l_budget_line_index).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11638: l_budget_line_in_rec.quantity := NULL;
11639: ELSIF(p_budget_lines_in(l_budget_line_index).quantity is null) THEN
11640: l_budget_line_in_rec.quantity := FND_API.G_MISS_NUM;
11641: ELSE
11642: l_budget_line_in_rec.quantity := l_budget_line_in_rec.quantity;
11643: END IF;
11644:
11644:
11645: IF p_budget_lines_in(l_budget_line_index).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11646: l_budget_line_in_rec.change_reason_code :=NULL;
11647: ELSIF(p_budget_lines_in(l_budget_line_index).change_reason_code is null) THEN
11648: l_budget_line_in_rec.change_reason_code := FND_API.G_MISS_CHAR;
11649: ELSE
11650: l_budget_line_in_rec.change_reason_code := l_budget_line_in_rec.change_reason_code ;
11651: END IF;
11652:
11652:
11653: IF p_budget_lines_in(l_budget_line_index).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11654: l_budget_line_in_rec.description := NULL;
11655: ELSIF(p_budget_lines_in(l_budget_line_index).description is null) THEN
11656: l_budget_line_in_rec.description := FND_API.G_MISS_CHAR;
11657: ELSE
11658: l_budget_line_in_rec.description := l_budget_line_in_rec.description;
11659: END IF;
11660:
11660:
11661: IF p_budget_lines_in(l_budget_line_index).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11662: l_budget_line_in_rec.attribute_category := NULL;
11663: ELSIF(p_budget_lines_in(l_budget_line_index).attribute_category is null) THEN
11664: l_budget_line_in_rec.attribute_category := FND_API.G_MISS_CHAR;
11665: ELSE
11666: l_budget_line_in_rec.attribute_category := l_budget_line_in_rec.attribute_category;
11667: END IF;
11668:
11668:
11669: IF p_budget_lines_in(l_budget_line_index).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11670: l_budget_line_in_rec.attribute1 := NULL;
11671: ELSIF(p_budget_lines_in(l_budget_line_index).attribute1 is null) THEN
11672: l_budget_line_in_rec.attribute1 := FND_API.G_MISS_CHAR;
11673: ELSE
11674: l_budget_line_in_rec.attribute1 := l_budget_line_in_rec.attribute1;
11675: END IF;
11676:
11676:
11677: IF p_budget_lines_in(l_budget_line_index).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11678: l_budget_line_in_rec.attribute2 := NULL;
11679: ELSIF(p_budget_lines_in(l_budget_line_index).attribute2 is null) THEN
11680: l_budget_line_in_rec.attribute2 := FND_API.G_MISS_CHAR;
11681: ELSE
11682: l_budget_line_in_rec.attribute2 := l_budget_line_in_rec.attribute2;
11683: END IF;
11684:
11684:
11685: IF p_budget_lines_in(l_budget_line_index).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11686: l_budget_line_in_rec.attribute3 := NULL;
11687: ELSIF(p_budget_lines_in(l_budget_line_index).attribute3 is null) THEN
11688: l_budget_line_in_rec.attribute3 := FND_API.G_MISS_CHAR;
11689: ELSE
11690: l_budget_line_in_rec.attribute3 := l_budget_line_in_rec.attribute3;
11691: END IF;
11692:
11692:
11693: IF p_budget_lines_in(l_budget_line_index).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11694: l_budget_line_in_rec.attribute4 := NULL;
11695: ELSIF(p_budget_lines_in(l_budget_line_index).attribute4 is null) THEN
11696: l_budget_line_in_rec.attribute4 := FND_API.G_MISS_CHAR;
11697: ELSE
11698: l_budget_line_in_rec.attribute4 := l_budget_line_in_rec.attribute4;
11699: END IF;
11700:
11700:
11701: IF p_budget_lines_in(l_budget_line_index).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11702: l_budget_line_in_rec.attribute5 := NULL;
11703: ELSIF(p_budget_lines_in(l_budget_line_index).attribute5 is null) THEN
11704: l_budget_line_in_rec.attribute5 := FND_API.G_MISS_CHAR;
11705: ELSE
11706: l_budget_line_in_rec.attribute5 := l_budget_line_in_rec.attribute5;
11707: END IF;
11708:
11708:
11709: IF p_budget_lines_in(l_budget_line_index).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11710: l_budget_line_in_rec.attribute6 := NULL;
11711: ELSIF(p_budget_lines_in(l_budget_line_index).attribute6 is null) THEN
11712: l_budget_line_in_rec.attribute6 := FND_API.G_MISS_CHAR;
11713: ELSE
11714: l_budget_line_in_rec.attribute6 := l_budget_line_in_rec.attribute6;
11715: END IF;
11716:
11716:
11717: IF p_budget_lines_in(l_budget_line_index).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11718: l_budget_line_in_rec.attribute7 := NULL;
11719: ELSIF(p_budget_lines_in(l_budget_line_index).attribute7 is null) THEN
11720: l_budget_line_in_rec.attribute7 := FND_API.G_MISS_CHAR;
11721: ELSE
11722: l_budget_line_in_rec.attribute7 := l_budget_line_in_rec.attribute7;
11723: END IF;
11724:
11724:
11725: IF p_budget_lines_in(l_budget_line_index).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11726: l_budget_line_in_rec.attribute8 := NULL;
11727: ELSIF(p_budget_lines_in(l_budget_line_index).attribute8 is null) THEN
11728: l_budget_line_in_rec.attribute8 := FND_API.G_MISS_CHAR;
11729: ELSE
11730: l_budget_line_in_rec.attribute8 := l_budget_line_in_rec.attribute8;
11731: END IF;
11732:
11732:
11733: IF p_budget_lines_in(l_budget_line_index).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11734: l_budget_line_in_rec.attribute9 := NULL;
11735: ELSIF(p_budget_lines_in(l_budget_line_index).attribute9 is null) THEN
11736: l_budget_line_in_rec.attribute9 := FND_API.G_MISS_CHAR;
11737: ELSE
11738: l_budget_line_in_rec.attribute9 := l_budget_line_in_rec.attribute9;
11739: END IF;
11740:
11740:
11741: IF p_budget_lines_in(l_budget_line_index).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11742: l_budget_line_in_rec.attribute10 := NULL;
11743: ELSIF(p_budget_lines_in(l_budget_line_index).attribute10 is null) THEN
11744: l_budget_line_in_rec.attribute10 := FND_API.G_MISS_CHAR;
11745: ELSE
11746: l_budget_line_in_rec.attribute10 := l_budget_line_in_rec.attribute10;
11747: END IF;
11748:
11748:
11749: IF p_budget_lines_in(l_budget_line_index).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11750: l_budget_line_in_rec.attribute11 := NULL;
11751: ELSIF(p_budget_lines_in(l_budget_line_index).attribute11 is null) THEN
11752: l_budget_line_in_rec.attribute11 := FND_API.G_MISS_CHAR;
11753: ELSE
11754: l_budget_line_in_rec.attribute11 := l_budget_line_in_rec.attribute11;
11755: END IF;
11756:
11756:
11757: IF p_budget_lines_in(l_budget_line_index).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11758: l_budget_line_in_rec.attribute12 := NULL;
11759: ELSIF(p_budget_lines_in(l_budget_line_index).attribute12 is null) THEN
11760: l_budget_line_in_rec.attribute12 := FND_API.G_MISS_CHAR;
11761: ELSE
11762: l_budget_line_in_rec.attribute12 := l_budget_line_in_rec.attribute12;
11763: END IF;
11764:
11764:
11765: IF p_budget_lines_in(l_budget_line_index).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11766: l_budget_line_in_rec.attribute13 := NULL;
11767: ELSIF(p_budget_lines_in(l_budget_line_index).attribute13 is null) THEN
11768: l_budget_line_in_rec.attribute13 := FND_API.G_MISS_CHAR;
11769: ELSE
11770: l_budget_line_in_rec.attribute13 := l_budget_line_in_rec.attribute13;
11771: END IF;
11772:
11772:
11773: IF p_budget_lines_in(l_budget_line_index).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11774: l_budget_line_in_rec.attribute14 := NULL;
11775: ELSIF(p_budget_lines_in(l_budget_line_index).attribute14 is null) THEN
11776: l_budget_line_in_rec.attribute14 := FND_API.G_MISS_CHAR;
11777: ELSE
11778: l_budget_line_in_rec.attribute14 := l_budget_line_in_rec.attribute14;
11779: END IF;
11780:
11780:
11781: IF p_budget_lines_in(l_budget_line_index).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11782: l_budget_line_in_rec.attribute15 := NULL;
11783: ELSIF(p_budget_lines_in(l_budget_line_index).attribute15 is null) THEN
11784: l_budget_line_in_rec.attribute15 := FND_API.G_MISS_CHAR;
11785: ELSE
11786: l_budget_line_in_rec.attribute15 := l_budget_line_in_rec.attribute15;
11787: END IF;
11788:
11816: ,p_attribute14 => l_budget_line_in_rec.attribute14
11817: ,p_attribute15 => l_budget_line_in_rec.attribute15
11818: );
11819:
11820: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11821: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11823:
11824: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11818: );
11819:
11820: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11821: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11823:
11824: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11825: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11826: p_multiple_task_msg := 'F';
11820: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11821: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11823:
11824: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11825: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11826: p_multiple_task_msg := 'F';
11827:
11828: END IF; -- l_return_status = FND_API.G_RET_STS_UNE
11824: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11825: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11826: p_multiple_task_msg := 'F';
11827:
11828: END IF; -- l_return_status = FND_API.G_RET_STS_UNE
11829:
11830: END IF; -- End for the condition : (l_dummy <> 'X' OR l_dummy IS NULL) OR
11831:
11832: ELSE -- l_budget_type_code IS NOT NULL (Inserting lines for the finplan model)
11903: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
11904: IF p_budget_lines_in(i).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11905: l_finplan_lines_tab(j).txn_raw_cost := NULL;
11906: ELSIF(p_budget_lines_in(i).raw_cost is null) THEN
11907: l_finplan_lines_tab(j).txn_raw_cost := FND_API.G_MISS_NUM;
11908: ELSE
11909: l_finplan_lines_tab(j).txn_raw_cost := l_budget_lines_in(i).raw_cost;
11910: END IF;
11911:
11911:
11912: IF p_budget_lines_in(i).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11913: l_finplan_lines_tab(j).txn_burdened_cost := NULL;
11914: ELSIF(p_budget_lines_in(i).burdened_cost is null) THEN
11915: l_finplan_lines_tab(j).txn_burdened_cost := FND_API.G_MISS_NUM;
11916: ELSE
11917: l_finplan_lines_tab(j).txn_burdened_cost := l_budget_lines_in(i).burdened_cost;
11918: END IF;
11919:
11919:
11920: IF p_budget_lines_in(i).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11921: l_finplan_lines_tab(j).txn_revenue := NULL;
11922: ELSIF(p_budget_lines_in(i).revenue is null) THEN
11923: l_finplan_lines_tab(j).txn_revenue := FND_API.G_MISS_NUM;
11924: ELSE
11925: l_finplan_lines_tab(j).txn_revenue := l_budget_lines_in(i).revenue;
11926: END IF;
11927:
11927:
11928: IF p_budget_lines_in(i).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11929: l_finplan_lines_tab(j).quantity := NULL;
11930: ELSIF(p_budget_lines_in(i).quantity is null) THEN
11931: l_finplan_lines_tab(j).quantity := FND_API.G_MISS_NUM;
11932: ELSE
11933: l_finplan_lines_tab(j).quantity := l_budget_lines_in(i).quantity;
11934: END IF;
11935:
11935:
11936: IF p_budget_lines_in(i).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11937: l_finplan_lines_tab(j).change_reason_code :=NULL;
11938: ELSIF(p_budget_lines_in(i).change_reason_code is null) THEN
11939: l_finplan_lines_tab(j).change_reason_code := FND_API.G_MISS_CHAR;
11940: ELSE
11941: l_finplan_lines_tab(j).change_reason_code := l_budget_lines_in(i).change_reason_code ;
11942: END IF;
11943:
11943:
11944: IF p_budget_lines_in(i).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11945: l_finplan_lines_tab(j).description := NULL;
11946: ELSIF(p_budget_lines_in(i).description is null) THEN
11947: l_finplan_lines_tab(j).description := FND_API.G_MISS_CHAR;
11948: ELSE
11949: l_finplan_lines_tab(j).description := l_budget_lines_in(i).description;
11950: END IF;
11951:
11951:
11952: IF p_budget_lines_in(i).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11953: l_finplan_lines_tab(j).attribute_category := NULL;
11954: ELSIF(p_budget_lines_in(i).attribute_category is null) THEN
11955: l_finplan_lines_tab(j).attribute_category := FND_API.G_MISS_CHAR;
11956: ELSE
11957: l_finplan_lines_tab(j).attribute_category := l_budget_lines_in(i).attribute_category;
11958: END IF;
11959:
11959:
11960: IF p_budget_lines_in(i).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11961: l_finplan_lines_tab(j).attribute1 := NULL;
11962: ELSIF(p_budget_lines_in(i).attribute1 is null) THEN
11963: l_finplan_lines_tab(j).attribute1 := FND_API.G_MISS_CHAR;
11964: ELSE
11965: l_finplan_lines_tab(j).attribute1 := l_budget_lines_in(i).attribute1;
11966: END IF;
11967:
11967:
11968: IF p_budget_lines_in(i).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11969: l_finplan_lines_tab(j).attribute2 := NULL;
11970: ELSIF(p_budget_lines_in(i).attribute2 is null) THEN
11971: l_finplan_lines_tab(j).attribute2 := FND_API.G_MISS_CHAR;
11972: ELSE
11973: l_finplan_lines_tab(j).attribute2 := l_budget_lines_in(i).attribute2;
11974: END IF;
11975:
11975:
11976: IF p_budget_lines_in(i).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11977: l_finplan_lines_tab(j).attribute3 := NULL;
11978: ELSIF(p_budget_lines_in(i).attribute3 is null) THEN
11979: l_finplan_lines_tab(j).attribute3 := FND_API.G_MISS_CHAR;
11980: ELSE
11981: l_finplan_lines_tab(j).attribute3 := l_budget_lines_in(i).attribute3;
11982: END IF;
11983:
11983:
11984: IF p_budget_lines_in(i).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11985: l_finplan_lines_tab(j).attribute4 := NULL;
11986: ELSIF(p_budget_lines_in(i).attribute4 is null) THEN
11987: l_finplan_lines_tab(j).attribute4 := FND_API.G_MISS_CHAR;
11988: ELSE
11989: l_finplan_lines_tab(j).attribute4 := l_budget_lines_in(i).attribute4;
11990: END IF;
11991:
11991:
11992: IF p_budget_lines_in(i).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11993: l_finplan_lines_tab(j).attribute5 := NULL;
11994: ELSIF(p_budget_lines_in(i).attribute5 is null) THEN
11995: l_finplan_lines_tab(j).attribute5 := FND_API.G_MISS_CHAR;
11996: ELSE
11997: l_finplan_lines_tab(j).attribute5 := l_budget_lines_in(i).attribute5;
11998: END IF;
11999:
11999:
12000: IF p_budget_lines_in(i).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12001: l_finplan_lines_tab(j).attribute6 := NULL;
12002: ELSIF(p_budget_lines_in(i).attribute6 is null) THEN
12003: l_finplan_lines_tab(j).attribute6 := FND_API.G_MISS_CHAR;
12004: ELSE
12005: l_finplan_lines_tab(j).attribute6 := l_budget_lines_in(i).attribute6;
12006: END IF;
12007:
12007:
12008: IF p_budget_lines_in(i).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12009: l_finplan_lines_tab(j).attribute7 := NULL;
12010: ELSIF(p_budget_lines_in(i).attribute7 is null) THEN
12011: l_finplan_lines_tab(j).attribute7 := FND_API.G_MISS_CHAR;
12012: ELSE
12013: l_finplan_lines_tab(j).attribute7 := l_budget_lines_in(i).attribute7;
12014: END IF;
12015:
12015:
12016: IF p_budget_lines_in(i).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12017: l_finplan_lines_tab(j).attribute8 := NULL;
12018: ELSIF(p_budget_lines_in(i).attribute8 is null) THEN
12019: l_finplan_lines_tab(j).attribute8 := FND_API.G_MISS_CHAR;
12020: ELSE
12021: l_finplan_lines_tab(j).attribute8 := l_budget_lines_in(i).attribute8;
12022: END IF;
12023:
12023:
12024: IF p_budget_lines_in(i).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12025: l_finplan_lines_tab(j).attribute9 := NULL;
12026: ELSIF(p_budget_lines_in(i).attribute9 is null) THEN
12027: l_finplan_lines_tab(j).attribute9 := FND_API.G_MISS_CHAR;
12028: ELSE
12029: l_finplan_lines_tab(j).attribute9 := l_budget_lines_in(i).attribute9;
12030: END IF;
12031:
12031:
12032: IF p_budget_lines_in(i).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12033: l_finplan_lines_tab(j).attribute10 := NULL;
12034: ELSIF(p_budget_lines_in(i).attribute10 is null) THEN
12035: l_finplan_lines_tab(j).attribute10 := FND_API.G_MISS_CHAR;
12036: ELSE
12037: l_finplan_lines_tab(j).attribute10 := l_budget_lines_in(i).attribute10;
12038: END IF;
12039:
12039:
12040: IF p_budget_lines_in(i).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12041: l_finplan_lines_tab(j).attribute11 := NULL;
12042: ELSIF(p_budget_lines_in(i).attribute11 is null) THEN
12043: l_finplan_lines_tab(j).attribute11 := FND_API.G_MISS_CHAR;
12044: ELSE
12045: l_finplan_lines_tab(j).attribute11 := l_budget_lines_in(i).attribute11;
12046: END IF;
12047:
12047:
12048: IF p_budget_lines_in(i).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12049: l_finplan_lines_tab(j).attribute12 := NULL;
12050: ELSIF(p_budget_lines_in(i).attribute12 is null) THEN
12051: l_finplan_lines_tab(j).attribute12 := FND_API.G_MISS_CHAR;
12052: ELSE
12053: l_finplan_lines_tab(j).attribute12 := l_budget_lines_in(i).attribute12;
12054: END IF;
12055:
12055:
12056: IF p_budget_lines_in(i).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12057: l_finplan_lines_tab(j).attribute13 := NULL;
12058: ELSIF(p_budget_lines_in(i).attribute13 is null) THEN
12059: l_finplan_lines_tab(j).attribute13 := FND_API.G_MISS_CHAR;
12060: ELSE
12061: l_finplan_lines_tab(j).attribute13 := l_budget_lines_in(i).attribute13;
12062: END IF;
12063:
12063:
12064: IF p_budget_lines_in(i).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12065: l_finplan_lines_tab(j).attribute14 := NULL;
12066: ELSIF(p_budget_lines_in(i).attribute14 is null) THEN
12067: l_finplan_lines_tab(j).attribute14 := FND_API.G_MISS_CHAR;
12068: ELSE
12069: l_finplan_lines_tab(j).attribute14 := l_budget_lines_in(i).attribute14;
12070: END IF;
12071:
12071:
12072: IF p_budget_lines_in(i).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12073: l_finplan_lines_tab(j).attribute15 := NULL;
12074: ELSIF(p_budget_lines_in(i).attribute15 is null) THEN
12075: l_finplan_lines_tab(j).attribute15 := FND_API.G_MISS_CHAR;
12076: ELSE
12077: l_finplan_lines_tab(j).attribute15 := l_budget_lines_in(i).attribute15;
12078: END IF;
12079:
12079:
12080: IF p_budget_lines_in(i).projfunc_cost_rate_type =PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12081: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := NULL;
12082: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_type is null) THEN
12083: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12084: ELSE
12085: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := l_budget_lines_in(i).projfunc_cost_rate_type;
12086: END IF;
12087:
12087:
12088: IF p_budget_lines_in(i).projfunc_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12089: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := NULL;
12090: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_date_type is null) THEN
12091: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12092: ELSE
12093: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE :=l_budget_lines_in(i).projfunc_cost_rate_date_type;
12094: END IF;
12095:
12095:
12096: IF p_budget_lines_in(i).projfunc_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12097: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := NULL;
12098: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_date is null) THEN
12099: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := FND_API.G_MISS_DATE;
12100: ELSE
12101: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := l_budget_lines_in(i).projfunc_cost_rate_date ;
12102: END IF;
12103:
12103:
12104: IF p_budget_lines_in(i).projfunc_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12105: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := NULL;
12106: ELSIF(p_budget_lines_in(i).projfunc_cost_exchange_rate is null) THEN
12107: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12108: ELSE
12109: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := l_budget_lines_in(i).projfunc_cost_exchange_rate ;
12110: END IF;
12111:
12111:
12112: IF p_budget_lines_in(i).projfunc_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12113: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := NULL;
12114: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_type is null) THEN
12115: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12116: ELSE
12117: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := l_budget_lines_in(i).projfunc_rev_rate_type ;
12118: END IF;
12119:
12119:
12120: IF p_budget_lines_in(i).projfunc_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12121: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := NULL;
12122: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_date_type is null) THEN
12123: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12124: ELSE
12125: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := l_budget_lines_in(i).projfunc_rev_rate_date_type ;
12126: END IF;
12127:
12127:
12128: IF p_budget_lines_in(i).projfunc_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12129: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := NULL;
12130: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_date is null) THEN
12131: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := FND_API.G_MISS_DATE;
12132: ELSE
12133: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := l_budget_lines_in(i).projfunc_rev_rate_date;
12134: END IF;
12135:
12135:
12136: IF p_budget_lines_in(i).projfunc_rev_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12137: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := NULL;
12138: ELSIF(p_budget_lines_in(i).projfunc_rev_exchange_rate is null) THEN
12139: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12140: ELSE
12141: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := l_budget_lines_in(i).projfunc_rev_exchange_rate ;
12142: END IF;
12143:
12143:
12144: IF p_budget_lines_in(i).project_cost_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12145: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := NULL;
12146: ELSIF(p_budget_lines_in(i).project_cost_rate_type is null) THEN
12147: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12148: ELSE
12149: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := l_budget_lines_in(i).project_cost_rate_type;
12150: END IF;
12151:
12151:
12152: IF p_budget_lines_in(i).project_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12153: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := NULL;
12154: ELSIF(p_budget_lines_in(i).project_cost_rate_date_type is null) THEN
12155: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12156: ELSE
12157: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := l_budget_lines_in(i).project_cost_rate_date_type ;
12158: END IF;
12159:
12159:
12160: IF p_budget_lines_in(i).project_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12161: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := NULL;
12162: ELSIF(p_budget_lines_in(i).project_cost_rate_date is null) THEN
12163: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := FND_API.G_MISS_DATE;
12164: ELSE
12165: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := l_budget_lines_in(i).project_cost_rate_date;
12166: END IF;
12167:
12167:
12168: IF p_budget_lines_in(i).project_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12169: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := NULL;
12170: ELSIF(p_budget_lines_in(i).project_cost_exchange_rate is null) THEN
12171: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12172: ELSE
12173: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := l_budget_lines_in(i).project_cost_exchange_rate ;
12174: END IF;
12175:
12175:
12176: IF p_budget_lines_in(i).project_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12177: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := NULL;
12178: ELSIF(p_budget_lines_in(i).project_rev_rate_type is null) THEN
12179: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12180: ELSE
12181: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := l_budget_lines_in(i).project_rev_rate_type ;
12182: END IF;
12183:
12183:
12184: IF p_budget_lines_in(i).project_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12185: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := NULL;
12186: ELSIF(p_budget_lines_in(i).project_rev_rate_date_type is null) THEN
12187: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12188: ELSE
12189: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := l_budget_lines_in(i).project_rev_rate_date_type;
12190: END IF;
12191:
12191:
12192: IF p_budget_lines_in(i).project_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12193: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := NULL;
12194: ELSIF(p_budget_lines_in(i).project_rev_rate_date is null) THEN
12195: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := FND_API.G_MISS_DATE;
12196: ELSE
12197: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := l_budget_lines_in(i).project_rev_rate_date ;
12198: END IF;
12199:
12199:
12200: IF p_budget_lines_in(i).project_rev_exchange_rate =PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12201: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := NULL;
12202: ELSIF(p_budget_lines_in(i).project_rev_exchange_rate is null) THEN
12203: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12204: ELSE
12205: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := l_budget_lines_in(i).project_rev_exchange_rate ;
12206: END IF;
12207:
12207:
12208: IF p_budget_lines_in(i).pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12209: l_finplan_lines_tab(j).pm_product_code := NULL;
12210: ELSIF(p_budget_lines_in(i).pm_product_code is null) THEN
12211: l_finplan_lines_tab(j).pm_product_code := FND_API.G_MISS_CHAR;
12212: ELSE
12213: l_finplan_lines_tab(j).pm_product_code := l_budget_lines_in(i).pm_product_code ;
12214: END IF;
12215:
12215:
12216: IF p_budget_lines_in(i).pm_budget_line_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12217: l_finplan_lines_tab(j).pm_budget_line_reference := NULL;
12218: ELSIF(p_budget_lines_in(i).pm_budget_line_reference is null) THEN
12219: l_finplan_lines_tab(j).pm_budget_line_reference := FND_API.G_MISS_CHAR;
12220: ELSE
12221: l_finplan_lines_tab(j).pm_budget_line_reference := l_budget_lines_in(i).pm_budget_line_reference ;
12222: END IF;
12223:
12256: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
12257: IF p_budget_lines_in(l_budget_line_index).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12258: l_finplan_lines_tab(j).txn_raw_cost := NULL;
12259: ELSIF(p_budget_lines_in(l_budget_line_index).raw_cost is null) THEN
12260: l_finplan_lines_tab(j).txn_raw_cost := FND_API.G_MISS_NUM;
12261: ELSE
12262: l_finplan_lines_tab(j).txn_raw_cost := l_budget_line_in_rec.raw_cost;
12263: END IF;
12264:
12264:
12265: IF p_budget_lines_in(l_budget_line_index).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12266: l_finplan_lines_tab(j).txn_burdened_cost := NULL;
12267: ELSIF(p_budget_lines_in(l_budget_line_index).burdened_cost is null) THEN
12268: l_finplan_lines_tab(j).txn_burdened_cost := FND_API.G_MISS_NUM;
12269: ELSE
12270: l_finplan_lines_tab(j).txn_burdened_cost := l_budget_line_in_rec.burdened_cost;
12271: END IF;
12272:
12272:
12273: IF p_budget_lines_in(l_budget_line_index).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12274: l_finplan_lines_tab(j).txn_revenue := NULL;
12275: ELSIF(p_budget_lines_in(l_budget_line_index).revenue is null) THEN
12276: l_finplan_lines_tab(j).txn_revenue := FND_API.G_MISS_NUM;
12277: ELSE
12278: l_finplan_lines_tab(j).txn_revenue := l_budget_line_in_rec.revenue;
12279: END IF;
12280:
12280:
12281: IF p_budget_lines_in(l_budget_line_index).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12282: l_finplan_lines_tab(j).quantity := NULL;
12283: ELSIF(p_budget_lines_in(l_budget_line_index).quantity is null) THEN
12284: l_finplan_lines_tab(j).quantity := FND_API.G_MISS_NUM;
12285: ELSE
12286: l_finplan_lines_tab(j).quantity := l_budget_line_in_rec.quantity;
12287: END IF;
12288:
12288:
12289: IF p_budget_lines_in(l_budget_line_index).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12290: l_finplan_lines_tab(j).change_reason_code :=NULL;
12291: ELSIF(p_budget_lines_in(l_budget_line_index).change_reason_code is null) THEN
12292: l_finplan_lines_tab(j).change_reason_code := FND_API.G_MISS_CHAR;
12293: ELSE
12294: l_finplan_lines_tab(j).change_reason_code := l_budget_line_in_rec.change_reason_code ;
12295: END IF;
12296:
12296:
12297: IF p_budget_lines_in(l_budget_line_index).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12298: l_finplan_lines_tab(j).description := NULL;
12299: ELSIF(p_budget_lines_in(l_budget_line_index).description is null) THEN
12300: l_finplan_lines_tab(j).description := FND_API.G_MISS_CHAR;
12301: ELSE
12302: l_finplan_lines_tab(j).description := l_budget_line_in_rec.description;
12303: END IF;
12304:
12304:
12305: IF p_budget_lines_in(l_budget_line_index).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12306: l_finplan_lines_tab(j).attribute_category := NULL;
12307: ELSIF(p_budget_lines_in(l_budget_line_index).attribute_category is null) THEN
12308: l_finplan_lines_tab(j).attribute_category := FND_API.G_MISS_CHAR;
12309: ELSE
12310: l_finplan_lines_tab(j).attribute_category := l_budget_line_in_rec.attribute_category;
12311: END IF;
12312:
12312:
12313: IF p_budget_lines_in(l_budget_line_index).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12314: l_finplan_lines_tab(j).attribute1 := NULL;
12315: ELSIF(p_budget_lines_in(l_budget_line_index).attribute1 is null) THEN
12316: l_finplan_lines_tab(j).attribute1 := FND_API.G_MISS_CHAR;
12317: ELSE
12318: l_finplan_lines_tab(j).attribute1 := l_budget_line_in_rec.attribute1;
12319: END IF;
12320:
12320:
12321: IF p_budget_lines_in(l_budget_line_index).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12322: l_finplan_lines_tab(j).attribute2 := NULL;
12323: ELSIF(p_budget_lines_in(l_budget_line_index).attribute2 is null) THEN
12324: l_finplan_lines_tab(j).attribute2 := FND_API.G_MISS_CHAR;
12325: ELSE
12326: l_finplan_lines_tab(j).attribute2 := l_budget_line_in_rec.attribute2;
12327: END IF;
12328:
12328:
12329: IF p_budget_lines_in(l_budget_line_index).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12330: l_finplan_lines_tab(j).attribute3 := NULL;
12331: ELSIF(p_budget_lines_in(l_budget_line_index).attribute3 is null) THEN
12332: l_finplan_lines_tab(j).attribute3 := FND_API.G_MISS_CHAR;
12333: ELSE
12334: l_finplan_lines_tab(j).attribute3 := l_budget_line_in_rec.attribute3;
12335: END IF;
12336:
12336:
12337: IF p_budget_lines_in(l_budget_line_index).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12338: l_finplan_lines_tab(j).attribute4 := NULL;
12339: ELSIF(p_budget_lines_in(l_budget_line_index).attribute4 is null) THEN
12340: l_finplan_lines_tab(j).attribute4 := FND_API.G_MISS_CHAR;
12341: ELSE
12342: l_finplan_lines_tab(j).attribute4 := l_budget_line_in_rec.attribute4;
12343: END IF;
12344:
12344:
12345: IF p_budget_lines_in(l_budget_line_index).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12346: l_finplan_lines_tab(j).attribute5 := NULL;
12347: ELSIF(p_budget_lines_in(l_budget_line_index).attribute5 is null) THEN
12348: l_finplan_lines_tab(j).attribute5 := FND_API.G_MISS_CHAR;
12349: ELSE
12350: l_finplan_lines_tab(j).attribute5 := l_budget_line_in_rec.attribute5;
12351: END IF;
12352:
12352:
12353: IF p_budget_lines_in(l_budget_line_index).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12354: l_finplan_lines_tab(j).attribute6 := NULL;
12355: ELSIF(p_budget_lines_in(l_budget_line_index).attribute6 is null) THEN
12356: l_finplan_lines_tab(j).attribute6 := FND_API.G_MISS_CHAR;
12357: ELSE
12358: l_finplan_lines_tab(j).attribute6 := l_budget_line_in_rec.attribute6;
12359: END IF;
12360:
12360:
12361: IF p_budget_lines_in(l_budget_line_index).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12362: l_finplan_lines_tab(j).attribute7 := NULL;
12363: ELSIF(p_budget_lines_in(l_budget_line_index).attribute7 is null) THEN
12364: l_finplan_lines_tab(j).attribute7 := FND_API.G_MISS_CHAR;
12365: ELSE
12366: l_finplan_lines_tab(j).attribute7 := l_budget_line_in_rec.attribute7;
12367: END IF;
12368:
12368:
12369: IF p_budget_lines_in(l_budget_line_index).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12370: l_finplan_lines_tab(j).attribute8 := NULL;
12371: ELSIF(p_budget_lines_in(l_budget_line_index).attribute8 is null) THEN
12372: l_finplan_lines_tab(j).attribute8 := FND_API.G_MISS_CHAR;
12373: ELSE
12374: l_finplan_lines_tab(j).attribute8 := l_budget_line_in_rec.attribute8;
12375: END IF;
12376:
12376:
12377: IF p_budget_lines_in(l_budget_line_index).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12378: l_finplan_lines_tab(j).attribute9 := NULL;
12379: ELSIF(p_budget_lines_in(l_budget_line_index).attribute9 is null) THEN
12380: l_finplan_lines_tab(j).attribute9 := FND_API.G_MISS_CHAR;
12381: ELSE
12382: l_finplan_lines_tab(j).attribute9 := l_budget_line_in_rec.attribute9;
12383: END IF;
12384:
12384:
12385: IF p_budget_lines_in(l_budget_line_index).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12386: l_finplan_lines_tab(j).attribute10 := NULL;
12387: ELSIF(p_budget_lines_in(l_budget_line_index).attribute10 is null) THEN
12388: l_finplan_lines_tab(j).attribute10 := FND_API.G_MISS_CHAR;
12389: ELSE
12390: l_finplan_lines_tab(j).attribute10 := l_budget_line_in_rec.attribute10;
12391: END IF;
12392:
12392:
12393: IF p_budget_lines_in(l_budget_line_index).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12394: l_finplan_lines_tab(j).attribute11 := NULL;
12395: ELSIF(p_budget_lines_in(l_budget_line_index).attribute11 is null) THEN
12396: l_finplan_lines_tab(j).attribute11 := FND_API.G_MISS_CHAR;
12397: ELSE
12398: l_finplan_lines_tab(j).attribute11 := l_budget_line_in_rec.attribute11;
12399: END IF;
12400:
12400:
12401: IF p_budget_lines_in(l_budget_line_index).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12402: l_finplan_lines_tab(j).attribute12 := NULL;
12403: ELSIF(p_budget_lines_in(l_budget_line_index).attribute12 is null) THEN
12404: l_finplan_lines_tab(j).attribute12 := FND_API.G_MISS_CHAR;
12405: ELSE
12406: l_finplan_lines_tab(j).attribute12 := l_budget_line_in_rec.attribute12;
12407: END IF;
12408:
12408:
12409: IF p_budget_lines_in(l_budget_line_index).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12410: l_finplan_lines_tab(j).attribute13 := NULL;
12411: ELSIF(p_budget_lines_in(l_budget_line_index).attribute13 is null) THEN
12412: l_finplan_lines_tab(j).attribute13 := FND_API.G_MISS_CHAR;
12413: ELSE
12414: l_finplan_lines_tab(j).attribute13 := l_budget_line_in_rec.attribute13;
12415: END IF;
12416:
12416:
12417: IF p_budget_lines_in(l_budget_line_index).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12418: l_finplan_lines_tab(j).attribute14 := NULL;
12419: ELSIF(p_budget_lines_in(l_budget_line_index).attribute14 is null) THEN
12420: l_finplan_lines_tab(j).attribute14 := FND_API.G_MISS_CHAR;
12421: ELSE
12422: l_finplan_lines_tab(j).attribute14 := l_budget_line_in_rec.attribute14;
12423: END IF;
12424:
12424:
12425: IF p_budget_lines_in(l_budget_line_index).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12426: l_finplan_lines_tab(j).attribute15 := NULL;
12427: ELSIF(p_budget_lines_in(l_budget_line_index).attribute15 is null) THEN
12428: l_finplan_lines_tab(j).attribute15 := FND_API.G_MISS_CHAR;
12429: ELSE
12430: l_finplan_lines_tab(j).attribute15 := l_budget_line_in_rec.attribute15;
12431: END IF;
12432:
12432:
12433: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_type =PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12434: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := NULL;
12435: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_type is null) THEN
12436: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12437: ELSE
12438: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := l_budget_line_in_rec.projfunc_cost_rate_type;
12439: END IF;
12440:
12440:
12441: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12442: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := NULL;
12443: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date_type is null) THEN
12444: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12445: ELSE
12446: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE :=l_budget_line_in_rec.projfunc_cost_rate_date_type;
12447: END IF;
12448:
12448:
12449: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12450: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := NULL;
12451: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date is null) THEN
12452: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := FND_API.G_MISS_DATE;
12453: ELSE
12454: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := l_budget_line_in_rec.projfunc_cost_rate_date ;
12455: END IF;
12456:
12456:
12457: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12458: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := NULL;
12459: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_exchange_rate is null) THEN
12460: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12461: ELSE
12462: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := l_budget_line_in_rec.projfunc_cost_exchange_rate ;
12463: END IF;
12464:
12464:
12465: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12466: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := NULL;
12467: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_type is null) THEN
12468: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12469: ELSE
12470: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := l_budget_line_in_rec.projfunc_rev_rate_type ;
12471: END IF;
12472:
12472:
12473: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12474: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := NULL;
12475: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date_type is null) THEN
12476: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12477: ELSE
12478: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := l_budget_line_in_rec.projfunc_rev_rate_date_type ;
12479: END IF;
12480:
12480:
12481: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12482: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := NULL;
12483: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date is null) THEN
12484: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := FND_API.G_MISS_DATE;
12485: ELSE
12486: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := l_budget_line_in_rec.projfunc_rev_rate_date;
12487: END IF;
12488:
12488:
12489: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12490: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := NULL;
12491: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_exchange_rate is null) THEN
12492: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12493: ELSE
12494: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := l_budget_line_in_rec.projfunc_rev_exchange_rate ;
12495: END IF;
12496:
12496:
12497: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12498: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := NULL;
12499: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_type is null) THEN
12500: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12501: ELSE
12502: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := l_budget_line_in_rec.project_cost_rate_type;
12503: END IF;
12504:
12504:
12505: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12506: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := NULL;
12507: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_date_type is null) THEN
12508: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12509: ELSE
12510: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := l_budget_line_in_rec.project_cost_rate_date_type ;
12511: END IF;
12512:
12512:
12513: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12514: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := NULL;
12515: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_date is null) THEN
12516: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := FND_API.G_MISS_DATE;
12517: ELSE
12518: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := l_budget_line_in_rec.project_cost_rate_date;
12519: END IF;
12520:
12520:
12521: IF p_budget_lines_in(l_budget_line_index).project_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12522: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := NULL;
12523: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_exchange_rate is null) THEN
12524: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12525: ELSE
12526: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := l_budget_line_in_rec.project_cost_exchange_rate ;
12527: END IF;
12528:
12528:
12529: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12530: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := NULL;
12531: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_type is null) THEN
12532: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12533: ELSE
12534: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := l_budget_line_in_rec.project_rev_rate_type ;
12535: END IF;
12536:
12536:
12537: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12538: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := NULL;
12539: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_date_type is null) THEN
12540: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12541: ELSE
12542: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := l_budget_line_in_rec.project_rev_rate_date_type;
12543: END IF;
12544:
12544:
12545: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12546: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := NULL;
12547: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_date is null) THEN
12548: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := FND_API.G_MISS_DATE;
12549: ELSE
12550: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := l_budget_line_in_rec.project_rev_rate_date ;
12551: END IF;
12552:
12552:
12553: IF p_budget_lines_in(l_budget_line_index).project_rev_exchange_rate =PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12554: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := NULL;
12555: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_exchange_rate is null) THEN
12556: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12557: ELSE
12558: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := l_budget_line_in_rec.project_rev_exchange_rate;
12559: END IF;
12560:
12560:
12561: IF p_budget_lines_in(l_budget_line_index).pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12562: l_finplan_lines_tab(j).pm_product_code := NULL;
12563: ELSIF(p_budget_lines_in(l_budget_line_index).pm_product_code is null) THEN
12564: l_finplan_lines_tab(j).pm_product_code := FND_API.G_MISS_CHAR;
12565: ELSE
12566: l_finplan_lines_tab(j).pm_product_code := l_budget_line_in_rec.pm_product_code ;
12567: END IF;
12568:
12568:
12569: IF p_budget_lines_in(l_budget_line_index).pm_budget_line_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12570: l_finplan_lines_tab(j).pm_budget_line_reference := NULL;
12571: ELSIF(p_budget_lines_in(l_budget_line_index).pm_budget_line_reference is null) THEN
12572: l_finplan_lines_tab(j).pm_budget_line_reference := FND_API.G_MISS_CHAR;
12573: ELSE
12574: l_finplan_lines_tab(j).pm_budget_line_reference := l_budget_line_in_rec.pm_budget_line_reference ;
12575: END IF;
12576:
12613: ,x_msg_data => l_msg_data );
12614:
12615: -- dbms_output.put_line ('after Calling add_finplan_lines ' || l_return_status || ' p_multiple_task_msg ' || p_multiple_task_msg);
12616:
12617: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12618: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12619: IF L_DEBUG_MODE = 'Y' THEN
12620: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12621: END IF;
12638: x_return_status => x_return_status,
12639: x_msg_count => l_msg_count,
12640: x_msg_data => l_msg_data) ;
12641:
12642: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12643:
12644: IF l_debug_mode = 'Y' THEN
12645: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12646: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12672: FND_MESSAGE.SET_TOKEN('Rname',l_resource_name);
12673:
12674: FND_MSG_PUB.add;
12675: END IF;
12676: RAISE FND_API.G_EXC_ERROR;
12677: ELSIF l_err_code < 0 THEN
12678: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12679: FND_MSG_PUB.add_exc_msg
12680: ( p_pkg_name => 'PA_BUDGET_LINES_V_PKG'
12680: ( p_pkg_name => 'PA_BUDGET_LINES_V_PKG'
12681: , p_procedure_name => 'CHECK_OVERLAPPING_DATES'
12682: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
12683: END IF;
12684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12685: END IF;
12686:
12687:
12688: PA_BUDGET_UTILS.summerize_project_totals( x_budget_version_id => l_budget_version_id
12715: ,p_attribute4 => ''
12716: ,p_attribute5 => to_char(l_budget_start_date));
12717: END IF;
12718: END IF;
12719: RAISE FND_API.G_EXC_ERROR;
12720: ELSIF l_err_code < 0 THEN
12721: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12722: FND_MSG_PUB.add_exc_msg
12723: ( p_pkg_name => 'PA_BUDGET_UTILS'
12724: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
12725: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
12726:
12727: END IF;
12728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12729: END IF; -- l_err_code > 0
12730: END IF; -- l_budget_type_code IS NOT NULL
12731:
12732: END IF; --if there are budget lines
12730: END IF; -- l_budget_type_code IS NOT NULL
12731:
12732: END IF; --if there are budget lines
12733:
12734: IF FND_API.TO_BOOLEAN( p_commit ) THEN
12735: COMMIT;
12736: END IF;
12737:
12738:
12742: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || FND_MSG_PUB.count_msg);
12743: ROLLBACK TO update_budget_pub;
12744:
12745: IF p_return_status IS NULL OR
12746: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
12747: p_return_status := FND_API.G_RET_STS_ERROR;
12748: END IF;
12749:
12750: l_msg_count := FND_MSG_PUB.count_msg;
12743: ROLLBACK TO update_budget_pub;
12744:
12745: IF p_return_status IS NULL OR
12746: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
12747: p_return_status := FND_API.G_RET_STS_ERROR;
12748: END IF;
12749:
12750: l_msg_count := FND_MSG_PUB.count_msg;
12751: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12751: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12752:
12753: IF l_msg_count = 1 AND p_msg_data IS NULL THEN
12754: PA_INTERFACE_UTILS_PUB.get_messages
12755: (p_encoded => FND_API.G_TRUE,
12756: p_msg_index => 1,
12757: p_msg_count => l_msg_count,
12758: p_msg_data => l_msg_data,
12759: p_data => l_data,
12771: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12772:
12773: RETURN;
12774:
12775: WHEN FND_API.G_EXC_ERROR
12776: THEN
12777:
12778:
12779: ROLLBACK TO update_budget_pub;
12777:
12778:
12779: ROLLBACK TO update_budget_pub;
12780:
12781: p_return_status := FND_API.G_RET_STS_ERROR;
12782:
12783: FND_MSG_PUB.Count_And_Get
12784: ( p_count => p_msg_count ,
12785: p_data => p_msg_data );
12783: FND_MSG_PUB.Count_And_Get
12784: ( p_count => p_msg_count ,
12785: p_data => p_msg_data );
12786:
12787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12788: THEN
12789:
12790:
12791: ROLLBACK TO update_budget_pub;
12789:
12790:
12791: ROLLBACK TO update_budget_pub;
12792:
12793: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12794:
12795: FND_MSG_PUB.Count_And_Get
12796: ( p_count => p_msg_count ,
12797: p_data => p_msg_data );
12799: WHEN ROW_ALREADY_LOCKED
12800: THEN
12801: ROLLBACK TO update_budget_pub;
12802:
12803: p_return_status := FND_API.G_RET_STS_ERROR;
12804:
12805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12806: THEN
12807: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
12825:
12826:
12827: ROLLBACK TO update_budget_pub;
12828:
12829: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12830:
12831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12832: THEN
12833: FND_MSG_PUB.add_exc_msg
12860: --
12861:
12862: PROCEDURE execute_update_budget
12863: ( p_api_version_number IN NUMBER
12864: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12865: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12866: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12867: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12868: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12861:
12862: PROCEDURE execute_update_budget
12863: ( p_api_version_number IN NUMBER
12864: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12865: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12866: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12867: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12868: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12869: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
12931: SAVEPOINT execute_update_budget_pub;
12932:
12933: -- Standard call to check for call compatibility.
12934:
12935: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
12936: p_api_version_number ,
12937: l_api_name ,
12938: G_PKG_NAME )
12939: THEN
12937: l_api_name ,
12938: G_PKG_NAME )
12939: THEN
12940:
12941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12942:
12943: END IF;
12944:
12945: -- Initialize the message table if requested.
12943: END IF;
12944:
12945: -- Initialize the message table if requested.
12946:
12947: IF FND_API.TO_BOOLEAN( p_init_msg_list )
12948: THEN
12949:
12950: FND_MSG_PUB.initialize;
12951:
12952: END IF;
12953:
12954: -- Set API return status to success
12955:
12956: p_return_status := FND_API.G_RET_STS_SUCCESS;
12957:
12958:
12959: -- product_code is mandatory
12960:
12974: ,p_attribute4 => ''
12975: ,p_attribute5 => '');
12976: END IF;
12977:
12978: RAISE FND_API.G_EXC_ERROR;
12979:
12980: END IF;
12981:
12982: l_pm_product_code :='Z';
12999: ,p_attribute3 => ''
13000: ,p_attribute4 => ''
13001: ,p_attribute5 => '');
13002: END IF;
13003: p_return_status := FND_API.G_RET_STS_ERROR;
13004: RAISE FND_API.G_EXC_ERROR;
13005: END IF;
13006:
13007:
13000: ,p_attribute4 => ''
13001: ,p_attribute5 => '');
13002: END IF;
13003: p_return_status := FND_API.G_RET_STS_ERROR;
13004: RAISE FND_API.G_EXC_ERROR;
13005: END IF;
13006:
13007:
13008: /* -- dbms_output.put_line('Before update_budget'); */
13007:
13008: /* -- dbms_output.put_line('Before update_budget'); */
13009:
13010: update_budget( p_api_version_number => p_api_version_number
13011: ,p_commit => FND_API.G_FALSE
13012: ,p_init_msg_list => FND_API.G_FALSE
13013: ,p_msg_count => p_msg_count
13014: ,p_msg_data => p_msg_data
13015: ,p_return_status => l_return_status
13008: /* -- dbms_output.put_line('Before update_budget'); */
13009:
13010: update_budget( p_api_version_number => p_api_version_number
13011: ,p_commit => FND_API.G_FALSE
13012: ,p_init_msg_list => FND_API.G_FALSE
13013: ,p_msg_count => p_msg_count
13014: ,p_msg_data => p_msg_data
13015: ,p_return_status => l_return_status
13016: ,p_pm_product_code => p_pm_product_code
13051: /* -- dbms_output.put_line('After update_budget'); */
13052:
13053: /* -- dbms_output.put_line('Return status update_budget: '||l_return_status); */
13054:
13055: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13056: THEN
13057:
13058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13059:
13054:
13055: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13056: THEN
13057:
13058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13059:
13060: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13061: THEN
13062:
13056: THEN
13057:
13058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13059:
13060: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13061: THEN
13062:
13063: RAISE FND_API.G_EXC_ERROR;
13064: END IF;
13059:
13060: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13061: THEN
13062:
13063: RAISE FND_API.G_EXC_ERROR;
13064: END IF;
13065:
13066: IF fnd_api.to_boolean(p_commit)
13067: THEN
13062:
13063: RAISE FND_API.G_EXC_ERROR;
13064: END IF;
13065:
13066: IF fnd_api.to_boolean(p_commit)
13067: THEN
13068: COMMIT;
13069: END IF;
13070:
13070:
13071:
13072: EXCEPTION
13073:
13074: WHEN FND_API.G_EXC_ERROR
13075: THEN
13076:
13077: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in execute_update_budget'); */
13078:
13077: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in execute_update_budget'); */
13078:
13079: ROLLBACK TO execute_update_budget_pub;
13080:
13081: p_return_status := FND_API.G_RET_STS_ERROR;
13082:
13083: FND_MSG_PUB.Count_And_Get
13084: ( p_count => p_msg_count ,
13085: p_data => p_msg_data );
13083: FND_MSG_PUB.Count_And_Get
13084: ( p_count => p_msg_count ,
13085: p_data => p_msg_data );
13086:
13087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
13088: THEN
13089:
13090: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
13091:
13090: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
13091:
13092: ROLLBACK TO execute_update_budget_pub;
13093:
13094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13095:
13096: FND_MSG_PUB.Count_And_Get
13097: ( p_count => p_msg_count ,
13098: p_data => p_msg_data );
13102: /* -- dbms_output.put_line('handling an OTHERS exception in execute_update_budget'); */
13103:
13104: ROLLBACK TO execute_update_budget_pub;
13105:
13106: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13107:
13108: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13109: THEN
13110: FND_MSG_PUB.add_exc_msg
13138: -- 11-MAY-2005 Ritesh Shukla Bug 4224464: FP.M Changes for update_budget_line
13139:
13140: PROCEDURE update_budget_line
13141: ( p_api_version_number IN NUMBER
13142: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13144: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
13145: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
13146: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
13139:
13140: PROCEDURE update_budget_line
13141: ( p_api_version_number IN NUMBER
13142: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13144: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
13145: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
13146: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
13147: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13319: --Standard begin of API savepoint
13320: SAVEPOINT update_budget_line_pub;
13321:
13322: p_msg_count := 0;
13323: p_return_status := FND_API.G_RET_STS_SUCCESS;
13324: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13325: l_module_name := g_module_name || ':Update_Budget_Line ';
13326:
13327: IF ( l_debug_mode = 'Y' )
13336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13337: END IF;
13338:
13339: --Initialize the message table if requested.
13340: IF FND_API.TO_BOOLEAN( p_init_msg_list )
13341: THEN
13342: FND_MSG_PUB.initialize;
13343: END IF;
13344:
13342: FND_MSG_PUB.initialize;
13343: END IF;
13344:
13345: --Set API return status to success
13346: p_return_status := FND_API.G_RET_STS_SUCCESS;
13347:
13348: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13349: --header level validations
13350: PA_BUDGET_PVT.validate_header_info
13385: ,x_msg_count => p_msg_count
13386: ,x_msg_data => p_msg_data
13387: ,x_return_status => p_return_status );
13388:
13389: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13390: IF(l_debug_mode='Y') THEN
13391: pa_debug.g_err_stage := 'validate header info API falied';
13392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13393: END IF;
13720: ,x_message_count => p_msg_count
13721: ,x_return_status => p_return_status
13722: ,x_message_data => p_msg_data) ;
13723:
13724: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13725: THEN
13726: IF(l_debug_mode='Y') THEN
13727: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13783: ,x_msg_count => p_msg_count
13784: ,x_msg_data => p_msg_data
13785: ,x_return_status => p_return_status );
13786:
13787: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13788: IF(l_debug_mode='Y') THEN
13789: pa_debug.g_err_stage := 'validate budget lines API falied';
13790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13791: END IF;
13823: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13824: END IF;
13825:
13826: CLOSE l_resource_assignment_csr;
13827: RAISE FND_API.G_EXC_ERROR;
13828: END IF; --l_resource_assignment_csr%NOTFOUND
13829:
13830: CLOSE l_resource_assignment_csr;
13831:
13860: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13861: END IF;
13862:
13863: CLOSE l_budget_line_csr;
13864: RAISE FND_API.G_EXC_ERROR;
13865: END IF;--l_budget_line_csr%NOTFOUND
13866:
13867: CLOSE l_budget_line_csr;
13868:
13905: ,p_attribute14 => PA_TASK_ASSIGNMENTS_PVT.pfchar(p_attribute14)
13906: ,p_attribute15 => PA_TASK_ASSIGNMENTS_PVT.pfchar(p_attribute15)
13907: );
13908:
13909: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13910: THEN
13911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13912: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13913: THEN
13907: );
13908:
13909: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13910: THEN
13911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13912: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13913: THEN
13914: RAISE FND_API.G_EXC_ERROR;
13915: END IF;
13908:
13909: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13910: THEN
13911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13912: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13913: THEN
13914: RAISE FND_API.G_EXC_ERROR;
13915: END IF;
13916:
13910: THEN
13911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13912: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13913: THEN
13914: RAISE FND_API.G_EXC_ERROR;
13915: END IF;
13916:
13917: --summarizing the totals in the table pa_budget_versions
13918: PA_BUDGET_UTILS.summerize_project_totals
13955: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13956: END IF;
13957: END IF;--FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13958:
13959: RAISE FND_API.G_EXC_ERROR;
13960:
13961: ELSIF l_err_code < 0
13962: THEN
13963:
13973: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
13974: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
13975: END IF;
13976:
13977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13978:
13979: END IF;--l_err_code > 0
13980:
13981:
13983:
13984:
13985: --Copy the fin plan line data into a table of type pa_fp_rollup_tmp
13986: --If an attribute should not be updated then pass it as null, and
13987: --if an attribute should be updated to null then pass it as FND_API.G_MISS_XXX
13988:
13989: l_finplan_lines_tab(1).system_reference1 := l_budget_lines_in(1).pa_task_id;
13990: l_finplan_lines_tab(1).system_reference2 := l_budget_lines_in(1).resource_list_member_id;
13991: l_finplan_lines_tab(1).system_reference3 := l_budget_lines_in(1).cbs_element_id;-- Added for CBS 16604257
14049: l_finplan_lines_tab(1).project_rev_rate_date_type := to_char(NULL);
14050: l_finplan_lines_tab(1).project_rev_rate_date := to_date(NULL);
14051: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
14052: ELSE
14053: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14050: l_finplan_lines_tab(1).project_rev_rate_date := to_date(NULL);
14051: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
14052: ELSE
14053: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14051: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
14052: ELSE
14053: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14052: ELSE
14053: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14053: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14054: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14055: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14056: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14057: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14058: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14059: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14060: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14068: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
14061: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14068: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
14069: END IF;
14062: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14068: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
14069: END IF;
14070:
14063: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14068: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
14069: END IF;
14070:
14071: l_finplan_lines_tab(1).pm_product_code := l_budget_lines_in(1).pm_product_code;
14064: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
14065: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
14066: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
14067: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
14068: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
14069: END IF;
14070:
14071: l_finplan_lines_tab(1).pm_product_code := l_budget_lines_in(1).pm_product_code;
14072: l_finplan_lines_tab(1).quantity_source := 'I';
14090: ,x_return_status => p_return_status
14091: ,x_msg_count => p_msg_count
14092: ,x_msg_data => p_msg_data);
14093:
14094: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14095: -- Error message is not added here as the api lock_unlock_version
14096: -- adds the message to stack
14097: IF(l_debug_mode='Y') THEN
14098: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
14097: IF(l_debug_mode='Y') THEN
14098: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
14099: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14100: END IF;
14101: RAISE FND_API.G_EXC_ERROR;
14102: END IF;
14103:
14104: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of updating
14105: --budget lines data in all relevant tables.
14110: ,x_return_status => p_return_status
14111: ,x_msg_count => p_msg_count
14112: ,x_msg_data => p_msg_data );
14113:
14114: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
14115: THEN
14116: IF(l_debug_mode='Y') THEN
14117: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
14118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
14116: IF(l_debug_mode='Y') THEN
14117: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
14118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
14119: END IF;
14120: RAISE FND_API.G_EXC_ERROR;
14121: END IF;
14122:
14123:
14124: --unlock the budget version after updating the budget line
14134: ,x_return_status => p_return_status
14135: ,x_msg_count => p_msg_count
14136: ,x_msg_data => p_msg_data);
14137:
14138: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14139: -- Error message is not added here as the api lock_unlock_version
14140: -- adds the message to stack
14141: IF(l_debug_mode='Y') THEN
14142: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
14141: IF(l_debug_mode='Y') THEN
14142: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
14143: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14144: END IF;
14145: RAISE FND_API.G_EXC_ERROR;
14146: END IF;
14147:
14148:
14149: END IF;--end of code to update budget line
14148:
14149: END IF;--end of code to update budget line
14150:
14151:
14152: IF FND_API.TO_BOOLEAN( p_commit )
14153: THEN
14154: COMMIT;
14155: END IF;
14156:
14170: THEN
14171:
14172: ROLLBACK TO update_budget_line_pub;
14173:
14174: p_return_status := FND_API.G_RET_STS_ERROR;
14175: l_msg_count := FND_MSG_PUB.count_msg;
14176:
14177: IF l_msg_count = 1 and p_msg_data IS NULL THEN
14178: PA_INTERFACE_UTILS_PUB.get_messages
14175: l_msg_count := FND_MSG_PUB.count_msg;
14176:
14177: IF l_msg_count = 1 and p_msg_data IS NULL THEN
14178: PA_INTERFACE_UTILS_PUB.get_messages
14179: (p_encoded => FND_API.G_TRUE
14180: ,p_msg_index => 1
14181: ,p_msg_count => l_msg_count
14182: ,p_msg_data => l_msg_data
14183: ,p_data => l_data
14194:
14195: RETURN;
14196:
14197:
14198: WHEN FND_API.G_EXC_ERROR
14199: THEN
14200:
14201: ROLLBACK TO update_budget_line_pub;
14202:
14199: THEN
14200:
14201: ROLLBACK TO update_budget_line_pub;
14202:
14203: p_return_status := FND_API.G_RET_STS_ERROR;
14204:
14205: FND_MSG_PUB.count_and_get
14206: ( p_count => p_msg_count ,
14207: p_data => p_msg_data );
14210: pa_debug.reset_curr_function;
14211: END IF;
14212:
14213:
14214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
14215: THEN
14216:
14217: ROLLBACK TO update_budget_line_pub;
14218:
14215: THEN
14216:
14217: ROLLBACK TO update_budget_line_pub;
14218:
14219: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14220:
14221: FND_MSG_PUB.count_and_get
14222: ( p_count => p_msg_count ,
14223: p_data => p_msg_data );
14231: THEN
14232:
14233: ROLLBACK TO update_budget_line_pub;
14234:
14235: p_return_status := FND_API.G_RET_STS_ERROR;
14236:
14237: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14238: THEN
14239: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
14259: THEN
14260:
14261: ROLLBACK TO update_budget_line_pub;
14262:
14263: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14264:
14265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14266: THEN
14267: FND_MSG_PUB.add_exc_msg
14307: -- for the set-of-books.
14308: --
14309: PROCEDURE Calculate_Amounts
14310: ( p_api_version_number IN NUMBER
14311: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14312: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14313: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14314: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14315: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14308: --
14309: PROCEDURE Calculate_Amounts
14310: ( p_api_version_number IN NUMBER
14311: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14312: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14313: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14314: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14315: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14316: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14627: SAVEPOINT calculate_amounts_pub;
14628:
14629: -- Standard call to check for call compatibility.
14630:
14631: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
14632: p_api_version_number ,
14633: l_api_name ,
14634: G_PKG_NAME )
14635: THEN
14633: l_api_name ,
14634: G_PKG_NAME )
14635: THEN
14636:
14637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14638:
14639: END IF;
14640: --product_code is mandatory
14641:
14655: ,p_attribute4 => ''
14656: ,p_attribute5 => '');
14657: END IF;
14658:
14659: RAISE FND_API.G_EXC_ERROR;
14660:
14661: END IF;
14662:
14663: l_pm_product_code :='Z';
14680: ,p_attribute3 => ''
14681: ,p_attribute4 => ''
14682: ,p_attribute5 => '');
14683: END IF;
14684: p_return_status := FND_API.G_RET_STS_ERROR;
14685: RAISE FND_API.G_EXC_ERROR;
14686: END IF;
14687:
14688: l_resp_id := FND_GLOBAL.Resp_id;
14681: ,p_attribute4 => ''
14682: ,p_attribute5 => '');
14683: END IF;
14684: p_return_status := FND_API.G_RET_STS_ERROR;
14685: RAISE FND_API.G_EXC_ERROR;
14686: END IF;
14687:
14688: l_resp_id := FND_GLOBAL.Resp_id;
14689: l_user_id := FND_GLOBAL.User_id;
14723: p_msg_data => l_msg_data,
14724: p_return_status => l_return_status,
14725: p_function_allowed => l_function_allowed );
14726:
14727: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14728: THEN
14729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14730:
14731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14725: p_function_allowed => l_function_allowed );
14726:
14727: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14728: THEN
14729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14730:
14731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14732: THEN
14733: RAISE FND_API.G_EXC_ERROR;
14727: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14728: THEN
14729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14730:
14731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14732: THEN
14733: RAISE FND_API.G_EXC_ERROR;
14734: END IF;
14735: IF l_function_allowed = 'N' THEN
14729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14730:
14731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14732: THEN
14733: RAISE FND_API.G_EXC_ERROR;
14734: END IF;
14735: IF l_function_allowed = 'N' THEN
14736: pa_interface_utils_pub.map_new_amg_msg
14737: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
14742: ,p_attribute2 => ''
14743: ,p_attribute3 => ''
14744: ,p_attribute4 => ''
14745: ,p_attribute5 => '');
14746: p_return_status := FND_API.G_RET_STS_ERROR;
14747: RAISE FND_API.G_EXC_ERROR;
14748: END IF;
14749: END IF;
14750: */
14743: ,p_attribute3 => ''
14744: ,p_attribute4 => ''
14745: ,p_attribute5 => '');
14746: p_return_status := FND_API.G_RET_STS_ERROR;
14747: RAISE FND_API.G_EXC_ERROR;
14748: END IF;
14749: END IF;
14750: */
14751: -- Initialize the message table if requested.
14749: END IF;
14750: */
14751: -- Initialize the message table if requested.
14752:
14753: IF FND_API.TO_BOOLEAN( p_init_msg_list )
14754: THEN
14755:
14756: FND_MSG_PUB.initialize;
14757:
14758: END IF;
14759:
14760: -- Set API return status to success
14761:
14762: p_return_status := FND_API.G_RET_STS_SUCCESS;
14763:
14764:
14765: --CHECK FOR MANDATORY FIELDS and CONVERT VALUES to ID's
14766:
14773: p_pa_project_id => p_pa_project_id,
14774: p_out_project_id => l_project_id,
14775: p_return_status => p_return_status );
14776:
14777: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14778: THEN
14779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14780:
14781: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14775: p_return_status => p_return_status );
14776:
14777: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14778: THEN
14779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14780:
14781: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14782: THEN
14783: RAISE FND_API.G_EXC_ERROR;
14777: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14778: THEN
14779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14780:
14781: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14782: THEN
14783: RAISE FND_API.G_EXC_ERROR;
14784: END IF;
14785:
14779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14780:
14781: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14782: THEN
14783: RAISE FND_API.G_EXC_ERROR;
14784: END IF;
14785:
14786: -- Commenting out the code below as all the security checks are shifted to a common API
14787: /*
14805: ,p_attribute2 => ''
14806: ,p_attribute3 => ''
14807: ,p_attribute4 => ''
14808: ,p_attribute5 => '');
14809: p_return_status := FND_API.G_RET_STS_ERROR;
14810: RAISE FND_API.G_EXC_ERROR;
14811: ELSE
14812: -- If the user has query privileges, then check whether
14813: -- update privileges are also available
14806: ,p_attribute3 => ''
14807: ,p_attribute4 => ''
14808: ,p_attribute5 => '');
14809: p_return_status := FND_API.G_RET_STS_ERROR;
14810: RAISE FND_API.G_EXC_ERROR;
14811: ELSE
14812: -- If the user has query privileges, then check whether
14813: -- update privileges are also available
14814: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
14824: ,p_attribute2 => ''
14825: ,p_attribute3 => ''
14826: ,p_attribute4 => ''
14827: ,p_attribute5 => '');
14828: p_return_status := FND_API.G_RET_STS_ERROR;
14829: RAISE FND_API.G_EXC_ERROR;
14830: END IF;
14831: END IF;
14832: END IF;
14825: ,p_attribute3 => ''
14826: ,p_attribute4 => ''
14827: ,p_attribute5 => '');
14828: p_return_status := FND_API.G_RET_STS_ERROR;
14829: RAISE FND_API.G_EXC_ERROR;
14830: END IF;
14831: END IF;
14832: END IF;
14833: */
14852: ,x_return_status => l_return_status
14853: ,x_msg_count => l_msg_count
14854: ,x_msg_data => l_msg_data);
14855:
14856: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14857: RAISE FND_API.G_EXC_ERROR;
14858: END IF;
14859:
14860: -- In budget model intialise txn currency code to PFC
14853: ,x_msg_count => l_msg_count
14854: ,x_msg_data => l_msg_data);
14855:
14856: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14857: RAISE FND_API.G_EXC_ERROR;
14858: END IF;
14859:
14860: -- In budget model intialise txn currency code to PFC
14861: IF p_budget_type_code IS NOT NULL AND
14905: IF l_debug_mode = 'Y' THEN
14906: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14907: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14908: END IF;
14909: RAISE FND_API.G_EXC_ERROR;
14910: END IF;
14911:
14912: -- Both Budget Type Info and Fin Plan Type info shouldn't be provided
14913:
14922: IF l_debug_mode = 'Y' THEN
14923: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14924: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14925: END IF;
14926: RAISE FND_API.G_EXC_ERROR;
14927: END IF;
14928:
14929: -- get the person_id: used for locking checks
14930: PA_COMP_PROFILE_PUB.GET_USER_INFO
14954: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14955: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14956: END IF;
14957: CLOSE budget_version_info_cur;
14958: RAISE FND_API.G_EXC_ERROR;
14959:
14960: ELSE
14961: -- Check if the budget belongs to the same project
14962:
14970: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14971: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14972: END IF;
14973: CLOSE budget_version_info_cur;
14974: RAISE FND_API.G_EXC_ERROR;
14975: END IF;
14976:
14977: -- The i/p budget version should be a working verion.
14978:
14986: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14987: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14988: END IF;
14989: CLOSE budget_version_info_cur;
14990: RAISE FND_API.G_EXC_ERROR;
14991: END IF;
14992:
14993: -- If the budget version is a control item version throw error
14994:
15002: pa_debug.g_err_stage := 'i/p version is ci version' ;
15003: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15004: END IF;
15005: CLOSE budget_version_info_cur;
15006: RAISE FND_API.G_EXC_ERROR;
15007: END IF;
15008: END IF;
15009:
15010:
15033: IF l_debug_mode = 'Y' THEN
15034: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15035: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15036: END IF;
15037: RAISE FND_API.G_EXC_ERROR;
15038: END IF;
15039: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
15040:
15041: IF l_workplan_flag = 'Y' THEN
15047:
15048: PA_UTILS.ADD_MESSAGE
15049: (p_app_short_name => 'PA',
15050: p_msg_name => 'PA_FP_WP_BV_NOT_ALLOWED');
15051: RAISE FND_API.G_EXC_ERROR;
15052: END IF;
15053:
15054: -- version locked by process
15055: IF ( ( nvl( budget_version_info_rec.locked_by_person_id,0) = -98)
15057: PA_UTILS.ADD_MESSAGE
15058: ( p_app_short_name => 'PA',
15059: p_msg_name => 'PA_FP_LOCKED_BY_PRC');
15060: CLOSE budget_version_info_cur;
15061: RAISE FND_API.G_EXC_ERROR;
15062: END IF;
15063:
15064: -- version locked by another user
15065: IF (budget_version_info_rec.locked_by_person_id is not null) then
15072: p_msg_name => 'PA_FP_LCK_BY_USER',
15073: p_token1 => 'PERSON_NAME',
15074: p_value1 => l_locked_by_name);
15075: CLOSE budget_version_info_cur;
15076: RAISE FND_API.G_EXC_ERROR;
15077: END IF;
15078: END IF;
15079: -- Get the status of the current working version. If the status is submitted then
15080: -- it can not be updated/deleted
15086: PA_UTILS.ADD_MESSAGE
15087: ( p_app_short_name => 'PA',
15088: p_msg_name => 'PA_FP_VER_SUB_STS');
15089: CLOSE budget_version_info_cur;
15090: RAISE FND_API.G_EXC_ERROR;
15091: END IF;
15092:
15093: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
15094:
15106: ,X_msg_data => p_msg_data);
15107:
15108: -- Throw the error if the above API is not successfully executed
15109:
15110: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15111:
15112: IF l_debug_mode = 'Y' THEN
15113: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15114: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15113: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15114: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15115: END IF;
15116:
15117: RAISE FND_API.G_EXC_ERROR;
15118: END IF;
15119:
15120: --Check for l_editable_flag. If it returns N, then raise PA_FP_PLAN_TYPE_NON_EDITABLE.
15121:
15133: p_value1 => l_amg_project_rec.segment1,
15134: p_token2 => 'PLAN_TYPE',
15135: p_value2 => l_fin_plan_type_name);
15136:
15137: RAISE FND_API.G_EXC_ERROR;
15138: END IF;
15139: END IF;
15140:
15141: ELSE
15177: ,x_msg_data => p_msg_data);
15178:
15179: -- Throw the error if the above API is not successfully executed
15180:
15181: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15182:
15183: IF l_debug_mode = 'Y' THEN
15184: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
15185: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15183: IF l_debug_mode = 'Y' THEN
15184: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
15185: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15186: END IF;
15187: RAISE FND_API.G_EXC_ERROR;
15188: END IF;
15189:
15190: -- Now, we have a valid fin plan type id
15191: -- Check if the fin plan type code is 'ORG_FORECAST' if so throw an error
15212: IF l_debug_mode = 'Y' THEN
15213: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15214: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15215: END IF;
15216: RAISE FND_API.G_EXC_ERROR;
15217: END IF;
15218: EXCEPTION
15219: WHEN OTHERS THEN
15220: IF l_debug_mode = 'Y' THEN
15220: IF l_debug_mode = 'Y' THEN
15221: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
15222: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15223: END IF;
15224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15225: END;
15226:
15227: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
15228:
15235:
15236: PA_UTILS.ADD_MESSAGE
15237: (p_app_short_name => 'PA',
15238: p_msg_name => 'PA_FP_WP_BV_NOT_ALLOWED');
15239: RAISE FND_API.G_EXC_ERROR;
15240: END IF;
15241: --bug #3636409. Validation for workplan versions ends here.
15242:
15243: -- Bug 2863564 Check if the plan type has been attached to the project or not.
15260: pa_debug.g_err_stage := 'plan type not attached to project' ;
15261: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15262: END IF;
15263: CLOSE proj_fp_options_cur;
15264: RAISE FND_API.G_EXC_ERROR;
15265: END IF;
15266:
15267: CLOSE proj_fp_options_cur;
15268:
15288: ,x_return_status => p_return_status
15289: ,x_msg_count => p_msg_count
15290: ,x_msg_data => p_msg_data);
15291:
15292: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15293: IF l_debug_mode = 'Y' THEN
15294: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15295: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15296: END IF;
15293: IF l_debug_mode = 'Y' THEN
15294: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15295: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15296: END IF;
15297: RAISE FND_API.G_EXC_ERROR;
15298: END IF;
15299:
15300: --bug #3636409. Validation for allow_edit_after_baseline_flag starts here.
15301: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15312: ,X_msg_data => p_msg_data);
15313:
15314: -- Throw the error if the above API is not successfully executed
15315:
15316: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15317:
15318: IF l_debug_mode = 'Y' THEN
15319: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15320: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15319: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15320: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15321: END IF;
15322:
15323: RAISE FND_API.G_EXC_ERROR;
15324: END IF;
15325:
15326: --Check for l_editable_flag. If it returns N, then raise PA_FP_PLAN_TYPE_NON_EDITABLE.
15327:
15339: p_value1 => l_amg_project_rec.segment1,
15340: p_token2 => 'PLAN_TYPE',
15341: p_value2 => l_fin_plan_type_name);
15342:
15343: RAISE FND_API.G_EXC_ERROR;
15344: END IF;
15345: END IF;
15346: --bug #3636409. Validation for allow_edit_after_baseline_flag ends here.
15347:
15363: ,x_return_status => p_return_status
15364: ,x_msg_count => p_msg_count
15365: ,x_msg_data => p_msg_data );
15366:
15367: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15368: IF l_debug_mode = 'Y' THEN
15369: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15370: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15371: END IF;
15368: IF l_debug_mode = 'Y' THEN
15369: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15370: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15371: END IF;
15372: RAISE FND_API.G_EXC_ERROR;
15373: END IF;
15374:
15375: -- If the budget version is a control item version throw error
15376:
15384: IF l_debug_mode = 'Y' THEN
15385: pa_debug.g_err_stage := 'i/p version is ci version' ;
15386: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15387: END IF;
15388: RAISE FND_API.G_EXC_ERROR;
15389: END IF;
15390: ELSE
15391: -- Fetch the current working version for the project, finplan type and verion type
15392:
15399: ,x_return_status => p_return_status
15400: ,x_msg_count => p_msg_count
15401: ,x_msg_data => p_msg_data );
15402:
15403: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15404: IF l_debug_mode = 'Y' THEN
15405: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15406: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15407: END IF;
15404: IF l_debug_mode = 'Y' THEN
15405: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15406: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15407: END IF;
15408: RAISE FND_API.G_EXC_ERROR;
15409: END IF;
15410:
15411: END IF;
15412:
15430: IF l_debug_mode = 'Y' THEN
15431: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15432: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15433: END IF;
15434: RAISE FND_API.G_EXC_ERROR;
15435: Else
15436: -- Fetch budget version info
15437: OPEN budget_version_info_cur(l_budget_version_id);
15438: FETCH budget_version_info_cur INTO budget_version_info_rec;
15444: ( p_app_short_name => 'PA',
15445: p_msg_name => 'PA_FP_LOCKED_BY_PRC');
15446:
15447: CLOSE budget_version_info_cur;
15448: RAISE FND_API.G_EXC_ERROR;
15449: END IF;
15450:
15451: -- version locked by another user
15452: IF (budget_version_info_rec.locked_by_person_id is not null) then
15458: p_msg_name => 'PA_FP_LCK_BY_USER',
15459: p_token1 => 'PERSON_NAME',
15460: p_value1 => l_locked_by_name);
15461: CLOSE budget_version_info_cur;
15462: RAISE FND_API.G_EXC_ERROR;
15463: END IF;
15464: END IF;
15465:
15466: -- Get the status of the current working version. If the status is submitted then
15473: PA_UTILS.ADD_MESSAGE
15474: ( p_app_short_name => 'PA',
15475: p_msg_name => 'PA_FP_VER_SUB_STS');
15476: CLOSE budget_version_info_cur;
15477: RAISE FND_API.G_EXC_ERROR;
15478: END IF;
15479:
15480: IF budget_version_info_rec.plan_processing_code IN ('XLUE','XLUP') THEN
15481:
15487: ,x_return_status => p_return_status
15488: ,x_msg_count => p_msg_count
15489: ,x_msg_data => p_msg_data);
15490:
15491: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15492: IF l_debug_mode = 'Y' THEN
15493: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15494: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15495: END IF;
15492: IF l_debug_mode = 'Y' THEN
15493: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15494: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15495: END IF;
15496: RAISE FND_API.G_EXC_ERROR;
15497: END IF;
15498:
15499: END IF;
15500:
15528: ,p_attribute3 => p_budget_type_code
15529: ,p_attribute4 => ''
15530: ,p_attribute5 => '');
15531: END IF;
15532: RAISE FND_API.G_EXC_ERROR;
15533: ELSE
15534: */
15535:
15536: -- If the budget_type info is passed, we are in the context of old bugets model
15557: ,p_attribute4 => ''
15558: ,p_attribute5 => '');
15559: END IF;
15560: CLOSE l_budget_type_csr;
15561: RAISE FND_API.G_EXC_ERROR;
15562: END IF;
15563: CLOSE l_budget_type_csr;
15564:
15565: -- fetch the draft version id
15578: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15579: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15580: END IF;
15581: CLOSE draft_version_cur;
15582: RAISE FND_API.G_EXC_ERROR;
15583: ELSE
15584: l_budget_version_id := draft_version_rec.budget_version_id;
15585: END IF;
15586: CLOSE draft_version_cur;
15604: ,x_return_status => p_return_status
15605: ,x_msg_count => p_msg_count
15606: ,x_msg_data => p_msg_data );
15607:
15608: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15609: IF(l_debug_mode='Y') THEN
15610: pa_debug.g_err_stage := 'Auto baseline API falied';
15611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15612: END IF;
15609: IF(l_debug_mode='Y') THEN
15610: pa_debug.g_err_stage := 'Auto baseline API falied';
15611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15612: END IF;
15613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15614: END IF;
15615:
15616: IF l_result = 'F' THEN
15617: IF(l_debug_mode='Y') THEN
15622: p_app_short_name => 'PA'
15623: ,p_msg_name => 'PA_FP_AB_AR_VER_NON_EDITABLE'
15624: ,p_token1 => 'PROJECT'
15625: ,p_value1 => l_amg_project_rec.segment1);
15626: RAISE FND_API.G_EXC_ERROR;
15627: END IF;
15628:
15629: IF l_context = l_context_budget
15630: THEN
15637: ,x_return_status => p_return_status
15638: ,x_msg_count => p_msg_count
15639: ,x_msg_data => p_msg_data );
15640:
15641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15642: IF(l_debug_mode='Y') THEN
15643: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15644: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15645: END IF;
15642: IF(l_debug_mode='Y') THEN
15643: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15644: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15645: END IF;
15646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15647: END IF;
15648: END IF;
15649:
15650: IF p_update_db_flag = 'Y'
15666: -- The above API adds the error message to stack. Hence the message is not added here.
15667: -- Also, as security check is important further validations are not done in case this
15668: -- validation fails.
15669:
15670: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15671:
15672: IF l_debug_mode = 'Y' THEN
15673: pa_debug.g_err_stage:= 'Security API Failed';
15674: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15673: pa_debug.g_err_stage:= 'Security API Failed';
15674: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15675: END IF;
15676:
15677: RAISE FND_API.G_EXC_ERROR;
15678: END IF;
15679: END IF;
15680:
15681: -- Bug 2863564
15697: ,x_return_status => p_return_status
15698: ,x_msg_count => p_msg_count
15699: ,x_msg_data => p_msg_data);
15700:
15701: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15702:
15703: -- Error message is not added here as the api lock_unlock_version
15704: -- adds the message to stack
15705: IF(l_debug_mode='Y') THEN
15706: pa_debug.g_err_stage := 'Failed in locking the version';
15707: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15708: END IF;
15709:
15710: RAISE FND_API.G_EXC_ERROR;
15711: END IF;
15712:
15713: END IF;
15714:
15761: , x_msg_count => p_msg_count
15762: );
15763:
15764: -- calling api above adds the error message to stack hence not adding the error message here.
15765: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15766: THEN
15767: IF l_debug_mode = 'Y' THEN
15768: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15767: IF l_debug_mode = 'Y' THEN
15768: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15770: END IF;
15771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15773: THEN
15774: IF l_debug_mode = 'Y' THEN
15775: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15768: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15770: END IF;
15771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15773: THEN
15774: IF l_debug_mode = 'Y' THEN
15775: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15774: IF l_debug_mode = 'Y' THEN
15775: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15777: END IF;
15778: RAISE FND_API.G_EXC_ERROR;
15779: END IF;
15780:
15781:
15782: --If funds check is required then this budget cannot be updated thru AMG interface
15798: );
15799:
15800:
15801: -- calling api above adds the error message to stack hence not adding the error message here.
15802: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15803: THEN
15804: IF l_debug_mode = 'Y' THEN
15805: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15804: IF l_debug_mode = 'Y' THEN
15805: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15807: END IF;
15808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15810: THEN
15811: IF l_debug_mode = 'Y' THEN
15812: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15805: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15807: END IF;
15808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15810: THEN
15811: IF l_debug_mode = 'Y' THEN
15812: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15811: IF l_debug_mode = 'Y' THEN
15812: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15814: END IF;
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15817:
15818: END IF; --(nvl(l_fck_req_flag,'N') = 'Y')
15819:
15908: ,p_attribute5 => '');
15909: END IF;
15910: --CLOSE l_task_csr; -- Close cursor will be invoked twice because Exception is not thrown here.
15911: p_multiple_task_msg := 'F';
15912: -- RAISE FND_API.G_EXC_ERROR;
15913: END IF;
15914: CLOSE l_task_csr;
15915: END IF; /* 2207733 */
15916:
15927: p_calc_budget_lines_out(l_line_ctr).txn_currency_code := l_txn_currency_code_tbl(i);
15928:
15929: -- Fix: 03-FEB-97, jwhite
15930: -- Added line to populate line return status. ---------------------------
15931: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_SUCCESS;
15932: -- ------------------------------------------------------------------------------
15933:
15934: l_calculated_raw_cost := l_txn_raw_cost_tbl(i);
15935: l_calculated_burdened_cost := l_txn_burdened_cost_tbl(i);
15972: THEN
15973: pa_utils.add_message
15974: ( p_app_short_name => 'PA'
15975: , p_msg_name => 'PA_BC_ENC_YR_NO_CHG_FUTURE');
15976: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15977: p_multiple_task_msg := 'F';
15978: END IF;
15979:
15980: END IF;
16069: ,p_value5 => l_start_date_tbl(i)
16070: );
16071: END IF;
16072:
16073: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16074: p_multiple_task_msg := 'F';
16075: -- RAISE FND_API.G_EXC_ERROR;
16076:
16077: ELSIF l_err_code < 0
16071: END IF;
16072:
16073: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16074: p_multiple_task_msg := 'F';
16075: -- RAISE FND_API.G_EXC_ERROR;
16076:
16077: ELSIF l_err_code < 0
16078: THEN
16079:
16086: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
16087:
16088: END IF;
16089:
16090: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16092:
16093: END IF;
16094:
16087:
16088: END IF;
16089:
16090: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16092:
16093: END IF;
16094:
16095: /* if the Client extn amounts override the rate api derived amounts
16211: ,p_value5 => l_start_date_tbl(i)
16212: );
16213: END IF;
16214:
16215: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16216: p_multiple_task_msg := 'F';
16217: -- RAISE FND_API.G_EXC_ERROR;
16218:
16219: ELSIF l_err_code < 0
16213: END IF;
16214:
16215: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16216: p_multiple_task_msg := 'F';
16217: -- RAISE FND_API.G_EXC_ERROR;
16218:
16219: ELSIF l_err_code < 0
16220: THEN
16221:
16228: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
16229:
16230: END IF;
16231:
16232: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16234:
16235: END IF;
16236:
16229:
16230: END IF;
16231:
16232: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16234:
16235: END IF;
16236:
16237: /* re derive the burden cost rate override after calling the client extn Do it only for finplan model*/
16328: ,p_value5 => l_start_date_tbl(i)
16329: );
16330: END IF;
16331:
16332: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16333: p_multiple_task_msg := 'F';
16334: -- RAISE FND_API.G_EXC_ERROR;
16335:
16336: ELSIF l_err_code < 0
16330: END IF;
16331:
16332: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16333: p_multiple_task_msg := 'F';
16334: -- RAISE FND_API.G_EXC_ERROR;
16335:
16336: ELSIF l_err_code < 0
16337: THEN
16338:
16345: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
16346:
16347: END IF;
16348:
16349: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16351:
16352: END IF;
16353:
16346:
16347: END IF;
16348:
16349: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16351:
16352: END IF;
16353:
16354: /* rederive the override rates */
16477: CLOSE l_resource_assignment_csr;
16478:
16479: IF p_multiple_task_msg = 'F'
16480: THEN
16481: RAISE FND_API.G_EXC_ERROR;
16482: END IF;
16483:
16484: IF p_update_db_flag = 'Y' THEN
16485:
16510: ,x_msg_count => p_msg_count
16511: ,x_msg_data => p_msg_data);
16512: END IF;
16513:
16514: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16515: IF(l_debug_mode='Y') THEN
16516: pa_debug.g_err_stage := 'MRC failed';
16517: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16518: END IF;
16515: IF(l_debug_mode='Y') THEN
16516: pa_debug.g_err_stage := 'MRC failed';
16517: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16518: END IF;
16519: RAISE FND_API.G_EXC_ERROR;
16520: END IF;
16521: */
16522: --Summarizing the totals in the table pa_budget_versions
16523:
16564: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16565: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16566: END IF;
16567:
16568: RAISE FND_API.G_EXC_ERROR;
16569:
16570: ELSIF l_err_code < 0
16571: THEN
16572:
16583: IF(l_debug_mode='Y') THEN
16584: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16585: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16586: END IF;
16587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16588:
16589: END IF;
16590:
16591: ELSIF l_context = l_context_finplan THEN
16602: ,x_return_status => p_return_status
16603: ,x_msg_count => p_msg_count
16604: ,x_msg_data => p_msg_data );
16605:
16606: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16607: -- Error message is not added here as the api lock_unlock_version
16608: -- adds the message to stack
16609: IF(l_debug_mode='Y') THEN
16610: pa_debug.g_err_stage := 'Failed in locking the version';
16609: IF(l_debug_mode='Y') THEN
16610: pa_debug.g_err_stage := 'Failed in locking the version';
16611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16612: END IF;
16613: RAISE FND_API.G_EXC_ERROR;
16614: END IF;*/
16615:
16616: /* Call PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY for the MC conversions. */
16617:
16622: ,x_return_status => p_return_status
16623: ,x_msg_count => p_msg_count
16624: ,x_msg_data => p_msg_data);
16625:
16626: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16627: IF l_debug_mode = 'Y' THEN
16628: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16629: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16630: END IF;
16627: IF l_debug_mode = 'Y' THEN
16628: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16629: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16630: END IF;
16631: RAISE FND_API.G_EXC_ERROR;
16632: END IF;
16633:
16634: --IPM Architecture Enhancement - Start
16635:
16639: X_RETURN_STATUS => p_return_status,
16640: X_MSG_COUNT => p_msg_count,
16641: X_MSG_DATA => p_msg_data);
16642:
16643: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16644: IF l_debug_mode = 'Y' THEN
16645: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16646: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16647: END IF;
16656: x_return_status => p_return_status,
16657: x_msg_data => p_msg_data,
16658: x_msg_count => p_msg_count );
16659:
16660: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16663: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16664: END IF;
16675: ,x_msg_count => p_msg_count
16676: ,x_msg_data => p_msg_data ) ;
16677:
16678:
16679: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16680: IF l_debug_mode = 'Y' THEN
16681: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16682: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16683: END IF;
16680: IF l_debug_mode = 'Y' THEN
16681: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16682: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16683: END IF;
16684: RAISE FND_API.G_EXC_ERROR;
16685: END IF;
16686: -- Bug Fix: 4569365. Removed MRC code.
16687: /* Check if MRC is enabled and Call MRC API */
16688: /*
16692: x_msg_count => p_msg_count,
16693: x_msg_data => p_msg_data);
16694: END IF;
16695:
16696: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16697: IF l_debug_mode = 'Y' THEN
16698: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16699: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16700: END IF;
16697: IF l_debug_mode = 'Y' THEN
16698: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16699: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16700: END IF;
16701: RAISE FND_API.G_EXC_ERROR;
16702: END IF;
16703:
16704: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
16705: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
16711: x_msg_count => p_msg_count,
16712: x_msg_data => p_msg_data);
16713: END IF;
16714:
16715: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16716: IF l_debug_mode = 'Y' THEN
16717: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16718: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16719: END IF;
16716: IF l_debug_mode = 'Y' THEN
16717: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16718: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16719: END IF;
16720: RAISE FND_API.G_EXC_ERROR;
16721: END IF;
16722: */
16723:
16724: -- populating the l_budget_version_id_tbl with p_budget_version_id
16729: p_fp_version_ids => l_budget_version_id_tbl,
16730: x_return_status => p_return_status,
16731: x_msg_code => p_msg_data);
16732:
16733: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16734: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16735: p_msg_name => p_msg_data);
16736: RAISE FND_API.G_EXC_ERROR;
16737: END IF;
16732:
16733: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16734: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16735: p_msg_name => p_msg_data);
16736: RAISE FND_API.G_EXC_ERROR;
16737: END IF;
16738:
16739: -- Call PLAN_CREATE to create summarization data as per the new RBS
16740: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
16741: p_fp_version_ids => l_budget_version_id_tbl,
16742: x_return_status => p_return_status,
16743: x_msg_code => p_msg_data);
16744:
16745: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16746: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16747: p_msg_name => p_msg_data);
16748: RAISE FND_API.G_EXC_ERROR;
16749: END IF;
16744:
16745: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16746: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16747: p_msg_name => p_msg_data);
16748: RAISE FND_API.G_EXC_ERROR;
16749: END IF;
16750:
16751:
16752: -- Bug 2863564 We need to unlock the version
16764: ,x_return_status => p_return_status
16765: ,x_msg_count => p_msg_count
16766: ,x_msg_data => p_msg_data);
16767:
16768: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16769: -- Error message is not added here as the api lock_unlock_version
16770: -- adds the message to stack
16771: IF(l_debug_mode='Y') THEN
16772: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16771: IF(l_debug_mode='Y') THEN
16772: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16773: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16774: END IF;
16775: RAISE FND_API.G_EXC_ERROR;
16776: END IF;
16777:
16778: -- We need to populate the PC, PFC amounts also in the OUT table
16779: -- in the context of new budgets model. So, open the
16839: p_calc_budget_lines_out(l_line_ctr).period_name := l_period_name_tbl(i);
16840: p_calc_budget_lines_out(l_line_ctr).quantity := l_quantity_tbl(i);
16841: p_calc_budget_lines_out(l_line_ctr).display_quantity := l_display_quantity_tbl(i); --IPM Arch Enhancement Bug 4865563
16842: p_calc_budget_lines_out(l_line_ctr).txn_currency_code := l_txn_currency_code_tbl(i);
16843: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_SUCCESS;
16844: p_calc_budget_lines_out(l_line_ctr).calculated_raw_cost := l_txn_raw_cost_tbl(i);
16845: p_calc_budget_lines_out(l_line_ctr).calculated_burdened_cost := l_txn_burdened_cost_tbl(i);
16846: p_calc_budget_lines_out(l_line_ctr).calculated_revenue := l_txn_revenue_tbl(i);
16847: p_calc_budget_lines_out(l_line_ctr).project_raw_cost := l_project_raw_cost_tbl(i);
16869: );
16870: end if;
16871:
16872:
16873: IF FND_API.TO_BOOLEAN( p_commit )
16874: THEN
16875: COMMIT;
16876: END IF;
16877:
16876: END IF;
16877:
16878: EXCEPTION
16879:
16880: WHEN FND_API.G_EXC_ERROR
16881: THEN
16882: ROLLBACK TO calculate_amounts_pub;
16883:
16884: p_return_status := FND_API.G_RET_STS_ERROR;
16880: WHEN FND_API.G_EXC_ERROR
16881: THEN
16882: ROLLBACK TO calculate_amounts_pub;
16883:
16884: p_return_status := FND_API.G_RET_STS_ERROR;
16885:
16886: FND_MSG_PUB.Count_And_Get
16887: (p_count => p_msg_count ,
16888: p_data => p_msg_data );
16886: FND_MSG_PUB.Count_And_Get
16887: (p_count => p_msg_count ,
16888: p_data => p_msg_data );
16889:
16890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16891: THEN
16892:
16893: ROLLBACK TO calculate_amounts_pub;
16894:
16891: THEN
16892:
16893: ROLLBACK TO calculate_amounts_pub;
16894:
16895: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16896:
16897: FND_MSG_PUB.Count_And_Get
16898: (p_count => p_msg_count ,
16899: p_data => p_msg_data );
16900: WHEN OTHERS
16901: THEN
16902: ROLLBACK TO calculate_amounts_pub;
16903:
16904: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16905:
16906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16907: THEN
16908: FND_MSG_PUB.add_exc_msg
16957: -- 25-MAR-2003 Rajagopal Modified for New Fin Plan Model
16958: --
16959: PROCEDURE Execute_Calculate_Amounts
16960: ( p_api_version_number IN NUMBER
16961: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
16962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16963: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16964: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16965: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16958: --
16959: PROCEDURE Execute_Calculate_Amounts
16960: ( p_api_version_number IN NUMBER
16961: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
16962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16963: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16964: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16965: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16966: ,p_tot_budget_lines_calculated OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16988: SAVEPOINT execute_calculate_amounts;
16989:
16990: -- Standard call to check for call compatibility.
16991:
16992: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
16993: p_api_version_number ,
16994: l_api_name ,
16995: G_PKG_NAME )
16996: THEN
16993: p_api_version_number ,
16994: l_api_name ,
16995: G_PKG_NAME )
16996: THEN
16997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16998: END IF;
16999: -- Initialize the message table if requested.
17000:
17001: IF FND_API.TO_BOOLEAN( p_init_msg_list )
16997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16998: END IF;
16999: -- Initialize the message table if requested.
17000:
17001: IF FND_API.TO_BOOLEAN( p_init_msg_list )
17002: THEN
17003: FND_MSG_PUB.initialize;
17004: END IF;
17005: -- Set API return status to success
17002: THEN
17003: FND_MSG_PUB.initialize;
17004: END IF;
17005: -- Set API return status to success
17006: p_return_status := FND_API.G_RET_STS_SUCCESS;
17007: p_tot_budget_lines_calculated := 0;
17008:
17009: Calculate_Amounts
17010: ( p_api_version_number => p_api_version_number
17030: ,p_budget_version_id => p_budget_version_id
17031: );
17032:
17033:
17034: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17035: THEN
17036:
17037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17038:
17033:
17034: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17035: THEN
17036:
17037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17038:
17039: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
17040: THEN
17041: RAISE FND_API.G_EXC_ERROR;
17035: THEN
17036:
17037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17038:
17039: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
17040: THEN
17041: RAISE FND_API.G_EXC_ERROR;
17042: END IF;
17043:
17037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17038:
17039: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
17040: THEN
17041: RAISE FND_API.G_EXC_ERROR;
17042: END IF;
17043:
17044: IF G_calc_budget_lines_out_tbl.EXISTS(1) THEN
17045: p_tot_budget_lines_calculated := G_calc_budget_lines_out_tbl.COUNT;
17044: IF G_calc_budget_lines_out_tbl.EXISTS(1) THEN
17045: p_tot_budget_lines_calculated := G_calc_budget_lines_out_tbl.COUNT;
17046: END IF;
17047:
17048: IF fnd_api.to_boolean(p_commit) THEN
17049: COMMIT;
17050: END IF;
17051: EXCEPTION
17052: WHEN FND_API.G_EXC_ERROR THEN
17048: IF fnd_api.to_boolean(p_commit) THEN
17049: COMMIT;
17050: END IF;
17051: EXCEPTION
17052: WHEN FND_API.G_EXC_ERROR THEN
17053: ROLLBACK TO execute_calculate_amounts;
17054: p_return_status := FND_API.G_RET_STS_ERROR;
17055: FND_MSG_PUB.Count_And_Get
17056: ( p_count => p_msg_count ,
17050: END IF;
17051: EXCEPTION
17052: WHEN FND_API.G_EXC_ERROR THEN
17053: ROLLBACK TO execute_calculate_amounts;
17054: p_return_status := FND_API.G_RET_STS_ERROR;
17055: FND_MSG_PUB.Count_And_Get
17056: ( p_count => p_msg_count ,
17057: p_data => p_msg_data );
17058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17054: p_return_status := FND_API.G_RET_STS_ERROR;
17055: FND_MSG_PUB.Count_And_Get
17056: ( p_count => p_msg_count ,
17057: p_data => p_msg_data );
17058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17059: ROLLBACK TO execute_calculate_amounts;
17060: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17061: FND_MSG_PUB.Count_And_Get
17062: ( p_count => p_msg_count ,
17056: ( p_count => p_msg_count ,
17057: p_data => p_msg_data );
17058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17059: ROLLBACK TO execute_calculate_amounts;
17060: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17061: FND_MSG_PUB.Count_And_Get
17062: ( p_count => p_msg_count ,
17063: p_data => p_msg_data );
17064: WHEN OTHERS THEN
17062: ( p_count => p_msg_count ,
17063: p_data => p_msg_data );
17064: WHEN OTHERS THEN
17065: ROLLBACK TO execute_calculate_amounts;
17066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17068: THEN
17069: FND_MSG_PUB.add_exc_msg
17070: ( p_pkg_name => G_PKG_NAME
17093: --
17094: --
17095: PROCEDURE fetch_calculate_amounts
17096: ( p_api_version_number IN NUMBER
17097: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17098: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17099: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17100: ,p_pa_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
17101: ,p_pm_task_reference OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17121: BEGIN
17122:
17123: -- Standard call to check for call compatibility.
17124:
17125: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
17126: p_api_version_number ,
17127: l_api_name ,
17128: G_PKG_NAME )
17129: THEN
17127: l_api_name ,
17128: G_PKG_NAME )
17129: THEN
17130:
17131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17132:
17133: END IF;
17134:
17135: -- Initialize the message table if requested.
17133: END IF;
17134:
17135: -- Initialize the message table if requested.
17136:
17137: IF FND_API.TO_BOOLEAN( p_init_msg_list )
17138: THEN
17139:
17140: FND_MSG_PUB.initialize;
17141:
17142: END IF;
17143:
17144: -- Set API return status to success
17145:
17146: p_return_status := FND_API.G_RET_STS_SUCCESS;
17147:
17148: -- Check index value,
17149: -- when they don't provide an index we will error out
17150:
17164: ,p_attribute4 => ''
17165: ,p_attribute5 => '');
17166: END IF;
17167:
17168: p_return_status := FND_API.G_RET_STS_ERROR;
17169: RAISE FND_API.G_EXC_ERROR;
17170: ELSE
17171: l_index := p_line_index;
17172: END IF;
17165: ,p_attribute5 => '');
17166: END IF;
17167:
17168: p_return_status := FND_API.G_RET_STS_ERROR;
17169: RAISE FND_API.G_EXC_ERROR;
17170: ELSE
17171: l_index := p_line_index;
17172: END IF;
17173:
17201: -- ----------------------------------------------------------------------------------------
17202:
17203: EXCEPTION
17204:
17205: WHEN FND_API.G_EXC_ERROR
17206: THEN
17207: p_return_status := FND_API.G_RET_STS_ERROR;
17208:
17209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17203: EXCEPTION
17204:
17205: WHEN FND_API.G_EXC_ERROR
17206: THEN
17207: p_return_status := FND_API.G_RET_STS_ERROR;
17208:
17209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17210: THEN
17211:
17205: WHEN FND_API.G_EXC_ERROR
17206: THEN
17207: p_return_status := FND_API.G_RET_STS_ERROR;
17208:
17209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17210: THEN
17211:
17212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17213:
17208:
17209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17210: THEN
17211:
17212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17213:
17214: WHEN OTHERS THEN
17215:
17216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17213:
17214: WHEN OTHERS THEN
17215:
17216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17217:
17218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17219: THEN
17220: FND_MSG_PUB.add_exc_msg
17259: -- 24-MAR-2003 Rajagopal Created
17260: --
17261: PROCEDURE fetch_calculate_amounts
17262: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17263: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17264: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17265: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17266: ,p_pa_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
17267: ,p_pm_task_reference OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17289:
17290: l_api_name CONSTANT VARCHAR2(30) := 'fetch_calculate_amounts';
17291:
17292: BEGIN
17293: p_return_status := FND_API.G_RET_STS_SUCCESS;
17294:
17295: -- Call the existing fetch_calculate_amounts api
17296:
17297: PA_BUDGET_PUB.fetch_calculate_amounts
17313: ,p_line_return_status => p_line_return_status
17314: ,p_cbs_element_id =>p_cbs_element_id
17315: ,p_cost_code => p_cost_code);
17316:
17317: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17318:
17319: RAISE FND_API.G_EXC_ERROR;
17320:
17321: END IF;
17315: ,p_cost_code => p_cost_code);
17316:
17317: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17318:
17319: RAISE FND_API.G_EXC_ERROR;
17320:
17321: END IF;
17322:
17323: -- Fetch the txn currency code of the budget line
17336: END IF;
17337:
17338: EXCEPTION
17339:
17340: WHEN FND_API.G_EXC_ERROR
17341: THEN
17342: p_return_status := FND_API.G_RET_STS_ERROR;
17343:
17344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17338: EXCEPTION
17339:
17340: WHEN FND_API.G_EXC_ERROR
17341: THEN
17342: p_return_status := FND_API.G_RET_STS_ERROR;
17343:
17344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17345: THEN
17346:
17340: WHEN FND_API.G_EXC_ERROR
17341: THEN
17342: p_return_status := FND_API.G_RET_STS_ERROR;
17343:
17344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17345: THEN
17346:
17347: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17348:
17343:
17344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17345: THEN
17346:
17347: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17348:
17349: WHEN OTHERS THEN
17350:
17351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17347: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17348:
17349: WHEN OTHERS THEN
17350:
17351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17352:
17353: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17354: THEN
17355: FND_MSG_PUB.add_exc_msg
17360: END fetch_calculate_amounts;
17361:
17362: PROCEDURE CREATE_DRAFT_FINPLAN
17363: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17364: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17365: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17366: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17367: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17368: ,p_pm_project_reference IN pa_projects_all. PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17361:
17362: PROCEDURE CREATE_DRAFT_FINPLAN
17363: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17364: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17365: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17366: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17367: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17368: ,p_pm_project_reference IN pa_projects_all. PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17369: ,p_pa_project_id IN pa_budget_versions.project_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17608: --Standard begin of API savepoint
17609: SAVEPOINT create_draft_finplan_pub;
17610:
17611: x_msg_count := 0;
17612: x_return_status := FND_API.G_RET_STS_SUCCESS;
17613: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17615: l_debug_mode := NVL(l_debug_mode, 'Y');
17616:
17916: ,x_msg_data => x_msg_data
17917: ,x_return_status => x_return_status
17918: );
17919:
17920: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
17921: THEN
17922: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17923: END IF;
17924:
17931: ,x_return_status => x_return_status
17932: ,x_msg_count => x_msg_count
17933: ,x_msg_data => x_msg_data );
17934:
17935: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17936: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17937: END IF;
17938:
17939: IF l_debug_mode = 'Y' THEN
17957: x_msg_count => x_msg_count,
17958: x_msg_data => x_msg_data
17959: );
17960:
17961: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17964: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17965: END IF;
17973: ,x_return_status => x_return_status
17974: ,x_msg_count => x_msg_count
17975: ,x_msg_data => x_msg_data
17976: );
17977: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17978: THEN
17979: pa_debug.g_err_stage:= 'Could not delete the current working version';
17980: IF l_debug_mode = 'Y' THEN
17981: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18063:
18064: END IF;
18065:
18066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18067:
18068: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
18069: IF l_debug_mode = 'Y' THEN
18070: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
18098: ,x_message_count => x_msg_count
18099: ,x_return_status => x_return_status
18100: ,x_message_data => x_msg_data
18101: );
18102: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18103: IF l_debug_mode = 'Y' THEN
18104: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
18105: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
18106: END IF;
18194: ,x_return_status => x_return_status
18195: ,x_msg_count => x_msg_count
18196: ,x_msg_data => x_msg_data );
18197:
18198: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18199: pa_debug.g_err_stage:= 'Error Create_Version';
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_name ||
18202: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18313: ,x_msg_count => l_msg_count
18314: ,x_msg_data => l_msg_data
18315: ,x_return_status => l_return_status);
18316:
18317: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18318: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18320: END IF;
18321:
18746: , x_return_status => l_return_status
18747: , x_msg_count => l_msg_count
18748: , x_msg_data => l_msg_data
18749: );
18750: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18751: THEN
18752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18753: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18754: THEN
18748: , x_msg_data => l_msg_data
18749: );
18750: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18751: THEN
18752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18753: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18754: THEN
18755: RAISE FND_API.G_EXC_ERROR;
18756: END IF;
18749: );
18750: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18751: THEN
18752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18753: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18754: THEN
18755: RAISE FND_API.G_EXC_ERROR;
18756: END IF;
18757: END IF; -- 3793370 -- P_finplan_trans_tab.COUNT > 0
18751: THEN
18752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18753: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18754: THEN
18755: RAISE FND_API.G_EXC_ERROR;
18756: END IF;
18757: END IF; -- 3793370 -- P_finplan_trans_tab.COUNT > 0
18758: /************************************
18759: l_fp_version_ids_tbl.extend;
18761: PJI_FM_XBS_ACCUM_MAINT.plan_create( p_fp_version_ids => l_fp_version_ids_tbl
18762: ,x_return_status => l_return_status
18763: ,x_msg_code => l_msg_code
18764: );
18765: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18766: THEN
18767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18769: THEN
18763: ,x_msg_code => l_msg_code
18764: );
18765: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18766: THEN
18767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18769: THEN
18770: RAISE FND_API.G_EXC_ERROR;
18771: END IF;
18764: );
18765: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18766: THEN
18767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18769: THEN
18770: RAISE FND_API.G_EXC_ERROR;
18771: END IF;
18772: ********************/
18766: THEN
18767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18769: THEN
18770: RAISE FND_API.G_EXC_ERROR;
18771: END IF;
18772: ********************/
18773:
18774: x_finplan_version_id := l_created_version_id;
18785: ,x_fin_plan_version_id => l_CW_version_id
18786: ,x_return_status => x_return_status
18787: ,x_msg_count => x_msg_count
18788: ,x_msg_data => x_msg_data );
18789: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18790: THEN
18791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18792: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18793: THEN
18787: ,x_msg_count => x_msg_count
18788: ,x_msg_data => x_msg_data );
18789: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18790: THEN
18791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18792: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18793: THEN
18794: RAISE FND_API.G_EXC_ERROR;
18795: END IF;
18788: ,x_msg_data => x_msg_data );
18789: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18790: THEN
18791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18792: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18793: THEN
18794: RAISE FND_API.G_EXC_ERROR;
18795: END IF;
18796: IF ( l_created_version_id <> l_CW_version_id )
18790: THEN
18791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18792: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18793: THEN
18794: RAISE FND_API.G_EXC_ERROR;
18795: END IF;
18796: IF ( l_created_version_id <> l_CW_version_id )
18797: THEN
18798: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18821: x_return_status => x_return_status,
18822: x_msg_count => x_msg_count,
18823: x_msg_data => x_msg_data) ;
18824:
18825: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18826: IF l_debug_mode = 'Y' THEN
18827: pa_debug.g_err_stage := 'Error executing lock unlock version';
18828: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18829: END IF;
18846: x_return_status => x_return_status,
18847: x_msg_count => x_msg_count,
18848: x_msg_data => x_msg_data);
18849:
18850: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18851: IF l_debug_mode = 'Y' THEN
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18868: ,x_msg_count => x_msg_count
18869: ,x_msg_data => x_msg_data
18870: );
18871:
18872: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18873: THEN
18874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18875: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18876: THEN
18870: );
18871:
18872: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18873: THEN
18874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18875: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18876: THEN
18877: RAISE FND_API.G_EXC_ERROR;
18878: END IF;
18871:
18872: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18873: THEN
18874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18875: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18876: THEN
18877: RAISE FND_API.G_EXC_ERROR;
18878: END IF;
18879: /*====================================================================+
18873: THEN
18874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18875: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18876: THEN
18877: RAISE FND_API.G_EXC_ERROR;
18878: END IF;
18879: /*====================================================================+
18880: | If any of the budget lines had any rejections, set x_return_status |
18881: | appropriately - So, whoever calls this API would know - there was |
18883: +====================================================================*/
18884: IF ( x_return_status = 'R')
18885: THEN
18886: -- bug 3825873 donot raise error it will rollback the entire changes
18887: -- bug 3825873 RAISE FND_API.G_EXC_ERROR;
18888: x_return_status := 'S';
18889: END IF;
18890:
18891: --Changes for bug 3823485
18888: x_return_status := 'S';
18889: END IF;
18890:
18891: --Changes for bug 3823485
18892: IF FND_API.TO_BOOLEAN( p_commit )
18893: THEN
18894:
18895: IF l_debug_mode = 'Y' THEN
18896: pa_debug.g_err_stage := 'About to do a COMMIT';
18925: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18926: END IF;
18927:
18928: PA_INTERFACE_UTILS_PUB.get_messages
18929: ( p_encoded => FND_API.G_TRUE
18930: ,p_msg_index => 1
18931: ,p_msg_count => l_msg_count
18932: ,p_msg_data => l_msg_data
18933: ,p_data => l_msg_data
18943: x_msg_count := l_msg_count;
18944: END IF;
18945:
18946:
18947: x_return_status := FND_API.G_RET_STS_ERROR;
18948:
18949: IF l_debug_mode = 'Y' THEN
18950: pa_debug.g_err_stage:='In invalid args exception 3';
18951: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18955: WHEN OTHERS THEN
18956:
18957: ROLLBACK TO create_draft_finplan_pub;
18958:
18959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18960: x_msg_count := 1;
18961: x_msg_data := SQLERRM;
18962:
18963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
19135: END load_resource_info;
19136:
19137: PROCEDURE EXECUTE_CREATE_DRAFT_FINPLAN
19138: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19139: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19140: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19141: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19142: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19143: ,p_pm_project_reference IN pa_projects_all.PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19136:
19137: PROCEDURE EXECUTE_CREATE_DRAFT_FINPLAN
19138: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19139: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19140: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19141: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19142: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19143: ,p_pm_project_reference IN pa_projects_all.PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19144: ,p_pa_project_id IN pa_budget_versions.project_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19364: --
19365:
19366: PROCEDURE update_plannning_element_attr
19367: (p_api_version_number IN NUMBER
19368: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19369: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19370: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19371: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19372: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19365:
19366: PROCEDURE update_plannning_element_attr
19367: (p_api_version_number IN NUMBER
19368: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19369: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19370: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19371: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19372: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19373: ,p_fin_plan_type_id IN pa_budget_versions.fin_plan_type_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19483: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19484: l_debug_mode := NVL(l_debug_mode, 'Y');
19485:
19486: -- Initialize the return status to success
19487: x_return_status := FND_API.G_RET_STS_SUCCESS;
19488:
19489: IF FND_API.TO_BOOLEAN( p_init_msg_list )
19490: THEN
19491: FND_MSG_PUB.initialize;
19485:
19486: -- Initialize the return status to success
19487: x_return_status := FND_API.G_RET_STS_SUCCESS;
19488:
19489: IF FND_API.TO_BOOLEAN( p_init_msg_list )
19490: THEN
19491: FND_MSG_PUB.initialize;
19492: END IF;
19493:
19668: ,x_return_status => l_return_status );
19669: /*
19670: DBMS_OUTPUT.PUT_LINE('return status is '||l_return_status);
19671: */
19672: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19673: THEN
19674: IF l_debug_mode = 'Y' THEN
19675: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19676: END IF;
19694:
19695: l_planning_start_date_tbl.extend(1);
19696: l_planning_start_date_tbl(i) := p_planning_element_rec_tbl(i).planning_start_date;
19697: if l_planning_start_date_tbl(i) is null then
19698: l_planning_start_date_tbl(i) :=FND_API.G_MISS_DATE;
19699: elsif l_planning_start_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19700: l_planning_start_date_tbl(i) := null;
19701: end if;
19702:
19702:
19703: l_planning_end_date_tbl.extend(1);
19704: l_planning_end_date_tbl(i) := p_planning_element_rec_tbl(i).planning_end_date;
19705: if l_planning_end_date_tbl(i) is null then
19706: l_planning_end_date_tbl(i) :=FND_API.G_MISS_DATE;
19707: elsif l_planning_end_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19708: l_planning_end_date_tbl(i) := null;
19709: end if;
19710:
19710:
19711: l_spread_curve_name_tbl.extend(1);
19712: l_spread_curve_name_tbl(i) := p_planning_element_rec_tbl(i).spread_curve;
19713: if l_spread_curve_name_tbl(i)is null then
19714: l_spread_curve_name_tbl(i) :=FND_API.G_MISS_CHAR;
19715: elsif l_spread_curve_name_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19716: l_spread_curve_name_tbl(i) := null;
19717: end if;
19718:
19718:
19719: l_sp_fixed_date_tbl.extend(1);
19720: l_sp_fixed_date_tbl(i) := p_planning_element_rec_tbl(i).fixed_date;
19721: if l_sp_fixed_date_tbl(i) is null then
19722: l_sp_fixed_date_tbl(i) :=FND_API.G_MISS_DATE;
19723: elsif l_sp_fixed_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19724: l_sp_fixed_date_tbl(i) := null;
19725: end if;
19726:
19726:
19727: l_etc_method_name_tbl.extend(1);
19728: l_etc_method_name_tbl(i) := p_planning_element_rec_tbl(i).etc_method_name;
19729: if l_etc_method_name_tbl(i) is null then
19730: l_etc_method_name_tbl(i) :=FND_API.G_MISS_CHAR;
19731: elsif l_etc_method_name_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19732: l_etc_method_name_tbl(i) := null;
19733: end if;
19734:
19786: ,x_msg_count => l_msg_count
19787: ,x_msg_data => l_msg_data
19788: ,x_return_status => l_return_status);
19789:
19790: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19791:
19792: IF l_debug_mode = 'Y' THEN
19793: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19794: END IF;
19885: l_assignment_description_tbl(i) := p_planning_element_rec_tbl(i).assignment_description;
19886: if l_assignment_description_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19887: l_assignment_description_tbl(i):=null;
19888: elsif l_assignment_description_tbl(i) = null then
19889: l_assignment_description_tbl(i):=FND_API.G_MISS_CHAR;
19890: end if;
19891:
19892: l_attribute_category_tbl(i) := p_planning_element_rec_tbl(i).attribute_category;
19893: l_attribute1_tbl(i) := p_planning_element_rec_tbl(i).attribute1;
19972: ,x_msg_data => l_msg_data
19973: ,x_return_status => l_return_status
19974: );
19975:
19976: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19977: THEN
19978: IF l_debug_mode = 'Y' THEN
19979: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19980: END IF;
19991: l_msg_count := FND_MSG_PUB.count_msg;
19992:
19993: IF l_msg_count = 1 THEN
19994: PA_INTERFACE_UTILS_PUB.get_messages
19995: ( p_encoded => FND_API.G_TRUE
19996: ,p_msg_index => 1
19997: ,p_msg_count => l_msg_count
19998: ,p_msg_data => l_msg_data
19999: ,p_data => l_data
20009: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20010: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
20011: END IF;
20012:
20013: x_return_status:= FND_API.G_RET_STS_ERROR;
20014:
20015:
20016: pa_debug.reset_err_stack;
20017:
20018:
20019: WHEN Others THEN
20020:
20021:
20022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20023: x_msg_count := 1;
20024: x_msg_data := SQLERRM;
20025: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
20026: ,p_procedure_name => 'update_plannning_element_attr');