EXECUTE BLOCK RETURNS (ID integer, NAME varchar(400), "TYPE" varchar(40), NUMBER varchar(25), 
NEMBER_INVENTORY varchar(10), PRODUCER varchar(200),  YEAR_BEGIN integer, NAME_TEST varchar(300), 
REMARK varchar(2000), USER_ID integer, DEPARTMENT_ID integer,  TIME_EDIT timestamp, ARCHIVE integer, 
SPECIFICATION  blob(4096), DEVICE_DEPARTMENT_ID integer,  TYPE_SERIES integer, DISLOCATION  varchar(50), 
TYPE_EQUIP integer, PASSPORT integer, HOST_LABORATORY integer, l_NAME_SHORT_LAB varchar(20), 
c_NUMBER_CERT varchar(25), c_DATE_OUT date, HOST_USER varchar(30), COUNT_CERT integer, 
c_CALIBRATION_INTERVAL integer, CONTROL_MIN_DATE timestamp)  
     AS  
         declare variable ID_EQUIP integer; 
         declare variable LAB_ID integer; 
         declare variable CALIBR_INT integer;  
 
        declare procedure RECIEVE_LAB(LAB_ID integer) RETURNS(ID integer, NAME_SHORT_LAB varchar(20))  
            as  begin for execute statement ' SELECT ID, NAME_SHORT FROM LABORATORY where ID = '||LAB_ID  
         on external 'D:\Database\Plan.fdb' AS USER 'SYSDBA' PASSWORD ''   into :ID, :NAME_SHORT_LAB do suspend; end   

        declare procedure LAST_CERT(ID_EQUIP integer) returns(NUMBER_CERT varchar(25), DATE_OUT date, 
           DEVICE_ID_CL integer, CALIBRATION_INTERVAL integer) 
         as  begin for execute statement 'SELECT ce.NUMBER_CERT, ce.DATE_OUT, ce.DEVICE_ID_CL, ce.CALIBRATION_INTERVAL 
           FROM CERTIFICATE ce where ce.DISPLAY = 1 and ce.DEVICE_ID_CL = '||ID_EQUIP  on external 'D:\Database\Plan.fdb' 
            AS USER 'SYSDBA' PASSWORD ''   into :NUMBER_CERT, :DATE_OUT, :DEVICE_ID_CL, :CALIBRATION_INTERVAL do suspend; end   

        begin for select eq.ID, eq.HOST_LABORATORY from EQUIPMENT eq where ARCHIVE in (1)   and PASSPORT = 1 and 
          q.HOST_LABORATORY = 5  order by eq.NAME, eq.TYPE, eq.NUMBER, eq.NEMBER_INVENTORY  into :ID_EQUIP, :LAB_ID do 
     
      for 
        select eq.ID, eq.NAME, eq."TYPE", eq.NUMBER, eq.NEMBER_INVENTORY, eq.PRODUCER, eq.YEAR_BEGIN, eq.NAME_TEST, 
         eq.REMARK, eq.USER_ID, eq.DEPARTMENT_ID, eq.TIME_EDIT, eq.ARCHIVE, eq.SPECIFICATION, eq.DEVICE_DEPARTMENT_ID, 
         eq.TYPE_SERIES, eq.DISLOCATION, eq.TYPE_EQUIP, eq.PASSPORT,  eq.HOST_LABORATORY, eq.HOST_USER, eq.COUNT_CERT, 
         rl.NAME_SHORT_LAB, (case when lc.NUMBER_CERT = '-1' then '' else lc.NUMBER_CERT end),  lc.DATE_OUT, lc.CALIBRATION_INTERVAL, 
         eq.CONTROL_MIN_DATE from EQUIPMENT eq 
         left join RECIEVE_LAB(:LAB_ID) rl on rl.id = eq.HOST_LABORATORY  
         left join LAST_CERT(:ID_EQUIP) lc on lc.DEVICE_ID_CL = eq.ID where eq.ID = :ID_EQUIP   into ID, NAME, "TYPE", NUMBER, NEMBER_INVENTORY,
       PRODUCER, YEAR_BEGIN, NAME_TEST, REMARK, USER_ID, DEPARTMENT_ID, TIME_EDIT, ARCHIVE,  SPECIFICATION, DEVICE_DEPARTMENT_ID, 
       TYPE_SERIES, DISLOCATION, TYPE_EQUIP, PASSPORT, HOST_LABORATORY, HOST_USER, COUNT_CERT, l_NAME_SHORT_LAB, c_NUMBER_CERT,  
       c_DATE_OUT, c_CALIBRATION_INTERVAL, CONTROL_MIN_DATE do suspend; END