[Home] [Help]
241:
242: BEGIN
243:
244: x_msg_count := 0;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Populate_Local_Variables');
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
712: ,x_message_count => l_msg_count
713: ,x_return_status => l_return_status
714: ,x_message_data => l_msg_data );
715:
716: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
717: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
718: END IF;
719: ELSE
720:
761: ,x_message_count => l_msg_count
762: ,x_return_status => l_return_status
763: ,x_message_data => l_msg_data );
764:
765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
766: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
767: END IF;
768: END IF;
769: END IF;
810: ,x_all_amount_set_id => l_all_amount_set_id
811: ,x_message_count => l_msg_count
812: ,x_return_status => l_return_status
813: ,x_message_data => l_msg_data );
814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
815: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
816: END IF;
817: ELSE
818: --Set revenue varaibles using project type revenue properties
860: ,x_message_count => l_msg_count
861: ,x_return_status => l_return_status
862: ,x_message_data => l_msg_data );
863:
864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
866: END IF;
867:
868: END IF;
880:
881: l_msg_count := FND_MSG_PUB.count_msg;
882: IF l_msg_count = 1 THEN
883: PA_INTERFACE_UTILS_PUB.get_messages
884: (p_encoded => FND_API.G_TRUE
885: ,p_msg_index => 1
886: ,p_msg_count => l_msg_count
887: ,p_msg_data => l_msg_data
888: ,p_data => l_data
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
902: pa_debug.reset_err_stack;
903: RAISE;
904:
905: WHEN Others THEN
912: END IF;
913: IF budget_entry_method_info_cur%ISOPEN THEN
914: CLOSE budget_entry_method_info_cur;
915: END IF;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: x_msg_count := 1;
918: x_msg_data := SQLERRM;
919:
920: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
965: l_multi_curr_flag pa_proj_fp_options.plan_in_multi_curr_flag%TYPE;
966:
967: BEGIN
968: x_msg_count := 0;
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970: savepoint pa_fp_upgrade_pkg;
971:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1111: ,x_return_status => l_return_status
1112: ,x_msg_count => l_msg_count
1113: ,x_msg_data => l_msg_data);
1114:
1115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1116: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1117: END IF;
1118: -- create fp options and elements for project only if there are
1119: -- no project level exceptions
1269: END IF;
1270: l_msg_count := FND_MSG_PUB.count_msg;
1271: IF l_msg_count = 1 THEN
1272: PA_INTERFACE_UTILS_PUB.get_messages
1273: (p_encoded => FND_API.G_TRUE
1274: ,p_msg_index => 1
1275: ,p_msg_count => l_msg_count
1276: ,p_msg_data => l_msg_data
1277: ,p_data => l_data
1286: IF p_pa_debug_mode = 'Y' THEN
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1293: pa_debug.reset_err_stack;
1294: ROLLBACK TO pa_fp_upgrade_pkg;
1306: END IF;
1307: IF project_type_info_cur%ISOPEN THEN
1308: CLOSE project_type_info_cur;
1309: END IF;
1310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1311: x_msg_count := 1;
1312: x_msg_data := SQLERRM;
1313:
1314: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1384: budget_types_for_upgrade_rec budget_types_for_upgrade_cur%ROWTYPE;
1385:
1386: BEGIN
1387: x_msg_count := 0;
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1515: END IF;
1516: l_msg_count := FND_MSG_PUB.count_msg;
1517: IF l_msg_count = 1 THEN
1518: PA_INTERFACE_UTILS_PUB.get_messages
1519: (p_encoded => FND_API.G_TRUE
1520: ,p_msg_index => 1
1521: ,p_msg_count => l_msg_count
1522: ,p_msg_data => l_msg_data
1523: ,p_data => l_data
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1538: pa_debug.reset_err_stack;
1539: RAISE;
1540:
1541: WHEN Others THEN
1542:
1543: IF budget_types_for_upgrade_cur%ISOPEN THEN
1544: CLOSE budget_types_for_upgrade_cur;
1545: END IF;
1546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1547: x_msg_count := 1;
1548: x_msg_data := SQLERRM;
1549:
1550: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1602:
1603: BEGIN
1604:
1605: x_msg_count := 0;
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Create_fp_options');
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1740: ,x_return_status => l_return_status
1741: ,x_msg_count => l_msg_count
1742: ,x_msg_data => l_msg_data );
1743:
1744: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1746: END IF;
1747:
1748: -- Populate the MC conversion attributes for the fp option if MC enabled
1777:
1778: l_msg_count := FND_MSG_PUB.count_msg;
1779: IF l_msg_count = 1 THEN
1780: PA_INTERFACE_UTILS_PUB.get_messages
1781: (p_encoded => FND_API.G_TRUE
1782: ,p_msg_index => 1
1783: ,p_msg_count => l_msg_count
1784: ,p_msg_data => l_msg_data
1785: ,p_data => l_data
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1800: pa_debug.reset_err_stack;
1801: RAISE;
1802:
1803: WHEN Others THEN
1801: RAISE;
1802:
1803: WHEN Others THEN
1804:
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1806: x_msg_count := 1;
1807: x_msg_data := SQLERRM;
1808:
1809: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1847:
1848: BEGIN
1849:
1850: x_msg_count := 0;
1851: x_return_status := FND_API.G_RET_STS_SUCCESS;
1852:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1897: ,x_return_status => l_return_status
1898: ,x_msg_count => l_msg_count
1899: ,x_msg_data => l_msg_data);
1900:
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1903: END IF;
1904:
1905: IF l_validation_status = 'Y' THEN
1922: ,x_return_status => l_return_status
1923: ,x_msg_count => l_msg_count
1924: ,x_msg_data => l_msg_data);
1925:
1926: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1927: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1928: END IF;
1929: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
1930: in pa_fp_txn_currencies. The source fp option ID is being passed as NULL as
1949: ,x_return_status => l_return_status
1950: ,x_msg_count => l_msg_count
1951: ,x_msg_data => l_msg_data);
1952:
1953: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1954: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: END IF;
1956:
1957: -- Insert into audit table
1985: END IF;
1986: l_msg_count := FND_MSG_PUB.count_msg;
1987: IF l_msg_count = 1 THEN
1988: PA_INTERFACE_UTILS_PUB.get_messages
1989: (p_encoded => FND_API.G_TRUE
1990: ,p_msg_index => 1
1991: ,p_msg_count => l_msg_count
1992: ,p_msg_data => l_msg_data
1993: ,p_data => l_data
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2008: pa_debug.reset_err_stack;
2009: RAISE;
2010:
2011: WHEN Others THEN
2012:
2013: IF attached_plan_types_cur%ISOPEN THEN
2014: CLOSE attached_plan_types_cur;
2015: END IF;
2016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2017: x_msg_count := 1;
2018: x_msg_data := SQLERRM;
2019: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
2020: ,p_procedure_name => 'Add_Plan_Types');
2116:
2117: BEGIN
2118: x_msg_count := 0;
2119: x_msg_data := NULL;
2120: x_return_status := FND_API.G_RET_STS_SUCCESS;
2121:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2197: ,x_return_status => l_return_status
2198: ,x_msg_count => l_msg_count
2199: ,x_msg_data => l_msg_data);
2200:
2201: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2203: END IF;
2204:
2205: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
2225: ,x_return_status => l_return_status
2226: ,x_msg_count => l_msg_count
2227: ,x_msg_data => l_msg_data);
2228:
2229: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2230: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2231: END IF;
2232:
2233: --Setting the variables for upgrading budget version to fin_plan version
2323: ,x_return_status => l_return_status
2324: ,x_msg_count => l_msg_count
2325: ,x_msg_data => l_msg_data );
2326:
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2328: /*For bug 2755740*/
2329: IF p_pa_debug_mode = 'Y' THEN
2330: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency',5);
2331: END IF;
2355:
2356:
2357:
2358: -- Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
2359: -- Added the following IN-parmeters as FND_API.G_FALSE
2360: -- 1) p_commit
2361: -- 2) p_init_msg_list
2362:
2363:
2362:
2363:
2364: PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST(
2365: p_resource_list_id => l_res_list_tbl(j)
2366: , p_commit => FND_API.G_FALSE
2367: , p_init_msg_list => FND_API.G_FALSE
2368: , x_return_status => l_return_status
2369: , x_msg_count => l_msg_count
2370: , x_msg_data => l_msg_data);
2363:
2364: PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST(
2365: p_resource_list_id => l_res_list_tbl(j)
2366: , p_commit => FND_API.G_FALSE
2367: , p_init_msg_list => FND_API.G_FALSE
2368: , x_return_status => l_return_status
2369: , x_msg_count => l_msg_count
2370: , x_msg_data => l_msg_data);
2371:
2372:
2373:
2374: -- End Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
2375:
2376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2377: THEN
2378: IF p_pa_debug_mode = 'Y' THEN
2379: pa_debug.write_file('Upgrade failed due to error in PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST ',5);
2380: END IF;
2402: ,x_return_status => l_return_status
2403: ,x_msg_count => l_msg_count
2404: ,x_msg_data => l_msg_data);
2405:
2406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2407: THEN
2408: IF p_pa_debug_mode = 'Y' THEN
2409: pa_debug.write_file('Upgrade failed due to error in pa_budget_attr_upgr_pkg.budget_attr_upgrd ',5);
2410: END IF;
2423: ,x_return_status => l_return_status
2424: ,x_msg_count => l_msg_count
2425: ,x_msg_data => l_msg_data);
2426:
2427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2428: THEN
2429: IF p_pa_debug_mode = 'Y' THEN
2430: pa_debug.write_file('Upgrade failed due to error in pa_rate_attr_pkg.rate_attr_upgrd ',5);
2431: END IF;
2442: ,x_return_status => l_return_status
2443: ,x_msg_count => l_msg_count
2444: ,x_msg_data => l_msg_data);
2445:
2446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2447: THEN
2448: IF p_pa_debug_mode = 'Y' THEN
2449: pa_debug.write_file('Upgrade failed due to error in pa_date_range_pkg.date_range_upgrd ',5);
2450: END IF;
2525: ,x_msg_count => l_msg_count
2526: ,x_msg_data => l_msg_data );
2527:
2528:
2529: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2530: THEN
2531: IF p_pa_debug_mode = 'Y' THEN
2532: pa_debug.write_file('Upgrade failed due to error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules ',5);
2533: END IF;
2564: ,x_return_status =>l_return_status
2565: ,x_msg_count =>l_msg_count
2566: ,x_msg_data =>l_msg_data) ;
2567:
2568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2569: THEN
2570: IF p_pa_debug_mode = 'Y' THEN
2571: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency ',5);
2572: END IF;
2592: x_msg_data => l_msg_data);
2593:
2594: END IF;
2595:
2596: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2597: THEN
2598: IF p_pa_debug_mode = 'Y' THEN
2599: pa_debug.write_file('Upgrade failed due to error in PA_MRC_FINPLAN.MAINTAIN_ALL_MC_BUDGET_LINES ',5);
2600: END IF;
2610: (p_budget_version_id => l_budget_ver_tbl(m),
2611: p_context => 'FINANCIAL',
2612: x_return_status => l_return_status);
2613:
2614: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2615: THEN
2616: IF p_pa_debug_mode = 'Y' THEN
2617: pa_debug.write_file('Upgrade failed due to error in PA_BUDGET_LINES_UTILS.populate_display_quantity',5);
2618: END IF;
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2628: x_msg_data => l_msg_data);
2629:
2630: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2631: THEN
2632: IF p_pa_debug_mode = 'Y' THEN
2633: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
2634: END IF;
2644: x_return_status => l_return_status,
2645: x_msg_count => l_msg_count,
2646: x_msg_data => l_msg_data);
2647:
2648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2649: THEN
2650: IF p_pa_debug_mode = 'Y' THEN
2651: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
2652: END IF;
2663: x_return_status => l_return_status,
2664: x_msg_count => l_msg_count,
2665: x_msg_data => l_msg_data);
2666:
2667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2668: THEN
2669: IF p_pa_debug_mode = 'Y' THEN
2670: pa_debug.write_file('Upgrade failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
2671: END IF;
2679: ,x_return_status => l_return_status
2680: ,x_msg_count => l_msg_count
2681: ,x_msg_data => l_msg_data );
2682:
2683: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2684: THEN
2685: IF p_pa_debug_mode = 'Y' THEN
2686: pa_debug.write_file('Upgrade failed due to error in PA_FP_ROLLUP_PKG.rollup_budget_version',5);
2687: END IF;
2724: p_fp_version_ids => l_budget_ver_tbl3, -- Modified to l_budget_ver_tbl3 for Bug# 7187487
2725: x_return_status => l_return_status,
2726: x_msg_code => l_msg_data);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: IF p_pa_debug_mode = 'Y' THEN
2730: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE',5);
2731: END IF;
2732: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2745: p_new_version_id => l_budget_ver_tbl2(i),
2746: x_return_status => l_return_status,
2747: x_msg_code => l_msg_data);
2748:
2749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2750: IF p_pa_debug_mode = 'Y' THEN
2751: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_baseline',5);
2752: END IF;
2753: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2785: END IF;
2786: l_msg_count := FND_MSG_PUB.count_msg;
2787: IF l_msg_count = 1 THEN
2788: PA_INTERFACE_UTILS_PUB.get_messages
2789: ( p_encoded => FND_API.G_TRUE
2790: ,p_msg_index => 1
2791: ,p_msg_count => l_msg_count
2792: ,p_msg_data => l_msg_data
2793: ,p_data => l_data
2803: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2805: END IF;
2806:
2807: x_return_status:= FND_API.G_RET_STS_ERROR;
2808: pa_debug.reset_err_stack;
2809: RAISE;
2810:
2811: WHEN Others THEN
2812:
2813: IF budgets_for_upgrade_cur%ISOPEN THEN
2814: CLOSE budgets_for_upgrade_cur;
2815: END IF;
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: x_msg_count := 1;
2818: x_msg_data := SQLERRM;
2819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2820: ,p_procedure_name => 'Upgrade_Budget_Versions');
2942:
2943: BEGIN
2944:
2945: x_msg_count := 0;
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2947: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.validate_budgets');
2948: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2949: l_debug_mode := NVL(l_debug_mode, 'Y');
2950: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3040: ,x_return_status => l_return_status
3041: ,x_msg_count => l_msg_count
3042: ,x_msg_data => l_msg_data);
3043:
3044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3045: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3046: END IF;
3047:
3048: -- Fetch all the budget/plan types that have to be attached to the project
3097: ,x_return_status => l_return_status
3098: ,x_msg_count => l_msg_count
3099: ,x_msg_data => l_msg_data);
3100:
3101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3103: END IF;
3104:
3105: END LOOP;
3128: ,x_return_status => l_return_status
3129: ,x_msg_count => l_msg_count
3130: ,x_msg_data => l_msg_data);
3131:
3132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3133: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3134: END IF;
3135: END LOOP;
3136: CLOSE budgets_for_upgrade_cur;
3158: EXCEPTION
3159:
3160: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3161:
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: l_msg_count := FND_MSG_PUB.count_msg;
3164: IF l_msg_count = 1 THEN
3165: PA_INTERFACE_UTILS_PUB.get_messages
3166: (p_encoded => FND_API.G_TRUE
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: l_msg_count := FND_MSG_PUB.count_msg;
3164: IF l_msg_count = 1 THEN
3165: PA_INTERFACE_UTILS_PUB.get_messages
3166: (p_encoded => FND_API.G_TRUE
3167: ,p_msg_index => 1
3168: ,p_msg_count => l_msg_count
3169: ,p_msg_data => l_msg_data
3170: ,p_data => l_data
3199: IF attached_budget_types_cur%ISOPEN THEN
3200: CLOSE attached_budget_types_cur;
3201: END IF;
3202: -- end of changes for bug 2853511
3203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3204: x_msg_count := 1;
3205: x_msg_data := SQLERRM;
3206: FND_MSG_PUB.add_exc_msg
3207: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3255:
3256: BEGIN
3257:
3258: x_msg_count := 0;
3259: x_return_status := FND_API.G_RET_STS_SUCCESS;
3260: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT');
3261: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3262: l_debug_mode := NVL(l_debug_mode, 'Y');
3263: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3309: ,x_return_status => l_return_status
3310: ,x_msg_count => l_msg_count
3311: ,x_msg_data => l_msg_data );
3312:
3313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3314: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3315: END IF;
3316:
3317: -- check if project currency and projfunc currency are not equal
3352:
3353: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3354:
3355: x_validation_status := 'N';
3356: x_return_status := FND_API.G_RET_STS_ERROR;
3357: l_msg_count := FND_MSG_PUB.count_msg;
3358: IF l_msg_count = 1 THEN
3359: PA_INTERFACE_UTILS_PUB.get_messages
3360: (p_encoded => FND_API.G_TRUE
3356: x_return_status := FND_API.G_RET_STS_ERROR;
3357: l_msg_count := FND_MSG_PUB.count_msg;
3358: IF l_msg_count = 1 THEN
3359: PA_INTERFACE_UTILS_PUB.get_messages
3360: (p_encoded => FND_API.G_TRUE
3361: ,p_msg_index => 1
3362: ,p_msg_count => l_msg_count
3363: ,p_msg_data => l_msg_data
3364: ,p_data => l_data
3378:
3379: WHEN others THEN
3380:
3381: x_validation_status := 'N';
3382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3383: x_msg_count := 1;
3384: x_msg_data := SQLERRM;
3385: FND_MSG_PUB.add_exc_msg
3386: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3434:
3435: BEGIN
3436:
3437: x_msg_count := 0;
3438: x_return_status := FND_API.G_RET_STS_SUCCESS;
3439: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT_PLAN_TYPE');
3440: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3441: l_debug_mode := NVL(l_debug_mode, 'Y');
3442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3488: x_return_status => l_return_status,
3489: x_msg_count => l_msg_count,
3490: x_msg_data => l_msg_data);
3491:
3492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3493: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3494: END IF;
3495:
3496:
3596:
3597: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3598:
3599: x_validation_status := 'N';
3600: x_return_status := FND_API.G_RET_STS_ERROR;
3601: l_msg_count := FND_MSG_PUB.count_msg;
3602: IF l_msg_count = 1 THEN
3603: PA_INTERFACE_UTILS_PUB.get_messages
3604: (p_encoded => FND_API.G_TRUE
3600: x_return_status := FND_API.G_RET_STS_ERROR;
3601: l_msg_count := FND_MSG_PUB.count_msg;
3602: IF l_msg_count = 1 THEN
3603: PA_INTERFACE_UTILS_PUB.get_messages
3604: (p_encoded => FND_API.G_TRUE
3605: ,p_msg_index => 1
3606: ,p_msg_count => l_msg_count
3607: ,p_msg_data => l_msg_data
3608: ,p_data => l_data
3622:
3623: WHEN others THEN
3624:
3625: x_validation_status := 'N';
3626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3627: x_msg_count := 1;
3628: x_msg_data := SQLERRM;
3629: FND_MSG_PUB.add_exc_msg
3630: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3682:
3683: BEGIN
3684:
3685: x_msg_count := 0;
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.validate_budget_version');
3688: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3689: l_debug_mode := NVL(l_debug_mode, 'Y');
3690: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3724:
3725: EXCEPTION
3726:
3727: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3728: x_return_status := FND_API.G_RET_STS_ERROR;
3729: l_msg_count := FND_MSG_PUB.count_msg;
3730: IF l_msg_count = 1 THEN
3731: PA_INTERFACE_UTILS_PUB.get_messages
3732: (p_encoded => FND_API.G_TRUE
3728: x_return_status := FND_API.G_RET_STS_ERROR;
3729: l_msg_count := FND_MSG_PUB.count_msg;
3730: IF l_msg_count = 1 THEN
3731: PA_INTERFACE_UTILS_PUB.get_messages
3732: (p_encoded => FND_API.G_TRUE
3733: ,p_msg_index => 1
3734: ,p_msg_count => l_msg_count
3735: ,p_msg_data => l_msg_data
3736: ,p_data => l_data
3749: RAISE;
3750:
3751: WHEN others THEN
3752:
3753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3754: x_msg_count := 1;
3755: x_msg_data := SQLERRM;
3756: FND_MSG_PUB.add_exc_msg
3757: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3820:
3821: BEGIN
3822:
3823: x_msg_count := 0;
3824: x_return_status := FND_API.G_RET_STS_SUCCESS;
3825: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3826: l_debug_mode := NVL(l_debug_mode, 'Y');
3827:
3828: -- Set curr function
4289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4290: l_msg_count := FND_MSG_PUB.count_msg;
4291: IF l_msg_count = 1 THEN
4292: PA_INTERFACE_UTILS_PUB.get_messages
4293: (p_encoded => FND_API.G_TRUE
4294: ,p_msg_index => 1
4295: ,p_msg_count => l_msg_count
4296: ,p_msg_data => l_msg_data
4297: ,p_data => l_data
4302: ELSE
4303: x_msg_count := l_msg_count;
4304: END IF;
4305:
4306: x_return_status := FND_API.G_RET_STS_ERROR;
4307:
4308: IF l_debug_mode = 'Y' THEN
4309: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4310: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4313: -- reset curr function
4314: pa_debug.reset_curr_function();
4315: RETURN;
4316: WHEN OTHERS THEN
4317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4318: x_msg_count := 1;
4319: x_msg_data := SQLERRM;
4320:
4321: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_upgrade_pkg'
4422: */
4423:
4424: BEGIN
4425: x_msg_count := 0;
4426: x_return_status := FND_API.G_RET_STS_SUCCESS;
4427: savepoint rollup_rejected_bl_amounts;
4428:
4429: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.rollup_rejected_bl_amounts');
4430:
4594: x_return_status => l_return_status,
4595: x_msg_count => l_msg_count,
4596: x_msg_data => l_msg_data);
4597:
4598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4599: THEN
4600: IF p_pa_debug_mode = 'Y' THEN
4601: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
4602: END IF;
4612: x_return_status => l_return_status,
4613: x_msg_count => l_msg_count,
4614: x_msg_data => l_msg_data);
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4617: THEN
4618: IF p_pa_debug_mode = 'Y' THEN
4619: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
4620: END IF;
4832: END IF;
4833: l_msg_count := FND_MSG_PUB.count_msg;
4834: IF l_msg_count = 1 THEN
4835: PA_INTERFACE_UTILS_PUB.get_messages
4836: (p_encoded => FND_API.G_TRUE
4837: ,p_msg_index => 1
4838: ,p_msg_count => l_msg_count
4839: ,p_msg_data => l_msg_data
4840: ,p_data => l_data
4849: IF p_pa_debug_mode = 'Y' THEN
4850: pa_debug.g_err_stage:='Invalid Arguments Passed';
4851: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4852: END IF;
4853: x_return_status:= FND_API.G_RET_STS_ERROR;
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4855: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4856: pa_debug.reset_err_stack;
4857: ROLLBACK TO rollup_rejected_bl_amounts;
4860:
4861: IF get_proj_bv_ids_for_rup%ISOPEN THEN
4862: CLOSE get_proj_bv_ids_for_rup;
4863: END IF;
4864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4865: x_msg_count := 1;
4866: x_msg_data := SQLERRM;
4867:
4868: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'