81: OPEN C;
82: FETCH C INTO Recinfo;
83: if (C%NOTFOUND) then
84: CLOSE C;
85: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
86: APP_EXCEPTION.Raise_Exception;
87: end if;
88: CLOSE C;
89: if (
99: AND (Recinfo.created_by = X_Created_By)
100: ) then
101: return;
102: else
103: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
104: APP_EXCEPTION.Raise_Exception;
105: end if;
106: END Lock_Row;
107: