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

#> Rows: 157
#> Columns: 6
#> $ ucd_7                               <chr> "9426485", "9426485", "9294486", "~
#> $ ucd_13                              <chr> "3400894264859", "3400894264859", ~
#> $ code_les                            <chr> "S000013", "S000026", "S000039", "~
#> $ denomination_commune_internationale <chr> "alectinib", "alectinib", "toxine ~
#> $ date_debut                          <chr> "2023-07-01", "2023-07-01", "2023-~
#> $ ucd_libelle                         <chr> "ALECENSA 150MG GELULE", "ALECENSA~

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

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

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

#> # A tibble: 3 x 4
#>     nas ucd     nb_adm 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 MYL 200MG PDR INJ

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

#> # A tibble: 3 x 4
#>   denomination_commune_internationale nb_nas nb_ucd nb_adm
#>   <chr>                                <int>  <int>  <int>
#> 1 Teicoplanine                             1      1      1
#> 2 alectinib                                1      1      3
#> 3 toxine botulique type A                  1      1      2

Source

“Spécialités pharmaceutiques SMR” version février 2024