65: OPEN C;
66: FETCH C INTO Recinfo;
67: if (C%NOTFOUND) then
68: CLOSE C;
69: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
70: APP_EXCEPTION.Raise_Exception;
71: end if;
72: CLOSE C;
73: if (
78: AND (Recinfo.project_id = X_Project_Id)
79: ) then
80: return;
81: else
82: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
83: APP_EXCEPTION.Raise_Exception;
84: end if;
85: END Lock_Row;
86: