SQL Server query to return the code for an object by name.

Object Code Query

SELECT  [Item]
FROM sys.sql_modules
CROSS APPLY (
    SELECT    ROW_NUMBER() OVER(ORDER BY N) AS [Ordinal],
            SUBSTRING([definition], N, CHARINDEX(CHAR(13), [definition] + CHAR(13), N) - N) AS [Item]
    FROM    dbo.Numbers
    WHERE    N <= CONVERT(INT, LEN([definition]))
        AND SUBSTRING(CHAR(13) + [definition], N, 1) = CHAR(13)
) t
WHERE OBJECT_NAME(object_id) = 'OBJECTNAME'