107: END IF;
108: --
109: EXCEPTION
110: WHEN wsh_duplicate_name THEN
111: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
112: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
113: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
114:
115: --
173: OPEN c_lock_role;
174: FETCH c_lock_role INTO l_db_rec;
175: IF c_lock_role%NOTFOUND THEN
176: CLOSE c_lock_role;
177: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
178: app_exception.raise_exception;
179: END IF;
180: CLOSE c_lock_role;
181:
199: END IF;
200: --
201: RETURN;
202: ELSE
203: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
204: app_exception.raise_exception;
205: END IF;
206:
207: --
234: if (c_lock_role%ISOPEN) then
235: close c_lock_role;
236: end if;
237:
238: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
239: FND_MESSAGE.Set_Token('PACKAGE', 'WSH_RU_ROLES_PVT.LOCK_ROW');
240: FND_MESSAGE.Set_Token('ORA_ERROR',sqlcode);
241: FND_MESSAGE.Set_Token('ORA_TEXT',sqlerrm);
242:
235: close c_lock_role;
236: end if;
237:
238: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
239: FND_MESSAGE.Set_Token('PACKAGE', 'WSH_RU_ROLES_PVT.LOCK_ROW');
240: FND_MESSAGE.Set_Token('ORA_ERROR',sqlcode);
241: FND_MESSAGE.Set_Token('ORA_TEXT',sqlerrm);
242:
243: --
236: end if;
237:
238: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
239: FND_MESSAGE.Set_Token('PACKAGE', 'WSH_RU_ROLES_PVT.LOCK_ROW');
240: FND_MESSAGE.Set_Token('ORA_ERROR',sqlcode);
241: FND_MESSAGE.Set_Token('ORA_TEXT',sqlerrm);
242:
243: --
244: -- Debug Statements
237:
238: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
239: FND_MESSAGE.Set_Token('PACKAGE', 'WSH_RU_ROLES_PVT.LOCK_ROW');
240: FND_MESSAGE.Set_Token('ORA_ERROR',sqlcode);
241: FND_MESSAGE.Set_Token('ORA_TEXT',sqlerrm);
242:
243: --
244: -- Debug Statements
245: --
334: END IF;
335: --
336: EXCEPTION
337: WHEN wsh_duplicate_name THEN
338: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
339: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
340: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
341:
342: --