référentiel cim_lib

library(refpmsi)
library(dplyr)

# version cim_lib minimale avec code et libellé CIM-10
cim <- refpmsi::refpmsi("cim")
cim_lib <- cim %>% 
    dplyr::select(cim_code,cim_lib,annee_pmsi) %>%
    dplyr::group_by(cim_code) %>%
    dplyr::arrange(desc(annee_pmsi), by_groups = TRUE) %>% 
    dplyr::filter(dplyr::row_number() == 1) %>%
    dplyr::ungroup() %>% 
    dplyr::select(cim_code,cim_lib)