# get_DT.orch_isrc_upc.r

get_DT.orch_isrc_upc <- function(refresh=FALSE, drop_zeros_and_ones=TRUE, cluster=getOption("db.defaultcluster.in"), verbose=FALSE) {
  if (refresh || !exists("DT.orch_isrc_upc")) {
    DT.orch_isrc_upc <- 
      makeQry(tbl="isrc", schema="production", colsToPull=c("isrc", "upc"), showWarnings=FALSE) %>%
      runQry(cluster=getOption("db.defaultcluster.in"))
    DT.orch_isrc_upc[, upc := as.idcol(upc)]
    
    DT.orch_isrc_upc[grepl("\t", isrc), isrc := gsub("\t", "", isrc)]
    DT.orch_isrc_upc[, isrc := trim(isrc)]

    setkeyIfNot(DT.orch_isrc_upc, verbose=FALSE)
    if (drop_zeros_and_ones) {
      to_drop <- c("0", "1", "0_ISRC")
      DT.orch_isrc_upc <- DT.orch_isrc_upc[!.(to_drop)]
    }
  }

  
  setkeyIfNot(DT.orch_isrc_upc, isrc, upc, verbose=FALSE)

  return(DT.orch_isrc_upc)
}