drop function dbo.soundex5;
go

create function Soundex5( @name varchar(30))
returns varchar(5)
as
begin

declare
	@out varchar(20),
	@i int,
	@vc varchar(1);

set @name = @name + '00000';

set @out = left(@name,1);

set @i = 2;
while @i <= len(@name)
begin
	set @vc = substring(@name, @i, 1)

	set @out = @out + 
		case
		when charindex(@vc, 'bfpv') > 0 then '1'
		when charindex(@vc, 'cgjkqsxz') > 0 then '2'
		when charindex(@vc, 'dt') > 0 then '3'
		when charindex(@vc, 'l') > 0 then '4'
		when charindex(@vc, 'mn') > 0 then '5'
		when charindex(@vc, 'r') > 0 then '6'
		when charindex(@vc, '0') > 0 then '0'
		else ''
		end;

	set @i = @i + 1;
end

-- ignore similar consecutive sounds
set @out = REPLACE(@out,'11','1');
set @out = REPLACE(@out,'22','2');
set @out = REPLACE(@out,'33','3');
set @out = REPLACE(@out,'44','4');
set @out = REPLACE(@out,'55','5');
set @out = REPLACE(@out,'66','6');

return left(@out,5);

end
go