if ({
  tbl.amazon <- "staging_raw_amazon"
  Q.amazon  <- sprintf("SELECT upc, isrc, units, cost, territory_code FROM %s WHERE download_date > '%s' AND upc in %s", tbl.amazon, minDate, upcs.flat)
  DT.amazon <- runQry(Q.amazon, emailStatus="iTunes Qry Complete")
  # DT.amazon[, upc := as.idcol(upc)]

  if (!nrow(DT.amazon))
    stop("No Rows in DT.amazon")
  # ---------------- #

  if (is.integer(DT.amazon[["upc"]])) {
    DT.spotify [, upc := as.integer(upc)]
    DT.itunes  [, upc := as.integer(upc)]
  } else  {
    DT.spotify [, upc := as.numeric(upc)]
    DT.itunes  [, upc := as.numeric(upc)]
  }

  setkey(DT.spotify, upc)
  setkey(DT.itunes, upc)
  setkey(DT.amazon, upc)

  ## Save them separate, so we can start pulling them in separately
  jesusForData(DT.amazon)
  EmailStatusUpdate("Jesus is complete on Amazon. Start Pulling")
  jesusForData(DT.itunes)
  EmailStatusUpdate("Jesus is complete on iTunes Start Pulling")
  jesusForData(DT.spotify)
  EmailStatusUpdate("Jesus is complete on Spotify. Start Pulling")

  saveImageTo()
  TRUE
}) {
EmailStatusUpdate("Save Complete. Waiting for you.")
} else {
  errs <- capture.output(traceback())
  EmailStatusUpdate("SOMETHING WENT WRONG!!!", msg=errs)
}