EXECUTE block
RETURNS(
  ROW_NUM INT,
  CFULLNAME TYPE OF COLUMN CLIENTS.pcode,
  FULLNAME TYPE OF COLUMN doctor.dcode
  )
AS
BEGIN
  ROW_NUM = 0;
   FOR
    select distinct d.dcode fullname, c.pcode cfullname
    from treat t
    left join (select distinct  t.dcode from treat t where t.treatdate = '18.06.2015' and t.filial = 5 order by rand () rows 30) d on  d.dcode = t.dcode -- Случайный список докторов
    left join (select distinct  t.pcode, t.dcode from treat t where t.treatdate = '18.06.2015' and t.filial = 5 ) c on  c.pcode = t.pcode -- Все пациенты
    where t.treatdate = '18.06.15' and t.filial = 5 and d.dcode is not null
            INTO :CFULLNAME,:FULLNAME
             do BEGIN
       ROW_NUM = ROW_NUM +1; -- Счетчик строк
    suspend;
  END
END

EXECUTE block
RETURNS(

  D1 TYPE OF COLUMN DOCTOR.DCODE,
  P1 TYPE OF COLUMN CLIENTS.PCODE
  )
AS
BEGIN

    for select first 30 distinct t.dcode D1
    from treat t
    where t.treatdate between '18.06.2015' and '18.06.2015' and t.filial = 5
    order by rand()
    INTO :D1
            do
            begin
            for select c.pcode
            from treat t
            left join clients c on c.pcode = t.pcode
            where t.treatdate between '18.06.2015' and '18.06.2015' and t.dcode = :D1 and t.filial = 5
            order by c.pcode
            rows 3
            into :p1
              do
              begin

              suspend;
              end
end end