199: FETCH c_lock_grant INTO l_db_rec;
200: IF c_lock_grant%NOTFOUND THEN
201: CLOSE c_lock_grant;
202: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
203: app_exception.raise_exception;
204: END IF;
205: CLOSE c_lock_grant;
206:
207: IF (l_db_rec.USER_ID = p_grant_record.USER_ID)
230: --
231: RETURN;
232: ELSE
233: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
234: app_exception.raise_exception;
235: END IF;
236:
237: --
238: -- Debug Statements
241: WSH_DEBUG_SV.pop(l_module_name);
242: END IF;
243: --
244: EXCEPTION
245: WHEN app_exception.application_exception
246: or app_exception.record_lock_exception THEN
247:
248: if (c_lock_grant%ISOPEN) then
249: close c_lock_grant;
242: END IF;
243: --
244: EXCEPTION
245: WHEN app_exception.application_exception
246: or app_exception.record_lock_exception THEN
247:
248: if (c_lock_grant%ISOPEN) then
249: close c_lock_grant;
250: end if;
252: --
253: -- Debug Statements
254: --
255: IF l_debug_on THEN
256: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
257: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
258: END IF;
259: --
260: RAISE;
253: -- Debug Statements
254: --
255: IF l_debug_on THEN
256: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
257: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
258: END IF;
259: --
260: RAISE;
261: