Funcion para actualizar

[Darsk]

create or replace procedure actualizar_precio(codigo articulos.cod_articulo%type)
is
pre articulos.precio%type;
BEGIN
select precio INTO pre from articulos;
if(pre < 10000) then
update articulos set pre = 10000 + 500 where codigo = cod_articulo;
end if;
if(pre between 10000 and 15000) then
UPDATE articulos SET pre = pre +1500 WHERE codigo = cod_articulo ;
end if;
if(pre > 20000) then
UPDATE articulos SET pre = 22000 WHERE codigo = cod_articulo;
end if;
if(pre = 0) then
update articulos set pre = 0;
end if;
dbms_output.put_line('El precio ha sido actualizado en pre' || pre);
END;



no se donde esta el problema, me arroja lo siguiente :

ERROR en línea 7: PL/SQL: ORA-01733: columna virtual no permitida aquí

ayuda por favor, saludos.