data-raw/create_DRG_types.R

In INESSSQC/variation: Analyse Coefficient Variation Systématique

library(data.table)
aprdrg <- readRDS("V:/GI-Data/_Variation_hospit/BD/aprdrg_2006_2016.rds")

#### Médecine ####
## MEDCHIR = 1 = MÉDECINE
DRG_med <- aprdrg[MEDCHIR == 1]
saveRDS(DRG_med, "V:/GI-Data/_Variation_hospit/BD/DRG_med.rds")

#### Chirurgie avec admin ####
## MEDCHIR = 2 = CHIRURGIE  &  DRG_CH1J = NA = aucun APR-DRG de chirurgie d'un jour
DRG_ch_adm <- aprdrg[MEDCHIR == 2 & is.na(DRG_CH1J)]
saveRDS(DRG_ch_adm, "V:/GI-Data/_Variation_hospit/BD/DRG_ch_adm.rds")

#### Chirurgie d'un jour ####
## MEDCHIR = 2 = CHIRURGIE  &  DRG_CH1J != NA
DRG_ch1j <- aprdrg[MEDCHIR == 2 & !is.na(DRG_CH1J)]
saveRDS(DRG_ch1j, "V:/GI-Data/_Variation_hospit/BD/DRG_ch1j.rds")