183: FETCH C INTO recinfo;
184: IF C%NOTFOUND THEN
185: CLOSE C;
186: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
187: APP_EXCEPTION.Raise_Exception;
188: END IF;
189: CLOSE C;
190: IF (
191: (recinfo.vendor_id = X_vendor_id)
273: ) THEN
274: RETURN;
275: ELSE
276: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
277: APP_EXCEPTION.Raise_Exception;
278: END IF;
279: END Lock_Row;
280:
281: