SQL Server - Migración de Datos

Deseo que alguien me ayude para Migrar este Código a SQL SERVER 200

create or replace function CreaDigitoVerificador(codigoBarra in string, operacion in number) return number is
tmpDigito number := 0;
contenedor number := 0;
ultimoDigito varchar2(1) := null;
digitoVerificador varchar2(1) := null;
tmp number(1) := 0;
soloNum varchar2(30):= null;
longitudCodigo number(2) := 0;
begin
soloNum := replace(codigoBarra,'-','');
longitudCodigo := length(soloNum);
for i in 1..longitudCodigo loop
if mod(i, 2) = 0 then
tmpDigito := to_number(substr(soloNum,(longitudCodigo + 1)- i,1));
else
tmpDigito := to_number(substr(soloNum,(longitudCodigo + 1)- i,1)) * operacion;
end if;
contenedor := contenedor + tmpDigito;
end loop;

digitoVerificador := substr(contenedor,length(contenedor),1);
if digitoVerificador = '0'
then
return(digitoVerificador);
else
return(10 - to_number(digitoVerificador));
end if;
dbms_output.put_line('digitoVerificador '||digitoVerificador);
end creaDigitoVerificador;