library("keyring")
library("odbc")
library("DBI")

con <- DBI::dbConnect(odbc::odbc(),
                      driver    = "FreeTDS", 
                      server    = "QCDIDDWDB001.ucsfmedicalcenter.org",
                      database  = "CDW_NEW",
                      uid       = key_get("deidcdw_user"),
                      pwd       = key_get("deiddw_pw"),
                      port      = 1433
)