DIM
/
cloture
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Browse Source

Bootstrap collapse

master
Maxime Wack 8 years ago
parent
def9415d03
commit
8d8df5fe7e
1 changed files with 56 additions and 66 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +56
    -66
      cloture.Rmd

+ 56
- 66
cloture.Rmd View File

@@ -51,8 +51,11 @@ sprintf("%02.f", mois) %>%
```

# {#rapport .tab-content}

## {#generalites .tab-pane .active}
### Outils informatiques

### <a href="#outils" data-toggle="collapse" class="panel-heading">Outils informatiques</a> {.panel .panel-default}
#### {.panel-body .collapse .in #outils}
```{r outils}
data_frame(Logiciels = c("Fichsup",
"Genrsa",
@@ -66,9 +69,8 @@ data_frame(Logiciels = c("Fichsup",
datatable(rownames = F)
```

 

### Calendrier
### <a href="#cal" data-toggle="collapse" class="panel-heading">Calendrier</a> {.panel .panel-default}
#### {.panel-body .collapse .in #cal}
```{r calendrier}
data_frame(Dates = rep(date, 5),
`Évènement` = c("Clôture et arrêté des données Webpims, Extraction Webpims",
@@ -81,7 +83,9 @@ data_frame(Dates = rep(date, 5),
```

## {#production .tab-pane .active}
### Nombre total de RUM et de RSS transmis

### <a href="#tab1" data-toggle="collapse" class="panel-heading">Nombre total de RUM et de RSS transmis</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab1}
```{r tab1}
rum %>%
filter(annee_sortie == annee) %>%
@@ -95,9 +99,8 @@ rum %>%
colnames = c("Type de résumé", "Nombre produit"))
```

 

### Nombre de RUM transmis par mois pour les 3 dernières années
### <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}
#### {.panel-body .collapse .in #tab2a}
```{r tab2a}
rum %>%
count(annee_sortie, mois_sortie) %>%
@@ -136,9 +139,8 @@ rum %>%
plot.title = element_text(hjust = 0))
```

 

### Nombre de RSS transmis par mois pour les 3 dernières années
### <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}
#### {.panel-body .collapse .in #tab2b}
```{r tab2b}
rss %>%
count(annee_sortie, mois_sortie) %>%
@@ -177,9 +179,8 @@ rss %>%
plot.title = element_text(hjust = 0))
```

 

#### Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années
#### <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}
##### {.panel-body .collapse .in #tab3a}
```{r tab3a}
rss %>%
filter(duree_rss >= 1) %>%
@@ -220,9 +221,8 @@ rss %>%
plot.title = element_text(hjust = 0))
```

 

#### Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années
#### <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}
##### {.panel-body .collapse .in #tab3b}
```{r tab3b}
rss %>%
filter(duree_rss == 0, cmd != 28) %>%
@@ -265,9 +265,8 @@ rss %>%
plot.title = element_text(hjust = 0))
```

 

#### Nombre de RSS de séance transmis par mois pour les 3 dernières années
#### <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}
##### {.panel-body .collapse .in #tab3c}
```{r tab3c}
rss %>%
filter(duree_rss == 0, cmd == 28) %>%
@@ -308,9 +307,8 @@ rss %>%
plot.title = element_text(hjust = 0))
```

 

### Nombre de RUM transmis par pôle pour les 3 dernières années
### <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}
##### {.panel-body .collapse .in #tab4}
```{r tab4}
rum %>%
filter(mois_sortie <= mois) %>%
@@ -348,40 +346,37 @@ rum %>%
```

## {#exhaustivite .tab-pane .active}

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

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

```

**Figure 5a**
#### <a href="#fig5a" data-toggle="collapse" class="panel-heading">Nombre de RUM produits et transmis, et taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}
##### {.panel-body .collapse .in #fig5a}
```{r fig5a}

```

**Figure 5b**
#### <a href="#fig5b" data-toggle="collapse" class="panel-heading">Nombre de RSS produits et transmis, et taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}
##### {.panel-body .collapse .in #fig5b}
```{r fig5b}

```

**Figure 5c**
```{r fig5c}

```

 

### Exhaustivité des RSS au moment de la clôture pour les 2 dernières années
### <a href="#fig6" data-toggle="collapse" class="panel-heading">Exhaustivité des RSS au moment de la clôture pour les 2 dernières années</a> {.panel .panel-default}
#### {.panel-body .collapse .in #fig6}
```{r fig6}

```

 

### Exhaustivité mensuelle de la clôture

#### Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS
#### <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}
##### {.panel-body .collapse .in #fig7}
```{r fig7}
rss %>%
filter(annee_sortie == annee) %>%
@@ -406,7 +401,8 @@ rss %>%
plot.title = element_text(hjust = 0))
```

#### Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS
#### <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}
##### {.panel-body .collapse .in #fig8}
```{r fig8}
gam %>%
count(mois_sortie) %>%
@@ -426,9 +422,8 @@ gam %>%
plot.title = element_text(hjust = 0))
```

 

### Exhaustivité par pôle et par service
### <a href="#tab9" data-toggle="collapse" class="panel-heading">Exhaustivité par pôle et par service</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab9}
```{r tab9}
rum %>%
filter(annee_sortie == annee) %>%
@@ -454,7 +449,9 @@ rum %>%
```

## {#valorisation .tab-pane .active}
### Nombre et valorisation des RSA transmis, traités et valorisés

### <a href="#tab10" data-toggle="collapse" class="panel-heading">Nombre et valorisation des RSA transmis, traités et valorisés</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab10}
```{r tab10}
Ovalide$SVA %>%
full_join(OvalideP$SVA, by = "A") %>%
@@ -475,9 +472,8 @@ Ovalide$SVA %>%
```
*Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`*

 

### Valorisation des RSA non pris en charge par l'Assurance Maladie
### <a href="#tab11" data-toggle="collapse" class="panel-heading">Valorisation des RSA non pris en charge par l'Assurance Maladie</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab11}
```{r tab11}
Ovalide$VSS %>% select(1:3) %>%
full_join(OvalideP$VSS %>% select(1:3), by = "A") %>%
@@ -498,9 +494,8 @@ Ovalide$VSS %>% select(1:3) %>%
```
*Données issues des tableaux [1.V.1.VSS] A de `r periode`*

 

### Taux de remboursement des RSA pris en charge par l'Assurance Maladie
### <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}
#### {.panel-body .collapse .in #tab12}
```{r tab12}
Ovalide$TXR %>%
full_join(OvalideP$TXR, by = c("A", "B")) %>%
@@ -523,9 +518,8 @@ Ovalide$TXR %>%
*Données issues des tableaux OVALIDE [1.V.1.TXR] C de `r periode`*
_\* Séjours de NN, radiothérape ou PO_

 

### Valorisation des RSA pris en charge par l'Assurance Maladie
### <a href="#tab13" data-toggle="collapse" class="panel-heading">Valorisation des RSA pris en charge par l'Assurance Maladie</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab13}
```{r tab13}
Ovalide$RAV[-(1:2), c(1,4:6)] %>%
full_join(OvalideP$RAV[-(1:2), c(1,4:6)], by = "A") %>%
@@ -557,9 +551,8 @@ Ovalide$RAV[-(1:2), c(1,4:6)] %>%
<sup>2</sup> Montant avec Coefficient Prudentiel
<sup>3</sup> Montant Remboursé par l'Assurance Maladie

 

### Valorisation des IVG, ATU, SE, actes et consultations
### <a href="#tab14" data-toggle="collapse" class="panel-heading">Valorisation des IVG, ATU, SE, actes et consultations</a> {.panel .panel-default}
#### {.panel-body .collapse .in #tab14}
```{r tab14}
data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
Ovalide$VSE[nrow(Ovalide$VSE), 3:5] %>% unlist,
@@ -589,9 +582,8 @@ data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
<sup>3</sup>*Données issues des tableaux OVALIDE [2.V.VCCAM] de `r periode`*
<sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`*

 

### Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés
### <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}
#### {.panel-body .collapse .in #tab15}
```{r tab15}
Ovalide$UMAS %>%
full_join(OvalideP$UMAS, by = "A") %>%
@@ -605,9 +597,8 @@ Ovalide$UMAS %>%
```
*Données issues des tableaux OVALIDE [1.V.1.UMAS] E de `r periode`*

 

### Prix Moyen du Cas Traité\* de l'année en cours et de l'année précédente
### <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}
#### {.panel-body .collapse .in #tab16}
```{r tab16}
Ovalide$SVB %>%
mutate(B = C/B) %>%
@@ -628,9 +619,8 @@ Ovalide$SVB %>%
*Données issues des tableaux OVALIDE [1.V.1.SV] B de `r periode`*
_\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

 

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


@@ -638,9 +628,8 @@ _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_
*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`*
_\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

 

### 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 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}
#### {.panel-body .collapse .in #tab18}
```{r tab18}
Ovalide$EDMS %<>%
filter(A != ".") %>%
@@ -669,5 +658,6 @@ _\* Nb de journées / Nb de journées standardisées sur la DMS théorique_
// tabs must have active state
$('.nav-tabs li:last-child a').tab("show");
$('.nav-tabs li:first-child a').tab("show");
$('.panel-body').collapse();
};
</script>

Write Preview
Loading…
Cancel
Save