vvr_had_ght: ~ VVR - Attribuer les recettes GHT sur des rapss
In GuillaumePressiat/pmeasyr2:

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

Reproduire la valorisation BR et coefficients géo/prudentiels du tableau VALR d'epmsi

1	vvr_had_ght(p, ghts, coeff_geo = 1.07, coeff_prudent = NULL)

`p`	Un noyau de paramètres créé avec `noyau_pmeasyr`
`ghts`	Un tibble contenant une ligne par tarif GHT - année séquentielle des tarifs - type de domicile
`coeff_geo`	Coefficient géographique, au choix (peut être mis à 1)
`coeff_prudent`	Coefficient prudentiel, par défaut la fonction créé ce coefficient automatiquement, sinon il peut-être mis à 1 ou autre

Cette fonction ne tient pas compte du fichier de conventions ESMS (cas des finess non conventionnés non pec ici)

Un tibble contenant les valorisations GHT des sous-séquences de la table rapss$ght PAPRICA (et donc des séjours), les coefficient géo et prudentiels sont présents dans la table, la colonne tarif n'en tient pas compte, et il faut multiplier par le nb journées GHT pour obtenir la valorisation totale.

G. Pressiat

irapss, iano_had

## Not run: 
library(pmeasyr)
library(dplyr, warn.conflicts = F)

p <- noyau_pmeasyr(
  finess = '750712184',
  annee  = 2018,
  mois   = 12,
  path   = '~/Documents/data/had',
  progress = FALSE,
  tolower_names = TRUE,
  lib = FALSE
)

adezip(p, type = "out", liste = c('rapss', 'ano'))

library(nomensland)
ghts <- get_table('tarifs_had_ght') %>%
  tidyr::gather(type_tarif, tarif, - paprica_numght, - lib_ght) %>%
  mutate(anseqta = stringr::str_extract(type_tarif, '[0-9]{4}'),
         typdom    = substr(type_tarif, 6, nchar(type_tarif)))


# Utiliser cette fonction
base_ght <- vvr_had_ght(p, ghts)



ano <- iano_had(p)

library(stringfix)
# calculer le montant Base remboursement et le nb de journÃ©es valorisÃ©es
base_ght %>% 
  inner_join(distinct(ano, noseqsej, .keep_all = TRUE), by = 'noseqsej') %>%
  # filtre sur sÃ©jours facturables
  filter(factam %in% c('1', '2')) %>% 
  mutate(tarif = tarif * joursght * cgeo * cprudent) %>% 
  summarise(
    euros =  sum(tarif, na.rm = TRUE) %>% round(.,2) %>% 
       formatC(., big.mark = " ", format = "f", digits = 2) %+% "â‚¬",
    nbj = sum(joursght))

##| euros      | nbj   |
##|------------|-------|
##| xxx xxx,xxâ‚¬| x xxx |

## End(Not run)