Checking All Date Columns in a Table(s)

/****** Object:  StoredProcedure [dbo].[usp_TblDateMinMax]    Script Date: 10/27/2014 9:02:53 AM ******/SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO


-- =====================================================
-- Author:Larry Schmidt
-- Create date: October 21, 2014
-- Description:Find the maximum and minimum dates
--                 in each of the date columns in
--   all Scorecard tables SCD_Projectxxx
-- =====================================================
CREATE PROCEDURE [dbo].[usp_TblDateMinMax] @TableMask varchar(max)

AS

CREATE Table #DateResults (ID int,TblCol varchar(max), Maxdt date, Mindt date)

select IDENTITY(INT, 1,1) AS [ID],o.name AS Tbl,c.name AS Col
  into #Scorecardtmp
from syscolumns c
INNER JOIN sysobjects o ON c.id = o.id
where o.xtype = 'U' and c.xusertype in (40,58,61) and o.name like @TableMask and c.name <> 'RowInsertDate' and c.name <> 'LastModifiedDate'
order by o.name,c.name

DECLARE @MaxRownum INT
SET @MaxRownum = (SELECT MAX(ID) FROM #Scorecardtmp)

DECLARE @Iter INT
SET @Iter = 1

DECLARE @SQLCmd varchar(max), @Maxdt date, @Mindt date, @Tbl varchar(max), @Col varchar(max), @ID int

 WHILE @Iter <= @MaxRownum
BEGIN
     SELECT @ID = ID, @Tbl = Tbl, @Col = Col from #Scorecardtmp WHERE ID = @Iter
 INSERT INTO #DateResults (ID, TblCol) VALUES (@Iter,'Table: ' + @Tbl + ', Column: ' + @Col)
 SET @SQLCmd = 'UPDATE #DateResults SET Mindt = (SELECT min(' + @Col + ') from ' + @Tbl + ') where ID = ' + CAST(@Iter as varchar)
 exec (@SQLCmd)
 SET @SQLCmd = 'UPDATE #DateResults SET Maxdt = (SELECT max(' + @Col + ') from ' + @Tbl + ') where ID = ' + CAST(@Iter as varchar)
     exec (@SQLCmd)
     
     SET @Iter = @Iter + 1
END

select * from #DateResults

drop table #Scorecardtmp
drop table #DateResults