Valorisation T2A des suppléments REA

Introduction

On suppose qu’on est en ex-DGF

On associe au nb_supplements_rea (variable native des rsa) le tarif unitaire du supplément REA correspondant à l’année PMSI du séjour.

Ce tarif du supplément REA est récupéré via le référentiel annualisé supplements_mco_public du package refpmsi

Code

library(dplyr)
library(refpmsi)

supplements_mco_public <- refpmsi::refpmsi(supplements_mco_public)

supplements_rea_t2a <- mco_rsa$rsa %>% 
    dplyr::select(no_sequentiel_sejour,mois_sortie_sejour,annee_sortie_sejour,nb_supplements_rea) %>% 
    dplyr::mutate(annee_pmsi_sejour = ifelse(mois_sortie_sejour <= "02",as.character(as.integer(annee_sortie_sejour)-1L),annee_sortie_sejour)) %>% 
    dplyr::left_join(supplements_mco_public %>% dplyr::filter(supplement_mco_code == "REA"),
                     by = join_by(annee_pmsi_sejour == annee_pmsi)) %>% 
    dplyr::mutate(supplements_rea_t2a = nb_supplements_rea*supplement_mco_tarif)
supplements_rea_t2a

# Calcul du cumul de la valorisation T2A brute des suppléments REA
total_supplements_rea_t2a <- sum(supplements_rea_t2a$supplements_rea_t2a)
total_supplements_rea_t2a

Commentaires

Ligne 6 : mco_rsa$rsa est un tibble des variables de la partie fixe des RSA. Voir Guide des scripts - Jeux de données

Ligne 8 : calcul de la variable annee_pmsi_sejour à partir des 2 variables mois_sortie_sejour et annee_sortie_sejour (variables natives rsa)

Les valorisations T2A brutes des suppléments sont calculées dans l’écran Activité MCO > Synthèse T2A de PMSISoft MCO

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