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
Un tibble rsa partie fixe (créé avec vvr_rsa)
Un tibble contenant une ligne par tarif GHS - année séquentielle des tarifs
Un tibble contenant une ligne par année et une colonne par tarif de supplément
Un tibble, facultatif si `r bee = TRUE`, créé avec vvr_ano_mco
Un tibble contenant les prélévements d'organes du out (importés avec ipo)
Un tibble contenant les dialyses péritonéales du out (importés avec idiap)
Un tibble contenant les prestations inter-établissements du out (importés avec ipie)
Un tibble contenant les molécules onéreuses du out (importés avec imed_mco)
Booléen, à `r TRUE` toutes les variables intermédiaires de valo sont gardées
Coefficient géographique, par défaut celui de l'Île-de-France (1.07)
coefficient prudentiel, par défaut à `r NULL`, le coefficient prudentiel est appliqué par année séquentielles des tarifs
par défaut à `r TRUE`, seule la valorisation de GHS de base + extrême haut - extrême bas est calculée
Un tibble contenant les différentes rubriques de valorisation, une ligne par clé rsa
Cette fonction ne tient pas compte de la rubrique "Minoration forfaitaire liste en sus, car elle a été supprimée en 2018
if (FALSE) {
# 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)
}