Function Used to Reformat Phone Numbers

/****** Object:  UserDefinedFunction [dbo].[FormatPhone]    Script Date: 12/01/2006 11:05:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION [dbo].[FormatPhone](
@phone NVARCHAR(60)
)
RETURNS NVARCHAR(60)
AS
  BEGIN
-- Strip @number of extra chracters
	DECLARE @lenPhone INT ,@phoneStr NVARCHAR(30)
	WHILE PATINDEX('%[^0-9]%', @phone) > 0 
        SET @phone = REPLACE(@phone, 
            SUBSTRING(@phone,PATINDEX('%[^0-9]%', @phone),1),'') 
	-- Format as 000-000-0000
		SET @lenPhone = LEN(@phone)-10
-- Remove Leading 1 
	IF SUBSTRING(@phone,1,1) ='1' and LEN(@phone) >10
		BEGIN
			SET @phone=SUBSTRING(@phone,2,LEN(@phone)-1)
		END	
--	Format @phone string to 000-000-0000 ext. 0000
		SET @phoneStr=@phone
		SET	@phone = SUBSTRING(@phone,1,3)+
			'-' + SUBSTRING(@phone,4,3) +
			'-'+ SUBSTRING(@phone,7,4)
-- ADD Extension
	IF @lenPhone > 1 
		SET @phone=@phone +' ext: '+ SUBSTRING(@phoneStr,11,@lenPhone)
-- Returns Value 
    RETURN @phone
END