#' @title Wrapper varia iv
#'
#' @description Aktuell werden nur die Indices, die im FH ausgegeben werden
#'  berechnet. Dafür braucht es nur die BILANZ und die Parameter.
#'  Die anderen Daten werden übergeben für zukünftige Erweiterungen dieses Moduls.
#'
#' @param tl_inp                - Input-Daten / Vorbereitende Berechnungen
#' @param tl_iv_hauptberechnung - Ergebnisse Hauptberechnung IV
#' @param tl_iv_mass            - Ergebnisse aus den Massnahmen
#' @param tl_iv_ergebnisse      - Ergebnisse Bilanz und Erfolgsrechnung
#'
#' @return `tidylist` mit: tl_iv_indices
#'
#' @author [MAS BSV](mailto:sekretariat.mas@bsv.admin.ch)
#'
#' @export

wrap_iv_varia   <- function(
   tl_inp
 , tl_iv_hauptberechnung
 , tl_iv_mass
 , tl_iv_ergebnisse
 ) {
#------ Berechnen der Indices -----------------------------------------#
    IV_INDICES         <- mod_iv_indices(
     PARAM_GLOBAL       = tl_inp$PARAM_GLOBAL
   , BILANZ_IV          = tl_iv_ergebnisse$BILANZ_IV
   , PARAM_MASSNAHMEN_BASE = tl_inp$PARAM_MASSNAHMEN_BASE
  )
    
#------ Hinzufügen des Entschuldungsszenarios -------------------------#
    IV_SCHULD_SCEN <- tl_iv_ergebnisse$BILANZ_IV %>%
        select(jahr, schzins, kap, rueckzahlung) %>%
        filter(jahr>=2009) %>%
        rename(zins_iv = schzins,
               schuld_iv = kap,
               rueckz_iv = rueckzahlung) %>%
        mutate(scen = paste0("iv_schuld_", format(Sys.Date(), "%Y_%m_%d")))
    
    
#------ Output --------------------------------------------------------#
  return(list(
      IV_INDICES = IV_INDICES,
      IV_SCHULD_SCEN = IV_SCHULD_SCEN
  ))
}
