PR INS REGISTRY

 SET TERM ^ ;

  create or alter procedure PR_INS_REGISTRY (
      DOCTOR_ID DM_UUID_NULL)
  as
  declare variable TEMP_DATE DM_DATETIME;
  declare variable FIRST_DATE DM_DATETIME;
  declare variable RES_DATE DM_DATETIME;
  begin
  temp_date='01.01.2017 08:00:00';
  first_date='01.01.2017 08:00:00';
    while (temp_date<'01.01.2018 00:00:00')
    do
    begin
     res_date=temp_date;
     if ((select first 1 r.d$uuid from registry r where r.doctor_id=:doctor_id and
      r.status>-1 and r.reg_date=:res_date) is null) then
       INSERT INTO REGISTRY (DOCTOR_ID, STATUS, REG_DATE)
       VALUES (:doctor_id,0,:res_date);
     temp_date=dateadd(minute,30,temp_date);
     if (extract(hour from temp_date)=22 and extract(minute from temp_date)=00) then
     begin
       temp_date=first_date+1;
       first_date=temp_date;
     end
     --suspend;
    end
  end^
  
  SET TERM ; ^
  
  /* Following GRANT statetements are generated automatically */
  
  GRANT SELECT,INSERT ON REGISTRY TO PROCEDURE PR_INS_REGISTRY;
  
  /* Existing privileges on this procedure */
  
  GRANT EXECUTE ON PROCEDURE PR_INS_REGISTRY TO PROCEDURE TEMP;
  GRANT EXECUTE ON PROCEDURE PR_INS_REGISTRY TO SYSDBA;