# screen -xRR accel

setScience("accel", create=TRUE)
setGitBranchToSystem(); .g()

wh="SCIENCE"
dbname="prod"
setSnowflake(wh=wh)
sfWarehouseOn(wh, size="XL")

tbl <- "analytics_track_level"
dateCol <- "activity_date"
minDate <- today() - 100
colsToPull <- c(dateCol, "release_parent_upc", "storeid", "transac_typeid", "transac_type_abbr")
colsToAgg <- c("units")
qry <- makeQry(tbl=tbl, schema="bi", colsToAgg=colsToAgg, colsToPull=colsToPull, minDate=minDate, dateCol=dateCol, where=list("release_parent_upc is NOT NULL"))

DT.parentupc_with_units <- sfQry(qry, wh=wh, dbname=dbname)

DT.parentupc_with_units[any(is.na(get(colsToAgg)))]

DT.scores_by_upc <- createScoreDT (DT.parentupc_with_units, timeCol=dateCol, valueCol=colsToAgg, byCols=colsToPull)
DT.scores_by_upc

.cb()
quickEmail(to=getRS())

if (FALSE) {
  jesusForData(DT.parentupc_with_units, DT.scores_by_upc)
  saveImageTo()
}



Hummingbird [12335|Priyanka sdklfjd|D3|IODA|Owned]


if(is_null(${bi_release_with_metadata_view.label_subaccount_name}), if(${bi_release_with_metadata_view.label_subaccount_name} = ${bi_release_with_metadata_view.label_name}, "", concat(${bi_release_with_metadata_view.label_subaccount_name}, "//")))

, if(${bi_release_with_metadata_view.label_is_dthree},  "|D3",    "")
, if(${bi_release_with_metadata_view.label_is_o_and_o}, "|Owned", "")
, if(${bi_release_with_metadata_view.label_is_ioda},    "|IODA",  "")