5: -- Declare Package Variables --
6: -------------------------------
7:
8: c_user_id CONSTANT NUMBER := FND_GLOBAL.USER_ID;
9: c_success CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10: c_error CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: c_unexp CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
12: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_ADMIN_UTIL_PKG';
13:
6: -------------------------------
7:
8: c_user_id CONSTANT NUMBER := FND_GLOBAL.USER_ID;
9: c_success CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10: c_error CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: c_unexp CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
12: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_ADMIN_UTIL_PKG';
13:
14: bad_gvsc_id EXCEPTION;
7:
8: c_user_id CONSTANT NUMBER := FND_GLOBAL.USER_ID;
9: c_success CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10: c_error CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: c_unexp CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
12: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_ADMIN_UTIL_PKG';
13:
14: bad_gvsc_id EXCEPTION;
15: e_unexp EXCEPTION;
1527: FND_MSG_PUB.Initialize;
1528: END IF;
1529:
1530: -- Check for call compatibility.
1531: IF NOT FND_API.Compatible_API_Call (c_api_version,
1532: p_api_version,
1533: C_API_NAME,
1534: G_PKG_NAME)
1535: THEN
2389: -- Initialize return status to unexpected error
2390: x_return_status := c_unexp;
2391:
2392: -- Check for call compatibility.
2393: IF NOT FND_API.Compatible_API_Call (c_api_version,
2394: p_api_version,
2395: C_API_NAME,
2396: G_PKG_NAME)
2397: THEN
2543: -- Initialize return status to unexpected error
2544: x_return_status := c_unexp;
2545:
2546: -- Check for call compatibility.
2547: IF NOT FND_API.Compatible_API_Call (c_api_version,
2548: p_api_version,
2549: C_API_NAME,
2550: G_PKG_NAME)
2551: THEN