|
|
|
@@ -71,7 +71,7 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>% |
|
|
|
filter(dummy == last(dummy)) %>% |
|
|
|
select(-dummy, -uf_date_ferm) %>% |
|
|
|
ungroup) %>% |
|
|
|
mutate(idrss = ifelse(idhosp %>% str_detect("^13"), str_c("m", idrss), idrss)) %>% # Dédoublonnage rss maternité 2013 |
|
|
|
mutate(idrss = ifelse(idhosp %>% as.numeric < 500000000, str_c("m", idrss), idrss)) %>% # Dédoublonnage rss maternité 2013 |
|
|
|
mutate(idhosp = idhosp %>% str_replace_all(" ", "")) %>% |
|
|
|
mutate(duree_rum = date_sortie - date_entree) %>% # durée rum |
|
|
|
left_join(group_by(., idrss) %>% |
|
|
|
|
