RHS CM 08 d’au moins 5 JP avec 0 acte CSARR

Introduction

Un contrôle qualité classique.

On filtre les RHS sur les 3 variables cm, nb_jp_rhs (à produire) et nb_csarr

Code

library(dplyr)

rhs_selected <- smr_rhs$rhs %>% 
    dplyr::select(nas,no_semaine,no_um,cm,jp_we,jp_hors_we,nb_csarr) %>% 
    dplyr::mutate(across(c(jp_we,jp_hors_we), ~ stringr::str_count(.x,"1")),
                  nb_jp_rhs = jp_we+jp_hors_we) %>% 
    dplyr::filter(cm == "08", nb_jp_rhs == 5, nb_csarr == 0)
rhs_selected

Commentaires

Ligne 3 : smr_rhs$rhs est un tibble des variables de la partie fixe des RHS

Ligne 5-6 : voir script SMR “Nombre de JP par RHS”

Cette requêtes est réalisable dans PMSISoft SMR dans l’écran RHS > Base des RHS via le filtrage de périmètre cm == "08" et le filtrage de variable nb_jp_rhs Supérieur ou égal à 5 ET nb_acte_csarr Egal à 0

Etre tenu au courant de la publication des nouveaux scripts PMSI R