|
|
|
@@ -134,7 +134,7 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>% |
|
|
|
collect(n = Inf), by = "uf") %>% |
|
|
|
anti_join(rum, by="idhosp") %>% # supprimer séjours codés |
|
|
|
arrange(idhosp, date_sortie) %>% |
|
|
|
filter(!(service %in% c("5110", "5140", "1700", "1170", "1600", "2350")), |
|
|
|
filter(!(service %in% c("5110", "5140", "1700", "1170", "1600", "2350", "9090")), |
|
|
|
!is.na(service)) %>% |
|
|
|
group_by(idhosp) %>% |
|
|
|
summarise(date_entree = first(date_entree), |
|
|
|
|
