C1_03_S.RdMittelwert des Barthel-Index bei Aufnahme
C1_03_S(x)ein tibble (siehe Format des Rückgabewertes von iqi.input)
C1-Geriatrische Frührehabilitation
C-Altersmedizin
if_else( srg %in_table% (CHOP_Ger_Fruehreha) &
ddx %in_table% (ICD_Barthel_motorisch),
case_when( ddx %in_range% ('U5050') ~ 7.5,
ddx %in_range% ('U5040') ~ 27.5,
ddx %in_range% ('U5030') ~ 47.5,
ddx %in_range% ('U5020') ~ 67.5,
ddx %in_range% ('U5010') ~ 87.5,
ddx %in_range% ('U5000') ~ 100.0), as.double(NA))
if (FALSE) p <- iqi.input(path2file) %>% C1_03_S() # \dontrun{}