{
# only checking against DT.hidden #    IDs.iris <- DT.hidden[content_owner %in% c("IRIS")]$upc %>% as.integer %>% unique %>% {c(., sprintf("%012i", .))} %>% unique
# only checking against DT.hidden #  
# only checking against DT.hidden #    DT.IRIS <- 
# only checking against DT.hidden #    sprintf("SELECT R.* 
# only checking against DT.hidden #      FROM production.dim_release R 
# only checking against DT.hidden #      RIGHT JOIN production.dim_label L ON R.labelid = L.labelid  
# only checking against DT.hidden #      WHERE owner RLIKE 'IRIS.*'
# only checking against DT.hidden #        AND (vendor_catalog_number in %1$s OR vendor_release_identifier in %1$s OR manufacturer_upc in %1$s) order by labelid, releaseid"
# only checking against DT.hidden #    , pasteQ(IDs.iris)) %>% sfQry %>% setIDCols
# only checking against DT.hidden #  
# only checking against DT.hidden #    IDs.iris %in% 
# only checking against DT.hidden #    DT.IRIS[, ID := as.numeric(vendor_catalog_number) %>% {ifelse(is.na(.), manufacturer_upc, ifelse(is.na(manufacturer_upc), ., ifelse(. == manufacturer_upc, ., paste(., " -- ", manufacturer_upc))))}]
# only checking against DT.hidden #  print(DT.IRIS[, list(releaseid, manufacturer_upc, vendor_catalog_number)], nrow=4444)


  DT.iris_releases <- sfQry("SELECT R.* FROM production.dim_release R RIGHT JOIN production.dim_label L on R.labelid = L.labelid  WHERE owner RLIKE 'IRIS.*'")


  {if ("use" %ni% names(DT.iris_releases)) DT.iris_releases[, use := NA_character_]}

  DT.iris_releases[is.na(use) & grepl("80557038\\d{4,6}", manufacturer_upc) & !is.na(vendor_catalog_number), use := "vendor_catalog_number"]
  DT.iris_releases[is.na(use) &  is.na(as.num.nowarn(vendor_catalog_number)) & !is.na(as.num.nowarn(manufacturer_upc)), use := "manufacturer_upc"]
  DT.iris_releases[is.na(use) & !is.na(as.num.nowarn(vendor_catalog_number)) &  is.na(as.num.nowarn(manufacturer_upc)), use := "vendor_catalog_number"]
  DT.iris_releases[as.num.nowarn(vendor_catalog_number) == as.num.nowarn(manufacturer_upc), use := "vendor_catalog_number"]
  ## ELSE
  DT.iris_releases[is.na(use), use := "releaseid"]

  &&& LEFT OFF HERE .... now actually calculate the upc

}