SET TERM ^ ;

CREATE OR ALTER procedure SP_NOTIFICAR_ERRO (
    MSG varchar(8000))
as
BEGIN
  IF(CHAR_LENGTH(TRIM(MSG)) > 0)THEN
  BEGIN
    EXCEPTION "..." :MSG;
  END
END^

^ SET TERM ; ^