.g()
.RESET()

  ## TODO: Load in DT.anal from history and compare max(date)

  datesToForecast <- seq.Date(from=as.Date("2014-03-06"), to=Sys.Date()-20, by=16)

  FORECASTS        <- emptylist(datesToForecast)
  FORECASTS_MERGED <- emptylist(datesToForecast)

  setScience(proj="MgmtReport", quiet=TRUE, load=FALSE, subl=FALSE)

  for (fakeToday in as.Date(nwhich(sapply(FORECASTS, is.null))))
  {
    start_from_last_file <- FALSE
    assignIfNotExist("verbose", TRUE)

    message("\t\t\t %%%% <|  ~=~=~=~=~=  iteration fakeToday = ", as.character(fakeToday), "  =~=~=~=~=~  |> %%%%")
    source.p("GL Automation - Mgmt Report Ingestion.r")

  }    
  
  attr(FORECASTS,        "datesToForecast") <- datesToForecast
  attr(FORECASTS_MERGED, "datesToForecast") <- datesToForecast

  jesusForData(FORECASTS)
  jesusForData(FORECASTS_MERGED)