smr_dependance_maximale_hc

smr_dependance_maximale_hc

library(dplyr)

# smr = .rds via PMSISoft SMR accès Standard
sejour_dependance_maximale <- smr$rhs$rhs %>% 
    dplyr::select(nas,no_semaine,annee_semaine,ordre_rhs,no_um,annee_import,type_hospitalisation,
                  date_fin_sejour,gme,
                  starts_with("dependance_")) %>% 
    # filtrage HC, séjours terminés et une année (2023 par ex)
    dplyr::filter(type_hospitalisation == "1", !is.na(date_fin_sejour), annee_import == "2023") %>% 
    dplyr::group_by(nas) %>% 
    # variable dependance_physique déjà calculée en accès Professionnel
    dplyr::mutate(dependance_physique = dependance_habillage+dependance_deplacement+dependance_alimentation+dependance_continence) %>% 
    dplyr::mutate(dependance_physique_entree = dependance_physique[ordre_rhs = 1],
                  dependance_physique_sortie = dependance_physique[ordre_rhs = max(ordre_rhs)],
                  dependance_physique_maximale = max(dependance_physique),
                  n_dependance_physique_maximale = sum(dependance_physique == dependance_physique_maximale)) %>% 
    dplyr::ungroup() %>% 
    # on passe des RHS aux séjours via des variables liées aux séjours
    dplyr::distinct(nas,gme,dependance_physique_entree,dependance_physique_sortie,
                    dependance_physique_maximale,n_dependance_physique_maximale)

# requête "Séjours avec dépendance physique maximale du séjour atteinte en entrée"
sejour_dependance_maximale %>% 
    dplyr::filter(dependance_physique_entree == dependance_physique_maximale)

# requête "Séjours avec dépendance physique maximale atteinte sur un seul RHS"
sejour_dependance_maximale %>% 
    dplyr::filter(n_dependance_physique_maximale == 1)