Use Master;
/*
Currently, the RegEx CLR functions are installed on MB1 in Master
RegEx CLR can be found at http://www.codeproject.com/Articles/19502/A-T-SQL-Regular-Expression-Library-for-SQL-Server

Note that this will still find the RAISERROR pattern in a string provided there is no concatenation between elements
The number of false positives or missed objects should be very low and able to be handled on a case by case basis
*/
GO
IF OBJECT_ID('tempdb.dbo.#tblObjectInfo') IS NOT NULL 
	DROP TABLE #tblObjectInfo;

CREATE TABLE #tblObjectInfo
			(
			DatabaseName	SYSNAME,
			ObjectID		INT,
			SchemaName		SYSNAME,
			ObjectName		SYSNAME,
			ObjectType		CHAR(2),
			ObjectText		NVARCHAR(MAX),
			PRIMARY KEY (DatabaseName,ObjectID)
			);


DECLARE @SQL NVARCHAR(MAX);

SET @SQL =
'
use ; 
INSERT		#tblObjectInfo
			(
			ObjectID,
			DatabaseName,
			SchemaName,
			ObjectName,
			ObjectType,
			ObjectText	
			)
SELECT		o.Object_ID,
			DB_NAME() AS DatabaseName,
			s.name AS SchemaName,
			o.Name AS ObjectName,
			o.type AS ObjectType,
			--m.definition AS ObjectText -- Uncomment for raw sp deinitions
			-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - --
			-- The below line will replace all COMMENTS in object definitions with empty string
			-- This allows our global search to avoid returning false positives
			-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - --
			Master.dbo.ufn_RegExReplace(m.definition,''(--.*)|(((/\*)+?[\w\W]+?(\*/)+))'', '''', 1) AS ObjectText
FROM		sys.all_sql_modules AS m
JOIN		sys.all_objects AS o 
ON			m.Object_ID = o.Object_ID
JOIN		sys.schemas AS s 
ON			o.schema_id = s.schema_id
WHERE		o.is_ms_shipped=0
------------------------------------------------------
-- custom filter
------------------------------------------------------
AND			m.definition LIKE ''%RAISERROR%''
AND			(o.name NOT LIKE ''sp[_]%'' OR CONVERT(VARBINARY(MAX),o.name) <> CONVERT(VARBINARY(MAX),LOWER(o.name)));
';

EXEC dbo.sp_msforeachDB @SQL;

SELECT		t.DatabaseName,
			t.SchemaName,
			t.ObjectName
FROM		#tblObjectInfo AS t
WHERE		Master.dbo.ufn_RegExIsMatch(t.ObjectText, '\bRAISERROR[\t\n ]+[@0-9]', 1) = 1
ORDER BY	t.DatabaseName,
			t.SchemaName,
			t.ObjectName;