create or replace PROCEDURE RegistraErrorLevPed(Vescanid in varchar2,
                     Vsecerr in out number,
                     Verror in varchar2)  IS
   pragma autonomous_transaction;
BEGIN
   Vsecerr:=Vsecerr+1;
   insert into ven_escan_bitacora
   values(Vescanid,vsecerr,Verror);
   commit;
END RegistraErrorLevPed;
/
