getReleaseInfo <- function(upcs, verbose=FALSE, cluster=getOption("db.defaultcluster.out")) {
  releaseCols <-  c("releaseid", "releasename", "artistid", "labelid", "sale_start_date")

  #  ## OLD
  #  q.r <- makeQry(colsToPull="*", aggFunc="", tbl="release", whereIn=list(releaseid = upcs))
  #  dt.check <- runQry(makeQry(colsToPull="*", aggFunc="", tbl="release", whereIn=list(releaseid = upcs)))
  #
  #  ## Artist Info
  #  q.a <- makeQry(colsToPull=c("artistid", "artistname", artist_country="countryid"), tbl="artist", whereIn=list(artistid = dt.check$artistid), limit=NULL)
  #  addColsFrom_(dt.check, runQry(q.a, verbose=FALSE), joinCols=c("artistid"), colsToBring=c("artistname", "artist_country"))
  #
  #  ## Label Info
  #  q.l <- makeQry(colsToPull=c("labelid", "labelname", label_country="countryid"), tbl="label", whereIn=list(labelid = dt.check$labelid), limit=NULL)
  #  addColsFrom_(dt.check, runQry(q.l, verbose=FALSE), joinCols=c("labelid"), colsToBring=c("labelname", "label_country"))
  #
  #  cols <- c("releaseid", "releasename", "artistname", "labelname", "sale_start_date")
  #  dt.check[, cols, with=FALSE]
  
  Q <- setQry(sprintf("
        SELECT 
            releaseid AS upc
          , releasename
          , artistname
          , labelname
          , sale_start_date
        FROM production.dim_release r
        LEFT JOIN production.dim_artist a
        ON r.artistid = a.artistid
        LEFT JOIN production.dim_label l
        ON r.labelid = l.labelid
      
        WHERE r.releaseid in %s
      ", pasteQ(unique(upcs), q="")))

  ret <- runQry(Q, verbose=verbose, cluster=cluster, key=NULL)
  upcToID_(ret)
  setkeyIfNot(ret, "upc", verbose=FALSE)
  return(ret)
}