134: THEN
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137: IF l_function_allowed = 'N' THEN
138: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
139: FND_MSG_PUB.ADD;
140: p_resource_list_out_rec.return_status:= FND_API.G_RET_STS_ERROR;
141: p_return_status := FND_API.g_ret_sts_error;
142: RAISE FND_API.G_EXC_ERROR;
166: IF l_err_code > 0 THEN
167: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
168: THEN
169: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
170: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RES_LIST_CREATION');
171: ELSE
172: FND_MESSAGE.SET_NAME('PA',l_err_stage);
173: END IF;
174: FND_MSG_PUB.ADD;
168: THEN
169: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
170: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RES_LIST_CREATION');
171: ELSE
172: FND_MESSAGE.SET_NAME('PA',l_err_stage);
173: END IF;
174: FND_MSG_PUB.ADD;
175: END IF;
176: RAISE FND_API.G_EXC_ERROR;
348: IF l_err_code > 0 THEN
349: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
350: THEN
351: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
352: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RL_MEMB_CREATION');
353: ELSE
354: FND_MESSAGE.SET_NAME('PA',l_err_stage);
355: END IF;
356: FND_MSG_PUB.ADD;
350: THEN
351: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
352: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RL_MEMB_CREATION');
353: ELSE
354: FND_MESSAGE.SET_NAME('PA',l_err_stage);
355: END IF;
356: FND_MSG_PUB.ADD;
357: END IF;
358: RAISE FND_API.G_EXC_ERROR;
483: p_return_status := FND_API.g_ret_sts_success;
484:
485: IF ((p_resource_alias IS NULL ) OR
486: (p_resource_alias = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
487: FND_MESSAGE.SET_NAME('PA','PA_NEW_ALIAS_IS_INVALID ');
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
545: FETCH l_org_csr INTO l_proj_organization_id;
546: IF l_org_csr%NOTFOUND THEN
547: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
548: THEN
549: FND_MESSAGE.SET_NAME('PA','PA_INVALID_ORGANIZATION');
550: FND_MSG_PUB.ADD;
551: END IF;
552: CLOSE l_org_csr;
553: RAISE FND_API.G_EXC_ERROR;
1273: THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: IF l_function_allowed = 'N' THEN
1277: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1278: FND_MSG_PUB.ADD;
1279: p_return_status := FND_API.g_ret_sts_error;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1317: IF ((p_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)) THEN
1318: IF (p_start_date IS NULL) THEN
1319: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1320: THEN
1321: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1322: FND_MSG_PUB.ADD;
1323: END IF;
1324: RAISE FND_API.G_EXC_ERROR;
1325: ELSIF ((p_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1327: IF (p_start_date > p_end_date)
1328: THEN
1329: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1330: THEN
1331: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1332: FND_MSG_PUB.ADD;
1333: END IF;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1343:
1344: IF (p_new_list_name IS NULL) THEN
1345: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1346: THEN
1347: FND_MESSAGE.SET_NAME('PA', 'PA_NEW_RES_LIST_NO_NULL');
1348: FND_MSG_PUB.ADD;
1349: END IF;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1357: FETCH l_new_list_name_csr INTO l_dummy;
1358: IF (l_new_list_name_csr %FOUND) THEN
1359: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1360: THEN
1361: FND_MESSAGE.SET_NAME('PA', 'PA_RE_RL_UNIQUE');
1362: FND_MSG_PUB.ADD;
1363: END IF;
1364: CLOSE l_new_list_name_csr;
1365: RAISE FND_API.G_EXC_ERROR;
1375: FETCH l_grouped_by_type_csr INTO l_dummy;
1376: IF (l_grouped_by_type_csr%FOUND) THEN
1377: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1378: THEN
1379: FND_MESSAGE.SET_NAME('PA', 'PA_NO_CHANGE_GROUP_BY_TYPE');
1380: FND_MSG_PUB.ADD;
1381: END IF;
1382: CLOSE l_grouped_by_type_csr;
1383: RAISE FND_API.G_EXC_ERROR;
1397: FETCH l_resource_type_csr INTO l_resource_type_id;
1398: IF (l_resource_type_csr%NOTFOUND) THEN
1399: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1400: THEN
1401: FND_MESSAGE.SET_NAME('PA', 'PA_GROUPED_RT_INVALID');
1402: FND_MSG_PUB.ADD;
1403: END IF;
1404: CLOSE l_resource_type_csr;
1405: RAISE FND_API.G_EXC_ERROR;
1429: IF (p_start_date > l_end_date_active_old)
1430: THEN
1431: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1432: THEN
1433: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1434: FND_MSG_PUB.ADD;
1435: END IF;
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1445: IF (l_start_date_active_old > p_end_date)
1446: THEN
1447: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1448: THEN
1449: FND_MESSAGE.SET_NAME('PA','PA_INVALID_END_DATE');
1450: FND_MSG_PUB.ADD;
1451: END IF;
1452: RAISE FND_API.G_EXC_ERROR;
1453: END IF;
1684:
1685: p_return_status := FND_API.G_RET_STS_ERROR ;
1686: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1687: THEN
1688: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
1689: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
1690: FND_MSG_PUB.ADD;
1691: END IF;
1692:
1685: p_return_status := FND_API.G_RET_STS_ERROR ;
1686: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1687: THEN
1688: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
1689: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
1690: FND_MSG_PUB.ADD;
1691: END IF;
1692:
1693: ROLLBACK TO Update_Resource_List_Mbr_Pub;
1946: THEN
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1949: IF l_function_allowed = 'N' THEN
1950: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1951: FND_MSG_PUB.ADD;
1952: p_return_status := FND_API.g_ret_sts_error;
1953: RAISE FND_API.G_EXC_ERROR;
1954: END IF;
1985: x_err_code => x_err_code,
1986: x_err_stage => x_err_stage);
1987: IF x_err_code <> 0 THEN
1988: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1989: FND_MESSAGE.SET_NAME('PA', x_err_stage);
1990: FND_MSG_PUB.ADD;
1991: END IF;
1992: RAISE FND_API.G_EXC_ERROR;
1993: END IF;
2014: ROLLBACK TO Delete_Resource_List_Pub;
2015:
2016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2017: THEN
2018: FND_MESSAGE.SET_NAME('PA','PA_RL_MEMBER_DELETE_ERROR');
2019: FND_MSG_PUB.ADD;
2020: END IF;
2021:
2022: FND_MSG_PUB.Count_And_Get
2046: ROLLBACK TO Delete_Resource_List_Pub;
2047:
2048: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2049: THEN
2050: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
2051: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
2052: FND_MSG_PUB.ADD;
2053: END IF;
2054:
2047:
2048: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2049: THEN
2050: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
2051: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
2052: FND_MSG_PUB.ADD;
2053: END IF;
2054:
2055: FND_MSG_PUB.Count_And_Get
2062: ROLLBACK TO Delete_Resource_List_Pub;
2063:
2064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2065: THEN
2066: FND_MESSAGE.SET_NAME('PA','PA_RL_DELETE_ERROR');
2067: FND_MSG_PUB.ADD;
2068: END IF;
2069:
2070: FND_MSG_PUB.Count_And_Get
2239: THEN
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242: IF l_function_allowed = 'N' THEN
2243: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2244: FND_MSG_PUB.ADD;
2245: p_return_status := FND_API.g_ret_sts_error;
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2259: IF p_resource_type_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2260: p_resource_list_member_id := NULL;
2261: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2262: THEN
2263: FND_MESSAGE.SET_NAME('PA','PA_RL_RES_TYPE_CODE_REQD');
2264: FND_MSG_PUB.ADD;
2265: END IF;
2266: RAISE FND_API.G_EXC_ERROR;
2267: END IF;
2269: IF p_resource_attr_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2270: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2271: THEN
2272: IF p_resource_type_code = 'EMPLOYEE' THEN
2273: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PERSON_ID');
2274: ELSIF p_resource_type_code = 'JOB' THEN
2275: FND_MESSAGE.SET_NAME('PA', 'PA_NO_JOB_ID');
2276: ELSIF p_resource_type_code = 'ORGANIZATION' THEN
2277: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PROJ_ORG_ID');
2271: THEN
2272: IF p_resource_type_code = 'EMPLOYEE' THEN
2273: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PERSON_ID');
2274: ELSIF p_resource_type_code = 'JOB' THEN
2275: FND_MESSAGE.SET_NAME('PA', 'PA_NO_JOB_ID');
2276: ELSIF p_resource_type_code = 'ORGANIZATION' THEN
2277: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PROJ_ORG_ID');
2278: ELSIF p_resource_type_code = 'VENDOR' THEN
2279: FND_MESSAGE.SET_NAME('PA', 'PA_NO_VENDOR_ID');
2273: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PERSON_ID');
2274: ELSIF p_resource_type_code = 'JOB' THEN
2275: FND_MESSAGE.SET_NAME('PA', 'PA_NO_JOB_ID');
2276: ELSIF p_resource_type_code = 'ORGANIZATION' THEN
2277: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PROJ_ORG_ID');
2278: ELSIF p_resource_type_code = 'VENDOR' THEN
2279: FND_MESSAGE.SET_NAME('PA', 'PA_NO_VENDOR_ID');
2280: ELSIF p_resource_type_code = 'EXPENDITURE_TYPE' THEN
2281: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_TYPE');
2275: FND_MESSAGE.SET_NAME('PA', 'PA_NO_JOB_ID');
2276: ELSIF p_resource_type_code = 'ORGANIZATION' THEN
2277: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PROJ_ORG_ID');
2278: ELSIF p_resource_type_code = 'VENDOR' THEN
2279: FND_MESSAGE.SET_NAME('PA', 'PA_NO_VENDOR_ID');
2280: ELSIF p_resource_type_code = 'EXPENDITURE_TYPE' THEN
2281: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_TYPE');
2282: ELSIF p_resource_type_code = 'EVENT_TYPE' THEN
2283: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EVENT_TYPE');
2277: FND_MESSAGE.SET_NAME('PA', 'PA_NO_PROJ_ORG_ID');
2278: ELSIF p_resource_type_code = 'VENDOR' THEN
2279: FND_MESSAGE.SET_NAME('PA', 'PA_NO_VENDOR_ID');
2280: ELSIF p_resource_type_code = 'EXPENDITURE_TYPE' THEN
2281: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_TYPE');
2282: ELSIF p_resource_type_code = 'EVENT_TYPE' THEN
2283: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EVENT_TYPE');
2284: ELSIF p_resource_type_code = 'EXPENDITURE_CATEGORY' THEN
2285: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_CATEGORY');
2279: FND_MESSAGE.SET_NAME('PA', 'PA_NO_VENDOR_ID');
2280: ELSIF p_resource_type_code = 'EXPENDITURE_TYPE' THEN
2281: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_TYPE');
2282: ELSIF p_resource_type_code = 'EVENT_TYPE' THEN
2283: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EVENT_TYPE');
2284: ELSIF p_resource_type_code = 'EXPENDITURE_CATEGORY' THEN
2285: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_CATEGORY');
2286: ELSIF p_resource_type_code = 'REVENUE_CATEGORY' THEN
2287: FND_MESSAGE.SET_NAME('PA', 'REVENUE_CATEGORY');
2281: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_TYPE');
2282: ELSIF p_resource_type_code = 'EVENT_TYPE' THEN
2283: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EVENT_TYPE');
2284: ELSIF p_resource_type_code = 'EXPENDITURE_CATEGORY' THEN
2285: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_CATEGORY');
2286: ELSIF p_resource_type_code = 'REVENUE_CATEGORY' THEN
2287: FND_MESSAGE.SET_NAME('PA', 'REVENUE_CATEGORY');
2288: END IF;
2289: p_resource_list_member_id := NULL;
2283: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EVENT_TYPE');
2284: ELSIF p_resource_type_code = 'EXPENDITURE_CATEGORY' THEN
2285: FND_MESSAGE.SET_NAME('PA', 'PA_NO_EXPENDITURE_CATEGORY');
2286: ELSIF p_resource_type_code = 'REVENUE_CATEGORY' THEN
2287: FND_MESSAGE.SET_NAME('PA', 'REVENUE_CATEGORY');
2288: END IF;
2289: p_resource_list_member_id := NULL;
2290: FND_MSG_PUB.ADD;
2291: END IF;
2318: IF l_resource_list_csr%NOTFOUND THEN
2319: CLOSE l_resource_list_csr;
2320: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2321: THEN
2322: FND_MESSAGE.SET_NAME('PA', 'PA_RL_INVALID');
2323: FND_MSG_PUB.ADD;
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2326: ELSE
2331: (p_resource_group_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR AND
2332: p_resource_group_alias = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) THEN
2333: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2334: THEN
2335: FND_MESSAGE.SET_NAME('PA', 'PA_RL_GROUPED');
2336: FND_MSG_PUB.ADD;
2337: END IF;
2338: RAISE FND_API.G_EXC_ERROR;
2339: END IF;
2396: IF l_err_code > 0 THEN
2397: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2398: THEN
2399: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
2400: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RL_MEMB_CREATION');
2401: ELSE
2402: FND_MESSAGE.SET_NAME ('PA',l_err_stage);
2403: END IF;
2404: FND_MSG_PUB.ADD;
2398: THEN
2399: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
2400: FND_MESSAGE.SET_NAME ('PA','PA_ERR_IN_RL_MEMB_CREATION');
2401: ELSE
2402: FND_MESSAGE.SET_NAME ('PA',l_err_stage);
2403: END IF;
2404: FND_MSG_PUB.ADD;
2405: END IF;
2406: RAISE FND_API.G_EXC_ERROR;
2625: THEN
2626: RAISE FND_API.G_EXC_ERROR;
2627: END IF;
2628: IF l_function_allowed = 'N' THEN
2629: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2630: FND_MSG_PUB.ADD;
2631: p_return_status := FND_API.g_ret_sts_error;
2632: RAISE FND_API.G_EXC_ERROR;
2633: END IF;
2672:
2673: IF (p_new_alias IS NULL) THEN
2674: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2675: THEN
2676: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NO_NULL');
2677: FND_MSG_PUB.ADD;
2678: END IF;
2679: RAISE FND_API.G_EXC_ERROR;
2680: END IF;
2681:
2682: IF (p_sort_order IS NULL) THEN
2683: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2684: THEN
2685: FND_MESSAGE.SET_NAME('PA','PA_P_SORT_ORDER_NO_NULL');
2686: FND_MSG_PUB.ADD;
2687: END IF;
2688: RAISE FND_API.G_EXC_ERROR;
2689: END IF;
2690:
2691: IF (p_enabled_flag IS NULL) THEN
2692: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2693: THEN
2694: FND_MESSAGE.SET_NAME('PA','PA_P_ENABLED_FLAG_NO_NULL');
2695: FND_MSG_PUB.ADD;
2696: END IF;
2697: RAISE FND_API.G_EXC_ERROR;
2698: END IF;
2707: l_enabled_flag_new := p_enabled_flag;
2708: ELSE
2709: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2710: THEN
2711: FND_MESSAGE.SET_NAME('PA','PA_ENABLED_FLAG_YES_NO');
2712: FND_MSG_PUB.ADD;
2713: END IF;
2714: RAISE FND_API.G_EXC_ERROR;
2715: END IF;
2733: FETCH l_new_alias_none_csr INTO l_dummy;
2734: IF (l_new_alias_none_csr%FOUND) THEN
2735: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2736: THEN
2737: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NOT_UNIQUE ');
2738: FND_MSG_PUB.ADD;
2739: END IF;
2740: CLOSE l_new_alias_none_csr;
2741: RAISE FND_API.G_EXC_ERROR;
2759: FETCH l_new_alias_grouped_csr INTO l_dummy;
2760: IF (l_new_alias_grouped_csr%FOUND) THEN
2761: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2762: THEN
2763: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NOT_UNIQUE ');
2764: FND_MSG_PUB.ADD;
2765: END IF;
2766: CLOSE l_new_alias_grouped_csr;
2767: RAISE FND_API.G_EXC_ERROR;
2858:
2859: p_return_status := FND_API.G_RET_STS_ERROR ;
2860: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2861: THEN
2862: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
2863: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST_MEMBER');
2864: FND_MSG_PUB.ADD;
2865: END IF;
2866:
2859: p_return_status := FND_API.G_RET_STS_ERROR ;
2860: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2861: THEN
2862: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
2863: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST_MEMBER');
2864: FND_MSG_PUB.ADD;
2865: END IF;
2866:
2867: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2994: THEN
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997: IF l_function_allowed = 'N' THEN
2998: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2999: FND_MSG_PUB.ADD;
3000: p_return_status := FND_API.g_ret_sts_error;
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3044: PA_GET_RESOURCE.delete_resource_list_member_ok(l_resource_list_id,l_resource_list_member_id,x_err_code,x_err_stage);
3045:
3046: IF x_err_code <> 0 THEN
3047: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3048: FND_MESSAGE.SET_NAME('PA',x_err_stage);
3049: FND_MSG_PUB.ADD;
3050: END IF;
3051: RAISE FND_API.G_EXC_ERROR;
3052: END IF;
3103: X_RETURN_STATUS =>l_return_status);
3104:
3105: IF x_err_code <> 0 THEN
3106: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3107: FND_MESSAGE.SET_NAME('PA',x_err_stage);
3108: FND_MSG_PUB.ADD;
3109: END IF;
3110: RAISE FND_API.G_EXC_ERROR;
3111: END IF;
3144: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3145:
3146: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3147: THEN
3148: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
3149: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
3150: FND_MSG_PUB.ADD;
3151: END IF;
3152:
3145:
3146: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3147: THEN
3148: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
3149: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
3150: FND_MSG_PUB.ADD;
3151: END IF;
3152:
3153: FND_MSG_PUB.Count_And_Get
3327: THEN
3328: RAISE FND_API.G_EXC_ERROR;
3329: END IF;
3330: IF l_function_allowed = 'N' THEN
3331: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
3332: FND_MSG_PUB.ADD;
3333: p_return_status := FND_API.g_ret_sts_error;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3373:
3374: IF ((p_sort_by <> 'ALIAS') AND (p_sort_by <> 'RESOURCE_NAME')) THEN
3375: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3376: THEN
3377: FND_MESSAGE.SET_NAME('PA','PA_INVALID_SORT_BY');
3378: FND_MSG_PUB.ADD;
3379: END IF;
3380: RAISE FND_API.G_EXC_ERROR;
3381: END IF;
3389: FETCH l_rsrc_grp_csr INTO l_resource_list_member_id;
3390: IF (l_rsrc_grp_csr %NOTFOUND) THEN
3391: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3392: THEN
3393: FND_MESSAGE.SET_NAME('PA','PA_INVALID_RSRC_GROUP_ALIAS');
3394: FND_MSG_PUB.ADD;
3395: END IF;
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3491: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3492:
3493: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3494: THEN
3495: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
3496: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST_MEMBER');
3497: FND_MSG_PUB.ADD;
3498: END IF;
3499:
3492:
3493: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3494: THEN
3495: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
3496: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST_MEMBER');
3497: FND_MSG_PUB.ADD;
3498: END IF;
3499:
3500: FND_MSG_PUB.Count_And_Get
3623: FETCH l_resource_list_csr INTO l_dummy;
3624: IF (l_resource_list_csr %NOTFOUND) THEN
3625: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3626: THEN
3627: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3628: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List');
3629: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_id);
3630: FND_MSG_PUB.ADD;
3631: END IF;
3624: IF (l_resource_list_csr %NOTFOUND) THEN
3625: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3626: THEN
3627: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3628: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List');
3629: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_id);
3630: FND_MSG_PUB.ADD;
3631: END IF;
3632: CLOSE l_resource_list_csr;
3625: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3626: THEN
3627: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3628: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List');
3629: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_id);
3630: FND_MSG_PUB.ADD;
3631: END IF;
3632: CLOSE l_resource_list_csr;
3633: RAISE FND_API.G_EXC_ERROR;
3645: (p_resource_list_name => p_resource_list_name );
3646:
3647: IF l_resource_list_id IS NULL THEN
3648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3649: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3650: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Name');
3651: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_resource_list_name);
3652: FND_MSG_PUB.ADD;
3653: RAISE FND_API.G_EXC_ERROR;
3646:
3647: IF l_resource_list_id IS NULL THEN
3648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3649: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3650: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Name');
3651: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_resource_list_name);
3652: FND_MSG_PUB.ADD;
3653: RAISE FND_API.G_EXC_ERROR;
3654: END IF;
3647: IF l_resource_list_id IS NULL THEN
3648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3649: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3650: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Name');
3651: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_resource_list_name);
3652: FND_MSG_PUB.ADD;
3653: RAISE FND_API.G_EXC_ERROR;
3654: END IF;
3655: ELSE
3819:
3820: FETCH l_resource_list_members_csr INTO l_dummy;
3821: IF (l_resource_list_members_csr %NOTFOUND) THEN
3822: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3823: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3824: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Member');
3825: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_member_id);
3826: FND_MSG_PUB.ADD;
3827: END IF;
3820: FETCH l_resource_list_members_csr INTO l_dummy;
3821: IF (l_resource_list_members_csr %NOTFOUND) THEN
3822: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3823: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3824: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Member');
3825: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_member_id);
3826: FND_MSG_PUB.ADD;
3827: END IF;
3828: CLOSE l_resource_list_members_csr;
3821: IF (l_resource_list_members_csr %NOTFOUND) THEN
3822: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3823: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3824: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Member');
3825: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_member_id);
3826: FND_MSG_PUB.ADD;
3827: END IF;
3828: CLOSE l_resource_list_members_csr;
3829: RAISE FND_API.G_EXC_ERROR;
3857: IF (l_resource_list_member_id IS NULL ) THEN
3858:
3859: p_out_resource_list_member_id := NULL;
3860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3861: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3862: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Alias');
3863: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_alias);
3864: FND_MSG_PUB.ADD;
3865: END IF;
3858:
3859: p_out_resource_list_member_id := NULL;
3860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3861: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3862: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Alias');
3863: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_alias);
3864: FND_MSG_PUB.ADD;
3865: END IF;
3866: RAISE FND_API.G_EXC_ERROR;
3859: p_out_resource_list_member_id := NULL;
3860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
3861: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3862: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Alias');
3863: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_alias);
3864: FND_MSG_PUB.ADD;
3865: END IF;
3866: RAISE FND_API.G_EXC_ERROR;
3867:
3969: FETCH l_emp_csr INTO p_resource_name;
3970: IF (l_emp_csr%NOTFOUND) THEN
3971: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3972: THEN
3973: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EMPLOYEE');
3974: FND_MSG_PUB.ADD;
3975: END IF;
3976: CLOSE l_emp_csr;
3977: RAISE FND_API.G_EXC_ERROR;
3986: FETCH l_job_csr INTO p_resource_name;
3987: IF (l_job_csr%NOTFOUND) THEN
3988: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3989: THEN
3990: FND_MESSAGE.SET_NAME('PA','PA_INVALID_JOB');
3991: FND_MSG_PUB.ADD;
3992: END IF;
3993: CLOSE l_job_csr;
3994: RAISE FND_API.G_EXC_ERROR;
4003: FETCH l_org_csr INTO p_resource_name;
4004: IF (l_org_csr%NOTFOUND) THEN
4005: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4006: THEN
4007: FND_MESSAGE.SET_NAME('PA','PA_INVALID_ORGANIZATION');
4008: FND_MSG_PUB.ADD;
4009: END IF;
4010: CLOSE l_org_csr;
4011: RAISE FND_API.G_EXC_ERROR;
4020: FETCH l_vendor_csr INTO p_resource_name;
4021: IF (l_vendor_csr%NOTFOUND) THEN
4022: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4023: THEN
4024: FND_MESSAGE.SET_NAME('PA','PA_INVALID_VENDOR');
4025: FND_MSG_PUB.ADD;
4026: END IF;
4027: CLOSE l_vendor_csr;
4028: RAISE FND_API.G_EXC_ERROR;
4037: FETCH l_exp_type_csr INTO p_resource_name;
4038: IF (l_exp_type_csr%NOTFOUND) THEN
4039: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4040: THEN
4041: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EXPENDITURE_TYPE');
4042: FND_MSG_PUB.ADD;
4043: END IF;
4044: CLOSE l_exp_type_csr;
4045: RAISE FND_API.G_EXC_ERROR;
4054: FETCH l_exp_category_csr INTO p_resource_name;
4055: IF (l_exp_category_csr%NOTFOUND) THEN
4056: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4057: THEN
4058: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EXP_CATEGORY');
4059: FND_MSG_PUB.ADD;
4060: END IF;
4061: CLOSE l_exp_category_csr;
4062: RAISE FND_API.G_EXC_ERROR;
4071: FETCH l_event_type_csr INTO p_resource_name;
4072: IF (l_event_type_csr%NOTFOUND) THEN
4073: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4074: THEN
4075: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EVENT_TYPE');
4076: FND_MSG_PUB.ADD;
4077: END IF;
4078: CLOSE l_exp_type_csr;
4079: RAISE FND_API.G_EXC_ERROR;
4088: FETCH l_rev_category_csr INTO p_resource_name;
4089: IF (l_rev_category_csr%NOTFOUND) THEN
4090: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4091: THEN
4092: FND_MESSAGE.SET_NAME('PA','PA_INVALID_REV_CATEG');
4093: FND_MSG_PUB.ADD;
4094: END IF;
4095: CLOSE l_rev_category_csr;
4096: RAISE FND_API.G_EXC_ERROR;