# loadFromJesus("DT.releases_with_metadata")
if (!exists("DT.releases_with_metadata")) {
  s.t(DT.releases_with_metadata <- sfQry("SELECT * FROM bi.release_with_metadata_view WHERE releaseid > 1"), title="pull qry")
  if (!(nrow(DT.releases_with_metadata) > 1e6))
    stop("Something went wrong with pulling the data for DT.releases_with_metadata -- it only has ", formnumb(nrow(DT.releases_with_metadata), round=FALSE), " rows.   It's expected to have about 1,500,000")
  qRowCount("bi.release_with_metadata_view")

  jesusForData("DT.releases_with_metadata")

  name_changes <- c("release_labelid" = "labelid", "release_imprint" = "imprint", "releaseid" = "upc")
  setnamesByDict(DT.releases_with_metadata, dict=name_changes, warn_for_new_return=FALSE)

  ## CLEAN UP COLUMN TYPES
  DT.releases_with_metadata[, artist_date_created := as.Date(artist_date_created)]
  DT.releases_with_metadata[, label_priority := factor(label_priority)]
  setBoolCols(DT.releases_with_metadata)
  setIDCols(DT.releases_with_metadata)

  s.t({add_cleaned_column_(DT.releases_with_metadata, "artist_name", whitespace="both")}, title="adding whitespace columns")

  ## Add metadata about how many tracks and CDs per release
  try(loadIfNotExists("DT.tracks_per_upc"), silent=TRUE)
  if (!exists("DT.tracks_per_upc")) 
    source(src.p("count tracks per upc.r"))
  addColsFrom_(DT.releases_with_metadata, DT.tracks_per_upc, colsToBring=c("count_of_total_tracks", "count_of_discs"), joinCols="upc")
}