Exemples d’accès à une table
CCAM
library(dplyr, warn.conflicts = FALSE)
library(nomensland)
ccam <- get_table('ccam_actes')
dplyr::glimpse(ccam)
#> Rows: 8,542
#> Columns: 7
#> $ code <chr> "AAFA001", "AAFA002", "AAFA003", "AAFA004", "AAFA00…
#> $ libelle_court <chr> "exérèse T. intraparench cervelet craniot.", "exérè…
#> $ type_acte <chr> "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "…
#> $ compatibilite_sexe <chr> "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "…
#> $ date_debut <chr> "2005-03-01", "2005-03-01", "2005-03-01", "2005-03-…
#> $ libelle_long <chr> "Exérèse de tumeur intraparenchymateuse du cervelet…
#> $ date_fin <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…CIM-10
library(nomensland)
cim_21 <- get_table('cim', '2021')
dplyr::glimpse(cim_21)
#> Rows: 42,880
#> Columns: 7
#> $ code <chr> "A00", "A000", "A001", "A009", "A01", "A010", "A011", "A012"…
#> $ tr <chr> "3", "0", "0", "0", "3", "0", "0", "0", "0", "0", "3", "0", …
#> $ lib_court <chr> "CHOLERA", "CHOLERA A VIBRIO CHOLERAE 01, BIOVAR CHOLERAE", …
#> $ lib_long <chr> "Choléra", "Choléra à Vibrio cholerae 01, biovar cholerae", …
#> $ anseqta <chr> "2021", "2021", "2021", "2021", "2021", "2021", "2021", "202…
#> $ tssr <chr> "NNNN", "NOOO", "NOOO", "NOOO", "NNNN", "NOOO", "NOOO", "NOO…
#> $ tpsy <int> 3, 0, 0, 0, 3, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 3, 0, 0, 0, …GHM
library(nomensland)
ghm_rgp <- get_table('ghm_ghm_regroupement')
dplyr::glimpse(ghm_rgp)
#> Rows: 31,085
#> Columns: 14
#> $ ghm <chr> "01C031", "01C032", "01C033", "01C034", "01C041", "01C0…
#> $ libelle_ghm <chr> "Craniotomies pour traumatisme, âge supérieur à 17 ans,…
#> $ da <chr> "D05", "D05", "D05", "D05", "D05", "D05", "D05", "D05",…
#> $ libelle_da <chr> "Système nerveux (hors cathétérismes vasculaires diagno…
#> $ gp_cas <chr> "C02", "C02", "C02", "C02", "C02", "C02", "C02", "C02",…
#> $ libelle_gp_cas <chr> "Chirurgie du rachis, Neuro-chirurgie", "Chirurgie du r…
#> $ ga <chr> "G043", "G043", "G043", "G043", "G044", "G044", "G044",…
#> $ libelle_ga <chr> "Chirurgies SNC trauma", "Chirurgies SNC trauma", "Chir…
#> $ da_gp <chr> "D05C02", "D05C02", "D05C02", "D05C02", "D05C02", "D05C…
#> $ da_gp_ga <chr> "D05C02G043", "D05C02G043", "D05C02G043", "D05C02G043",…
#> $ anseqta <chr> "2012", "2012", "2012", "2012", "2012", "2012", "2012",…
#> $ time_i <chr> "2012", "2012", "2012", "2012", "2012", "2012", "2012",…
#> $ aso <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
#> $ racine <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…GHS
library(nomensland)
ghs <- get_table('tarifs_mco_ghs')
dplyr::glimpse(ghs)
#> Rows: 44,055
#> Columns: 12
#> $ ghs <chr> "0022", "0023", "0024", "0025", "0026", "0027", "0028", "0…
#> $ ghm <chr> "01C031", "01C032", "01C033", "01C034", "01C041", "01C042"…
#> $ libelle_ghm <chr> "Craniotomies pour traumatisme, âge supérieur à 17 ans, ni…
#> $ borne_basse <int> 4, 7, 7, 12, 3, 7, 7, 12, 3, 5, 6, 14, 3, 4, 5, 7, 0, 5, 4…
#> $ borne_haute <int> 19, 38, 79, 124, 19, 39, 66, 105, 16, 30, 65, 84, 13, 22, …
#> $ tarif_base <dbl> 3753.62, 8426.88, 12805.25, 15954.70, 5755.54, 10802.69, 1…
#> $ forfait_exb <dbl> 0.00, 4673.26, 4378.37, 3149.44, 0.00, 5047.15, 3778.00, 3…
#> $ tarif_exb <dbl> 324.05, 0.00, 0.00, 0.00, 865.97, 0.00, 0.00, 0.00, 1142.6…
#> $ tarif_exh <dbl> 116.20, 87.53, 69.99, 241.16, 143.18, 110.10, 89.45, 322.4…
#> $ date_effet <chr> "01/03/2010", "01/03/2010", "01/03/2010", "01/03/2010", "0…
#> $ anseqta <chr> "2010", "2010", "2010", "2010", "2010", "2010", "2010", "2…
#> $ time_i <chr> "2010", "2010", "2010", "2010", "2010", "2010", "2010", "2…