## --- EXECUTE QUERY  ----- ##
{

  ## Cleanup before starting
  try(dbDisconnect(con), silent=TRUE)
  try(detach(package:RMySQL), silent=TRUE)

  ## Load library
  library(RPostgreSQL)

  ## Run the Query
  con    <- getDB(drv.str="PostgreSQL")
  DB.all.count <- runQry(QRY, connex=con, verbose=TRUE, verbose.max.lines=22L, verbose.max.width=110L)

  ## Check results
  if (0==nrow(DB.all.count))
    stop("No Rows Pulled")
  if (showDBoutput) {
    cat("\n`DB.all.count` is as follows: \n")
    print(DB.all.count)
  }

  # Cleanup Again
  ## ------------------------------ ##
  try(dbDisconnect(con), silent=TRUE)
  try(detach(package:RPostgreSQL), silent=TRUE)
  ## ------------------------------ ##


  ## ------------------------------ ##
  ##      SAVE THE DATA             ##
  ## ------------------------------ ##  
  if (!exists("fileBackUps"))
    fileBackUps <- c()

  qry_timestamp <- timeStamp(frmt=frmt.monthday_time)
  f.ind <- paste0("DB.all.count", "_", qry_timestamp)
  fileBackUps[[ f.ind ]] <-
       jesusForData(DB.all.count)
       
  invisible(reproduce((fileBackUps[[f.ind]]), name="file.DB.all.count", clipboard=FALSE, showSample=FALSE))

  # Clean up garbage before saving image
  gcQuietly()
  ## ------------------------------ ##

  beep(10, .2)

    cat("\n\n\t\t==================\n")
    cat("\t\t  Q R Y   D O N E \n")
    cat("\t\t==================\n")
}