73:
74: L_FOUND BOOLEAN;
75:
76: BEGIN
77: --Standard Start of API SAVEPOINT
78: SAVEPOINT ROLE_RELATE_SP;
79:
80: x_return_status := fnd_api.g_ret_sts_success;
81:
78: SAVEPOINT ROLE_RELATE_SP;
79:
80: x_return_status := fnd_api.g_ret_sts_success;
81:
82: --Standard Call to check API compatibility
83: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
84: THEN
85: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86: END IF;
278: l_msg_data VARCHAR2(200);
279:
280:
281: BEGIN
282: --Standard Start of API SAVEPOINT
283: SAVEPOINT ROLE_RELATE_SP;
284:
285: x_return_status := fnd_api.g_ret_sts_success;
286:
283: SAVEPOINT ROLE_RELATE_SP;
284:
285: x_return_status := fnd_api.g_ret_sts_success;
286:
287: --Standard Call to check API compatibility
288: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
289: THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291: END IF;
407: l_msg_data VARCHAR2(200);
408:
409:
410: BEGIN
411: --Standard Start of API SAVEPOINT
412: SAVEPOINT ROLE_RELATE_SP;
413:
414: x_return_status := fnd_api.g_ret_sts_success;
415:
412: SAVEPOINT ROLE_RELATE_SP;
413:
414: x_return_status := fnd_api.g_ret_sts_success;
415:
416: --Standard Call to check API compatibility
417: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
418: THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;