Data Dictionary using sys.objects - SQL 2008

--- Code for first stored procedure that gets table information ---
--- This will get all the tables in the database and then any values created 
--- in extended properties
select 
t.object_id,t.name,ep.value from sys.tables t
inner join sys.extended_properties ep on ep.major_id = t.object_id and ep.minor_id = t.parent_object_id
where t.name not in ('sysdiagrams','DataDictionary')

--- Code for second stored procedure
--- When the report passes the object_id of the table to the sp
--- this will get all the fields, datatype, is column nullable and default
--- value of field if one is defined.

    select    
            c.name ColumnName
        ,    st.name + '(' + case when c.max_length = -1 then 'max' else cast(c.max_length as varchar(100)) end + ')' DataType
        ,    case when c.is_nullable = 0 then 'False' else 'True' end ColumnNullable
        ,    ep.value Descrip
        ,    dc.definition DefaultValue
        ,    c.column_id
        ,    case when c.is_identity = 1 then 'Yes' else '' end PK
             from sys.columns c
        inner join sys.systypes st on st.xtype = c.user_type_id
        left outer join sys.extended_properties ep on ep.major_id = c.object_id and ep.minor_id = c.column_id
        left outer join sys.default_constraints dc on dc.parent_column_id = c.column_id and dc.parent_object_id = c.object_id
      where c.object_id = @ObjectID
      order by c.column_id