vvr_ghs_supp: ~ VVR - Attribuer les recettes GHS et suppléments sur des rsa
In GuillaumePressiat/pmeasyr2:

Description Usage Arguments Details Value Author(s) See Also Examples

Reproduire la valorisation BR et coefficients géo/prudentiels du tableau RAV d'epmsi, à partir des tables résultant des fonctions vvr_rsa, vvr_ano_mco, et de tables contenant les fichcomp PO et DIAP, PIE et MO

vvr_ghs_supp(rsa, tarifs, supplements = NULL, ano = NULL,
  porg = dplyr::tibble(), diap = dplyr::tibble(),
  pie = dplyr::tibble(), mo = dplyr::tibble(), full = FALSE,
  cgeo = 1.07, prudent = NULL, bee = TRUE)

`rsa`	Un tibble rsa partie fixe (créé avec `vvr_rsa`)
`tarifs`	Un tibble contenant une ligne par tarif GHS - année séquentielle des tarifs
`supplements`	Un tibble contenant une ligne par année et une colonne par tarif de supplément
`ano`	Un tibble, facultatif si 'r bee = TRUE', créé avec `vvr_ano_mco`
`porg`	Un tibble contenant les prélévements d'organes du out (importés avec `ipo`)
`diap`	Un tibble contenant les dialyses péritonéales du out (importés avec `idiap`)
`pie`	Un tibble contenant les prestations inter-établissements du out (importés avec `ipie`)
`mo`	Un tibble contenant les molécules onéreuses du out (importés avec `imed_mco`)
`full`	Booléen, à 'r TRUE' toutes les variables intermédiaires de valo sont gardées
`cgeo`	Coefficient géographique, par défaut celui de l'Île-de-France (1.07)
`prudent`	coefficient prudentiel, par défaut à 'r NULL', le coefficient prudentiel est appliqué par année séquentielles des tarifs
`bee`	par défaut à 'r TRUE', seule la valorisation de GHS de base + extrême haut - extrême bas est calculée

Cette fonction ne tient pas compte de la rubrique "Minoration forfaitaire liste en sus, car elle a été supprimée en 2018

Un tibble contenant les différentes rubriques de valorisation, une ligne par clé rsa

G. Pressiat

vvr_ano_mco, vvr_rsa, vvr_mco

## Not run: 
# RÃ©cupÃ©rer les tarifs GHS et des supplÃ©ments (ex-DGF) : 
tarifs      <- nomensland::get_table('tarifs_mco_ghs') %>% distinct(ghs, anseqta, .keep_all = TRUE)
supplements <- nomensland::get_table('tarifs_mco_supplements') %>% mutate_if(is.numeric, tidyr::replace_na, 0)

# Recette GHS de base et supplÃ©ments EXB, EXH
vvr_ghs_supp(rsa = vrsa, tarifs = tarifs)

# Recette GHS de base et supplÃ©ments EXB, EXH, et des supplÃ©ments
vvr_ghs_supp(vrsa, tarifs, supplements, vano, ipo(p), idiap(p), ipie(p), imed_mco(p), bee = FALSE)

## End(Not run)