355: OPEN C;
356: FETCH C INTO Recinfo;
357: If (C%NOTFOUND) then
358: CLOSE C;
359: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
360: APP_EXCEPTION.RAISE_EXCEPTION;
361: End If;
362: CLOSE C;
363:
368:
369: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
370: return;
371: else
372: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
373: APP_EXCEPTION.RAISE_EXCEPTION;
374: End If;
375: END Lock_Row;
376: