DIM
/
cloture
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 Commits
2 Branches
659KB
Tree: 5187b1c193
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5187b1c193'
${ noResults }
cloture/cloture.Rmd

677 lines
26KB
Raw Blame History 

  1. ```{r init, echo = F, message = F}

  2. library(DT)

  3. library(ggplot2)

  4. library(knitr)

  5. library(tidyr)

  6. library(stringr)

  7. library(dplyr)

  8. 

  9. opts_chunk$set(echo = F,

  10.                message = F,

  11.                error = F,

  12.                warning = F,

  13.                fig.width = 12,

  14.                fig.height = 7)

  15. 

  16. options(DT.options = list(paging = F,

  17.                           searching = F,

  18.                           info = ""))

  19. ```

  20. 

  21. ```{r data}

  22. load("donnees.Rdata")

  23. 

  24. mois_label <- c("Janvier",

  25.                 "Février",

  26.                 "Mars",

  27.                 "Avril",

  28.                 "Mai",

  29.                 "Juin",

  30.                 "Juillet",

  31.                 "Août",

  32.                 "Septembre",

  33.                 "Octobre",

  34.                 "Novembre",

  35.                 "Décembre")

  36. 

  37. sprintf("%02.f", mois) %>%

  38. {

  39.   previous <<- str_c("M", ., "-", annee - 1)

  40.   current <<- str_c("M", ., "-", annee)

  41.   periode <<- str_c(previous, " et de ", current)

  42. }

  43. 

  44. ```

  45. 

  46. # {.tabset}

  47. 

  48. ## Production

  49. 

  50. ### <a href="#tab1" data-toggle="collapse" class="panel-heading">Nombre total de RUM et de RSS transmis</a> {.panel .panel-default}

  51. #### {.panel-body .collapse #tab1}

  52. ```{r tab1}

  53. rum %>%

  54.   filter(annee_sortie == annee) %>%

  55.   tally %>%

  56.   bind_rows(rss %>%

  57.               filter(annee_sortie == annee) %>%

  58.               tally) %>%

  59. 

  60.   datatable(rownames = c("RUM", "RSS"),

  61.             colnames = c("Type de résumé", "Nombre produit"))

  62. ```

  63. 

  64. ### <a href="#tab2a" data-toggle="collapse" class="panel-heading">Nombre de RUM transmis par mois pour les 3 dernières années</a> {.panel .panel-default}

  65. #### {.panel-body .collapse #tab2a}

  66. ```{r tab2a}

  67. rum %>%

  68.   count(annee_sortie, mois_sortie) %>%

  69.   spread(annee_sortie, n) %>%

  70.   bind_rows(filter(., mois_sortie <= mois) %>%

  71.             select(-mois_sortie) %>%

  72.             summarise_each(funs(sum))) %>%

  73.   bind_rows(filter(., mois_sortie <= 12) %>%

  74.             select(-mois_sortie) %>%

  75.             summarise_each(funs(sum))) %>%

  76.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  77.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  78.   select(-mois_sortie) %>%

  79. 

  80.   datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%

  81.   formatPercentage(c(4,5), digits = 2)

  82. ```

  83. ```{r fig2a}

  84. rum %>%

  85.   count(annee_sortie, mois_sortie) %>%

  86.   ungroup %>%

  87. 

  88.   ggplot +

  89.     aes(x = mois_sortie,

  90.         y = n,

  91.         color = annee_sortie %>% factor,

  92.         shape = annee_sortie %>% factor) +

  93.     scale_x_discrete(labels = mois_label) +

  94.     geom_line() +

  95.     geom_point() +

  96.     labs(x = NULL,

  97.          y = NULL,

  98.          title = "RUM") +

  99.     theme(axis.text.x = element_text(angle = 45, hjust = 1),

  100.           legend.title = element_blank(),

  101.           plot.title = element_text(hjust = 0))

  102. ```

  103. 

  104. ### <a href="#tab2b" data-toggle="collapse" class="panel-heading">Nombre de RSS transmis par mois pour les 3 dernières années</a> {.panel .panel-default}

  105. #### {.panel-body .collapse #tab2b}

  106. ```{r tab2b}

  107. rss %>%

  108.   count(annee_sortie, mois_sortie) %>%

  109.   spread(annee_sortie, n) %>%

  110.   bind_rows(filter(., mois_sortie <= mois) %>%

  111.             select(-mois_sortie) %>%

  112.             summarise_each(funs(sum))) %>%

  113.   bind_rows(filter(., mois_sortie <= 12) %>%

  114.             select(-mois_sortie) %>%

  115.             summarise_each(funs(sum))) %>%

  116.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  117.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  118.   select(-mois_sortie) %>%

  119. 

  120.   datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%

  121.   formatPercentage(c(4,5), digits = 2)

  122. ```

  123. ```{r fig2b}

  124. rss %>%

  125.   count(annee_sortie, mois_sortie) %>%

  126.   ungroup %>%

  127. 

  128.   ggplot +

  129.   aes(x = mois_sortie,

  130.       y = n,

  131.       color = annee_sortie %>% factor,

  132.       shape = annee_sortie %>% factor) +

  133.   scale_x_discrete(labels = mois_label) +

  134.   geom_line() +

  135.   geom_point() +

  136.   labs(x = NULL,

  137.        y = NULL,

  138.        title = "RSS") +

  139.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  140.         legend.title = element_blank(),

  141.         plot.title = element_text(hjust = 0))

  142. ```

  143. 

  144. #### <a href="#tab3a" data-toggle="collapse" class="panel-heading">Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années</a> {.panel .panel-default}

  145. ##### {.panel-body .collapse #tab3a}

  146. ```{r tab3a}

  147. rss %>%

  148.   filter(duree_rss >= 1) %>%

  149.   count(annee_sortie, mois_sortie) %>%

  150.   spread(annee_sortie, n) %>%

  151.   bind_rows(filter(., mois_sortie <= mois) %>%

  152.             select(-mois_sortie) %>%

  153.             summarise_each(funs(sum))) %>%

  154.   bind_rows(filter(., mois_sortie <= 12) %>%

  155.             select(-mois_sortie) %>%

  156.             summarise_each(funs(sum))) %>%

  157.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  158.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  159.   select(-mois_sortie) %>%

  160. 

  161.   datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%

  162.   formatPercentage(c(4,5), digits = 2)

  163. ```

  164. ```{r fig3a}

  165. rss %>%

  166.   filter(duree_rss >= 1) %>%

  167.   count(annee_sortie, mois_sortie) %>%

  168.   ungroup %>%

  169. 

  170.   ggplot +

  171.   aes(x = mois_sortie,

  172.       y = n,

  173.       color = annee_sortie %>% factor,

  174.       shape = annee_sortie %>% factor) +

  175.   scale_x_discrete(labels = mois_label) +

  176.   geom_line() +

  177.   geom_point() +

  178.   labs(x = NULL,

  179.        y = NULL,

  180.        title = "RSS de 1 jour et +") +

  181.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  182.         legend.title = element_blank(),

  183.         plot.title = element_text(hjust = 0))

  184. ```

  185. 

  186. #### <a href="#tab3b" data-toggle="collapse" class="panel-heading">Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années</a> {.panel .panel-default}

  187. ##### {.panel-body .collapse #tab3b}

  188. ```{r tab3b}

  189. rss %>%

  190.   filter(duree_rss == 0, cmd != 28) %>%

  191.   count(annee_sortie, mois_sortie) %>%

  192.   spread(annee_sortie, n) %>%

  193.   bind_rows(filter(., mois_sortie <= mois) %>%

  194.             select(-mois_sortie) %>%

  195.             summarise_each(funs(sum))

  196.             ) %>%

  197.   bind_rows(filter(., mois_sortie <= 12) %>%

  198.             select(-mois_sortie) %>%

  199.             summarise_each(funs(sum))

  200.             ) %>%

  201.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  202.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  203.   select(-mois_sortie) %>%

  204. 

  205.   datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%

  206.   formatPercentage(c(4,5), digits = 2)

  207. ```

  208. ```{r fig3b}

  209. rss %>%

  210.   filter(duree_rss == 0, cmd != 28) %>%

  211.   count(annee_sortie, mois_sortie) %>%

  212.   ungroup %>%

  213. 

  214.   ggplot +

  215.   aes(x = mois_sortie,

  216.       y = n,

  217.       color = annee_sortie %>% factor,

  218.       shape = annee_sortie %>% factor) +

  219.   scale_x_discrete(labels = mois_label) +

  220.   geom_line() +

  221.   geom_point() +

  222.   labs(x = NULL,

  223.        y = NULL,

  224.        title = "RSS de 0 jour, hors séances") +

  225.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  226.         legend.title = element_blank(),

  227.         plot.title = element_text(hjust = 0))

  228. ```

  229. 

  230. #### <a href="#tab3c" data-toggle="collapse" class="panel-heading">Nombre de RSS de séance transmis par mois pour les 3 dernières années</a> {.panel .panel-default}

  231. ##### {.panel-body .collapse #tab3c}

  232. ```{r tab3c}

  233. rss %>%

  234.   filter(duree_rss == 0, cmd == 28) %>%

  235.   count(annee_sortie, mois_sortie) %>%

  236.   spread(annee_sortie, n) %>%

  237.   bind_rows(filter(., mois_sortie <= mois) %>%

  238.             select(-mois_sortie) %>%

  239.             summarise_each(funs(sum))) %>%

  240.   bind_rows(filter(., mois_sortie <= 12) %>%

  241.             select(-mois_sortie) %>%

  242.             summarise_each(funs(sum))) %>%

  243.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  244.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  245.   select(-mois_sortie) %>%

  246. 

  247.   datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%

  248.   formatPercentage(c(4,5), digits = 2)

  249. ```

  250. ```{r fig3c}

  251. rss %>%

  252.   filter(duree_rss == 0, cmd == 28) %>%

  253.   count(annee_sortie, mois_sortie) %>%

  254.   ungroup %>%

  255. 

  256.   ggplot +

  257.   aes(x = mois_sortie,

  258.       y = n,

  259.       color = annee_sortie %>% factor,

  260.       shape = annee_sortie %>% factor) +

  261.   scale_x_discrete(labels = mois_label) +

  262.   geom_line() +

  263.   geom_point() +

  264.   labs(x = NULL,

  265.        y = NULL,

  266.        title = "RSS de séances") +

  267.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  268.         legend.title = element_blank(),

  269.         plot.title = element_text(hjust = 0))

  270. ```

  271. 

  272. ### <a href="#tab4" data-toggle="collapse" class="panel-heading">Nombre de RUM transmis par pôle pour les 3 dernières années</a> {.panel .panel-default}

  273. ##### {.panel-body .collapse #tab4}

  274. ```{r tab4}

  275. rum %>%

  276.   filter(mois_sortie <= mois) %>%

  277.   filter(! is.na(pole_libelle)) %>%

  278.   count(pole_libelle, annee_sortie) %>%

  279.   ungroup %>%

  280.   spread(annee_sortie, n) %>%

  281.   bind_rows(select(., -pole_libelle) %>%

  282.             summarise_each(funs(sum(., na.rm = T))) %>%

  283.             mutate(pole_libelle = "TOTAL")) %>%

  284.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 2,"`)/`", annee - 2,"`"), str_c(annee, "-", annee - 2))) %>%

  285.   mutate_(.dots = setNames(str_c("(`",annee,"`-`", annee - 1,"`)/`", annee - 1,"`"), str_c(annee, "-", annee - 1))) %>%

  286. 

  287.   datatable(colnames = c("Pôle" = 1), rownames = F) %>%

  288.   formatPercentage(c(5,6), digits = 2)

  289. ```

  290. ```{r fig4}

  291. rum %>%

  292.   filter(mois_sortie <= mois) %>%

  293.   filter(! is.na(pole_libelle)) %>%

  294.   count(pole_libelle, annee_sortie) %>%

  295.   ungroup %>%

  296. 

  297.   ggplot +

  298.   aes(x = annee_sortie,

  299.       y = n,

  300.       color = pole_libelle) +

  301.   scale_x_continuous(breaks = (annee - 2):annee) +

  302.   facet_wrap(~ pole_libelle, scales = "free") +

  303.   geom_point() +

  304.   geom_line() +

  305.   labs(x = NULL,

  306.        y = NULL,

  307.        title = "RUM par pôle") +

  308.   theme(legend.position = "none",

  309.         plot.title = element_text(hjust = 0))

  310. ```

  311. 

  312. ## Exhaustivité

  313. 

  314. ### Exhaustivité des RSS en fonction du mois et de l'année de clôture

  315. 

  316. #### <a href="#tab5" data-toggle="collapse" class="panel-heading">Nombre de RSS produits et transmis, et taux d'exhaustivité : historique des clôtures de l'année</a> {.panel .panel-default}

  317. ##### {.panel-body .collapse #tab5}

  318. ```{r tab5}

  319. exhau %>%

  320.   mutate(rss_prod = rss + manq,

  321.          exh = rss / rss_prod) %>%

  322.   select(rss_prod, rss, exh) %>%

  323. 

  324.   datatable(colnames = c("Clôture", "Total RSS produits", "Nombre de RSS transmis", "Taux d'exhaustivité RSS (%)"),

  325.             rownames = mois_label) %>%

  326.   formatPercentage(3, digits = 2)

  327. 

  328. ```

  329. 

  330. #### <a href="#fig5a" data-toggle="collapse" class="panel-heading">Taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}

  331. ##### {.panel-body .collapse #fig5a}

  332. ```{r fig5a}

  333. exhau %>%

  334.   mutate(rss_prod = rss + manq,

  335.          exh = 100 * rss / rss_prod) %>%

  336. 

  337.   ggplot +

  338.   aes(x = mois,

  339.       y = exh) +

  340.   geom_point() +

  341.   geom_line() +

  342.   labs(x = NULL,

  343.        y = NULL,

  344.        title = NULL) +

  345.   scale_x_discrete(labels = mois_label) +

  346.   theme(axis.text.x = element_text(angle = 45, hjust = 1))

  347. 

  348. ```

  349. 

  350. ### Exhaustivité mensuelle de la clôture

  351. 

  352. *L'exhaustivité est calculée à partir de la base GAM*

  353. 

  354. #### <a href="#fig7" data-toggle="collapse" class="panel-heading">Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS</a> {.panel .panel-default}

  355. ##### {.panel-body .collapse #fig7}

  356. ```{r fig7}

  357. rss %>%

  358.   filter(annee_sortie == annee) %>%

  359.   count(mois_sortie) %>%

  360.   full_join(gam %>%

  361.             count(mois_sortie),

  362.             by = "mois_sortie") %>%

  363.   mutate(n = 100 * (n.x - n.y) / n.x,

  364.          n = ifelse(is.na(n), 100, n)) %>%

  365. 

  366.   ggplot +

  367.   aes(x = mois_sortie,

  368.       y = n) +

  369.   scale_x_discrete(labels = mois_label) +

  370.   geom_line() +

  371.   geom_point() +

  372.   labs(x = NULL,

  373.        y = NULL,

  374.        title = NULL) +

  375.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  376.         legend.title = element_blank(),

  377.         plot.title = element_text(hjust = 0))

  378. ```

  379. 

  380. #### <a href="#fig8" data-toggle="collapse" class="panel-heading">Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS</a> {.panel .panel-default}

  381. ##### {.panel-body .collapse #fig8}

  382. ```{r fig8}

  383. gam %>%

  384.   count(mois_sortie) %>%

  385.   full_join(data.frame(mois_sortie = setdiff(1:mois, .$mois_sortie), n = rep(0, length(setdiff(1:mois, .$mois_sortie))))) %>%

  386. 

  387.   ggplot +

  388.   aes(x = mois_sortie,

  389.       y = n) +

  390.   scale_x_discrete(labels = mois_label) +

  391.   geom_line() +

  392.   geom_point() +

  393.   labs(x = NULL,

  394.        y = NULL,

  395.        title = NULL) +

  396.   theme(axis.text.x = element_text(angle = 45, hjust = 1),

  397.         legend.title = element_blank(),

  398.         plot.title = element_text(hjust = 0))

  399. ```

  400. 

  401. ### <a href="#tab9" data-toggle="collapse" class="panel-heading">Exhaustivité par pôle et par service</a> {.panel .panel-default}

  402. #### {.panel-body .collapse #tab9}

  403. ```{r tab9}

  404. rss %>%

  405.   filter(annee_sortie == annee) %>%

  406.   count(pole_libelle, service_libelle) %>%

  407.   bind_rows(rss %>%

  408.             filter(annee_sortie == annee) %>%

  409.             count(pole_libelle)) %>%

  410.   full_join(gam %>%

  411.             count(pole_libelle, service_libelle) %>%

  412.             bind_rows(gam %>%

  413.                       count(pole_libelle)),

  414.             by = c("pole_libelle", "service_libelle")) %>%

  415.   mutate(n.y = ifelse(is.na(n.y), 0, n.y),

  416.          n.x = n.x + n.y,

  417.          exh_service = (n.x - n.y) / n.x,

  418.          pole_libelle = pole_libelle %>% factor) %>%

  419.   arrange(pole_libelle, service_libelle) %>%

  420.   mutate(service_libelle = ifelse(is.na(service_libelle), "TOTAL", service_libelle)) %>%

  421. 

  422.   datatable(colnames = c("Pôle", "Service de responsabilité", "RSS produits", "RSS manquants", "Exhaustivité"),

  423.             rownames = F) %>%

  424.   formatPercentage(5, digits = 2)

  425. ```

  426. 

  427. ## Valorisation

  428. 

  429. ### <a href="#tab10" data-toggle="collapse" class="panel-heading">Nombre et valorisation des RSA transmis, traités et valorisés</a> {.panel .panel-default}

  430. #### {.panel-body .collapse #tab10}

  431. ```{r tab10}

  432. Ovalide$SVA %>%

  433.   full_join(OvalideP$SVA, by = "A") %>%

  434.   mutate(D = C.x - C.y,

  435.          E = (C.x - C.y) / C.y) %>%

  436. 

  437.   datatable(rownames = F,

  438.             escape = F,

  439.             container = htmltools::withTags(table(class = 'display',

  440.                                                   thead(tr(th(rowspan = 2, "RSA"),

  441.                                                            th(colspan = 2, current),

  442.                                                            th(colspan = 2, previous),

  443.                                                            th(colspan = 2, "Évolution")),

  444.                                                         tr(th("Effectif"),

  445.                                                            th("Montant BR"),

  446.                                                            th("Effectif"),

  447.                                                            th("Montant BR"),

  448.                                                            th("€"),

  449.                                                            th("%"))

  450.                                                         )

  451.                                                   ))) %>%

  452.   formatCurrency(c(3,5,6), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",") %>%

  453.   formatPercentage(7, digits = 2)

  454. ```

  455. *Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`*

  456. 

  457. ### <a href="#tab11" data-toggle="collapse" class="panel-heading">Valorisation des RSA non pris en charge par l'Assurance Maladie</a> {.panel .panel-default}

  458. #### {.panel-body .collapse #tab11}

  459. ```{r tab11}

  460. Ovalide$VSS %>% select(1:3) %>%

  461.   full_join(OvalideP$VSS %>% select(1:3), by = "A") %>%

  462.   mutate(D = C.x - C.y,

  463.          E = (C.x - C.y) / C.y) %>%

  464. 

  465.   datatable(rownames = F,

  466.             container = htmltools::withTags(table(class = 'display',

  467.                                                   thead(tr(th(rowspan = 2, "Composante"),

  468.                                                            th(colspan = 2, current),

  469.                                                            th(colspan = 2, previous),

  470.                                                            th(colspan = 2, "Évolution")),

  471.                                                         tr(th("Effectif"),

  472.                                                            th("Montant BR"),

  473.                                                            th("Effectif"),

  474.                                                            th("Montant BR"),

  475.                                                            th("€"),

  476.                                                            th("%"))

  477.                                                         )

  478.                                                   )

  479.             )) %>%

  480.   formatCurrency(c(3,5,6), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",") %>%

  481.   formatPercentage(7, digits = 2)

  482. ```

  483. *Données issues des tableaux [1.V.1.VSS] A de `r periode`*

  484. 

  485. ### <a href="#tab12" data-toggle="collapse" class="panel-heading">Taux de remboursement des RSA pris en charge par l'Assurance Maladie</a> {.panel .panel-default}

  486. #### {.panel-body .collapse #tab12}

  487. ```{r tab12}

  488. Ovalide$TXR %>%

  489.   full_join(OvalideP$TXR, by = c("A", "B")) %>%

  490. 

  491.   datatable(rownames = F,

  492.             container = htmltools::withTags(table(class = 'display',

  493.                                                   thead(tr(th(rowspan = 2, "Taux de remboursement"),

  494.                                                            th(rowspan = 2, "Type"),

  495.                                                            th(colspan = 2, current),

  496.                                                            th(colspan = 2, previous)),

  497.                                                         tr(th("Effectif"),

  498.                                                            th("%"),

  499.                                                            th("Effectif"),

  500.                                                            th("%"))

  501.                                                         )

  502.                                                   )

  503.             )) %>%

  504.   formatCurrency(c(4, 6), digits = 2, currency = "", dec.mark = ",")

  505. ```

  506. *Données issues des tableaux OVALIDE [1.V.1.TXR] C de `r periode`*  

  507. _\* Séjours de NN, radiothérape ou PO_

  508. 

  509. ### <a href="#tab13" data-toggle="collapse" class="panel-heading">Valorisation des RSA pris en charge par l'Assurance Maladie</a> {.panel .panel-default}

  510. #### {.panel-body .collapse #tab13}

  511. ```{r tab13}

  512. Ovalide$RAV[-(1:2), c(1,4,6)] %>%

  513.  full_join(OvalideP$RAV[-(1:2), c(1,4,6)], by = "A") %>%

  514.  mutate(D.z = (D.x - D.y) / D.y,

  515.         F.z = (F.x - F.y) / F.y) %>%

  516.   .[names(.) %>% sort] %>%

  517. 

  518.   datatable(rownames = F,

  519.             escape = F,

  520.             container = htmltools::withTags(table(class = 'display',

  521.                                                   thead(tr(th(rowspan = 2, "Composante"),

  522.                                                            th(colspan = 2, "Montant BR¹"),

  523.                                                            th(rowspan = 2, "Evol. montant BR¹"),

  524.                                                            th(colspan = 2, "Montant remboursé AM²"),

  525.                                                            th(rowspan = 2, "Evol. montant remboursé AM²")),

  526.                                                         tr(rep(c(current, previous), 2) %>%

  527.                                                            lapply(th))

  528.                                                         )

  529.                                                   )

  530.             )) %>%

  531.   formatPercentage(c(4, 7), digits = 2) %>%

  532.   formatCurrency(c(2, 3, 5, 6), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")

  533. ```

  534. *Données issues des tableaux OVALIDE [1.V.1.RAV] C de `r periode`*  

  535. <sup>1</sup> Montant Brut  

  536. <sup>2</sup> Montant Remboursé par l'Assurance Maladie  

  537. 

  538. ### <a href="#tab14" data-toggle="collapse" class="panel-heading">Valorisation des IVG, ATU, SE, actes et consultations</a> {.panel .panel-default}

  539. #### {.panel-body .collapse #tab14}

  540. ```{r tab14}

  541. data_frame(A = c(Ovalide$VATU[is.na(Ovalide$VATU$A), 3:5] %>% unlist,

  542.                  Ovalide$VSE[Ovalide$VSE$A == "", 3:5] %>% unlist,

  543.                  Ovalide$VCCAM[Ovalide$VCCAM$A == "", 2:4] %>% unlist,

  544.                  Ovalide$VNGAP[Ovalide$VNGAP$A == "", 3:5] %>% unlist),

  545.            B = c(OvalideP$VATU[is.na(OvalideP$VATU$A), 3:5] %>% unlist,

  546.                  OvalideP$VSE[OvalideP$VSE$A == "", 3:5] %>% unlist,

  547.                  OvalideP$VCCAM[OvalideP$VCCAM$A == "", 2:4] %>% unlist,

  548.                  OvalideP$VNGAP[OvalideP$VNGAP$A == "", 3:5] %>% unlist)) %>%

  549.   mutate(C = A - B,

  550.          D = (A - B) / B) %>%

  551. 

  552.   datatable(rownames = str_c(rep(c("Nombre de prestations",

  553.                                    "Valorisation brute",

  554.                                    "Valorisation AM"),4),

  555.                              rep(c("ATU<sup>1</sup>",

  556.                                    "SE<sup>2</sup>",

  557.                                    "CCAM<sup>3</sup>",

  558.                                    "NGAP<sup>4</sup>"), each = 3), sep = " "),

  559.             colnames = c(current, previous, "Évolution (n ou &euro;)", "Évolution"),

  560.             escape = F) %>%

  561.   formatCurrency(1:3, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",") %>%

  562.   formatPercentage(4, digits = 2)

  563. ```

  564. <sup>1</sup>*Données issues des tableaux OVALIDE [2.V.VATU] de `r periode`*  

  565. <sup>2</sup>*Données issues des tableaux OVALIDE [2.V.VSE] de `r periode`*  

  566. <sup>3</sup>*Données issues des tableaux OVALIDE [2.V.VCCAM] de `r periode`*  

  567. <sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`*  

  568. 

  569. ### <a href="#tab15" data-toggle="collapse" class="panel-heading">Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés</a> {.panel .panel-default}

  570. #### {.panel-body .collapse #tab15}

  571. ```{r tab15}

  572. Ovalide$UMAS %>%

  573.   full_join(OvalideP$UMAS, by = "A") %>%

  574.   mutate(C = B.x - B.y,

  575.          D = (B.x - B.y) / B.y) %>%

  576. 

  577.   datatable(rownames = F,

  578.             colnames = c(current, previous, "Évolution (n)", "Évolution")) %>%

  579.   formatCurrency(2:4, currency = "", interval = 3, mark = "&nbsp;", digits = 0) %>%

  580.   formatPercentage(5, digits = 2)

  581. ```

  582. *Données issues des tableaux OVALIDE [1.V.1.UMAS] E de `r periode`*

  583. 

  584. ### <a href="#tab16" data-toggle="collapse" class="panel-heading">Prix Moyen du Cas Traité\* de l'année en cours et de l'année précédente</a> {.panel .panel-default}

  585. #### {.panel-body .collapse #tab16}

  586. ```{r tab16}

  587. Ovalide$SVB %>%

  588.   mutate(B = C/B) %>%

  589.   select(-C) %>%

  590.   full_join(OvalideP$SVB %>%

  591.             mutate(B = C/B) %>%

  592.             select(-C),

  593.             by = "A") %>%

  594.   mutate(C = B.x - B.y,

  595.          D = (B.x - B.y) / (B.y)) %>%

  596. 

  597.   datatable(escape = F,

  598.             rownames = F,

  599.             colnames = c("Type de séjours", current, previous, "Évolution (&euro;)", "Évolution")) %>%

  600.   formatPercentage(5, digits = 2) %>%

  601.   formatCurrency(2:4, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")

  602. ```

  603. *Données issues des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  

  604. _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

  605. 

  606. ### <a href="#tab17" data-toggle="collapse" class="panel-heading">Estimation de la valorisation des séjours non transmis de l'année en cours</a> {.panel .panel-default}

  607. #### {.panel-body .collapse #tab17}

  608. ```{r tab17}

  609. gam %>% filter(date_sortie - date_entree == 0) %>% nrow -> zero

  610. gam %>% filter(date_sortie - date_entree > 0) %>% nrow -> plus

  611. 

  612. data.frame(zero = c(zero, Ovalide$SVB$C[3]/Ovalide$SVB$B[3], zero * Ovalide$SVB$C[3]/Ovalide$SVB$B[3]),

  613.            plus = c(plus, Ovalide$SVB$C[2]/Ovalide$SVB$B[2], plus * Ovalide$SVB$C[2]/Ovalide$SVB$B[2])) %>%

  614. 

  615. datatable(escape = F,

  616.           rownames = c("Nombre", "PMCT*", "Valorisation"),

  617.           colnames = c("Indicateur", "0 jour", "Plus de 0 jour")) %>%

  618. formatCurrency(1:2, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")

  619. rm(plus, zero)

  620. ```

  621. *Données issues de la requête BO «`r current`» exécutée le `r date` et des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  

  622. _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

  623. 

  624. ### <a href="#tab18" data-toggle="collapse" class="panel-heading">Indice de performance de la durée moyenne de séjours (IP-DMS) de l'année en cours et de l'année précédente</a> {.panel .panel-default}

  625. #### {.panel-body .collapse #tab18}

  626. ```{r tab18}

  627. if (nrow(Ovalide$EDMS) == 6)

  628. {

  629.   IP_current <- (Ovalide$EDMS[[1, 2]] + Ovalide$EDMS[[4, 2]]) / (Ovalide$EDMS[[2, 2]] + Ovalide$EDMS[[5, 2]])

  630.   IP_previous <- (OvalideP$EDMS[[1, 2]] + OvalideP$EDMS[[4, 2]]) / (OvalideP$EDMS[[2, 2]] + OvalideP$EDMS[[5, 2]])

  631. } else {

  632.   IP_current <- Ovalide$EDMS[[1, 2]] / Ovalide$EDMS[[2, 2]]

  633.   IP_previous <- OvalideP$EDMS[[1, 2]] / OvalideP$EDMS[[2, 2]]

  634. }

  635. 

  636. data_frame(IP_current, IP_previous) %>%

  637.   datatable(rownames = "Indice de performance",

  638.             colnames = c(current, previous)) %>%

  639.   formatCurrency(1:2, currency = "", digits = 3, dec.mark = ",")

  640. 

  641. rm(IP_previous, IP_current)

  642. ```

  643. *Données issues des tableaux OVALIDE [1.D2.EDMS] de `r periode`*  

  644. _\* Nb de journées / Nb de journées standardisées sur la DMS théorique_

  645. 

  646. <!---

  647. ## Généralités

  648. 

  649. ### <a href="#outils" data-toggle="collapse" class="panel-heading">Outils informatiques</a> {.panel .panel-default}

  650. #### {.panel-body .collapse #outils}

  651. ```{r outils}

  652. data_frame(Logiciels = c("Fichsup",

  653.                          "Genrsa",

  654.                          "Magic",

  655.                          "Preface"),

  656.            `N° de version` = c("9.4.1",

  657.                                "11.6.6.2",

  658.                                "4.5.0.0",

  659.                                "2.2.3.0")) %>%

  660. 

  661.   datatable(rownames = F)

  662. ```

  663. 

  664. ### <a href="#cal" data-toggle="collapse" class="panel-heading">Calendrier</a> {.panel .panel-default}

  665. #### {.panel-body .collapse #cal}

  666. ```{r calendrier}

  667. data_frame(Dates = rep(date, 5),

  668.            `Évènement` = c("Clôture et arrêté des données Webpims, Extraction Webpims",

  669.                            "Création des fichiers, vérifications et corrections",

  670.                            "Traitements réglementaires, vérifications et corrections",

  671.                            "Retour traitement e-PMSI",

  672.                            "Validation de l'envoi")) %>%

  673. 

  674.   datatable(rownames = F)

  675. ```

  676. --->