Como listar Los procedimientos almacenados en una BDD

[[sitrico]]

Con este truco logro leer las tablas y vistas de una Base de Datos:

lo importante del truco:

select DISTINCT RDB$RELATION_NAME from RDB$RELATION_FIELDS
where RDB$SYSTEM_FLAG = 0

¿ como puedo hacer para obtener la lista de los procedimientos ?

PD: D7, IBExpert y Firebird 2.1

[[sitrico]]

olvidenlo.

select distinct RDB$PROCEDURE_NAME from RDB$PROCEDURES