UFN_MAKEINITIALS

CREATE function dbo.[UFN_MAKEINITIALS]
(
  @s nvarchar(100)
)
returns nvarchar(100)
as
begin
  if len(@s) = 0 return '';

  if left(@s, 1) + right(@s, 1) = '<>' -- Must be a prototype

    return left(@s,len(@s)-1) + N'Initials>';

  declare @result nvarchar(100);
  declare @pos integer;

  set @result=left(@s, 1) + N'.';

  set @pos = charindex(' ', @s);
  while @pos>0 begin
    set @result = @result + N' ' + substring(@s, @pos+1, 1) + N'.';
    set @pos = charindex(' ', @s, @pos+1);
  end

  return @result;
end