insert into TAKE_SL (ID_TAKE, ID_SL, ID_SCHET)
                 select :id_take, sl.ID, sl.id_r_schet
                 from r_sl sl
                 join r_schet s on s.id = sl.id_r_schet and s.status_fin = 1  -- принят к оплате
                 join s_type_schet st on st.id = s.id_type_schet and st.r_typ = 1 and st.typ_omp = 3 and st.id not in (46,48,13,58,59)
                 join r_pacient p on p.id = sl.id_r_pacient and age_person(p.dr,sl.dt_end) < 65

                 join r_pacient p1 on p1.npolis = p.npolis
                 join r_sl sl1 on  sl1.id_r_pacient = p1.id and sl1.id <> sl.id
                                   and sl1.nomlpu = sl.nomlpu and sl1.usl_ok = 3 and sl1.pr_opl = 1
                                   and substring(sl1.ds1 from 1 for 3) = substring(sl.ds1 from 1 for 3)
                                   and sl1.prvs = sl.prvs
                                   and sl1.cel not in ('2','90','91','92','94','11','61','62','63')
                                   and sl1.code_mes1 not in ('RT20','RT21','RT22','RT23','RT24','RT41')
                                   and abs(datediff(day, sl1.dt_end, sl.dt_end)) <16
                                   and iif ((sl.dt_end < sl1.dt_end and sl.type_pos = 2 and sl1.type_pos = 1)
                                             or (sl.dt_end > sl1.dt_end and sl.type_pos = 1 and sl1.type_pos = 2),0,1) = 1
                 where sl.nomlpu =:nomlpu
                       and sl.usl_ok = 3
                       and sl.pr_opl = 1
                       and substring(sl.ds1 from 1 for 1) not in ('C','S','O','Z','Q')
                       and substring(sl.ds1 from 1 for 3) not in ('J00','J01','J02','J03','J04','J05','J06','J07','J08','B18','J35',
                                                                  'N11','N18','N19','N20','T14','B00','B01','B02','B02','B03','B04',
                                                                  'B05','M01','M02','M03','M04','M05','M06','M07','M08','M09','M10',
                                                                  'L50','N80','N81','N82','N83','N84','N85','N86','N87','N88','N89',
                                                                  'N90','N91','N92','N93','N94','N95','N96','N97','N98')
                       and sl.prvs not in(28,263,126,91,258,115,80,17,1,206)
                       and sl.cel not in ('2','90','91','92','94','11','61','62','63')
                       and sl.code_mes1 not in ('RT20','RT21','RT22','RT23','RT24','RT41')
                       and (not exists(select 1 from xml_foms_sl fe where fe.id_sl = sl.id))
                       and (not exists (select first 1 1 from r_oe_sl oesl where oesl.id_sl = sl.id))
                       and (not exists (select first 1 1 from fines f where f.id_sl = sl.id and f.cod_type_exp > 0))
                       and (not exists (select first 1 1 from take_sl tsl_t where tsl_t.id_sl = sl.id and tsl_t.id_take  <> :id_take ))

                       and (not exists(select 1 from xml_foms_sl fe1 where fe1.id_sl = sl1.id))
                       and (not exists (select first 1 1 from r_oe_sl oesl1 where oesl1.id_sl = sl1.id))
                       and (not exists (select first 1 1 from fines f1 where f1.id_sl = sl1.id and f1.cod_type_exp > 0))
                       and (not exists (select first 1 1 from take_sl tsl_t1 where tsl_t1.id_sl = sl1.id and tsl_t1.id_take <> :id_take));