library(dplyr)
vect_fa_temps_complet <- c('01','01D','01S','01P','02','03','04','05','06','07')
sejour_selected <- psy_rps$rps %>%
dplyr::distinct(no_sejour,no_ipp,forme_activite,nb_jours_presence,date_entree_sejour,date_sortie_sejour) %>%
dplyr::filter(forme_activite %in% c('01','01D','01S','01P','02','03','04','05','06','07'),
date_entree_sejour == date_sortie_sejour) %>%
dplyr::distinct(no_sejour,no_ipp,date_entree_sejour,date_sortie_sejour)
sejour_selected
Séjours temps complet avec entrée et sortie le même jour
Introduction
On produit un tibble de séjours, puis on retient les séjours relevant d’une forme d’activité en temps complet, puis on retient les séjours pour lesquels date_entree_sejour == date_sortie_sejour.
Code
Commentaires
Ligne 3 : le vecteur vect_fa_temps_complet
est constitué des codes des formes d’activité temps complet
Ligne 5 : psy_rps$rps
est un tibble des variables de la partie fixe d’un fichier RPS. Voir Guide des scripts - Jeux de données
Ligne 6 : on ne sélectionne que des variables liées à un séjour. Le dplyr::distinct()
dédoublonne et ne sélectionne donc que des séjours
Ligne 8 : en l’absence de date_sortie_sejour (donc quand date_sortie_sejour a la valeur NA
), le dplyr::fitler()
ne retient pas la ligne. Les séjours sans date de sortie ne sont donc pas retenus.
Cette requête est réalisable dans PMSISoft PSY dans l’écran Séjours > Base des séjours
via le filtrage de périmètre Forme d'activité == codes temps_complet
et le filtrage de variable nb_jp_sejour Egal à 0
Etre tenu au courant de la publication des nouveaux scripts PMSI R