240: OPEN C;
241: FETCH C INTO Recinfo;
242: If (C%NOTFOUND) then
243: CLOSE C;
244: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
245: APP_EXCEPTION.RAISE_EXCEPTION;
246: End If;
247: CLOSE C;
248:
254:
255: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
256: return;
257: else
258: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
259: APP_EXCEPTION.RAISE_EXCEPTION;
260: End If;
261:
262: END Lock_Row;