# ------------------------------------------------------------------------------ # Qualitätsindikatoren der Schweizer Akutspitäler (CH-IQI) # Library mit SQL Abfragen, # Implementation gemäss CH-IQI Spezifikation Version 4.0 # Für QIP14, Stand 15. Juli 2016 # Anpassung an Codierung für Datenjahr 2014 (B.1.6, B.2.2) # inkl. Korrekturen bei E.2.3, G.3, L.6.3, Z.1.1 # ------------------------------------------------------------------------------ #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe A #------------------------------------------------------------------------------- sCHIQI_A1_01_F <- "AltE>19 AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_01_M <- paste("EAus=5 AND (",sCHIQI_A1_01_F,")") sCHIQI_A1_02_F <- "(AltE between 20 AND 44) AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_02_M <- paste("EAus=5 AND (",sCHIQI_A1_02_F,")") sCHIQI_A1_03_F <- "(AltE between 45 AND 64) AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_03_M <- paste("EAus=5 AND (",sCHIQI_A1_03_F,")") sCHIQI_A1_04_F <- "(AltE between 65 AND 84) AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_04_M <- paste("EAus=5 AND (",sCHIQI_A1_04_F,")") sCHIQI_A1_05_F <- "AltE>84 AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_05_M <- paste("EAus=5 AND (",sCHIQI_A1_05_F,")") sCHIQI_A1_06_F <- "AltE>19 AND LEFT(HD,3) IN ('I21','I22') 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0) OR (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0))" sCHIQI_A1_06_P <- sCHIQI_A1_06_F sCHIQI_A1_07_F <- "AltE>19 AND LEFT(HD,3) IN ('I21','I22') AND AVor<>6 AND ANach<>6" sCHIQI_A1_07_M <- paste("EAus=5 AND (",sCHIQI_A1_07_F,")") sCHIQI_A1_08_F <- "AltE>19 AND AVor=6 AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A1_08_M <- paste("EAus=5 AND (",sCHIQI_A1_08_F,")") sCHIQI_A1_09_F <- "LEFT(HD,4) = 'I219' AND AltE>19" sCHIQI_A1_09_P <- sCHIQI_A1_09_F sCHIQI_A1_09N_F <- "AltE>19 AND LEFT(HD,3) = 'I21'" sCHIQI_A1_10_F <- "AltE>19 AND LEFT(HD,4) IN ('I210','I211','I212','I213')" sCHIQI_A1_10_M <- paste("EAus=5 AND (",sCHIQI_A1_10_F,")") sCHIQI_A1_11_F <- "AltE>19 AND LEFT(HD,4) = 'I214'" sCHIQI_A1_11_M <- paste("EAus=5 AND (",sCHIQI_A1_11_F,")") sCHIQI_A2_01_F <- "AltE>19 AND (LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50')" sCHIQI_A2_01_M <- paste("EAus=5 AND (",sCHIQI_A2_01_F,")") sCHIQI_A2_02_F <- "(AltE between 20 AND 44) AND (LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50')" sCHIQI_A2_02_M <- paste("EAus=5 AND (",sCHIQI_A2_02_F,")") sCHIQI_A2_03_F <- "(AltE between 45 AND 64) AND (LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50')" sCHIQI_A2_03_M <- paste("EAus=5 AND (",sCHIQI_A2_03_F,")") sCHIQI_A2_04_F <- "(AltE between 65 AND 84) AND (LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50')" sCHIQI_A2_04_M <- paste("EAus=5 AND (",sCHIQI_A2_04_F,")") sCHIQI_A2_05_F <- "AltE>84 AND (LEFT(HD,4) IN ('I110','I130','I132') OR LEFT(HD,3) = 'I50')" sCHIQI_A2_05_M <- paste("EAus=5 AND (",sCHIQI_A2_05_F,")") sCHIQI_A2_06_F <- "AltE>19 AND LEFT(HD,5) = 'I5014'" sCHIQI_A2_06_P <- sCHIQI_A2_06_F sCHIQI_A2_06N_F <- "AltE>19 AND (LEFT(HD,4) = 'I501')" sCHIQI_A3_01_F <- "AltE>19 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0))" sCHIQI_A3_02_F <- "AltE>19 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0)) AND LEFT(HD,3) IN ('I21','I22') AND NOT (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)" sCHIQI_A3_02_M <- paste("EAus=5 AND (",sCHIQI_A3_02_F,")") sCHIQI_A3_03_F <- "AltE>19 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0)) AND NOT LEFT(HD,3) IN ('I21','I22') AND NOT (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) AND (LEFT(HD,3) IN ('I46', 'R57') OR LEFT(HD,4) = 'I490' OR InStr(AllDia,'I052')>0 OR InStr(AllDia,'I062')>0 OR InStr(AllDia,'I3480')>0 OR InStr(AllDia,'I352')>0 OR InStr(NebDia,'I21')>0 OR InStr(NebDia,'I22')>0)" sCHIQI_A3_03_M <- paste("EAus=5 AND (",sCHIQI_A3_03_F,")") sCHIQI_A3_04_F <- "AltE>19 AND (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 (InStr(AllBeh,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0) AND NOT LEFT(HD,3) IN ('I21','I22') AND NOT (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) AND NOT (InStr(AllDia,'T86')>0 OR InStr(AllDia,'Z0980')>0) AND NOT LEFT(HD,4) IN ('I460', 'I469') AND NOT InStr(AllBeh,' 3596')>0" sCHIQI_A3_04_M <- paste("EAus=5 AND (",sCHIQI_A3_04_F,")") sCHIQI_A3_05_F <- "AltE>19 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) OR (InStr(AllBeh,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0)) AND NOT LEFT(HD,3) IN ('I21','I22') AND NOT (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) AND NOT (InStr(AllDia,'T86')>0 OR InStr(AllDia,'Z0980')>0) AND NOT LEFT(HD,4) IN ('I460', 'I469') AND NOT InStr(AllBeh,' 3596')>0" sCHIQI_A3_05_M <- paste("EAus=5 AND (",sCHIQI_A3_05_F,")") sCHIQI_A3_05_P <- sCHIQI_A3_05_F sCHIQI_A3_05N_F <- "AltE>19 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0)) AND NOT LEFT(HD,3) IN ('I21','I22') AND NOT (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) AND NOT (InStr(AllDia,'T86')>0 OR InStr(AllDia,'Z0980')>0) AND NOT LEFT(HD,4) IN ('I460', 'I469') AND NOT InStr(AllBeh,' 3596')>0" sCHIQI_A3_06_F <- "AltE<20 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 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,' 3601')>0 OR InStr(AllBeh,' 3602')>0 OR InStr(AllBeh,' 3605')>0) OR (InStr(AllBeh,' 3726')>0 OR InStr(AllBeh,' 3734')>0 OR InStr(AllBeh,' 37902')>0 OR InStr(AllBeh,' 379099')>0))" sCHIQI_A4_01_F <- "LEFT(HD,3) IN ('I44','I45','I47','I48','I49')" sCHIQI_A5_01_F <- "(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,' 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,' 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)" 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,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>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)" sCHIQI_A7_05_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) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0)) OR ((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) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>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,' 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) AND (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)) 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,' 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) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) AND (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_06_F <- "AltE<20 AND (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)" sCHIQI_A7_07_F <- "(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 (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) AND NOT (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) 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("EAus=5 AND (",sCHIQI_A7_07_F,")") sCHIQI_A7_08_F <- "(InStr(AllBeh,' 359611')>0 OR InStr(AllBeh,' 352211')>0)" sCHIQI_A7_08_M <- paste("EAus=5 AND (",sCHIQI_A7_08_F,")") sCHIQI_A7_09_F <- "InStr(AllBeh,' 359611')>0" sCHIQI_A7_09_M <- paste("EAus=5 AND (",sCHIQI_A7_09_F,")") sCHIQI_A7_10_F <- "InStr(AllBeh,' 352211')>0" sCHIQI_A7_10_M <- paste("EAus=5 AND (",sCHIQI_A7_10_F,")") sCHIQI_A7_11_F <- "AltE>19 AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_11_M <- paste("EAus=5 AND (",sCHIQI_A7_11_F,")") sCHIQI_A7_12_F <- "AltE>19 AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_12_M <- paste("EAus=5 AND (",sCHIQI_A7_12_F,")") sCHIQI_A7_13_F <- "(AltE between 20 AND 49) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_13_M <- paste("EAus=5 AND (",sCHIQI_A7_13_F,")") sCHIQI_A7_14_F <- "(AltE between 50 AND 59) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_14_M <- paste("EAus=5 AND (",sCHIQI_A7_14_F,")") sCHIQI_A7_15_F <- "(AltE between 60 AND 69) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_15_M <- paste("EAus=5 AND (",sCHIQI_A7_15_F,")") sCHIQI_A7_16_F <- "(AltE between 70 AND 79) AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_16_M <- paste("EAus=5 AND (",sCHIQI_A7_16_F,")") sCHIQI_A7_17_F <- "AltE>79 AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22')" sCHIQI_A7_17_M <- paste("EAus=5 AND (",sCHIQI_A7_17_F,")") sCHIQI_A7_18_F <- "AltE>19 AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22') AND HBeat>24" sCHIQI_A7_18_P <- sCHIQI_A7_18_F sCHIQI_A7_19_F <- "(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 (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) AND NOT (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) 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 LEFT(HD,3) IN ('I33','I38','I39')" sCHIQI_A7_19_M <- paste("EAus=5 AND (",sCHIQI_A7_19_F,")") sCHIQI_A7_20_F <- "(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 (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) AND NOT (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) 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 LEFT(HD,3) IN ('I33','I38','I39')" sCHIQI_A7_20_M <- paste("EAus=5 AND (",sCHIQI_A7_20_F,")") sCHIQI_A7_21_F <- "(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 (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) AND NOT (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) 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 <- "AltE>19 AND (InStr(AllBeh,' 3603')>0 OR InStr(AllBeh,' 361')>0 OR InStr(AllBeh,' 362')>0 OR InStr(AllBeh,' 3631')>0 OR InStr(AllBeh,' 3633')>0 OR InStr(AllBeh,' 3639')>0) 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 (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) AND NOT (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) AND NOT LEFT(HD,3) IN ('I21','I22') 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 NOT (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)" sCHIQI_A7_22_P <- sCHIQI_A7_22_F #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe B #------------------------------------------------------------------------------- sCHIQI_B1_01_F <- "AltE>19 AND LEFT(HD,3) IN ('I60','I61','I63','I64')" sCHIQI_B1_01_M <- paste("EAus=5 AND (",sCHIQI_B1_01_F,")") sCHIQI_B1_02_F <- "(AltE between 20 AND 44) AND LEFT(HD,3) IN ('I60','I61','I63','I64')" sCHIQI_B1_02_M <- paste("EAus=5 AND (",sCHIQI_B1_02_F,")") sCHIQI_B1_03_F <- "(AltE between 45 AND 64) AND LEFT(HD,3) IN ('I60','I61','I63','I64')" sCHIQI_B1_03_M <- paste("EAus=5 AND (",sCHIQI_B1_03_F,")") sCHIQI_B1_04_F <- "(AltE between 65 AND 84) AND LEFT(HD,3) IN ('I60','I61','I63','I64')" sCHIQI_B1_04_M <- paste("EAus=5 AND (",sCHIQI_B1_04_F,")") sCHIQI_B1_05_F <- "AltE>84 AND LEFT(HD,3) IN ('I60','I61','I63','I64')" sCHIQI_B1_05_M <- paste("EAus=5 AND (",sCHIQI_B1_05_F,")") sCHIQI_B1_06_F <- "AltE>19 AND LEFT(HD,3) IN ('I60','I61','I63','I64') AND (InStr(AllBeh,' 89131')>0 OR InStr(AllBeh,' 8913A')>0 OR Instr(AllBeh,' 99BA')>0)" sCHIQI_B1_06_P <- sCHIQI_B1_06_F sCHIQI_B1_07_F <- "AltE>19 AND LEFT(HD,3) = 'I63'" sCHIQI_B1_07_M <- paste("EAus=5 AND (",sCHIQI_B1_07_F,")") sCHIQI_B1_08_F <- "AltE>19 AND AVor<>6 AND LEFT(HD,3) = 'I63'" sCHIQI_B1_08_M <- paste("EAus=5 AND (",sCHIQI_B1_08_F,")") sCHIQI_B1_09_F <- "AltE>19 AND LEFT(HD,3) = 'I63' AND (InStr(AllBeh,' 991000')>0 OR InStr(AllBeh,' 991099')>0)" sCHIQI_B1_09_M <- paste("EAus=5 AND (",sCHIQI_B1_09_F,")") sCHIQI_B1_09_P <- sCHIQI_B1_09_F sCHIQI_B1_10_F <- "AltE>19 AND LEFT(HD,3) = 'I61'" sCHIQI_B1_10_M <- paste("EAus=5 AND (",sCHIQI_B1_10_F,")") sCHIQI_B1_11_F <- "AltE>19 AND LEFT(HD,3) = 'I60'" sCHIQI_B1_11_M <- paste("EAus=5 AND (",sCHIQI_B1_11_F,")") sCHIQI_B1_12_F <- "AltE>19 AND LEFT(HD,3) = 'I64'" sCHIQI_B1_12_M <- paste("EAus=5 AND (",sCHIQI_B1_12_F,")") sCHIQI_B1_12_P <- sCHIQI_B1_12_F sCHIQI_B1_13_F <- "AltE>19 AND AVor=6 AND LEFT(HD,3) = 'I63'" sCHIQI_B1_13_M <- paste("EAus=5 AND (",sCHIQI_B1_13_F,")") sCHIQI_B2_01_F <- "LEFT(HD,4) IN ('G450','G451','G452','G453','G454','G458','G459')" sCHIQI_B2_01_M <- paste("EAus=5 AND (",sCHIQI_B2_01_F,")") sCHIQI_B2_02_F <- "LEFT(HD,4) IN ('G450','G451','G452','G453','G454','G458','G459') AND (InStr(AllBeh,' 89131')>0 OR InStr(AllBeh,' 8913A')>0 OR Instr(AllBeh,' 99BA')>0)" sCHIQI_B2_02_P <- sCHIQI_B2_02_F #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe C #------------------------------------------------------------------------------- sCHIQI_C1_01_F <- "InStr(AllBeh,' 93899')>0" sCHIQI_C1_02_F <- "InStr(AllBeh,' 93899')>0 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("EAus=5 AND (",sCHIQI_D1_01_F,")") sCHIQI_D1_02_F <- "AltE<20 AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_02_M <- paste("EAus=5 AND (",sCHIQI_D1_02_F,")") sCHIQI_D1_03_F <- "(AltE between 20 AND 44) AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_03_M <- paste("EAus=5 AND (",sCHIQI_D1_03_F,")") sCHIQI_D1_04_F <- "(AltE between 45 AND 64) AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_04_M <- paste("EAus=5 AND (",sCHIQI_D1_04_F,")") sCHIQI_D1_05_F <- "(AltE between 65 AND 84) AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_05_M <- paste("EAus=5 AND (",sCHIQI_D1_05_F,")") sCHIQI_D1_06_F <- "AltE>84 AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18'))" sCHIQI_D1_06_M <- paste("EAus=5 AND (",sCHIQI_D1_06_F,")") sCHIQI_D1_07_F <- "(AltE between 1 AND 19) AND AVor<>6 AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18')) AND NOT InStr(NebDia,'C')>0 AND NOT (InStr(NebDia,'E84')>0 OR InStr(NebDia,'U6900')>0)" sCHIQI_D1_07_M <- paste("EAus=5 AND (",sCHIQI_D1_07_F,")") sCHIQI_D1_08_F <- "AltE>19 AND AVor<>6 AND (LEFT(HD,4) IN ('A481','J100','J110') OR LEFT(HD,3) IN ('J12','J13','J14','J15','J16','J17','J18')) AND NOT InStr(NebDia,'C')>0 AND NOT (InStr(NebDia,'E84')>0 OR InStr(NebDia,'U6900')>0)" sCHIQI_D1_08_M <- paste("EAus=5 AND (",sCHIQI_D1_08_F,")") sCHIQI_D2_01_F <- "AltE>19 AND LEFT(HD,4) IN ('J440','J441','J448','J449') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_01_M <- paste("EAus=5 AND (",sCHIQI_D2_01_F,")") sCHIQI_D2_02_F <- "AltE>19 AND LEFT(HD,5) IN ('J4400','J4410','J4480','J4490') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_02_M <- paste("EAus=5 AND (",sCHIQI_D2_02_F,")") sCHIQI_D2_03_F <- "AltE>19 AND LEFT(HD,5) IN ('J4401','J4411','J4481','J4491') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_03_M <- paste("EAus=5 AND (",sCHIQI_D2_03_F,")") sCHIQI_D2_04_F <- "AltE>19 AND LEFT(HD,5) IN ('J4402','J4412','J4482','J4492') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_04_M <- paste("EAus=5 AND (",sCHIQI_D2_04_F,")") sCHIQI_D2_05_F <- "AltE>19 AND LEFT(HD,5) IN ('J4403','J4413','J4483','J4493') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_05_M <- paste("EAus=5 AND (",sCHIQI_D2_05_F,")") sCHIQI_D2_06_F <- "AltE>19 AND LEFT(HD,5) IN ('J4409','J4419','J4489','J4499') AND NOT InStr(NebDia,'C')>0" sCHIQI_D2_06_M <- paste("EAus=5 AND (",sCHIQI_D2_06_F,")") sCHIQI_D2_06_P <- sCHIQI_D2_06_F sCHIQI_D3_01_F <- "(InStr(AllDia,'C33')>0 OR InStr(AllDia,'C34')>0)" 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("EAus=5 AND (",sCHIQI_D4_01_F,")") sCHIQI_D4_02_F <- "InStr(AllDia,'C34')>0 AND InStr(AllBeh,' 325')>0" sCHIQI_D4_02_M <- paste("EAus=5 AND (",sCHIQI_D4_02_F,")") sCHIQI_D4_02_P <- sCHIQI_D4_02_F sCHIQI_D4_02N_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) AND InStr(AllDia,'C34')>0" 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("EAus=5 AND (",sCHIQI_D4_03_F,")") sCHIQI_D4_04_F <- "InStr(AllDia,'C34')>0 AND (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 (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_04_P <- sCHIQI_D4_04_F sCHIQI_D4_05_F <- "InStr(AllBeh,' 345')>0" sCHIQI_D4_05_M <- paste("EAus=5 AND (",sCHIQI_D4_05_F,")") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe E #------------------------------------------------------------------------------- sCHIQI_E1_01_F <- "LEFT(HD,3) IN ('K80','K81') AND InStr(AllBeh,' 512')>0 AND NOT InStr(NebDia,'C')>0 AND NOT InStr(AllBeh,' 512212')>0" sCHIQI_E1_01_M <- paste("EAus=5 AND (",sCHIQI_E1_01_F,")") sCHIQI_E1_02_F <- "LEFT(HD,3) IN ('K80','K81') AND InStr(AllBeh,' 512')>0 AND NOT InStr(NebDia,'C')>0 AND NOT (InStr(AllBeh,' 5121')>0 OR InStr(AllBeh,' 5122')>0)" sCHIQI_E1_02_P <- sCHIQI_E1_02_F sCHIQI_E2_01_F <- "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 (AltE>0 OR ATage>27)" sCHIQI_E2_01_M <- paste("EAus=5 AND (",sCHIQI_E2_01_F,")") sCHIQI_E2_02_F <- "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 (AltE>0 OR ATage>27)" sCHIQI_E2_02_M <- paste("EAus=5 AND (",sCHIQI_E2_02_F,")") sCHIQI_E2_03_F <- "((AltE between 1 AND 19) OR ATage>27) AND 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)" sCHIQI_E2_03_P <- sCHIQI_E2_03_F sCHIQI_E2_03N_F <- "((AltE between 1 AND 19) OR ATage>27) AND LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0)" sCHIQI_E2_04_F <- "AltE>19 AND 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)" sCHIQI_E2_04_P <- sCHIQI_E2_04_F sCHIQI_E2_04N_F <- "AltE>19 AND LEFT(HD,3) IN ('K40','K41','K42','K43') AND (InStr(AllBeh,' 530')>0 OR InStr(AllBeh,' 531')>0)" 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 <- "(InStr(AllBeh,' 062')>0 OR InStr(AllBeh,' 063')>0 OR InStr(AllBeh,' 064')>0 OR InStr(AllBeh,' 065')>0 OR InStr(AllBeh,' 066')>0) 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("EAus=5 AND (",sCHIQI_E4_01_F,")") 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("EAus=5 AND (",sCHIQI_E4_02_F,")") 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("EAus=5 AND (",sCHIQI_E4_03_F,")") 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("EAus=5 AND (",sCHIQI_E4_04_F,")") 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("EAus=5 AND (",sCHIQI_E4_05_F,")") 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("EAus=5 AND (",sCHIQI_E4_06_F,")") 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("EAus=5 AND (",sCHIQI_E4_07_F,")") sCHIQI_E4_08_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 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 InStr(AllDia,'K50')>0 OR InStr(AllDia,'K51')>0) AND NOT (LEFT(HD,4) IN ('K573','K575','K579') OR LEFT(HD,4) IN ('K572','K574','K578'))" 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 <- "InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0" sCHIQI_E4_12_F <- "InStr(AllDia,'K50')>0 OR InStr(AllDia,'K51')>0" sCHIQI_E4_13_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 NOT (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND (InStr(AllDia,'K50')>0 OR InStr(AllDia,'K51')>0) AND NOT (LEFT(HD,4) IN ('K573','K575','K579') OR LEFT(HD,4) IN ('K572','K574','K578'))" sCHIQI_E4_13_M <- paste("EAus=5 AND (",sCHIQI_E4_13_F,")") sCHIQI_E4_14_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 (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0) AND (InStr(AllBeh,' 502')>0 OR InStr(AllBeh,' 503X0')>0)" sCHIQI_E4_14_P <- sCHIQI_E4_14_F sCHIQI_E4_14N_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 (InStr(AllDia,'C18')>0 OR InStr(AllDia,'C19')>0 OR InStr(AllDia,'C20')>0 OR InStr(AllDia,'C218')>0)" 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 <- "(InStr(AllBeh,' 435')>0 OR InStr(AllBeh,' 436')>0 OR InStr(AllBeh,' 437')>0 OR InStr(AllBeh,' 438')>0 OR InStr(AllBeh,' 439')>0) AND NOT (InStr(AllBeh,' 424')>0 OR InStr(AllBeh,' 425')>0) AND InStr(AllDia,'C16')>0" sCHIQI_E5_02_M <- paste("EAus=5 AND (",sCHIQI_E5_02_F,")") sCHIQI_E5_03_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) AND (InStr(AllBeh,' 424')>0 OR InStr(AllBeh,' 425')>0)" sCHIQI_E5_03_M <- paste("EAus=5 AND (",sCHIQI_E5_03_F,")") sCHIQI_E5_04_F <- "InStr(AllDia,'C16')>0" sCHIQI_E5_05_F <- "LEFT(HD,3) IN ('K25','K26','K27','K28') AND NOT InStr(NebDia,'C')>0" sCHIQI_E5_05_M <- paste("EAus=5 AND (",sCHIQI_E5_05_F,")") sCHIQI_E6_01_F <- "(InStr(AllBeh,' 424')>0 OR InStr(AllBeh,' 425')>0)" sCHIQI_E6_01_M <- paste("EAus=5 AND (",sCHIQI_E6_01_F,")") sCHIQI_E7_01_F <- "AltE>19 AND (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)" sCHIQI_E7_01_M <- paste("EAus=5 AND (",sCHIQI_E7_01_F,")") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe F #------------------------------------------------------------------------------- sCHIQI_F1_01_F <- "InStr(AllBeh,' 3812')>0 AND NOT (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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>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 (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) 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("EAus=5 AND (",sCHIQI_F1_01_F,")") sCHIQI_F1_02_F <- "(InStr(AllBeh,' 0063')>0 OR InStr(AllBeh,' 0064')>0) AND NOT (InStr(AllBeh,' 0065')>0 OR InStr(AllBeh,' 39720')>0 OR InStr(AllBeh,' 39721')>0 OR InStr(AllBeh,' 39723')>0) AND NOT (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) AND NOT (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) 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("EAus=5 AND (",sCHIQI_F1_02_F,")") sCHIQI_F1_03_F <- "InStr(AllBeh,' 3812')>0 AND ((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(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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>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 ((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) 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 ((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(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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0) OR (InStr(AllBeh,' 0065')>0 OR InStr(AllBeh,' 39720')>0 OR InStr(AllBeh,' 39721')>0 OR InStr(AllBeh,' 39723')>0)))" sCHIQI_F1_04_F <- "InStr(AllBeh,' 0065')>0 OR InStr(AllBeh,' 39720')>0 OR InStr(AllBeh,' 39721')>0 OR InStr(AllBeh,' 39723')>0" sCHIQI_F2_01_F <- "InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0" sCHIQI_F2_02_F <- "(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 (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) 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("EAus=5 AND (",sCHIQI_F2_02_F,")") sCHIQI_F2_03_F <- "(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 (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) 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("EAus=5 AND (",sCHIQI_F2_03_F,")") sCHIQI_F2_04_F <- "((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 (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)) 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("EAus=5 AND (",sCHIQI_F2_05_F,")") 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_02_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_02_M <- paste("EAus=5 AND (",sCHIQI_F3_02_F,")") sCHIQI_F3_03_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_03_M <- paste("EAus=5 AND (",sCHIQI_F3_03_F,")") sCHIQI_F3_04_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_04_M <- paste("EAus=5 AND (",sCHIQI_F3_04_F,")") sCHIQI_F3_05_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_05_M <- paste("EAus=5 AND (",sCHIQI_F3_05_F,")") sCHIQI_F3_06_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_06_M <- paste("EAus=5 AND (",sCHIQI_F3_06_F,")") sCHIQI_F3_07_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_07_M <- paste("EAus=5 AND (",sCHIQI_F3_07_F,")") sCHIQI_F3_08_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) AND (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F3_09_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F4_01_F <- "(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 (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)" sCHIQI_F4_01_M <- paste("EAus=5 AND (",sCHIQI_F4_01_F,")") sCHIQI_F4_02_F <- "(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(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)" sCHIQI_F4_02_M <- paste("EAus=5 AND (",sCHIQI_F4_02_F,")") sCHIQI_F5_01_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0)" sCHIQI_F5_02_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) AND (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_F5_03_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) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F5_04_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F5_05_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F5_06_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)" sCHIQI_F5_07_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)) 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_F5_07a_F <- "(InStr(AllBeh,' 004B18')>0 OR InStr(AllBeh,' 004B1A')>0 OR InStr(AllBeh,' 3950')>0) 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 (InStr(AllBeh,' 3971')>0 OR InStr(AllBeh,' 38340')>0 OR InStr(AllBeh,' 38343')>0 OR InStr(AllBeh,' 38349')>0 OR InStr(AllBeh,' 3844')>0 OR InStr(AllBeh,' 3973')>0 OR InStr(AllBeh,' 38451')>0)) AND NOT (InStr(AllDia,'I7020')>0 OR InStr(AllDia,'I7021')>0) AND NOT InStr(AllDia,'I7022')>0 AND NOT (InStr(AllDia,'I7023')>0 OR InStr(AllDia,'I7024')>0)" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe G #------------------------------------------------------------------------------- sCHIQI_G1_01_F <- "Sex=2 AND (AltE between 8 AND 58) AND (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)" sCHIQI_G1_01_P <- paste("EAus=5 AND (",sCHIQI_G1_01_F,")") sCHIQI_G1_02_F <- "Sex=2 AND (AltE between 8 AND 58) AND (InStr(AllDia,'O702')>0 OR InStr(AllDia,'O703')>0) AND NOT (InStr(AllDia,'O82')>0 OR InStr(AllDia,'O842')>0) AND NOT (InStr(AllBeh,' 740')>0 OR InStr(AllBeh,' 741')>0 OR InStr(AllBeh,' 742')>0 OR InStr(AllBeh,' 744')>0 OR InStr(AllBeh,' 7499')>0)" sCHIQI_G1_02_P <- sCHIQI_G1_02_F sCHIQI_G1_02N_F <- "Sex=2 AND (AltE between 8 AND 58) AND (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 (InStr(AllDia,'O82')>0 OR InStr(AllDia,'O842')>0) AND NOT (InStr(AllBeh,' 740')>0 OR InStr(AllBeh,' 741')>0 OR InStr(AllBeh,' 742')>0 OR InStr(AllBeh,' 744')>0 OR InStr(AllBeh,' 7499')>0)" sCHIQI_G1_03_F <- "Sex=2 AND (AltE between 8 AND 58) AND (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 (InStr(AllDia,'O82')>0 OR InStr(AllDia,'O842')>0) AND NOT (InStr(AllBeh,' 740')>0 OR InStr(AllBeh,' 741')>0 OR InStr(AllBeh,' 742')>0 OR InStr(AllBeh,' 744')>0 OR InStr(AllBeh,' 7499')>0)" sCHIQI_G1_03_P <- sCHIQI_G1_03_F sCHIQI_G1_04_F <- "Sex=2 AND (AltE between 8 AND 58) AND (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)" sCHIQI_G1_04_P <- sCHIQI_G1_04_F sCHIQI_G2_01_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 250 AND 1249) OR (GebGew between 250 AND 1249))" sCHIQI_G2_02_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 250 AND 1249) OR (GebGew between 250 AND 1249)) AND AVor=6" sCHIQI_G2_03_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 250 AND 499) OR (GebGew between 250 AND 499))" sCHIQI_G2_04_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 500 AND 749) OR (GebGew between 500 AND 749))" sCHIQI_G2_05_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 750 AND 999) OR (GebGew between 750 AND 999))" sCHIQI_G2_06_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 1000 AND 1249) OR (GebGew between 1000 AND 1249))" sCHIQI_G2_07_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 1250 AND 1499) OR (GebGew between 1250 AND 1499))" sCHIQI_G2_08_F <- "AltE=0 AND (ATage between 0 AND 27) AND ((AufGew between 1500 AND 2499) OR (GebGew between 1500 AND 2499))" sCHIQI_G2_09_F <- "AltE=0 AND (ATage between 0 AND 27) 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 <- "AltE>14 AND (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,'C')>0 AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0)" sCHIQI_G3_01_M <- paste("EAus=5 AND (",sCHIQI_G3_01_F,")") sCHIQI_G3_02_F <- "(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,' 6839')>0 OR InStr(AllBeh,' 6849')>0 OR InStr(AllBeh,' 6869')>0 OR InStr(AllBeh,' 689')>0) AND NOT InStr(AllDia,'C')>0 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)" sCHIQI_G3_02_P <- sCHIQI_G3_02_F sCHIQI_G3_02N_F <- "(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,'C')>0 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)" sCHIQI_G3_03_F <- "AltE<50 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) AND (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 InStr(AllDia,'C')>0 AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0)" sCHIQI_G3_03_P <- sCHIQI_G3_03_F sCHIQI_G3_03N_F <- "AltE<50 AND (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 InStr(AllDia,'C')>0 AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0)" sCHIQI_G3_04_F <- "AltE>49 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) AND (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 InStr(AllDia,'C')>0 AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0)" sCHIQI_G3_04_P <- sCHIQI_G3_04_F sCHIQI_G3_04N_F <- "AltE>49 AND (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 InStr(AllDia,'C')>0 AND NOT (InStr(AllDia,'D06')>0 OR InStr(AllDia,'D070')>0 OR InStr(AllDia,'D390')>0 OR InStr(AllDia,'D391')>0)" sCHIQI_G4_01_F <- "(InStr(AllDia,'C50')>0 OR InStr(AllDia,'D05')>0)" sCHIQI_G5_01_F <- "(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,' 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)" sCHIQI_G5_02_F <- "Sex=2 AND (InStr(AllBeh,' 854')>0 OR InStr(AllBeh,' 8521')>0 OR InStr(AllBeh,' 8522')>0 OR InStr(AllBeh,' 8523')>0 OR InStr(AllBeh,' 853')>0) AND (InStr(AllDia,'C50')>0 OR InStr(AllDia,'D05')>0)" sCHIQI_G5_03_F <- "Sex=2 AND (InStr(AllBeh,' 8521')>0 OR InStr(AllBeh,' 8522')>0 OR InStr(AllBeh,' 8523')>0 OR InStr(AllBeh,' 853')>0) AND (InStr(AllDia,'C50')>0 OR InStr(AllDia,'D05')>0) AND NOT InStr(AllBeh,' 854')>0" sCHIQI_G5_03_P <- sCHIQI_G5_03_F #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe H #------------------------------------------------------------------------------- sCHIQI_H1_01_F <- "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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_01_M <- paste("EAus=5 AND (", sCHIQI_H1_01_F,")") sCHIQI_H1_02_F <- "InStr(AllBeh,' 555')>0 AND InStr(AllBeh,' 5421')>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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_02_P <- sCHIQI_H1_02_F sCHIQI_H1_03_F <- "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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_03_M <- paste("EAus=5 AND (", sCHIQI_H1_03_F,")") sCHIQI_H1_03_P <- sCHIQI_H1_03_F sCHIQI_H1_03N_F <- "(InStr(AllBeh,' 554')>0 OR 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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_04_F <- "InStr(AllBeh,' 554')>0 AND InStr(AllBeh,' 5421')>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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_04_P <- sCHIQI_H1_04_F sCHIQI_H1_05_F <- "InStr(AllBeh,' 554')>0 AND InStr(AllDia,'C64')>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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H1_05_P <- sCHIQI_H1_05_F sCHIQI_H1_05N_F <- "(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 InStr(AllBeh,' 505')>0 OR InStr(AllBeh,' 528')>0 OR InStr(AllBeh,' 556')>0) AND NOT LEFT(HD,1) IN ('S','T')" sCHIQI_H2_01_F <- "(LEFT(HD,4) = 'N132' OR LEFT(HD,3) IN ('N20','N21','N22'))" sCHIQI_H2_02_F <- "(LEFT(HD,4) = 'N132' OR LEFT(HD,3) IN ('N20','N21','N22')) 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 <- "InStr(AllBeh,' 574')>0 AND (LEFT(HD,3) = 'C67' OR LEFT(HD,4) IN ('D090','D414'))" sCHIQI_H3_04_F <- "InStr(AllBeh,' 574')>0 AND (LEFT(HD,3) = 'C67' OR LEFT(HD,4) IN ('D090','D414')) AND InStr(AllBeh,' 992805')>0" sCHIQI_H3_04_P <- sCHIQI_H3_04_F sCHIQI_H3_05_F <- "InStr(AllBeh,' 577')>0 AND NOT (InStr(AllBeh,' 577150')>0 OR InStr(AllBeh,' 577151')>0 OR InStr(AllBeh,' 688')>0)" sCHIQI_H3_05_M <- paste("EAus=5 AND (", sCHIQI_H3_05_F,")") sCHIQI_H3_06_F <- "(InStr(AllBeh,' 577150')>0 OR InStr(AllBeh,' 577151')>0 OR InStr(AllBeh,' 688')>0)" sCHIQI_H3_06_M <- paste("EAus=5 AND (", sCHIQI_H3_06_F,")") sCHIQI_H4_01_F <- "InStr(AllBeh,' 602')>0" sCHIQI_H4_01_M <- paste("EAus=5 AND (",sCHIQI_H4_01_F,")") sCHIQI_H5_01_F <- "InStr(AllDia,'C61')>0" sCHIQI_H5_02_F <- "InStr(AllBeh,' 605')>0" sCHIQI_H5_02_M <- paste("EAus=5 AND (",sCHIQI_H5_02_F,")") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe I #------------------------------------------------------------------------------- sCHIQI_I1_01_F <- "AltE>19 AND (InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) AND NOT InStr(AllBeh,' 8449')>0 AND ((InStr(AllDia,'M8415')=0 AND InStr(AllDia,'M960')=0 AND InStr(AllDia,'S324')=0 AND InStr(AllDia,'S720')=0 AND InStr(AllDia,'S721')=0 AND InStr(AllDia,'S722')=0 AND InStr(AllDia,'T841')=0 AND InStr(AllDia,'T846')=0) OR ((InStr(AllDia,'M966')>0 OR InStr(AllDia,'Y69')>0) AND (InStr(AllDia,'S720')>0 OR InStr(AllDia,'S721')>0 OR InStr(AllDia,'S722')>0))) AND NOT (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)" sCHIQI_I1_01_M <- paste("EAus=5 AND (",sCHIQI_I1_01_F,")") sCHIQI_I1_03_F <- "AltE>19 AND (InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815410')>0 OR InStr(AllBeh,' 815411')>0 OR InStr(AllBeh,' 815412')>0 OR InStr(AllBeh,' 815414')>0 OR InStr(AllBeh,' 815499')>0) AND NOT InStr(AllBeh,' 8449')>0 AND ((InStr(AllDia,'M8415')=0 AND InStr(AllDia,'M8416')=0 AND InStr(AllDia,'M960')=0 AND InStr(AllDia,'S7240')=0 AND InStr(AllDia,'S7241')=0 AND InStr(AllDia,'S7243')=0 AND InStr(AllDia,'S7244')=0 AND InStr(AllDia,'S821')=0 AND InStr(AllDia,'S8241')=0) OR ((InStr(AllDia,'M966')>0 OR InStr(AllDia,'Y69')>0) AND (InStr(AllDia,'S7240')>0 OR InStr(AllDia,'S7241')>0 OR InStr(AllDia,'S7243')>0 OR InStr(AllDia,'S7244')>0 OR InStr(AllDia,'S821')>0 OR InStr(AllDia,'S8241')>0))) AND NOT (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)" sCHIQI_I1_03_M <- paste("EAus=5 AND (",sCHIQI_I1_03_F,")") sCHIQI_I1_06_F <- "AltE>19 AND InStr(AllBeh,' 815410')>0 AND NOT InStr(AllBeh,' 8449')>0 AND NOT (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)" sCHIQI_I1_06_M <- paste("EAus=5 AND (",sCHIQI_I1_06_F,")") F_Hueft_TEP_Erstimplantation_ex_F <- "(AltE>19 AND (InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) AND ((InStr(AllDia,'M8415')=0 AND InStr(AllDia,'M960')=0 AND InStr(AllDia,'S324')=0 AND InStr(AllDia,'S720')=0 AND InStr(AllDia,'S721')=0 AND InStr(AllDia,'S722')=0 AND InStr(AllDia,'T841')=0 AND InStr(AllDia,'T846')=0) OR ((InStr(AllDia,'M966')>0 OR InStr(AllDia,'Y69')>0) AND (InStr(AllDia,'S720')>0 OR InStr(AllDia,'S721')>0 OR InStr(AllDia,'S722')>0))))" F_Hueft_TEP_Erstimplantation_ex_M <- paste("EAus=5 AND (",F_Hueft_TEP_Erstimplantation_ex_F,")") F_Teil_A_Hueft_TEP_Wechsel_ex_F <- "(InStr(AllBeh,' 8153')>0 OR InStr(AllBeh,' 0070')>0 OR InStr(AllBeh,' 0071')>0 OR InStr(AllBeh,' 0072')>0 OR InStr(AllBeh,' 0073')>0) OR ((InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) AND InStr(AllDia,'M9688')>0 AND AltE>19)" F_Teil_A_Hueft_TEP_Wechsel_ex_M <- paste("EAus=5 AND (",F_Teil_A_Hueft_TEP_Wechsel_ex_F,")") F_Knie_TEP_Erstimplantation_ex_F <- "(AltE>19 AND (InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815410')>0 OR InStr(AllBeh,' 815411')>0 OR InStr(AllBeh,' 815412')>0 OR InStr(AllBeh,' 815414')>0 OR InStr(AllBeh,' 815499')>0) AND ((InStr(AllDia,'M8415')=0 AND InStr(AllDia,'M8416')=0 AND InStr(AllDia,'M960')=0 AND InStr(AllDia,'S7240')=0 AND InStr(AllDia,'S7241')=0 AND InStr(AllDia,'S7243')=0 AND InStr(AllDia,'S7244')=0 AND InStr(AllDia,'S821')=0 AND InStr(AllDia,'S8241')=0) OR ((InStr(AllDia,'M966')>0 OR InStr(AllDia,'Y69')>0) AND (InStr(AllDia,'S7240')>0 OR InStr(AllDia,'S7241')>0 OR InStr(AllDia,'S7243')>0 OR InStr(AllDia,'S7244')>0 OR InStr(AllDia,'S821')>0 OR InStr(AllDia,'S8241')>0))))" F_Knie_TEP_Erstimplantation_ex_M <- paste("EAus=5 AND (",F_Knie_TEP_Erstimplantation_ex_F,")") F_Teil_A_Knie_TEP_Wechsel_ex_F <- "(AltE>19 AND (InStr(AllBeh,' 0080')>0 OR InStr(AllBeh,' 0081')>0 OR InStr(AllBeh,' 0082')>0 OR InStr(AllBeh,' 0083')>0 OR InStr(AllBeh,' 0084')>0 OR InStr(AllBeh,' 815500')>0 OR InStr(AllBeh,' 815510')>0 OR InStr(AllBeh,' 815512')>0 OR InStr(AllBeh,' 815599')>0))" F_Teil_A_Knie_TEP_Wechsel_ex_M <- paste("EAus=5 AND (",F_Teil_A_Knie_TEP_Wechsel_ex_F,")") F_Teil_A_Knie_Schlitten_ex_F <- "AltE>19 AND InStr(AllBeh,' 815410')>0" F_Teil_A_Knie_Schlitten_ex_M <- paste("EAus=5 AND (",F_Teil_A_Knie_Schlitten_ex_F,")") F_Tumor_Endo_ex_F <- "AltE>19 AND ((InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0) OR InStr(AllBeh,' 8449')>0)" F_Tumor_Endo_ex_M <- paste("EAus=5 AND (",F_Tumor_Endo_ex_F,")") sCHIQI_Teil_A_I1_02_F <- "AltE>19 AND ((InStr(AllBeh,' 8153')>0 OR InStr(AllBeh,' 0070')>0 OR InStr(AllBeh,' 0071')>0 OR InStr(AllBeh,' 0072')>0 OR InStr(AllBeh,' 0073')>0) OR ((InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) AND InStr(AllDia,'M9688')>0)) AND NOT InStr(AllBeh,' 8449')>0 AND NOT (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)" sCHIQI_Teil_A_I1_02_M <- paste("EAus=5 AND (",sCHIQI_Teil_A_I1_02_F,")") sCHIQI_Teil_A_I1_04_F <- "AltE>19 AND (InStr(AllBeh,' 0080')>0 OR InStr(AllBeh,' 0081')>0 OR InStr(AllBeh,' 0082')>0 OR InStr(AllBeh,' 0083')>0 OR InStr(AllBeh,' 0084')>0 OR InStr(AllBeh,' 815500')>0 OR InStr(AllBeh,' 815510')>0 OR InStr(AllBeh,' 815512')>0 OR InStr(AllBeh,' 815599')>0) AND NOT InStr(AllBeh,' 8449')>0 AND NOT (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)" sCHIQI_Teil_A_I1_04_M <- paste("EAus=5 AND (",sCHIQI_Teil_A_I1_04_F,")") sCHIQI_Teil_A_I1_05_F <- "AltE>19 AND ((InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) OR (InStr(AllBeh,' 8153')>0 OR InStr(AllBeh,' 0070')>0 OR InStr(AllBeh,' 0071')>0 OR InStr(AllBeh,' 0072')>0 OR InStr(AllBeh,' 0073')>0) OR (InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815410')>0 OR InStr(AllBeh,' 815411')>0 OR InStr(AllBeh,' 815412')>0 OR InStr(AllBeh,' 815414')>0 OR InStr(AllBeh,' 815499')>0) OR (InStr(AllBeh,' 0080')>0 OR InStr(AllBeh,' 0081')>0 OR InStr(AllBeh,' 0082')>0 OR InStr(AllBeh,' 0083')>0 OR InStr(AllBeh,' 0084')>0 OR InStr(AllBeh,' 815500')>0 OR InStr(AllBeh,' 815510')>0 OR InStr(AllBeh,' 815512')>0 OR InStr(AllBeh,' 815599')>0) OR InStr(AllBeh,' 815410')>0) AND (InStr(AllBeh,' 8449')>0 OR (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0))" sCHIQI_Teil_A_I1_05_M <- paste("EAus=5 AND (",sCHIQI_Teil_A_I1_05_F,")") sCHIQI_Teil_A_I1_07_F <- "(((InStr(AllBeh,' 8151')>0 OR InStr(AllBeh,' 8152')>0) OR (InStr(AllBeh,' 8153')>0 OR InStr(AllBeh,' 0070')>0 OR InStr(AllBeh,' 0071')>0 OR InStr(AllBeh,' 0072')>0 OR InStr(AllBeh,' 0073')>0) OR (InStr(AllBeh,' 815400')>0 OR InStr(AllBeh,' 815410')>0 OR InStr(AllBeh,' 815411')>0 OR InStr(AllBeh,' 815412')>0 OR InStr(AllBeh,' 815414')>0 OR InStr(AllBeh,' 815499')>0) OR (InStr(AllBeh,' 0080')>0 OR InStr(AllBeh,' 0081')>0 OR InStr(AllBeh,' 0082')>0 OR InStr(AllBeh,' 0083')>0 OR InStr(AllBeh,' 0084')>0 OR InStr(AllBeh,' 815500')>0 OR InStr(AllBeh,' 815510')>0 OR InStr(AllBeh,' 815512')>0 OR InStr(AllBeh,' 815599')>0) OR InStr(AllBeh,' 815410')>0) OR ((InStr(AllBeh,' 8449')>0 OR (InStr(AllDia,'C402')>0 OR InStr(AllDia,'C795')>0 OR InStr(AllDia,'M8445')>0 OR InStr(AllDia,'M9075')>0)) AND AltE<20))" sCHIQI_Teil_A_I1_07_M <- paste("EAus=5 AND (",sCHIQI_Teil_A_I1_07_F,")") sCHIQI_I2_01_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" sCHIQI_I2_02_F <- "InStr(AllBeh,' 805')>0 AND NOT (InStr(AllBeh,' 810')>0 OR InStr(AllBeh,' 813')>0 OR InStr(AllBeh,' 816')>0) AND NOT InStr(AllDia,'C')>0 AND NOT (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)" sCHIQI_I2_02_M <- paste("EAus=5 AND (",sCHIQI_I2_02_F,")") sCHIQI_I3_01_F <- "LEFT(HD,4) = 'S720' AND AltE>19" sCHIQI_I3_01_M <- paste("EAus=5 AND (",sCHIQI_I3_01_F,")") sCHIQI_I3_02_F <- "LEFT(HD,4) = 'S720' AND (AltE between 20 AND 59)" sCHIQI_I3_02_M <- paste("EAus=5 AND (",sCHIQI_I3_02_F,")") sCHIQI_I3_03_F <- "LEFT(HD,4) = 'S720' AND (AltE between 60 AND 69)" sCHIQI_I3_03_M <- paste("EAus=5 AND (",sCHIQI_I3_03_F,")") sCHIQI_I3_04_F <- "LEFT(HD,4) = 'S720' AND (AltE between 70 AND 79)" sCHIQI_I3_04_M <- paste("EAus=5 AND (",sCHIQI_I3_04_F,")") sCHIQI_I3_05_F <- "LEFT(HD,4) = 'S720' AND (AltE between 80 AND 84)" sCHIQI_I3_05_M <- paste("EAus=5 AND (",sCHIQI_I3_05_F,")") sCHIQI_I3_06_F <- "LEFT(HD,4) = 'S720' AND (AltE between 85 AND 89)" sCHIQI_I3_06_M <- paste("EAus=5 AND (",sCHIQI_I3_06_F,")") sCHIQI_I3_07_F <- "LEFT(HD,4) = 'S720' AND AltE>89" sCHIQI_I3_07_M <- paste("EAus=5 AND (",sCHIQI_I3_07_F,")") sCHIQI_I3_08_F <- "LEFT(HD,4) = 'S721' AND AltE>19" sCHIQI_I3_08_M <- paste("EAus=5 AND (",sCHIQI_I3_08_F,")") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe J #------------------------------------------------------------------------------- sCHIQI_J1_01_F <- "HBeat>24 AND (AltE>0 OR ATage>27)" sCHIQI_J1_01_M <- paste("EAus=5 AND (",sCHIQI_J1_01_F,")") sCHIQI_J1_02_S <- sCHIQI_J1_01_F sCHIQI_J1_03_F <- "((HBeat between 96 AND 119) OR (HBeat between 250 AND 273) OR (HBeat between 500 AND 523) OR (HBeat between 1500 AND 1523)) AND (AltE>0 OR ATage>27)" sCHIQI_J1_03_P <- sCHIQI_J1_03_F sCHIQI_J1_03N_F <- "((HBeat between 72 AND 119) OR (HBeat between 226 AND 273) OR (HBeat between 476 AND 523) OR (HBeat between 1476 AND 1523)) AND (AltE>0 OR ATage>27)" sCHIQI_J2_01_F <- "(LEFT(HD,3) IN ('A40','A41') OR LEFT(HD,4) = 'R572')" sCHIQI_J2_01_M <- paste("EAus=5 AND (",sCHIQI_J2_01_F,")") #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe K #------------------------------------------------------------------------------- sCHIQI_K1_01_F <- "InStr(AllDia,'C43')>0" 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 <- "(InStr(AllBeh,' 336')>0 OR InStr(AllBeh,' 3751')>0)" sCHIQI_L1_02_F <- "InStr(AllBeh,' 336')>0" sCHIQI_L1_03_F <- "InStr(AllBeh,' 3751')>0 AND NOT InStr(AllBeh,' 336')>0" 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,' 505910')>0 OR InStr(AllBeh,' 505920')>0" sCHIQI_L3_03_F <- "(InStr(AllBeh,' 505100')>0 OR InStr(AllBeh,' 505110')>0 OR InStr(AllBeh,' 505199')>0 OR InStr(AllBeh,' 505900')>0 OR InStr(AllBeh,' 505911')>0 OR InStr(AllBeh,' 505921')>0 OR InStr(AllBeh,' 505999')>0) AND NOT (InStr(AllBeh,' 505910')>0 OR InStr(AllBeh,' 505920')>0)" sCHIQI_L3_04_F <- "InStr(AllBeh,' 505110')>0 OR InStr(AllBeh,' 505920')>0 OR InStr(AllBeh,' 505921')>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 <- "InStr(AllBeh,' 556')>0 AND InStr(AllBeh,' 528')>0" sCHIQI_L6_01_F <- "InStr(AllBeh,' 410')>0" sCHIQI_L6_02_F <- "InStr(AllBeh,' 4100')>0 OR InStr(AllBeh,' 4101')>0 OR InStr(AllBeh,' 4103')>0 OR InStr(AllBeh,' 4104')>0 OR InStr(AllBeh,' 4105')>0 OR InStr(AllBeh,' 4107')>0 OR InStr(AllBeh,' 4108')>0" sCHIQI_L6_03_F <- "(InStr(AllBeh,' 410101')>0 OR InStr(AllBeh,' 410401')>0 OR InStr(AllBeh,' 4107')>0) AND NOT (InStr(AllBeh,' 4105')>0 OR InStr(AllBeh,' 4108')>0)" sCHIQI_L6_04_F <- "InStr(AllDia,' zu definieren')>0 AND InStr(AllBeh,' zu definieren')>0" sCHIQI_L6_05_F <- "InStr(AllDia,' zu definieren')>0 AND InStr(AllBeh,' zu definieren')>0" sCHIQI_L6_06_F <- "(InStr(AllBeh,' 36991')>0 OR InStr(AllBeh,' 37991')>0) AND InStr(AllBeh,' 0091')>0" sCHIQI_L6_07_F <- "(InStr(AllBeh,' 36991')>0 OR InStr(AllBeh,' 37991')>0) AND InStr(AllBeh,' 0092')>0" #------------------------------------------------------------------------------- # SQL Abfragen pro Indikator - Gruppe Z #------------------------------------------------------------------------------- sCHIQI_Z1_01_F <- "InStr(AllBeh,' 282')>0 OR InStr(AllBeh,' 283')>0 AND NOT InStr(AllDia,'C')>0"