Firebird - Exception com parâmetros

CREATE exception EX_DATA 'O valor @1 não é uma data válida!';

CREATE exception EX_VAL_CAMPO 'O Campo @1 não pode receber o valor @2';


CREATE OR ALTER PROCEDURE SP_TESTE (
   inCodigo INTEGER,
   inData   DATE
)
AS BEGIN

   IF (:inData IS NULL) THEN
      exception EX_DATA USING (:inData);

   IF (:inData < CURRENT_TIMESTAMP) THEN
      exception EX_VAL_CAMPO USING ('DATA',:inData);

   IF (:inCodigo IS NULL) THEN
      exception EX_VAL_CAMPO USING ('CODIGO','NULO');

END