Spécialités pharmaceutiques SSR
Source :vignettes/specialites_pharmaceutiques_ssr.Rmd
specialites_pharmaceutiques_ssr.RmdSpécialités pharmaceutiques SSR
Intitulé du référentiel : spe_pharma_ssr
Mise à jour : 7 mars 2023
Le référentiel comprend les spécialités pharmaceutiques SSR avec leurs historiques.
Variables
ucd_7 = code UCD sur 7 positions
ucd_13 = code UCD sur 13 positions
ucd_lib = libellé de l’UCD
denomination_commune = dénomination commune
date_debut = date de début de validité de la spécialité
pharmaceutique SSR
date_fin = date de fin de validité de la spécialité
pharmaceutique SSR
#> Rows: 1,534
#> Columns: 6
#> $ ucd_7 <chr> "9000011", "9000012", "9000098", "9000202", "9000~
#> $ ucd_13 <chr> "3400890000116", "3400890000123", "3400890000987"~
#> $ ucd_lib <chr> "TEICOPLANINE HKM 200MG PDR INJ", "TEICOPLANINE H~
#> $ denomination_commune <chr> "TEICOPLANINE", "TEICOPLANINE", "AZACITIDINE", "A~
#> $ date_debut <chr> "2022-01-01", "2022-01-01", "2023-03-01", "2023-0~
#> $ date_fin <chr> "2199-12-31", "2199-12-31", "2199-12-31", "2199-1~Spécialités pharmaceutiques SSR Libellés
Intitulé du référentiel : spe_pharma_ssr_lib
Mise à jour : 7 mars 2023
Le référentiel comprend les spécialités pharmaceutiques SSR dédoublonnées avec la version la plus récente de chaque spécialité pharmaceutique SSR.
Code
R pour générer le référentiel à partir du référentiel
spe_pharma_ssr
Variables
ucd_7 = code UCD sur 7 positions
ucd_13 = code UCD sur 13 positions
ucd_lib = libellé de l’UCD
denomination_commune = dénomination commune
date_debut = date de début de validité la plus récente
de la spécialité pharmaceutique SSR
date_fin = date de fin de validité la plus récente de
la spécialité pharmaceutique SSR
#> Rows: 1,524
#> Columns: 6
#> $ ucd_7 <chr> "9000011", "9000012", "9000098", "9000202", "9000~
#> $ ucd_13 <chr> "3400890000116", "3400890000123", "3400890000987"~
#> $ ucd_lib <chr> "TEICOPLANINE HKM 200MG PDR INJ", "TEICOPLANINE H~
#> $ denomination_commune <chr> "TEICOPLANINE", "TEICOPLANINE", "AZACITIDINE", "A~
#> $ date_debut <chr> "2022-01-01", "2022-01-01", "2023-03-01", "2023-0~
#> $ date_fin <chr> "2199-12-31", "2199-12-31", "2199-12-31", "2199-1~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 14Attribution du libellé aux UCD
library(refpmsi)
library(dplyr)
jeu_ucd_libelle <- jeu_ucd %>%
dplyr::left_join(refpmsi::refpmsi("spe_pharma_ssr") %>%
dplyr::select(ucd_7,ucd_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_7"))
jeu_ucd_libelle#> # A tibble: 15 x 4
#> nas ucd n_adm ucd_lib
#> <int> <chr> <int> <chr>
#> 1 1 9262285 3 ACTOSOLV UROKINASE 100 000UI PDR INJ
#> 2 2 9339384 2 ZARZIO 30 MUI SOL INJ SER
#> 3 3 9262285 1 ACTOSOLV UROKINASE 100 000UI PDR INJ
#> 4 4 9348584 2 BACLOFENE SUN 10 MG SOL INJ PERF
#> 5 5 9190166 1 GRANOCYTE 34 MUI PDR ET SOL INJ SER
#> 6 6 9348590 3 BACLOFENE SUN 10 MG SOL INJ
#> 7 7 9166966 2 DYSPORT 500U SPEYWOOD PDR INJ
#> 8 8 9170583 1 LIORESAL 0,05 MG SOL INJ
#> 9 10 9262285 2 ACTOSOLV UROKINASE 100 000UI 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 MUI PDR ET SOL INJ SER
#> 14 13 9294285 16 COLIMYCINE 1MUI PDR ET SOL INH
#> 15 13 9294285 14 COLIMYCINE 1MUI PDR ET SOL INHCase mix en DCI
library(refpmsi)
library(dplyr)
case_mix_dci <- jeu_ucd %>%
dplyr::left_join(refpmsi::refpmsi("spe_pharma_ssr") %>%
dplyr::select(ucd_7, denomination_commune) %>%
# dédoublonnage en faisant l'hypothèse que la DCI d'un UCD ne change pas
dplyr::distinct(),
by = c("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::with_groups(denomination_commune, 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
#> denomination_commune 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 BOTULIQUE 1 1 2
#> 6 UROKINASE 3 1 6