181: OPEN C;
182: FETCH C INTO Recinfo;
183: IF (C%NOTFOUND) THEN
184: CLOSE C;
185: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
186: APP_EXCEPTION.Raise_Exception;
187: END IF;
188: CLOSE C;
189:
257: AND (P_DELETE_DISABLED_FLAG IS NULL)))
258: ) THEN
259: return;
260: ELSE
261: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
262: APP_EXCEPTION.Raise_Exception;
263: END IF;
264: END Lock_Row;
265: END;