DMI - LPP

Variables

dmi_en_sus_code = code LPP des dispositifs médicaux pris en charge en sus
dmi_en_sus_libelle = libellé des DMI en sus
dmi_en_sus_evenement = inscription, suppression du DMI de la liste des DMI en sus
dmi_en_sus_date_publication = date de publication au JO
dmi_en_sus_date_effet = date d’entrée en vigueur du DMI en sus (note : les dates d’effet non affichées de la source ont été calculées par nos soins au lendemain de la date de publication)

#> Rows: 7,918
#> Columns: 5
#> $ dmi_en_sus_date_publication <chr> "2024-04-30", "2024-04-30", "2024-04-30", ~
#> $ dmi_en_sus_date_effet       <chr> "2024-05-12", "2024-05-12", "2024-05-12", ~
#> $ dmi_en_sus_libelle          <chr> "Implants vasculaires", "Implants vasculai~
#> $ dmi_en_sus_code             <chr> "3171825", "3168415", "3152650", "3147034"~
#> $ dmi_en_sus_evenement        <chr> "suppression", "suppression", "suppression~

Variables

lpp_code = code LPP
lpp_libelle = libellé LPP
lpp_arborescence_1 = 1er niveau d’arborescence de la hiérarchie des LPP
lpp_arborescence_2 = 2eme niveau d’arborescence de la hiérarchie des LPP
lpp_arborescence_3 = 3eme niveau d’arborescence de la hiérarchie des LPP
lpp_date_fin = date de fin du code LPP

#> Rows: 30,346
#> Columns: 6
#> $ lpp_code           <chr> "2733563", "2733617", "2733698", "2733706", "273372~
#> $ lpp_libelle        <chr> "vi4zg23", "ri8902", "ri1098", "rt29c14", "ai3t002"~
#> $ lpp_arborescence_1 <int> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, ~
#> $ lpp_arborescence_2 <int> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, ~
#> $ lpp_arborescence_3 <int> 2, 4, 4, 4, 2, 4, 4, 1, 2, 4, 4, 2, 2, 2, 4, 2, 1, ~
#> $ lpp_date_fin       <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,~

Variables

titre = code des titres LPP. Correspond au 1er niveau d’arborescence LPP
titre_libelle = libellé des titres LPP
sous_chapitre_niveau_1 = code du 1er niveau des sous-chapitres LPP. Correspond au 2eme niveau d’arborescence LPP
sous_chapitre_niveau_1_libelle = libellé des codes du 1er niveau des sous-chapitres LPP.
sous_chapitre_niveau_2 = code du 2eme niveau des sous-chapitres LPP. Correspond au 3eme niveau d’arborescence LPP
sous_chapitre_niveau_1_libelle = libellé des codes du 2eme niveau des sous-chapitres LPP.

#> Rows: 93
#> Columns: 6
#> $ titre                          <chr> "1", "1", "1", "1", "1", "1", "1", "1",~
#> $ titre_libelle                  <chr> "dm pour traitements, aides a la vie, a~
#> $ sous_chapitre_niveau_1         <chr> "1_1", "1_1", "1_1", "1_1", "1_1", "1_1~
#> $ sous_chapitre_niveau_1_libelle <chr> "dm, materiels et produits pour le trai~
#> $ sous_chapitre_niveau_2         <chr> "1_1_1", "1_1_2", "1_1_3", "1_1_4", "1_~
#> $ sous_chapitre_niveau_2_libelle <chr> "dm pour traitement des maladies respir~

Référentiel des libellés des DMI en sus

# on retient pour chaque DMI en sus la version du libellé le plus récent par rapport au code du DMIMI
dmi_en_sus <- refpmsi("dmi_en_sus")
dmi_en_sus_libelle <- dmi_en_sus %>% 
    dplyr::filter(dmi_en_sus_date_effet == max(dmi_en_sus_date_effet),
                  dplyr::row_number() == 1L,
                  .by = c(dmi_en_sus_code)) %>% 
    dplyr::distinct(dmi_en_sus_code, dmi_en_sus_libelle)
dmi_en_sus_libelle
#> # A tibble: 6,057 x 2
#>    dmi_en_sus_code dmi_en_sus_libelle  
#>    <chr>           <chr>               
#>  1 3171825         Implants vasculaires
#>  2 3168415         Implants vasculaires
#>  3 3152650         Implants vasculaires
#>  4 3147034         Implants vasculaires
#>  5 3110166         Implants vasculaires
#>  6 3107856         Implants vasculaires
#>  7 5171203         Stents retrievers   
#>  8 5175862         Stents retrievers   
#>  9 3169952         Substituts osseux   
#> 10 3196660         Substituts osseux   
#> # i 6,047 more rows