begin
  if((not ip_year is null) and ip_year < 100) then
    ip_year = ip_year + 2000;
  m_up = ip_year*100 + ip_month;

  for select dj.site_id,
             dj.dj_doc_date,
              case dj.dj_doc_smena_type
                when 1 then 'День'
                when 2 then 'Ночь'
                else 'Ошибка!'
              end,
              dj.dj_doc_smena_num,
              dj.garajnumber,dj.markts_ext,
              dj.transport_type10,
              tt.acc_kod_str,tt.descr,
              tm.note,
              tb.tt_rts_begin,tb.tt_rts_end,
              tb.duration
       from site_dj_transport dj
            inner join site_dj_transport_time_tb tb on (dj.idg = tb.dj_idg)
            inner join ds_time_type tt on (tb.time_type_id = tt.id)
            left join site_dj_transport_time tm on (tm.idg = tb.dj_tt_idg)
       where (dj.dj_doc_up = :m_up) and (dj.is_child != 1) and
             (1 = case
                   when :ip_site__id is null then 1
                   when :ip_site__id = dj.site_id then 1
                   else 0
                 end
             )
       plan join(dj index(site_dj_transport_upsttr),
                 tb index(site_dj_transport_time_tb_djidg),
                 tt index(pk_ds_time_type),
                 tm index(pk_site_dj_transport_time))
       into :site__id,
            :dj__date,:smena_type__descr,
            :dj_smena_num,
            :transport__garajnumber,:markts__descr,
            :transport__type10,
            :dj_tt__acc_kod,:time_type__descr,
            :dj_tt__note,
            :dj_tt__rts_begin,:dj_tt__rts_end,
            :dj_tt__duration
  do suspend;
end