107: FETCH C INTO Recinfo;
108: IF ( C%NOTFOUND ) THEN
109: CLOSE C;
110: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
111: APP_EXCEPTION.RAISE_EXCEPTION;
112: END IF;
113: CLOSE C;
114:
115: IF ( Recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
116: THEN
117: RETURN;
118: ELSE
119: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
120: APP_EXCEPTION.RAISE_EXCEPTION;
121: END IF;
122:
123: END Lock_Row;
124: