Intitulé du référentiel : spe_pharma_ssr

Mise à jour : 23 juin 2021

Le référentiel comprend les spécialités pharmaceutiques SSR historicisées depuis le 1er janvier 2017

Dernière version : 2021 rectificatif 2 du 18 juin 2021

Variables du référentiel

ucd_ssr_7 = code UCD sur 7 positions
ucd_ssr_13 = code UCD sur 13 positions
ucd_ssr_lib = libellé de l’UCD
ucd_dci = dénomination commune internationale de l’UCD
ucd_debut_date = date de début de validité de l’UCD en tant que spécialité pharmaceutique SSR
ucd_fin_date = date de fin de validité de l’UCD en tant que spécialité pharmaceutique SSR
ucd_debut_jour = jour de ucd_debut_date
ucd_debut_mois = mois de ucd_debut_date
ucd_debut_annee = année de ucd_debut_date
ucd_fin_jour = jour de ucd_fin_date
ucd_fin_mois = mois de ucd_fin_date
ucd_fin_annee = année de ucd_fin_date

#> Rows: 1,355
#> Columns: 12
#> $ ucd_ssr_7       <chr> "9000368", "9000369", "9000370", "9000720", "900072...
#> $ ucd_ssr_13      <chr> "3400890003681", "3400890003698", "3400890003704", ...
#> $ ucd_ssr_lib     <chr> "ERLOTINIB KRK 100MG CPR", "ERLOTINIB KRK 150MG CPR...
#> $ ucd_debut_jour  <chr> "01", "01", "01", "01", "01", "01", "01", "01", "01...
#> $ ucd_debut_mois  <chr> "01", "01", "01", "01", "01", "01", "01", "01", "06...
#> $ ucd_debut_annee <chr> "2021", "2021", "2021", "2021", "2021", "2021", "20...
#> $ ucd_fin_jour    <chr> "31", "31", "31", "31", "31", "31", "31", "31", "31...
#> $ ucd_fin_mois    <chr> "12", "12", "12", "12", "12", "12", "12", "12", "12...
#> $ ucd_fin_annee   <chr> "2199", "2199", "2199", "2199", "2199", "2199", "20...
#> $ ucd_debut_date  <chr> "2021-01-01", "2021-01-01", "2021-01-01", "2021-01-...
#> $ ucd_fin_date    <chr> "2199-12-31", "2199-12-31", "2199-12-31", "2199-12-...
#> $ ucd_dci         <chr> "ERLOTINIB", "ERLOTINIB", "ERLOTINIB", "BACLOFENE",...

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: 15 x 3
#>      NAS UCD     n_adm
#>    <int> <chr>   <int>
#>  1     1 9262285     3
#>  2     2 9339384     2
#>  3     3 9262285     1
#>  4     4 9348584     2
#>  5     5 9190166     1
#>  6     6 9348590     3
#>  7     7 9166966     2
#>  8     8 9170583     1
#>  9    10 9262285     2
#> 10    10 9339384     1
#> 11    10 9339384     3
#> 12    11 9339384     2
#> 13    12 9190166     1
#> 14    13 9294285    16
#> 15    13 9294285    14

Attribution du libellé aux UCD

library(refpmsi)
library(dplyr)

jeu_ucd_libelle <- jeu_ucd %>%
  dplyr::left_join(refpmsi::refpmsi("spe_pharma_ssr") %>%
                     dplyr::select(ucd_ssr_7,ucd_ssr_lib) %>%
                     # dédoublonnage : cf cas des UCD supprimés puis réintroduits
                     # exemple avec le baclofène UCD 9170583 dans jeu_ucd
                     dplyr::distinct(),
                   by = c("UCD" = "ucd_ssr_7"))
jeu_ucd_libelle
#> # A tibble: 15 x 4
#>      NAS UCD     n_adm ucd_ssr_lib                        
#>    <int> <chr>   <int> <chr>                              
#>  1     1 9262285     3 ACTOSOLV 100000 UI PDR INJ         
#>  2     2 9339384     2 ZARZIO 30 MUI SOL INJ SER          
#>  3     3 9262285     1 ACTOSOLV 100000 UI PDR INJ         
#>  4     4 9348584     2 BACLOFENE SUN 10MG/20ML SOL INJ AMP
#>  5     5 9190166     1 GRANOCYTE 34 INJ FL+SRG            
#>  6     6 9348590     3 BACLOFENE SUN 10MG/5ML SOL INJ AMP 
#>  7     7 9166966     2 DYSPORT 500U SPEYWOOD PDR INJ      
#>  8     8 9170583     1 LIORESAL 0,05MG/1ML SOL INJ AMP    
#>  9    10 9262285     2 ACTOSOLV 100000 UI PDR INJ         
#> 10    10 9339384     1 ZARZIO 30 MUI SOL INJ SER          
#> 11    10 9339384     3 ZARZIO 30 MUI SOL INJ SER          
#> 12    11 9339384     2 ZARZIO 30 MUI SOL INJ SER          
#> 13    12 9190166     1 GRANOCYTE 34 INJ FL+SRG            
#> 14    13 9294285    16 COLIMYCINE 1MUI PDR ET SOL INH     
#> 15    13 9294285    14 COLIMYCINE 1MUI PDR ET SOL INH

Nouvelles spécialités pharmaceutiques SSR actives depuis le 1er janvier 2021

library(refpmsi)
library(dplyr)

new_spe_pharma_ssr_2021 <- refpmsi::refpmsi("spe_pharma_ssr") %>%
  dplyr::filter(ucd_debut_date >= as.Date("2021-01-01")) %>%
  dplyr::select(ucd_ssr_7,ucd_ssr_lib, ucd_debut_date, ucd_fin_date)

nrow(new_spe_pharma_ssr_2021)
head(new_spe_pharma_ssr_2021)
#> [1] 64
#> # A tibble: 6 x 4
#>   ucd_ssr_7 ucd_ssr_lib                              ucd_debut_date ucd_fin_date
#>   <chr>     <chr>                                    <chr>          <chr>       
#> 1 9000368   ERLOTINIB KRK 100MG CPR                  2021-01-01     2199-12-31  
#> 2 9000369   ERLOTINIB KRK 150MG CPR                  2021-01-01     2199-12-31  
#> 3 9000370   ERLOTINIB KRK 25MG CPR                   2021-01-01     2199-12-31  
#> 4 9000720   SPACYR 0,05MG/1ML SOL INJ SERINGUE PRER~ 2021-01-01     2199-12-31  
#> 5 9000721   SPACYR 10MG/20ML SOL INJ SERINGUE PRERE~ 2021-01-01     2199-12-31  
#> 6 9000722   SPACYR 40MG/20ML SOL INJ SERINGUE PRERE~ 2021-01-01     2199-12-31

Case mix en DCI

library(refpmsi)
library(dplyr)

case_mix_dci <- jeu_ucd %>%
  dplyr::left_join(refpmsi::refpmsi("spe_pharma_ssr") %>%
                     dplyr::select(ucd_ssr_7,ucd_dci) %>%
                     # dédoublonnage en faisant l'hypothèse que la DCI d'un UCD ne change pas
                     dplyr::distinct(),
                   by = c("UCD" = "ucd_ssr_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::with_groups(ucd_dci, dplyr::summarise, n_nas = dplyr::n_distinct(NAS),
                     n_ucd = dplyr::n_distinct(UCD),
                     n_adm = sum(n_adm))
case_mix_dci
#> # A tibble: 6 x 4
#>   ucd_dci                      n_nas n_ucd n_adm
#> * <chr>                        <int> <int> <int>
#> 1 BACLOFENE                        3     3     6
#> 2 COLISTINE                        1     1    30
#> 3 FILGRASTIM                       3     1     8
#> 4 LENOGRASTIM                      2     1     2
#> 5 TOXINE BOTULINIQUE DE TYPE A     1     1     2
#> 6 UROKINASE                        3     1     6