create generator newid;

create table t(
  id bigint primary key, 
  f1 varchar(100), 
  f2 varchar(100) 
);

create table tr(
  id bigint,
  log varchar(100)
);

SET TERM ^ ;

CREATE TRIGGER tbu FOR T
ACTIVE BEFORE UPDATE POSITION 0
AS 
BEGIN 
  insert into tr(id, log) values (gen_id(newid, 1), 'before update: ' || new.f2 );  
END^

CREATE TRIGGER tau FOR T
ACTIVE after UPDATE POSITION 0
AS 
BEGIN 
  insert into tr(id, log) values (gen_id(newid, 1), 'after update: ' || new.f2 );  
END^


create procedure p (
  id bigint) 
returns (
  Result varchar(100)
)
as
begin
  update t 
     set f2 = 'value updated by function' 
   where id = :id;
   
 insert into tr(id, log) 
  select gen_id(newid, 1), 'after statement: ' || f2
   from t where id = :id; 

  Result = 'value from function';
  suspend;
end^


SET TERM ;^ 
commit;
insert into t(id, f1, f2) values (1, 'old f1', 'old f2');
update t 
   set f1 = (select Result from p(1)) 
 where id = 1;
select * from tr order by id;