Firebird - Procurar Texto em Procedures e Triggers

SELECT
   'TRIGGER' AS TIPO,
   T.RDB$TRIGGER_NAME AS NOME,
   T.RDB$TRIGGER_SOURCE AS CODIGO
FROM RDB$TRIGGERS T
WHERE
   UPPER(T.RDB$TRIGGER_SOURCE) LIKE '%' || :TEXTO || '%'

UNION ALL

SELECT
   'PROCEDURE' AS TIPO,
   P.RDB$PROCEDURE_NAME AS NOME,
   P.RDB$PROCEDURE_SOURCE AS CODIGO
FROM RDB$PROCEDURES P
WHERE
   UPPER(P.RDB$PROCEDURE_SOURCE) LIKE '%' || :TEXTO || '%'