[Home] [Help]
48: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
49: x_error_msg_code OUT NOCOPY VARCHAR2) is --File.Sql.39 bug 4440895
50: l_record_version_number pa_budget_versions.record_version_number%TYPE;
51: begin
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: x_valid_flag := 'Y';
54: select
55: record_version_number
56: into
60: where
61: budget_version_id=p_unique_index;
62: /* compare results */
63: if p_record_version_number is NULL then
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65: return;
66: elsif p_record_version_number <> l_record_version_number then
67: x_valid_flag := 'N';
68: x_return_status := FND_API.G_RET_STS_ERROR;
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65: return;
66: elsif p_record_version_number <> l_record_version_number then
67: x_valid_flag := 'N';
68: x_return_status := FND_API.G_RET_STS_ERROR;
69: x_error_msg_code := 'PA_XC_RECORD_CHANGED';
70: return;
71: end if;
72: /*
71: end if;
72: /*
73: exception
74: when others then
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: x_msg_count := 1;
77: x_msg_data := SQLERRM;
78: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
79: p_procedure_name => 'Check_Record_Version_Number');
640: IF P_PA_DEBUG_MODE = 'Y' THEN
641: pa_debug.set_process('Get_Baselined_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
642: END IF;
643: x_msg_count := 0;
644: x_return_status := FND_API.G_RET_STS_SUCCESS;
645:
646: -- Check for business rules violations
647:
648: pa_debug.g_err_stage:='Validating input parameters';
786:
787: IF l_msg_count = 1 THEN
788:
789: PA_INTERFACE_UTILS_PUB.get_messages
790: (p_encoded => FND_API.G_TRUE
791: ,p_msg_index => 1
792: ,p_msg_count => l_msg_count
793: ,p_msg_data => l_msg_data
794: ,p_data => l_data
802: x_msg_count := l_msg_count;
803:
804: END IF;
805:
806: x_return_status := FND_API.G_RET_STS_ERROR;
807:
808: pa_debug.g_err_stage:='Invalid Arguments Passed';
809: IF P_PA_DEBUG_MODE = 'Y' THEN
810: pa_debug.write('Get_Baselined_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
813: RAISE;
814:
815: WHEN Others THEN
816:
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: x_msg_count := 1;
819: x_msg_data := SQLERRM;
820:
821: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
825: IF P_PA_DEBUG_MODE = 'Y' THEN
826: pa_debug.write('Get_Baselined_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
827: pa_debug.reset_err_stack;
828: END IF;
829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
830:
831:
832: END Get_Baselined_Version_Info;
833:
1115:
1116: exception
1117: when others then
1118: rollback;
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120:
1121: end Update_Txn_Currencies;
1122:
1123:
1166: IF P_PA_DEBUG_MODE = 'Y' THEN
1167: pa_debug.set_process('Get_Curr_Working_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
1168: END IF;
1169: x_msg_count := 0;
1170: x_return_status := FND_API.G_RET_STS_SUCCESS;
1171:
1172: -- Check for business rules violations
1173:
1174: pa_debug.g_err_stage:='Validating input parameters';
1312:
1313: IF l_msg_count = 1 THEN
1314:
1315: PA_INTERFACE_UTILS_PUB.get_messages
1316: (p_encoded => FND_API.G_TRUE
1317: ,p_msg_index => 1
1318: ,p_msg_count => l_msg_count
1319: ,p_msg_data => l_msg_data
1320: ,p_data => l_data
1328: x_msg_count := l_msg_count;
1329:
1330: END IF;
1331:
1332: x_return_status := FND_API.G_RET_STS_ERROR;
1333:
1334: pa_debug.g_err_stage:='Invalid Arguments Passed';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write('Get_Curr_Working_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1340: RAISE;
1341:
1342: WHEN Others THEN
1343:
1344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1345: x_msg_count := 1;
1346: x_msg_data := SQLERRM;
1347:
1348: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1353: pa_debug.write('Get_Curr_Working_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1354:
1355: pa_debug.reset_err_stack;
1356: END IF;
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358:
1359:
1360: END Get_Curr_Working_Version_Info;
1361:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.set_process('Get_Appr_Cost_Plan_Type_Info: ' || 'PLSQL','LOG',l_debug_mode);
1399: END IF;
1400: x_msg_count := 0;
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: -- Check for business rules violations
1404:
1405: pa_debug.g_err_stage:='Validating input parameters';
1470:
1471: IF l_msg_count = 1 THEN
1472:
1473: PA_INTERFACE_UTILS_PUB.get_messages
1474: (p_encoded => FND_API.G_TRUE
1475: ,p_msg_index => 1
1476: ,p_msg_count => l_msg_count
1477: ,p_msg_data => l_msg_data
1478: ,p_data => l_data
1486: x_msg_count := l_msg_count;
1487:
1488: END IF;
1489:
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491:
1492: pa_debug.g_err_stage:='Invalid Arguments Passed';
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: pa_debug.write('Get_Appr_Cost_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1498: RAISE;
1499:
1500: WHEN Others THEN
1501:
1502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1503: x_msg_count := 1;
1504: x_msg_data := SQLERRM;
1505:
1506: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1511: pa_debug.write('Get_Appr_Cost_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1512:
1513: pa_debug.reset_err_stack;
1514: END IF;
1515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1516:
1517: END Get_Appr_Cost_Plan_Type_Info;
1518:
1519: /*=============================================================================
1552: IF P_PA_DEBUG_MODE = 'Y' THEN
1553: pa_debug.set_process('Get_Appr_Rev_Plan_Type_Info: ' || 'PLSQL','LOG',l_debug_mode);
1554: END IF;
1555: x_msg_count := 0;
1556: x_return_status := FND_API.G_RET_STS_SUCCESS;
1557:
1558: -- Check for business rules violations
1559:
1560: pa_debug.g_err_stage:='Validating input parameters';
1624:
1625: IF l_msg_count = 1 THEN
1626:
1627: PA_INTERFACE_UTILS_PUB.get_messages
1628: (p_encoded => FND_API.G_TRUE
1629: ,p_msg_index => 1
1630: ,p_msg_count => l_msg_count
1631: ,p_msg_data => l_msg_data
1632: ,p_data => l_data
1640: x_msg_count := l_msg_count;
1641:
1642: END IF;
1643:
1644: x_return_status := FND_API.G_RET_STS_ERROR;
1645:
1646: pa_debug.g_err_stage:='Invalid Arguments Passed';
1647: IF P_PA_DEBUG_MODE = 'Y' THEN
1648: pa_debug.write('Get_Appr_Rev_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1652: RAISE;
1653:
1654: WHEN Others THEN
1655:
1656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1657: x_msg_count := 1;
1658: x_msg_data := SQLERRM;
1659:
1660: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1664: IF P_PA_DEBUG_MODE = 'Y' THEN
1665: pa_debug.write('Get_Appr_Rev_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1666: pa_debug.reset_err_stack;
1667: END IF;
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669:
1670: END Get_Appr_Rev_Plan_Type_Info;
1671:
1672: /*=================================================================================
1722: pa_debug.set_process('GET_OR_CREATE_AMOUNT_SET_ID: ' || 'PLSQL','LOG',l_debug_mode);
1723: END IF;
1724: x_message_count := 0;
1725:
1726: x_return_status := FND_API.G_RET_STS_SUCCESS;
1727:
1728:
1729: -- Check for business rules violations
1730:
2133:
2134: IF l_msg_count = 1 THEN
2135:
2136: PA_INTERFACE_UTILS_PUB.get_messages
2137: (p_encoded => FND_API.G_TRUE
2138: ,p_msg_index => 1
2139: ,p_msg_count => l_msg_count
2140: ,p_msg_data => l_msg_data
2141: ,p_data => l_data
2149: x_message_count := l_msg_count;
2150:
2151: END IF;
2152:
2153: x_return_status:= FND_API.G_RET_STS_ERROR;
2154:
2155: IF P_PA_DEBUG_MODE = 'Y' THEN
2156: pa_debug.reset_err_stack;
2157: END IF;
2158: rollback;
2159:
2160: WHEN Others THEN
2161:
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: x_message_count := 1;
2164: x_message_data := SQLERRM;
2165:
2166: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2172:
2173: pa_debug.reset_err_stack;
2174: END IF;
2175: rollback;
2176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2177:
2178: END GET_OR_CREATE_AMOUNT_SET_ID;
2179:
2180: /*=================================================================================
2218: pa_debug.set_process('GET_PLAN_AMOUNT_FLAGS: ' || 'PLSQL','LOG',l_debug_mode);
2219: END IF;
2220: x_message_count := 0;
2221:
2222: x_return_status := FND_API.G_RET_STS_SUCCESS;
2223:
2224:
2225: -- Check for business rules violations
2226:
2288:
2289: IF l_msg_count = 1 THEN
2290:
2291: PA_INTERFACE_UTILS_PUB.get_messages
2292: (p_encoded => FND_API.G_TRUE
2293: ,p_msg_index => 1
2294: ,p_msg_count => l_msg_count
2295: ,p_msg_data => l_msg_data
2296: ,p_data => l_data
2304: x_message_count := l_msg_count;
2305:
2306: END IF;
2307:
2308: x_return_status:= FND_API.G_RET_STS_ERROR;
2309:
2310: IF P_PA_DEBUG_MODE = 'Y' THEN
2311: pa_debug.reset_err_stack;
2312: END IF;
2313: RAISE;
2314:
2315: WHEN Others THEN
2316:
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: x_message_count := 1;
2319: x_message_data := SQLERRM;
2320:
2321: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2327:
2328: pa_debug.reset_err_stack;
2329: END IF;
2330: rollback;
2331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2332:
2333: END GET_PLAN_AMOUNT_FLAGS;
2334:
2335: /* =====================================================
2433:
2434: BEGIN
2435:
2436: x_msg_count := 0;
2437: x_return_status := FND_API.G_RET_STS_SUCCESS;
2438:
2439: IF P_PA_DEBUG_MODE = 'Y' THEN
2440: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Peceding_Suceeding_Prd_Info');
2441: END IF;
2493:
2494: IF l_msg_count = 1 THEN
2495:
2496: PA_INTERFACE_UTILS_PUB.get_messages
2497: (p_encoded => FND_API.G_TRUE
2498: ,p_msg_index => 1
2499: ,p_msg_count => l_msg_count
2500: ,p_msg_data => l_msg_data
2501: ,p_data => l_data
2514: IF P_PA_DEBUG_MODE = 'Y' THEN
2515: pa_debug.write('Get_Peceding_Suceeding_Pd_Info: ' || l_module_name,pa_debug.g_err_stage,5);
2516: END IF;
2517:
2518: x_return_status:= FND_API.G_RET_STS_ERROR;
2519:
2520: IF P_PA_DEBUG_MODE = 'Y' THEN
2521: pa_debug.reset_err_stack;
2522: END IF;
2523: RAISE;
2524:
2525: WHEN Others THEN
2526:
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: x_msg_count := 1;
2529: x_msg_data := SQLERRM;
2530:
2531: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2535: IF P_PA_DEBUG_MODE = 'Y' THEN
2536: pa_debug.write('Get_Peceding_Suceeding_Pd_Info: ' || l_module_name,pa_debug.g_err_stage,5);
2537: pa_debug.reset_err_stack;
2538: END IF;
2539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2540:
2541: END Get_Peceding_Suceeding_Pd_Info;
2542:
2543:
2573: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2574:
2575: BEGIN
2576: x_msg_count := 0;
2577: x_return_status := FND_API.G_RET_STS_SUCCESS;
2578:
2579: IF P_PA_DEBUG_MODE = 'Y' THEN
2580: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Element_Prj_Pf_Amounts');
2581: END IF;
2636: pa_debug.g_err_stage :='Invalid Combination of res. Assgnt Id and Txn currency code ';
2637: IF P_PA_DEBUG_MODE = 'Y' THEN
2638: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,1);
2639: END IF;
2640: x_return_status := FND_API.G_RET_STS_ERROR;
2641: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2642: p_msg_name => 'PA_BUDGET_LINE_NOT_FOUND' );
2643: RAISE PA_FP_ELEMENTS_PUB.Invalid_Arg_Exc;
2644:
2654:
2655: IF l_msg_count = 1 THEN
2656:
2657: PA_INTERFACE_UTILS_PUB.get_messages
2658: (p_encoded => FND_API.G_TRUE
2659: ,p_msg_index => 1
2660: ,p_msg_count => l_msg_count
2661: ,p_msg_data => l_msg_data
2662: ,p_data => l_data
2675: IF P_PA_DEBUG_MODE = 'Y' THEN
2676: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,5);
2677: END IF;
2678:
2679: x_return_status:= FND_API.G_RET_STS_ERROR;
2680:
2681: IF P_PA_DEBUG_MODE = 'Y' THEN
2682: pa_debug.reset_err_stack;
2683: END IF;
2684: RAISE;
2685:
2686: WHEN Others THEN
2687:
2688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2689: x_msg_count := 1;
2690: x_msg_data := SQLERRM;
2691:
2692: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2696: IF P_PA_DEBUG_MODE = 'Y' THEN
2697: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,5);
2698: pa_debug.reset_err_stack;
2699: END IF;
2700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2701:
2702: END Get_Element_Proj_PF_Amounts ;
2703:
2704: PROCEDURE Check_Version_Name_Or_id
2721: l_debug_mode VARCHAR2(1);
2722:
2723: BEGIN
2724: x_msg_count := 0;
2725: x_return_status := FND_API.G_RET_STS_SUCCESS;
2726: IF P_PA_DEBUG_MODE = 'Y' THEN
2727: pa_debug.init_err_stack ('pa_fin_plan_utils.check_version_name_or_id');
2728: END IF;
2729: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2746:
2747: END IF;
2748:
2749:
2750: IF p_budget_version_id IS NOT NULL AND p_budget_version_id <> FND_API.G_MISS_NUM THEN
2751: IF p_check_id_flag = 'Y' THEN
2752: SELECT budget_version_id
2753: INTO x_budget_version_id
2754: FROM pa_budget_versions
2766: ELSE
2767: x_budget_version_id := NULL;
2768: END IF;
2769: END IF;
2770: x_return_status := FND_API.G_RET_STS_SUCCESS;
2771: IF P_PA_DEBUG_MODE = 'Y' THEN
2772: pa_debug.reset_err_stack;
2773: END IF;
2774: EXCEPTION
2773: END IF;
2774: EXCEPTION
2775: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN -- Bug 2770562
2776:
2777: x_return_status := FND_API.G_RET_STS_ERROR;
2778: l_msg_count := FND_MSG_PUB.count_msg;
2779:
2780: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2781: PA_INTERFACE_UTILS_PUB.get_messages
2778: l_msg_count := FND_MSG_PUB.count_msg;
2779:
2780: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2781: PA_INTERFACE_UTILS_PUB.get_messages
2782: (p_encoded => FND_API.G_TRUE
2783: ,p_msg_index => 1
2784: ,p_msg_count => l_msg_count
2785: ,p_msg_data => l_msg_data
2786: ,p_data => l_data
2796: x_budget_version_id := null;
2797: RETURN;
2798:
2799: WHEN NO_DATA_FOUND THEN
2800: x_return_status := FND_API.G_RET_STS_ERROR;
2801: x_msg_count := 1;
2802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2803: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2804: x_budget_version_id := NULL;
2802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2803: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2804: x_budget_version_id := NULL;
2805: WHEN TOO_MANY_ROWS THEN
2806: x_return_status := FND_API.G_RET_STS_ERROR;
2807: x_msg_count := 1;
2808: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2809: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2810: x_budget_version_id := NULL;
2810: x_budget_version_id := NULL;
2811: WHEN OTHERS THEN
2812: FND_MSG_PUB.ADD_EXC_MSG (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2813: p_procedure_name => pa_debug.g_err_stack );
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: x_msg_data := SQLERRM;
2816: x_budget_version_id := NULL;
2817: RAISE;
2818: END Check_Version_Name_Or_Id;
2878: END IF;
2879: x_txn_currency_code := NULL;
2880: END IF;
2881: END IF;
2882: x_return_status := FND_API.G_RET_STS_SUCCESS;
2883: IF P_PA_DEBUG_MODE = 'Y' THEN
2884: pa_debug.reset_err_stack;
2885: END IF;
2886: EXCEPTION
2884: pa_debug.reset_err_stack;
2885: END IF;
2886: EXCEPTION
2887: WHEN NO_DATA_FOUND THEN
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: x_msg_count := 1;
2890: x_msg_data := 'PA_FP_CURR_INVALID';
2891: x_txn_currency_code := NULL;
2892: WHEN TOO_MANY_ROWS THEN
2889: x_msg_count := 1;
2890: x_msg_data := 'PA_FP_CURR_INVALID';
2891: x_txn_currency_code := NULL;
2892: WHEN TOO_MANY_ROWS THEN
2893: x_return_status := FND_API.G_RET_STS_ERROR;
2894: x_msg_count := 1;
2895: x_msg_data := 'PA_FP_CURR_INVALID';
2896: x_txn_currency_code := NULL;
2897: WHEN OTHERS THEN
2897: WHEN OTHERS THEN
2898: fnd_msg_pub.add_exc_msg
2899: (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2900: p_procedure_name => pa_debug.g_err_stack );
2901: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2902: x_txn_currency_code := NULL;
2903: RAISE;
2904: END Check_Currency_Name_Or_Code;
2905:
2931: BEGIN
2932: IF P_PA_DEBUG_MODE = 'Y' THEN
2933: pa_debug.init_err_stack ('pa_fin_plan_utils.check_task_name_or_id');
2934: END IF;
2935: if p_task_id is not null AND p_task_id <> FND_API.G_MISS_NUM then
2936: if p_check_id_flag = 'Y' then
2937: -- validate the id that was passed in
2938: select task_id
2939: into x_task_id
2954: else
2955: x_task_id := null;
2956: end if;
2957: end if; -- p_task_id is null
2958: x_return_status := FND_API.G_RET_STS_SUCCESS;
2959: IF P_PA_DEBUG_MODE = 'Y' THEN
2960: pa_debug.reset_err_stack;
2961: END IF;
2962: EXCEPTION
2961: END IF;
2962: EXCEPTION
2963: WHEN NO_DATA_FOUND THEN
2964: x_task_id := NULL;
2965: x_return_status := FND_API.G_RET_STS_ERROR;
2966: x_msg_count := 1;
2967: x_error_msg := 'PA_FP_TASK_NAME_AMBIGUOUS';
2968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2969: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2969: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2970: if x_msg_count = 1 then
2971: PA_INTERFACE_UTILS_PUB.get_messages
2972: (p_encoded => FND_API.G_TRUE,
2973: p_msg_index => 1,
2974: p_data => x_error_msg,
2975: p_msg_index_out => l_msg_index_out);
2976: end if;
2975: p_msg_index_out => l_msg_index_out);
2976: end if;
2977: WHEN TOO_MANY_ROWS THEN
2978: x_task_id := NULL;
2979: x_return_status := FND_API.G_RET_STS_ERROR;
2980: x_msg_count := 1;
2981: x_error_msg := 'PA_FP_TASK_NAME_AMBIGUOUS';
2982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2983: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2983: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2984: if x_msg_count = 1 then
2985: PA_INTERFACE_UTILS_PUB.get_messages
2986: (p_encoded => FND_API.G_TRUE,
2987: p_msg_index => 1,
2988: p_data => x_error_msg,
2989: p_msg_index_out => l_msg_index_out);
2990: end if;
2989: p_msg_index_out => l_msg_index_out);
2990: end if;
2991: WHEN OTHERS THEN
2992: x_task_id := NULL;
2993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2994: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
2995: p_procedure_name => 'check_task_name_or_id');
2996: RAISE;
2997: END check_task_name_or_id;
3019: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_gp_name_or_id');
3020: END IF;
3021: raise Invalid_Call_Exc; /* Changes for FP.M, Tracking Bug No - 3354518 */
3022: /*** bug 3683382 this piece code would never be executed as there is a immediate raise
3023: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3024: if p_check_id_flag = 'Y' then
3025: -- validate the id that was passed in
3026: select resource_list_member_id
3027: into x_resource_id
3045: x_resource_id := null;
3046: end if;
3047: end if; -- p_resource_id is null
3048: bug 3683382 ***/
3049: x_return_status := FND_API.G_RET_STS_SUCCESS;
3050: IF P_PA_DEBUG_MODE = 'Y' THEN
3051: pa_debug.reset_err_stack;
3052: END IF;
3053: EXCEPTION
3052: END IF;
3053: EXCEPTION
3054: WHEN NO_DATA_FOUND THEN
3055: x_resource_id := NULL;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: x_msg_count := 1;
3058: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3059: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3060: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3059: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3060: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3061: if x_msg_count = 1 then
3062: PA_INTERFACE_UTILS_PUB.get_messages
3063: (p_encoded => FND_API.G_TRUE,
3064: p_msg_index => 1,
3065: p_data => x_error_msg,
3066: p_msg_index_out => l_msg_index_out);
3067: end if;
3066: p_msg_index_out => l_msg_index_out);
3067: end if;
3068: WHEN TOO_MANY_ROWS THEN
3069: x_resource_id := NULL;
3070: x_return_status := FND_API.G_RET_STS_ERROR;
3071: x_msg_count := 1;
3072: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3073: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3074: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3073: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3074: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3075: if x_msg_count = 1 then
3076: PA_INTERFACE_UTILS_PUB.get_messages
3077: (p_encoded => FND_API.G_TRUE,
3078: p_msg_index => 1,
3079: p_data => x_error_msg,
3080: p_msg_index_out => l_msg_index_out);
3081: end if;
3080: p_msg_index_out => l_msg_index_out);
3081: end if;
3082: WHEN Invalid_Call_Exc THEN /* Changes for FP.M, Tracking Bug No - 3354518, Adding Exception handling block for Invalid_Call_Exc */
3083: x_resource_id := NULL;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3085: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3086: p_procedure_name => 'check_resource_gp_name_or_id');
3087: RAISE;
3088: WHEN OTHERS THEN
3086: p_procedure_name => 'check_resource_gp_name_or_id');
3087: RAISE;
3088: WHEN OTHERS THEN
3089: x_resource_id := NULL;
3090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3091: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3092: p_procedure_name => 'check_resource_gp_name_or_id');
3093: RAISE;
3094: END check_resource_gp_name_or_id;
3106: BEGIN
3107: IF P_PA_DEBUG_MODE = 'Y' THEN
3108: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_name_or_id');
3109: END IF;
3110: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3111: if p_check_id_flag = 'Y' then
3112: -- validate the id that was passed in
3113: select resource_id
3114: into x_resource_id
3128: else
3129: x_resource_id := null;
3130: end if;
3131: end if; -- p_resource_id is null
3132: x_return_status := FND_API.G_RET_STS_SUCCESS;
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: pa_debug.reset_err_stack;
3135: END IF;
3136: EXCEPTION
3135: END IF;
3136: EXCEPTION
3137: WHEN NO_DATA_FOUND THEN
3138: x_resource_id := NULL;
3139: x_return_status := FND_API.G_RET_STS_ERROR;
3140: x_msg_count := 1;
3141: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3142: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3143: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3142: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3143: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3144: if x_msg_count = 1 then
3145: PA_INTERFACE_UTILS_PUB.get_messages
3146: (p_encoded => FND_API.G_TRUE,
3147: p_msg_index => 1,
3148: p_data => x_error_msg,
3149: p_msg_index_out => l_msg_index_out);
3150: end if;
3149: p_msg_index_out => l_msg_index_out);
3150: end if;
3151: WHEN TOO_MANY_ROWS THEN
3152: x_resource_id := NULL;
3153: x_return_status := FND_API.G_RET_STS_ERROR;
3154: x_msg_count := 1;
3155: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3156: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3157: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3156: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3157: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3158: if x_msg_count = 1 then
3159: PA_INTERFACE_UTILS_PUB.get_messages
3160: (p_encoded => FND_API.G_TRUE,
3161: p_msg_index => 1,
3162: p_data => x_error_msg,
3163: p_msg_index_out => l_msg_index_out);
3164: end if;
3163: p_msg_index_out => l_msg_index_out);
3164: end if;
3165: WHEN OTHERS THEN
3166: x_resource_id := NULL;
3167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3168: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3169: p_procedure_name => 'check_resource_name_or_id');
3170: RAISE;
3171: END check_resource_name_or_id;
3320: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_utils';
3321:
3322: BEGIN
3323: x_msg_count := 0;
3324: x_return_status := FND_API.G_RET_STS_SUCCESS;
3325: IF P_PA_DEBUG_MODE = 'Y' THEN
3326: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3327: END IF;
3328: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3348: END IF;
3349: if l_person_id is null then
3350: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3351: p_msg_name => 'PA_FP_BAD_USER_ID');
3352: x_return_status := FND_API.G_RET_STS_ERROR;
3353: end if; -- error with p_user_id
3354:
3355: -- Check for VALID BUDGET VERSION ID
3356: IF P_PA_DEBUG_MODE = 'Y' THEN
3365: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3366: END IF;
3367: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3368: p_msg_name => 'PA_FP_INVALID_PLAN_VERSION');
3369: x_return_status := FND_API.G_RET_STS_ERROR;
3370: end if; -- invalid budget_version_id
3371: close budget_csr;
3372:
3373: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3371: close budget_csr;
3372:
3373: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3374: l_msg_count := FND_MSG_PUB.count_msg;
3375: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3376: IF P_PA_DEBUG_MODE = 'Y' THEN
3377: pa_debug.g_err_stage := 'l_msg_count = ' || l_msg_count;
3378: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3379: END IF;
3376: IF P_PA_DEBUG_MODE = 'Y' THEN
3377: pa_debug.g_err_stage := 'l_msg_count = ' || l_msg_count;
3378: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3379: END IF;
3380: x_return_status := FND_API.G_RET_STS_ERROR;
3381: if l_msg_count = 1 then
3382: PA_INTERFACE_UTILS_PUB.get_messages
3383: (p_encoded => FND_API.G_TRUE,
3384: p_msg_index => 1,
3379: END IF;
3380: x_return_status := FND_API.G_RET_STS_ERROR;
3381: if l_msg_count = 1 then
3382: PA_INTERFACE_UTILS_PUB.get_messages
3383: (p_encoded => FND_API.G_TRUE,
3384: p_msg_index => 1,
3385: p_msg_count => l_msg_count,
3386: p_msg_data => l_msg_data,
3387: p_data => l_data,
3438: pa_debug.reset_err_stack;
3439: END IF;
3440: EXCEPTION
3441: WHEN OTHERS THEN
3442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3444: p_procedure_name => 'Check_Locked_By_User');
3445: IF P_PA_DEBUG_MODE = 'Y' THEN
3446: pa_debug.reset_err_stack;
3478: l_msg_index_out NUMBER;
3479:
3480: BEGIN
3481: x_msg_count := 0;
3482: x_return_status := FND_API.G_RET_STS_SUCCESS;
3483: IF P_PA_DEBUG_MODE = 'Y' THEN
3484: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3485: END IF;
3486: pa_fin_plan_utils.Check_Locked_By_User
3490: x_locked_by_person_id => l_locked_by_person_id,
3491: x_return_status => l_return_status,
3492: x_msg_count => l_msg_count,
3493: x_msg_data => l_msg_data);
3494: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3495: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3496: end if;
3497:
3498: pa_fin_plan_utils.Check_Locked_By_User
3502: x_locked_by_person_id => l_locked_by_person_id,
3503: x_return_status => l_return_status,
3504: x_msg_count => l_msg_count,
3505: x_msg_data => l_msg_data);
3506: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3507: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3508: end if;
3509:
3510: if l_is_locked_by_userid1 = 'Y' and l_is_locked_by_userid2 = 'Y' then
3516: pa_debug.reset_err_stack;
3517: END IF;
3518: EXCEPTION
3519: WHEN pa_fin_plan_utils.Check_Locked_By_User_Exception THEN
3520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3521: IF P_PA_DEBUG_MODE = 'Y' THEN
3522: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3523: END IF;
3524: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3523: END IF;
3524: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3525: p_procedure_name => 'Check_Both_Locked_By_User');
3526: WHEN OTHERS THEN
3527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3528: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3529: p_procedure_name => 'Check_Both_Locked_By_User');
3530: RAISE;
3531:
3652: l_debug_mode VARCHAR2(30);
3653:
3654: BEGIN
3655: x_msg_count := 0;
3656: x_return_status := FND_API.G_RET_STS_SUCCESS;
3657:
3658: IF P_PA_DEBUG_MODE = 'Y' THEN
3659: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3660: END IF;
3705:
3706: IF l_msg_count = 1 THEN
3707:
3708: PA_INTERFACE_UTILS_PUB.get_messages
3709: (p_encoded => FND_API.G_TRUE
3710: ,p_msg_index => 1
3711: ,p_msg_count => l_msg_count
3712: ,p_msg_data => l_msg_data
3713: ,p_data => l_data
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3728: END IF;
3729:
3730: x_return_status:= FND_API.G_RET_STS_ERROR;
3731:
3732: IF P_PA_DEBUG_MODE = 'Y' THEN
3733: pa_debug.reset_err_stack;
3734: END IF;
3735: RAISE;
3736:
3737: WHEN Others THEN
3738:
3739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3740: x_msg_count := 1;
3741: x_msg_data := SQLERRM;
3742:
3743: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3748: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3749:
3750: pa_debug.reset_err_stack;
3751: END IF;
3752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3753:
3754:
3755: END Get_Resource_List_Info ;
3756:
3782: l_debug_mode VARCHAR2(30);
3783:
3784: BEGIN
3785: x_msg_count := 0;
3786: x_return_status := FND_API.G_RET_STS_SUCCESS;
3787:
3788: IF P_PA_DEBUG_MODE = 'Y' THEN
3789: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3790: END IF;
3841:
3842: IF l_msg_count = 1 THEN
3843:
3844: PA_INTERFACE_UTILS_PUB.get_messages
3845: (p_encoded => FND_API.G_TRUE
3846: ,p_msg_index => 1
3847: ,p_msg_count => l_msg_count
3848: ,p_msg_data => l_msg_data
3849: ,p_data => l_data
3862: IF P_PA_DEBUG_MODE = 'Y' THEN
3863: pa_debug.write('Get_Resource_List_Info(Overloaded): ' || l_module_name,pa_debug.g_err_stage,5);
3864: END IF;
3865:
3866: x_return_status:= FND_API.G_RET_STS_ERROR;
3867:
3868: IF P_PA_DEBUG_MODE = 'Y' THEN
3869: pa_debug.reset_err_stack;
3870: END IF;
3871: RAISE;
3872:
3873: WHEN Others THEN
3874:
3875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3876: x_msg_count := 1;
3877: x_msg_data := SQLERRM;
3878:
3879: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3883: IF P_PA_DEBUG_MODE = 'Y' THEN
3884: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3885: pa_debug.reset_err_stack;
3886: END IF;
3887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3888:
3889:
3890: END Get_Resource_List_Info ;
3891:
3914: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3915: END IF;
3916:
3917: x_msg_count := 0;
3918: x_return_status := FND_API.G_RET_STS_SUCCESS;
3919:
3920: IF P_PA_DEBUG_MODE = 'Y' THEN
3921: pa_debug.g_err_stage:='Executing the uncat res list info select...';
3922: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4040: IF P_PA_DEBUG_MODE = 'Y' THEN
4041: pa_debug.set_process('Is_AC_PT_Attached_After_UPG: ' || 'PLSQL','LOG',l_debug_mode);
4042: END IF;
4043: x_msg_count := 0;
4044: x_return_status := FND_API.G_RET_STS_SUCCESS;
4045:
4046: -- Check for business rules violations
4047:
4048: pa_debug.g_err_stage:='Validating input parameters';
4134:
4135: IF l_msg_count = 1 THEN
4136:
4137: PA_INTERFACE_UTILS_PUB.get_messages
4138: (p_encoded => FND_API.G_TRUE
4139: ,p_msg_index => 1
4140: ,p_msg_count => l_msg_count
4141: ,p_msg_data => l_msg_data
4142: ,p_data => l_data
4150: x_msg_count := l_msg_count;
4151:
4152: END IF;
4153:
4154: x_return_status := FND_API.G_RET_STS_ERROR;
4155:
4156: pa_debug.g_err_stage:='Invalid Arguments Passed';
4157: IF P_PA_DEBUG_MODE = 'Y' THEN
4158: pa_debug.write('Is_AC_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4161: RAISE;
4162:
4163: WHEN Others THEN
4164:
4165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4166: x_msg_count := 1;
4167: x_msg_data := SQLERRM;
4168:
4169: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4173: IF P_PA_DEBUG_MODE = 'Y' THEN
4174: pa_debug.write('Is_AC_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4175: pa_debug.reset_err_stack;
4176: END IF;
4177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4178:
4179: END Is_AC_PT_Attached_After_UPG;
4180:
4181:
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Is_AR_PT_Attached_After_UPG: ' || 'PLSQL','LOG',l_debug_mode);
4224: END IF;
4225: x_msg_count := 0;
4226: x_return_status := FND_API.G_RET_STS_SUCCESS;
4227:
4228: -- Check for business rules violations
4229:
4230: pa_debug.g_err_stage:='Validating input parameters';
4316:
4317: IF l_msg_count = 1 THEN
4318:
4319: PA_INTERFACE_UTILS_PUB.get_messages
4320: (p_encoded => FND_API.G_TRUE
4321: ,p_msg_index => 1
4322: ,p_msg_count => l_msg_count
4323: ,p_msg_data => l_msg_data
4324: ,p_data => l_data
4332: x_msg_count := l_msg_count;
4333:
4334: END IF;
4335:
4336: x_return_status := FND_API.G_RET_STS_ERROR;
4337:
4338: pa_debug.g_err_stage:='Invalid Arguments Passed';
4339: IF P_PA_DEBUG_MODE = 'Y' THEN
4340: pa_debug.write('Is_AR_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4344: RAISE;
4345:
4346: WHEN Others THEN
4347:
4348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4349: x_msg_count := 1;
4350: x_msg_data := SQLERRM;
4351:
4352: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4357: pa_debug.write('Is_AR_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4358:
4359: pa_debug.reset_err_stack;
4360: END IF;
4361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4362:
4363: END Is_AR_PT_Attached_After_UPG;
4364:
4365: /*=============================================================================
4403: pa_debug.set_curr_function( p_function =>'Get_Max_Budget_Version_Number',
4404: p_debug_mode => l_debug_mode);
4405: END IF;
4406: x_msg_count := 0;
4407: x_return_status := FND_API.G_RET_STS_SUCCESS;
4408:
4409: -- Check for NOT NULL parameters
4410:
4411: IF (p_project_id IS NULL) OR
4530:
4531: l_msg_count := FND_MSG_PUB.count_msg;
4532: IF l_msg_count = 1 THEN
4533: PA_INTERFACE_UTILS_PUB.get_messages
4534: (p_encoded => FND_API.G_TRUE
4535: ,p_msg_index => 1
4536: ,p_msg_count => l_msg_count
4537: ,p_msg_data => l_msg_data
4538: ,p_data => l_data
4541: x_msg_count := l_msg_count;
4542: ELSE
4543: x_msg_count := l_msg_count;
4544: END IF;
4545: x_return_status := FND_API.G_RET_STS_ERROR;
4546: pa_debug.g_err_stage:='Invalid Arguments Passed';
4547: IF P_PA_DEBUG_MODE = 'Y' THEN
4548: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4549: pa_debug.reset_curr_function;
4551: RETURN;
4552:
4553: WHEN Others THEN
4554:
4555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4556: x_msg_count := 1;
4557: x_msg_data := SQLERRM;
4558: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4559: ,p_procedure_name => 'Get_Budget_Version_Number');
4561: IF P_PA_DEBUG_MODE = 'Y' THEN
4562: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4563: pa_debug.reset_curr_function;
4564: END IF;
4565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4566:
4567: END Get_Max_Budget_Version_Number;
4568:
4569: FUNCTION get_period_start_date (p_input_date IN pa_periods_all.start_date%TYPE,
4673:
4674: BEGIN
4675:
4676: x_msg_count := 0;
4677: x_return_status := FND_API.G_RET_STS_SUCCESS;
4678: IF P_PA_DEBUG_MODE = 'Y' THEN
4679: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_COST_BASE_VERSION_INFO');
4680: END IF;
4681: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4762: ,x_msg_data => x_msg_data );
4763:
4764: IF x_budget_version_id IS NULL
4765: THEN
4766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4767: x_msg_count := 1;
4768: x_msg_data := 'PA_BU_CORE_NO_VERSION_ID';
4769: END IF;
4770:
4782: --Initialise the out parameters
4783:
4784: IF l_err_code <> 0
4785: THEN
4786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4787: x_msg_count := 1;
4788: x_msg_data := l_err_stage;
4789: END IF;
4790: END IF;
4801:
4802: l_msg_count := FND_MSG_PUB.count_msg;
4803: IF l_msg_count = 1 THEN
4804: PA_INTERFACE_UTILS_PUB.get_messages
4805: (p_encoded => FND_API.G_TRUE
4806: ,p_msg_index => 1
4807: ,p_msg_count => l_msg_count
4808: ,p_msg_data => l_msg_data
4809: ,p_data => l_data
4818: IF P_PA_DEBUG_MODE = 'Y' THEN
4819: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4820: END IF;
4821:
4822: x_return_status := FND_API.G_RET_STS_ERROR;
4823: IF P_PA_DEBUG_MODE = 'Y' THEN
4824: pa_debug.reset_err_stack;
4825: END IF;
4826: WHEN others THEN
4824: pa_debug.reset_err_stack;
4825: END IF;
4826: WHEN others THEN
4827:
4828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4829: x_msg_count := 1;
4830: x_msg_data := SQLERRM;
4831: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4832: ,p_procedure_name => 'GET_COST_BASE_VERSION_INFO');
4873:
4874: BEGIN
4875:
4876: x_msg_count := 0;
4877: x_return_status := FND_API.G_RET_STS_SUCCESS;
4878: IF P_PA_DEBUG_MODE = 'Y' THEN
4879: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_REV_BASE_VERSION_INFO');
4880: END IF;
4881: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4963: ,x_msg_data => x_msg_data );
4964:
4965: IF x_budget_version_id IS NULL
4966: THEN
4967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4968: x_msg_count := 1;
4969: x_msg_data := 'PA_BU_CORE_NO_VERSION_ID';
4970: END IF;
4971:
4984: --Initialise the out parameters
4985:
4986: IF l_err_code <> 0
4987: THEN
4988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4989: x_msg_count := 1;
4990: x_msg_data := l_err_stage;
4991: END IF;
4992: END IF;
5003:
5004: l_msg_count := FND_MSG_PUB.count_msg;
5005: IF l_msg_count = 1 THEN
5006: PA_INTERFACE_UTILS_PUB.get_messages
5007: (p_encoded => FND_API.G_TRUE
5008: ,p_msg_index => 1
5009: ,p_msg_count => l_msg_count
5010: ,p_msg_data => l_msg_data
5011: ,p_data => l_data
5020: IF P_PA_DEBUG_MODE = 'Y' THEN
5021: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5022: END IF;
5023:
5024: x_return_status := FND_API.G_RET_STS_ERROR;
5025: IF P_PA_DEBUG_MODE = 'Y' THEN
5026: pa_debug.reset_err_stack;
5027: END IF;
5028: WHEN others THEN
5026: pa_debug.reset_err_stack;
5027: END IF;
5028: WHEN others THEN
5029:
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5031: x_msg_count := 1;
5032: x_msg_data := SQLERRM;
5033: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5034: ,p_procedure_name => 'GET_REV_BASE_VERSION_INFO');
5100:
5101: BEGIN
5102:
5103: x_msg_count := 0;
5104: x_return_status := FND_API.G_RET_STS_SUCCESS;
5105: IF P_PA_DEBUG_MODE = 'Y' THEN
5106: pa_debug.set_err_stack('PA_FIN_PLAN_UITLS.get_converted_amounts');
5107: END IF;
5108: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5179: ,x_return_status => x_return_status
5180: ,x_msg_count => x_msg_count
5181: ,x_msg_data => x_msg_data );
5182:
5183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5184: RETURN;
5185: END IF;
5186:
5187: SELECT PROJFUNC_RAW_COST,
5208: EXCEPTION
5209:
5210: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5211:
5212: x_return_status := FND_API.G_RET_STS_ERROR;
5213: l_msg_count := FND_MSG_PUB.count_msg;
5214: IF l_msg_count = 1 THEN
5215: PA_INTERFACE_UTILS_PUB.get_messages
5216: (p_encoded => FND_API.G_TRUE
5212: x_return_status := FND_API.G_RET_STS_ERROR;
5213: l_msg_count := FND_MSG_PUB.count_msg;
5214: IF l_msg_count = 1 THEN
5215: PA_INTERFACE_UTILS_PUB.get_messages
5216: (p_encoded => FND_API.G_TRUE
5217: ,p_msg_index => 1
5218: ,p_msg_count => l_msg_count
5219: ,p_msg_data => l_msg_data
5220: ,p_data => l_data
5233: RAISE;
5234:
5235: WHEN others THEN
5236:
5237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5238: x_msg_count := 1;
5239: x_msg_data := SQLERRM;
5240: FND_MSG_PUB.add_exc_msg
5241: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5498:
5499: BEGIN
5500:
5501: x_msg_count := 0;
5502: x_return_status := FND_API.G_RET_STS_SUCCESS;
5503: IF P_PA_DEBUG_MODE = 'Y' THEN
5504: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Period_Details');
5505: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5506: END IF;
5570: EXCEPTION
5571:
5572: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5573:
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: l_msg_count := FND_MSG_PUB.count_msg;
5576: IF l_msg_count = 1 THEN
5577: PA_INTERFACE_UTILS_PUB.get_messages
5578: (p_encoded => FND_API.G_TRUE
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: l_msg_count := FND_MSG_PUB.count_msg;
5576: IF l_msg_count = 1 THEN
5577: PA_INTERFACE_UTILS_PUB.get_messages
5578: (p_encoded => FND_API.G_TRUE
5579: ,p_msg_index => 1
5580: ,p_msg_count => l_msg_count
5581: ,p_msg_data => l_msg_data
5582: ,p_data => l_data
5592: RAISE;
5593:
5594: WHEN others THEN
5595:
5596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5597: x_msg_count := 1;
5598: x_msg_data := SQLERRM;
5599: FND_MSG_PUB.add_exc_msg
5600: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5647: l_end_date pa_periods.end_date%TYPE;
5648:
5649: BEGIN
5650: x_msg_count := 0;
5651: x_return_status := FND_API.G_RET_STS_SUCCESS;
5652: IF P_PA_DEBUG_MODE = 'Y' THEN
5653: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Shifted_Period');
5654: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5655: END IF;
5683: ,x_return_status => l_return_status
5684: ,x_msg_count => l_msg_count
5685: ,x_msg_data => l_msg_data );
5686:
5687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5688: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5689: END IF;
5690:
5691: IF p_plan_period_type = 'PA' THEN
5829: EXCEPTION
5830:
5831: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5832:
5833: x_return_status := FND_API.G_RET_STS_ERROR;
5834: l_msg_count := FND_MSG_PUB.count_msg;
5835: IF l_msg_count = 1 THEN
5836: PA_INTERFACE_UTILS_PUB.get_messages
5837: (p_encoded => FND_API.G_TRUE
5833: x_return_status := FND_API.G_RET_STS_ERROR;
5834: l_msg_count := FND_MSG_PUB.count_msg;
5835: IF l_msg_count = 1 THEN
5836: PA_INTERFACE_UTILS_PUB.get_messages
5837: (p_encoded => FND_API.G_TRUE
5838: ,p_msg_index => 1
5839: ,p_msg_count => l_msg_count
5840: ,p_msg_data => l_msg_data
5841: ,p_data => l_data
5852: RAISE;
5853:
5854: WHEN others THEN
5855:
5856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5857: x_msg_count := 1;
5858: x_msg_data := SQLERRM;
5859: FND_MSG_PUB.add_exc_msg
5860: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6173:
6174: BEGIN
6175:
6176: x_msg_count := 0;
6177: x_return_status := FND_API.G_RET_STS_SUCCESS;
6178: IF P_PA_DEBUG_MODE = 'Y' THEN
6179: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.validate_input_params');
6180: END IF;
6181: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6227:
6228: EXCEPTION
6229:
6230: WHEN NO_DATA_FOUND THEN
6231: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6232: PA_UTILS.add_message
6233: (p_app_short_name => 'PA',
6234: p_msg_name => 'PA_FP_INCORRECT_RATE_TYPE_AMG',
6235: p_token1 => 'TASK',
6285:
6286: EXCEPTION
6287:
6288: WHEN NO_DATA_FOUND THEN
6289: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6290: PA_UTILS.add_message
6291: (p_app_short_name => 'PA',
6292: p_msg_name => 'PA_FP_INVALID_RATE_DT_TYPE_AMG',
6293: p_token1 => 'TASK',
6308: END IF;
6309: EXCEPTION
6310:
6311: WHEN OTHERS THEN
6312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6313: x_msg_count := 1;
6314: x_msg_data := SQLERRM;
6315:
6316: FND_MSG_PUB.add_exc_msg
6359: l_debug_mode VARCHAR2(30);
6360:
6361: BEGIN
6362: x_msg_count := 0;
6363: x_return_status := FND_API.G_RET_STS_SUCCESS;
6364: IF P_PA_DEBUG_MODE = 'Y' THEN
6365: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CONV_ATTRIBUTES');
6366: END IF;
6367: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6388: IF(p_calling_context=PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE) THEN
6389: /* Do Nothing as this will be checked in validate_currency_attributes */
6390: NULL;
6391: ELSE
6392: x_return_status := FND_API.G_RET_STS_ERROR;
6393: /*PA_UTILS.ADD_MESSAGE
6394: (p_app_short_name => 'PA',
6395: p_msg_name => 'PA_FP_RATE_TYPE_REQ');
6396: */
6438: pa_debug.g_err_stage:='Rate Type is Null';
6439: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6440: END IF;
6441:
6442: x_return_status := FND_API.G_RET_STS_ERROR;
6443: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6444:
6445: PA_UTILS.ADD_MESSAGE
6446: (p_app_short_name => 'PA',
6482: ,PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER) )THEN
6483:
6484: /* on create update plan type it is allowed that when rate type is user there is no rate defined
6485: */
6486: x_return_status := FND_API.G_RET_STS_ERROR;
6487:
6488: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6489: PA_UTILS.ADD_MESSAGE
6490: (p_app_short_name => 'PA',
6537: pa_debug.g_err_stage:='Rate Date Type is Null';
6538: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6539: END IF;
6540:
6541: x_return_status := FND_API.G_RET_STS_ERROR;
6542: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6543:
6544: PA_UTILS.ADD_MESSAGE
6545: (p_app_short_name => 'PA',
6579:
6580: /* Rate Date Should not be null */
6581: IF (px_rate_date IS NULL) THEN
6582:
6583: x_return_status := FND_API.G_RET_STS_ERROR;
6584: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6585: PA_UTILS.ADD_MESSAGE
6586: (p_app_short_name => 'PA',
6587: p_msg_name => 'PA_FP_INVALID_RATE_DATE_AMG',
6631: pa_debug.reset_err_stack;
6632: END IF;
6633: EXCEPTION
6634: WHEN OTHERS THEN
6635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6636: x_msg_count := 1;
6637: x_msg_data := SQLERRM;
6638:
6639: FND_MSG_PUB.add_exc_msg
6713: l_first_error_code VARCHAR2(30); /* used for webADI */
6714:
6715: BEGIN
6716: x_msg_count := 0;
6717: x_return_status := FND_API.G_RET_STS_SUCCESS;
6718: IF P_PA_DEBUG_MODE = 'Y' THEN
6719: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CURRENCY_ATTRIBUTES');
6720: END IF;
6721: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6791: ,x_msg_count => x_msg_count
6792: ,x_msg_data => x_msg_data);
6793:
6794: /* Throw the error if the above API is not successfully executed */
6795: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6796:
6797: IF l_debug_mode = 'Y' THEN
6798: pa_debug.g_err_stage := 'Values for rate type and rate date types are not valied' ;
6799: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,1);
6836: ,x_return_status => x_return_status
6837: ,x_msg_count => x_msg_count
6838: ,x_msg_data => x_msg_data);
6839:
6840: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6841: IF l_debug_mode = 'Y' THEN
6842: pa_debug.g_err_stage := 'failed for PFC COST attributes' ;
6843: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6844: END IF;
6878: ,x_return_status => x_return_status
6879: ,x_msg_count => x_msg_count
6880: ,x_msg_data => x_msg_data);
6881:
6882: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6883: IF l_debug_mode = 'Y' THEN
6884: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6885: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6886: END IF;
6929: ,x_first_error_code => l_first_error_code
6930: ,x_return_status => x_return_status
6931: ,x_msg_count => x_msg_count
6932: ,x_msg_data => x_msg_data);
6933: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6934: IF l_debug_mode = 'Y' THEN
6935: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6936: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6937: END IF;
6970: ,x_return_status => x_return_status
6971: ,x_msg_count => x_msg_count
6972: ,x_msg_data => x_msg_data);
6973:
6974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6975: IF l_debug_mode = 'Y' THEN
6976: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6977: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6978: END IF;
7022:
7023: IF(l_pfc_cost_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7024: nvl(l_pc_cost_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7025:
7026: x_return_status := FND_API.G_RET_STS_ERROR;
7027: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7028: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7029: p_token1 => 'COST_REV',
7030: p_value1 => l_cost_token,
7033:
7034: ELSIF(l_pc_cost_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7035: nvl(l_pfc_cost_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ') THEN
7036:
7037: x_return_status := FND_API.G_RET_STS_ERROR;
7038: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7039: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7040: p_token1 => 'COST_REV',
7041: p_value1 => l_cost_token,
7049:
7050: IF(l_pfc_rev_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7051: nvl(l_pc_rev_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7052:
7053: x_return_status := FND_API.G_RET_STS_ERROR;
7054: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7055: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7056: p_token1 => 'COST_REV',
7057: p_value1 => l_rev_token,
7060:
7061: ELSIF(l_pc_rev_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7062: nvl(l_pfc_rev_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7063:
7064: x_return_status := FND_API.G_RET_STS_ERROR;
7065: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7066: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7067: p_token1 => 'COST_REV',
7068: p_value1 => l_rev_token,
7078: pa_debug.g_err_stage:= 'some of the conversion attributes failed.. Returning error';
7079: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7080: END IF;
7081:
7082: x_return_status := FND_API.G_RET_STS_ERROR;
7083: END IF;
7084:
7085: IF l_debug_mode='Y' THEN
7086: pa_debug.g_err_stage:= 'Exiting validate_currency_attributes';
7090: pa_debug.reset_err_stack;
7091: END IF;
7092: EXCEPTION
7093: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7094: x_return_status := FND_API.G_RET_STS_ERROR;
7095: l_msg_count := FND_MSG_PUB.count_msg;
7096: IF l_msg_count = 1 THEN
7097: PA_INTERFACE_UTILS_PUB.get_messages
7098: (p_encoded => FND_API.G_TRUE,
7094: x_return_status := FND_API.G_RET_STS_ERROR;
7095: l_msg_count := FND_MSG_PUB.count_msg;
7096: IF l_msg_count = 1 THEN
7097: PA_INTERFACE_UTILS_PUB.get_messages
7098: (p_encoded => FND_API.G_TRUE,
7099: p_msg_index => 1,
7100: p_msg_count => l_msg_count,
7101: p_msg_data => l_msg_data,
7102: p_data => l_data,
7112: END IF;
7113: RETURN;
7114:
7115: WHEN OTHERS THEN
7116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7117: x_msg_count := 1;
7118: x_msg_data := SQLERRM;
7119:
7120: FND_MSG_PUB.add_exc_msg
7165:
7166: BEGIN
7167:
7168: x_msg_count := 0;
7169: x_return_status := FND_API.G_RET_STS_SUCCESS;
7170: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER');
7173: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7232: EXCEPTION
7233:
7234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7235:
7236: x_return_status := FND_API.G_RET_STS_ERROR;
7237: l_msg_count := FND_MSG_PUB.count_msg;
7238:
7239: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7240: PA_INTERFACE_UTILS_PUB.get_messages
7237: l_msg_count := FND_MSG_PUB.count_msg;
7238:
7239: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7240: PA_INTERFACE_UTILS_PUB.get_messages
7241: (p_encoded => FND_API.G_TRUE
7242: ,p_msg_index => 1
7243: ,p_msg_count => l_msg_count
7244: ,p_msg_data => l_msg_data
7245: ,p_data => l_data
7255: RETURN;
7256:
7257: WHEN others THEN
7258:
7259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7260: x_msg_count := 1;
7261: x_msg_data := SQLERRM;
7262:
7263: FND_MSG_PUB.add_exc_msg
7303: l_msg_index_out NUMBER;
7304:
7305: BEGIN
7306: x_msg_count := 0;
7307: x_return_status := FND_API.G_RET_STS_SUCCESS;
7308: IF P_PA_DEBUG_MODE = 'Y' THEN
7309: PA_DEBUG.Set_Curr_Function( p_function => 'Get_Project_Curr_Attributes',
7310: p_debug_mode => p_pa_debug_mode );
7311: END IF;
7361: EXCEPTION
7362:
7363: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7364:
7365: x_return_status := FND_API.G_RET_STS_ERROR;
7366: l_msg_count := FND_MSG_PUB.count_msg;
7367: IF l_msg_count = 1 THEN
7368: PA_INTERFACE_UTILS_PUB.get_messages
7369: (p_encoded => FND_API.G_TRUE
7365: x_return_status := FND_API.G_RET_STS_ERROR;
7366: l_msg_count := FND_MSG_PUB.count_msg;
7367: IF l_msg_count = 1 THEN
7368: PA_INTERFACE_UTILS_PUB.get_messages
7369: (p_encoded => FND_API.G_TRUE
7370: ,p_msg_index => 1
7371: ,p_msg_count => l_msg_count
7372: ,p_msg_data => l_msg_data
7373: ,p_data => l_data
7382: END IF;
7383: RAISE;
7384: WHEN others THEN
7385:
7386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7387: x_msg_count := 1;
7388: x_msg_data := SQLERRM;
7389: FND_MSG_PUB.add_exc_msg
7390: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7432:
7433: BEGIN
7434:
7435: x_msg_count := 0;
7436: x_return_status := FND_API.G_RET_STS_SUCCESS;
7437: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7438:
7439: IF P_PA_DEBUG_MODE = 'Y' THEN
7440: pa_Debug.set_curr_function( p_function => 'IsRevVersionCreationAllowed',
7491: EXCEPTION
7492:
7493: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7494:
7495: x_return_status := FND_API.G_RET_STS_ERROR;
7496: l_msg_count := FND_MSG_PUB.count_msg;
7497:
7498: IF autobaseline_appr_rev_info_cur%ISOPEN THEN
7499: CLOSE autobaseline_appr_rev_info_cur;
7500: END IF;
7501:
7502: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7503: PA_INTERFACE_UTILS_PUB.get_messages
7504: (p_encoded => FND_API.G_TRUE
7505: ,p_msg_index => 1
7506: ,p_msg_count => l_msg_count
7507: ,p_msg_data => l_msg_data
7508: ,p_data => l_data
7518: RETURN;
7519:
7520: WHEN others THEN
7521:
7522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7523: x_msg_count := 1;
7524: x_msg_data := SQLERRM;
7525:
7526: IF autobaseline_appr_rev_info_cur%ISOPEN THEN
7573:
7574: BEGIN
7575:
7576: x_msg_count := 0;
7577: x_return_status := FND_API.G_RET_STS_SUCCESS;
7578: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7579:
7580: IF P_PA_DEBUG_MODE = 'Y' THEN
7581: pa_debug.set_curr_function( p_function => 'GET_LOOKUP_CODE',
7631: EXCEPTION
7632:
7633: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7634:
7635: x_return_status := FND_API.G_RET_STS_ERROR;
7636: l_msg_count := FND_MSG_PUB.count_msg;
7637:
7638: IF lookups_cur%ISOPEN THEN
7639: close lookups_cur;
7640: END IF;
7641:
7642: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7643: PA_INTERFACE_UTILS_PUB.get_messages
7644: (p_encoded => FND_API.G_TRUE
7645: ,p_msg_index => 1
7646: ,p_msg_count => l_msg_count
7647: ,p_msg_data => l_msg_data
7648: ,p_data => l_data
7658: RETURN;
7659:
7660: WHEN others THEN
7661:
7662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7663: x_msg_count := 1;
7664: x_msg_data := SQLERRM;
7665:
7666: IF lookups_cur%ISOPEN THEN
7744:
7745: BEGIN
7746:
7747: x_msg_count := 0;
7748: x_return_status := FND_API.G_RET_STS_SUCCESS;
7749: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7750:
7751: IF P_PA_DEBUG_MODE = 'Y' THEN
7752: pa_debug.set_curr_function( p_function => 'get_version_type',
7772: p_value2 => p_fin_plan_type_id,
7773: p_token3 => 'VERSION_TYPE',
7774: p_value3 => px_version_type);
7775:
7776: x_return_status := FND_API.G_RET_STS_ERROR;
7777: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7778:
7779: END;
7780:
7837: p_value2 => l_fin_plan_type_name,
7838: p_token3 => 'VERSION_TYPE',
7839: p_value3 => px_version_type);
7840:
7841: x_return_status := FND_API.G_RET_STS_ERROR;
7842: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7843:
7844: END IF;
7845:
7865: p_token2 => 'PLAN_TYPE',
7866: p_value2 => l_fin_plan_type_name,
7867: p_token3 => 'VERSION_TYPE',
7868: p_value3 => px_version_type);
7869: x_return_status := FND_API.G_RET_STS_ERROR;
7870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7871:
7872: END IF;
7873:
7894: p_value2 => l_fin_plan_type_name,
7895: p_token3 => 'VERSION_TYPE',
7896: p_value3 => px_version_type);
7897:
7898: x_return_status := FND_API.G_RET_STS_ERROR;
7899: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7900:
7901: END IF;
7902:
7916: p_token1 => 'PROJECT',
7917: p_value1 => l_segment1,
7918: p_token2 => 'PLAN_TYPE',
7919: p_value2 => l_fin_plan_type_name);
7920: x_return_status := FND_API.G_RET_STS_ERROR;
7921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7922:
7923: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7924: OR px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7940: p_value2 => l_fin_plan_type_name,
7941: p_token3 => 'VERSION_TYPE',
7942: p_value3 => px_version_type);
7943:
7944: x_return_status := FND_API.G_RET_STS_ERROR;
7945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7946:
7947: END IF;
7948:
7959:
7960: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7961:
7962: IF x_return_status IS NULL OR
7963: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7964: x_return_status := FND_API.G_RET_STS_ERROR;
7965: END IF;
7966: l_msg_count := FND_MSG_PUB.count_msg;
7967:
7960: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7961:
7962: IF x_return_status IS NULL OR
7963: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7964: x_return_status := FND_API.G_RET_STS_ERROR;
7965: END IF;
7966: l_msg_count := FND_MSG_PUB.count_msg;
7967:
7968: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7966: l_msg_count := FND_MSG_PUB.count_msg;
7967:
7968: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7969: PA_INTERFACE_UTILS_PUB.get_messages
7970: (p_encoded => FND_API.G_TRUE
7971: ,p_msg_index => 1
7972: ,p_msg_count => l_msg_count
7973: ,p_msg_data => l_msg_data
7974: ,p_data => l_data
7984: RETURN;
7985:
7986: WHEN others THEN
7987:
7988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7989: x_msg_count := 1;
7990: x_msg_data := SQLERRM;
7991:
7992: FND_MSG_PUB.add_exc_msg
8043:
8044: BEGIN
8045:
8046: x_msg_count := 0;
8047: x_return_status := FND_API.G_RET_STS_SUCCESS;
8048: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8049:
8050: IF P_PA_DEBUG_MODE = 'Y' THEN
8051: pa_debug.set_curr_function( p_function => 'get_version_id',p_debug_mode => l_debug_mode );
8101:
8102: EXCEPTION
8103: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8104:
8105: x_return_status := FND_API.G_RET_STS_ERROR;
8106: l_msg_count := FND_MSG_PUB.count_msg;
8107:
8108: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8109: PA_INTERFACE_UTILS_PUB.get_messages
8106: l_msg_count := FND_MSG_PUB.count_msg;
8107:
8108: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8109: PA_INTERFACE_UTILS_PUB.get_messages
8110: (p_encoded => FND_API.G_TRUE
8111: ,p_msg_index => 1
8112: ,p_msg_count => l_msg_count
8113: ,p_msg_data => l_msg_data
8114: ,p_data => l_data
8124: RETURN;
8125:
8126: WHEN others THEN
8127:
8128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8129: x_msg_count := 1;
8130: x_msg_data := SQLERRM;
8131:
8132: FND_MSG_PUB.add_exc_msg
8182: l_autobaseline_check_rec l_autobaseline_check_csr%ROWTYPE;
8183: BEGIN
8184:
8185: x_msg_count := 0;
8186: x_return_status := FND_API.G_RET_STS_SUCCESS;
8187: x_result:='T';
8188: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8189:
8190:
8255: END IF;
8256: EXCEPTION
8257: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8258:
8259: x_return_status := FND_API.G_RET_STS_ERROR;
8260: l_msg_count := FND_MSG_PUB.count_msg;
8261:
8262: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8263: PA_INTERFACE_UTILS_PUB.get_messages
8260: l_msg_count := FND_MSG_PUB.count_msg;
8261:
8262: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8263: PA_INTERFACE_UTILS_PUB.get_messages
8264: (p_encoded => FND_API.G_TRUE
8265: ,p_msg_index => 1
8266: ,p_msg_count => l_msg_count
8267: ,p_msg_data => l_msg_data
8268: ,p_data => l_data
8278: RETURN;
8279:
8280: WHEN others THEN
8281:
8282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8283: x_msg_count := 1;
8284: x_msg_data := SQLERRM;
8285:
8286: FND_MSG_PUB.add_exc_msg
8318: l_return_status VARCHAR2(2000);
8319:
8320: BEGIN
8321: x_msg_count := 0;
8322: x_return_status := FND_API.G_RET_STS_SUCCESS;
8323: IF p_pa_debug_mode = 'Y' THEN
8324: PA_DEBUG.Set_Curr_Function( p_function => 'Get_version_type_for_bdgt_type',
8325: p_debug_mode => p_pa_debug_mode );
8326: END IF;
8368: EXCEPTION
8369:
8370: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8371:
8372: x_return_status := FND_API.G_RET_STS_ERROR;
8373: l_msg_count := FND_MSG_PUB.count_msg;
8374: IF l_msg_count = 1 THEN
8375: PA_INTERFACE_UTILS_PUB.get_messages
8376: (p_encoded => FND_API.G_TRUE
8372: x_return_status := FND_API.G_RET_STS_ERROR;
8373: l_msg_count := FND_MSG_PUB.count_msg;
8374: IF l_msg_count = 1 THEN
8375: PA_INTERFACE_UTILS_PUB.get_messages
8376: (p_encoded => FND_API.G_TRUE
8377: ,p_msg_index => 1
8378: ,p_msg_count => l_msg_count
8379: ,p_msg_data => l_msg_data
8380: ,p_data => l_data
8389: END IF;
8390: RETURN;
8391: WHEN others THEN
8392:
8393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8394: x_msg_count := 1;
8395: x_msg_data := SQLERRM;
8396: FND_MSG_PUB.add_exc_msg
8397: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8514: pa_debug.g_err_stage:='p_context passed: ' || p_context;
8515: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8516: END IF;
8517:
8518: x_return_status := FND_API.G_RET_STS_SUCCESS;
8519:
8520: -- get the person_id: used for locking checks
8521: PA_COMP_PROFILE_PUB.GET_USER_INFO
8522: (p_user_id => p_user_id,
8548:
8549: -- bug 2955756 --------------------------------------
8550:
8551: PA_INTERFACE_UTILS_PUB.get_messages
8552: (p_encoded => FND_API.G_FALSE
8553: ,p_msg_index => 1
8554: ,p_msg_count => l_msg_count
8555: ,p_msg_data => l_msg_data
8556: ,p_data => l_data
8564:
8565: /*
8566: if l_msg_count = 1 then
8567: PA_INTERFACE_UTILS_PUB.get_messages
8568: (p_encoded => FND_API.G_TRUE
8569: ,p_msg_index => 1
8570: ,p_msg_count => l_msg_count
8571: ,p_msg_data => l_msg_data
8572: ,p_data => l_data
8580:
8581: /*
8582: if x_msg_count = 1 then
8583: PA_INTERFACE_UTILS_PUB.get_messages
8584: (p_encoded => FND_API.G_TRUE,
8585: p_msg_index => 1,
8586: p_data => x_msg_data,
8587: p_msg_index_out => l_msg_index_out);
8588: end if;
8597:
8598: l_msg_count := FND_MSG_PUB.Count_Msg;
8599:
8600: PA_INTERFACE_UTILS_PUB.get_messages
8601: (p_encoded => FND_API.G_FALSE
8602: ,p_msg_index => 1
8603: ,p_msg_count => l_msg_count
8604: ,p_msg_data => l_msg_data
8605: ,p_data => l_data
8638:
8639: l_msg_count := FND_MSG_PUB.Count_Msg;
8640:
8641: PA_INTERFACE_UTILS_PUB.get_messages
8642: (p_encoded => FND_API.G_FALSE
8643: ,p_msg_index => 1
8644: ,p_msg_count => l_msg_count
8645: ,p_msg_data => l_msg_data
8646: ,p_data => l_data
8660:
8661: l_msg_count := FND_MSG_PUB.Count_Msg;
8662:
8663: PA_INTERFACE_UTILS_PUB.get_messages
8664: (p_encoded => FND_API.G_FALSE
8665: ,p_msg_index => 1
8666: ,p_msg_count => l_msg_count
8667: ,p_msg_data => l_msg_data
8668: ,p_data => l_data
8721:
8722: -- bug 2955756 --------------------------------------
8723:
8724: PA_INTERFACE_UTILS_PUB.get_messages
8725: (p_encoded => FND_API.G_TRUE
8726: ,p_msg_index => 1
8727: ,p_msg_count => l_msg_count
8728: ,p_msg_data => l_msg_data
8729: ,p_data => l_data
8736:
8737: /*
8738: if l_msg_count = 1 then
8739: PA_INTERFACE_UTILS_PUB.get_messages
8740: (p_encoded => FND_API.G_TRUE
8741: ,p_msg_index => 1
8742: ,p_msg_count => l_msg_count
8743: ,p_msg_data => l_msg_data
8744: ,p_data => l_data
8753: /*
8754: x_msg_count := FND_MSG_PUB.Count_Msg;
8755: if x_msg_count = 1 then
8756: PA_INTERFACE_UTILS_PUB.get_messages
8757: (p_encoded => FND_API.G_TRUE,
8758: p_msg_index => 1,
8759: p_data => x_msg_data,
8760: p_msg_index_out => l_msg_index_out);
8761: end if;
8771:
8772: l_msg_count := FND_MSG_PUB.Count_Msg;
8773:
8774: PA_INTERFACE_UTILS_PUB.get_messages
8775: (p_encoded => FND_API.G_FALSE
8776: ,p_msg_index => 1
8777: ,p_msg_count => l_msg_count
8778: ,p_msg_data => l_msg_data
8779: ,p_data => l_data
8826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8827: END IF;
8828: RAISE;
8829: WHEN OTHERS THEN
8830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8831: x_msg_count := 1;
8832: x_msg_data := SQLERRM;
8833: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8834: p_procedure_name => 'validate_editable_bv');
8868:
8869: l_msg_count := FND_MSG_PUB.Count_Msg;
8870:
8871: PA_INTERFACE_UTILS_PUB.get_messages
8872: (p_encoded => FND_API.G_TRUE
8873: ,p_msg_index => 1
8874: ,p_msg_count => l_msg_count
8875: ,p_msg_data => l_msg_data
8876: ,p_data => l_data
8902: END IF;
8903:
8904: EXCEPTION
8905: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
8906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8907:
8908: IF l_debug_mode = 'Y' THEN
8909: pa_debug.Reset_Curr_Function;
8910: END IF;
8910: END IF;
8911: RETURN;
8912:
8913: WHEN NO_DATA_FOUND THEN
8914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8915: x_msg_count := 1;
8916: x_msg_data := SQLERRM;
8917: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8918: p_procedure_name => 'validate_editable_bv');
8918: p_procedure_name => 'validate_editable_bv');
8919: IF P_PA_DEBUG_MODE = 'Y' THEN
8920: pa_debug.reset_err_stack;
8921: END IF;
8922: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8923: WHEN OTHERS THEN
8924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8925: x_msg_count := 1;
8926: x_msg_data := SQLERRM;
8920: pa_debug.reset_err_stack;
8921: END IF;
8922: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8923: WHEN OTHERS THEN
8924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8925: x_msg_count := 1;
8926: x_msg_data := SQLERRM;
8927: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8928: p_procedure_name => 'validate_editable_bv');
9063:
9064: BEGIN
9065:
9066: x_msg_count := 0;
9067: x_return_status := FND_API.G_RET_STS_SUCCESS;
9068: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
9069: IF l_debug_mode = 'Y' THEN
9070: pa_debug.set_curr_function( p_function => 'check_delete_task_ok',
9071: p_debug_mode => l_debug_mode );
9144: IF l_validation_success = 'N' THEN
9145: PA_UTILS.ADD_MESSAGE
9146: (p_app_short_name => 'PA',
9147: p_msg_name => 'PA_TSK_BUDGET_EXIST');
9148: RAISE FND_API.G_Exc_Error;
9149: END IF;
9150:
9151: IF l_debug_mode = 'Y' THEN
9152: pa_debug.g_err_stage:= 'Exiting check_delete_task_ok';
9157: EXCEPTION
9158:
9159: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9160:
9161: x_return_status := FND_API.G_RET_STS_ERROR;
9162: l_msg_count := FND_MSG_PUB.count_msg;
9163:
9164: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9165: PA_INTERFACE_UTILS_PUB.get_messages
9162: l_msg_count := FND_MSG_PUB.count_msg;
9163:
9164: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9165: PA_INTERFACE_UTILS_PUB.get_messages
9166: (p_encoded => FND_API.G_TRUE
9167: ,p_msg_index => 1
9168: ,p_msg_count => l_msg_count
9169: ,p_msg_data => l_msg_data
9170: ,p_data => l_data
9178: pa_debug.reset_curr_function;
9179: END IF;
9180: RETURN;
9181:
9182: WHEN FND_API.G_Exc_Error THEN
9183:
9184: x_return_status := FND_API.G_RET_STS_ERROR;
9185: l_msg_count := FND_MSG_PUB.count_msg;
9186:
9180: RETURN;
9181:
9182: WHEN FND_API.G_Exc_Error THEN
9183:
9184: x_return_status := FND_API.G_RET_STS_ERROR;
9185: l_msg_count := FND_MSG_PUB.count_msg;
9186:
9187: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9188: PA_INTERFACE_UTILS_PUB.get_messages
9185: l_msg_count := FND_MSG_PUB.count_msg;
9186:
9187: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9188: PA_INTERFACE_UTILS_PUB.get_messages
9189: (p_encoded => FND_API.G_TRUE
9190: ,p_msg_index => 1
9191: ,p_msg_count => l_msg_count
9192: ,p_msg_data => l_msg_data
9193: ,p_data => l_data
9203: RETURN;
9204:
9205: WHEN others THEN
9206:
9207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9208: x_msg_count := 1;
9209: x_msg_data := SQLERRM;
9210:
9211: FND_MSG_PUB.add_exc_msg
9255: task_ra_rec task_ra_csr%ROWTYPE;
9256:
9257: BEGIN
9258: x_msg_count := 0;
9259: x_return_status := FND_API.G_RET_STS_SUCCESS;
9260: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
9261: IF l_debug_mode = 'Y' THEN
9262: pa_debug.set_curr_function( p_function => 'check_reparent_task_ok',
9263: p_debug_mode => l_debug_mode );
9293: -- x_delete_task_ok_flag => l_delete_task_ok_flag,
9294: x_return_status => l_return_status,
9295: x_msg_count => l_msg_count,
9296: x_msg_data => l_msg_data);
9297: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9298: x_return_status := FND_API.G_RET_STS_ERROR;
9299: x_msg_count := l_msg_count;
9300: x_msg_data := l_msg_data;
9301: /* NO NEED TO ADD ERROR MESSAGE TO STACK:
9294: x_return_status => l_return_status,
9295: x_msg_count => l_msg_count,
9296: x_msg_data => l_msg_data);
9297: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9298: x_return_status := FND_API.G_RET_STS_ERROR;
9299: x_msg_count := l_msg_count;
9300: x_msg_data := l_msg_data;
9301: /* NO NEED TO ADD ERROR MESSAGE TO STACK:
9302: Justification: Error message will be added by check_delete_task_ok
9307: p_value1 => l_task_name);
9308: l_msg_count := FND_MSG_PUB.count_msg;
9309: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9310: PA_INTERFACE_UTILS_PUB.get_messages
9311: (p_encoded => FND_API.G_TRUE,
9312: p_msg_index => 1,
9313: p_msg_count => l_msg_count,
9314: p_msg_data => l_msg_data,
9315: p_data => l_data,
9338: open task_ra_csr(p_old_parent_task_id);
9339: fetch task_ra_csr into task_ra_rec;
9340: IF task_ra_csr%FOUND then
9341: -- records in pa_resource_assignments: VALIDATION FAILED
9342: x_return_status := FND_API.G_RET_STS_ERROR;
9343: BEGIN
9344: select task_name
9345: into l_task_name
9346: from pa_tasks
9350: from pa_tasks
9351: where task_id = p_old_parent_task_id;
9352: EXCEPTION
9353: when NO_DATA_FOUND then
9354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9355: PA_UTILS.ADD_MESSAGE
9356: (p_app_short_name => 'PA',
9357: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9358: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9366: p_value2 => l_old_parent_task_name);
9367: l_msg_count := FND_MSG_PUB.count_msg;
9368: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9369: PA_INTERFACE_UTILS_PUB.get_messages
9370: (p_encoded => FND_API.G_TRUE,
9371: p_msg_index => 1,
9372: p_msg_count => l_msg_count,
9373: p_msg_data => l_msg_data,
9374: p_data => l_data,
9397: x_top_task_id => l_parent_top_task_id,
9398: x_validation_mode => p_validation_mode);
9399: IF (l_is_parent_lowest_task = 1) THEN
9400: -- new parent task is a plannable lowest task: VALIDATION FAILURE
9401: x_return_status := FND_API.G_RET_STS_ERROR;
9402: BEGIN
9403: select task_name
9404: into l_task_name
9405: from pa_tasks
9409: from pa_tasks
9410: where task_id = p_new_parent_task_id;
9411: EXCEPTION
9412: when NO_DATA_FOUND then
9413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9414: PA_UTILS.ADD_MESSAGE
9415: (p_app_short_name => 'PA',
9416: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9417: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9425: p_value1 => l_new_parent_task_name);
9426: l_msg_count := FND_MSG_PUB.count_msg;
9427: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9428: PA_INTERFACE_UTILS_PUB.get_messages
9429: (p_encoded => FND_API.G_TRUE,
9430: p_msg_index => 1,
9431: p_msg_count => l_msg_count,
9432: p_msg_data => l_msg_data,
9433: p_data => l_data,
9446: pa_debug.reset_curr_function;
9447: END IF;
9448: EXCEPTION
9449: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9450: x_return_status := FND_API.G_RET_STS_ERROR;
9451: l_msg_count := FND_MSG_PUB.count_msg;
9452: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9453: PA_INTERFACE_UTILS_PUB.get_messages
9454: (p_encoded => FND_API.G_TRUE
9450: x_return_status := FND_API.G_RET_STS_ERROR;
9451: l_msg_count := FND_MSG_PUB.count_msg;
9452: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9453: PA_INTERFACE_UTILS_PUB.get_messages
9454: (p_encoded => FND_API.G_TRUE
9455: ,p_msg_index => 1
9456: ,p_msg_count => l_msg_count
9457: ,p_msg_data => l_msg_data
9458: ,p_data => l_data
9466: pa_debug.reset_curr_function;
9467: END IF;
9468: RETURN;
9469: WHEN others THEN
9470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9471: x_msg_count := 1;
9472: x_msg_data := SQLERRM;
9473: FND_MSG_PUB.add_exc_msg
9474: ( p_pkg_name => 'pa_fin_plan_utils'
9810: pa_debug.set_curr_function( p_function => 'Check_if_plan_type_editable',
9811: p_debug_mode => l_debug_mode );
9812: END IF;
9813: x_msg_count := 0;
9814: x_return_status := FND_API.G_RET_STS_SUCCESS;
9815: -- Check for business rules violations
9816:
9817:
9818: IF P_PA_DEBUG_MODE = 'Y' THEN
9907: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9908: l_msg_count := FND_MSG_PUB.count_msg;
9909: IF l_msg_count = 1 THEN
9910: PA_INTERFACE_UTILS_PUB.get_messages
9911: (p_encoded => FND_API.G_TRUE
9912: ,p_msg_index => 1
9913: ,p_msg_count => l_msg_count
9914: ,p_msg_data => l_msg_data
9915: ,p_data => l_data
9918: x_msg_count := l_msg_count;
9919: ELSE
9920: x_msg_count := l_msg_count;
9921: END IF;
9922: x_return_status := FND_API.G_RET_STS_ERROR;
9923: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
9924: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9925: IF P_PA_DEBUG_MODE = 'Y' THEN
9926: pa_debug.reset_curr_function;
9927: END IF;
9928: RETURN;
9929:
9930: WHEN Others THEN
9931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9932: x_msg_count := 1;
9933: x_msg_data := SQLERRM;
9934: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
9935: ,p_procedure_name => 'CHECK_IF_PLAN_TYPE_EDITABLE');
9955: BEGIN
9956:
9957: IF p_start_date_active IS NULL THEN
9958: /* Start date must be entered */
9959: x_return_status := FND_API.G_RET_STS_ERROR;
9960: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9961: p_msg_name => 'PA_MANDATORY_INFO_MISSING');
9962: END IF;
9963:
9962: END IF;
9963:
9964: IF p_start_date_active > nvl(p_end_date_active,p_start_date_active) THEN
9965: /* The End Date cannot be earlier than the Start Date. */
9966: x_return_status := FND_API.G_RET_STS_ERROR;
9967: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9968: p_msg_name => 'PA_INVALID_END_DATE');
9969: END IF;
9970:
9972:
9973: IF l_msg_count > 0 THEN
9974: IF l_msg_count = 1 THEN
9975: PA_INTERFACE_UTILS_PUB.get_messages
9976: (p_encoded => FND_API.G_TRUE,
9977: p_msg_index => 1,
9978: p_msg_count => l_msg_count,
9979: p_msg_data => l_msg_data,
9980: p_data => l_data,
9985: x_msg_count := l_msg_count;
9986: END IF;
9987: return;
9988: ELSE
9989: x_return_status := FND_API.G_RET_STS_SUCCESS;
9990: END IF;
9991:
9992: EXCEPTION
9993: WHEN OTHERS THEN
9990: END IF;
9991:
9992: EXCEPTION
9993: WHEN OTHERS THEN
9994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9995: x_msg_count := 1;
9996: x_msg_data := SQLERRM;
9997: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9998: p_procedure_name => 'end_date_active_val');
9995: x_msg_count := 1;
9996: x_msg_data := SQLERRM;
9997: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9998: p_procedure_name => 'end_date_active_val');
9999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10000: END End_date_active_val;
10001:
10002: /*=============================================================================
10003: This api is used to return current original version info for given plan type,
10034:
10035: BEGIN
10036:
10037: x_msg_count := 0;
10038: x_return_status := FND_API.G_RET_STS_SUCCESS;
10039:
10040: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10041: l_debug_mode := NVL(l_debug_mode, 'Y');
10042:
10182: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10183: l_msg_count := FND_MSG_PUB.count_msg;
10184: IF l_msg_count = 1 THEN
10185: PA_INTERFACE_UTILS_PUB.get_messages
10186: (p_encoded => FND_API.G_TRUE
10187: ,p_msg_index => 1
10188: ,p_msg_count => l_msg_count
10189: ,p_msg_data => l_msg_data
10190: ,p_data => l_data
10195: ELSE
10196: x_msg_count := l_msg_count;
10197: END IF;
10198:
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200:
10201: IF l_debug_mode = 'Y' THEN
10202: pa_debug.g_err_stage:='Invalid Arguments Passed';
10203: pa_debug.write('Get_Curr_Original_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
10207: END IF;
10208: RETURN;
10209:
10210: WHEN Others THEN
10211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10212: x_msg_count := 1;
10213: x_msg_data := SQLERRM;
10214:
10215: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10271:
10272: BEGIN
10273:
10274: x_msg_count := 0;
10275: x_return_status := FND_API.G_RET_STS_SUCCESS;
10276:
10277: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10278: l_debug_mode := NVL(l_debug_mode, 'Y');
10279:
10355: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10356: l_msg_count := FND_MSG_PUB.count_msg;
10357: IF l_msg_count = 1 THEN
10358: PA_INTERFACE_UTILS_PUB.get_messages
10359: (p_encoded => FND_API.G_TRUE
10360: ,p_msg_index => 1
10361: ,p_msg_count => l_msg_count
10362: ,p_msg_data => l_msg_data
10363: ,p_data => l_data
10368: ELSE
10369: x_msg_count := l_msg_count;
10370: END IF;
10371:
10372: x_return_status := FND_API.G_RET_STS_ERROR;
10373:
10374: IF l_debug_mode = 'Y' THEN
10375: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10376: pa_debug.write('GET_ACTUAL_AMTS_THRU_PERIOD: ' || l_module_name,pa_debug.g_err_stage,5);
10379: pa_debug.reset_curr_function();
10380: END IF;
10381: RETURN;
10382: WHEN Others THEN
10383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10384: x_msg_count := 1;
10385: x_msg_data := SQLERRM;
10386:
10387: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10553: 3683382 ***/
10554:
10555: BEGIN
10556: x_msg_count := 0;
10557: x_return_status := FND_API.G_RET_STS_SUCCESS;
10558:
10559: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10560: l_debug_mode := NVL(l_debug_mode, 'Y');
10561:
10651: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10652: l_msg_count := FND_MSG_PUB.count_msg;
10653: IF l_msg_count = 1 THEN
10654: PA_INTERFACE_UTILS_PUB.get_messages
10655: (p_encoded => FND_API.G_TRUE
10656: ,p_msg_index => 1
10657: ,p_msg_count => l_msg_count
10658: ,p_msg_data => l_msg_data
10659: ,p_data => l_data
10664: ELSE
10665: x_msg_count := l_msg_count;
10666: END IF;
10667:
10668: x_return_status := FND_API.G_RET_STS_ERROR;
10669:
10670: IF l_debug_mode = 'Y' THEN
10671: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10672: pa_debug.write('IS_WP_RL_UPDATEABLE: ' || l_module_name,pa_debug.g_err_stage,5);
10675: pa_debug.reset_curr_function();
10676: END IF;
10677: RETURN;
10678: WHEN Others THEN
10679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10680: x_msg_count := 1;
10681: x_msg_data := SQLERRM;
10682:
10683: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10720:
10721: BEGIN
10722:
10723: x_msg_count := 0;
10724: x_return_status := FND_API.G_RET_STS_SUCCESS;
10725:
10726: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10727: l_debug_mode := NVL(l_debug_mode, 'Y');
10728:
10776: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10777: l_msg_count := FND_MSG_PUB.count_msg;
10778: IF l_msg_count = 1 THEN
10779: PA_INTERFACE_UTILS_PUB.get_messages
10780: (p_encoded => FND_API.G_TRUE
10781: ,p_msg_index => 1
10782: ,p_msg_count => l_msg_count
10783: ,p_msg_data => l_msg_data
10784: ,p_data => l_data
10789: ELSE
10790: x_msg_count := l_msg_count;
10791: END IF;
10792:
10793: x_return_status := FND_API.G_RET_STS_ERROR;
10794:
10795: IF l_debug_mode = 'Y' THEN
10796: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10797: pa_debug.write('IS_PRI_FCST_COST_PT_ATTACHED: ' || l_module_name,pa_debug.g_err_stage,5);
10799: pa_debug.reset_curr_function();
10800: END IF;
10801: RETURN;
10802: WHEN Others THEN
10803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10804: x_msg_count := 1;
10805: x_msg_data := SQLERRM;
10806:
10807: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10843:
10844: BEGIN
10845:
10846: x_msg_count := 0;
10847: x_return_status := FND_API.G_RET_STS_SUCCESS;
10848:
10849: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10850: l_debug_mode := NVL(l_debug_mode, 'Y');
10851:
10898: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10899: l_msg_count := FND_MSG_PUB.count_msg;
10900: IF l_msg_count = 1 THEN
10901: PA_INTERFACE_UTILS_PUB.get_messages
10902: (p_encoded => FND_API.G_TRUE
10903: ,p_msg_index => 1
10904: ,p_msg_count => l_msg_count
10905: ,p_msg_data => l_msg_data
10906: ,p_data => l_data
10911: ELSE
10912: x_msg_count := l_msg_count;
10913: END IF;
10914:
10915: x_return_status := FND_API.G_RET_STS_ERROR;
10916:
10917: IF l_debug_mode = 'Y' THEN
10918: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10919: pa_debug.write('IS_PRI_FCST_REV_PT_ATTACHED: ' || l_module_name,pa_debug.g_err_stage,5);
10921: pa_debug.reset_curr_function();
10922: END IF;
10923: RETURN;
10924: WHEN Others THEN
10925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10926: x_msg_count := 1;
10927: x_msg_data := SQLERRM;
10928:
10929: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11029: p_debug_mode => P_PA_debug_mode );
11030: END IF;
11031:
11032: x_msg_count := 0;
11033: x_return_status := FND_API.G_RET_STS_SUCCESS;
11034:
11035: -- Validate that the input parameters are not null
11036: IF P_fin_plan_type_id IS NULL OR P_project_id IS NULL THEN
11037: IF P_PA_debug_mode = 'Y' THEN
11093: ,x_return_status => l_return_status
11094: ,x_msg_count => l_msg_count
11095: ,x_msg_data => l_msg_data);
11096:
11097: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11098: IF P_PA_debug_mode = 'Y' THEN
11099: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: COST context';
11100: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11101: END IF;
11111: ,x_fin_plan_version_id => X_rev_budget_version_id
11112: ,x_return_status => l_return_status
11113: ,x_msg_count => l_msg_count
11114: ,x_msg_data => l_msg_data);
11115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11116: IF P_PA_debug_mode = 'Y' THEN
11117: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: REV context';
11118: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11119: END IF;
11129: ,x_return_status => l_return_status
11130: ,x_msg_count => l_msg_count
11131: ,x_msg_data => l_msg_data);
11132:
11133: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11134: IF P_PA_debug_mode = 'Y' THEN
11135: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: ALL context';
11136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11137: END IF;
11151: l_msg_count := FND_MSG_PUB.count_msg;
11152:
11153: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11154: PA_INTERFACE_UTILS_PUB.get_messages
11155: (p_encoded => FND_API.G_TRUE
11156: ,p_msg_index => 1
11157: ,p_msg_count => l_msg_count
11158: ,p_msg_data => l_msg_data
11159: ,p_data => l_data
11162: x_msg_count := l_msg_count;
11163: ELSE
11164: x_msg_count := l_msg_count;
11165: END IF;
11166: x_return_status := FND_API.G_RET_STS_ERROR;
11167: IF P_PA_DEBUG_MODE = 'Y' THEN
11168: pa_debug.reset_curr_function;
11169: END IF;
11170: RETURN;
11169: END IF;
11170: RETURN;
11171:
11172: WHEN Others THEN
11173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11174: x_msg_count := 1;
11175: x_msg_data := SQLERRM;
11176:
11177: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11243: pa_debug.set_curr_function( p_function => 'GET_PROJ_IMPACT_AMOUNTS',
11244: p_debug_mode => P_PA_debug_mode );
11245: END IF;
11246: x_msg_count := 0;
11247: x_return_status := FND_API.G_RET_STS_SUCCESS;
11248:
11249: -- See if all the input parameters passed are invalid
11250: IF nvl(p_all_budget_version_id,-1) = -1 AND nvl(p_cost_budget_version_id,-1) = -1
11251: AND nvl(p_rev_budget_version_id,-1) = -1 THEN
11421: l_msg_count := FND_MSG_PUB.count_msg;
11422:
11423: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11424: PA_INTERFACE_UTILS_PUB.get_messages
11425: (p_encoded => FND_API.G_TRUE
11426: ,p_msg_index => 1
11427: ,p_msg_count => l_msg_count
11428: ,p_msg_data => l_msg_data
11429: ,p_data => l_data
11432: x_msg_count := l_msg_count;
11433: ELSE
11434: x_msg_count := l_msg_count;
11435: END IF;
11436: x_return_status := FND_API.G_RET_STS_ERROR;
11437:
11438: IF P_PA_DEBUG_MODE = 'Y' THEN
11439: pa_debug.reset_curr_function;
11440: END IF;
11440: END IF;
11441: RETURN;
11442:
11443: WHEN Others THEN
11444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11445: x_msg_count := 1;
11446: x_msg_data := SQLERRM;
11447:
11448: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11524: pa_debug.set_curr_function( p_function => 'GET_SUMMARY_AMOUNTS',
11525: p_debug_mode => P_PA_debug_mode );
11526: END IF;
11527: x_msg_count := 0;
11528: x_return_status := FND_API.G_RET_STS_SUCCESS;
11529:
11530: -- Check for business rules violations
11531:
11532: IF P_PA_debug_mode = 'Y' THEN
11667: x_return_status => l_return_status,
11668: x_msg_data => l_msg_data,
11669: X_msg_count => l_msg_count);
11670:
11671: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11672: IF P_PA_debug_mode = 'Y' THEN
11673: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
11674: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11675: END IF;
11694: ,x_return_status => l_return_status
11695: ,x_msg_data => l_msg_data
11696: ,X_msg_count => l_msg_count);
11697:
11698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11699: IF P_PA_debug_mode = 'Y' THEN
11700: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11701: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11702: END IF;
11711: ,x_return_status => l_return_status
11712: ,x_msg_data => l_msg_data
11713: ,X_msg_count => l_msg_count);
11714:
11715: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11716: IF P_PA_debug_mode = 'Y' THEN
11717: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
11718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11719: END IF;
11742: ,x_return_status => l_return_status
11743: ,x_msg_data => l_msg_data
11744: ,X_msg_count => l_msg_count);
11745:
11746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11747: IF P_PA_debug_mode = 'Y' THEN
11748: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11749: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11750: END IF;
11765: l_msg_count := FND_MSG_PUB.count_msg;
11766:
11767: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11768: PA_INTERFACE_UTILS_PUB.get_messages
11769: (p_encoded => FND_API.G_TRUE
11770: ,p_msg_index => 1
11771: ,p_msg_count => l_msg_count
11772: ,p_msg_data => l_msg_data
11773: ,p_data => l_data
11776: x_msg_count := l_msg_count;
11777: ELSE
11778: x_msg_count := l_msg_count;
11779: END IF;
11780: x_return_status := FND_API.G_RET_STS_ERROR;
11781:
11782: IF P_PA_DEBUG_MODE = 'Y' THEN
11783: pa_debug.reset_curr_function;
11784: END IF;
11784: END IF;
11785: RETURN;
11786:
11787: WHEN Others THEN
11788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11789: x_msg_count := 1;
11790: x_msg_data := SQLERRM;
11791:
11792: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12552:
12553: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12554:
12555: x_msg_count := 0;
12556: x_return_status := FND_API.G_RET_STS_SUCCESS;
12557:
12558: IF l_debug_mode = 'Y' THEN
12559: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12560: p_debug_mode => l_debug_mode );
12849: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12850: l_msg_count := FND_MSG_PUB.count_msg;
12851: IF l_msg_count = 1 THEN
12852: PA_INTERFACE_UTILS_PUB.get_messages
12853: (p_encoded => FND_API.G_TRUE
12854: ,p_msg_index => 1
12855: ,p_msg_count => l_msg_count
12856: ,p_msg_data => l_msg_data
12857: ,p_data => l_data
12861: x_msg_count := l_msg_count;
12862: ELSE
12863: x_msg_count := l_msg_count;
12864: END IF;
12865: x_return_status := FND_API.G_RET_STS_ERROR;
12866:
12867: IF l_debug_mode = 'Y' THEN
12868: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
12869: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
12872: pa_debug.reset_curr_function();
12873: END IF;
12874: RETURN;
12875: WHEN OTHERS THEN
12876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12877: x_msg_count := 1;
12878: x_msg_data := SQLERRM;
12879:
12880: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils'
13030: BEGIN
13031: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13032:
13033: x_msg_count := 0;
13034: x_return_status := FND_API.G_RET_STS_SUCCESS;
13035:
13036: IF l_debug_mode = 'Y' THEN
13037: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
13038: p_debug_mode => l_debug_mode );
13109: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13110: l_msg_count := FND_MSG_PUB.count_msg;
13111: IF l_msg_count = 1 THEN
13112: PA_INTERFACE_UTILS_PUB.get_messages
13113: (p_encoded => FND_API.G_TRUE
13114: ,p_msg_index => 1
13115: ,p_msg_count => l_msg_count
13116: ,p_msg_data => l_msg_data
13117: ,p_data => l_data
13161: ==============================================================================*/ --4738996 Starts here
13162:
13163: PROCEDURE create_draft_budget_wrp(
13164: p_api_version_number IN NUMBER
13165: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13166: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13167: ,p_msg_count OUT NOCOPY NUMBER
13168: ,p_msg_data OUT NOCOPY VARCHAR2
13169: ,p_return_status OUT NOCOPY VARCHAR2
13162:
13163: PROCEDURE create_draft_budget_wrp(
13164: p_api_version_number IN NUMBER
13165: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13166: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13167: ,p_msg_count OUT NOCOPY NUMBER
13168: ,p_msg_data OUT NOCOPY VARCHAR2
13169: ,p_return_status OUT NOCOPY VARCHAR2
13170: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13282: ,x_return_status => l_return_status
13283: ,x_msg_count => l_msg_count
13284: ,x_msg_data => l_msg_data) ;
13285:
13286: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13287:
13288: IF l_debug_mode = 'Y' THEN
13289: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
13290: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13298: --dbms_output.put_line('control comes here');
13299: -- dbms_output.put_line('Value of yeessssssss l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13300:
13301: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13302: ,p_commit => FND_API.G_FALSE
13303: ,p_init_msg_list => FND_API.G_FALSE
13304: ,p_msg_count => l_msg_count
13305: ,p_msg_data => l_msg_data
13306: ,p_return_status => l_return_status
13299: -- dbms_output.put_line('Value of yeessssssss l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13300:
13301: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13302: ,p_commit => FND_API.G_FALSE
13303: ,p_init_msg_list => FND_API.G_FALSE
13304: ,p_msg_count => l_msg_count
13305: ,p_msg_data => l_msg_data
13306: ,p_return_status => l_return_status
13307: ,p_pm_product_code => p_pm_product_code
13344: ,P_all_qty_flag => P_all_qty_flag
13345: ,p_create_new_curr_working_flag => p_create_new_curr_working_flag
13346: ,p_replace_current_working_flag => p_replace_current_working_flag
13347: ,p_using_resource_lists_flag => p_using_resource_lists_flag );
13348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13349: THEN
13350: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13351: p_msg_count := 1;
13352: p_msg_data := 'Exiting create_draft_budget_wrp';
13346: ,p_replace_current_working_flag => p_replace_current_working_flag
13347: ,p_using_resource_lists_flag => p_using_resource_lists_flag );
13348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13349: THEN
13350: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13351: p_msg_count := 1;
13352: p_msg_data := 'Exiting create_draft_budget_wrp';
13353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13354:
13349: THEN
13350: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13351: p_msg_count := 1;
13352: p_msg_data := 'Exiting create_draft_budget_wrp';
13353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13354:
13355: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13356: THEN
13357: p_return_status := FND_API.G_RET_STS_ERROR;
13351: p_msg_count := 1;
13352: p_msg_data := 'Exiting create_draft_budget_wrp';
13353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13354:
13355: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13356: THEN
13357: p_return_status := FND_API.G_RET_STS_ERROR;
13358: p_msg_count := 1;
13359: p_msg_data := 'Exiting create_draft_budget_wrp';
13353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13354:
13355: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13356: THEN
13357: p_return_status := FND_API.G_RET_STS_ERROR;
13358: p_msg_count := 1;
13359: p_msg_data := 'Exiting create_draft_budget_wrp';
13360: RAISE FND_API.G_EXC_ERROR;
13361: END IF;
13356: THEN
13357: p_return_status := FND_API.G_RET_STS_ERROR;
13358: p_msg_count := 1;
13359: p_msg_data := 'Exiting create_draft_budget_wrp';
13360: RAISE FND_API.G_EXC_ERROR;
13361: END IF;
13362:
13363:
13364: -- dbms_output.put_line('about to call baseline_budget ... ');
13366: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13367:
13368: PA_BUDGET_PUB.BASELINE_BUDGET
13369: ( p_api_version_number => p_api_version_number
13370: ,p_commit => FND_API.G_FALSE
13371: ,p_init_msg_list => FND_API.G_FALSE
13372: ,p_msg_count => p_msg_count
13373: ,p_msg_data => p_msg_data
13374: ,p_return_status => l_return_status
13367:
13368: PA_BUDGET_PUB.BASELINE_BUDGET
13369: ( p_api_version_number => p_api_version_number
13370: ,p_commit => FND_API.G_FALSE
13371: ,p_init_msg_list => FND_API.G_FALSE
13372: ,p_msg_count => p_msg_count
13373: ,p_msg_data => p_msg_data
13374: ,p_return_status => l_return_status
13375: ,p_workflow_started => l_workflow_started
13386: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13387: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13388: END IF;
13389:
13390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13391: THEN
13392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13393:
13394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13388: END IF;
13389:
13390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13391: THEN
13392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13393:
13394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13395: THEN
13396: RAISE FND_API.G_EXC_ERROR;
13390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13391: THEN
13392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13393:
13394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13395: THEN
13396: RAISE FND_API.G_EXC_ERROR;
13397: END IF;
13398:
13392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13393:
13394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13395: THEN
13396: RAISE FND_API.G_EXC_ERROR;
13397: END IF;
13398:
13399: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13400: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13398:
13399: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13400: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13401: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13402: ,p_commit => FND_API.G_FALSE
13403: ,p_init_msg_list => FND_API.G_FALSE
13404: ,p_msg_count => l_msg_count
13405: ,p_msg_data => l_msg_data
13406: ,p_return_status => l_return_status
13399: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13400: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13401: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13402: ,p_commit => FND_API.G_FALSE
13403: ,p_init_msg_list => FND_API.G_FALSE
13404: ,p_msg_count => l_msg_count
13405: ,p_msg_data => l_msg_data
13406: ,p_return_status => l_return_status
13407: ,p_pm_product_code => p_pm_product_code
13441: ,p_create_new_curr_working_flag => p_create_new_curr_working_flag
13442: ,p_replace_current_working_flag => p_replace_current_working_flag
13443: ,p_using_resource_lists_flag => p_using_resource_lists_flag);
13444:
13445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13446: THEN
13447: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13448: p_msg_count := 1;
13449: p_msg_data := 'Exiting create_draft_budget_wrp';
13443: ,p_using_resource_lists_flag => p_using_resource_lists_flag);
13444:
13445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13446: THEN
13447: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13448: p_msg_count := 1;
13449: p_msg_data := 'Exiting create_draft_budget_wrp';
13450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13451:
13446: THEN
13447: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13448: p_msg_count := 1;
13449: p_msg_data := 'Exiting create_draft_budget_wrp';
13450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13451:
13452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13453: THEN
13454: p_return_status := FND_API.G_RET_STS_ERROR;
13448: p_msg_count := 1;
13449: p_msg_data := 'Exiting create_draft_budget_wrp';
13450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13451:
13452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13453: THEN
13454: p_return_status := FND_API.G_RET_STS_ERROR;
13455: p_msg_count := 1;
13456: p_msg_data := 'Exiting create_draft_budget_wrp';
13450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13451:
13452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13453: THEN
13454: p_return_status := FND_API.G_RET_STS_ERROR;
13455: p_msg_count := 1;
13456: p_msg_data := 'Exiting create_draft_budget_wrp';
13457: RAISE FND_API.G_EXC_ERROR;
13458: END IF;
13453: THEN
13454: p_return_status := FND_API.G_RET_STS_ERROR;
13455: p_msg_count := 1;
13456: p_msg_data := 'Exiting create_draft_budget_wrp';
13457: RAISE FND_API.G_EXC_ERROR;
13458: END IF;
13459:
13460: -- dbms_output.put_line('about to call baseline_budget ... ');
13461: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13462: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13463:
13464: PA_BUDGET_PUB.BASELINE_BUDGET
13465: ( p_api_version_number => p_api_version_number
13466: ,p_commit => FND_API.G_FALSE
13467: ,p_init_msg_list => FND_API.G_FALSE
13468: ,p_msg_count => p_msg_count
13469: ,p_msg_data => p_msg_data
13470: ,p_return_status => l_return_status
13463:
13464: PA_BUDGET_PUB.BASELINE_BUDGET
13465: ( p_api_version_number => p_api_version_number
13466: ,p_commit => FND_API.G_FALSE
13467: ,p_init_msg_list => FND_API.G_FALSE
13468: ,p_msg_count => p_msg_count
13469: ,p_msg_data => p_msg_data
13470: ,p_return_status => l_return_status
13471: ,p_workflow_started => l_workflow_started
13480: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13481: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13482: END IF;
13483:
13484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13485: THEN
13486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13487:
13488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13482: END IF;
13483:
13484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13485: THEN
13486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13487:
13488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13489: THEN
13490: RAISE FND_API.G_EXC_ERROR;
13484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13485: THEN
13486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13487:
13488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13489: THEN
13490: RAISE FND_API.G_EXC_ERROR;
13491: END IF;
13492: END IF;
13486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13487:
13488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13489: THEN
13490: RAISE FND_API.G_EXC_ERROR;
13491: END IF;
13492: END IF;
13493:
13494: pa_debug.g_err_stage:='Exiting create_draft_budget_wrp';
13505:
13506: IF l_msg_count = 1 THEN
13507:
13508: PA_INTERFACE_UTILS_PUB.get_messages
13509: (p_encoded => FND_API.G_TRUE
13510: ,p_msg_index => 1
13511: ,p_msg_count => l_msg_count
13512: ,p_msg_data => l_msg_data
13513: ,p_data => l_data
13521: p_msg_count := l_msg_count;
13522:
13523: END IF;
13524:
13525: p_return_status := FND_API.G_RET_STS_ERROR;
13526:
13527: pa_debug.g_err_stage:='Invalid Arguments Passed';
13528: IF P_PA_DEBUG_MODE = 'Y' THEN
13529: pa_debug.write('create_draft_budget_wrp: ' || l_module_name,pa_debug.g_err_stage,5);
13534: RAISE;
13535:
13536: WHEN Others THEN
13537:
13538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13539: p_msg_count := 1;
13540: p_msg_data := SQLERRM;
13541:
13542: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
13548: END IF;
13549:
13550: pa_debug.reset_err_stack;
13551:
13552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13553:
13554:
13555: END create_draft_budget_wrp;
13556: --4738996 Ends here