202: FETCH C INTO Recinfo;
203: if (C%NOTFOUND) then
204: CLOSE C;
205: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
206: APP_EXCEPTION.Raise_Exception;
207: end if;
208: CLOSE C;
209: if (
210: (Recinfo.lease_id = X_Lease_Id)
295: ) then
296: return;
297: else
298: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
299: APP_EXCEPTION.Raise_Exception;
300: end if;
301:
302: exception
303: when others then
301:
302: exception
303: when others then
304: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
305: APP_EXCEPTION.RAISE_EXCEPTION;
306: END Lock_Row;
307:
308: PROCEDURE Update_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
309: X_Lease_id NUMBER,