CREATE OR ALTER trigger ttbmedico_b9u for tbmedico
active after update position 9
AS
--*****************************
--*       REGISTRA LOG        *
--*       DE ALTERACAOO        *
--*****************************
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

   HISTORICO = '';

   IF (OLD.NOME <> NEW.NOME) THEN
       BEGIN
       HISTORICO = HISTORICO||' NOME: '||OLD.NOME||'->'||NEW.NOME;
       END
   IF (OLD.TELEFONE <> NEW.TELEFONE) THEN
       BEGIN
       HISTORICO = HISTORICO||' TELEFONE: '||OLD.TELEFONE||'->'||NEW.TELEFONE;
       END
   IF (OLD.REGISTRO_TIPO <> NEW.REGISTRO_TIPO) THEN
       BEGIN
       HISTORICO = HISTORICO||' TP.REGISTRO: '||OLD.REGISTRO_TIPO||'->'||NEW.REGISTRO_TIPO;
       END
   IF (OLD.REGISTRO_NUMERO <> NEW.REGISTRO_NUMERO) THEN
       BEGIN
       HISTORICO = HISTORICO||' NR.REGISTRO: '||OLD.REGISTRO_NUMERO||'->'||NEW.REGISTRO_NUMERO;
       END
   IF (OLD.REGISTRO_UF <> NEW.REGISTRO_UF) THEN
       BEGIN
       HISTORICO = HISTORICO||' UF REGISTRO: '||OLD.REGISTRO_UF||'->'||NEW.REGISTRO_UF;
       END

   IF (HISTORICO <> '') THEN
   BEGIN
        HISTORICO = ' REGISTRO ALTERADO: '||HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBMEDICO',NEW.ID,:HISTORICO);
   END
END;