In DenisGUSTIN/refpmsi: Referentiels PMSI

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(dplyr)
library(refpmsi)

Spécialités pharmaceutiques SMR

Intitulé du référentiel : specialites_pharmaceutiques_smr

Mise à jour : 25 mai 2024

Référentiel des spécialités pharmaceutiques SMR enrichi avec les libellés des UCD.

Version février 2024

Variables

ucd_7 = code UCD sur 7 positions
ucd_13 = code UCD sur 13 positions
code_les = code LES (Liste En Sus)
ucd_libelle = libellé de l'UCD
denomination_commune_internationale = dénomination commune internationale
date_debut = date de début de validité de la spécialité pharmaceutique SMR

refpmsi::refpmsi("specialites_pharmaceutiques_smr") %>% dplyr::glimpse()

Exemples

Soit jeu_ucd le jeu de données suivant composé manuellement avec des variables que l'on peut retrouver dans un FICHCOMP "médicaments (UCD)" SSR

jeu_ucd <- tibble::tibble(nas = as.integer(c(1:3)),
                          ucd = c("9426485","9289746","9360734"),
                          nb_adm = as.integer(c(3,2,1)))
jeu_ucd

Attribution du libellé aux UCD

library(refpmsi)
library(dplyr)

jeu_ucd_libelle <- jeu_ucd %>% 
    dplyr::left_join(refpmsi::refpmsi("specialites_pharmaceutiques_smr") %>% 
                         dplyr::distinct(ucd_7,ucd_libelle),
                     join_by(ucd == ucd_7))
jeu_ucd_libelle

jeu_ucd_libelle <- jeu_ucd %>% 
    dplyr::left_join(refpmsi::refpmsi("specialites_pharmaceutiques_smr") %>% 
                         dplyr::distinct(ucd_7,ucd_libelle),
                     join_by(ucd == ucd_7))
jeu_ucd_libelle

Case mix en DCI

library(refpmsi)
library(dplyr)

case_mix_dci <- jeu_ucd %>%
    dplyr::left_join(refpmsi::refpmsi("specialites_pharmaceutiques_smr") %>% 
                         dplyr::select(ucd_7, denomination_commune_internationale) %>% 
                         # dédoublonnage en faisant l'hypothèse que la DCI d'un UCD ne change pas
                         dplyr::distinct(),
                     join_by(ucd == ucd_7)) %>%
    # regroupement par DCI
    # calcul du nombre de NAS différents avec au moins 1 UCD
    # calcul du nombre d'UCD différentes
    # calcul du nombre total des administrations des UCD
    dplyr::group_by(denomination_commune_internationale) %>% 
    dplyr::summarise(nb_nas = dplyr::n_distinct(nas),
                     nb_ucd = dplyr::n_distinct(ucd),
                     nb_adm = sum(nb_adm))
case_mix_dci

case_mix_dci <- jeu_ucd %>%
    dplyr::left_join(refpmsi::refpmsi("specialites_pharmaceutiques_smr") %>% 
                         dplyr::select(ucd_7, denomination_commune_internationale) %>% 
                         # dédoublonnage en faisant l'hypothèse que la DCI d'un UCD ne change pas
                         dplyr::distinct(),
                     join_by(ucd == ucd_7)) %>%
    # regroupement par DCI
    # calcul du nombre de NAS différents avec au moins 1 UCD
    # calcul du nombre d'UCD différentes
    # calcul du nombre total des administrations des UCD
    dplyr::group_by(denomination_commune_internationale) %>% 
    dplyr::summarise(nb_nas = dplyr::n_distinct(nas),
                     nb_ucd = dplyr::n_distinct(ucd),
                     nb_adm = sum(nb_adm))
case_mix_dci