Firebird - Ocultar código de procedures, triggers e functions

UPDATE RDB$PROCEDURES P SET
   P.PRDB$PROCEDURE_SOURCE = NULL
WHERE
   P.RDB$PROCEDURE_NAME = 'PROC_NAME'


UPDATE RDB$TRIGGERS T SET
   T.RDB$TRIGGER_SOURCE = NULL
WHERE
   T.RDB$TRIGGER_NAME = 'TRG_NAME'


UPDATE RDB$FUNCTIONS F SET
   F.RDB$FUNCTION_SOURCE = NULL
WHERE
   F.RDB$FUNCTION_NAME = 'FUNC_NAME'