In INESSS-QC/admissibilite1: Admissibilité des individus

# Packages
library(data.table)
library(stringr)
library(lubridate)
library(readxl)
library(kableExtra)

# Extraction SQL
DT <- as.data.table(readRDS("V:/GI-Data/_ADMIS/tests-fcts/Comparaison Quebec-PRIOR/test_comparaison.rds"))
DT[, PER_ADMIS := as.logical(PER_ADMIS)]
DT[, `:=` (DDP = str_sub(DDP, 1, 7),
           DFP = str_sub(DFP, 1, 7))]
setorder(DT, src, DDP)

# Fichier Comparatif
COMPAR <- as.data.table(read_xlsx(
  "V:/GI-Data/_ADMIS/tests-fcts/Comparaison Quebec-PRIOR/DIFFRENCE_RPAM2018_QC_VS_RAMQ_MED_V2.XLSX",
  sheet = "DIFFRENCE_RPAM2018_QC_VS_RAMQ_M"
))
COMPAR <- COMPAR[
  BENF_NO_INDIV_BEN_BANLS %in% DT$ID,
  .(ID = BENF_NO_INDIV_BEN_BANLS,
    NBRE_JRS_RETENU_QC, NBRE_JRS_RETENU_RAMQ)
]
COMPAR[is.na(NBRE_JRS_RETENU_QC), NBRE_JRS_RETENU_QC := 0]
COMPAR[is.na(NBRE_JRS_RETENU_RAMQ), NBRE_JRS_RETENU_RAMQ := 0]

Cas 1 - Méthode Globale < PRIOR

Exemple 1

Extraction SQL :

kable(
  DT[ID == 51367895, .(DDP, DFP, code, src, PER_ADMIS)],
  format = "html"
) %>% kable_styling(font_size = 12)

Fichier comparatif du 2018-04-01 au 2019-03-31 :

kable(
  COMPAR[ID == 51367895, .(NBRE_JRS_RETENU_QC, NBRE_JRS_RETENU_RAMQ)]
) %>% kable_styling(font_size = 12)

---

Cas 1 - Méthode Globale < PRIOR

Exemple 2

Extraction SQL :

kable(
  DT[ID == 151759292, .(DDP, DFP, code, src, PER_ADMIS)],
  format = "html"
) %>% kable_styling(font_size = 12)

Fichier comparatif du 2018-04-01 au 2019-03-31 :

kable(
  COMPAR[ID == 151759292, .(NBRE_JRS_RETENU_QC, NBRE_JRS_RETENU_RAMQ)]
) %>% kable_styling(font_size = 12)

---

Cas 2 - Méthode Globale > PRIOR

Exemple 1

Extraction SQL :

kable(
  DT[ID == 50150596, .(DDP, DFP, code, src, PER_ADMIS)],
  format = "html"
) %>% kable_styling(font_size = 12)

Fichier comparatif du 2018-04-01 au 2019-03-31:

kable(
  COMPAR[ID == 50150596, .(NBRE_JRS_RETENU_QC, NBRE_JRS_RETENU_RAMQ)]
) %>% kable_styling(font_size = 12)

---

Cas 2 - Méthode Globale > PRIOR

Exemple 2

Extraction SQL :

kable(
  DT[ID == 50949690, .(DDP, DFP, code, src, PER_ADMIS)],
  format = "html"
) %>% kable_styling(font_size = 12)

Fichier comparatif du 2018-04-01 au 2019-03-31 :

kable(
  COMPAR[ID == 50949690, .(NBRE_JRS_RETENU_QC, NBRE_JRS_RETENU_RAMQ)]
) %>% kable_styling(font_size = 12)

---

INESSS-QC/admissibilite1 documentation built on Aug. 7, 2020, 9:39 a.m.