create event FillMonitor
schedule FillMonitorEveryMin
start time '16:00' every  5  minutes
start date '2008-11-14'
handler
begin
  call DBA.a_FillMonitor;
end;

begin
  message 'exec event FillMonitor ' || getdate(*) to console;
  savepoint s1;

  insert into DOC_MONITOR(DOCID, DATEPOST, DATEACCEPT, DATEPRINT, DATECANCEL)
  select d.DOCID, getdate(*), null, null, null
  from DOCUMENTS d
  where d.STATE =  1 
    and d.CLASS like '%'
    and datediff(minute, isnull(d.DATEACCEPT, d.DATECREATE), getdate(*)) >  15 
    and not exists(select  1  from DOC_MONITOR dm where dm.DOCID = d.DOCID);

  if @@error !=  0  then 
    rollback to savepoint s1
  else 
    release savepoint s1
  end if;
end

message 'exec event FillMonitor ' || getdate(*) to console;