User-defined data type dependencies

if exists (select * from sysobjects where id = object_id(N'[dbo].[UDTDepends]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[UDTDepends]
GO

Create Proc UDTDepends 
As

SET NOCOUNT ON

    SELECT so.name As "ObjectName", sc.name As "ColumnName", type_name(st.xusertype) As "UserDefinedDataType", 
        type_name(sc.xtype) As "DataType", st.length As "DataLength"

    FROM sysobjects so, syscolumns sc, systypes st

    WHERE so.xtype In ('U', 'P') and sc.id = so.id and sc.xusertype = st.xusertype and 
    sc.usertype Not In (0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 19, 20, 21, 22, 23, 24, 80) 

    ORDER BY so.xtype desc, so.name, st.name

SET NOCOUNT OFF