select distinct(s.glpu) as glpu,
        Count(s.id_sluch) as cnt,
        sum(iif(s.id_povod<>'',1,0)) as def,
        sum(s.summa_v) as SumVOZV,
        sum(ROUND(s.summa_m,2)) as SumSHTRAF,
        sum(s.summa_disp) as SumDISP,
        sum(iif(s.usl_ok=4,s.summa_v,0)) smp,
        sum(iif(sp.t_type=4 or sp.t_type=44,s.summa_disp,0)) as disp1etap,
        sum(iif(sp.t_type=7,s.summa_disp,0)) as disp2etap,
        sum(iif(sp.t_type=3,s.summa_disp,0)) as dispds,
        sum(iif(sp.t_type=33,s.summa_disp,0)) as dispuds,
        sum(iif(sp.t_type=8,s.summa_disp,0)) as profmed,
        0 as vmp ,
        sum(Round(s.sp_sum,2)) as sp_sum
   from GET_SNK_ALL(:glpu,:date1,:date2) s
            left join sp_tarif sp on sp.ksg=s.code_usl
            left join vid_exp v on v.kod=s.tip_exp
    where s.tip=2 and :tip=v.tip_exp group by glpu

    union all

    select distinct(s.glpu) as glpu,
            Count(s.id_sluch) as cnt,
            sum(iif(s.id_povod<>'',1,0)) as def,
            sum(s.summa_v) as SumVOZV,
            sum(CAST(s.summa_m as numeric(9,2))) as SumSHTRAF,
            sum(s.summa_disp) as SumDISP,
            0 as smp,
            0 as disp1etap,
            0 as disp2etap,
            0 as dispds,
            0 as dispuds,
            0 as profmed,
            sum(s.vmp) as vmp,
            0 as sp_sum
    from GET_SNK_ALL(:glpu,:date1,:date2) s
        left join vid_exp v on v.kod=s.tip_exp

    where s.tip=1 and :tip=v.tip_exp group by glpu

BEGIN
    k=0;
    FOR SELECT A.TABLENAME FROM alltables A INTO :TABLENAME DO
        BEGIN
            k=k+1;
            TABL=cast(tablename as varchar(10));
                begin
                    sql='select 2 as tip,s.ID_SLUCH,KSG,KRAT,ID_POVOD,ID_EXP,S.MCOD,GLPU,ROUND(SP_SUM,2),ROUND(SUMMA_DISP,2),s.DATA_L,s.TIP_EXP, 0 as VMP,ROUND(SUMMA_VOZM,2),ROUND(SUMMA_M,2),ROUND(SUMMA_V,2),ROUND(SUM_OPL,2),DATA_EXP,MKB,0 as KD,ID_UT,t.nhistory,m.umpname,s.comment,t.id_pac,t.usl_ok,t.date_1,t.date_2,P.prname AS PODR,u.code_usl from snk'||tabl||' s left join tt05s50'||tabl||' t on t.id_sluch_tt=s.id_sluch left join ut05s50'||tabl||' u on (u.id_sluch=s.id_sluch and u.idserv=s.id_ut) left join uslmp m on m.idump=t.usl_ok LEFT JOIN PROFOT P ON P.IDPR=U.PROFIL where s.DATA_EXP BETWEEN :a and :b AND S.GLPU=:G union all select 1 as tip,s.ID_SLUCH,KSG,KRAT,ID_POVOD,ID_EXP,S.MCOD,GLPU,0 as SP_SUM,0 as SUMMA_DISP,s.DATA_L,s.TIP_EXP, ROUND(VMP,2),ROUND(SUMMA_VOZM,2),ROUND(SUMMA_M,2),ROUND(SUMMA_V,2),ROUND(SUM_OPL,2),DATA_EXP,MKB,s.KD,ID_UT,t.nhistory,m.umpname,s.comment,t.id_pac,t.usl_ok,t.date_1,t.date_2,P.IOTD AS PODR,u.code_usl from snk_stac'||tabl||' s left join tt05s50'||tabl||' t on t.id_sluch_tt=s.id_sluch left join ut05s50'||tabl||' u on (u.id_sluch=s.id_sluch and u.idserv=s.id_ut) left join uslmp m on m.idump=t.usl_ok left join stacotd p on (p.mcod=u.lpu_1 and p.kotd=u.podr) where s.DATA_EXP BETWEEN :a and :b AND S.GLPU=:G';
                    for  EXECUTE STATEMENT (:Sql) (a := :date1,b:=:date2,G:=:GL) into :tip,:ID_SLUCH,:KSG,:KRAT,:ID_POVOD,:ID_EXP,:MCOD,:GLPU,:SP_SUM,:SUMMA_DISP,:DATA_L,:TIP_EXP, :VMP,:SUMMA_VOZM,:SUMMA_M,:SUMMA_V,:SUM_OPL,:DATA_EXP,:MKB,:KD,:ID_UT,:nhistory,:umpname,:comment,:id_pac,:usl_ok,:date_1,:date_2,:PODR,:code_usl do suspend; end
        END
END