sp_msforeachdb '
select 
  object_name(s.object_id,db_id(''?'')),
  s.*, p.*
from ?.sys.sql_modules s
  inner join ?.sys.procedures p
    on s.object_id = p.object_id'

EXECUTE sp_msforeachdb 'select specific_catalog, specific_name, routine_definition from ?.information_schema.routines'

EXECUTE sp_msforeachdb 'use ?;select DB_NAME(),s.*, p.*
from sys.sql_modules s
inner join sys.procedures p
on s.object_id = p.object_id'

sp_msforeachdb '
select 
  ''?'' AS DBName,
  object_name(s.object_id,db_id(''?'')),
  s.*, p.*
from ?.sys.sql_modules s
  inner join ?.sys.procedures p
    on s.object_id = p.object_id'