Spécialités pharmaceutiques SMR

Intitulé du référentiel : specialites_pharmaceutiques_smr

Mise à jour : 18 avril 2025

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

Version mars 2025

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

#> Rows: 216
#> Columns: 6
#> $ code_les                            <chr> "S000013", "S000026", "S000752", "…
#> $ denomination_commune_internationale <chr> "alectinib", "alectinib", "vutrisi…
#> $ ucd_7                               <chr> "9426485", "9426485", "9002846", "…
#> $ ucd_13                              <chr> "3400894264859", "3400894264859", …
#> $ date_debut                          <chr> "2023-07-01", "2023-07-01", "2025-…
#> $ ucd_libelle                         <chr> "ALECENSA 150MG GELULE", "ALECENSA…

Exemples

Soit jeu_specialites_pharmaceutiques_smr le jeu de données suivant composé manuellement avec des variables que l’on peut retrouver dans un FICHCOMP LES SMR

#> # A tibble: 3 × 3
#>     nas ucd     nb_administre
#>   <int> <chr>           <int>
#> 1     1 9426485             3
#> 2     2 9289746             2
#> 3     3 9360734             1

Attribution du libellé aux spécialités pharmaceutiques SMR

# library(dplyr)

specialites_pharmaceutiques_smr <- refpmsi::refpmsi(specialites_pharmaceutiques_smr)

jeu_specialites_pharmaceutiques_smr_libelle <- jeu_specialites_pharmaceutiques_smr %>% 
    dplyr::left_join(specialites_pharmaceutiques_smr %>% 
                         # distinct() car les code_les produisent des doublons par ucd dans le référentiel
                         dplyr::distinct(ucd_7,ucd_libelle),
                     join_by(ucd == ucd_7))
jeu_specialites_pharmaceutiques_smr_libelle
#> # A tibble: 3 × 4
#>     nas ucd     nb_administre ucd_libelle                       
#>   <int> <chr>           <int> <chr>                             
#> 1     1 9426485             3 ALECENSA 150MG GELULE             
#> 2     2 9289746             2 BOTOX 50U ALLERGAN PDR INJ        
#> 3     3 9360734             1 TEICOPLANINE VIATRIS 200MG PDR INJ

Case mix spécialités pharmaceutiques SMR en DCI

# library(dplyr)

specialites_pharmaceutiques_smr <- refpmsi::refpmsi(specialites_pharmaceutiques_smr)

casemix_specialites_pharmaceutiques_smr_dci <- jeu_specialites_pharmaceutiques_smr %>%
    dplyr::left_join(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::summarise(.by = denomination_commune_internationale,
                     nb_nas = dplyr::n_distinct(nas),
                     nb_ucd = dplyr::n_distinct(ucd),
                     # argument na.rm = TRUE pour gérer les situations où pas de nb_administre
                     nb_administre = sum(nb_administre, na.rm = TRUE))
casemix_specialites_pharmaceutiques_smr_dci
#> # A tibble: 3 × 4
#>   denomination_commune_internationale nb_nas nb_ucd nb_administre
#>   <chr>                                <int>  <int>         <int>
#> 1 alectinib                                1      1             3
#> 2 toxine botulique type A                  1      1             2
#> 3 Teicoplanine                             1      1             1

Source

Spécialités pharmaceutiques SMR version mars 2025