# ------------------------------------------------------------------------------ # Qualitätsindikatoren der Schweizer Akutspitäler (CH-IQI) # Library mit SQL Abfragen, # Implementierung gemäss CH-IQI Spezifikation Version 4.2 # Für QIP16, Stand 26. März 2018 # ------------------------------------------------------------------------------ #------------------------------------------------------------------------------- # SQL Abfragen universell #------------------------------------------------------------------------------- sCHIQI_Fruehreha <- "(InStr(AllBeh,' 93891')>0 OR InStr(AllBeh,' 93892')>0 OR InStr(AllBeh,' 93893')>0 OR InStr(AllBeh,' 93894')>0 OR InStr(AllBeh,' 93895')>0 OR InStr(AllBeh,' 93896')>0 OR InStr(AllBeh,' 93897')>0 OR InStr(AllBeh,' 93898')>0 OR InStr(AllBeh,' 93899')>0)" sCHIQI_NebDiaMukoviszidose <- "(InStr(NebDia,'E84')>0 OR InStr(NebDia,'U6900')>0)" sCHIQI_Neugeborene <- "AltE=0 AND (ATage between 0 AND 27)" sCHIQI_Beatmung <- paste("(HBeat>24 AND NOT (",sCHIQI_Neugeborene,"))") sCHIQI_Schwere_Komplikationen <- "((InStr(AllBeh,' 3791')>0 OR InStr(AllBeh,' 9393')>0 OR InStr(AllBeh,' 9960')>0) OR (InStr(NebDia, 'A047')>0 OR InStr(NebDia, 'A40')>0 OR InStr(NebDia, 'A41')>0 OR InStr(NebDia, 'A481')>0 OR InStr(NebDia, 'D651')>0 OR InStr(NebDia, 'F104')>0 OR InStr(NebDia, 'I21')>0 OR InStr(NebDia, 'I22')>0 OR InStr(NebDia, 'I26')>0 OR InStr(NebDia, 'I46')>0 OR InStr(NebDia, 'I490')>0 OR InStr(NebDia, 'I60')>0 OR InStr(NebDia, 'I61')>0 OR InStr(NebDia, 'I63')>0 OR InStr(NebDia, 'I64')>0 OR InStr(NebDia, 'J100')>0 OR InStr(NebDia, 'J110')>0 OR InStr(NebDia, 'J12')>0 OR InStr(NebDia, 'J13')>0 OR InStr(NebDia, 'J14')>0 OR InStr(NebDia, 'J15')>0 OR InStr(NebDia, 'J16')>0 OR InStr(NebDia, 'J17')>0 OR InStr(NebDia, 'J18')>0 OR InStr(NebDia, 'J690')>0 OR InStr(NebDia, 'J698')>0 OR InStr(NebDia, 'N17')>0 OR InStr(NebDia, 'N990')>0 OR InStr(NebDia, 'R572')>0 OR InStr(NebDia, 'R650')>0 OR InStr(NebDia, 'R651')>0))" sCHIQI_TransfusionenKomplik <- "((InStr(AllBeh,' 990311')>0 OR (InStr(AllBeh,' 99041')>0 AND NOT InStr(AllBeh,' 990410')>0) OR (InStr(AllBeh,' 99051')>0 AND NOT (InStr(AllBeh,' 990510')>0 OR InStr(AllBeh,' 990511')>0)) OR (InStr(AllBeh,' 99052')>0 AND NOT (InStr(AllBeh,' 990520')>0 OR InStr(AllBeh,' 990521')>0 OR InStr(AllBeh,' 990522')>0)) OR (InStr(AllBeh,' 99053')>0 AND NOT (InStr(AllBeh,' 990530')>0 OR InStr(AllBeh,' 990532')>0 OR InStr(AllBeh,' 990533')>0 OR InStr(AllBeh,' 990534')>0 OR InStr(AllBeh,' 990535')>0))) AND NOT (InStr(AllDia,'D46')>0 OR InStr(AllDia,'D66')>0 OR InStr(AllDia,'D67')>0 OR InStr(AllDia,'D68')>0 OR InStr(AllDia,'D69')>0))" sCHIQI_F_Schwere_Komplikationen <- paste("EAus<>5 AND ((",sCHIQI_Beatmung,") OR (",sCHIQI_Schwere_Komplikationen,") OR (",sCHIQI_TransfusionenKomplik,"))") sCHIQI_AllDiaTumor <- "(InStr(AllDia,'C')>0 OR InStr(AllDia,'D0')>0)" sCHIQI_NebDiaTumor <- "(InStr(NebDia,'C')>0 OR InStr(NebDia,'D0')>0)" sCHIQI_Trauma <- "(InStr(AllDia,'S')>0 OR InStr(AllDia,'T0')>0 OR InStr(AllDia,'T10')>0 OR InStr(AllDia,'T11')>0 OR InStr(AllDia,'T12')>0 OR InStr(AllDia,'T13')>0 OR InStr(AllDia,'T14')>0)" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe A #------------------------------------------------------------------------------- sCHIQI_A1_01_F <- "LEFT(HD,3) IN ('I21','I22') AND AltE>19" sCHIQI_A1_01_M <- paste("(",sCHIQI_A1_01_F,") AND EAus=5") sCHIQI_A1_02_F <- paste("(",sCHIQI_A1_01_F,") AND (AltE between 20 AND 44)") sCHIQI_A1_02_M <- paste("(",sCHIQI_A1_02_F,") AND EAus=5") sCHIQI_A1_03_F <- paste("(",sCHIQI_A1_01_F,") AND (AltE between 45 AND 64)") sCHIQI_A1_03_M <- paste("(",sCHIQI_A1_03_F,") AND EAus=5") sCHIQI_A1_04_F <- paste("(",sCHIQI_A1_01_F,") AND (AltE between 65 AND 84)") sCHIQI_A1_04_M <- paste("(",sCHIQI_A1_04_F,") AND EAus=5") sCHIQI_A1_05_F <- paste("(",sCHIQI_A1_01_F,") AND AltE>84") sCHIQI_A1_05_M <- paste("(",sCHIQI_A1_05_F,") AND EAus=5") sCHIQI_A1_06_F <- paste("(",sCHIQI_A1_01_F,") AND ((",sCHIQI_A3_01_F,") OR (",sCHIQI_A7_03_F,"))") sCHIQI_A1_06_P <- sCHIQI_A1_06_F sCHIQI_A1_07_F <- paste("(",sCHIQI_A1_01_F,") AND AVor<>6 AND ANach<>6") sCHIQI_A1_07_M <- paste("(",sCHIQI_A1_07_F,") AND EAus=5") sCHIQI_A1_08_F <- paste("(",sCHIQI_A1_01_F,") AND AVor=6") sCHIQI_A1_08_M <- paste("(",sCHIQI_A1_08_F,") AND EAus=5") sCHIQI_A1_09N_F <- "LEFT(HD,3) = 'I21' AND AltE>19" sCHIQI_A1_09_F <- "LEFT(HD,4) = 'I219' AND AltE>19" sCHIQI_A1_09_P <- sCHIQI_A1_09_F sCHIQI_A1_10_F <- "LEFT(HD,4) IN ('I210','I211','I212','I213') AND AltE>19" sCHIQI_A1_10_M <- paste("(",sCHIQI_A1_10_F,") AND EAus=5") sCHIQI_A1_11_F <- "LEFT(HD,4) = 'I214' AND AltE>19" sCHIQI_A1_11_M <- paste("(",sCHIQI_A1_11_F,") AND EAus=5") sCHIQI_A1_12_F <- paste("(",sCHIQI_A1_01_F,") AND NOT (",sCHIQI_Fruehreha,")") sCHIQI_A2_01_F <- "(LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50') AND AltE>19" sCHIQI_A2_01_M <- paste("(",sCHIQI_A2_01_F,") AND EAus=5") sCHIQI_A2_02_F <- paste("(",sCHIQI_A2_01_F,") AND (AltE between 20 AND 44)") sCHIQI_A2_02_M <- paste("(",sCHIQI_A2_02_F,") AND EAus=5") sCHIQI_A2_03_F <- paste("(",sCHIQI_A2_01_F,") AND (AltE between 45 AND 64)") sCHIQI_A2_03_M <- paste("(",sCHIQI_A2_03_F,") AND EAus=5") sCHIQI_A2_04_F <- paste("(",sCHIQI_A2_01_F,") AND (AltE between 65 AND 84)") sCHIQI_A2_04_M <- paste("(",sCHIQI_A2_04_F,") AND EAus=5") sCHIQI_A2_05_F <- paste("(",sCHIQI_A2_01_F,") AND AltE>84") sCHIQI_A2_05_M <- paste("(",sCHIQI_A2_05_F,") AND EAus=5") sCHIQI_A2_06N_F <- "LEFT(HD,4) = 'I501' AND AltE>19" sCHIQI_A2_06_F <- "LEFT(HD,5) = 'I5014' AND AltE>19" sCHIQI_A2_06_P <- sCHIQI_A2_06_F sCHIQI_A3_01_F <- "(InStr(AllBeh,' 0066')>0 OR InStr(AllBeh,' 3606')>0 OR InStr(AllBeh,' 3607')>0 OR InStr(AllBeh,' 3609')>0 OR InStr(AllBeh,' 3634')>0 OR InStr(AllBeh,' 3722')>0 OR InStr(AllBeh,' 3723')>0 OR InStr(AllBeh,' 8855')>0 OR InStr(AllBeh,' 8856')>0 OR InStr(AllBeh,' 8857')>0) AND AltE>19" sCHIQI_A3_02_F <- paste("(",sCHIQI_A3_01_F,") AND (",sCHIQI_A1_01_F,") AND NOT (",sCHIQI_A7_01_F,")") sCHIQI_A3_02_M <- paste("(",sCHIQI_A3_02_F,") AND EAus=5") sCHIQI_A3_04_F <- paste("(InStr(AllBeh,' 8855')>0 OR InStr(AllBeh,' 8856')>0 OR InStr(AllBeh,' 8857')>0) AND NOT (InStr(AllBeh,' 0066')>0 OR InStr(AllBeh,' 3606')>0 OR InStr(AllBeh,' 3607')>0 OR InStr(AllBeh,' 3609')>0 OR InStr(AllBeh,' 3634')>0) AND NOT (",sCHIQI_A1_01_F,") AND NOT (",sCHIQI_A7_01_F,") AND NOT (InStr(AllDia,'T86')>0 OR InStr(AllDia,'Z0980')>0 OR InStr(AllDia,'Z94')>0) AND NOT LEFT(HD,4) IN ('I460', 'I469') AND NOT InStr(AllBeh,' 3596')>0 AND AltE>19") sCHIQI_A3_04_M <- paste("(",sCHIQI_A3_04_F,") AND EAus=5") sCHIQI_A3_05N_F <- paste("(",sCHIQI_A3_01_F,") AND NOT (",sCHIQI_A1_01_F,") AND NOT (",sCHIQI_A7_01_F,") AND NOT (InStr(AllDia,'T86')>0 OR InStr(AllDia,'Z0980')>0 OR InStr(AllDia,'Z94')>0) AND NOT LEFT(HD,4) IN ('I460', 'I469') AND NOT InStr(AllBeh,' 3596')>0") sCHIQI_A3_05_F <- paste("(",sCHIQI_A3_05N_F,") AND (InStr(AllBeh,' 0066')>0 OR InStr(AllBeh,' 3606')>0 OR InStr(AllBeh,' 3607')>0 OR InStr(AllBeh,' 3609')>0 OR InStr(AllBeh,' 3634')>0)") sCHIQI_A3_05_M <- paste("(",sCHIQI_A3_05_F,") AND EAus=5") sCHIQI_A3_05_P <- sCHIQI_A3_05_F sCHIQI_A3_06_F <- "((InStr(AllBeh,' 0066')>0 OR InStr(AllBeh,' 3606')>0 OR InStr(AllBeh,' 3607')>0 OR InStr(AllBeh,' 3609')>0 OR InStr(AllBeh,' 3634')>0 OR InStr(AllBeh,' 3722')>0 OR InStr(AllBeh,' 3723')>0 OR InStr(AllBeh,' 8855')>0 OR InStr(AllBeh,' 8856')>0 OR InStr(AllBeh,' 8857')>0) OR (InStr(AllBeh,' 3726')>0 OR InStr(AllBeh,' 3734')>0 OR InStr(AllBeh,' 37902')>0 OR InStr(AllBeh,' 379099')>0)) AND AltE<20" sCHIQI_A3_07_F <- paste("(",sCHIQI_A3_04_F,") AND NOT in SelGENOR") # SelGENOR entspricht "SwissDRG OR Prozeduren" sCHIQI_A3_07_M <- paste("(",sCHIQI_A3_07_F,") AND EAus=5") sCHIQI_A3_08_F <- paste("(",sCHIQI_A3_05_F,") AND NOT in SelGENORA308") # SelGENORA308 entspricht "SwissDRG OR Prozeduren" ohne Selektionskriterien A.3.5.F sCHIQI_A3_08_M <- paste("(",sCHIQI_A3_08_F,") AND EAus=5") sCHIQI_A4_01_F <- "LEFT(HD,3) IN ('I44','I45','I47','I48','I49')" sCHIQI_A5_01_F <- "(InStr(AllBeh,' 378A')>0 OR InStr(AllBeh,' 0050')>0 OR InStr(AllBeh,' 0053')>0 OR InStr(AllBeh,' 3780')>0 OR InStr(AllBeh,' 3781')>0 OR InStr(AllBeh,' 3782')>0 OR InStr(AllBeh,' 3783')>0 OR InStr(AllBeh,' 3785')>0 OR InStr(AllBeh,' 3786')>0 OR InStr(AllBeh,' 3787')>0 OR InStr(AllBeh,' 3788')>0 OR InStr(AllBeh,' 378E')>0 OR InStr(AllBeh,' 0051')>0 OR InStr(AllBeh,' 0054')>0 OR InStr(AllBeh,' 3794')>0 OR InStr(AllBeh,' 3796')>0 OR InStr(AllBeh,' 3798')>0)" sCHIQI_A5_02_F <- "(InStr(AllBeh,' 378E')>0 OR InStr(AllBeh,' 0051')>0 OR InStr(AllBeh,' 0054')>0 OR InStr(AllBeh,' 3794')>0 OR InStr(AllBeh,' 3796')>0 OR InStr(AllBeh,' 3798')>0)" sCHIQI_A6_01_F <- "InStr(AllBeh,' 3734')>0" sCHIQI_A6_02_F <- "InStr(AllBeh,' 3733')>0" sCHIQI_A7_01_F <- "(InStr(AllBeh,' 35')>0 OR InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 363')>0 OR InStr(AllBeh,' 369')>0 OR InStr(AllBeh,' 371')>0 OR InStr(AllBeh,' 3731')>0 OR InStr(AllBeh,' 3732')>0 OR InStr(AllBeh,' 3733')>0 OR InStr(AllBeh,' 3735')>0 OR InStr(AllBeh,' 374')>0 OR InStr(AllBeh,' 375')>0 OR InStr(AllBeh,' 3766')>0 OR InStr(AllBeh,' 3767')>0 OR InStr(AllBeh,' 376A')>0 OR InStr(AllBeh,' 376B')>0 OR InStr(AllBeh,' 376C')>0 OR InStr(AllBeh,' 379A')>0)" sCHIQI_A7_02_F <- "(InStr(AllBeh,' 350')>0 OR InStr(AllBeh,' 351')>0 OR InStr(AllBeh,' 352')>0 OR InStr(AllBeh,' 353')>0 OR InStr(AllBeh,' 3595')>0 OR InStr(AllBeh,' 3596')>0 OR InStr(AllBeh,' 3599')>0)" sCHIQI_A7_03_F <- "(InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 363')>0)" sCHIQI_A7_04_F <- "(InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 3591')>0 OR InStr(AllBeh,' 3592')>0 OR InStr(AllBeh,' 3593')>0 OR InStr(AllBeh,' 3594')>0 OR InStr(AllBeh,' 3598')>0 OR InStr(AllBeh,' 369')>0 OR InStr(AllBeh,' 371')>0 OR InStr(AllBeh,' 3731')>0 OR InStr(AllBeh,' 3732')>0 OR InStr(AllBeh,' 3733')>0 OR InStr(AllBeh,' 3735')>0 OR InStr(AllBeh,' 374')>0 OR InStr(AllBeh,' 375')>0 OR InStr(AllBeh,' 3766')>0 OR InStr(AllBeh,' 3767')>0 OR InStr(AllBeh,' 376A')>0 OR InStr(AllBeh,' 376B')>0 OR InStr(AllBeh,' 376C')>0 OR InStr(AllBeh,' 379A')>0)" sCHIQI_A7_05_F <- paste("(((",sCHIQI_A7_04_F,") AND (",sCHIQI_A7_03_F,")) OR ((",sCHIQI_A7_02_F,") AND (",sCHIQI_A7_03_F,")) OR ((",sCHIQI_A7_04_F,") AND (",sCHIQI_A7_02_F,")) OR ((",sCHIQI_A7_04_F,") AND (",sCHIQI_A7_03_F,") AND (",sCHIQI_A7_02_F,")))") sCHIQI_A7_06_F <- paste("(",sCHIQI_A7_01_F,") AND AltE<20") sCHIQI_A7_07_F <- paste("(InStr(AllBeh,' 3521')>0 OR (InStr(AllBeh,' 3522')>0 AND NOT InStr(AllBeh,' 35221')>0)) AND NOT (InStr(AllBeh,' 3523')>0 OR InStr(AllBeh,' 3524')>0 OR InStr(AllBeh,' 3525')>0 OR InStr(AllBeh,' 3526')>0 OR InStr(AllBeh,' 3527')>0 OR InStr(AllBeh,' 3528')>0 OR InStr(AllBeh,' 3529')>0 OR InStr(AllBeh,' 3599')>0) AND NOT (",sCHIQI_A7_03_F,") AND NOT (",sCHIQI_F2_01_F,") AND NOT (InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 359')>0 OR InStr(AllBeh,' 373')>0 OR InStr(AllBeh,' 3751')>0)") sCHIQI_A7_07_M <- paste("(",sCHIQI_A7_07_F,") AND EAus=5") sCHIQI_A7_08_F <- "(InStr(AllBeh,' 359611')>0 OR InStr(AllBeh,' 352211')>0 OR InStr(AllBeh,' 352212')>0 OR InStr(AllBeh,' 352213')>0 OR InStr(AllBeh,' 352219')>0)" sCHIQI_A7_08_M <- paste("(",sCHIQI_A7_08_F,") AND EAus=5") sCHIQI_A7_09_F <- "InStr(AllBeh,' 359611')>0 OR InStr(AllBeh,' 352213')>0" sCHIQI_A7_09_M <- paste("(",sCHIQI_A7_09_F,") AND EAus=5") sCHIQI_A7_10_F <- "InStr(AllBeh,' 352211')>0 OR InStr(AllBeh,' 352212')>0" sCHIQI_A7_10_M <- paste("(",sCHIQI_A7_10_F,") AND EAus=5") sCHIQI_A7_11_F <- paste("(",sCHIQI_A7_03_F,") AND NOT (InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 359')>0 OR InStr(AllBeh,' 373')>0 OR InStr(AllBeh,' 3751')>0) AND NOT (",sCHIQI_A7_02_F,") AND NOT (",sCHIQI_F2_01_F,") AND (",sCHIQI_A1_01_F,")") sCHIQI_A7_11_M <- paste("(",sCHIQI_A7_11_F,") AND EAus=5") sCHIQI_A7_12_F <- paste("(",sCHIQI_A7_03_F,") AND NOT (InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 359')>0 OR InStr(AllBeh,' 373')>0 OR InStr(AllBeh,' 3751')>0) AND NOT (",sCHIQI_A7_02_F,") AND NOT (",sCHIQI_F2_01_F,") AND NOT (",sCHIQI_A1_01_F,") AND AltE>19") sCHIQI_A7_12_M <- paste("(",sCHIQI_A7_12_F,") AND EAus=5") sCHIQI_A7_13_F <- paste("(",sCHIQI_A7_12_F,") AND (AltE between 20 AND 49)") sCHIQI_A7_13_M <- paste("(",sCHIQI_A7_13_F,") AND EAus=5") sCHIQI_A7_14_F <- paste("(",sCHIQI_A7_12_F,") AND (AltE between 50 AND 59)") sCHIQI_A7_14_M <- paste("(",sCHIQI_A7_14_F,") AND EAus=5") sCHIQI_A7_15_F <- paste("(",sCHIQI_A7_12_F,") AND (AltE between 60 AND 69)") sCHIQI_A7_15_M <- paste("(",sCHIQI_A7_15_F,") AND EAus=5") sCHIQI_A7_16_F <- paste("(",sCHIQI_A7_12_F,") AND (AltE between 70 AND 79)") sCHIQI_A7_16_M <- paste("(",sCHIQI_A7_16_F,") AND EAus=5") sCHIQI_A7_17_F <- paste("(",sCHIQI_A7_12_F,") AND AltE>79") sCHIQI_A7_17_M <- paste("(",sCHIQI_A7_17_F,") AND EAus=5") sCHIQI_A7_18_F <- paste("(",sCHIQI_A7_12_F,") AND HBeat>24") sCHIQI_A7_18_P <- sCHIQI_A7_18_F sCHIQI_A7_19_F <- paste("(",sCHIQI_A7_07_F,") AND LEFT(HD,3) IN ('I33','I38','I39')") sCHIQI_A7_19_M <- paste("(",sCHIQI_A7_19_F,") AND EAus=5") sCHIQI_A7_20_F <- paste("(",sCHIQI_A7_07_F,") AND NOT LEFT(HD,3) IN ('I33','I38','I39')") sCHIQI_A7_20_M <- paste("(",sCHIQI_A7_20_F,") AND EAus=5") sCHIQI_A7_21_F <- paste("(InStr(AllBeh,' 3521')>0 OR (InStr(AllBeh,' 3522')>0 AND NOT InStr(AllBeh,' 35221')>0)) AND NOT (InStr(AllBeh,' 3523')>0 OR InStr(AllBeh,' 3524')>0 OR InStr(AllBeh,' 3525')>0 OR InStr(AllBeh,' 3526')>0 OR InStr(AllBeh,' 3527')>0 OR InStr(AllBeh,' 3528')>0 OR InStr(AllBeh,' 3529')>0 OR InStr(AllBeh,' 3599')>0) AND NOT (",sCHIQI_A7_03_F,") AND NOT (",sCHIQI_F2_01_F,") AND NOT (InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 359')>0 OR InStr(AllBeh,' 373')>0 OR InStr(AllBeh,' 3751')>0) AND InStr(AllBeh,' 3812')>0 AND NOT (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0)") sCHIQI_A7_21_P <- sCHIQI_A7_21_F sCHIQI_A7_22_F <- paste("(",sCHIQI_A7_03_F,") AND NOT (InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 354')>0 OR InStr(AllBeh,' 355')>0 OR InStr(AllBeh,' 356')>0 OR InStr(AllBeh,' 357')>0 OR InStr(AllBeh,' 358')>0 OR InStr(AllBeh,' 359')>0 OR InStr(AllBeh,' 373')>0 OR InStr(AllBeh,' 3751')>0) AND NOT (",sCHIQI_A7_02_F,") AND NOT (",sCHIQI_F2_01_F,") AND NOT (",sCHIQI_A1_01_F,") AND InStr(AllBeh,' 3812')>0 AND NOT (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0) AND AltE>19") sCHIQI_A7_22_P <- sCHIQI_A7_22_F sCHIQI_A7_23_F <- "InStr(AllBeh,' 35962')>0" sCHIQI_A7_23_M <- paste("(",sCHIQI_A7_23_F,") AND EAus=5") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe B #------------------------------------------------------------------------------- sCHIQI_B1_01_F <- "LEFT(HD,3) IN ('I60','I61','I63','I64') AND AltE>19" sCHIQI_B1_01_M <- paste("(",sCHIQI_B1_01_F,") AND EAus=5") sCHIQI_B1_02_F <- paste("(",sCHIQI_B1_01_F,") AND (AltE between 20 AND 44)") sCHIQI_B1_02_M <- paste("(",sCHIQI_B1_02_F,") AND EAus=5") sCHIQI_B1_03_F <- paste("(",sCHIQI_B1_01_F,") AND (AltE between 45 AND 64)") sCHIQI_B1_03_M <- paste("(",sCHIQI_B1_03_F,") AND EAus=5") sCHIQI_B1_04_F <- paste("(",sCHIQI_B1_01_F,") AND (AltE between 65 AND 84)") sCHIQI_B1_04_M <- paste("(",sCHIQI_B1_04_F,") AND EAus=5") sCHIQI_B1_05_F <- paste("(",sCHIQI_B1_01_F,") AND AltE>84") sCHIQI_B1_05_M <- paste("(",sCHIQI_B1_05_F,") AND EAus=5") sCHIQI_B1_06_F <- paste("(",sCHIQI_B1_01_F,") AND (InStr(AllBeh,' 89131')>0 OR InStr(AllBeh,' 8913A')>0 OR InStr(AllBeh,' 99A7')>0 OR Instr(AllBeh,' 99BA')>0) AND AltE>19") sCHIQI_B1_06_P <- sCHIQI_B1_06_F sCHIQI_B1_07_F <- "LEFT(HD,3) = 'I63' AND AltE>19" sCHIQI_B1_07_M <- paste("(",sCHIQI_B1_07_F,") AND EAus=5") sCHIQI_B1_08_F <- paste("(",sCHIQI_B1_07_F,") AND AVor<>6") sCHIQI_B1_08_M <- paste("(",sCHIQI_B1_08_F,") AND EAus=5") sCHIQI_B1_09_F <- paste("(",sCHIQI_B1_07_F,") AND (InStr(AllBeh,' 991000')>0 OR InStr(AllBeh,' 991099')>0)") sCHIQI_B1_09_M <- paste("(",sCHIQI_B1_09_F,") AND EAus=5") sCHIQI_B1_09_P <- sCHIQI_B1_09_F sCHIQI_B1_10_F <- "LEFT(HD,3) = 'I61' AND AltE>19" sCHIQI_B1_10_M <- paste("(",sCHIQI_B1_10_F,") AND EAus=5") sCHIQI_B1_11_F <- "LEFT(HD,3) = 'I60' AND AltE>19" sCHIQI_B1_11_M <- paste("(",sCHIQI_B1_11_F,") AND EAus=5") sCHIQI_B1_12_F <- "LEFT(HD,3) = 'I64' AND AltE>19" sCHIQI_B1_12_M <- paste("(",sCHIQI_B1_12_F,") AND EAus=5") sCHIQI_B1_12_P <- sCHIQI_B1_12_F sCHIQI_B1_13_F <- paste("(",sCHIQI_B1_07_F,") AND AVor=6") sCHIQI_B1_13_M <- paste("(",sCHIQI_B1_13_F,") AND EAus=5") sCHIQI_B1_14_F <- paste("(",sCHIQI_B1_07_F,") AND (InStr(NebDia,'A481')>0 OR InStr(NebDia,'J100')>0 OR InStr(NebDia,'J110')>0 OR InStr(NebDia,'J12')>0 OR InStr(NebDia,'J13')>0 OR InStr(NebDia,'J14')>0 OR InStr(NebDia,'J15')>0 OR InStr(NebDia,'J16')>0 OR InStr(NebDia,'J17')>0 OR InStr(NebDia,'J18')>0 OR InStr(NebDia,'J690')>0 OR InStr(NebDia,'J698')>0)") sCHIQI_B1_14_M <- paste("(",sCHIQI_B1_14_F,") AND EAus=5") sCHIQI_B1_14_P <- sCHIQI_B1_14_F sCHIQI_B1_15_F <- paste("(",sCHIQI_B1_07_F,") AND NOT (",sCHIQI_Fruehreha,")") sCHIQI_B2_01_F <- "LEFT(HD,4) IN ('G450','G451','G452','G453','G454','G458','G459')" sCHIQI_B2_01_M <- paste("(",sCHIQI_B2_01_F,") AND EAus=5") sCHIQI_B2_02_F <- paste("(",sCHIQI_B2_01_F,") AND (InStr(AllBeh,' 89131')>0 OR InStr(AllBeh,' 8913A')>0 OR InStr(AllBeh,' 99A7')>0 OR Instr(AllBeh,' 99BA')>0)") sCHIQI_B2_02_P <- sCHIQI_B2_02_F sCHIQI_B3_01_F <- "(LEFT(HD,4) IN ('C700','C709','C722','C723','C724','C725','C728','C751') OR (LEFT(HD,3) = 'C71'))" sCHIQI_B3_02_F <- "(InStr(AllDia,'C700')>0 OR InStr(AllDia,'C709')>0 OR InStr(AllDia,'C71')>0 OR InStr(AllDia,'C722')>0 OR InStr(AllDia,'C723')>0 OR InStr(AllDia,'C724')>0 OR InStr(AllDia,'C725')>0 OR InStr(AllDia,'C728')>0 OR InStr(AllDia,'C751')>0) AND (InStr(AllBeh,' 015210')>0 OR InStr(AllBeh,' 015211')>0 OR InStr(AllBeh,' 015310')>0 OR InStr(AllBeh,' 015311')>0 OR InStr(AllBeh,' 015910')>0 OR InStr(AllBeh,' 015911')>0 OR InStr(AllBeh,' 015919')>0 OR InStr(AllBeh,' 015920')>0 OR InStr(AllBeh,' 015921')>0 OR InStr(AllBeh,' 015929')>0 OR InStr(AllBeh,' 015999')>0 OR InStr(AllBeh,' 040411')>0 OR InStr(AllBeh,' 040720')>0)" sCHIQI_B3_02_M <- paste("(",sCHIQI_B3_02_F,") AND EAus=5") sCHIQI_B4_01_F <- "LEFT(HD,3) IN ('G40','G41') AND AltE>19" sCHIQI_B4_02_F <- "LEFT(HD,3) IN ('G40','G41') AND AltE<20" sCHIQI_B5_01_F <- "LEFT(HD,3) = 'G35'" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe C #------------------------------------------------------------------------------- sCHIQI_C1_01_F <- "InStr(AllBeh,' 93899')>0" sCHIQI_C1_02_F <- paste("(",sCHIQI_C1_01_F,") AND (InStr(AllDia,'U5000')>0 OR InStr(AllDia,'U5010')>0 OR InStr(AllDia,'U5020')>0 OR InStr(AllDia,'U5030')>0 OR InStr(AllDia,'U5040')>0 OR InStr(AllDia,'U5050')>0)") sCHIQI_C1_02_P <- sCHIQI_C1_02_F sCHIQI_C1_03_S <- sCHIQI_C1_02_F #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe D #------------------------------------------------------------------------------- sCHIQI_D1_01_F <- "(LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_01_M <- paste("(",sCHIQI_D1_01_F,") AND EAus=5") sCHIQI_D1_02_F <- paste("(",sCHIQI_D1_01_F,") AND AltE<20") sCHIQI_D1_02_M <- paste("(",sCHIQI_D1_02_F,") AND EAus=5") sCHIQI_D1_03_F <- paste("(",sCHIQI_D1_01_F,") AND (AltE between 20 AND 44)") sCHIQI_D1_03_M <- paste("(",sCHIQI_D1_03_F,") AND EAus=5") sCHIQI_D1_04_F <- paste("(",sCHIQI_D1_01_F,") AND (AltE between 45 AND 64)") sCHIQI_D1_04_M <- paste("(",sCHIQI_D1_04_F,") AND EAus=5") sCHIQI_D1_05_F <- paste("(",sCHIQI_D1_01_F,") AND (AltE between 65 AND 84)") sCHIQI_D1_05_M <- paste("(",sCHIQI_D1_05_F,") AND EAus=5") sCHIQI_D1_06_F <- paste("(",sCHIQI_D1_01_F,") AND AltE>84") sCHIQI_D1_06_M <- paste("(",sCHIQI_D1_06_F,") AND EAus=5") sCHIQI_D1_07_F <- paste("(",sCHIQI_D1_01_F,") AND AVor<>6 AND NOT (",sCHIQI_NebDiaTumor,") AND NOT (",sCHIQI_NebDiaMukoviszidose,") AND (AltE between 1 AND 19)") sCHIQI_D1_07_M <- paste("(",sCHIQI_D1_07_F,") AND EAus=5") sCHIQI_D1_08_F <- paste("(",sCHIQI_D1_01_F,") AND AVor<>6 AND NOT (",sCHIQI_NebDiaTumor,") AND NOT (",sCHIQI_NebDiaMukoviszidose,") AND AltE>19") sCHIQI_D1_08_M <- paste("(",sCHIQI_D1_08_F,") AND EAus=5") sCHIQI_D1_09_F <- paste("(",sCHIQI_D1_08_F,") AND (AltE between 20 AND 44)") sCHIQI_D1_09_M <- paste("(",sCHIQI_D1_09_F,") AND EAus=5") sCHIQI_D1_10_F <- paste("(",sCHIQI_D1_08_F,") AND (AltE between 45 AND 64)") sCHIQI_D1_10_M <- paste("(",sCHIQI_D1_10_F,") AND EAus=5") sCHIQI_D1_11_F <- paste("(",sCHIQI_D1_08_F,") AND (AltE between 65 AND 84)") sCHIQI_D1_11_M <- paste("(",sCHIQI_D1_11_F,") AND EAus=5") sCHIQI_D1_12_F <- paste("(",sCHIQI_D1_08_F,") AND AltE>84") sCHIQI_D1_12_M <- paste("(",sCHIQI_D1_12_F,") AND EAus=5") sCHIQI_D2_01_F <- paste("LEFT(HD,4) IN ('J440','J441','J448','J449') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_01_M <- paste("(",sCHIQI_D2_01_F,") AND EAus=5") sCHIQI_D2_02_F <- paste("LEFT(HD,5) IN ('J4400','J4410','J4480','J4490') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_02_M <- paste("(",sCHIQI_D2_02_F,") AND EAus=5") sCHIQI_D2_03_F <- paste("LEFT(HD,5) IN ('J4401','J4411','J4481','J4491') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_03_M <- paste("(",sCHIQI_D2_03_F,") AND EAus=5") sCHIQI_D2_04_F <- paste("LEFT(HD,5) IN ('J4402','J4412','J4482','J4492') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_04_M <- paste("(",sCHIQI_D2_04_F,") AND EAus=5") sCHIQI_D2_05_F <- paste("LEFT(HD,5) IN ('J4403','J4413','J4483','J4493') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_05_M <- paste("(",sCHIQI_D2_05_F,") AND EAus=5") sCHIQI_D2_06_F <- paste("LEFT(HD,5) IN ('J4409','J4419','J4489','J4499') AND NOT (",sCHIQI_NebDiaTumor,") AND AltE>19") sCHIQI_D2_06_M <- paste("(",sCHIQI_D2_06_F,") AND EAus=5") sCHIQI_D2_06_P <- sCHIQI_D2_06_F sCHIQI_D3_01_F <- "LEFT(HD,3) IN ('C33', 'C34')" sCHIQI_D4_01_F <- "(InStr(AllBeh,' 321')>0 OR InStr(AllBeh,' 3220')>0 OR InStr(AllBeh,' 3222')>0 OR InStr(AllBeh,' 3223')>0 OR InStr(AllBeh,' 3224')>0 OR InStr(AllBeh,' 3225')>0 OR InStr(AllBeh,' 3226')>0 OR InStr(AllBeh,' 3229')>0 OR InStr(AllBeh,' 323')>0 OR InStr(AllBeh,' 324')>0 OR InStr(AllBeh,' 325')>0 OR InStr(AllBeh,' 326')>0)" sCHIQI_D4_01_M <- paste("(",sCHIQI_D4_01_F,") AND EAus=5") sCHIQI_D4_02N_F <- paste("(",sCHIQI_D4_01_F,") AND InStr(AllDia,'C34')>0") sCHIQI_D4_02_F <- "InStr(AllDia,'C34')>0 AND InStr(AllBeh,' 325')>0" sCHIQI_D4_02_M <- paste("(",sCHIQI_D4_02_F,") AND EAus=5") sCHIQI_D4_02_P <- sCHIQI_D4_02_F sCHIQI_D4_03_F <- "(InStr(AllBeh,' 321')>0 OR InStr(AllBeh,' 3220')>0 OR InStr(AllBeh,' 3222')>0 OR InStr(AllBeh,' 3223')>0 OR InStr(AllBeh,' 3224')>0 OR InStr(AllBeh,' 3225')>0 OR InStr(AllBeh,' 3226')>0 OR InStr(AllBeh,' 3229')>0 OR InStr(AllBeh,' 323')>0 OR InStr(AllBeh,' 324')>0 OR InStr(AllBeh,' 326')>0) AND InStr(AllDia,'C34')>0 AND NOT InStr(AllBeh,' 325')>0" sCHIQI_D4_03_M <- paste("(",sCHIQI_D4_03_F,") AND EAus=5") sCHIQI_D4_04_F <- paste("(InStr(AllBeh,' 324112')>0 OR InStr(AllBeh,' 324113')>0 OR InStr(AllBeh,' 324114')>0 OR InStr(AllBeh,' 324212')>0 OR InStr(AllBeh,' 324213')>0 OR InStr(AllBeh,' 324214')>0 OR InStr(AllBeh,' 324222')>0 OR InStr(AllBeh,' 324223')>0 OR InStr(AllBeh,' 324224')>0 OR InStr(AllBeh,' 324242')>0 OR InStr(AllBeh,' 324243')>0 OR InStr(AllBeh,' 324244')>0) AND (",sCHIQI_D4_01_F,") AND InStr(AllDia,'C34')>0") sCHIQI_D4_04_P <- sCHIQI_D4_04_F sCHIQI_D4_05_F <- "InStr(AllBeh,' 345')>0" sCHIQI_D4_05_M <- paste("(",sCHIQI_D4_05_F,") AND EAus=5") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe E #------------------------------------------------------------------------------- sCHIQI_E1_01_F <- paste("LEFT(HD,3) IN ('K80','K81') AND InStr(AllBeh,' 512')>0 AND NOT (",sCHIQI_NebDiaTumor,") AND NOT InStr(AllBeh,' 512212')>0") sCHIQI_E1_01_M <- paste("(",sCHIQI_E1_01_F,") AND EAus=5") sCHIQI_E1_02_F <- paste("LEFT(HD,3) IN ('K80','K81') AND InStr(AllBeh,' 512')>0 AND NOT (",sCHIQI_NebDiaTumor,") AND NOT (InStr(AllBeh,' 5121')>0 OR InStr(AllBeh,' 5122')>0)") sCHIQI_E1_02_P <- sCHIQI_E1_02_F sCHIQI_E2_01_F <- paste("LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0 OR InStr(AllBeh,' 532')>0 OR InStr(AllBeh,' 533')>0 OR InStr(AllBeh,' 534')>0 OR InStr(AllBeh,' 535')>0 OR InStr(AllBeh,' 536')>0) AND NOT (InStr(AllBeh,' 453')>0 OR InStr(AllBeh,' 454')>0 OR InStr(AllBeh,' 455')>0 OR InStr(AllBeh,' 456')>0 OR InStr(AllBeh,' 457')>0 OR InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 459')>0 OR InStr(AllBeh,' 46')>0 OR InStr(AllBeh,' 48')>0) AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_E2_01_M <- paste("(",sCHIQI_E2_01_F,") AND EAus=5") sCHIQI_E2_02_F <- paste("LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0 OR InStr(AllBeh,' 532')>0 OR InStr(AllBeh,' 533')>0 OR InStr(AllBeh,' 534')>0 OR InStr(AllBeh,' 535')>0 OR InStr(AllBeh,' 536')>0) AND (InStr(AllBeh,' 453')>0 OR InStr(AllBeh,' 454')>0 OR InStr(AllBeh,' 455')>0 OR InStr(AllBeh,' 456')>0 OR InStr(AllBeh,' 457')>0 OR InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 459')>0 OR InStr(AllBeh,' 46')>0 OR InStr(AllBeh,' 48')>0) AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_E2_02_M <- paste("(",sCHIQI_E2_02_F,") AND EAus=5") sCHIQI_E2_03N_F <- paste("LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0) AND AltE<20 AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_E2_03_F <- paste("LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 5303')>0 OR InStr(AllBeh,' 5304')>0 OR InStr(AllBeh,' 5305')>0 OR InStr(AllBeh,' 5314')>0 OR InStr(AllBeh,' 5315')>0 OR InStr(AllBeh,' 5316')>0 OR InStr(AllBeh,' 5317')>0) AND AltE<20 AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_E2_03_P <- sCHIQI_E2_03_F sCHIQI_E2_04N_F <- "LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0) AND AltE>19" sCHIQI_E2_04_F <- "LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 5303')>0 OR InStr(AllBeh,' 5304')>0 OR InStr(AllBeh,' 5305')>0 OR InStr(AllBeh,' 5314')>0 OR InStr(AllBeh,' 5315')>0 OR InStr(AllBeh,' 5316')>0 OR InStr(AllBeh,' 5317')>0) AND AltE>19" sCHIQI_E2_04_P <- sCHIQI_E2_04_F sCHIQI_E3_01_F <- "(InStr(AllBeh,' 062')>0 OR InStr(AllBeh,' 063')>0 OR InStr(AllBeh,' 064')>0 OR InStr(AllBeh,' 065')>0 OR InStr(AllBeh,' 066')>0)" sCHIQI_E3_02_F <- paste("(",sCHIQI_E3_01_F,") AND HBeat > 24") sCHIQI_E3_02_P <- sCHIQI_E3_02_F sCHIQI_E3_03_F <- "(InStr(AllBeh,' 922802')>0 OR InStr(AllBeh,' 922803')>0 OR InStr(AllBeh,' 922804')>0 OR InStr(AllBeh,' 922805')>0 OR InStr(AllBeh,' 922806')>0 OR InStr(AllBeh,' 922807')>0)" sCHIQI_E4_01_F <- "(InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0)" sCHIQI_E4_01_M <- paste("(",sCHIQI_E4_01_F,") AND EAus=5") sCHIQI_E4_02_F <- "((InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0) OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0 AND NOT (InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0))) AND (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND NOT (InStr(AllDia,'K56')>0 OR InStr(AllDia,'K593')>0) AND NOT (LEFT(HD,3) IN ('C16','C22','C23','C24','C25','C54','C55','C56','C64','C65','C66','C67','K55','K65') OR LEFT(HD,4) IN ('K593','K630','K631'))" sCHIQI_E4_02_M <- paste("(",sCHIQI_E4_02_F,") AND EAus=5") sCHIQI_E4_03_F <- "((InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0) OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0 AND NOT (InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0))) AND (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND (InStr(AllDia,'K56')>0 OR InStr(AllDia,'K593')>0)" sCHIQI_E4_03_M <- paste("(",sCHIQI_E4_03_F,") AND EAus=5") sCHIQI_E4_04_F <- "(InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND NOT (InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0) AND (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0)" sCHIQI_E4_04_M <- paste("(",sCHIQI_E4_04_F,") AND EAus=5") sCHIQI_E4_05_F <- "(InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND LEFT(HD,4) IN ('K573','K575','K579') AND NOT (InStr(AllDia,'K56')>0 OR InStr(AllDia,'K593')>0 OR LEFT(HD,3) IN ('C16','C22','C23','C24','C25','C54','C55','C56','C64','C65','C66','C67','K55','K65') OR LEFT(HD,4) IN ('K593','K630','K631')) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0)" sCHIQI_E4_05_M <- paste("(",sCHIQI_E4_05_F,") AND EAus=5") sCHIQI_E4_06_F <- "(InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND LEFT(HD,3) = 'K57' AND (LEFT(HD,4) IN ('K572','K574','K578') OR InStr(AllDia,'K56')>0 OR InStr(AllDia,'K593')>0 OR LEFT(HD,3) IN ('C16','C22','C23','C24','C25','C54','C55','C56','C64','C65','C66','C67','K55','K65') OR LEFT(HD,4) IN ('K593','K630','K631')) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0)" sCHIQI_E4_06_M <- paste("(",sCHIQI_E4_06_F,") AND EAus=5") sCHIQI_E4_07_F <- "(InStr(AllDia,'K550')>0 OR InStr(AllDia,'K551')>0 OR InStr(AllDia,'K559')>0) AND (InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND NOT (LEFT(HD,4) IN ('K573','K575','K579') OR LEFT(HD,4) IN ('K572','K574','K578'))" sCHIQI_E4_07_M <- paste("(",sCHIQI_E4_07_F,") AND EAus=5") sCHIQI_E4_08_F <- paste("(InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0 OR InStr(AllDia,'K550')>0 OR InStr(AllDia,'K551')>0 OR InStr(AllDia,'K559')>0 OR (",sCHIQI_E4_12_F,")) AND NOT (LEFT(HD,4) IN ('K573','K575','K579') OR LEFT(HD,4) IN ('K572','K574','K578'))") sCHIQI_E4_08_M <- paste("(",sCHIQI_E4_08_F,") AND EAus=5") sCHIQI_E4_09_F <- "(InStr(AllBeh,' 454')>0 OR InStr(AllBeh,' 483')>0) AND NOT (InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C21')>0)" sCHIQI_E4_10_F <- "(InStr(AllBeh,' 454')>0 OR InStr(AllBeh,' 483')>0) AND NOT (InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C21')>0)" sCHIQI_E4_11_F <- "LEFT(HD,3) IN ('C18','C19','C20') OR LEFT(HD,4) = 'C218'" sCHIQI_E4_12_F <- "InStr(AllDia,'K50')>0 OR InStr(AllDia,'K51')>0" sCHIQI_E4_13_F <- paste("(InStr(AllBeh,' 458')>0 OR InStr(AllBeh,' 45792')>0 OR (InStr(AllBeh,' 457')>0 AND NOT InStr(AllBeh,' 45792')>0) OR InStr(AllBeh,' 484')>0 OR InStr(AllBeh,' 485')>0 OR InStr(AllBeh,' 486')>0) AND NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND (",sCHIQI_E4_12_F,") AND NOT (LEFT(HD,4) IN ('K573','K575','K579') OR LEFT(HD,4) IN ('K572','K574','K578'))") sCHIQI_E4_13_M <- paste("(",sCHIQI_E4_13_F,") AND EAus=5") sCHIQI_E4_14N_F <- paste("(",sCHIQI_E4_01_F,") AND (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0)") sCHIQI_E4_14_F <- paste("(",sCHIQI_E4_14N_F,") AND ((InStr(AllBeh,' 502')>0 OR InStr(AllBeh,' 503X0')>0) AND NOT InStr(AllBeh,' 502C')>0)") sCHIQI_E4_14_P <- sCHIQI_E4_14_F sCHIQI_E4_15N_F <- paste("(",sCHIQI_E4_02_F,") OR (",sCHIQI_E4_03_F,") OR (",sCHIQI_E4_04_F,") OR (",sCHIQI_E4_05_F,") OR (",sCHIQI_E4_06_F,") OR (",sCHIQI_E4_13_F,")") sCHIQI_E4_15_F <- paste("(",sCHIQI_E4_15N_F,") AND (InStr(AllDia,'T888')>0 OR (InStr(AllDia,'K918')>0 AND NOT (InStr(AllDia,'K9180')>0 OR InStr(AllDia,'K9188')>0)))") sCHIQI_E4_15_M <- paste("(",sCHIQI_E4_15_F,") AND EAus=5") sCHIQI_E4_15_P <- sCHIQI_E4_15_F sCHIQI_E5_01_F <- "InStr(AllBeh,' 435')>0 OR InStr(AllBeh,' 436')>0 OR InStr(AllBeh,' 437')>0 OR InStr(AllBeh,' 438')>0 OR InStr(AllBeh,' 439')>0" sCHIQI_E5_02_F <- paste("(",sCHIQI_E5_01_F,") AND NOT (",sCHIQI_E6_01_F,") AND InStr(AllDia,'C16')>0") sCHIQI_E5_02_M <- paste("(",sCHIQI_E5_02_F,") AND EAus=5") sCHIQI_E5_03_F <- paste("(",sCHIQI_E5_01_F,") AND (",sCHIQI_E6_01_F,")") sCHIQI_E5_03_M <- paste("(",sCHIQI_E5_03_F,") AND EAus=5") sCHIQI_E5_04_F <- "LEFT(HD,3) = 'C16'" sCHIQI_E5_05_F <- paste("LEFT(HD,3) IN ('K25','K26','K27','K28') AND NOT (",sCHIQI_NebDiaTumor,")") sCHIQI_E5_05_M <- paste("(",sCHIQI_E5_05_F,") AND EAus=5") sCHIQI_E5_06_F <- paste("(",sCHIQI_E5_01_F,") AND NOT (",sCHIQI_E6_01_F,") AND NOT InStr(AllDia,'C16')>0") sCHIQI_E5_06_M <- paste("(",sCHIQI_E5_06_F,") AND EAus=5") sCHIQI_E6_01_F <- "(InStr(AllBeh,' 424')>0 OR InStr(AllBeh,' 425')>0)" sCHIQI_E6_01_M <- paste("(",sCHIQI_E6_01_F,") AND EAus=5") sCHIQI_E7_01_F <- "(InStr(AllBeh,' 522')>0 OR InStr(AllBeh,' 523')>0 OR InStr(AllBeh,' 524')>0 OR InStr(AllBeh,' 525')>0 OR InStr(AllBeh,' 526')>0 OR InStr(AllBeh,' 527')>0) AND NOT (InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 526X1')>0 OR InStr(AllBeh,' 5264')>0) AND AltE>19" sCHIQI_E7_01_M <- paste("(",sCHIQI_E7_01_F,") AND EAus=5") sCHIQI_E7_02_F <- paste("(",sCHIQI_E7_01_F,") AND (InStr(AllDia,'C241')>0 OR InStr(AllDia,'C25')>0)") sCHIQI_E7_02_M <- paste("(",sCHIQI_E7_02_F,") AND EAus=5") sCHIQI_E8_01_F <- paste("(LEFT(HD,3) = 'E66' OR (LEFT(HD,3) IN ('E10','E11','E12','E13','E14') AND InStr(NebDia,'E66')>0)) AND (InStr(AllBeh,' 43892')>0 OR InStr(AllBeh,' 43893')>0 OR InStr(AllBeh,' 43894')>0 OR InStr(AllBeh,' 43895')>0 OR InStr(AllBeh,' 43991')>0 OR InStr(AllBeh,' 4431')>0 OR InStr(AllBeh,' 445X2')>0 OR InStr(AllBeh,' 445X3')>0 OR InStr(AllBeh,' 445X4')>0 OR InStr(AllBeh,' 445X5')>0 OR InStr(AllBeh,' 44681')>0 OR InStr(AllBeh,' 4493')>0 OR InStr(AllBeh,' 4494')>0 OR InStr(AllBeh,' 44951')>0 OR InStr(AllBeh,' 449611')>0 OR InStr(AllBeh,' 449612')>0 OR InStr(AllBeh,' 449613')>0 OR InStr(AllBeh,' 449614')>0 OR InStr(AllBeh,' 45911')>0) AND NOT (",sCHIQI_NebDiaTumor,")") sCHIQI_E8_01_M <- paste("(",sCHIQI_E8_01_F,") AND EAus=5") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe F #------------------------------------------------------------------------------- sCHIQI_F1_01_F <- paste("InStr(AllBeh,' 3812')>0 AND NOT (",sCHIQI_A7_01_F,") AND NOT (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0) AND NOT (",sCHIQI_F2_01_F,") AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND (NOT (",sCHIQI_F3_01_F,") AND (InStr(AllDia,'I7022')=0 OR (InStr(AllDia,'I7020')=0 AND InStr(AllDia,'I7021')=0) OR (InStr(AllDia,'I7023')=0 AND InStr(AllDia,'I7024')=0) OR (InStr(AllDia,'T823')=0 AND InStr(AllDia,'T824')=0 AND InStr(AllDia,'T825')=0 AND InStr(AllDia,'T827')=0 AND InStr(AllDia,'T828')=0 AND InStr(AllDia,'T829')=0)))") sCHIQI_F1_01_M <- paste("(",sCHIQI_F1_01_F,") AND EAus=5") sCHIQI_F1_02_F <- paste("(InStr(AllBeh,' 0063')>0 OR InStr(AllBeh,' 0064')>0) AND NOT (",sCHIQI_F1_04_F,") AND NOT (",sCHIQI_A7_01_F,") AND NOT (",sCHIQI_F2_01_F,") AND NOT InStr(AllBeh,' 3812')>0 AND NOT (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0)") sCHIQI_F1_02_M <- paste("(",sCHIQI_F1_02_F,") AND EAus=5") sCHIQI_F1_03_F <- paste("InStr(AllBeh,' 3812')>0 AND ((",sCHIQI_A7_01_F,") OR (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0) OR (",sCHIQI_F2_01_F,") OR (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) OR (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) OR ((",sCHIQI_F3_01_F,") AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0)) OR ((InStr(AllBeh,' 0063')>0 OR InStr(AllBeh,' 0064')>0) AND ((",sCHIQI_A7_01_F,") OR (InStr(AllDia,'C0')>0 OR InStr(AllDia,'C10')>0 OR InStr(AllDia,'C11')>0 OR InStr(AllDia,'C12')>0 OR InStr(AllDia,'C13')>0 OR InStr(AllDia,'C14')>0) OR (",sCHIQI_F2_01_F,") OR (",sCHIQI_F1_04_F,")))") sCHIQI_F1_04_F <- "InStr(AllBeh,' 0065')>0 OR InStr(AllBeh,' 39720')>0 OR InStr(AllBeh,' 39721')>0 OR InStr(AllBeh,' 39723')>0" sCHIQI_F1_05_F <- paste("(",sCHIQI_F1_01_F,") AND NOT (",sCHIQI_Fruehreha,")") sCHIQI_F2_01_F <- "InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 38451')>0 OR InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 3973')>0" sCHIQI_F2_02_F <- paste("(InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,") AND (InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0) AND NOT (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)") sCHIQI_F2_02_M <- paste("(",sCHIQI_F2_02_F,") AND EAus=5") sCHIQI_F2_03_F <- paste("(InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND InStr(AllBeh,' 3971')>0 AND NOT (",sCHIQI_F2_05_F,") AND NOT (InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0) AND NOT (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)") sCHIQI_F2_03_M <- paste("(",sCHIQI_F2_03_F,") AND EAus=5") sCHIQI_F2_04_F <- paste("((InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) OR (",sCHIQI_F2_05_F,")) AND (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)") sCHIQI_F2_05_F <- "(InStr(AllDia,'I7104')>0 OR InStr(AllDia,'I7105')>0 OR InStr(AllDia,'I7106')>0 OR InStr(AllDia,'I7107')>0 OR InStr(AllDia,'I711')>0 OR InStr(AllDia,'I713')>0 OR InStr(AllDia,'I715')>0 OR InStr(AllDia,'I718')>0)" sCHIQI_F2_05_M <- paste("(",sCHIQI_F2_05_F,") AND EAus=5") sCHIQI_F2_06_F <- paste("(",sCHIQI_F2_05_F,") AND (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0)") sCHIQI_F2_06_M <- paste("(",sCHIQI_F2_06_F,") AND EAus=5") sCHIQI_F2_07_F <- "(InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3971')>0) AND NOT (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F2_08_F <- paste("(InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0) AND NOT (InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,") AND NOT (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)") sCHIQI_F2_08_M <- paste("(",sCHIQI_F2_08_F,") AND EAus=5") sCHIQI_F2_09_F <- paste("InStr(AllBeh,' 3971')>0 AND NOT (InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,") AND NOT (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) AND NOT (InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0)") sCHIQI_F2_09_M <- paste("(",sCHIQI_F2_09_F,") AND EAus=5") sCHIQI_F2_10_F <- paste("(InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,") AND (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) AND NOT (",sCHIQI_A7_01_F,")") sCHIQI_F2_10_M <- paste("(",sCHIQI_F2_10_F,") AND EAus=5") sCHIQI_F2_11_F <- paste("(InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,") AND (InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) AND (",sCHIQI_A7_01_F,")") sCHIQI_F2_11_M <- paste("(",sCHIQI_F2_11_F,") AND EAus=5") sCHIQI_F2_12_F <- paste("(InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) AND NOT (InStr(AllDia,'I7100')>0 OR InStr(AllDia,'I7101')>0 OR InStr(AllDia,'I7102')>0 OR InStr(AllDia,'I7103')>0 OR InStr(AllDia,'I712')>0 OR InStr(AllDia,'I714')>0 OR InStr(AllDia,'I716')>0 OR InStr(AllDia,'I719')>0) AND NOT (",sCHIQI_F2_05_F,")") sCHIQI_F2_12_M <- paste("(",sCHIQI_F2_12_F,") AND EAus=5") sCHIQI_F3_01_F <- "(InStr(AllBeh,' 3818')>0 OR InStr(AllBeh,' 3838')>0 OR InStr(AllBeh,' 3848')>0 OR InStr(AllBeh,' 3868')>0 OR InStr(AllBeh,' 3925')>0 OR InStr(AllBeh,' 39291')>0 OR InStr(AllBeh,' 392932')>0 OR InStr(AllBeh,' 392933')>0)" sCHIQI_F3_01_M <- paste("(",sCHIQI_F3_01_F,") AND EAus=5") sCHIQI_F3_02_F <- paste("(",sCHIQI_F3_01_F,") AND (InStr(AllDia,'I7020')>0 OR InStr(AllDia,'I7021')>0) AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT InStr(AllDia,'I7022')>0 AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_02_M <- paste("(",sCHIQI_F3_02_F,") AND EAus=5") sCHIQI_F3_03_F <- paste("(",sCHIQI_F3_01_F,") AND InStr(AllDia,'I7022')>0 AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_03_M <- paste("(",sCHIQI_F3_03_F,") AND EAus=5") sCHIQI_F3_04_F <- paste("(",sCHIQI_F3_01_F,") AND (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_04_M <- paste("(",sCHIQI_F3_04_F,") AND EAus=5") sCHIQI_F3_05_F <- paste("(",sCHIQI_F3_01_F,") AND InStr(AllDia,'I74')>0 AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_05_M <- paste("(",sCHIQI_F3_05_F,") AND EAus=5") sCHIQI_F3_06_F <- paste("(",sCHIQI_F3_01_F,") AND (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_06_M <- paste("(",sCHIQI_F3_06_F,") AND EAus=5") sCHIQI_F3_07_F <- paste("(",sCHIQI_F3_01_F,") AND (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F3_07_M <- paste("(",sCHIQI_F3_07_F,") AND EAus=5") sCHIQI_F3_08_F <- paste("(",sCHIQI_F3_01_F,") AND (",sCHIQI_F2_01_F,")") sCHIQI_F3_09_F <- paste("(",sCHIQI_F3_01_F,") AND (((InStr(AllDia,'I7020')=0 AND InStr(AllDia,'I7021')=0) AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT InStr(AllDia,'I7022')>0 AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0)) OR (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0 OR InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0)) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F4_01_F <- paste("(InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (",sCHIQI_Trauma,")") sCHIQI_F4_01_M <- paste("(",sCHIQI_F4_01_F,") AND EAus=5") sCHIQI_F4_02_F <- paste("(InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (",sCHIQI_Trauma,")") sCHIQI_F4_02_M <- paste("(",sCHIQI_F4_02_F,") AND EAus=5") sCHIQI_F5_01_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0)" sCHIQI_F5_02_F <- paste("(",sCHIQI_F5_01_F,") AND (",sCHIQI_F3_01_F,")") sCHIQI_F5_03_F <- sCHIQI_F3_07_F sCHIQI_F5_04_F <- paste("(",sCHIQI_F5_01_F,") AND (InStr(AllDia,'I7020')>0 OR InStr(AllDia,'I7021')>0) AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT InStr(AllDia,'I7022')>0 AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F5_05_F <- paste("(",sCHIQI_F5_01_F,") AND InStr(AllDia,'I7022')>0 AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F5_06_F <- paste("(",sCHIQI_F5_01_F,") AND (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0) AND NOT (InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) AND NOT InStr(AllDia,'I74')>0 AND NOT (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) AND NOT (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) AND NOT (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) AND NOT (",sCHIQI_F2_01_F,")") sCHIQI_F5_07_F <- paste("(",sCHIQI_F5_01_F,") AND (((InStr(AllDia,'I723')>0 OR InStr(AllDia,'I724')>0 OR InStr(AllDia,'I728')>0 OR InStr(AllDia,'I729')>0) OR InStr(AllDia,'I74')>0 OR (InStr(AllDia,'T823')>0 OR InStr(AllDia,'T824')>0 OR InStr(AllDia,'T825')>0 OR InStr(AllDia,'T827')>0 OR InStr(AllDia,'T828')>0 OR InStr(AllDia,'T829')>0) OR (InStr(AllBeh,' 8410')>0 OR InStr(AllBeh,' 8415')>0 OR InStr(AllBeh,' 8416')>0 OR InStr(AllBeh,' 8417')>0 OR InStr(AllBeh,' 8418')>0 OR InStr(AllBeh,' 8419')>0) OR (InStr(AllBeh,' 8411')>0 OR InStr(AllBeh,' 8412')>0 OR InStr(AllBeh,' 8413')>0 OR InStr(AllBeh,' 8414')>0) OR (",sCHIQI_F2_01_F,")) OR ((InStr(AllDia,'I7020')=0 AND InStr(AllDia,'I7021')=0) AND InStr(AllDia,'I7022')=0 AND (InStr(AllDia,'I7023')=0 AND InStr(AllDia,'I7024')=0)))") sCHIQI_F6_01_F <- "(InStr(AllBeh,' 392710')>0 OR InStr(AllBeh,' 392711')>0)" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe G #------------------------------------------------------------------------------- sCHIQI_G_Risiko_1 <- "(InStr(AllDia,'O090')>0 OR InStr(AllDia,'O091')>0 OR InStr(AllDia,'O092')>0 OR InStr(AllDia,'O093')>0 OR InStr(AllDia,'O094')>0 OR InStr(AllDia,'O095')>0 OR InStr(AllDia,'O11')>0 OR InStr(AllDia,'O141')>0 OR InStr(AllDia,'O142')>0 OR InStr(AllDia,'O15')>0 OR InStr(AllDia,'O240')>0 OR InStr(AllDia,'O241')>0 OR InStr(AllDia,'O30')>0 OR InStr(AllDia,'O31')>0 OR InStr(AllDia,'O320')>0 OR InStr(AllDia,'O321')>0 OR InStr(AllDia,'O322')>0 OR InStr(AllDia,'O323')>0 OR InStr(AllDia,'O325')>0)" sCHIQI_G_Risiko_2 <- "(InStr(AllDia,'O336')>0 OR InStr(AllDia,'O337')>0 OR InStr(AllDia,'O346')>0 OR InStr(AllDia,'O350')>0 OR InStr(AllDia,'O362')>0 OR InStr(AllDia,'O364')>0 OR InStr(AllDia,'O632')>0 OR InStr(AllDia,'O641')>0 OR InStr(AllDia,'O642')>0 OR InStr(AllDia,'O643')>0 OR InStr(AllDia,'O644')>0 OR InStr(AllDia,'O661')>0 OR InStr(AllDia,'Z372')>0 OR InStr(AllDia,'Z373')>0 OR InStr(AllDia,'Z374')>0 OR InStr(AllDia,'Z375')>0 OR InStr(AllDia,'Z376')>0 OR InStr(AllDia,'Z377')>0)" sCHIQI_G1_01_F <- "(InStr(AllDia,'O601')>0 OR InStr(AllDia,'O602')>0 OR InStr(AllDia,'O603')>0 OR InStr(AllDia,'O623')>0 OR InStr(AllDia,'O80')>0 OR InStr(AllDia,'O81')>0 OR InStr(AllDia,'O840')>0 OR InStr(AllDia,'O841')>0 OR InStr(AllDia,'O848')>0 OR InStr(AllDia,'O849')>0 OR InStr(AllDia,'Z37')>0 OR InStr(AllDia,'O82')>0 OR InStr(AllDia,'O842')>0 OR InStr(AllBeh,' 72')>0 OR InStr(AllBeh,' 730')>0 OR InStr(AllBeh,' 731')>0 OR InStr(AllBeh,' 7322')>0 OR InStr(AllBeh,' 734')>0 OR InStr(AllBeh,' 735')>0 OR InStr(AllBeh,' 736')>0 OR InStr(AllBeh,' 738')>0 OR InStr(AllBeh,' 7392')>0 OR InStr(AllBeh,' 7393')>0 OR InStr(AllBeh,' 7394')>0 OR InStr(AllBeh,' 7399')>0 OR InStr(AllBeh,' 740')>0 OR InStr(AllBeh,' 741')>0 OR InStr(AllBeh,' 742')>0 OR InStr(AllBeh,' 744')>0 OR InStr(AllBeh,' 7499')>0) AND (AltE between 8 AND 58) AND Sex=2" sCHIQI_G1_01_P <- paste("(",sCHIQI_G1_01_F,") AND EAus=5") sCHIQI_G1_02N_F <- paste("(InStr(AllDia,'O601')>0 OR InStr(AllDia,'O602')>0 OR InStr(AllDia,'O603')>0 OR InStr(AllDia,'O623')>0 OR InStr(AllDia,'O80')>0 OR InStr(AllDia,'O81')>0 OR InStr(AllDia,'O840')>0 OR InStr(AllDia,'O841')>0 OR InStr(AllDia,'O848')>0 OR InStr(AllDia,'O849')>0 OR InStr(AllDia,'Z37')>0 OR InStr(AllBeh,' 72')>0 OR InStr(AllBeh,' 730')>0 OR InStr(AllBeh,' 731')>0 OR InStr(AllBeh,' 7322')>0 OR InStr(AllBeh,' 734')>0 OR InStr(AllBeh,' 735')>0 OR InStr(AllBeh,' 736')>0 OR InStr(AllBeh,' 738')>0 OR InStr(AllBeh,' 7392')>0 OR InStr(AllBeh,' 7393')>0 OR InStr(AllBeh,' 7394')>0 OR InStr(AllBeh,' 7399')>0) AND NOT (",sCHIQI_G1_04_F,") AND (AltE between 8 AND 58) AND Sex=2") sCHIQI_G1_02_F <- paste("(InStr(AllDia,'O702')>0 OR InStr(AllDia,'O703')>0) AND NOT (",sCHIQI_G1_04_F,") AND (AltE between 8 AND 58) AND Sex=2") sCHIQI_G1_02_P <- sCHIQI_G1_02_F sCHIQI_G1_03_F <- paste("(InStr(AllBeh,' 7211')>0 OR InStr(AllBeh,' 736')>0 OR InStr(AllBeh,' 7271')>0 OR InStr(AllBeh,' 7231')>0 OR InStr(AllBeh,' 7221')>0 OR InStr(AllBeh,' 7201')>0) AND NOT (",sCHIQI_G1_04_F,") AND (AltE between 8 AND 58) AND Sex=2") sCHIQI_G1_03_P <- sCHIQI_G1_03_F sCHIQI_G1_04_F <- "(InStr(AllDia,'O82')>0 OR InStr(AllDia,'O842')>0 OR InStr(AllBeh,' 740')>0 OR InStr(AllBeh,' 741')>0 OR InStr(AllBeh,' 742')>0 OR InStr(AllBeh,' 744')>0 OR InStr(AllBeh,' 7499')>0) AND (AltE between 8 AND 58) AND Sex=2" sCHIQI_G1_04_P <- sCHIQI_G1_04_F sCHIQI_G1_05N_F <- paste("(",sCHIQI_G1_01_F,") AND NOT ((",sCHIQI_G_Risiko_1,") OR (",sCHIQI_G_Risiko_2,"))") sCHIQI_G1_05_F <- paste("(",sCHIQI_G1_04_F,") AND NOT ((",sCHIQI_G_Risiko_1,") OR (",sCHIQI_G_Risiko_2,"))") sCHIQI_G1_05_P <- sCHIQI_G1_05_F sCHIQI_G1_06N_F <- paste("(",sCHIQI_G1_05N_F,") AND (AltE between 8 AND 34)") sCHIQI_G1_06_F <- paste("(",sCHIQI_G1_05_F,") AND (AltE between 8 AND 34)") sCHIQI_G1_06_P <- sCHIQI_G1_06_F sCHIQI_G1_07N_F <- paste("(",sCHIQI_G1_05N_F,") AND (AltE between 35 AND 58)") sCHIQI_G1_07_F <- paste("(",sCHIQI_G1_05_F,") AND (AltE between 35 AND 58)") sCHIQI_G1_07_P <- sCHIQI_G1_07_F sCHIQI_G2_01_F <- paste("(",sCHIQI_Neugeborene,") AND ((AufGew between 250 AND 1249) OR (GebGew between 250 AND 1249))") sCHIQI_G2_02_F <- paste("(",sCHIQI_G2_01_F,") AND AVor=6") sCHIQI_G2_03_F <- paste("(",sCHIQI_G2_01_F,") AND ((AufGew between 250 AND 499) OR (GebGew between 250 AND 499))") sCHIQI_G2_04_F <- paste("(",sCHIQI_G2_01_F,") AND ((AufGew between 500 AND 749) OR (GebGew between 500 AND 749))") sCHIQI_G2_05_F <- paste("(",sCHIQI_G2_01_F,") AND ((AufGew between 750 AND 999) OR (GebGew between 750 AND 999))") sCHIQI_G2_06_F <- paste("(",sCHIQI_G2_01_F,") AND ((AufGew between 1000 AND 1249) OR (GebGew between 1000 AND 1249))") sCHIQI_G2_07_F <- paste("(",sCHIQI_Neugeborene,") AND ((AufGew between 1250 AND 1499) OR (GebGew between 1250 AND 1499))") sCHIQI_G2_08_F <- paste("(",sCHIQI_Neugeborene,") AND ((AufGew between 1500 AND 2499) OR (GebGew between 1500 AND 2499))") sCHIQI_G2_09_F <- paste("(",sCHIQI_Neugeborene,") AND (((AufGew not between 250 AND 2499) OR (GebGew not between 250 AND 2499)) OR (AufGew is NULL AND GebGew is NULL))") sCHIQI_G3_01_F <- paste("(InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 689')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0) AND AltE>14 AND Sex=2") sCHIQI_G3_01_M <- paste("(",sCHIQI_G3_01_F,") AND EAus=5") sCHIQI_G3_02N_F <- paste("(InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 689')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0) AND NOT (InStr(AllBeh,' 595')>0 OR InStr(AllBeh,' 596')>0 OR InStr(AllBeh,' 5971')>0 OR InStr(AllBeh,' 5979')>0) AND Sex=2") sCHIQI_G3_02_F <- paste("(InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 689')>0) AND NOT (InStr(AllBeh,' 6830')>0 OR InStr(AllBeh,' 6832')>0 OR InStr(AllBeh,' 6839')>0 OR InStr(AllBeh,' 6840')>0 OR InStr(AllBeh,' 6842')>0 OR InStr(AllBeh,' 6849')>0 OR InStr(AllBeh,' 6862')>0 OR InStr(AllBeh,' 6869')>0 OR InStr(AllBeh,' 689')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0) AND NOT (InStr(AllBeh,' 595')>0 OR InStr(AllBeh,' 596')>0 OR InStr(AllBeh,' 5971')>0 OR InStr(AllBeh,' 5979')>0) AND Sex=2") sCHIQI_G3_02_P <- sCHIQI_G3_02_F sCHIQI_G3_03N_F <- paste("(InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 689')>0) AND NOT InStr(AllDia,'N80')>0 AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0) AND AltE<50 AND Sex=2") sCHIQI_G3_03_F <- paste("(InStr(AllBeh,' 072211')>0 OR InStr(AllBeh,' 653')>0 OR InStr(AllBeh,' 654')>0 OR InStr(AllBeh,' 655')>0 OR InStr(AllBeh,' 656')>0 OR InStr(AllBeh,' 68411')>0 OR InStr(AllBeh,' 68492')>0 OR InStr(AllBeh,' 68512')>0 OR InStr(AllBeh,' 68592')>0) AND (",sCHIQI_G3_03N_F,")") sCHIQI_G3_03_P <- sCHIQI_G3_03_F sCHIQI_G3_04N_F <- paste("(InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 689')>0) AND NOT InStr(AllDia,'N80')>0 AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0) AND AltE>49 AND Sex=2") sCHIQI_G3_04_F <- paste("(InStr(AllBeh,' 072211')>0 OR InStr(AllBeh,' 653')>0 OR InStr(AllBeh,' 654')>0 OR InStr(AllBeh,' 655')>0 OR InStr(AllBeh,' 656')>0 OR InStr(AllBeh,' 68411')>0 OR InStr(AllBeh,' 68492')>0 OR InStr(AllBeh,' 68512')>0 OR InStr(AllBeh,' 68592')>0) AND (",sCHIQI_G3_04N_F,")") sCHIQI_G3_04_P <- sCHIQI_G3_04_F sCHIQI_G4_01_F <- "LEFT(HD,3) IN ('C50','D05')" sCHIQI_G4_02_F <- paste("(",sCHIQI_G4_01_F,") OR LEFT(HD,3) IN ('C51','C52','C53','C54','C55','C56','C57','C58','D06') OR LEFT(HD,4) IN ('D070', 'D071', 'D072', 'D073')") sCHIQI_G4_03_F <- "LEFT(HD,3) = 'C56' OR LEFT(HD,4) = 'C570'" sCHIQI_G4_04_F <- "(InStr(AllDia,'C56')>0 OR InStr(AllDia,'C570')>0) AND (InStr(AllBeh,' 072211')>0 OR InStr(AllBeh,' 653')>0 OR InStr(AllBeh,' 654')>0 OR InStr(AllBeh,' 655')>0 OR InStr(AllBeh,' 656')>0 OR InStr(AllBeh,' 68411')>0 OR InStr(AllBeh,' 68492')>0 OR InStr(AllBeh,' 68512')>0 OR InStr(AllBeh,' 68592')>0)" sCHIQI_G4_04_M <- paste("(",sCHIQI_G4_04_F,") AND EAus=5") sCHIQI_G4_05_F <- "LEFT(HD,3) IN ('C53', 'C54', 'C55', 'D06') OR LEFT(HD,4) = 'D070'" sCHIQI_G4_06_F <- "(InStr(AllDia,'C53')>0 OR InStr(AllDia,'C54')>0 OR InStr(AllDia,'C55')>0 OR InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0) AND (InStr(AllBeh,' 683')>0 OR InStr(AllBeh,' 684')>0 OR InStr(AllBeh,' 685')>0 OR InStr(AllBeh,' 686')>0 OR InStr(AllBeh,' 688')>0 OR InStr(AllBeh,' 689')>0) AND NOT ((InStr(AllDia,'C56')>0 OR InStr(AllDia,'C570')>0) AND (InStr(AllBeh,' 072211')>0 OR InStr(AllBeh,' 653')>0 OR InStr(AllBeh,' 654')>0 OR InStr(AllBeh,' 655')>0 OR InStr(AllBeh,' 656')>0 OR InStr(AllBeh,' 68411')>0 OR InStr(AllBeh,' 68492')>0 OR InStr(AllBeh,' 68512')>0 OR InStr(AllBeh,' 68592')>0))" sCHIQI_G4_06_M <- paste("(",sCHIQI_G4_06_F,") AND EAus=5") sCHIQI_G5_01_F <- "(InStr(AllBeh,' 8520')>0 OR InStr(AllBeh,' 8521')>0 OR InStr(AllBeh,' 8522')>0 OR InStr(AllBeh,' 8523')>0 OR InStr(AllBeh,' 8524')>0 OR InStr(AllBeh,' 8525')>0 OR InStr(AllBeh,' 8526')>0 OR InStr(AllBeh,' 853')>0 OR InStr(AllBeh,' 854')>0 OR InStr(AllBeh,' 855')>0 OR InStr(AllBeh,' 856')>0 OR InStr(AllBeh,' 857')>0 OR InStr(AllBeh,' 858')>0 OR InStr(AllBeh,' 8593')>0 OR InStr(AllBeh,' 8594')>0 OR InStr(AllBeh,' 8595')>0 OR InStr(AllBeh,' 8596')>0 OR InStr(AllBeh,' 8599')>0)" sCHIQI_G5_02_F <- "(InStr(AllBeh,' 854')>0 OR InStr(AllBeh,' 8521')>0 OR InStr(AllBeh,' 8522')>0 OR InStr(AllBeh,' 8523')>0 OR InStr(AllBeh,' 8526')>0 OR InStr(AllBeh,' 853')>0) AND (InStr(AllDia,'C50')>0 OR InStr(AllDia,'D05')>0) AND Sex=2" sCHIQI_G5_03_F <- "(InStr(AllBeh,' 8521')>0 OR InStr(AllBeh,' 8522')>0 OR InStr(AllBeh,' 8523')>0 OR InStr(AllBeh,' 8526')>0 OR InStr(AllBeh,' 853')>0) AND (InStr(AllDia,'C50')>0 OR InStr(AllDia,'D05')>0) AND NOT InStr(AllBeh,' 854')>0 AND Sex=2" sCHIQI_G5_03_P <- sCHIQI_G5_03_F #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe H #------------------------------------------------------------------------------- sCHIQI_H1_01_F <- paste("InStr(AllBeh,' 555')>0 AND NOT (InStr(AllBeh,' 555102')>0 OR InStr(AllBeh,' 555103')>0 OR InStr(AllBeh,' 5569')>0) AND NOT (InStr(AllBeh,' 335')>0 OR InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 3751')>0 OR (",sCHIQI_L5_01_F,") OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')") sCHIQI_H1_01_M <- paste("(",sCHIQI_H1_01_F,") AND EAus=5") sCHIQI_H1_02_F <- paste("(",sCHIQI_H1_01_F,") AND InStr(AllBeh,' 5421')>0") sCHIQI_H1_02_P <- sCHIQI_H1_02_F sCHIQI_H1_03_F <- paste("InStr(AllBeh,' 554')>0 AND NOT InStr(AllBeh,' 555')>0 AND NOT (InStr(AllBeh,' 555102')>0 OR InStr(AllBeh,' 555103')>0 OR InStr(AllBeh,' 5569')>0) AND NOT (InStr(AllBeh,' 335')>0 OR InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 3751')>0 OR (",sCHIQI_L5_01_F,") OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')") sCHIQI_H1_03_M <- paste("(",sCHIQI_H1_03_F,") AND EAus=5") sCHIQI_H1_04_F <- paste("(",sCHIQI_H1_03_F,") AND InStr(AllBeh,' 5421')>0") sCHIQI_H1_04_P <- sCHIQI_H1_04_F sCHIQI_H1_05N_F <- paste("(InStr(AllBeh,' 554')>0 OR InStr(AllBeh,' 555')>0) AND InStr(AllDia,'C64')>0 AND NOT (InStr(AllBeh,' 555102')>0 OR InStr(AllBeh,' 555103')>0 OR InStr(AllBeh,' 5569')>0) AND NOT (InStr(AllBeh,' 335')>0 OR InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 3751')>0 OR (",sCHIQI_L5_01_F,") OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')") sCHIQI_H1_05_F <- paste("(",sCHIQI_H1_03_F,") AND InStr(AllDia,'C64')>0") sCHIQI_H1_05_P <- sCHIQI_H1_05_F sCHIQI_H2_01_F <- "(LEFT(HD,4) = 'N132' OR LEFT(HD,3) IN ('N20','N21','N22'))" sCHIQI_H2_02_F <- paste("(",sCHIQI_H2_01_F,") AND (InStr(AllBeh,' 550')>0 OR InStr(AllBeh,' 551')>0 OR InStr(AllBeh,' 560')>0 OR InStr(AllBeh,' 562')>0 OR InStr(AllBeh,' 5719')>0 OR InStr(AllBeh,' 9851')>0)") sCHIQI_H2_02_P <- sCHIQI_H2_02_F sCHIQI_H3_01_F <- "(LEFT(HD,3) = 'C67' OR LEFT(HD,4) IN ('D090','D414'))" sCHIQI_H3_02_F <- "InStr(AllBeh,' 574')>0" sCHIQI_H3_03_F <- paste("(",sCHIQI_H3_02_F,") AND (",sCHIQI_H3_01_F,")") sCHIQI_H3_04_F <- paste("(",sCHIQI_H3_03_F,") AND InStr(AllBeh,' 992805')>0") sCHIQI_H3_04_P <- sCHIQI_H3_04_F sCHIQI_H3_05_F <- paste("InStr(AllBeh,' 577')>0 AND NOT (",sCHIQI_H3_06_F,")") sCHIQI_H3_05_M <- paste("(",sCHIQI_H3_05_F,") AND EAus=5") sCHIQI_H3_06_F <- "(InStr(AllBeh,' 577150')>0 OR InStr(AllBeh,' 577151')>0 OR InStr(AllBeh,' 688')>0)" sCHIQI_H3_06_M <- paste("(",sCHIQI_H3_06_F,") AND EAus=5") sCHIQI_H4_01_F <- "InStr(AllBeh,' 602')>0" sCHIQI_H4_01_M <- paste("(",sCHIQI_H4_01_F,") AND EAus=5") sCHIQI_H4_02_F <- paste("(",sCHIQI_H4_01_F,") AND (",sCHIQI_F_Schwere_Komplikationen,")") sCHIQI_H4_02_P <- sCHIQI_H4_02_F sCHIQI_H5_01_F <- "(LEFT(HD,3) = 'C61' OR LEFT(HD,4) = 'D075')" sCHIQI_H5_02_F <- "InStr(AllBeh,' 605')>0" sCHIQI_H5_02_M <- paste("(",sCHIQI_H5_02_F,") AND EAus=5") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe I #------------------------------------------------------------------------------- sCHIQI_I_Tumor <- paste("((",sCHIQI_AllDiaTumor,") OR Instr(AllBeh,' 8449')>0)") sCHIQI_I_Hueft_I_W <- "(InStr(AllBeh,' 815100')>0 OR InStr(AllBeh,' 815111')>0 OR InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815113')>0 OR InStr(AllBeh,' 815199')>0 OR InStr(AllBeh,' 815200')>0 OR InStr(AllBeh,' 815221')>0 OR InStr(AllBeh,' 815222')>0 OR InStr(AllBeh,' 815231')>0 OR InStr(AllBeh,' 815299')>0 OR InStr(AllBeh,' 815121')>0 OR InStr(AllBeh,' 815123')>0 OR InStr(AllBeh,' 81524')>0 OR InStr(AllBeh,' 81525')>0)" sCHIQI_I_Knie_I_W <- "(InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815421')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 815423')>0 OR InStr(AllBeh,' 815424')>0 OR InStr(AllBeh,' 815425')>0 OR InStr(AllBeh,' 815426')>0 OR InStr(AllBeh,' 815428')>0 OR InStr(AllBeh,' 815499')>0 OR InStr(AllBeh,' 815431')>0 OR InStr(AllBeh,' 815432')>0 OR InStr(AllBeh,' 815433')>0 OR InStr(AllBeh,' 815434')>0 OR InStr(AllBeh,' 815435')>0 OR InStr(AllBeh,' 815443')>0 OR InStr(AllBeh,' 815444')>0 OR InStr(AllBeh,' 815445')>0 OR InStr(AllBeh,' 815446')>0 OR InStr(AllBeh,' 815447')>0)" sCHIQI_I_Sonderprothese <- "(InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815122')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 819697')>0 OR InStr(AllBeh,' 81969B')>0)" sCHIQI_Teil_A_I1_08_F <- "(InStr(AllBeh,' 815100')>0 OR InStr(AllBeh,' 815111')>0 OR InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815113')>0 OR InStr(AllBeh,' 815199')>0 OR InStr(AllBeh,' 815200')>0 OR InStr(AllBeh,' 815221')>0 OR InStr(AllBeh,' 815222')>0 OR InStr(AllBeh,' 815231')>0 OR InStr(AllBeh,' 815299')>0) AND LEFT(HD,3) IN ('M05','M06','M07','M08','M16','M87') AND NOT (InStr(AllBeh,' 819696')>0 OR InStr(AllBeh,' 786505')>0 OR InStr(AllBeh,' 819697')>0 OR InStr(AllBeh,' 845516')>0) AND NOT (InStr(NebDia,'M8005')>0 OR InStr(NebDia,'M8085')>0 OR InStr(NebDia,'M8415')>0 OR InStr(NebDia,'M8445')>0 OR InStr(NebDia,'M8485')>0 OR InStr(NebDia,'M8495')>0 OR InStr(NebDia,'M8505')>0 OR InStr(NebDia,'M8545')>0 OR InStr(NebDia,'M8555')>0 OR InStr(NebDia,'M8565')>0 OR InStr(NebDia,'M9075')>0 OR InStr(NebDia,'M9688')>0 OR InStr(NebDia,'Q650')>0 OR InStr(NebDia,'Q651')>0 OR InStr(NebDia,'S324')>0)" sCHIQI_Teil_A_I1_09_F <- "(InStr(AllBeh,' 815100')>0 OR InStr(AllBeh,' 815111')>0 OR InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815113')>0 OR InStr(AllBeh,' 815199')>0 OR InStr(AllBeh,' 815200')>0 OR InStr(AllBeh,' 815221')>0 OR InStr(AllBeh,' 815222')>0 OR InStr(AllBeh,' 815231')>0 OR InStr(AllBeh,' 815299')>0) AND LEFT(HD,4) IN ('S720','S721') AND NOT (InStr(AllBeh,' 819696')>0 OR InStr(AllBeh,' 786505')>0 OR InStr(AllBeh,' 819697')>0 OR InStr(AllBeh,' 845516')>0) AND NOT (InStr(NebDia,'S')>0 OR InStr(NebDia,'T07')>0)" sCHIQI_Teil_A_I1_10_F <- "((InStr(AllBeh,' 815100')>0 OR InStr(AllBeh,' 815111')>0 OR InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815113')>0 OR InStr(AllBeh,' 815199')>0 OR InStr(AllBeh,' 815200')>0 OR InStr(AllBeh,' 815221')>0 OR InStr(AllBeh,' 815222')>0 OR InStr(AllBeh,' 815231')>0 OR InStr(AllBeh,' 815299')>0) AND NOT InStr(AllBeh,' 819696')>0)" sCHIQI_Teil_A_I1_12_F <- "(InStr(AllBeh,' 815121')>0 OR InStr(AllBeh,' 815123')>0 OR InStr(AllBeh,' 81524')>0 OR InStr(AllBeh,' 81525')>0) AND NOT (LEFT(HD,5) IN ('M0005','M0015','M0025','M0085','M0095','M8605','M8615','M8625','M8635','M8645','M8655','M8665','M8685','M8695') OR LEFT(HD,4) IN ('M966','T845','T846','T847') OR LEFT(HD,3) IN ('S32','S72'))" sCHIQI_Teil_A_I1_14_F <- "((InStr(AllBeh,' 815121')>0 OR InStr(AllBeh,' 815123')>0 OR InStr(AllBeh,' 81524')>0 OR InStr(AllBeh,' 81525')>0) OR ((InStr(AllBeh,' 815100')>0 OR InStr(AllBeh,' 815111')>0 OR InStr(AllBeh,' 815112')>0 OR InStr(AllBeh,' 815113')>0 OR InStr(AllBeh,' 815199')>0 OR InStr(AllBeh,' 815200')>0 OR InStr(AllBeh,' 815221')>0 OR InStr(AllBeh,' 815222')>0 OR InStr(AllBeh,' 815231')>0 OR InStr(AllBeh,' 815299')>0) AND InStr(AllBeh,' 819696')>0)) AND (LEFT(HD,5) IN ('M0005','M0015','M0025','M0085','M0095','M8605','M8615','M8625','M8635','M8645','M8655','M8665','M8685','M8695') OR LEFT(HD,4) IN ('M966','T845','T846','T847') OR LEFT(HD,3) IN ('S32','S72'))" sCHIQI_Teil_A_I1_15_F <- "(InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815421')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 815423')>0 OR InStr(AllBeh,' 815424')>0 OR InStr(AllBeh,' 815425')>0 OR InStr(AllBeh,' 815426')>0 OR InStr(AllBeh,' 815428')>0 OR InStr(AllBeh,' 815499')>0) AND (LEFT(HD,3) IN ('M05','M06','M07','M08','M87') OR LEFT(HD,4) IN ('M170','M171','M174','M175','M179')) AND NOT (InStr(NebDia,'M8000')>0 OR InStr(NebDia,'M8005')>0 OR InStr(NebDia,'M8080')>0 OR InStr(NebDia,'M8085')>0 OR InStr(NebDia,'M8400')>0 OR InStr(NebDia,'M8405')>0 OR InStr(NebDia,'M8406')>0 OR InStr(NebDia,'M8505')>0 OR InStr(NebDia,'M8506')>0 OR InStr(NebDia,'M8545')>0 OR InStr(NebDia,'M8546')>0 OR InStr(NebDia,'M8555')>0 OR InStr(NebDia,'M8556')>0 OR InStr(NebDia,'M8565')>0 OR InStr(NebDia,'M8566')>0) AND NOT (InStr(AllBeh,' 819696')>0 OR InStr(AllBeh,' 786505')>0 OR InStr(AllBeh,' 819697')>0 OR InStr(AllBeh,' 845516')>0)" sCHIQI_Teil_A_I1_16_F <- "((InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815421')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 815423')>0 OR InStr(AllBeh,' 815424')>0 OR InStr(AllBeh,' 815425')>0 OR InStr(AllBeh,' 815426')>0 OR InStr(AllBeh,' 815428')>0 OR InStr(AllBeh,' 815499')>0) AND NOT InStr(AllBeh,' 819696')>0)" sCHIQI_Teil_A_I1_18_F <- "((InStr(AllBeh,' 81543')>0 OR InStr(AllBeh,' 815443')>0 OR InStr(AllBeh,' 815444')>0 OR InStr(AllBeh,' 815445')>0 OR InStr(AllBeh,' 815446')>0 OR InStr(AllBeh,' 815447')>0) OR ((InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815421')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 815423')>0 OR InStr(AllBeh,' 815424')>0 OR InStr(AllBeh,' 815425')>0 OR InStr(AllBeh,' 815426')>0 OR InStr(AllBeh,' 815428')>0 OR InStr(AllBeh,' 815499')>0) AND InStr(AllBeh,' 819696')>0)) AND NOT (LEFT(HD,5) IN ('M0006','M0016','M0026','M0086','M0096','M8606','M8616','M8626','M8636','M8646','M8656','M8666','M8686','M8696') OR LEFT(HD,4) IN ('M966','T845','T846','T847') OR LEFT(HD,3) IN ('S72','S82'))" sCHIQI_Teil_A_I1_20_F <- "((InStr(AllBeh,' 81543')>0 OR InStr(AllBeh,' 815443')>0 OR InStr(AllBeh,' 815444')>0 OR InStr(AllBeh,' 815445')>0 OR InStr(AllBeh,' 815446')>0 OR InStr(AllBeh,' 815447')>0) OR ((InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815421')>0 OR InStr(AllBeh,' 815422')>0 OR InStr(AllBeh,' 815423')>0 OR InStr(AllBeh,' 815424')>0 OR InStr(AllBeh,' 815425')>0 OR InStr(AllBeh,' 815426')>0 OR InStr(AllBeh,' 815428')>0 OR InStr(AllBeh,' 815499')>0) AND InStr(AllBeh,' 819696')>0)) AND (LEFT(HD,5) IN ('M0006','M0016','M0026','M0086','M0096','M8606','M8616','M8626','M8636','M8646','M8656','M8666','M8686','M8696') OR LEFT(HD,4) IN ('M966','T845','T846','T847') OR LEFT(HD,3) IN ('S72','S82'))" sCHIQI_I1_08_F <- paste("(",sCHIQI_Teil_A_I1_08_F,") AND NOT ((",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_08_M <- paste("(",sCHIQI_I1_08_F,") AND EAus=5") sCHIQI_I1_09_F <- paste("(",sCHIQI_Teil_A_I1_09_F,") AND NOT ((",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_09_M <- paste("(",sCHIQI_I1_09_F,") AND EAus=5") sCHIQI_I1_10_F <- paste("(",sCHIQI_Teil_A_I1_10_F,") AND NOT ((",sCHIQI_I1_08_F,") OR (",sCHIQI_I1_09_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_10_M <- paste("(",sCHIQI_I1_10_F,") AND EAus=5") sCHIQI_I1_11_F <- paste("(",sCHIQI_I1_08_F, ") AND (",sCHIQI_F_Schwere_Komplikationen,")") sCHIQI_I1_11_P <- sCHIQI_I1_11_F sCHIQI_I1_12_F <- paste("(",sCHIQI_Teil_A_I1_12_F,") AND NOT ((",sCHIQI_I1_08_F,") OR (",sCHIQI_I1_09_F,") OR (",sCHIQI_I1_10_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_12_M <- paste("(",sCHIQI_I1_12_F,") AND EAus=5") sCHIQI_I1_13_F <- paste("(",sCHIQI_I1_12_F,") AND (",sCHIQI_I_Sonderprothese,")") sCHIQI_I1_13_M <- paste("(",sCHIQI_I1_13_F,") AND EAus=5") sCHIQI_I1_14_F <- paste("(",sCHIQI_Teil_A_I1_14_F,") AND NOT ((",sCHIQI_I1_08_F,") OR (",sCHIQI_I1_09_F,") OR (",sCHIQI_I1_10_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_14_M <- paste("(",sCHIQI_I1_14_F,") AND EAus=5") sCHIQI_I1_15_F <- paste("(",sCHIQI_Teil_A_I1_15_F,") AND NOT ((",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_15_M <- paste("(",sCHIQI_I1_15_F,") AND EAus=5") sCHIQI_I1_16_F <- paste("(",sCHIQI_Teil_A_I1_16_F,") AND NOT ((",sCHIQI_I1_15_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_16_M <- paste("(",sCHIQI_I1_16_F,") AND EAus=5") sCHIQI_I1_17_F <- paste("(",sCHIQI_I1_15_F, ") AND (",sCHIQI_F_Schwere_Komplikationen,")") sCHIQI_I1_17_P <- sCHIQI_I1_17_F sCHIQI_I1_18_F <- paste("(",sCHIQI_Teil_A_I1_18_F,") AND NOT ((",sCHIQI_I1_15_F,") OR (",sCHIQI_I1_16_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_18_M <- paste("(",sCHIQI_I1_18_F,") AND EAus=5") sCHIQI_I1_19_F <- paste("(",sCHIQI_I1_18_F,") AND (",sCHIQI_I_Sonderprothese,")") sCHIQI_I1_19_M <- paste("(",sCHIQI_I1_19_F,") AND EAus=5") sCHIQI_I1_20_F <- paste("(",sCHIQI_Teil_A_I1_20_F,") AND NOT ((",sCHIQI_I1_15_F,") OR (",sCHIQI_I1_16_F,") OR (",sCHIQI_I1_21_F,") OR (",sCHIQI_I1_22_F,"))") sCHIQI_I1_20_M <- paste("(",sCHIQI_I1_20_F,") AND EAus=5") sCHIQI_I1_21_F <- paste("((",sCHIQI_I_Hueft_I_W,") OR (",sCHIQI_I_Knie_I_W,")) AND (",sCHIQI_I_Tumor,")") sCHIQI_I1_21_M <- paste("(",sCHIQI_I1_21_F,") AND EAus=5") sCHIQI_I1_22_F <- paste("(",sCHIQI_I_Hueft_I_W,") AND (",sCHIQI_I_Knie_I_W,") AND NOT (",sCHIQI_I_Tumor,")") sCHIQI_I1_22_M <- paste("(",sCHIQI_I1_22_F,") AND EAus=5") sCHIQI_I1_23_F <- paste("(",sCHIQI_I1_08_F,") AND NOT (",sCHIQI_Fruehreha,")") sCHIQI_I1_24_F <- paste("(",sCHIQI_I1_15_F,") AND NOT (",sCHIQI_Fruehreha,")") sCHIQI_I_Trauma <- paste("((",sCHIQI_Trauma,") OR InStr(AllDia,'M80')>0)") sCHIQI_Teil_A_I2_06_F <- "(InStr(AllBeh,' 784921')>0 OR InStr(AllBeh,' 784926')>0 OR InStr(AllBeh,' 784940')>0 OR InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0 OR InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0 OR InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0 OR InStr(AllBeh,' 77892')>0 OR InStr(AllBeh,' 779920')>0)" sCHIQI_Teil_B_I2_06_F <- "(InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0)" sCHIQI_I2_03_F <- "(InStr(AllBeh,' 0302')>0 OR InStr(AllBeh,' 0309')>0 OR InStr(AllBeh,' 036')>0 OR InStr(AllBeh,' 805')>0 OR InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0 OR InStr(AllBeh,' 816')>0 OR InStr(AllBeh,' 8451')>0 OR InStr(AllBeh,' 8458')>0 OR InStr(AllBeh,' 8459')>0 OR InStr(AllBeh,' 846')>0) OR ((InStr(AllBeh,' 03091')>0 OR InStr(AllBeh,' 03092')>0 OR InStr(AllBeh,' 03093')>0) AND NOT (InStr(AllBeh,' 04812')>0 OR InStr(AllBeh,' 05311')>0 OR InStr(AllBeh,' 81921')>0 OR InStr(AllBeh,' 81922')>0)) OR (InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0)" sCHIQI_I2_04_F <- "InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0" sCHIQI_I2_05_F <- paste("(InStr(AllBeh,' 784921')>0 OR InStr(AllBeh,' 784926')>0 OR InStr(AllBeh,' 784940')>0 OR InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0 OR InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0 OR InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0 OR InStr(AllBeh,' 77892')>0 OR InStr(AllBeh,' 779920')>0) AND (",sCHIQI_AllDiaTumor,")") sCHIQI_I2_05_M <- paste("(",sCHIQI_I2_05_F,") AND EAus=5") sCHIQI_I2_06_F <- paste("(((",sCHIQI_Teil_A_I2_06_F,") AND NOT (",sCHIQI_AllDiaTumor,")) OR (",sCHIQI_Teil_B_I2_06_F,")) AND (",sCHIQI_I_Trauma,")") sCHIQI_I2_06_M <- paste("(",sCHIQI_I2_06_F,") AND EAus=5") sCHIQI_I2_07_F <- paste("(InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0 OR InStr(AllBeh,' 78503')>0 OR InStr(AllBeh,' 785099')>0 OR InStr(AllBeh,' 810')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_07_M <- paste("(",sCHIQI_I2_07_F,") AND EAus=5") sCHIQI_I2_08_F <- paste("(InStr(AllBeh,' 784921')>0 OR InStr(AllBeh,' 784926')>0 OR InStr(AllBeh,' 784940')>0) AND NOT (InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0) AND NOT (InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_08_M <- paste("(",sCHIQI_I2_08_F,") AND EAus=5") sCHIQI_I2_09_F <- paste("(InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0) AND NOT (InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_09_M <- paste("(",sCHIQI_I2_09_F,") AND EAus=5") sCHIQI_I2_10_F <- paste("(InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_10_M <- paste("(",sCHIQI_I2_10_F,") AND EAus=5") sCHIQI_I2_11_F <- paste("InStr(AllBeh,' 805')>0 AND NOT (InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_11_M <- paste("(",sCHIQI_I2_11_F,") AND EAus=5") sCHIQI_I2_12_F <- paste("(InStr(AllBeh,' 030900')>0 OR InStr(AllBeh,' 030991')>0 OR InStr(AllBeh,' 030999')>0) AND NOT (InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0 OR InStr(AllBeh,' 816')>0 OR InStr(AllBeh,' 846')>0) AND NOT (InStr(AllBeh,' 784921')>0 OR InStr(AllBeh,' 784926')>0 OR InStr(AllBeh,' 784940')>0) AND NOT (InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0) AND NOT (InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0) AND NOT (InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT InStr(AllBeh,' 805')>0 AND NOT (",sCHIQI_AllDiaTumor,") AND NOT (",sCHIQI_I_Trauma,")") sCHIQI_I2_12_M <- paste("(",sCHIQI_I2_12_F,") AND EAus=5") sCHIQI_I2_13_F <- paste("(InStr(AllBeh,' 81651')>0 OR InStr(AllBeh,' 81661')>0) AND NOT (InStr(AllBeh,' 784921')>0 OR InStr(AllBeh,' 784926')>0 OR InStr(AllBeh,' 784940')>0) AND NOT (InStr(AllBeh,' 784922')>0 OR InStr(AllBeh,' 784927')>0 OR InStr(AllBeh,' 784941')>0) AND NOT (InStr(AllBeh,' 784923')>0 OR InStr(AllBeh,' 784924')>0 OR InStr(AllBeh,' 784925')>0 OR InStr(AllBeh,' 784928')>0 OR InStr(AllBeh,' 78492A')>0 OR InStr(AllBeh,' 784942')>0 OR InStr(AllBeh,' 784943')>0 OR InStr(AllBeh,' 784944')>0 OR InStr(AllBeh,' 784945')>0 OR InStr(AllBeh,' 784946')>0 OR InStr(AllBeh,' 784947')>0 OR InStr(AllBeh,' 784948')>0 OR InStr(AllBeh,' 78494A')>0 OR InStr(AllBeh,' 78494B')>0 OR InStr(AllBeh,' 78494C')>0 OR InStr(AllBeh,' 78494D')>0) AND NOT (InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0) AND NOT (InStr(AllBeh,' 78493')>0 OR InStr(AllBeh,' 78495')>0 OR InStr(AllBeh,' 78496')>0 OR InStr(AllBeh,' 78497')>0) AND NOT InStr(AllBeh,' 805')>0 AND NOT (",sCHIQI_AllDiaTumor,")") sCHIQI_I2_13_M <- paste("(",sCHIQI_I2_13_F,") AND EAus=5") sCHIQI_I2_14_F <- paste("(",sCHIQI_I2_03_F,") AND NOT (",sCHIQI_I2_05_F,") AND NOT (",sCHIQI_I2_06_F,") AND NOT (",sCHIQI_I2_07_F,") AND NOT (",sCHIQI_I2_08_F,") AND NOT (",sCHIQI_I2_09_F,") AND NOT (",sCHIQI_I2_10_F,") AND NOT (",sCHIQI_I2_11_F,") AND NOT (",sCHIQI_I2_12_F,") AND NOT (",sCHIQI_I2_13_F,")") sCHIQI_I2_14_M <- paste("(",sCHIQI_I2_14_F,") AND EAus=5") sCHIQI_I2_15_F <- paste("(",sCHIQI_I2_11_F,") AND NOT (",sCHIQI_F_Schwere_Komplikationen,")") sCHIQI_I2_15_P <- sCHIQI_I2_15_F sCHIQI_I2_16_F <- "(InStr(AllBeh,' 04812')>0 OR InStr(AllBeh,' 05311')>0 OR InStr(AllBeh,' 81921')>0 OR InStr(AllBeh,' 81922')>0) AND NOT (InStr(AllBeh,' 0302')>0 OR InStr(AllBeh,' 0309')>0 OR InStr(AllBeh,' 036')>0 OR InStr(AllBeh,' 805')>0 OR InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0 OR InStr(AllBeh,' 816')>0 OR InStr(AllBeh,' 8451')>0 OR InStr(AllBeh,' 8458')>0 OR InStr(AllBeh,' 8459')>0 OR InStr(AllBeh,' 846')>0) AND NOT (InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0)" sCHIQI_I2_17_F <- "LEFT(HD,2) IN ('M4','M5') AND NOT (InStr(AllBeh,' 0302')>0 OR InStr(AllBeh,' 0309')>0 OR InStr(AllBeh,' 036')>0 OR InStr(AllBeh,' 805')>0 OR InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0 OR InStr(AllBeh,' 816')>0 OR InStr(AllBeh,' 8451')>0 OR InStr(AllBeh,' 8458')>0 OR InStr(AllBeh,' 8459')>0 OR InStr(AllBeh,' 846')>0) AND NOT (InStr(AllBeh,' 03094')>0 OR InStr(AllBeh,' 032')>0 OR InStr(AllBeh,' 034')>0 OR InStr(AllBeh,' 0351')>0 OR InStr(AllBeh,' 0352')>0 OR InStr(AllBeh,' 0359')>0 OR InStr(AllBeh,' 0393')>0 OR InStr(AllBeh,' 0394')>0 OR InStr(AllBeh,' 0399')>0) AND NOT (InStr(AllBeh,' 04812')>0 OR InStr(AllBeh,' 05311')>0 OR InStr(AllBeh,' 81921')>0 OR InStr(AllBeh,' 81922')>0) AND NOT (InStr(AllBeh,' 03091')>0 OR InStr(AllBeh,' 03092')>0 OR InStr(AllBeh,' 03093')>0)" sCHIQI_I3_01_F <- "LEFT(HD,4) = 'S720' AND AltE>19" sCHIQI_I3_01_M <- paste("(",sCHIQI_I3_01_F,") AND EAus=5") sCHIQI_I3_02_F <- paste("(",sCHIQI_I3_01_F,") AND (AltE between 20 AND 59)") sCHIQI_I3_02_M <- paste("(",sCHIQI_I3_02_F,") AND EAus=5") sCHIQI_I3_03_F <- paste("(",sCHIQI_I3_01_F,") AND (AltE between 60 AND 69)") sCHIQI_I3_03_M <- paste("(",sCHIQI_I3_03_F,") AND EAus=5") sCHIQI_I3_04_F <- paste("(",sCHIQI_I3_01_F,") AND (AltE between 70 AND 79)") sCHIQI_I3_04_M <- paste("(",sCHIQI_I3_04_F,") AND EAus=5") sCHIQI_I3_05_F <- paste("(",sCHIQI_I3_01_F,") AND (AltE between 80 AND 84)") sCHIQI_I3_05_M <- paste("(",sCHIQI_I3_05_F,") AND EAus=5") sCHIQI_I3_06_F <- paste("(",sCHIQI_I3_01_F,") AND (AltE between 85 AND 89)") sCHIQI_I3_06_M <- paste("(",sCHIQI_I3_06_F,") AND EAus=5") sCHIQI_I3_07_F <- paste("(",sCHIQI_I3_01_F,") AND AltE>89") sCHIQI_I3_07_M <- paste("(",sCHIQI_I3_07_F,") AND EAus=5") sCHIQI_I3_08_F <- "LEFT(HD,4) = 'S721' AND AltE>19" sCHIQI_I3_08_M <- paste("(",sCHIQI_I3_08_F,") AND EAus=5") sCHIQI_I4_01_F <- "LEFT(HD,3) in ('C40','C41','C46','C47','C48','C49')" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe J #------------------------------------------------------------------------------- sCHIQI_J1_01_F <- sCHIQI_Beatmung sCHIQI_J1_01_M <- paste("(",sCHIQI_J1_01_F,") AND EAus=5") sCHIQI_J1_02_S <- sCHIQI_J1_01_F sCHIQI_J1_03N_F <- paste("((HBeat between 72 AND 119) OR (HBeat between 226 AND 273) OR (HBeat between 476 AND 523) OR (HBeat between 1476 AND 1523)) AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_J1_03_F <- paste("((HBeat between 96 AND 119) OR (HBeat between 250 AND 273) OR (HBeat between 500 AND 523) OR (HBeat between 1500 AND 1523)) AND NOT (",sCHIQI_Neugeborene,")") sCHIQI_J1_03_P <- sCHIQI_J1_03_F sCHIQI_J1_04_F <- paste("(",sCHIQI_J1_01_F,") AND AVor<>6") sCHIQI_J1_04_M <- paste("(",sCHIQI_J1_04_F,") AND EAus=5") sCHIQI_J2_01_F <- "(LEFT(HD,3) IN ('A40','A41') OR LEFT(HD,4) = 'R572')" sCHIQI_J2_01_M <- paste("(",sCHIQI_J2_01_F,") AND EAus=5") sCHIQI_J2_02_F <- paste("(",sCHIQI_J2_01_F,") AND (InStr(AllDia,'R572')>0 OR InStr(AllDia,'R651')>0)") sCHIQI_J2_02_M <- paste("(",sCHIQI_J2_02_F,") AND EAus=5") sCHIQI_J2_03_F <- paste("(",sCHIQI_J2_01_F,") AND NOT (InStr(AllDia,'R572')>0 OR InStr(AllDia,'R651')>0)") sCHIQI_J2_03_M <- paste("(",sCHIQI_J2_03_F,") AND EAus=5") sCHIQI_J2_04_F <- paste("(InStr(NebDia,'A40')>0 OR InStr(NebDia,'A41')>0 OR InStr(NebDia,'R572')>0) AND NOT (",sCHIQI_J2_01_F,")") sCHIQI_J2_04_M <- paste("(",sCHIQI_J2_04_F,") AND EAus=5") sCHIQI_J2_05_F <- paste("(",sCHIQI_J2_04_F,") AND (InStr(AllDia,'R572')>0 OR InStr(AllDia,'R651')>0)") sCHIQI_J2_05_M <- paste("(",sCHIQI_J2_05_F,") AND EAus=5") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe K #------------------------------------------------------------------------------- sCHIQI_K1_01_F <- "LEFT(HD,3) = 'C43'" sCHIQI_K1_02_F <- "LEFT(HD,2) IN ('L2','L3')" sCHIQI_K1_03_F <- "LEFT(HD,3) = 'L40'" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe L #------------------------------------------------------------------------------- sCHIQI_L1_01_F <- paste("((",sCHIQI_L1_02_F,") OR InStr(AllBeh,' 3751')>0)") sCHIQI_L1_02_F <- "InStr(AllBeh,' 336')>0" sCHIQI_L1_03_F <- paste("InStr(AllBeh,' 3751')>0 AND NOT (",sCHIQI_L1_02_F,")") sCHIQI_L2_01_F <- "(InStr(AllBeh,' 335')>0 OR InStr(AllBeh,' 336')>0)" sCHIQI_L2_02_F <- "InStr(AllBeh,' 335')>0 AND NOT InStr(AllBeh,' 336')>0" sCHIQI_L3_01_F <- "InStr(AllBeh,' 505')>0" sCHIQI_L3_02_F <- "InStr(AllBeh,' 5052')>0 OR InStr(AllBeh,' 505910')>0 OR InStr(AllBeh,' 505920')>0" sCHIQI_L3_03_F <- "(InStr(AllBeh,' 5050')>0 OR InStr(AllBeh,' 505100')>0 OR InStr(AllBeh,' 505110')>0 OR InStr(AllBeh,' 505199')>0 OR InStr(AllBeh,' 5053')>0 OR InStr(AllBeh,' 5059')>0) AND NOT (InStr(AllBeh,' 5052')>0 OR InStr(AllBeh,' 505910')>0 OR InStr(AllBeh,' 505920')>0)" sCHIQI_L3_04_F <- paste("(InStr(AllBeh,' 505110')>0 OR InStr(AllBeh,' 505920')>0 OR InStr(AllBeh,' 505921')>0) OR ((",sCHIQI_L3_01_F,") AND InStr(AllBeh,' 009910')>0)") sCHIQI_L4_01_F <- "InStr(AllBeh,' 528')>0" sCHIQI_L5_01_F <- "InStr(AllBeh,' 556')>0" sCHIQI_L5_02_F <- "(InStr(AllBeh,' 556910')>0 OR InStr(AllBeh,' 556920')>0 OR InStr(AllBeh,' 556940')>0) AND (InStr(AllBeh,' 0091')>0 OR InStr(AllBeh,' 0092')>0)" sCHIQI_L5_03_F <- "InStr(AllBeh,' 556910')>0 AND InStr(AllBeh,' 0093')>0" sCHIQI_L5_04_F <- "InStr(AllBeh,' 5561')>0 OR InStr(AllBeh,' 556900')>0 OR InStr(AllBeh,' 556930')>0 OR InStr(AllBeh,' 556999')>0" sCHIQI_L5_05_F <- paste("(",sCHIQI_L5_01_F,") AND (",sCHIQI_L4_01_F,")") sCHIQI_L6_01_F <- "InStr(AllBeh,' 41000')>0 OR InStr(AllBeh,' 41001')>0 OR InStr(AllBeh,' 4101')>0 OR InStr(AllBeh,' 4102')>0 OR InStr(AllBeh,' 4103')>0 OR InStr(AllBeh,' 4104')>0 OR InStr(AllBeh,' 4105')>0 OR InStr(AllBeh,' 4106')>0 OR InStr(AllBeh,' 4107')>0 OR InStr(AllBeh,' 4107')>0 OR InStr(AllBeh,' 4108')>0 OR InStr(AllBeh,' 4109')>0 OR InStr(AllBeh,' 410B')>0 OR InStr(AllBeh,' 410D')>0" sCHIQI_L6_02_F <- "InStr(AllBeh,' 41000')>0 OR InStr(AllBeh,' 41001')>0 OR InStr(AllBeh,' 4101')>0 OR InStr(AllBeh,' 4102')>0 OR InStr(AllBeh,' 4103')>0 OR InStr(AllBeh,' 4109')>0 OR InStr(AllBeh,' 410B1')>0" sCHIQI_L6_03_F <- "(InStr(AllBeh,' 410101')>0 OR InStr(AllBeh,' 410901')>0 OR InStr(AllBeh,' 410B11')>0) AND NOT (InStr(AllBeh,' 4105')>0 OR InStr(AllBeh,' 4108')>0 OR InStr(AllBeh,' 410B12')>0 OR InStr(AllBeh,' 410B13')>0 OR InStr(AllBeh,' 410B14')>0 OR InStr(AllBeh,' 410B15')>0)" sCHIQI_L6_04_F <- "InStr(AllBeh,' 410B2')>0 OR InStr(AllBeh,' 410B3')>0" sCHIQI_L6_05_F <- "(InStr(AllBeh,' 410B21')>0 OR InStr(AllBeh,' 410B31')>0) AND NOT (InStr(AllBeh,' 410B22')>0 OR InStr(AllBeh,' 410B23')>0 OR InStr(AllBeh,' 410B24')>0 OR InStr(AllBeh,' 410B25')>0 OR InStr(AllBeh,' 410B32')>0 OR InStr(AllBeh,' 410B33')>0 OR InStr(AllBeh,' 410B34')>0 OR InStr(AllBeh,' 410B35')>0)" sCHIQI_L6_08_F <- "InStr(AllBeh,' 36991')>0 OR InStr(AllBeh,' 37991')>0 OR InStr(AllBeh,' 1045')>0" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe Z #------------------------------------------------------------------------------- sCHIQI_Z1_01_F <- paste("(InStr(AllBeh,' 282')>0 OR InStr(AllBeh,' 283')>0) AND NOT (",sCHIQI_AllDiaTumor,")")