initFramework <- function() {
frameworkContext <- new.env(parent = globalenv())
assign('frameworkContext', frameworkContext, envir = globalenv())
frameworkContext$inserts <- list()
frameworkContext$expects <- list()
frameworkContext$testId <- -1
frameworkContext$testDescription <- ""
frameworkContext$defaultValues <- new.env(parent = frameworkContext)
defaults <- list()
defaults$start <- '2008-03-24'
defaults$patient <- '99a94a01-bb91-4ad7-9a69-b9bd0f114d47'
defaults$encounter <- 'c430e49d-9612-4ba0-92ec-70ab4afdcb5f'
defaults$code <- '419474003'
defaults$description <- 'Allergy to mould'
assign('allergies', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$id <- '906fceed-443f-4f59-acab-562f80c5cb44'
defaults$start <- '2016-11-09'
defaults$patient <- 'b6750e05-91df-471b-97bb-a19ab9fe79c5'
defaults$encounter <- '17781139-da60-46dc-ba6e-13637cb13c61'
defaults$code <- '53950000'
defaults$description <- 'Respiratory therapy'
defaults$reasoncode <- '10509002'
defaults$reasondescription <- 'Acute bronchitis (disorder)'
assign('careplans', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$start <- '2017-12-26'
defaults$patient <- 'ffab9299-0b3d-474f-96a4-bb279c244c7c'
defaults$encounter <- '50bbccc5-bb6b-4073-8244-045f10a28469'
defaults$code <- '444814009'
defaults$description <- 'Viral sinusitis (disorder)'
assign('conditions', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$id <- '8ead2604-2f95-4ecb-a898-8c29f74709fb'
defaults$start <- '1983-04-24T05:36:43Z'
defaults$stop <- '2001-10-05T03:47:01Z'
defaults$patient <- '24121ee3-3413-4e42-8e17-0410204adf10'
defaults$encounterclass <- 'ambulatory'
defaults$code <- '185349003'
defaults$description <- 'Encounter for check up (procedure)'
defaults$cost <- '129.16'
assign('encounters', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$id <- '26cd0a95-10a6-4a30-8af1-ebc602d39b72'
defaults$date <- '2015-10-26'
defaults$patient <- '5dacca68-eb32-45ea-bf9d-f224f96e4299'
defaults$encounter <- 'fcd7e8af-0242-4efb-a392-642ed4cb01d1'
defaults$bodysite_code <- '51185008'
defaults$bodysite_description <- 'Thoracic structure (body structure)'
defaults$modality_code <- 'CT'
defaults$modality_description <- 'Computed Tomography'
defaults$sop_code <- '1.2.840.10008.5.1.4.1.1.2'
defaults$sop_description <- 'CT Image Storage'
assign('imaging_studies', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$date <- '2016-06-16'
defaults$patient <- '8734f7b8-4525-4db3-b8b7-60da22f729b5'
defaults$encounter <- 'c9557a0c-7f03-48ba-9975-667d28f2dc39'
defaults$code <- '140'
defaults$description <- 'Influenza seasonal injectable preservative free'
defaults$cost <- '140.52'
assign('immunizations', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$start <- '2016-04-03'
defaults$patient <- '5dacca68-eb32-45ea-bf9d-f224f96e4299'
defaults$encounter <- '93917d59-daf9-4206-b59c-c73262c4ca9f'
defaults$code <- '316672'
defaults$description <- 'Simvistatin 10 MG'
defaults$cost <- '263.49'
defaults$dispenses <- '1'
defaults$totalcost <- '3161.88'
assign('medications', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$date <- '1986-06-20'
defaults$patient <- 'cfe0b091-a7b4-4fbb-a0a2-d0fd86a596e4'
defaults$encounter <- 'e84bdba6-e316-4c1f-a778-99a05f0dde1f'
defaults$code <- '72514-3'
defaults$description <- 'Pain severity - 0-10 verbal numeric rating [Score] - Reported'
defaults$value <- 'Never smoker'
defaults$units <- 'mg/dL'
defaults$type <- 'numeric'
assign('observations', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$id <- 'e31a194d-e8b1-4e81-a511-5da4ad99f8c8'
defaults$birthdate <- '1926-02-23'
defaults$ssn <- '999-41-5589'
defaults$prefix <- 'Mr.'
defaults$first <- 'Benito209'
defaults$last <- 'Marks830'
defaults$marital <- 'M'
defaults$race <- 'white'
defaults$ethnicity <- 'irish'
defaults$gender <- 'M'
defaults$birthplace <- 'Boston'
defaults$address <- '192 MacGyver Dam'
defaults$city <- 'Boston'
defaults$state <- 'Massachusetts'
defaults$zip <- '02108'
assign('patients', defaults, envir = frameworkContext$defaultValues)
defaults <- list()
defaults$date <- '2018-02-27'
defaults$patient <- '24121ee3-3413-4e42-8e17-0410204adf10'
defaults$encounter <- '7a9a4f7d-060c-4de9-b03d-0eee972ff7f1'
defaults$code <- '428191000124101'
defaults$description <- 'Documentation of current medications'
defaults$cost <- '516.65'
defaults$reasoncode <- '72892002'
defaults$reasondescription <- 'Normal pregnancy'
assign('procedures', defaults, envir = frameworkContext$defaultValues)
}
initFramework()
set_defaults_allergies <- function(start, stop, patient, encounter, code, description) {
defaults <- get('allergies', envir = frameworkContext$defaultValues)
if (!missing(start)) {
defaults$start <- start
}
if (!missing(stop)) {
defaults$stop <- stop
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
assign('allergies', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_careplans <- function(id, start, stop, patient, encounter, code, description, reasoncode, reasondescription) {
defaults <- get('careplans', envir = frameworkContext$defaultValues)
if (!missing(id)) {
defaults$id <- id
}
if (!missing(start)) {
defaults$start <- start
}
if (!missing(stop)) {
defaults$stop <- stop
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(reasoncode)) {
defaults$reasoncode <- reasoncode
}
if (!missing(reasondescription)) {
defaults$reasondescription <- reasondescription
}
assign('careplans', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_conditions <- function(start, stop, patient, encounter, code, description) {
defaults <- get('conditions', envir = frameworkContext$defaultValues)
if (!missing(start)) {
defaults$start <- start
}
if (!missing(stop)) {
defaults$stop <- stop
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
assign('conditions', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_encounters <- function(id, start, stop, patient, encounterclass, code, description, cost, reasoncode, reasondescription) {
defaults <- get('encounters', envir = frameworkContext$defaultValues)
if (!missing(id)) {
defaults$id <- id
}
if (!missing(start)) {
defaults$start <- start
}
if (!missing(stop)) {
defaults$stop <- stop
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounterclass)) {
defaults$encounterclass <- encounterclass
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(cost)) {
defaults$cost <- cost
}
if (!missing(reasoncode)) {
defaults$reasoncode <- reasoncode
}
if (!missing(reasondescription)) {
defaults$reasondescription <- reasondescription
}
assign('encounters', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_imaging_studies <- function(id, date, patient, encounter, bodysite_code, bodysite_description, modality_code, modality_description, sop_code, sop_description) {
defaults <- get('imaging_studies', envir = frameworkContext$defaultValues)
if (!missing(id)) {
defaults$id <- id
}
if (!missing(date)) {
defaults$date <- date
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(bodysite_code)) {
defaults$bodysite_code <- bodysite_code
}
if (!missing(bodysite_description)) {
defaults$bodysite_description <- bodysite_description
}
if (!missing(modality_code)) {
defaults$modality_code <- modality_code
}
if (!missing(modality_description)) {
defaults$modality_description <- modality_description
}
if (!missing(sop_code)) {
defaults$sop_code <- sop_code
}
if (!missing(sop_description)) {
defaults$sop_description <- sop_description
}
assign('imaging_studies', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_immunizations <- function(date, patient, encounter, code, description, cost) {
defaults <- get('immunizations', envir = frameworkContext$defaultValues)
if (!missing(date)) {
defaults$date <- date
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(cost)) {
defaults$cost <- cost
}
assign('immunizations', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_medications <- function(start, stop, patient, encounter, code, description, cost, dispenses, totalcost, reasoncode, reasondescription) {
defaults <- get('medications', envir = frameworkContext$defaultValues)
if (!missing(start)) {
defaults$start <- start
}
if (!missing(stop)) {
defaults$stop <- stop
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(cost)) {
defaults$cost <- cost
}
if (!missing(dispenses)) {
defaults$dispenses <- dispenses
}
if (!missing(totalcost)) {
defaults$totalcost <- totalcost
}
if (!missing(reasoncode)) {
defaults$reasoncode <- reasoncode
}
if (!missing(reasondescription)) {
defaults$reasondescription <- reasondescription
}
assign('medications', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_observations <- function(date, patient, encounter, code, description, value, units, type) {
defaults <- get('observations', envir = frameworkContext$defaultValues)
if (!missing(date)) {
defaults$date <- date
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(value)) {
defaults$value <- value
}
if (!missing(units)) {
defaults$units <- units
}
if (!missing(type)) {
defaults$type <- type
}
assign('observations', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_patients <- function(id, birthdate, deathdate, ssn, drivers, passport, prefix, first, last, suffix, maiden, marital, race, ethnicity, gender, birthplace, address, city, state, zip) {
defaults <- get('patients', envir = frameworkContext$defaultValues)
if (!missing(id)) {
defaults$id <- id
}
if (!missing(birthdate)) {
defaults$birthdate <- birthdate
}
if (!missing(deathdate)) {
defaults$deathdate <- deathdate
}
if (!missing(ssn)) {
defaults$ssn <- ssn
}
if (!missing(drivers)) {
defaults$drivers <- drivers
}
if (!missing(passport)) {
defaults$passport <- passport
}
if (!missing(prefix)) {
defaults$prefix <- prefix
}
if (!missing(first)) {
defaults$first <- first
}
if (!missing(last)) {
defaults$last <- last
}
if (!missing(suffix)) {
defaults$suffix <- suffix
}
if (!missing(maiden)) {
defaults$maiden <- maiden
}
if (!missing(marital)) {
defaults$marital <- marital
}
if (!missing(race)) {
defaults$race <- race
}
if (!missing(ethnicity)) {
defaults$ethnicity <- ethnicity
}
if (!missing(gender)) {
defaults$gender <- gender
}
if (!missing(birthplace)) {
defaults$birthplace <- birthplace
}
if (!missing(address)) {
defaults$address <- address
}
if (!missing(city)) {
defaults$city <- city
}
if (!missing(state)) {
defaults$state <- state
}
if (!missing(zip)) {
defaults$zip <- zip
}
assign('patients', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
set_defaults_procedures <- function(date, patient, encounter, code, description, cost, reasoncode, reasondescription) {
defaults <- get('procedures', envir = frameworkContext$defaultValues)
if (!missing(date)) {
defaults$date <- date
}
if (!missing(patient)) {
defaults$patient <- patient
}
if (!missing(encounter)) {
defaults$encounter <- encounter
}
if (!missing(code)) {
defaults$code <- code
}
if (!missing(description)) {
defaults$description <- description
}
if (!missing(cost)) {
defaults$cost <- cost
}
if (!missing(reasoncode)) {
defaults$reasoncode <- reasoncode
}
if (!missing(reasondescription)) {
defaults$reasondescription <- reasondescription
}
assign('procedures', defaults, envir = frameworkContext$defaultValues)
invisible(defaults)
}
get_defaults_allergies <- function() {
defaults <- get('allergies', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_careplans <- function() {
defaults <- get('careplans', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_conditions <- function() {
defaults <- get('conditions', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_encounters <- function() {
defaults <- get('encounters', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_imaging_studies <- function() {
defaults <- get('imaging_studies', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_immunizations <- function() {
defaults <- get('immunizations', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_medications <- function() {
defaults <- get('medications', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_observations <- function() {
defaults <- get('observations', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_patients <- function() {
defaults <- get('patients', envir = frameworkContext$defaultValues)
return(defaults)
}
get_defaults_procedures <- function() {
defaults <- get('procedures', envir = frameworkContext$defaultValues)
return(defaults)
}
declareTest <- function(id, description) {
frameworkContext$testId <- id
frameworkContext$testDescription <- description
}
add_allergies <- function(start, stop, patient, encounter, code, description) {
defaults <- get('allergies', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(start)) {
start <- defaults$start
}
if (!is.null(start)) {
fields <- c(fields, "start")
values <- c(values, if (is.null(start)) "NULL" else if (is(start, "subQuery")) paste0("(", as.character(start), ")") else paste0("'", as.character(start), "'"))
}
if (missing(stop)) {
stop <- defaults$stop
}
if (!is.null(stop)) {
fields <- c(fields, "stop")
values <- c(values, if (is.null(stop)) "NULL" else if (is(stop, "subQuery")) paste0("(", as.character(stop), ")") else paste0("'", as.character(stop), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[allergies]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_careplans <- function(id, start, stop, patient, encounter, code, description, reasoncode, reasondescription) {
defaults <- get('careplans', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(id)) {
id <- defaults$id
}
if (!is.null(id)) {
fields <- c(fields, "id")
values <- c(values, if (is.null(id)) "NULL" else if (is(id, "subQuery")) paste0("(", as.character(id), ")") else paste0("'", as.character(id), "'"))
}
if (missing(start)) {
start <- defaults$start
}
if (!is.null(start)) {
fields <- c(fields, "start")
values <- c(values, if (is.null(start)) "NULL" else if (is(start, "subQuery")) paste0("(", as.character(start), ")") else paste0("'", as.character(start), "'"))
}
if (missing(stop)) {
stop <- defaults$stop
}
if (!is.null(stop)) {
fields <- c(fields, "stop")
values <- c(values, if (is.null(stop)) "NULL" else if (is(stop, "subQuery")) paste0("(", as.character(stop), ")") else paste0("'", as.character(stop), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(reasoncode)) {
reasoncode <- defaults$reasoncode
}
if (!is.null(reasoncode)) {
fields <- c(fields, "reasoncode")
values <- c(values, if (is.null(reasoncode)) "NULL" else if (is(reasoncode, "subQuery")) paste0("(", as.character(reasoncode), ")") else paste0("'", as.character(reasoncode), "'"))
}
if (missing(reasondescription)) {
reasondescription <- defaults$reasondescription
}
if (!is.null(reasondescription)) {
fields <- c(fields, "reasondescription")
values <- c(values, if (is.null(reasondescription)) "NULL" else if (is(reasondescription, "subQuery")) paste0("(", as.character(reasondescription), ")") else paste0("'", as.character(reasondescription), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[careplans]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_conditions <- function(start, stop, patient, encounter, code, description) {
defaults <- get('conditions', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(start)) {
start <- defaults$start
}
if (!is.null(start)) {
fields <- c(fields, "start")
values <- c(values, if (is.null(start)) "NULL" else if (is(start, "subQuery")) paste0("(", as.character(start), ")") else paste0("'", as.character(start), "'"))
}
if (missing(stop)) {
stop <- defaults$stop
}
if (!is.null(stop)) {
fields <- c(fields, "stop")
values <- c(values, if (is.null(stop)) "NULL" else if (is(stop, "subQuery")) paste0("(", as.character(stop), ")") else paste0("'", as.character(stop), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[conditions]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_encounters <- function(id, start, stop, patient, encounterclass, code, description, cost, reasoncode, reasondescription) {
defaults <- get('encounters', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(id)) {
id <- defaults$id
}
if (!is.null(id)) {
fields <- c(fields, "id")
values <- c(values, if (is.null(id)) "NULL" else if (is(id, "subQuery")) paste0("(", as.character(id), ")") else paste0("'", as.character(id), "'"))
}
if (missing(start)) {
start <- defaults$start
}
if (!is.null(start)) {
fields <- c(fields, "start")
values <- c(values, if (is.null(start)) "NULL" else if (is(start, "subQuery")) paste0("(", as.character(start), ")") else paste0("'", as.character(start), "'"))
}
if (missing(stop)) {
stop <- defaults$stop
}
if (!is.null(stop)) {
fields <- c(fields, "stop")
values <- c(values, if (is.null(stop)) "NULL" else if (is(stop, "subQuery")) paste0("(", as.character(stop), ")") else paste0("'", as.character(stop), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounterclass)) {
encounterclass <- defaults$encounterclass
}
if (!is.null(encounterclass)) {
fields <- c(fields, "encounterclass")
values <- c(values, if (is.null(encounterclass)) "NULL" else if (is(encounterclass, "subQuery")) paste0("(", as.character(encounterclass), ")") else paste0("'", as.character(encounterclass), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(cost)) {
cost <- defaults$cost
}
if (!is.null(cost)) {
fields <- c(fields, "cost")
values <- c(values, if (is.null(cost)) "NULL" else if (is(cost, "subQuery")) paste0("(", as.character(cost), ")") else paste0("'", as.character(cost), "'"))
}
if (missing(reasoncode)) {
reasoncode <- defaults$reasoncode
}
if (!is.null(reasoncode)) {
fields <- c(fields, "reasoncode")
values <- c(values, if (is.null(reasoncode)) "NULL" else if (is(reasoncode, "subQuery")) paste0("(", as.character(reasoncode), ")") else paste0("'", as.character(reasoncode), "'"))
}
if (missing(reasondescription)) {
reasondescription <- defaults$reasondescription
}
if (!is.null(reasondescription)) {
fields <- c(fields, "reasondescription")
values <- c(values, if (is.null(reasondescription)) "NULL" else if (is(reasondescription, "subQuery")) paste0("(", as.character(reasondescription), ")") else paste0("'", as.character(reasondescription), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[encounters]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_imaging_studies <- function(id, date, patient, encounter, bodysite_code, bodysite_description, modality_code, modality_description, sop_code, sop_description) {
defaults <- get('imaging_studies', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(id)) {
id <- defaults$id
}
if (!is.null(id)) {
fields <- c(fields, "id")
values <- c(values, if (is.null(id)) "NULL" else if (is(id, "subQuery")) paste0("(", as.character(id), ")") else paste0("'", as.character(id), "'"))
}
if (missing(date)) {
date <- defaults$date
}
if (!is.null(date)) {
fields <- c(fields, "date")
values <- c(values, if (is.null(date)) "NULL" else if (is(date, "subQuery")) paste0("(", as.character(date), ")") else paste0("'", as.character(date), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(bodysite_code)) {
bodysite_code <- defaults$bodysite_code
}
if (!is.null(bodysite_code)) {
fields <- c(fields, "bodysite_code")
values <- c(values, if (is.null(bodysite_code)) "NULL" else if (is(bodysite_code, "subQuery")) paste0("(", as.character(bodysite_code), ")") else paste0("'", as.character(bodysite_code), "'"))
}
if (missing(bodysite_description)) {
bodysite_description <- defaults$bodysite_description
}
if (!is.null(bodysite_description)) {
fields <- c(fields, "bodysite_description")
values <- c(values, if (is.null(bodysite_description)) "NULL" else if (is(bodysite_description, "subQuery")) paste0("(", as.character(bodysite_description), ")") else paste0("'", as.character(bodysite_description), "'"))
}
if (missing(modality_code)) {
modality_code <- defaults$modality_code
}
if (!is.null(modality_code)) {
fields <- c(fields, "modality_code")
values <- c(values, if (is.null(modality_code)) "NULL" else if (is(modality_code, "subQuery")) paste0("(", as.character(modality_code), ")") else paste0("'", as.character(modality_code), "'"))
}
if (missing(modality_description)) {
modality_description <- defaults$modality_description
}
if (!is.null(modality_description)) {
fields <- c(fields, "modality_description")
values <- c(values, if (is.null(modality_description)) "NULL" else if (is(modality_description, "subQuery")) paste0("(", as.character(modality_description), ")") else paste0("'", as.character(modality_description), "'"))
}
if (missing(sop_code)) {
sop_code <- defaults$sop_code
}
if (!is.null(sop_code)) {
fields <- c(fields, "sop_code")
values <- c(values, if (is.null(sop_code)) "NULL" else if (is(sop_code, "subQuery")) paste0("(", as.character(sop_code), ")") else paste0("'", as.character(sop_code), "'"))
}
if (missing(sop_description)) {
sop_description <- defaults$sop_description
}
if (!is.null(sop_description)) {
fields <- c(fields, "sop_description")
values <- c(values, if (is.null(sop_description)) "NULL" else if (is(sop_description, "subQuery")) paste0("(", as.character(sop_description), ")") else paste0("'", as.character(sop_description), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[imaging_studies]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_immunizations <- function(date, patient, encounter, code, description, cost) {
defaults <- get('immunizations', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(date)) {
date <- defaults$date
}
if (!is.null(date)) {
fields <- c(fields, "date")
values <- c(values, if (is.null(date)) "NULL" else if (is(date, "subQuery")) paste0("(", as.character(date), ")") else paste0("'", as.character(date), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(cost)) {
cost <- defaults$cost
}
if (!is.null(cost)) {
fields <- c(fields, "cost")
values <- c(values, if (is.null(cost)) "NULL" else if (is(cost, "subQuery")) paste0("(", as.character(cost), ")") else paste0("'", as.character(cost), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[immunizations]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_medications <- function(start, stop, patient, encounter, code, description, cost, dispenses, totalcost, reasoncode, reasondescription) {
defaults <- get('medications', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(start)) {
start <- defaults$start
}
if (!is.null(start)) {
fields <- c(fields, "start")
values <- c(values, if (is.null(start)) "NULL" else if (is(start, "subQuery")) paste0("(", as.character(start), ")") else paste0("'", as.character(start), "'"))
}
if (missing(stop)) {
stop <- defaults$stop
}
if (!is.null(stop)) {
fields <- c(fields, "stop")
values <- c(values, if (is.null(stop)) "NULL" else if (is(stop, "subQuery")) paste0("(", as.character(stop), ")") else paste0("'", as.character(stop), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(cost)) {
cost <- defaults$cost
}
if (!is.null(cost)) {
fields <- c(fields, "cost")
values <- c(values, if (is.null(cost)) "NULL" else if (is(cost, "subQuery")) paste0("(", as.character(cost), ")") else paste0("'", as.character(cost), "'"))
}
if (missing(dispenses)) {
dispenses <- defaults$dispenses
}
if (!is.null(dispenses)) {
fields <- c(fields, "dispenses")
values <- c(values, if (is.null(dispenses)) "NULL" else if (is(dispenses, "subQuery")) paste0("(", as.character(dispenses), ")") else paste0("'", as.character(dispenses), "'"))
}
if (missing(totalcost)) {
totalcost <- defaults$totalcost
}
if (!is.null(totalcost)) {
fields <- c(fields, "totalcost")
values <- c(values, if (is.null(totalcost)) "NULL" else if (is(totalcost, "subQuery")) paste0("(", as.character(totalcost), ")") else paste0("'", as.character(totalcost), "'"))
}
if (missing(reasoncode)) {
reasoncode <- defaults$reasoncode
}
if (!is.null(reasoncode)) {
fields <- c(fields, "reasoncode")
values <- c(values, if (is.null(reasoncode)) "NULL" else if (is(reasoncode, "subQuery")) paste0("(", as.character(reasoncode), ")") else paste0("'", as.character(reasoncode), "'"))
}
if (missing(reasondescription)) {
reasondescription <- defaults$reasondescription
}
if (!is.null(reasondescription)) {
fields <- c(fields, "reasondescription")
values <- c(values, if (is.null(reasondescription)) "NULL" else if (is(reasondescription, "subQuery")) paste0("(", as.character(reasondescription), ")") else paste0("'", as.character(reasondescription), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[medications]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_observations <- function(date, patient, encounter, code, description, value, units, type) {
defaults <- get('observations', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(date)) {
date <- defaults$date
}
if (!is.null(date)) {
fields <- c(fields, "date")
values <- c(values, if (is.null(date)) "NULL" else if (is(date, "subQuery")) paste0("(", as.character(date), ")") else paste0("'", as.character(date), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(value)) {
value <- defaults$value
}
if (!is.null(value)) {
fields <- c(fields, "value")
values <- c(values, if (is.null(value)) "NULL" else if (is(value, "subQuery")) paste0("(", as.character(value), ")") else paste0("'", as.character(value), "'"))
}
if (missing(units)) {
units <- defaults$units
}
if (!is.null(units)) {
fields <- c(fields, "units")
values <- c(values, if (is.null(units)) "NULL" else if (is(units, "subQuery")) paste0("(", as.character(units), ")") else paste0("'", as.character(units), "'"))
}
if (missing(type)) {
type <- defaults$type
}
if (!is.null(type)) {
fields <- c(fields, "type")
values <- c(values, if (is.null(type)) "NULL" else if (is(type, "subQuery")) paste0("(", as.character(type), ")") else paste0("'", as.character(type), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[observations]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_patients <- function(id, birthdate, deathdate, ssn, drivers, passport, prefix, first, last, suffix, maiden, marital, race, ethnicity, gender, birthplace, address, city, state, zip) {
defaults <- get('patients', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(id)) {
id <- defaults$id
}
if (!is.null(id)) {
fields <- c(fields, "id")
values <- c(values, if (is.null(id)) "NULL" else if (is(id, "subQuery")) paste0("(", as.character(id), ")") else paste0("'", as.character(id), "'"))
}
if (missing(birthdate)) {
birthdate <- defaults$birthdate
}
if (!is.null(birthdate)) {
fields <- c(fields, "birthdate")
values <- c(values, if (is.null(birthdate)) "NULL" else if (is(birthdate, "subQuery")) paste0("(", as.character(birthdate), ")") else paste0("'", as.character(birthdate), "'"))
}
if (missing(deathdate)) {
deathdate <- defaults$deathdate
}
if (!is.null(deathdate)) {
fields <- c(fields, "deathdate")
values <- c(values, if (is.null(deathdate)) "NULL" else if (is(deathdate, "subQuery")) paste0("(", as.character(deathdate), ")") else paste0("'", as.character(deathdate), "'"))
}
if (missing(ssn)) {
ssn <- defaults$ssn
}
if (!is.null(ssn)) {
fields <- c(fields, "ssn")
values <- c(values, if (is.null(ssn)) "NULL" else if (is(ssn, "subQuery")) paste0("(", as.character(ssn), ")") else paste0("'", as.character(ssn), "'"))
}
if (missing(drivers)) {
drivers <- defaults$drivers
}
if (!is.null(drivers)) {
fields <- c(fields, "drivers")
values <- c(values, if (is.null(drivers)) "NULL" else if (is(drivers, "subQuery")) paste0("(", as.character(drivers), ")") else paste0("'", as.character(drivers), "'"))
}
if (missing(passport)) {
passport <- defaults$passport
}
if (!is.null(passport)) {
fields <- c(fields, "passport")
values <- c(values, if (is.null(passport)) "NULL" else if (is(passport, "subQuery")) paste0("(", as.character(passport), ")") else paste0("'", as.character(passport), "'"))
}
if (missing(prefix)) {
prefix <- defaults$prefix
}
if (!is.null(prefix)) {
fields <- c(fields, "prefix")
values <- c(values, if (is.null(prefix)) "NULL" else if (is(prefix, "subQuery")) paste0("(", as.character(prefix), ")") else paste0("'", as.character(prefix), "'"))
}
if (missing(first)) {
first <- defaults$first
}
if (!is.null(first)) {
fields <- c(fields, "first")
values <- c(values, if (is.null(first)) "NULL" else if (is(first, "subQuery")) paste0("(", as.character(first), ")") else paste0("'", as.character(first), "'"))
}
if (missing(last)) {
last <- defaults$last
}
if (!is.null(last)) {
fields <- c(fields, "last")
values <- c(values, if (is.null(last)) "NULL" else if (is(last, "subQuery")) paste0("(", as.character(last), ")") else paste0("'", as.character(last), "'"))
}
if (missing(suffix)) {
suffix <- defaults$suffix
}
if (!is.null(suffix)) {
fields <- c(fields, "suffix")
values <- c(values, if (is.null(suffix)) "NULL" else if (is(suffix, "subQuery")) paste0("(", as.character(suffix), ")") else paste0("'", as.character(suffix), "'"))
}
if (missing(maiden)) {
maiden <- defaults$maiden
}
if (!is.null(maiden)) {
fields <- c(fields, "maiden")
values <- c(values, if (is.null(maiden)) "NULL" else if (is(maiden, "subQuery")) paste0("(", as.character(maiden), ")") else paste0("'", as.character(maiden), "'"))
}
if (missing(marital)) {
marital <- defaults$marital
}
if (!is.null(marital)) {
fields <- c(fields, "marital")
values <- c(values, if (is.null(marital)) "NULL" else if (is(marital, "subQuery")) paste0("(", as.character(marital), ")") else paste0("'", as.character(marital), "'"))
}
if (missing(race)) {
race <- defaults$race
}
if (!is.null(race)) {
fields <- c(fields, "race")
values <- c(values, if (is.null(race)) "NULL" else if (is(race, "subQuery")) paste0("(", as.character(race), ")") else paste0("'", as.character(race), "'"))
}
if (missing(ethnicity)) {
ethnicity <- defaults$ethnicity
}
if (!is.null(ethnicity)) {
fields <- c(fields, "ethnicity")
values <- c(values, if (is.null(ethnicity)) "NULL" else if (is(ethnicity, "subQuery")) paste0("(", as.character(ethnicity), ")") else paste0("'", as.character(ethnicity), "'"))
}
if (missing(gender)) {
gender <- defaults$gender
}
if (!is.null(gender)) {
fields <- c(fields, "gender")
values <- c(values, if (is.null(gender)) "NULL" else if (is(gender, "subQuery")) paste0("(", as.character(gender), ")") else paste0("'", as.character(gender), "'"))
}
if (missing(birthplace)) {
birthplace <- defaults$birthplace
}
if (!is.null(birthplace)) {
fields <- c(fields, "birthplace")
values <- c(values, if (is.null(birthplace)) "NULL" else if (is(birthplace, "subQuery")) paste0("(", as.character(birthplace), ")") else paste0("'", as.character(birthplace), "'"))
}
if (missing(address)) {
address <- defaults$address
}
if (!is.null(address)) {
fields <- c(fields, "address")
values <- c(values, if (is.null(address)) "NULL" else if (is(address, "subQuery")) paste0("(", as.character(address), ")") else paste0("'", as.character(address), "'"))
}
if (missing(city)) {
city <- defaults$city
}
if (!is.null(city)) {
fields <- c(fields, "city")
values <- c(values, if (is.null(city)) "NULL" else if (is(city, "subQuery")) paste0("(", as.character(city), ")") else paste0("'", as.character(city), "'"))
}
if (missing(state)) {
state <- defaults$state
}
if (!is.null(state)) {
fields <- c(fields, "state")
values <- c(values, if (is.null(state)) "NULL" else if (is(state, "subQuery")) paste0("(", as.character(state), ")") else paste0("'", as.character(state), "'"))
}
if (missing(zip)) {
zip <- defaults$zip
}
if (!is.null(zip)) {
fields <- c(fields, "zip")
values <- c(values, if (is.null(zip)) "NULL" else if (is(zip, "subQuery")) paste0("(", as.character(zip), ")") else paste0("'", as.character(zip), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[patients]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
add_procedures <- function(date, patient, encounter, code, description, cost, reasoncode, reasondescription) {
defaults <- get('procedures', envir = frameworkContext$defaultValues)
fields <- c()
values <- c()
if (missing(date)) {
date <- defaults$date
}
if (!is.null(date)) {
fields <- c(fields, "date")
values <- c(values, if (is.null(date)) "NULL" else if (is(date, "subQuery")) paste0("(", as.character(date), ")") else paste0("'", as.character(date), "'"))
}
if (missing(patient)) {
patient <- defaults$patient
}
if (!is.null(patient)) {
fields <- c(fields, "patient")
values <- c(values, if (is.null(patient)) "NULL" else if (is(patient, "subQuery")) paste0("(", as.character(patient), ")") else paste0("'", as.character(patient), "'"))
}
if (missing(encounter)) {
encounter <- defaults$encounter
}
if (!is.null(encounter)) {
fields <- c(fields, "encounter")
values <- c(values, if (is.null(encounter)) "NULL" else if (is(encounter, "subQuery")) paste0("(", as.character(encounter), ")") else paste0("'", as.character(encounter), "'"))
}
if (missing(code)) {
code <- defaults$code
}
if (!is.null(code)) {
fields <- c(fields, "code")
values <- c(values, if (is.null(code)) "NULL" else if (is(code, "subQuery")) paste0("(", as.character(code), ")") else paste0("'", as.character(code), "'"))
}
if (missing(description)) {
description <- defaults$description
}
if (!is.null(description)) {
fields <- c(fields, "description")
values <- c(values, if (is.null(description)) "NULL" else if (is(description, "subQuery")) paste0("(", as.character(description), ")") else paste0("'", as.character(description), "'"))
}
if (missing(cost)) {
cost <- defaults$cost
}
if (!is.null(cost)) {
fields <- c(fields, "cost")
values <- c(values, if (is.null(cost)) "NULL" else if (is(cost, "subQuery")) paste0("(", as.character(cost), ")") else paste0("'", as.character(cost), "'"))
}
if (missing(reasoncode)) {
reasoncode <- defaults$reasoncode
}
if (!is.null(reasoncode)) {
fields <- c(fields, "reasoncode")
values <- c(values, if (is.null(reasoncode)) "NULL" else if (is(reasoncode, "subQuery")) paste0("(", as.character(reasoncode), ")") else paste0("'", as.character(reasoncode), "'"))
}
if (missing(reasondescription)) {
reasondescription <- defaults$reasondescription
}
if (!is.null(reasondescription)) {
fields <- c(fields, "reasondescription")
values <- c(values, if (is.null(reasondescription)) "NULL" else if (is(reasondescription, "subQuery")) paste0("(", as.character(reasondescription), ")") else paste0("'", as.character(reasondescription), "'"))
}
inserts <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, table = "[procedures]", fields = fields, values = values)
frameworkContext$inserts[[length(frameworkContext$inserts) + 1]] <- inserts
invisible(NULL)
}
expect_condition_occurrence <- function(condition_occurrence_id, person_id, condition_concept_id, condition_start_date, condition_start_datetime, condition_end_date, condition_end_datetime, condition_type_concept_id, stop_reason, provider_id, visit_occurrence_id, visit_detail_id, condition_source_value, condition_source_concept_id, condition_status_source_value, condition_status_concept_id) {
fields <- c()
values <- c()
if (!missing(condition_occurrence_id)) {
fields <- c(fields, "condition_occurrence_id")
values <- c(values, if (is.null(condition_occurrence_id)) "NULL" else if (is(condition_occurrence_id, "subQuery")) paste0("(", as.character(condition_occurrence_id), ")") else paste0("'", as.character(condition_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_start_date)) {
fields <- c(fields, "condition_start_date")
values <- c(values, if (is.null(condition_start_date)) "NULL" else if (is(condition_start_date, "subQuery")) paste0("(", as.character(condition_start_date), ")") else paste0("'", as.character(condition_start_date), "'"))
}
if (!missing(condition_start_datetime)) {
fields <- c(fields, "condition_start_datetime")
values <- c(values, if (is.null(condition_start_datetime)) "NULL" else if (is(condition_start_datetime, "subQuery")) paste0("(", as.character(condition_start_datetime), ")") else paste0("'", as.character(condition_start_datetime), "'"))
}
if (!missing(condition_end_date)) {
fields <- c(fields, "condition_end_date")
values <- c(values, if (is.null(condition_end_date)) "NULL" else if (is(condition_end_date, "subQuery")) paste0("(", as.character(condition_end_date), ")") else paste0("'", as.character(condition_end_date), "'"))
}
if (!missing(condition_end_datetime)) {
fields <- c(fields, "condition_end_datetime")
values <- c(values, if (is.null(condition_end_datetime)) "NULL" else if (is(condition_end_datetime, "subQuery")) paste0("(", as.character(condition_end_datetime), ")") else paste0("'", as.character(condition_end_datetime), "'"))
}
if (!missing(condition_type_concept_id)) {
fields <- c(fields, "condition_type_concept_id")
values <- c(values, if (is.null(condition_type_concept_id)) "NULL" else if (is(condition_type_concept_id, "subQuery")) paste0("(", as.character(condition_type_concept_id), ")") else paste0("'", as.character(condition_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(condition_source_value)) {
fields <- c(fields, "condition_source_value")
values <- c(values, if (is.null(condition_source_value)) "NULL" else if (is(condition_source_value, "subQuery")) paste0("(", as.character(condition_source_value), ")") else paste0("'", as.character(condition_source_value), "'"))
}
if (!missing(condition_source_concept_id)) {
fields <- c(fields, "condition_source_concept_id")
values <- c(values, if (is.null(condition_source_concept_id)) "NULL" else if (is(condition_source_concept_id, "subQuery")) paste0("(", as.character(condition_source_concept_id), ")") else paste0("'", as.character(condition_source_concept_id), "'"))
}
if (!missing(condition_status_source_value)) {
fields <- c(fields, "condition_status_source_value")
values <- c(values, if (is.null(condition_status_source_value)) "NULL" else if (is(condition_status_source_value, "subQuery")) paste0("(", as.character(condition_status_source_value), ")") else paste0("'", as.character(condition_status_source_value), "'"))
}
if (!missing(condition_status_concept_id)) {
fields <- c(fields, "condition_status_concept_id")
values <- c(values, if (is.null(condition_status_concept_id)) "NULL" else if (is(condition_status_concept_id, "subQuery")) paste0("(", as.character(condition_status_concept_id), ")") else paste0("'", as.character(condition_status_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "condition_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_death <- function(person_id, death_date, death_datetime, death_type_concept_id, cause_concept_id, cause_source_value, cause_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(death_date)) {
fields <- c(fields, "death_date")
values <- c(values, if (is.null(death_date)) "NULL" else if (is(death_date, "subQuery")) paste0("(", as.character(death_date), ")") else paste0("'", as.character(death_date), "'"))
}
if (!missing(death_datetime)) {
fields <- c(fields, "death_datetime")
values <- c(values, if (is.null(death_datetime)) "NULL" else if (is(death_datetime, "subQuery")) paste0("(", as.character(death_datetime), ")") else paste0("'", as.character(death_datetime), "'"))
}
if (!missing(death_type_concept_id)) {
fields <- c(fields, "death_type_concept_id")
values <- c(values, if (is.null(death_type_concept_id)) "NULL" else if (is(death_type_concept_id, "subQuery")) paste0("(", as.character(death_type_concept_id), ")") else paste0("'", as.character(death_type_concept_id), "'"))
}
if (!missing(cause_concept_id)) {
fields <- c(fields, "cause_concept_id")
values <- c(values, if (is.null(cause_concept_id)) "NULL" else if (is(cause_concept_id, "subQuery")) paste0("(", as.character(cause_concept_id), ")") else paste0("'", as.character(cause_concept_id), "'"))
}
if (!missing(cause_source_value)) {
fields <- c(fields, "cause_source_value")
values <- c(values, if (is.null(cause_source_value)) "NULL" else if (is(cause_source_value, "subQuery")) paste0("(", as.character(cause_source_value), ")") else paste0("'", as.character(cause_source_value), "'"))
}
if (!missing(cause_source_concept_id)) {
fields <- c(fields, "cause_source_concept_id")
values <- c(values, if (is.null(cause_source_concept_id)) "NULL" else if (is(cause_source_concept_id, "subQuery")) paste0("(", as.character(cause_source_concept_id), ")") else paste0("'", as.character(cause_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "death", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_device_exposure <- function(device_exposure_id, person_id, device_concept_id, device_exposure_start_date, device_exposure_start_datetime, device_exposure_end_date, device_exposure_end_datetime, device_type_concept_id, unique_device_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, device_source_value, device_source_concept_id) {
fields <- c()
values <- c()
if (!missing(device_exposure_id)) {
fields <- c(fields, "device_exposure_id")
values <- c(values, if (is.null(device_exposure_id)) "NULL" else if (is(device_exposure_id, "subQuery")) paste0("(", as.character(device_exposure_id), ")") else paste0("'", as.character(device_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(device_concept_id)) {
fields <- c(fields, "device_concept_id")
values <- c(values, if (is.null(device_concept_id)) "NULL" else if (is(device_concept_id, "subQuery")) paste0("(", as.character(device_concept_id), ")") else paste0("'", as.character(device_concept_id), "'"))
}
if (!missing(device_exposure_start_date)) {
fields <- c(fields, "device_exposure_start_date")
values <- c(values, if (is.null(device_exposure_start_date)) "NULL" else if (is(device_exposure_start_date, "subQuery")) paste0("(", as.character(device_exposure_start_date), ")") else paste0("'", as.character(device_exposure_start_date), "'"))
}
if (!missing(device_exposure_start_datetime)) {
fields <- c(fields, "device_exposure_start_datetime")
values <- c(values, if (is.null(device_exposure_start_datetime)) "NULL" else if (is(device_exposure_start_datetime, "subQuery")) paste0("(", as.character(device_exposure_start_datetime), ")") else paste0("'", as.character(device_exposure_start_datetime), "'"))
}
if (!missing(device_exposure_end_date)) {
fields <- c(fields, "device_exposure_end_date")
values <- c(values, if (is.null(device_exposure_end_date)) "NULL" else if (is(device_exposure_end_date, "subQuery")) paste0("(", as.character(device_exposure_end_date), ")") else paste0("'", as.character(device_exposure_end_date), "'"))
}
if (!missing(device_exposure_end_datetime)) {
fields <- c(fields, "device_exposure_end_datetime")
values <- c(values, if (is.null(device_exposure_end_datetime)) "NULL" else if (is(device_exposure_end_datetime, "subQuery")) paste0("(", as.character(device_exposure_end_datetime), ")") else paste0("'", as.character(device_exposure_end_datetime), "'"))
}
if (!missing(device_type_concept_id)) {
fields <- c(fields, "device_type_concept_id")
values <- c(values, if (is.null(device_type_concept_id)) "NULL" else if (is(device_type_concept_id, "subQuery")) paste0("(", as.character(device_type_concept_id), ")") else paste0("'", as.character(device_type_concept_id), "'"))
}
if (!missing(unique_device_id)) {
fields <- c(fields, "unique_device_id")
values <- c(values, if (is.null(unique_device_id)) "NULL" else if (is(unique_device_id, "subQuery")) paste0("(", as.character(unique_device_id), ")") else paste0("'", as.character(unique_device_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(device_source_value)) {
fields <- c(fields, "device_source_value")
values <- c(values, if (is.null(device_source_value)) "NULL" else if (is(device_source_value, "subQuery")) paste0("(", as.character(device_source_value), ")") else paste0("'", as.character(device_source_value), "'"))
}
if (!missing(device_source_concept_id)) {
fields <- c(fields, "device_source_concept_id")
values <- c(values, if (is.null(device_source_concept_id)) "NULL" else if (is(device_source_concept_id, "subQuery")) paste0("(", as.character(device_source_concept_id), ")") else paste0("'", as.character(device_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "device_exposure", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_drug_exposure <- function(drug_exposure_id, person_id, drug_concept_id, drug_exposure_start_date, drug_exposure_start_datetime, drug_exposure_end_date, drug_exposure_end_datetime, verbatim_end_date, drug_type_concept_id, stop_reason, refills, quantity, days_supply, sig, route_concept_id, lot_number, provider_id, visit_occurrence_id, visit_detail_id, drug_source_value, drug_source_concept_id, route_source_value, dose_unit_source_value) {
fields <- c()
values <- c()
if (!missing(drug_exposure_id)) {
fields <- c(fields, "drug_exposure_id")
values <- c(values, if (is.null(drug_exposure_id)) "NULL" else if (is(drug_exposure_id, "subQuery")) paste0("(", as.character(drug_exposure_id), ")") else paste0("'", as.character(drug_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_exposure_start_date)) {
fields <- c(fields, "drug_exposure_start_date")
values <- c(values, if (is.null(drug_exposure_start_date)) "NULL" else if (is(drug_exposure_start_date, "subQuery")) paste0("(", as.character(drug_exposure_start_date), ")") else paste0("'", as.character(drug_exposure_start_date), "'"))
}
if (!missing(drug_exposure_start_datetime)) {
fields <- c(fields, "drug_exposure_start_datetime")
values <- c(values, if (is.null(drug_exposure_start_datetime)) "NULL" else if (is(drug_exposure_start_datetime, "subQuery")) paste0("(", as.character(drug_exposure_start_datetime), ")") else paste0("'", as.character(drug_exposure_start_datetime), "'"))
}
if (!missing(drug_exposure_end_date)) {
fields <- c(fields, "drug_exposure_end_date")
values <- c(values, if (is.null(drug_exposure_end_date)) "NULL" else if (is(drug_exposure_end_date, "subQuery")) paste0("(", as.character(drug_exposure_end_date), ")") else paste0("'", as.character(drug_exposure_end_date), "'"))
}
if (!missing(drug_exposure_end_datetime)) {
fields <- c(fields, "drug_exposure_end_datetime")
values <- c(values, if (is.null(drug_exposure_end_datetime)) "NULL" else if (is(drug_exposure_end_datetime, "subQuery")) paste0("(", as.character(drug_exposure_end_datetime), ")") else paste0("'", as.character(drug_exposure_end_datetime), "'"))
}
if (!missing(verbatim_end_date)) {
fields <- c(fields, "verbatim_end_date")
values <- c(values, if (is.null(verbatim_end_date)) "NULL" else if (is(verbatim_end_date, "subQuery")) paste0("(", as.character(verbatim_end_date), ")") else paste0("'", as.character(verbatim_end_date), "'"))
}
if (!missing(drug_type_concept_id)) {
fields <- c(fields, "drug_type_concept_id")
values <- c(values, if (is.null(drug_type_concept_id)) "NULL" else if (is(drug_type_concept_id, "subQuery")) paste0("(", as.character(drug_type_concept_id), ")") else paste0("'", as.character(drug_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(refills)) {
fields <- c(fields, "refills")
values <- c(values, if (is.null(refills)) "NULL" else if (is(refills, "subQuery")) paste0("(", as.character(refills), ")") else paste0("'", as.character(refills), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(days_supply)) {
fields <- c(fields, "days_supply")
values <- c(values, if (is.null(days_supply)) "NULL" else if (is(days_supply, "subQuery")) paste0("(", as.character(days_supply), ")") else paste0("'", as.character(days_supply), "'"))
}
if (!missing(sig)) {
fields <- c(fields, "sig")
values <- c(values, if (is.null(sig)) "NULL" else if (is(sig, "subQuery")) paste0("(", as.character(sig), ")") else paste0("'", as.character(sig), "'"))
}
if (!missing(route_concept_id)) {
fields <- c(fields, "route_concept_id")
values <- c(values, if (is.null(route_concept_id)) "NULL" else if (is(route_concept_id, "subQuery")) paste0("(", as.character(route_concept_id), ")") else paste0("'", as.character(route_concept_id), "'"))
}
if (!missing(lot_number)) {
fields <- c(fields, "lot_number")
values <- c(values, if (is.null(lot_number)) "NULL" else if (is(lot_number, "subQuery")) paste0("(", as.character(lot_number), ")") else paste0("'", as.character(lot_number), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(drug_source_value)) {
fields <- c(fields, "drug_source_value")
values <- c(values, if (is.null(drug_source_value)) "NULL" else if (is(drug_source_value, "subQuery")) paste0("(", as.character(drug_source_value), ")") else paste0("'", as.character(drug_source_value), "'"))
}
if (!missing(drug_source_concept_id)) {
fields <- c(fields, "drug_source_concept_id")
values <- c(values, if (is.null(drug_source_concept_id)) "NULL" else if (is(drug_source_concept_id, "subQuery")) paste0("(", as.character(drug_source_concept_id), ")") else paste0("'", as.character(drug_source_concept_id), "'"))
}
if (!missing(route_source_value)) {
fields <- c(fields, "route_source_value")
values <- c(values, if (is.null(route_source_value)) "NULL" else if (is(route_source_value, "subQuery")) paste0("(", as.character(route_source_value), ")") else paste0("'", as.character(route_source_value), "'"))
}
if (!missing(dose_unit_source_value)) {
fields <- c(fields, "dose_unit_source_value")
values <- c(values, if (is.null(dose_unit_source_value)) "NULL" else if (is(dose_unit_source_value, "subQuery")) paste0("(", as.character(dose_unit_source_value), ")") else paste0("'", as.character(dose_unit_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "drug_exposure", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_fact_relationship <- function(domain_concept_id_1, fact_id_1, domain_concept_id_2, fact_id_2, relationship_concept_id) {
fields <- c()
values <- c()
if (!missing(domain_concept_id_1)) {
fields <- c(fields, "domain_concept_id_1")
values <- c(values, if (is.null(domain_concept_id_1)) "NULL" else if (is(domain_concept_id_1, "subQuery")) paste0("(", as.character(domain_concept_id_1), ")") else paste0("'", as.character(domain_concept_id_1), "'"))
}
if (!missing(fact_id_1)) {
fields <- c(fields, "fact_id_1")
values <- c(values, if (is.null(fact_id_1)) "NULL" else if (is(fact_id_1, "subQuery")) paste0("(", as.character(fact_id_1), ")") else paste0("'", as.character(fact_id_1), "'"))
}
if (!missing(domain_concept_id_2)) {
fields <- c(fields, "domain_concept_id_2")
values <- c(values, if (is.null(domain_concept_id_2)) "NULL" else if (is(domain_concept_id_2, "subQuery")) paste0("(", as.character(domain_concept_id_2), ")") else paste0("'", as.character(domain_concept_id_2), "'"))
}
if (!missing(fact_id_2)) {
fields <- c(fields, "fact_id_2")
values <- c(values, if (is.null(fact_id_2)) "NULL" else if (is(fact_id_2, "subQuery")) paste0("(", as.character(fact_id_2), ")") else paste0("'", as.character(fact_id_2), "'"))
}
if (!missing(relationship_concept_id)) {
fields <- c(fields, "relationship_concept_id")
values <- c(values, if (is.null(relationship_concept_id)) "NULL" else if (is(relationship_concept_id, "subQuery")) paste0("(", as.character(relationship_concept_id), ")") else paste0("'", as.character(relationship_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "fact_relationship", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_measurement <- function(measurement_id, person_id, measurement_concept_id, measurement_date, measurement_datetime, measurement_time, measurement_type_concept_id, operator_concept_id, value_as_number, value_as_concept_id, unit_concept_id, range_low, range_high, provider_id, visit_occurrence_id, visit_detail_id, measurement_source_value, measurement_source_concept_id, unit_source_value, value_source_value) {
fields <- c()
values <- c()
if (!missing(measurement_id)) {
fields <- c(fields, "measurement_id")
values <- c(values, if (is.null(measurement_id)) "NULL" else if (is(measurement_id, "subQuery")) paste0("(", as.character(measurement_id), ")") else paste0("'", as.character(measurement_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(measurement_concept_id)) {
fields <- c(fields, "measurement_concept_id")
values <- c(values, if (is.null(measurement_concept_id)) "NULL" else if (is(measurement_concept_id, "subQuery")) paste0("(", as.character(measurement_concept_id), ")") else paste0("'", as.character(measurement_concept_id), "'"))
}
if (!missing(measurement_date)) {
fields <- c(fields, "measurement_date")
values <- c(values, if (is.null(measurement_date)) "NULL" else if (is(measurement_date, "subQuery")) paste0("(", as.character(measurement_date), ")") else paste0("'", as.character(measurement_date), "'"))
}
if (!missing(measurement_datetime)) {
fields <- c(fields, "measurement_datetime")
values <- c(values, if (is.null(measurement_datetime)) "NULL" else if (is(measurement_datetime, "subQuery")) paste0("(", as.character(measurement_datetime), ")") else paste0("'", as.character(measurement_datetime), "'"))
}
if (!missing(measurement_time)) {
fields <- c(fields, "measurement_time")
values <- c(values, if (is.null(measurement_time)) "NULL" else if (is(measurement_time, "subQuery")) paste0("(", as.character(measurement_time), ")") else paste0("'", as.character(measurement_time), "'"))
}
if (!missing(measurement_type_concept_id)) {
fields <- c(fields, "measurement_type_concept_id")
values <- c(values, if (is.null(measurement_type_concept_id)) "NULL" else if (is(measurement_type_concept_id, "subQuery")) paste0("(", as.character(measurement_type_concept_id), ")") else paste0("'", as.character(measurement_type_concept_id), "'"))
}
if (!missing(operator_concept_id)) {
fields <- c(fields, "operator_concept_id")
values <- c(values, if (is.null(operator_concept_id)) "NULL" else if (is(operator_concept_id, "subQuery")) paste0("(", as.character(operator_concept_id), ")") else paste0("'", as.character(operator_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(range_low)) {
fields <- c(fields, "range_low")
values <- c(values, if (is.null(range_low)) "NULL" else if (is(range_low, "subQuery")) paste0("(", as.character(range_low), ")") else paste0("'", as.character(range_low), "'"))
}
if (!missing(range_high)) {
fields <- c(fields, "range_high")
values <- c(values, if (is.null(range_high)) "NULL" else if (is(range_high, "subQuery")) paste0("(", as.character(range_high), ")") else paste0("'", as.character(range_high), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(measurement_source_value)) {
fields <- c(fields, "measurement_source_value")
values <- c(values, if (is.null(measurement_source_value)) "NULL" else if (is(measurement_source_value, "subQuery")) paste0("(", as.character(measurement_source_value), ")") else paste0("'", as.character(measurement_source_value), "'"))
}
if (!missing(measurement_source_concept_id)) {
fields <- c(fields, "measurement_source_concept_id")
values <- c(values, if (is.null(measurement_source_concept_id)) "NULL" else if (is(measurement_source_concept_id, "subQuery")) paste0("(", as.character(measurement_source_concept_id), ")") else paste0("'", as.character(measurement_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(value_source_value)) {
fields <- c(fields, "value_source_value")
values <- c(values, if (is.null(value_source_value)) "NULL" else if (is(value_source_value, "subQuery")) paste0("(", as.character(value_source_value), ")") else paste0("'", as.character(value_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "measurement", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_note <- function(note_id, person_id, note_date, note_datetime, note_type_concept_id, note_class_concept_id, note_title, note_text, encoding_concept_id, language_concept_id, provider_id, visit_occurrence_id, visit_detail_id, note_source_value) {
fields <- c()
values <- c()
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(note_date)) {
fields <- c(fields, "note_date")
values <- c(values, if (is.null(note_date)) "NULL" else if (is(note_date, "subQuery")) paste0("(", as.character(note_date), ")") else paste0("'", as.character(note_date), "'"))
}
if (!missing(note_datetime)) {
fields <- c(fields, "note_datetime")
values <- c(values, if (is.null(note_datetime)) "NULL" else if (is(note_datetime, "subQuery")) paste0("(", as.character(note_datetime), ")") else paste0("'", as.character(note_datetime), "'"))
}
if (!missing(note_type_concept_id)) {
fields <- c(fields, "note_type_concept_id")
values <- c(values, if (is.null(note_type_concept_id)) "NULL" else if (is(note_type_concept_id, "subQuery")) paste0("(", as.character(note_type_concept_id), ")") else paste0("'", as.character(note_type_concept_id), "'"))
}
if (!missing(note_class_concept_id)) {
fields <- c(fields, "note_class_concept_id")
values <- c(values, if (is.null(note_class_concept_id)) "NULL" else if (is(note_class_concept_id, "subQuery")) paste0("(", as.character(note_class_concept_id), ")") else paste0("'", as.character(note_class_concept_id), "'"))
}
if (!missing(note_title)) {
fields <- c(fields, "note_title")
values <- c(values, if (is.null(note_title)) "NULL" else if (is(note_title, "subQuery")) paste0("(", as.character(note_title), ")") else paste0("'", as.character(note_title), "'"))
}
if (!missing(note_text)) {
fields <- c(fields, "note_text")
values <- c(values, if (is.null(note_text)) "NULL" else if (is(note_text, "subQuery")) paste0("(", as.character(note_text), ")") else paste0("'", as.character(note_text), "'"))
}
if (!missing(encoding_concept_id)) {
fields <- c(fields, "encoding_concept_id")
values <- c(values, if (is.null(encoding_concept_id)) "NULL" else if (is(encoding_concept_id, "subQuery")) paste0("(", as.character(encoding_concept_id), ")") else paste0("'", as.character(encoding_concept_id), "'"))
}
if (!missing(language_concept_id)) {
fields <- c(fields, "language_concept_id")
values <- c(values, if (is.null(language_concept_id)) "NULL" else if (is(language_concept_id, "subQuery")) paste0("(", as.character(language_concept_id), ")") else paste0("'", as.character(language_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(note_source_value)) {
fields <- c(fields, "note_source_value")
values <- c(values, if (is.null(note_source_value)) "NULL" else if (is(note_source_value, "subQuery")) paste0("(", as.character(note_source_value), ")") else paste0("'", as.character(note_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "note", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_note_nlp <- function(note_nlp_id, note_id, section_concept_id, snippet, offset, lexical_variant, note_nlp_concept_id, note_nlp_source_concept_id, nlp_system, nlp_date, nlp_datetime, term_exists, term_temporal, term_modifiers) {
fields <- c()
values <- c()
if (!missing(note_nlp_id)) {
fields <- c(fields, "note_nlp_id")
values <- c(values, if (is.null(note_nlp_id)) "NULL" else if (is(note_nlp_id, "subQuery")) paste0("(", as.character(note_nlp_id), ")") else paste0("'", as.character(note_nlp_id), "'"))
}
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(section_concept_id)) {
fields <- c(fields, "section_concept_id")
values <- c(values, if (is.null(section_concept_id)) "NULL" else if (is(section_concept_id, "subQuery")) paste0("(", as.character(section_concept_id), ")") else paste0("'", as.character(section_concept_id), "'"))
}
if (!missing(snippet)) {
fields <- c(fields, "snippet")
values <- c(values, if (is.null(snippet)) "NULL" else if (is(snippet, "subQuery")) paste0("(", as.character(snippet), ")") else paste0("'", as.character(snippet), "'"))
}
if (!missing(offset)) {
fields <- c(fields, "offset")
values <- c(values, if (is.null(offset)) "NULL" else if (is(offset, "subQuery")) paste0("(", as.character(offset), ")") else paste0("'", as.character(offset), "'"))
}
if (!missing(lexical_variant)) {
fields <- c(fields, "lexical_variant")
values <- c(values, if (is.null(lexical_variant)) "NULL" else if (is(lexical_variant, "subQuery")) paste0("(", as.character(lexical_variant), ")") else paste0("'", as.character(lexical_variant), "'"))
}
if (!missing(note_nlp_concept_id)) {
fields <- c(fields, "note_nlp_concept_id")
values <- c(values, if (is.null(note_nlp_concept_id)) "NULL" else if (is(note_nlp_concept_id, "subQuery")) paste0("(", as.character(note_nlp_concept_id), ")") else paste0("'", as.character(note_nlp_concept_id), "'"))
}
if (!missing(note_nlp_source_concept_id)) {
fields <- c(fields, "note_nlp_source_concept_id")
values <- c(values, if (is.null(note_nlp_source_concept_id)) "NULL" else if (is(note_nlp_source_concept_id, "subQuery")) paste0("(", as.character(note_nlp_source_concept_id), ")") else paste0("'", as.character(note_nlp_source_concept_id), "'"))
}
if (!missing(nlp_system)) {
fields <- c(fields, "nlp_system")
values <- c(values, if (is.null(nlp_system)) "NULL" else if (is(nlp_system, "subQuery")) paste0("(", as.character(nlp_system), ")") else paste0("'", as.character(nlp_system), "'"))
}
if (!missing(nlp_date)) {
fields <- c(fields, "nlp_date")
values <- c(values, if (is.null(nlp_date)) "NULL" else if (is(nlp_date, "subQuery")) paste0("(", as.character(nlp_date), ")") else paste0("'", as.character(nlp_date), "'"))
}
if (!missing(nlp_datetime)) {
fields <- c(fields, "nlp_datetime")
values <- c(values, if (is.null(nlp_datetime)) "NULL" else if (is(nlp_datetime, "subQuery")) paste0("(", as.character(nlp_datetime), ")") else paste0("'", as.character(nlp_datetime), "'"))
}
if (!missing(term_exists)) {
fields <- c(fields, "term_exists")
values <- c(values, if (is.null(term_exists)) "NULL" else if (is(term_exists, "subQuery")) paste0("(", as.character(term_exists), ")") else paste0("'", as.character(term_exists), "'"))
}
if (!missing(term_temporal)) {
fields <- c(fields, "term_temporal")
values <- c(values, if (is.null(term_temporal)) "NULL" else if (is(term_temporal, "subQuery")) paste0("(", as.character(term_temporal), ")") else paste0("'", as.character(term_temporal), "'"))
}
if (!missing(term_modifiers)) {
fields <- c(fields, "term_modifiers")
values <- c(values, if (is.null(term_modifiers)) "NULL" else if (is(term_modifiers, "subQuery")) paste0("(", as.character(term_modifiers), ")") else paste0("'", as.character(term_modifiers), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "note_nlp", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_observation <- function(observation_id, person_id, observation_concept_id, observation_date, observation_datetime, observation_type_concept_id, value_as_number, value_as_string, value_as_concept_id, qualifier_concept_id, unit_concept_id, provider_id, visit_occurrence_id, visit_detail_id, observation_source_value, observation_source_concept_id, unit_source_value, qualifier_source_value) {
fields <- c()
values <- c()
if (!missing(observation_id)) {
fields <- c(fields, "observation_id")
values <- c(values, if (is.null(observation_id)) "NULL" else if (is(observation_id, "subQuery")) paste0("(", as.character(observation_id), ")") else paste0("'", as.character(observation_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_concept_id)) {
fields <- c(fields, "observation_concept_id")
values <- c(values, if (is.null(observation_concept_id)) "NULL" else if (is(observation_concept_id, "subQuery")) paste0("(", as.character(observation_concept_id), ")") else paste0("'", as.character(observation_concept_id), "'"))
}
if (!missing(observation_date)) {
fields <- c(fields, "observation_date")
values <- c(values, if (is.null(observation_date)) "NULL" else if (is(observation_date, "subQuery")) paste0("(", as.character(observation_date), ")") else paste0("'", as.character(observation_date), "'"))
}
if (!missing(observation_datetime)) {
fields <- c(fields, "observation_datetime")
values <- c(values, if (is.null(observation_datetime)) "NULL" else if (is(observation_datetime, "subQuery")) paste0("(", as.character(observation_datetime), ")") else paste0("'", as.character(observation_datetime), "'"))
}
if (!missing(observation_type_concept_id)) {
fields <- c(fields, "observation_type_concept_id")
values <- c(values, if (is.null(observation_type_concept_id)) "NULL" else if (is(observation_type_concept_id, "subQuery")) paste0("(", as.character(observation_type_concept_id), ")") else paste0("'", as.character(observation_type_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(qualifier_concept_id)) {
fields <- c(fields, "qualifier_concept_id")
values <- c(values, if (is.null(qualifier_concept_id)) "NULL" else if (is(qualifier_concept_id, "subQuery")) paste0("(", as.character(qualifier_concept_id), ")") else paste0("'", as.character(qualifier_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(observation_source_value)) {
fields <- c(fields, "observation_source_value")
values <- c(values, if (is.null(observation_source_value)) "NULL" else if (is(observation_source_value, "subQuery")) paste0("(", as.character(observation_source_value), ")") else paste0("'", as.character(observation_source_value), "'"))
}
if (!missing(observation_source_concept_id)) {
fields <- c(fields, "observation_source_concept_id")
values <- c(values, if (is.null(observation_source_concept_id)) "NULL" else if (is(observation_source_concept_id, "subQuery")) paste0("(", as.character(observation_source_concept_id), ")") else paste0("'", as.character(observation_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(qualifier_source_value)) {
fields <- c(fields, "qualifier_source_value")
values <- c(values, if (is.null(qualifier_source_value)) "NULL" else if (is(qualifier_source_value, "subQuery")) paste0("(", as.character(qualifier_source_value), ")") else paste0("'", as.character(qualifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "observation", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_observation_period <- function(observation_period_id, person_id, observation_period_start_date, observation_period_end_date, period_type_concept_id) {
fields <- c()
values <- c()
if (!missing(observation_period_id)) {
fields <- c(fields, "observation_period_id")
values <- c(values, if (is.null(observation_period_id)) "NULL" else if (is(observation_period_id, "subQuery")) paste0("(", as.character(observation_period_id), ")") else paste0("'", as.character(observation_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_period_start_date)) {
fields <- c(fields, "observation_period_start_date")
values <- c(values, if (is.null(observation_period_start_date)) "NULL" else if (is(observation_period_start_date, "subQuery")) paste0("(", as.character(observation_period_start_date), ")") else paste0("'", as.character(observation_period_start_date), "'"))
}
if (!missing(observation_period_end_date)) {
fields <- c(fields, "observation_period_end_date")
values <- c(values, if (is.null(observation_period_end_date)) "NULL" else if (is(observation_period_end_date, "subQuery")) paste0("(", as.character(observation_period_end_date), ")") else paste0("'", as.character(observation_period_end_date), "'"))
}
if (!missing(period_type_concept_id)) {
fields <- c(fields, "period_type_concept_id")
values <- c(values, if (is.null(period_type_concept_id)) "NULL" else if (is(period_type_concept_id, "subQuery")) paste0("(", as.character(period_type_concept_id), ")") else paste0("'", as.character(period_type_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "observation_period", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_person <- function(person_id, gender_concept_id, year_of_birth, month_of_birth, day_of_birth, birth_datetime, race_concept_id, ethnicity_concept_id, location_id, provider_id, care_site_id, person_source_value, gender_source_value, gender_source_concept_id, race_source_value, race_source_concept_id, ethnicity_source_value, ethnicity_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(month_of_birth)) {
fields <- c(fields, "month_of_birth")
values <- c(values, if (is.null(month_of_birth)) "NULL" else if (is(month_of_birth, "subQuery")) paste0("(", as.character(month_of_birth), ")") else paste0("'", as.character(month_of_birth), "'"))
}
if (!missing(day_of_birth)) {
fields <- c(fields, "day_of_birth")
values <- c(values, if (is.null(day_of_birth)) "NULL" else if (is(day_of_birth, "subQuery")) paste0("(", as.character(day_of_birth), ")") else paste0("'", as.character(day_of_birth), "'"))
}
if (!missing(birth_datetime)) {
fields <- c(fields, "birth_datetime")
values <- c(values, if (is.null(birth_datetime)) "NULL" else if (is(birth_datetime, "subQuery")) paste0("(", as.character(birth_datetime), ")") else paste0("'", as.character(birth_datetime), "'"))
}
if (!missing(race_concept_id)) {
fields <- c(fields, "race_concept_id")
values <- c(values, if (is.null(race_concept_id)) "NULL" else if (is(race_concept_id, "subQuery")) paste0("(", as.character(race_concept_id), ")") else paste0("'", as.character(race_concept_id), "'"))
}
if (!missing(ethnicity_concept_id)) {
fields <- c(fields, "ethnicity_concept_id")
values <- c(values, if (is.null(ethnicity_concept_id)) "NULL" else if (is(ethnicity_concept_id, "subQuery")) paste0("(", as.character(ethnicity_concept_id), ")") else paste0("'", as.character(ethnicity_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(person_source_value)) {
fields <- c(fields, "person_source_value")
values <- c(values, if (is.null(person_source_value)) "NULL" else if (is(person_source_value, "subQuery")) paste0("(", as.character(person_source_value), ")") else paste0("'", as.character(person_source_value), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
if (!missing(race_source_value)) {
fields <- c(fields, "race_source_value")
values <- c(values, if (is.null(race_source_value)) "NULL" else if (is(race_source_value, "subQuery")) paste0("(", as.character(race_source_value), ")") else paste0("'", as.character(race_source_value), "'"))
}
if (!missing(race_source_concept_id)) {
fields <- c(fields, "race_source_concept_id")
values <- c(values, if (is.null(race_source_concept_id)) "NULL" else if (is(race_source_concept_id, "subQuery")) paste0("(", as.character(race_source_concept_id), ")") else paste0("'", as.character(race_source_concept_id), "'"))
}
if (!missing(ethnicity_source_value)) {
fields <- c(fields, "ethnicity_source_value")
values <- c(values, if (is.null(ethnicity_source_value)) "NULL" else if (is(ethnicity_source_value, "subQuery")) paste0("(", as.character(ethnicity_source_value), ")") else paste0("'", as.character(ethnicity_source_value), "'"))
}
if (!missing(ethnicity_source_concept_id)) {
fields <- c(fields, "ethnicity_source_concept_id")
values <- c(values, if (is.null(ethnicity_source_concept_id)) "NULL" else if (is(ethnicity_source_concept_id, "subQuery")) paste0("(", as.character(ethnicity_source_concept_id), ")") else paste0("'", as.character(ethnicity_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "person", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_procedure_occurrence <- function(procedure_occurrence_id, person_id, procedure_concept_id, procedure_date, procedure_datetime, procedure_type_concept_id, modifier_concept_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, procedure_source_value, procedure_source_concept_id, modifier_source_value) {
fields <- c()
values <- c()
if (!missing(procedure_occurrence_id)) {
fields <- c(fields, "procedure_occurrence_id")
values <- c(values, if (is.null(procedure_occurrence_id)) "NULL" else if (is(procedure_occurrence_id, "subQuery")) paste0("(", as.character(procedure_occurrence_id), ")") else paste0("'", as.character(procedure_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(procedure_concept_id)) {
fields <- c(fields, "procedure_concept_id")
values <- c(values, if (is.null(procedure_concept_id)) "NULL" else if (is(procedure_concept_id, "subQuery")) paste0("(", as.character(procedure_concept_id), ")") else paste0("'", as.character(procedure_concept_id), "'"))
}
if (!missing(procedure_date)) {
fields <- c(fields, "procedure_date")
values <- c(values, if (is.null(procedure_date)) "NULL" else if (is(procedure_date, "subQuery")) paste0("(", as.character(procedure_date), ")") else paste0("'", as.character(procedure_date), "'"))
}
if (!missing(procedure_datetime)) {
fields <- c(fields, "procedure_datetime")
values <- c(values, if (is.null(procedure_datetime)) "NULL" else if (is(procedure_datetime, "subQuery")) paste0("(", as.character(procedure_datetime), ")") else paste0("'", as.character(procedure_datetime), "'"))
}
if (!missing(procedure_type_concept_id)) {
fields <- c(fields, "procedure_type_concept_id")
values <- c(values, if (is.null(procedure_type_concept_id)) "NULL" else if (is(procedure_type_concept_id, "subQuery")) paste0("(", as.character(procedure_type_concept_id), ")") else paste0("'", as.character(procedure_type_concept_id), "'"))
}
if (!missing(modifier_concept_id)) {
fields <- c(fields, "modifier_concept_id")
values <- c(values, if (is.null(modifier_concept_id)) "NULL" else if (is(modifier_concept_id, "subQuery")) paste0("(", as.character(modifier_concept_id), ")") else paste0("'", as.character(modifier_concept_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(procedure_source_value)) {
fields <- c(fields, "procedure_source_value")
values <- c(values, if (is.null(procedure_source_value)) "NULL" else if (is(procedure_source_value, "subQuery")) paste0("(", as.character(procedure_source_value), ")") else paste0("'", as.character(procedure_source_value), "'"))
}
if (!missing(procedure_source_concept_id)) {
fields <- c(fields, "procedure_source_concept_id")
values <- c(values, if (is.null(procedure_source_concept_id)) "NULL" else if (is(procedure_source_concept_id, "subQuery")) paste0("(", as.character(procedure_source_concept_id), ")") else paste0("'", as.character(procedure_source_concept_id), "'"))
}
if (!missing(modifier_source_value)) {
fields <- c(fields, "modifier_source_value")
values <- c(values, if (is.null(modifier_source_value)) "NULL" else if (is(modifier_source_value, "subQuery")) paste0("(", as.character(modifier_source_value), ")") else paste0("'", as.character(modifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "procedure_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_specimen <- function(specimen_id, person_id, specimen_concept_id, specimen_type_concept_id, specimen_date, specimen_datetime, quantity, unit_concept_id, anatomic_site_concept_id, disease_status_concept_id, specimen_source_id, specimen_source_value, unit_source_value, anatomic_site_source_value, disease_status_source_value) {
fields <- c()
values <- c()
if (!missing(specimen_id)) {
fields <- c(fields, "specimen_id")
values <- c(values, if (is.null(specimen_id)) "NULL" else if (is(specimen_id, "subQuery")) paste0("(", as.character(specimen_id), ")") else paste0("'", as.character(specimen_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(specimen_concept_id)) {
fields <- c(fields, "specimen_concept_id")
values <- c(values, if (is.null(specimen_concept_id)) "NULL" else if (is(specimen_concept_id, "subQuery")) paste0("(", as.character(specimen_concept_id), ")") else paste0("'", as.character(specimen_concept_id), "'"))
}
if (!missing(specimen_type_concept_id)) {
fields <- c(fields, "specimen_type_concept_id")
values <- c(values, if (is.null(specimen_type_concept_id)) "NULL" else if (is(specimen_type_concept_id, "subQuery")) paste0("(", as.character(specimen_type_concept_id), ")") else paste0("'", as.character(specimen_type_concept_id), "'"))
}
if (!missing(specimen_date)) {
fields <- c(fields, "specimen_date")
values <- c(values, if (is.null(specimen_date)) "NULL" else if (is(specimen_date, "subQuery")) paste0("(", as.character(specimen_date), ")") else paste0("'", as.character(specimen_date), "'"))
}
if (!missing(specimen_datetime)) {
fields <- c(fields, "specimen_datetime")
values <- c(values, if (is.null(specimen_datetime)) "NULL" else if (is(specimen_datetime, "subQuery")) paste0("(", as.character(specimen_datetime), ")") else paste0("'", as.character(specimen_datetime), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(anatomic_site_concept_id)) {
fields <- c(fields, "anatomic_site_concept_id")
values <- c(values, if (is.null(anatomic_site_concept_id)) "NULL" else if (is(anatomic_site_concept_id, "subQuery")) paste0("(", as.character(anatomic_site_concept_id), ")") else paste0("'", as.character(anatomic_site_concept_id), "'"))
}
if (!missing(disease_status_concept_id)) {
fields <- c(fields, "disease_status_concept_id")
values <- c(values, if (is.null(disease_status_concept_id)) "NULL" else if (is(disease_status_concept_id, "subQuery")) paste0("(", as.character(disease_status_concept_id), ")") else paste0("'", as.character(disease_status_concept_id), "'"))
}
if (!missing(specimen_source_id)) {
fields <- c(fields, "specimen_source_id")
values <- c(values, if (is.null(specimen_source_id)) "NULL" else if (is(specimen_source_id, "subQuery")) paste0("(", as.character(specimen_source_id), ")") else paste0("'", as.character(specimen_source_id), "'"))
}
if (!missing(specimen_source_value)) {
fields <- c(fields, "specimen_source_value")
values <- c(values, if (is.null(specimen_source_value)) "NULL" else if (is(specimen_source_value, "subQuery")) paste0("(", as.character(specimen_source_value), ")") else paste0("'", as.character(specimen_source_value), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(anatomic_site_source_value)) {
fields <- c(fields, "anatomic_site_source_value")
values <- c(values, if (is.null(anatomic_site_source_value)) "NULL" else if (is(anatomic_site_source_value, "subQuery")) paste0("(", as.character(anatomic_site_source_value), ")") else paste0("'", as.character(anatomic_site_source_value), "'"))
}
if (!missing(disease_status_source_value)) {
fields <- c(fields, "disease_status_source_value")
values <- c(values, if (is.null(disease_status_source_value)) "NULL" else if (is(disease_status_source_value, "subQuery")) paste0("(", as.character(disease_status_source_value), ")") else paste0("'", as.character(disease_status_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "specimen", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_visit_detail <- function(visit_detail_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_value, admitting_source_concept_id, discharge_to_source_value, discharge_to_concept_id, preceding_visit_detail_id, visit_detail_parent_id, visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(preceding_visit_detail_id)) {
fields <- c(fields, "preceding_visit_detail_id")
values <- c(values, if (is.null(preceding_visit_detail_id)) "NULL" else if (is(preceding_visit_detail_id, "subQuery")) paste0("(", as.character(preceding_visit_detail_id), ")") else paste0("'", as.character(preceding_visit_detail_id), "'"))
}
if (!missing(visit_detail_parent_id)) {
fields <- c(fields, "visit_detail_parent_id")
values <- c(values, if (is.null(visit_detail_parent_id)) "NULL" else if (is(visit_detail_parent_id, "subQuery")) paste0("(", as.character(visit_detail_parent_id), ")") else paste0("'", as.character(visit_detail_parent_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "visit_detail", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_visit_occurrence <- function(visit_occurrence_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_concept_id, admitting_source_value, discharge_to_concept_id, discharge_to_source_value, preceding_visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(preceding_visit_occurrence_id)) {
fields <- c(fields, "preceding_visit_occurrence_id")
values <- c(values, if (is.null(preceding_visit_occurrence_id)) "NULL" else if (is(preceding_visit_occurrence_id, "subQuery")) paste0("(", as.character(preceding_visit_occurrence_id), ")") else paste0("'", as.character(preceding_visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "visit_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_cohort <- function(cohort_definition_id, subject_id, cohort_start_date, cohort_end_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "cohort", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_cohort_attribute <- function(cohort_definition_id, subject_id, cohort_start_date, cohort_end_date, attribute_definition_id, value_as_number, value_as_concept_id) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "cohort_attribute", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_condition_era <- function(condition_era_id, person_id, condition_concept_id, condition_era_start_date, condition_era_end_date, condition_occurrence_count) {
fields <- c()
values <- c()
if (!missing(condition_era_id)) {
fields <- c(fields, "condition_era_id")
values <- c(values, if (is.null(condition_era_id)) "NULL" else if (is(condition_era_id, "subQuery")) paste0("(", as.character(condition_era_id), ")") else paste0("'", as.character(condition_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_era_start_date)) {
fields <- c(fields, "condition_era_start_date")
values <- c(values, if (is.null(condition_era_start_date)) "NULL" else if (is(condition_era_start_date, "subQuery")) paste0("(", as.character(condition_era_start_date), ")") else paste0("'", as.character(condition_era_start_date), "'"))
}
if (!missing(condition_era_end_date)) {
fields <- c(fields, "condition_era_end_date")
values <- c(values, if (is.null(condition_era_end_date)) "NULL" else if (is(condition_era_end_date, "subQuery")) paste0("(", as.character(condition_era_end_date), ")") else paste0("'", as.character(condition_era_end_date), "'"))
}
if (!missing(condition_occurrence_count)) {
fields <- c(fields, "condition_occurrence_count")
values <- c(values, if (is.null(condition_occurrence_count)) "NULL" else if (is(condition_occurrence_count, "subQuery")) paste0("(", as.character(condition_occurrence_count), ")") else paste0("'", as.character(condition_occurrence_count), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "condition_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_dose_era <- function(dose_era_id, person_id, drug_concept_id, unit_concept_id, dose_value, dose_era_start_date, dose_era_end_date) {
fields <- c()
values <- c()
if (!missing(dose_era_id)) {
fields <- c(fields, "dose_era_id")
values <- c(values, if (is.null(dose_era_id)) "NULL" else if (is(dose_era_id, "subQuery")) paste0("(", as.character(dose_era_id), ")") else paste0("'", as.character(dose_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(dose_value)) {
fields <- c(fields, "dose_value")
values <- c(values, if (is.null(dose_value)) "NULL" else if (is(dose_value, "subQuery")) paste0("(", as.character(dose_value), ")") else paste0("'", as.character(dose_value), "'"))
}
if (!missing(dose_era_start_date)) {
fields <- c(fields, "dose_era_start_date")
values <- c(values, if (is.null(dose_era_start_date)) "NULL" else if (is(dose_era_start_date, "subQuery")) paste0("(", as.character(dose_era_start_date), ")") else paste0("'", as.character(dose_era_start_date), "'"))
}
if (!missing(dose_era_end_date)) {
fields <- c(fields, "dose_era_end_date")
values <- c(values, if (is.null(dose_era_end_date)) "NULL" else if (is(dose_era_end_date, "subQuery")) paste0("(", as.character(dose_era_end_date), ")") else paste0("'", as.character(dose_era_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "dose_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_drug_era <- function(drug_era_id, person_id, drug_concept_id, drug_era_start_date, drug_era_end_date, drug_exposure_count, gap_days) {
fields <- c()
values <- c()
if (!missing(drug_era_id)) {
fields <- c(fields, "drug_era_id")
values <- c(values, if (is.null(drug_era_id)) "NULL" else if (is(drug_era_id, "subQuery")) paste0("(", as.character(drug_era_id), ")") else paste0("'", as.character(drug_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_era_start_date)) {
fields <- c(fields, "drug_era_start_date")
values <- c(values, if (is.null(drug_era_start_date)) "NULL" else if (is(drug_era_start_date, "subQuery")) paste0("(", as.character(drug_era_start_date), ")") else paste0("'", as.character(drug_era_start_date), "'"))
}
if (!missing(drug_era_end_date)) {
fields <- c(fields, "drug_era_end_date")
values <- c(values, if (is.null(drug_era_end_date)) "NULL" else if (is(drug_era_end_date, "subQuery")) paste0("(", as.character(drug_era_end_date), ")") else paste0("'", as.character(drug_era_end_date), "'"))
}
if (!missing(drug_exposure_count)) {
fields <- c(fields, "drug_exposure_count")
values <- c(values, if (is.null(drug_exposure_count)) "NULL" else if (is(drug_exposure_count, "subQuery")) paste0("(", as.character(drug_exposure_count), ")") else paste0("'", as.character(drug_exposure_count), "'"))
}
if (!missing(gap_days)) {
fields <- c(fields, "gap_days")
values <- c(values, if (is.null(gap_days)) "NULL" else if (is(gap_days, "subQuery")) paste0("(", as.character(gap_days), ")") else paste0("'", as.character(gap_days), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "drug_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_cost <- function(cost_id, cost_event_id, cost_domain_id, cost_type_concept_id, currency_concept_id, total_charge, total_cost, total_paid, paid_by_payer, paid_by_patient, paid_patient_copay, paid_patient_coinsurance, paid_patient_deductible, paid_by_primary, paid_ingredient_cost, paid_dispensing_fee, payer_plan_period_id, amount_allowed, revenue_code_concept_id, revenue_code_source_value, drg_concept_id, drg_source_value) {
fields <- c()
values <- c()
if (!missing(cost_id)) {
fields <- c(fields, "cost_id")
values <- c(values, if (is.null(cost_id)) "NULL" else if (is(cost_id, "subQuery")) paste0("(", as.character(cost_id), ")") else paste0("'", as.character(cost_id), "'"))
}
if (!missing(cost_event_id)) {
fields <- c(fields, "cost_event_id")
values <- c(values, if (is.null(cost_event_id)) "NULL" else if (is(cost_event_id, "subQuery")) paste0("(", as.character(cost_event_id), ")") else paste0("'", as.character(cost_event_id), "'"))
}
if (!missing(cost_domain_id)) {
fields <- c(fields, "cost_domain_id")
values <- c(values, if (is.null(cost_domain_id)) "NULL" else if (is(cost_domain_id, "subQuery")) paste0("(", as.character(cost_domain_id), ")") else paste0("'", as.character(cost_domain_id), "'"))
}
if (!missing(cost_type_concept_id)) {
fields <- c(fields, "cost_type_concept_id")
values <- c(values, if (is.null(cost_type_concept_id)) "NULL" else if (is(cost_type_concept_id, "subQuery")) paste0("(", as.character(cost_type_concept_id), ")") else paste0("'", as.character(cost_type_concept_id), "'"))
}
if (!missing(currency_concept_id)) {
fields <- c(fields, "currency_concept_id")
values <- c(values, if (is.null(currency_concept_id)) "NULL" else if (is(currency_concept_id, "subQuery")) paste0("(", as.character(currency_concept_id), ")") else paste0("'", as.character(currency_concept_id), "'"))
}
if (!missing(total_charge)) {
fields <- c(fields, "total_charge")
values <- c(values, if (is.null(total_charge)) "NULL" else if (is(total_charge, "subQuery")) paste0("(", as.character(total_charge), ")") else paste0("'", as.character(total_charge), "'"))
}
if (!missing(total_cost)) {
fields <- c(fields, "total_cost")
values <- c(values, if (is.null(total_cost)) "NULL" else if (is(total_cost, "subQuery")) paste0("(", as.character(total_cost), ")") else paste0("'", as.character(total_cost), "'"))
}
if (!missing(total_paid)) {
fields <- c(fields, "total_paid")
values <- c(values, if (is.null(total_paid)) "NULL" else if (is(total_paid, "subQuery")) paste0("(", as.character(total_paid), ")") else paste0("'", as.character(total_paid), "'"))
}
if (!missing(paid_by_payer)) {
fields <- c(fields, "paid_by_payer")
values <- c(values, if (is.null(paid_by_payer)) "NULL" else if (is(paid_by_payer, "subQuery")) paste0("(", as.character(paid_by_payer), ")") else paste0("'", as.character(paid_by_payer), "'"))
}
if (!missing(paid_by_patient)) {
fields <- c(fields, "paid_by_patient")
values <- c(values, if (is.null(paid_by_patient)) "NULL" else if (is(paid_by_patient, "subQuery")) paste0("(", as.character(paid_by_patient), ")") else paste0("'", as.character(paid_by_patient), "'"))
}
if (!missing(paid_patient_copay)) {
fields <- c(fields, "paid_patient_copay")
values <- c(values, if (is.null(paid_patient_copay)) "NULL" else if (is(paid_patient_copay, "subQuery")) paste0("(", as.character(paid_patient_copay), ")") else paste0("'", as.character(paid_patient_copay), "'"))
}
if (!missing(paid_patient_coinsurance)) {
fields <- c(fields, "paid_patient_coinsurance")
values <- c(values, if (is.null(paid_patient_coinsurance)) "NULL" else if (is(paid_patient_coinsurance, "subQuery")) paste0("(", as.character(paid_patient_coinsurance), ")") else paste0("'", as.character(paid_patient_coinsurance), "'"))
}
if (!missing(paid_patient_deductible)) {
fields <- c(fields, "paid_patient_deductible")
values <- c(values, if (is.null(paid_patient_deductible)) "NULL" else if (is(paid_patient_deductible, "subQuery")) paste0("(", as.character(paid_patient_deductible), ")") else paste0("'", as.character(paid_patient_deductible), "'"))
}
if (!missing(paid_by_primary)) {
fields <- c(fields, "paid_by_primary")
values <- c(values, if (is.null(paid_by_primary)) "NULL" else if (is(paid_by_primary, "subQuery")) paste0("(", as.character(paid_by_primary), ")") else paste0("'", as.character(paid_by_primary), "'"))
}
if (!missing(paid_ingredient_cost)) {
fields <- c(fields, "paid_ingredient_cost")
values <- c(values, if (is.null(paid_ingredient_cost)) "NULL" else if (is(paid_ingredient_cost, "subQuery")) paste0("(", as.character(paid_ingredient_cost), ")") else paste0("'", as.character(paid_ingredient_cost), "'"))
}
if (!missing(paid_dispensing_fee)) {
fields <- c(fields, "paid_dispensing_fee")
values <- c(values, if (is.null(paid_dispensing_fee)) "NULL" else if (is(paid_dispensing_fee, "subQuery")) paste0("(", as.character(paid_dispensing_fee), ")") else paste0("'", as.character(paid_dispensing_fee), "'"))
}
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(amount_allowed)) {
fields <- c(fields, "amount_allowed")
values <- c(values, if (is.null(amount_allowed)) "NULL" else if (is(amount_allowed, "subQuery")) paste0("(", as.character(amount_allowed), ")") else paste0("'", as.character(amount_allowed), "'"))
}
if (!missing(revenue_code_concept_id)) {
fields <- c(fields, "revenue_code_concept_id")
values <- c(values, if (is.null(revenue_code_concept_id)) "NULL" else if (is(revenue_code_concept_id, "subQuery")) paste0("(", as.character(revenue_code_concept_id), ")") else paste0("'", as.character(revenue_code_concept_id), "'"))
}
if (!missing(revenue_code_source_value)) {
fields <- c(fields, "revenue_code_source_value")
values <- c(values, if (is.null(revenue_code_source_value)) "NULL" else if (is(revenue_code_source_value, "subQuery")) paste0("(", as.character(revenue_code_source_value), ")") else paste0("'", as.character(revenue_code_source_value), "'"))
}
if (!missing(drg_concept_id)) {
fields <- c(fields, "drg_concept_id")
values <- c(values, if (is.null(drg_concept_id)) "NULL" else if (is(drg_concept_id, "subQuery")) paste0("(", as.character(drg_concept_id), ")") else paste0("'", as.character(drg_concept_id), "'"))
}
if (!missing(drg_source_value)) {
fields <- c(fields, "drg_source_value")
values <- c(values, if (is.null(drg_source_value)) "NULL" else if (is(drg_source_value, "subQuery")) paste0("(", as.character(drg_source_value), ")") else paste0("'", as.character(drg_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "cost", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_payer_plan_period <- function(payer_plan_period_id, person_id, payer_plan_period_start_date, payer_plan_period_end_date, payer_concept_id, payer_source_value, payer_source_concept_id, plan_concept_id, plan_source_value, plan_source_concept_id, sponsor_concept_id, sponsor_source_value, sponsor_source_concept_id, family_source_value, stop_reason_concept_id, stop_reason_source_value, stop_reason_source_concept_id) {
fields <- c()
values <- c()
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(payer_plan_period_start_date)) {
fields <- c(fields, "payer_plan_period_start_date")
values <- c(values, if (is.null(payer_plan_period_start_date)) "NULL" else if (is(payer_plan_period_start_date, "subQuery")) paste0("(", as.character(payer_plan_period_start_date), ")") else paste0("'", as.character(payer_plan_period_start_date), "'"))
}
if (!missing(payer_plan_period_end_date)) {
fields <- c(fields, "payer_plan_period_end_date")
values <- c(values, if (is.null(payer_plan_period_end_date)) "NULL" else if (is(payer_plan_period_end_date, "subQuery")) paste0("(", as.character(payer_plan_period_end_date), ")") else paste0("'", as.character(payer_plan_period_end_date), "'"))
}
if (!missing(payer_concept_id)) {
fields <- c(fields, "payer_concept_id")
values <- c(values, if (is.null(payer_concept_id)) "NULL" else if (is(payer_concept_id, "subQuery")) paste0("(", as.character(payer_concept_id), ")") else paste0("'", as.character(payer_concept_id), "'"))
}
if (!missing(payer_source_value)) {
fields <- c(fields, "payer_source_value")
values <- c(values, if (is.null(payer_source_value)) "NULL" else if (is(payer_source_value, "subQuery")) paste0("(", as.character(payer_source_value), ")") else paste0("'", as.character(payer_source_value), "'"))
}
if (!missing(payer_source_concept_id)) {
fields <- c(fields, "payer_source_concept_id")
values <- c(values, if (is.null(payer_source_concept_id)) "NULL" else if (is(payer_source_concept_id, "subQuery")) paste0("(", as.character(payer_source_concept_id), ")") else paste0("'", as.character(payer_source_concept_id), "'"))
}
if (!missing(plan_concept_id)) {
fields <- c(fields, "plan_concept_id")
values <- c(values, if (is.null(plan_concept_id)) "NULL" else if (is(plan_concept_id, "subQuery")) paste0("(", as.character(plan_concept_id), ")") else paste0("'", as.character(plan_concept_id), "'"))
}
if (!missing(plan_source_value)) {
fields <- c(fields, "plan_source_value")
values <- c(values, if (is.null(plan_source_value)) "NULL" else if (is(plan_source_value, "subQuery")) paste0("(", as.character(plan_source_value), ")") else paste0("'", as.character(plan_source_value), "'"))
}
if (!missing(plan_source_concept_id)) {
fields <- c(fields, "plan_source_concept_id")
values <- c(values, if (is.null(plan_source_concept_id)) "NULL" else if (is(plan_source_concept_id, "subQuery")) paste0("(", as.character(plan_source_concept_id), ")") else paste0("'", as.character(plan_source_concept_id), "'"))
}
if (!missing(sponsor_concept_id)) {
fields <- c(fields, "sponsor_concept_id")
values <- c(values, if (is.null(sponsor_concept_id)) "NULL" else if (is(sponsor_concept_id, "subQuery")) paste0("(", as.character(sponsor_concept_id), ")") else paste0("'", as.character(sponsor_concept_id), "'"))
}
if (!missing(sponsor_source_value)) {
fields <- c(fields, "sponsor_source_value")
values <- c(values, if (is.null(sponsor_source_value)) "NULL" else if (is(sponsor_source_value, "subQuery")) paste0("(", as.character(sponsor_source_value), ")") else paste0("'", as.character(sponsor_source_value), "'"))
}
if (!missing(sponsor_source_concept_id)) {
fields <- c(fields, "sponsor_source_concept_id")
values <- c(values, if (is.null(sponsor_source_concept_id)) "NULL" else if (is(sponsor_source_concept_id, "subQuery")) paste0("(", as.character(sponsor_source_concept_id), ")") else paste0("'", as.character(sponsor_source_concept_id), "'"))
}
if (!missing(family_source_value)) {
fields <- c(fields, "family_source_value")
values <- c(values, if (is.null(family_source_value)) "NULL" else if (is(family_source_value, "subQuery")) paste0("(", as.character(family_source_value), ")") else paste0("'", as.character(family_source_value), "'"))
}
if (!missing(stop_reason_concept_id)) {
fields <- c(fields, "stop_reason_concept_id")
values <- c(values, if (is.null(stop_reason_concept_id)) "NULL" else if (is(stop_reason_concept_id, "subQuery")) paste0("(", as.character(stop_reason_concept_id), ")") else paste0("'", as.character(stop_reason_concept_id), "'"))
}
if (!missing(stop_reason_source_value)) {
fields <- c(fields, "stop_reason_source_value")
values <- c(values, if (is.null(stop_reason_source_value)) "NULL" else if (is(stop_reason_source_value, "subQuery")) paste0("(", as.character(stop_reason_source_value), ")") else paste0("'", as.character(stop_reason_source_value), "'"))
}
if (!missing(stop_reason_source_concept_id)) {
fields <- c(fields, "stop_reason_source_concept_id")
values <- c(values, if (is.null(stop_reason_source_concept_id)) "NULL" else if (is(stop_reason_source_concept_id, "subQuery")) paste0("(", as.character(stop_reason_source_concept_id), ")") else paste0("'", as.character(stop_reason_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "payer_plan_period", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_care_site <- function(care_site_id, care_site_name, place_of_service_concept_id, location_id, care_site_source_value, place_of_service_source_value) {
fields <- c()
values <- c()
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(care_site_name)) {
fields <- c(fields, "care_site_name")
values <- c(values, if (is.null(care_site_name)) "NULL" else if (is(care_site_name, "subQuery")) paste0("(", as.character(care_site_name), ")") else paste0("'", as.character(care_site_name), "'"))
}
if (!missing(place_of_service_concept_id)) {
fields <- c(fields, "place_of_service_concept_id")
values <- c(values, if (is.null(place_of_service_concept_id)) "NULL" else if (is(place_of_service_concept_id, "subQuery")) paste0("(", as.character(place_of_service_concept_id), ")") else paste0("'", as.character(place_of_service_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(care_site_source_value)) {
fields <- c(fields, "care_site_source_value")
values <- c(values, if (is.null(care_site_source_value)) "NULL" else if (is(care_site_source_value, "subQuery")) paste0("(", as.character(care_site_source_value), ")") else paste0("'", as.character(care_site_source_value), "'"))
}
if (!missing(place_of_service_source_value)) {
fields <- c(fields, "place_of_service_source_value")
values <- c(values, if (is.null(place_of_service_source_value)) "NULL" else if (is(place_of_service_source_value, "subQuery")) paste0("(", as.character(place_of_service_source_value), ")") else paste0("'", as.character(place_of_service_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "care_site", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_location <- function(location_id, address_1, address_2, city, state, zip, county, location_source_value) {
fields <- c()
values <- c()
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(address_1)) {
fields <- c(fields, "address_1")
values <- c(values, if (is.null(address_1)) "NULL" else if (is(address_1, "subQuery")) paste0("(", as.character(address_1), ")") else paste0("'", as.character(address_1), "'"))
}
if (!missing(address_2)) {
fields <- c(fields, "address_2")
values <- c(values, if (is.null(address_2)) "NULL" else if (is(address_2, "subQuery")) paste0("(", as.character(address_2), ")") else paste0("'", as.character(address_2), "'"))
}
if (!missing(city)) {
fields <- c(fields, "city")
values <- c(values, if (is.null(city)) "NULL" else if (is(city, "subQuery")) paste0("(", as.character(city), ")") else paste0("'", as.character(city), "'"))
}
if (!missing(state)) {
fields <- c(fields, "state")
values <- c(values, if (is.null(state)) "NULL" else if (is(state, "subQuery")) paste0("(", as.character(state), ")") else paste0("'", as.character(state), "'"))
}
if (!missing(zip)) {
fields <- c(fields, "zip")
values <- c(values, if (is.null(zip)) "NULL" else if (is(zip, "subQuery")) paste0("(", as.character(zip), ")") else paste0("'", as.character(zip), "'"))
}
if (!missing(county)) {
fields <- c(fields, "county")
values <- c(values, if (is.null(county)) "NULL" else if (is(county, "subQuery")) paste0("(", as.character(county), ")") else paste0("'", as.character(county), "'"))
}
if (!missing(location_source_value)) {
fields <- c(fields, "location_source_value")
values <- c(values, if (is.null(location_source_value)) "NULL" else if (is(location_source_value, "subQuery")) paste0("(", as.character(location_source_value), ")") else paste0("'", as.character(location_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "location", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_provider <- function(provider_id, provider_name, npi, dea, specialty_concept_id, care_site_id, year_of_birth, gender_concept_id, provider_source_value, specialty_source_value, specialty_source_concept_id, gender_source_value, gender_source_concept_id) {
fields <- c()
values <- c()
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(provider_name)) {
fields <- c(fields, "provider_name")
values <- c(values, if (is.null(provider_name)) "NULL" else if (is(provider_name, "subQuery")) paste0("(", as.character(provider_name), ")") else paste0("'", as.character(provider_name), "'"))
}
if (!missing(npi)) {
fields <- c(fields, "npi")
values <- c(values, if (is.null(npi)) "NULL" else if (is(npi, "subQuery")) paste0("(", as.character(npi), ")") else paste0("'", as.character(npi), "'"))
}
if (!missing(dea)) {
fields <- c(fields, "dea")
values <- c(values, if (is.null(dea)) "NULL" else if (is(dea, "subQuery")) paste0("(", as.character(dea), ")") else paste0("'", as.character(dea), "'"))
}
if (!missing(specialty_concept_id)) {
fields <- c(fields, "specialty_concept_id")
values <- c(values, if (is.null(specialty_concept_id)) "NULL" else if (is(specialty_concept_id, "subQuery")) paste0("(", as.character(specialty_concept_id), ")") else paste0("'", as.character(specialty_concept_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(provider_source_value)) {
fields <- c(fields, "provider_source_value")
values <- c(values, if (is.null(provider_source_value)) "NULL" else if (is(provider_source_value, "subQuery")) paste0("(", as.character(provider_source_value), ")") else paste0("'", as.character(provider_source_value), "'"))
}
if (!missing(specialty_source_value)) {
fields <- c(fields, "specialty_source_value")
values <- c(values, if (is.null(specialty_source_value)) "NULL" else if (is(specialty_source_value, "subQuery")) paste0("(", as.character(specialty_source_value), ")") else paste0("'", as.character(specialty_source_value), "'"))
}
if (!missing(specialty_source_concept_id)) {
fields <- c(fields, "specialty_source_concept_id")
values <- c(values, if (is.null(specialty_source_concept_id)) "NULL" else if (is(specialty_source_concept_id, "subQuery")) paste0("(", as.character(specialty_source_concept_id), ")") else paste0("'", as.character(specialty_source_concept_id), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "provider", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_cdm_source <- function(cdm_source_name, cdm_source_abbreviation, cdm_holder, source_description, source_documentation_reference, cdm_etl_reference, source_release_date, cdm_release_date, cdm_version, vocabulary_version) {
fields <- c()
values <- c()
if (!missing(cdm_source_name)) {
fields <- c(fields, "cdm_source_name")
values <- c(values, if (is.null(cdm_source_name)) "NULL" else if (is(cdm_source_name, "subQuery")) paste0("(", as.character(cdm_source_name), ")") else paste0("'", as.character(cdm_source_name), "'"))
}
if (!missing(cdm_source_abbreviation)) {
fields <- c(fields, "cdm_source_abbreviation")
values <- c(values, if (is.null(cdm_source_abbreviation)) "NULL" else if (is(cdm_source_abbreviation, "subQuery")) paste0("(", as.character(cdm_source_abbreviation), ")") else paste0("'", as.character(cdm_source_abbreviation), "'"))
}
if (!missing(cdm_holder)) {
fields <- c(fields, "cdm_holder")
values <- c(values, if (is.null(cdm_holder)) "NULL" else if (is(cdm_holder, "subQuery")) paste0("(", as.character(cdm_holder), ")") else paste0("'", as.character(cdm_holder), "'"))
}
if (!missing(source_description)) {
fields <- c(fields, "source_description")
values <- c(values, if (is.null(source_description)) "NULL" else if (is(source_description, "subQuery")) paste0("(", as.character(source_description), ")") else paste0("'", as.character(source_description), "'"))
}
if (!missing(source_documentation_reference)) {
fields <- c(fields, "source_documentation_reference")
values <- c(values, if (is.null(source_documentation_reference)) "NULL" else if (is(source_documentation_reference, "subQuery")) paste0("(", as.character(source_documentation_reference), ")") else paste0("'", as.character(source_documentation_reference), "'"))
}
if (!missing(cdm_etl_reference)) {
fields <- c(fields, "cdm_etl_reference")
values <- c(values, if (is.null(cdm_etl_reference)) "NULL" else if (is(cdm_etl_reference, "subQuery")) paste0("(", as.character(cdm_etl_reference), ")") else paste0("'", as.character(cdm_etl_reference), "'"))
}
if (!missing(source_release_date)) {
fields <- c(fields, "source_release_date")
values <- c(values, if (is.null(source_release_date)) "NULL" else if (is(source_release_date, "subQuery")) paste0("(", as.character(source_release_date), ")") else paste0("'", as.character(source_release_date), "'"))
}
if (!missing(cdm_release_date)) {
fields <- c(fields, "cdm_release_date")
values <- c(values, if (is.null(cdm_release_date)) "NULL" else if (is(cdm_release_date, "subQuery")) paste0("(", as.character(cdm_release_date), ")") else paste0("'", as.character(cdm_release_date), "'"))
}
if (!missing(cdm_version)) {
fields <- c(fields, "cdm_version")
values <- c(values, if (is.null(cdm_version)) "NULL" else if (is(cdm_version, "subQuery")) paste0("(", as.character(cdm_version), ")") else paste0("'", as.character(cdm_version), "'"))
}
if (!missing(vocabulary_version)) {
fields <- c(fields, "vocabulary_version")
values <- c(values, if (is.null(vocabulary_version)) "NULL" else if (is(vocabulary_version, "subQuery")) paste0("(", as.character(vocabulary_version), ")") else paste0("'", as.character(vocabulary_version), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "cdm_source", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_metadata <- function(metadata_concept_id, metadata_type_concept_id, name, value_as_string, value_as_concept_id, metadata_date, metadata_datetime) {
fields <- c()
values <- c()
if (!missing(metadata_concept_id)) {
fields <- c(fields, "metadata_concept_id")
values <- c(values, if (is.null(metadata_concept_id)) "NULL" else if (is(metadata_concept_id, "subQuery")) paste0("(", as.character(metadata_concept_id), ")") else paste0("'", as.character(metadata_concept_id), "'"))
}
if (!missing(metadata_type_concept_id)) {
fields <- c(fields, "metadata_type_concept_id")
values <- c(values, if (is.null(metadata_type_concept_id)) "NULL" else if (is(metadata_type_concept_id, "subQuery")) paste0("(", as.character(metadata_type_concept_id), ")") else paste0("'", as.character(metadata_type_concept_id), "'"))
}
if (!missing(name)) {
fields <- c(fields, "name")
values <- c(values, if (is.null(name)) "NULL" else if (is(name, "subQuery")) paste0("(", as.character(name), ")") else paste0("'", as.character(name), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(metadata_date)) {
fields <- c(fields, "[metadata date]")
values <- c(values, if (is.null(metadata_date)) "NULL" else if (is(metadata_date, "subQuery")) paste0("(", as.character(metadata_date), ")") else paste0("'", as.character(metadata_date), "'"))
}
if (!missing(metadata_datetime)) {
fields <- c(fields, "metadata_datetime")
values <- c(values, if (is.null(metadata_datetime)) "NULL" else if (is(metadata_datetime, "subQuery")) paste0("(", as.character(metadata_datetime), ")") else paste0("'", as.character(metadata_datetime), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "metadata", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_attribute_definition <- function(attribute_definition_id, attribute_name, attribute_description, attribute_type_concept_id, attribute_syntax) {
fields <- c()
values <- c()
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(attribute_name)) {
fields <- c(fields, "attribute_name")
values <- c(values, if (is.null(attribute_name)) "NULL" else if (is(attribute_name, "subQuery")) paste0("(", as.character(attribute_name), ")") else paste0("'", as.character(attribute_name), "'"))
}
if (!missing(attribute_description)) {
fields <- c(fields, "attribute_description")
values <- c(values, if (is.null(attribute_description)) "NULL" else if (is(attribute_description, "subQuery")) paste0("(", as.character(attribute_description), ")") else paste0("'", as.character(attribute_description), "'"))
}
if (!missing(attribute_type_concept_id)) {
fields <- c(fields, "attribute_type_concept_id")
values <- c(values, if (is.null(attribute_type_concept_id)) "NULL" else if (is(attribute_type_concept_id, "subQuery")) paste0("(", as.character(attribute_type_concept_id), ")") else paste0("'", as.character(attribute_type_concept_id), "'"))
}
if (!missing(attribute_syntax)) {
fields <- c(fields, "attribute_syntax")
values <- c(values, if (is.null(attribute_syntax)) "NULL" else if (is(attribute_syntax, "subQuery")) paste0("(", as.character(attribute_syntax), ")") else paste0("'", as.character(attribute_syntax), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "attribute_definition", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_cohort_definition <- function(cohort_definition_id, cohort_definition_name, cohort_definition_description, definition_type_concept_id, cohort_definition_syntax, subject_concept_id, cohort_initiation_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(cohort_definition_name)) {
fields <- c(fields, "cohort_definition_name")
values <- c(values, if (is.null(cohort_definition_name)) "NULL" else if (is(cohort_definition_name, "subQuery")) paste0("(", as.character(cohort_definition_name), ")") else paste0("'", as.character(cohort_definition_name), "'"))
}
if (!missing(cohort_definition_description)) {
fields <- c(fields, "cohort_definition_description")
values <- c(values, if (is.null(cohort_definition_description)) "NULL" else if (is(cohort_definition_description, "subQuery")) paste0("(", as.character(cohort_definition_description), ")") else paste0("'", as.character(cohort_definition_description), "'"))
}
if (!missing(definition_type_concept_id)) {
fields <- c(fields, "definition_type_concept_id")
values <- c(values, if (is.null(definition_type_concept_id)) "NULL" else if (is(definition_type_concept_id, "subQuery")) paste0("(", as.character(definition_type_concept_id), ")") else paste0("'", as.character(definition_type_concept_id), "'"))
}
if (!missing(cohort_definition_syntax)) {
fields <- c(fields, "cohort_definition_syntax")
values <- c(values, if (is.null(cohort_definition_syntax)) "NULL" else if (is(cohort_definition_syntax, "subQuery")) paste0("(", as.character(cohort_definition_syntax), ")") else paste0("'", as.character(cohort_definition_syntax), "'"))
}
if (!missing(subject_concept_id)) {
fields <- c(fields, "subject_concept_id")
values <- c(values, if (is.null(subject_concept_id)) "NULL" else if (is(subject_concept_id, "subQuery")) paste0("(", as.character(subject_concept_id), ")") else paste0("'", as.character(subject_concept_id), "'"))
}
if (!missing(cohort_initiation_date)) {
fields <- c(fields, "cohort_initiation_date")
values <- c(values, if (is.null(cohort_initiation_date)) "NULL" else if (is(cohort_initiation_date, "subQuery")) paste0("(", as.character(cohort_initiation_date), ")") else paste0("'", as.character(cohort_initiation_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 0, table = "cohort_definition", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_condition_occurrence <- function(condition_occurrence_id, person_id, condition_concept_id, condition_start_date, condition_start_datetime, condition_end_date, condition_end_datetime, condition_type_concept_id, stop_reason, provider_id, visit_occurrence_id, visit_detail_id, condition_source_value, condition_source_concept_id, condition_status_source_value, condition_status_concept_id) {
fields <- c()
values <- c()
if (!missing(condition_occurrence_id)) {
fields <- c(fields, "condition_occurrence_id")
values <- c(values, if (is.null(condition_occurrence_id)) "NULL" else if (is(condition_occurrence_id, "subQuery")) paste0("(", as.character(condition_occurrence_id), ")") else paste0("'", as.character(condition_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_start_date)) {
fields <- c(fields, "condition_start_date")
values <- c(values, if (is.null(condition_start_date)) "NULL" else if (is(condition_start_date, "subQuery")) paste0("(", as.character(condition_start_date), ")") else paste0("'", as.character(condition_start_date), "'"))
}
if (!missing(condition_start_datetime)) {
fields <- c(fields, "condition_start_datetime")
values <- c(values, if (is.null(condition_start_datetime)) "NULL" else if (is(condition_start_datetime, "subQuery")) paste0("(", as.character(condition_start_datetime), ")") else paste0("'", as.character(condition_start_datetime), "'"))
}
if (!missing(condition_end_date)) {
fields <- c(fields, "condition_end_date")
values <- c(values, if (is.null(condition_end_date)) "NULL" else if (is(condition_end_date, "subQuery")) paste0("(", as.character(condition_end_date), ")") else paste0("'", as.character(condition_end_date), "'"))
}
if (!missing(condition_end_datetime)) {
fields <- c(fields, "condition_end_datetime")
values <- c(values, if (is.null(condition_end_datetime)) "NULL" else if (is(condition_end_datetime, "subQuery")) paste0("(", as.character(condition_end_datetime), ")") else paste0("'", as.character(condition_end_datetime), "'"))
}
if (!missing(condition_type_concept_id)) {
fields <- c(fields, "condition_type_concept_id")
values <- c(values, if (is.null(condition_type_concept_id)) "NULL" else if (is(condition_type_concept_id, "subQuery")) paste0("(", as.character(condition_type_concept_id), ")") else paste0("'", as.character(condition_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(condition_source_value)) {
fields <- c(fields, "condition_source_value")
values <- c(values, if (is.null(condition_source_value)) "NULL" else if (is(condition_source_value, "subQuery")) paste0("(", as.character(condition_source_value), ")") else paste0("'", as.character(condition_source_value), "'"))
}
if (!missing(condition_source_concept_id)) {
fields <- c(fields, "condition_source_concept_id")
values <- c(values, if (is.null(condition_source_concept_id)) "NULL" else if (is(condition_source_concept_id, "subQuery")) paste0("(", as.character(condition_source_concept_id), ")") else paste0("'", as.character(condition_source_concept_id), "'"))
}
if (!missing(condition_status_source_value)) {
fields <- c(fields, "condition_status_source_value")
values <- c(values, if (is.null(condition_status_source_value)) "NULL" else if (is(condition_status_source_value, "subQuery")) paste0("(", as.character(condition_status_source_value), ")") else paste0("'", as.character(condition_status_source_value), "'"))
}
if (!missing(condition_status_concept_id)) {
fields <- c(fields, "condition_status_concept_id")
values <- c(values, if (is.null(condition_status_concept_id)) "NULL" else if (is(condition_status_concept_id, "subQuery")) paste0("(", as.character(condition_status_concept_id), ")") else paste0("'", as.character(condition_status_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "condition_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_death <- function(person_id, death_date, death_datetime, death_type_concept_id, cause_concept_id, cause_source_value, cause_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(death_date)) {
fields <- c(fields, "death_date")
values <- c(values, if (is.null(death_date)) "NULL" else if (is(death_date, "subQuery")) paste0("(", as.character(death_date), ")") else paste0("'", as.character(death_date), "'"))
}
if (!missing(death_datetime)) {
fields <- c(fields, "death_datetime")
values <- c(values, if (is.null(death_datetime)) "NULL" else if (is(death_datetime, "subQuery")) paste0("(", as.character(death_datetime), ")") else paste0("'", as.character(death_datetime), "'"))
}
if (!missing(death_type_concept_id)) {
fields <- c(fields, "death_type_concept_id")
values <- c(values, if (is.null(death_type_concept_id)) "NULL" else if (is(death_type_concept_id, "subQuery")) paste0("(", as.character(death_type_concept_id), ")") else paste0("'", as.character(death_type_concept_id), "'"))
}
if (!missing(cause_concept_id)) {
fields <- c(fields, "cause_concept_id")
values <- c(values, if (is.null(cause_concept_id)) "NULL" else if (is(cause_concept_id, "subQuery")) paste0("(", as.character(cause_concept_id), ")") else paste0("'", as.character(cause_concept_id), "'"))
}
if (!missing(cause_source_value)) {
fields <- c(fields, "cause_source_value")
values <- c(values, if (is.null(cause_source_value)) "NULL" else if (is(cause_source_value, "subQuery")) paste0("(", as.character(cause_source_value), ")") else paste0("'", as.character(cause_source_value), "'"))
}
if (!missing(cause_source_concept_id)) {
fields <- c(fields, "cause_source_concept_id")
values <- c(values, if (is.null(cause_source_concept_id)) "NULL" else if (is(cause_source_concept_id, "subQuery")) paste0("(", as.character(cause_source_concept_id), ")") else paste0("'", as.character(cause_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "death", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_device_exposure <- function(device_exposure_id, person_id, device_concept_id, device_exposure_start_date, device_exposure_start_datetime, device_exposure_end_date, device_exposure_end_datetime, device_type_concept_id, unique_device_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, device_source_value, device_source_concept_id) {
fields <- c()
values <- c()
if (!missing(device_exposure_id)) {
fields <- c(fields, "device_exposure_id")
values <- c(values, if (is.null(device_exposure_id)) "NULL" else if (is(device_exposure_id, "subQuery")) paste0("(", as.character(device_exposure_id), ")") else paste0("'", as.character(device_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(device_concept_id)) {
fields <- c(fields, "device_concept_id")
values <- c(values, if (is.null(device_concept_id)) "NULL" else if (is(device_concept_id, "subQuery")) paste0("(", as.character(device_concept_id), ")") else paste0("'", as.character(device_concept_id), "'"))
}
if (!missing(device_exposure_start_date)) {
fields <- c(fields, "device_exposure_start_date")
values <- c(values, if (is.null(device_exposure_start_date)) "NULL" else if (is(device_exposure_start_date, "subQuery")) paste0("(", as.character(device_exposure_start_date), ")") else paste0("'", as.character(device_exposure_start_date), "'"))
}
if (!missing(device_exposure_start_datetime)) {
fields <- c(fields, "device_exposure_start_datetime")
values <- c(values, if (is.null(device_exposure_start_datetime)) "NULL" else if (is(device_exposure_start_datetime, "subQuery")) paste0("(", as.character(device_exposure_start_datetime), ")") else paste0("'", as.character(device_exposure_start_datetime), "'"))
}
if (!missing(device_exposure_end_date)) {
fields <- c(fields, "device_exposure_end_date")
values <- c(values, if (is.null(device_exposure_end_date)) "NULL" else if (is(device_exposure_end_date, "subQuery")) paste0("(", as.character(device_exposure_end_date), ")") else paste0("'", as.character(device_exposure_end_date), "'"))
}
if (!missing(device_exposure_end_datetime)) {
fields <- c(fields, "device_exposure_end_datetime")
values <- c(values, if (is.null(device_exposure_end_datetime)) "NULL" else if (is(device_exposure_end_datetime, "subQuery")) paste0("(", as.character(device_exposure_end_datetime), ")") else paste0("'", as.character(device_exposure_end_datetime), "'"))
}
if (!missing(device_type_concept_id)) {
fields <- c(fields, "device_type_concept_id")
values <- c(values, if (is.null(device_type_concept_id)) "NULL" else if (is(device_type_concept_id, "subQuery")) paste0("(", as.character(device_type_concept_id), ")") else paste0("'", as.character(device_type_concept_id), "'"))
}
if (!missing(unique_device_id)) {
fields <- c(fields, "unique_device_id")
values <- c(values, if (is.null(unique_device_id)) "NULL" else if (is(unique_device_id, "subQuery")) paste0("(", as.character(unique_device_id), ")") else paste0("'", as.character(unique_device_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(device_source_value)) {
fields <- c(fields, "device_source_value")
values <- c(values, if (is.null(device_source_value)) "NULL" else if (is(device_source_value, "subQuery")) paste0("(", as.character(device_source_value), ")") else paste0("'", as.character(device_source_value), "'"))
}
if (!missing(device_source_concept_id)) {
fields <- c(fields, "device_source_concept_id")
values <- c(values, if (is.null(device_source_concept_id)) "NULL" else if (is(device_source_concept_id, "subQuery")) paste0("(", as.character(device_source_concept_id), ")") else paste0("'", as.character(device_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "device_exposure", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_drug_exposure <- function(drug_exposure_id, person_id, drug_concept_id, drug_exposure_start_date, drug_exposure_start_datetime, drug_exposure_end_date, drug_exposure_end_datetime, verbatim_end_date, drug_type_concept_id, stop_reason, refills, quantity, days_supply, sig, route_concept_id, lot_number, provider_id, visit_occurrence_id, visit_detail_id, drug_source_value, drug_source_concept_id, route_source_value, dose_unit_source_value) {
fields <- c()
values <- c()
if (!missing(drug_exposure_id)) {
fields <- c(fields, "drug_exposure_id")
values <- c(values, if (is.null(drug_exposure_id)) "NULL" else if (is(drug_exposure_id, "subQuery")) paste0("(", as.character(drug_exposure_id), ")") else paste0("'", as.character(drug_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_exposure_start_date)) {
fields <- c(fields, "drug_exposure_start_date")
values <- c(values, if (is.null(drug_exposure_start_date)) "NULL" else if (is(drug_exposure_start_date, "subQuery")) paste0("(", as.character(drug_exposure_start_date), ")") else paste0("'", as.character(drug_exposure_start_date), "'"))
}
if (!missing(drug_exposure_start_datetime)) {
fields <- c(fields, "drug_exposure_start_datetime")
values <- c(values, if (is.null(drug_exposure_start_datetime)) "NULL" else if (is(drug_exposure_start_datetime, "subQuery")) paste0("(", as.character(drug_exposure_start_datetime), ")") else paste0("'", as.character(drug_exposure_start_datetime), "'"))
}
if (!missing(drug_exposure_end_date)) {
fields <- c(fields, "drug_exposure_end_date")
values <- c(values, if (is.null(drug_exposure_end_date)) "NULL" else if (is(drug_exposure_end_date, "subQuery")) paste0("(", as.character(drug_exposure_end_date), ")") else paste0("'", as.character(drug_exposure_end_date), "'"))
}
if (!missing(drug_exposure_end_datetime)) {
fields <- c(fields, "drug_exposure_end_datetime")
values <- c(values, if (is.null(drug_exposure_end_datetime)) "NULL" else if (is(drug_exposure_end_datetime, "subQuery")) paste0("(", as.character(drug_exposure_end_datetime), ")") else paste0("'", as.character(drug_exposure_end_datetime), "'"))
}
if (!missing(verbatim_end_date)) {
fields <- c(fields, "verbatim_end_date")
values <- c(values, if (is.null(verbatim_end_date)) "NULL" else if (is(verbatim_end_date, "subQuery")) paste0("(", as.character(verbatim_end_date), ")") else paste0("'", as.character(verbatim_end_date), "'"))
}
if (!missing(drug_type_concept_id)) {
fields <- c(fields, "drug_type_concept_id")
values <- c(values, if (is.null(drug_type_concept_id)) "NULL" else if (is(drug_type_concept_id, "subQuery")) paste0("(", as.character(drug_type_concept_id), ")") else paste0("'", as.character(drug_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(refills)) {
fields <- c(fields, "refills")
values <- c(values, if (is.null(refills)) "NULL" else if (is(refills, "subQuery")) paste0("(", as.character(refills), ")") else paste0("'", as.character(refills), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(days_supply)) {
fields <- c(fields, "days_supply")
values <- c(values, if (is.null(days_supply)) "NULL" else if (is(days_supply, "subQuery")) paste0("(", as.character(days_supply), ")") else paste0("'", as.character(days_supply), "'"))
}
if (!missing(sig)) {
fields <- c(fields, "sig")
values <- c(values, if (is.null(sig)) "NULL" else if (is(sig, "subQuery")) paste0("(", as.character(sig), ")") else paste0("'", as.character(sig), "'"))
}
if (!missing(route_concept_id)) {
fields <- c(fields, "route_concept_id")
values <- c(values, if (is.null(route_concept_id)) "NULL" else if (is(route_concept_id, "subQuery")) paste0("(", as.character(route_concept_id), ")") else paste0("'", as.character(route_concept_id), "'"))
}
if (!missing(lot_number)) {
fields <- c(fields, "lot_number")
values <- c(values, if (is.null(lot_number)) "NULL" else if (is(lot_number, "subQuery")) paste0("(", as.character(lot_number), ")") else paste0("'", as.character(lot_number), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(drug_source_value)) {
fields <- c(fields, "drug_source_value")
values <- c(values, if (is.null(drug_source_value)) "NULL" else if (is(drug_source_value, "subQuery")) paste0("(", as.character(drug_source_value), ")") else paste0("'", as.character(drug_source_value), "'"))
}
if (!missing(drug_source_concept_id)) {
fields <- c(fields, "drug_source_concept_id")
values <- c(values, if (is.null(drug_source_concept_id)) "NULL" else if (is(drug_source_concept_id, "subQuery")) paste0("(", as.character(drug_source_concept_id), ")") else paste0("'", as.character(drug_source_concept_id), "'"))
}
if (!missing(route_source_value)) {
fields <- c(fields, "route_source_value")
values <- c(values, if (is.null(route_source_value)) "NULL" else if (is(route_source_value, "subQuery")) paste0("(", as.character(route_source_value), ")") else paste0("'", as.character(route_source_value), "'"))
}
if (!missing(dose_unit_source_value)) {
fields <- c(fields, "dose_unit_source_value")
values <- c(values, if (is.null(dose_unit_source_value)) "NULL" else if (is(dose_unit_source_value, "subQuery")) paste0("(", as.character(dose_unit_source_value), ")") else paste0("'", as.character(dose_unit_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "drug_exposure", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_fact_relationship <- function(domain_concept_id_1, fact_id_1, domain_concept_id_2, fact_id_2, relationship_concept_id) {
fields <- c()
values <- c()
if (!missing(domain_concept_id_1)) {
fields <- c(fields, "domain_concept_id_1")
values <- c(values, if (is.null(domain_concept_id_1)) "NULL" else if (is(domain_concept_id_1, "subQuery")) paste0("(", as.character(domain_concept_id_1), ")") else paste0("'", as.character(domain_concept_id_1), "'"))
}
if (!missing(fact_id_1)) {
fields <- c(fields, "fact_id_1")
values <- c(values, if (is.null(fact_id_1)) "NULL" else if (is(fact_id_1, "subQuery")) paste0("(", as.character(fact_id_1), ")") else paste0("'", as.character(fact_id_1), "'"))
}
if (!missing(domain_concept_id_2)) {
fields <- c(fields, "domain_concept_id_2")
values <- c(values, if (is.null(domain_concept_id_2)) "NULL" else if (is(domain_concept_id_2, "subQuery")) paste0("(", as.character(domain_concept_id_2), ")") else paste0("'", as.character(domain_concept_id_2), "'"))
}
if (!missing(fact_id_2)) {
fields <- c(fields, "fact_id_2")
values <- c(values, if (is.null(fact_id_2)) "NULL" else if (is(fact_id_2, "subQuery")) paste0("(", as.character(fact_id_2), ")") else paste0("'", as.character(fact_id_2), "'"))
}
if (!missing(relationship_concept_id)) {
fields <- c(fields, "relationship_concept_id")
values <- c(values, if (is.null(relationship_concept_id)) "NULL" else if (is(relationship_concept_id, "subQuery")) paste0("(", as.character(relationship_concept_id), ")") else paste0("'", as.character(relationship_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "fact_relationship", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_measurement <- function(measurement_id, person_id, measurement_concept_id, measurement_date, measurement_datetime, measurement_time, measurement_type_concept_id, operator_concept_id, value_as_number, value_as_concept_id, unit_concept_id, range_low, range_high, provider_id, visit_occurrence_id, visit_detail_id, measurement_source_value, measurement_source_concept_id, unit_source_value, value_source_value) {
fields <- c()
values <- c()
if (!missing(measurement_id)) {
fields <- c(fields, "measurement_id")
values <- c(values, if (is.null(measurement_id)) "NULL" else if (is(measurement_id, "subQuery")) paste0("(", as.character(measurement_id), ")") else paste0("'", as.character(measurement_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(measurement_concept_id)) {
fields <- c(fields, "measurement_concept_id")
values <- c(values, if (is.null(measurement_concept_id)) "NULL" else if (is(measurement_concept_id, "subQuery")) paste0("(", as.character(measurement_concept_id), ")") else paste0("'", as.character(measurement_concept_id), "'"))
}
if (!missing(measurement_date)) {
fields <- c(fields, "measurement_date")
values <- c(values, if (is.null(measurement_date)) "NULL" else if (is(measurement_date, "subQuery")) paste0("(", as.character(measurement_date), ")") else paste0("'", as.character(measurement_date), "'"))
}
if (!missing(measurement_datetime)) {
fields <- c(fields, "measurement_datetime")
values <- c(values, if (is.null(measurement_datetime)) "NULL" else if (is(measurement_datetime, "subQuery")) paste0("(", as.character(measurement_datetime), ")") else paste0("'", as.character(measurement_datetime), "'"))
}
if (!missing(measurement_time)) {
fields <- c(fields, "measurement_time")
values <- c(values, if (is.null(measurement_time)) "NULL" else if (is(measurement_time, "subQuery")) paste0("(", as.character(measurement_time), ")") else paste0("'", as.character(measurement_time), "'"))
}
if (!missing(measurement_type_concept_id)) {
fields <- c(fields, "measurement_type_concept_id")
values <- c(values, if (is.null(measurement_type_concept_id)) "NULL" else if (is(measurement_type_concept_id, "subQuery")) paste0("(", as.character(measurement_type_concept_id), ")") else paste0("'", as.character(measurement_type_concept_id), "'"))
}
if (!missing(operator_concept_id)) {
fields <- c(fields, "operator_concept_id")
values <- c(values, if (is.null(operator_concept_id)) "NULL" else if (is(operator_concept_id, "subQuery")) paste0("(", as.character(operator_concept_id), ")") else paste0("'", as.character(operator_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(range_low)) {
fields <- c(fields, "range_low")
values <- c(values, if (is.null(range_low)) "NULL" else if (is(range_low, "subQuery")) paste0("(", as.character(range_low), ")") else paste0("'", as.character(range_low), "'"))
}
if (!missing(range_high)) {
fields <- c(fields, "range_high")
values <- c(values, if (is.null(range_high)) "NULL" else if (is(range_high, "subQuery")) paste0("(", as.character(range_high), ")") else paste0("'", as.character(range_high), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(measurement_source_value)) {
fields <- c(fields, "measurement_source_value")
values <- c(values, if (is.null(measurement_source_value)) "NULL" else if (is(measurement_source_value, "subQuery")) paste0("(", as.character(measurement_source_value), ")") else paste0("'", as.character(measurement_source_value), "'"))
}
if (!missing(measurement_source_concept_id)) {
fields <- c(fields, "measurement_source_concept_id")
values <- c(values, if (is.null(measurement_source_concept_id)) "NULL" else if (is(measurement_source_concept_id, "subQuery")) paste0("(", as.character(measurement_source_concept_id), ")") else paste0("'", as.character(measurement_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(value_source_value)) {
fields <- c(fields, "value_source_value")
values <- c(values, if (is.null(value_source_value)) "NULL" else if (is(value_source_value, "subQuery")) paste0("(", as.character(value_source_value), ")") else paste0("'", as.character(value_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "measurement", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_note <- function(note_id, person_id, note_date, note_datetime, note_type_concept_id, note_class_concept_id, note_title, note_text, encoding_concept_id, language_concept_id, provider_id, visit_occurrence_id, visit_detail_id, note_source_value) {
fields <- c()
values <- c()
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(note_date)) {
fields <- c(fields, "note_date")
values <- c(values, if (is.null(note_date)) "NULL" else if (is(note_date, "subQuery")) paste0("(", as.character(note_date), ")") else paste0("'", as.character(note_date), "'"))
}
if (!missing(note_datetime)) {
fields <- c(fields, "note_datetime")
values <- c(values, if (is.null(note_datetime)) "NULL" else if (is(note_datetime, "subQuery")) paste0("(", as.character(note_datetime), ")") else paste0("'", as.character(note_datetime), "'"))
}
if (!missing(note_type_concept_id)) {
fields <- c(fields, "note_type_concept_id")
values <- c(values, if (is.null(note_type_concept_id)) "NULL" else if (is(note_type_concept_id, "subQuery")) paste0("(", as.character(note_type_concept_id), ")") else paste0("'", as.character(note_type_concept_id), "'"))
}
if (!missing(note_class_concept_id)) {
fields <- c(fields, "note_class_concept_id")
values <- c(values, if (is.null(note_class_concept_id)) "NULL" else if (is(note_class_concept_id, "subQuery")) paste0("(", as.character(note_class_concept_id), ")") else paste0("'", as.character(note_class_concept_id), "'"))
}
if (!missing(note_title)) {
fields <- c(fields, "note_title")
values <- c(values, if (is.null(note_title)) "NULL" else if (is(note_title, "subQuery")) paste0("(", as.character(note_title), ")") else paste0("'", as.character(note_title), "'"))
}
if (!missing(note_text)) {
fields <- c(fields, "note_text")
values <- c(values, if (is.null(note_text)) "NULL" else if (is(note_text, "subQuery")) paste0("(", as.character(note_text), ")") else paste0("'", as.character(note_text), "'"))
}
if (!missing(encoding_concept_id)) {
fields <- c(fields, "encoding_concept_id")
values <- c(values, if (is.null(encoding_concept_id)) "NULL" else if (is(encoding_concept_id, "subQuery")) paste0("(", as.character(encoding_concept_id), ")") else paste0("'", as.character(encoding_concept_id), "'"))
}
if (!missing(language_concept_id)) {
fields <- c(fields, "language_concept_id")
values <- c(values, if (is.null(language_concept_id)) "NULL" else if (is(language_concept_id, "subQuery")) paste0("(", as.character(language_concept_id), ")") else paste0("'", as.character(language_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(note_source_value)) {
fields <- c(fields, "note_source_value")
values <- c(values, if (is.null(note_source_value)) "NULL" else if (is(note_source_value, "subQuery")) paste0("(", as.character(note_source_value), ")") else paste0("'", as.character(note_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "note", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_note_nlp <- function(note_nlp_id, note_id, section_concept_id, snippet, offset, lexical_variant, note_nlp_concept_id, note_nlp_source_concept_id, nlp_system, nlp_date, nlp_datetime, term_exists, term_temporal, term_modifiers) {
fields <- c()
values <- c()
if (!missing(note_nlp_id)) {
fields <- c(fields, "note_nlp_id")
values <- c(values, if (is.null(note_nlp_id)) "NULL" else if (is(note_nlp_id, "subQuery")) paste0("(", as.character(note_nlp_id), ")") else paste0("'", as.character(note_nlp_id), "'"))
}
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(section_concept_id)) {
fields <- c(fields, "section_concept_id")
values <- c(values, if (is.null(section_concept_id)) "NULL" else if (is(section_concept_id, "subQuery")) paste0("(", as.character(section_concept_id), ")") else paste0("'", as.character(section_concept_id), "'"))
}
if (!missing(snippet)) {
fields <- c(fields, "snippet")
values <- c(values, if (is.null(snippet)) "NULL" else if (is(snippet, "subQuery")) paste0("(", as.character(snippet), ")") else paste0("'", as.character(snippet), "'"))
}
if (!missing(offset)) {
fields <- c(fields, "offset")
values <- c(values, if (is.null(offset)) "NULL" else if (is(offset, "subQuery")) paste0("(", as.character(offset), ")") else paste0("'", as.character(offset), "'"))
}
if (!missing(lexical_variant)) {
fields <- c(fields, "lexical_variant")
values <- c(values, if (is.null(lexical_variant)) "NULL" else if (is(lexical_variant, "subQuery")) paste0("(", as.character(lexical_variant), ")") else paste0("'", as.character(lexical_variant), "'"))
}
if (!missing(note_nlp_concept_id)) {
fields <- c(fields, "note_nlp_concept_id")
values <- c(values, if (is.null(note_nlp_concept_id)) "NULL" else if (is(note_nlp_concept_id, "subQuery")) paste0("(", as.character(note_nlp_concept_id), ")") else paste0("'", as.character(note_nlp_concept_id), "'"))
}
if (!missing(note_nlp_source_concept_id)) {
fields <- c(fields, "note_nlp_source_concept_id")
values <- c(values, if (is.null(note_nlp_source_concept_id)) "NULL" else if (is(note_nlp_source_concept_id, "subQuery")) paste0("(", as.character(note_nlp_source_concept_id), ")") else paste0("'", as.character(note_nlp_source_concept_id), "'"))
}
if (!missing(nlp_system)) {
fields <- c(fields, "nlp_system")
values <- c(values, if (is.null(nlp_system)) "NULL" else if (is(nlp_system, "subQuery")) paste0("(", as.character(nlp_system), ")") else paste0("'", as.character(nlp_system), "'"))
}
if (!missing(nlp_date)) {
fields <- c(fields, "nlp_date")
values <- c(values, if (is.null(nlp_date)) "NULL" else if (is(nlp_date, "subQuery")) paste0("(", as.character(nlp_date), ")") else paste0("'", as.character(nlp_date), "'"))
}
if (!missing(nlp_datetime)) {
fields <- c(fields, "nlp_datetime")
values <- c(values, if (is.null(nlp_datetime)) "NULL" else if (is(nlp_datetime, "subQuery")) paste0("(", as.character(nlp_datetime), ")") else paste0("'", as.character(nlp_datetime), "'"))
}
if (!missing(term_exists)) {
fields <- c(fields, "term_exists")
values <- c(values, if (is.null(term_exists)) "NULL" else if (is(term_exists, "subQuery")) paste0("(", as.character(term_exists), ")") else paste0("'", as.character(term_exists), "'"))
}
if (!missing(term_temporal)) {
fields <- c(fields, "term_temporal")
values <- c(values, if (is.null(term_temporal)) "NULL" else if (is(term_temporal, "subQuery")) paste0("(", as.character(term_temporal), ")") else paste0("'", as.character(term_temporal), "'"))
}
if (!missing(term_modifiers)) {
fields <- c(fields, "term_modifiers")
values <- c(values, if (is.null(term_modifiers)) "NULL" else if (is(term_modifiers, "subQuery")) paste0("(", as.character(term_modifiers), ")") else paste0("'", as.character(term_modifiers), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "note_nlp", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_observation <- function(observation_id, person_id, observation_concept_id, observation_date, observation_datetime, observation_type_concept_id, value_as_number, value_as_string, value_as_concept_id, qualifier_concept_id, unit_concept_id, provider_id, visit_occurrence_id, visit_detail_id, observation_source_value, observation_source_concept_id, unit_source_value, qualifier_source_value) {
fields <- c()
values <- c()
if (!missing(observation_id)) {
fields <- c(fields, "observation_id")
values <- c(values, if (is.null(observation_id)) "NULL" else if (is(observation_id, "subQuery")) paste0("(", as.character(observation_id), ")") else paste0("'", as.character(observation_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_concept_id)) {
fields <- c(fields, "observation_concept_id")
values <- c(values, if (is.null(observation_concept_id)) "NULL" else if (is(observation_concept_id, "subQuery")) paste0("(", as.character(observation_concept_id), ")") else paste0("'", as.character(observation_concept_id), "'"))
}
if (!missing(observation_date)) {
fields <- c(fields, "observation_date")
values <- c(values, if (is.null(observation_date)) "NULL" else if (is(observation_date, "subQuery")) paste0("(", as.character(observation_date), ")") else paste0("'", as.character(observation_date), "'"))
}
if (!missing(observation_datetime)) {
fields <- c(fields, "observation_datetime")
values <- c(values, if (is.null(observation_datetime)) "NULL" else if (is(observation_datetime, "subQuery")) paste0("(", as.character(observation_datetime), ")") else paste0("'", as.character(observation_datetime), "'"))
}
if (!missing(observation_type_concept_id)) {
fields <- c(fields, "observation_type_concept_id")
values <- c(values, if (is.null(observation_type_concept_id)) "NULL" else if (is(observation_type_concept_id, "subQuery")) paste0("(", as.character(observation_type_concept_id), ")") else paste0("'", as.character(observation_type_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(qualifier_concept_id)) {
fields <- c(fields, "qualifier_concept_id")
values <- c(values, if (is.null(qualifier_concept_id)) "NULL" else if (is(qualifier_concept_id, "subQuery")) paste0("(", as.character(qualifier_concept_id), ")") else paste0("'", as.character(qualifier_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(observation_source_value)) {
fields <- c(fields, "observation_source_value")
values <- c(values, if (is.null(observation_source_value)) "NULL" else if (is(observation_source_value, "subQuery")) paste0("(", as.character(observation_source_value), ")") else paste0("'", as.character(observation_source_value), "'"))
}
if (!missing(observation_source_concept_id)) {
fields <- c(fields, "observation_source_concept_id")
values <- c(values, if (is.null(observation_source_concept_id)) "NULL" else if (is(observation_source_concept_id, "subQuery")) paste0("(", as.character(observation_source_concept_id), ")") else paste0("'", as.character(observation_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(qualifier_source_value)) {
fields <- c(fields, "qualifier_source_value")
values <- c(values, if (is.null(qualifier_source_value)) "NULL" else if (is(qualifier_source_value, "subQuery")) paste0("(", as.character(qualifier_source_value), ")") else paste0("'", as.character(qualifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "observation", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_observation_period <- function(observation_period_id, person_id, observation_period_start_date, observation_period_end_date, period_type_concept_id) {
fields <- c()
values <- c()
if (!missing(observation_period_id)) {
fields <- c(fields, "observation_period_id")
values <- c(values, if (is.null(observation_period_id)) "NULL" else if (is(observation_period_id, "subQuery")) paste0("(", as.character(observation_period_id), ")") else paste0("'", as.character(observation_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_period_start_date)) {
fields <- c(fields, "observation_period_start_date")
values <- c(values, if (is.null(observation_period_start_date)) "NULL" else if (is(observation_period_start_date, "subQuery")) paste0("(", as.character(observation_period_start_date), ")") else paste0("'", as.character(observation_period_start_date), "'"))
}
if (!missing(observation_period_end_date)) {
fields <- c(fields, "observation_period_end_date")
values <- c(values, if (is.null(observation_period_end_date)) "NULL" else if (is(observation_period_end_date, "subQuery")) paste0("(", as.character(observation_period_end_date), ")") else paste0("'", as.character(observation_period_end_date), "'"))
}
if (!missing(period_type_concept_id)) {
fields <- c(fields, "period_type_concept_id")
values <- c(values, if (is.null(period_type_concept_id)) "NULL" else if (is(period_type_concept_id, "subQuery")) paste0("(", as.character(period_type_concept_id), ")") else paste0("'", as.character(period_type_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "observation_period", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_person <- function(person_id, gender_concept_id, year_of_birth, month_of_birth, day_of_birth, birth_datetime, race_concept_id, ethnicity_concept_id, location_id, provider_id, care_site_id, person_source_value, gender_source_value, gender_source_concept_id, race_source_value, race_source_concept_id, ethnicity_source_value, ethnicity_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(month_of_birth)) {
fields <- c(fields, "month_of_birth")
values <- c(values, if (is.null(month_of_birth)) "NULL" else if (is(month_of_birth, "subQuery")) paste0("(", as.character(month_of_birth), ")") else paste0("'", as.character(month_of_birth), "'"))
}
if (!missing(day_of_birth)) {
fields <- c(fields, "day_of_birth")
values <- c(values, if (is.null(day_of_birth)) "NULL" else if (is(day_of_birth, "subQuery")) paste0("(", as.character(day_of_birth), ")") else paste0("'", as.character(day_of_birth), "'"))
}
if (!missing(birth_datetime)) {
fields <- c(fields, "birth_datetime")
values <- c(values, if (is.null(birth_datetime)) "NULL" else if (is(birth_datetime, "subQuery")) paste0("(", as.character(birth_datetime), ")") else paste0("'", as.character(birth_datetime), "'"))
}
if (!missing(race_concept_id)) {
fields <- c(fields, "race_concept_id")
values <- c(values, if (is.null(race_concept_id)) "NULL" else if (is(race_concept_id, "subQuery")) paste0("(", as.character(race_concept_id), ")") else paste0("'", as.character(race_concept_id), "'"))
}
if (!missing(ethnicity_concept_id)) {
fields <- c(fields, "ethnicity_concept_id")
values <- c(values, if (is.null(ethnicity_concept_id)) "NULL" else if (is(ethnicity_concept_id, "subQuery")) paste0("(", as.character(ethnicity_concept_id), ")") else paste0("'", as.character(ethnicity_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(person_source_value)) {
fields <- c(fields, "person_source_value")
values <- c(values, if (is.null(person_source_value)) "NULL" else if (is(person_source_value, "subQuery")) paste0("(", as.character(person_source_value), ")") else paste0("'", as.character(person_source_value), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
if (!missing(race_source_value)) {
fields <- c(fields, "race_source_value")
values <- c(values, if (is.null(race_source_value)) "NULL" else if (is(race_source_value, "subQuery")) paste0("(", as.character(race_source_value), ")") else paste0("'", as.character(race_source_value), "'"))
}
if (!missing(race_source_concept_id)) {
fields <- c(fields, "race_source_concept_id")
values <- c(values, if (is.null(race_source_concept_id)) "NULL" else if (is(race_source_concept_id, "subQuery")) paste0("(", as.character(race_source_concept_id), ")") else paste0("'", as.character(race_source_concept_id), "'"))
}
if (!missing(ethnicity_source_value)) {
fields <- c(fields, "ethnicity_source_value")
values <- c(values, if (is.null(ethnicity_source_value)) "NULL" else if (is(ethnicity_source_value, "subQuery")) paste0("(", as.character(ethnicity_source_value), ")") else paste0("'", as.character(ethnicity_source_value), "'"))
}
if (!missing(ethnicity_source_concept_id)) {
fields <- c(fields, "ethnicity_source_concept_id")
values <- c(values, if (is.null(ethnicity_source_concept_id)) "NULL" else if (is(ethnicity_source_concept_id, "subQuery")) paste0("(", as.character(ethnicity_source_concept_id), ")") else paste0("'", as.character(ethnicity_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "person", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_procedure_occurrence <- function(procedure_occurrence_id, person_id, procedure_concept_id, procedure_date, procedure_datetime, procedure_type_concept_id, modifier_concept_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, procedure_source_value, procedure_source_concept_id, modifier_source_value) {
fields <- c()
values <- c()
if (!missing(procedure_occurrence_id)) {
fields <- c(fields, "procedure_occurrence_id")
values <- c(values, if (is.null(procedure_occurrence_id)) "NULL" else if (is(procedure_occurrence_id, "subQuery")) paste0("(", as.character(procedure_occurrence_id), ")") else paste0("'", as.character(procedure_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(procedure_concept_id)) {
fields <- c(fields, "procedure_concept_id")
values <- c(values, if (is.null(procedure_concept_id)) "NULL" else if (is(procedure_concept_id, "subQuery")) paste0("(", as.character(procedure_concept_id), ")") else paste0("'", as.character(procedure_concept_id), "'"))
}
if (!missing(procedure_date)) {
fields <- c(fields, "procedure_date")
values <- c(values, if (is.null(procedure_date)) "NULL" else if (is(procedure_date, "subQuery")) paste0("(", as.character(procedure_date), ")") else paste0("'", as.character(procedure_date), "'"))
}
if (!missing(procedure_datetime)) {
fields <- c(fields, "procedure_datetime")
values <- c(values, if (is.null(procedure_datetime)) "NULL" else if (is(procedure_datetime, "subQuery")) paste0("(", as.character(procedure_datetime), ")") else paste0("'", as.character(procedure_datetime), "'"))
}
if (!missing(procedure_type_concept_id)) {
fields <- c(fields, "procedure_type_concept_id")
values <- c(values, if (is.null(procedure_type_concept_id)) "NULL" else if (is(procedure_type_concept_id, "subQuery")) paste0("(", as.character(procedure_type_concept_id), ")") else paste0("'", as.character(procedure_type_concept_id), "'"))
}
if (!missing(modifier_concept_id)) {
fields <- c(fields, "modifier_concept_id")
values <- c(values, if (is.null(modifier_concept_id)) "NULL" else if (is(modifier_concept_id, "subQuery")) paste0("(", as.character(modifier_concept_id), ")") else paste0("'", as.character(modifier_concept_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(procedure_source_value)) {
fields <- c(fields, "procedure_source_value")
values <- c(values, if (is.null(procedure_source_value)) "NULL" else if (is(procedure_source_value, "subQuery")) paste0("(", as.character(procedure_source_value), ")") else paste0("'", as.character(procedure_source_value), "'"))
}
if (!missing(procedure_source_concept_id)) {
fields <- c(fields, "procedure_source_concept_id")
values <- c(values, if (is.null(procedure_source_concept_id)) "NULL" else if (is(procedure_source_concept_id, "subQuery")) paste0("(", as.character(procedure_source_concept_id), ")") else paste0("'", as.character(procedure_source_concept_id), "'"))
}
if (!missing(modifier_source_value)) {
fields <- c(fields, "modifier_source_value")
values <- c(values, if (is.null(modifier_source_value)) "NULL" else if (is(modifier_source_value, "subQuery")) paste0("(", as.character(modifier_source_value), ")") else paste0("'", as.character(modifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "procedure_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_specimen <- function(specimen_id, person_id, specimen_concept_id, specimen_type_concept_id, specimen_date, specimen_datetime, quantity, unit_concept_id, anatomic_site_concept_id, disease_status_concept_id, specimen_source_id, specimen_source_value, unit_source_value, anatomic_site_source_value, disease_status_source_value) {
fields <- c()
values <- c()
if (!missing(specimen_id)) {
fields <- c(fields, "specimen_id")
values <- c(values, if (is.null(specimen_id)) "NULL" else if (is(specimen_id, "subQuery")) paste0("(", as.character(specimen_id), ")") else paste0("'", as.character(specimen_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(specimen_concept_id)) {
fields <- c(fields, "specimen_concept_id")
values <- c(values, if (is.null(specimen_concept_id)) "NULL" else if (is(specimen_concept_id, "subQuery")) paste0("(", as.character(specimen_concept_id), ")") else paste0("'", as.character(specimen_concept_id), "'"))
}
if (!missing(specimen_type_concept_id)) {
fields <- c(fields, "specimen_type_concept_id")
values <- c(values, if (is.null(specimen_type_concept_id)) "NULL" else if (is(specimen_type_concept_id, "subQuery")) paste0("(", as.character(specimen_type_concept_id), ")") else paste0("'", as.character(specimen_type_concept_id), "'"))
}
if (!missing(specimen_date)) {
fields <- c(fields, "specimen_date")
values <- c(values, if (is.null(specimen_date)) "NULL" else if (is(specimen_date, "subQuery")) paste0("(", as.character(specimen_date), ")") else paste0("'", as.character(specimen_date), "'"))
}
if (!missing(specimen_datetime)) {
fields <- c(fields, "specimen_datetime")
values <- c(values, if (is.null(specimen_datetime)) "NULL" else if (is(specimen_datetime, "subQuery")) paste0("(", as.character(specimen_datetime), ")") else paste0("'", as.character(specimen_datetime), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(anatomic_site_concept_id)) {
fields <- c(fields, "anatomic_site_concept_id")
values <- c(values, if (is.null(anatomic_site_concept_id)) "NULL" else if (is(anatomic_site_concept_id, "subQuery")) paste0("(", as.character(anatomic_site_concept_id), ")") else paste0("'", as.character(anatomic_site_concept_id), "'"))
}
if (!missing(disease_status_concept_id)) {
fields <- c(fields, "disease_status_concept_id")
values <- c(values, if (is.null(disease_status_concept_id)) "NULL" else if (is(disease_status_concept_id, "subQuery")) paste0("(", as.character(disease_status_concept_id), ")") else paste0("'", as.character(disease_status_concept_id), "'"))
}
if (!missing(specimen_source_id)) {
fields <- c(fields, "specimen_source_id")
values <- c(values, if (is.null(specimen_source_id)) "NULL" else if (is(specimen_source_id, "subQuery")) paste0("(", as.character(specimen_source_id), ")") else paste0("'", as.character(specimen_source_id), "'"))
}
if (!missing(specimen_source_value)) {
fields <- c(fields, "specimen_source_value")
values <- c(values, if (is.null(specimen_source_value)) "NULL" else if (is(specimen_source_value, "subQuery")) paste0("(", as.character(specimen_source_value), ")") else paste0("'", as.character(specimen_source_value), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(anatomic_site_source_value)) {
fields <- c(fields, "anatomic_site_source_value")
values <- c(values, if (is.null(anatomic_site_source_value)) "NULL" else if (is(anatomic_site_source_value, "subQuery")) paste0("(", as.character(anatomic_site_source_value), ")") else paste0("'", as.character(anatomic_site_source_value), "'"))
}
if (!missing(disease_status_source_value)) {
fields <- c(fields, "disease_status_source_value")
values <- c(values, if (is.null(disease_status_source_value)) "NULL" else if (is(disease_status_source_value, "subQuery")) paste0("(", as.character(disease_status_source_value), ")") else paste0("'", as.character(disease_status_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "specimen", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_visit_detail <- function(visit_detail_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_value, admitting_source_concept_id, discharge_to_source_value, discharge_to_concept_id, preceding_visit_detail_id, visit_detail_parent_id, visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(preceding_visit_detail_id)) {
fields <- c(fields, "preceding_visit_detail_id")
values <- c(values, if (is.null(preceding_visit_detail_id)) "NULL" else if (is(preceding_visit_detail_id, "subQuery")) paste0("(", as.character(preceding_visit_detail_id), ")") else paste0("'", as.character(preceding_visit_detail_id), "'"))
}
if (!missing(visit_detail_parent_id)) {
fields <- c(fields, "visit_detail_parent_id")
values <- c(values, if (is.null(visit_detail_parent_id)) "NULL" else if (is(visit_detail_parent_id, "subQuery")) paste0("(", as.character(visit_detail_parent_id), ")") else paste0("'", as.character(visit_detail_parent_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "visit_detail", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_visit_occurrence <- function(visit_occurrence_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_concept_id, admitting_source_value, discharge_to_concept_id, discharge_to_source_value, preceding_visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(preceding_visit_occurrence_id)) {
fields <- c(fields, "preceding_visit_occurrence_id")
values <- c(values, if (is.null(preceding_visit_occurrence_id)) "NULL" else if (is(preceding_visit_occurrence_id, "subQuery")) paste0("(", as.character(preceding_visit_occurrence_id), ")") else paste0("'", as.character(preceding_visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "visit_occurrence", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_cohort <- function(cohort_definition_id, subject_id, cohort_start_date, cohort_end_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "cohort", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_cohort_attribute <- function(cohort_definition_id, subject_id, cohort_start_date, cohort_end_date, attribute_definition_id, value_as_number, value_as_concept_id) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "cohort_attribute", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_condition_era <- function(condition_era_id, person_id, condition_concept_id, condition_era_start_date, condition_era_end_date, condition_occurrence_count) {
fields <- c()
values <- c()
if (!missing(condition_era_id)) {
fields <- c(fields, "condition_era_id")
values <- c(values, if (is.null(condition_era_id)) "NULL" else if (is(condition_era_id, "subQuery")) paste0("(", as.character(condition_era_id), ")") else paste0("'", as.character(condition_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_era_start_date)) {
fields <- c(fields, "condition_era_start_date")
values <- c(values, if (is.null(condition_era_start_date)) "NULL" else if (is(condition_era_start_date, "subQuery")) paste0("(", as.character(condition_era_start_date), ")") else paste0("'", as.character(condition_era_start_date), "'"))
}
if (!missing(condition_era_end_date)) {
fields <- c(fields, "condition_era_end_date")
values <- c(values, if (is.null(condition_era_end_date)) "NULL" else if (is(condition_era_end_date, "subQuery")) paste0("(", as.character(condition_era_end_date), ")") else paste0("'", as.character(condition_era_end_date), "'"))
}
if (!missing(condition_occurrence_count)) {
fields <- c(fields, "condition_occurrence_count")
values <- c(values, if (is.null(condition_occurrence_count)) "NULL" else if (is(condition_occurrence_count, "subQuery")) paste0("(", as.character(condition_occurrence_count), ")") else paste0("'", as.character(condition_occurrence_count), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "condition_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_dose_era <- function(dose_era_id, person_id, drug_concept_id, unit_concept_id, dose_value, dose_era_start_date, dose_era_end_date) {
fields <- c()
values <- c()
if (!missing(dose_era_id)) {
fields <- c(fields, "dose_era_id")
values <- c(values, if (is.null(dose_era_id)) "NULL" else if (is(dose_era_id, "subQuery")) paste0("(", as.character(dose_era_id), ")") else paste0("'", as.character(dose_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(dose_value)) {
fields <- c(fields, "dose_value")
values <- c(values, if (is.null(dose_value)) "NULL" else if (is(dose_value, "subQuery")) paste0("(", as.character(dose_value), ")") else paste0("'", as.character(dose_value), "'"))
}
if (!missing(dose_era_start_date)) {
fields <- c(fields, "dose_era_start_date")
values <- c(values, if (is.null(dose_era_start_date)) "NULL" else if (is(dose_era_start_date, "subQuery")) paste0("(", as.character(dose_era_start_date), ")") else paste0("'", as.character(dose_era_start_date), "'"))
}
if (!missing(dose_era_end_date)) {
fields <- c(fields, "dose_era_end_date")
values <- c(values, if (is.null(dose_era_end_date)) "NULL" else if (is(dose_era_end_date, "subQuery")) paste0("(", as.character(dose_era_end_date), ")") else paste0("'", as.character(dose_era_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "dose_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_drug_era <- function(drug_era_id, person_id, drug_concept_id, drug_era_start_date, drug_era_end_date, drug_exposure_count, gap_days) {
fields <- c()
values <- c()
if (!missing(drug_era_id)) {
fields <- c(fields, "drug_era_id")
values <- c(values, if (is.null(drug_era_id)) "NULL" else if (is(drug_era_id, "subQuery")) paste0("(", as.character(drug_era_id), ")") else paste0("'", as.character(drug_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_era_start_date)) {
fields <- c(fields, "drug_era_start_date")
values <- c(values, if (is.null(drug_era_start_date)) "NULL" else if (is(drug_era_start_date, "subQuery")) paste0("(", as.character(drug_era_start_date), ")") else paste0("'", as.character(drug_era_start_date), "'"))
}
if (!missing(drug_era_end_date)) {
fields <- c(fields, "drug_era_end_date")
values <- c(values, if (is.null(drug_era_end_date)) "NULL" else if (is(drug_era_end_date, "subQuery")) paste0("(", as.character(drug_era_end_date), ")") else paste0("'", as.character(drug_era_end_date), "'"))
}
if (!missing(drug_exposure_count)) {
fields <- c(fields, "drug_exposure_count")
values <- c(values, if (is.null(drug_exposure_count)) "NULL" else if (is(drug_exposure_count, "subQuery")) paste0("(", as.character(drug_exposure_count), ")") else paste0("'", as.character(drug_exposure_count), "'"))
}
if (!missing(gap_days)) {
fields <- c(fields, "gap_days")
values <- c(values, if (is.null(gap_days)) "NULL" else if (is(gap_days, "subQuery")) paste0("(", as.character(gap_days), ")") else paste0("'", as.character(gap_days), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "drug_era", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_cost <- function(cost_id, cost_event_id, cost_domain_id, cost_type_concept_id, currency_concept_id, total_charge, total_cost, total_paid, paid_by_payer, paid_by_patient, paid_patient_copay, paid_patient_coinsurance, paid_patient_deductible, paid_by_primary, paid_ingredient_cost, paid_dispensing_fee, payer_plan_period_id, amount_allowed, revenue_code_concept_id, revenue_code_source_value, drg_concept_id, drg_source_value) {
fields <- c()
values <- c()
if (!missing(cost_id)) {
fields <- c(fields, "cost_id")
values <- c(values, if (is.null(cost_id)) "NULL" else if (is(cost_id, "subQuery")) paste0("(", as.character(cost_id), ")") else paste0("'", as.character(cost_id), "'"))
}
if (!missing(cost_event_id)) {
fields <- c(fields, "cost_event_id")
values <- c(values, if (is.null(cost_event_id)) "NULL" else if (is(cost_event_id, "subQuery")) paste0("(", as.character(cost_event_id), ")") else paste0("'", as.character(cost_event_id), "'"))
}
if (!missing(cost_domain_id)) {
fields <- c(fields, "cost_domain_id")
values <- c(values, if (is.null(cost_domain_id)) "NULL" else if (is(cost_domain_id, "subQuery")) paste0("(", as.character(cost_domain_id), ")") else paste0("'", as.character(cost_domain_id), "'"))
}
if (!missing(cost_type_concept_id)) {
fields <- c(fields, "cost_type_concept_id")
values <- c(values, if (is.null(cost_type_concept_id)) "NULL" else if (is(cost_type_concept_id, "subQuery")) paste0("(", as.character(cost_type_concept_id), ")") else paste0("'", as.character(cost_type_concept_id), "'"))
}
if (!missing(currency_concept_id)) {
fields <- c(fields, "currency_concept_id")
values <- c(values, if (is.null(currency_concept_id)) "NULL" else if (is(currency_concept_id, "subQuery")) paste0("(", as.character(currency_concept_id), ")") else paste0("'", as.character(currency_concept_id), "'"))
}
if (!missing(total_charge)) {
fields <- c(fields, "total_charge")
values <- c(values, if (is.null(total_charge)) "NULL" else if (is(total_charge, "subQuery")) paste0("(", as.character(total_charge), ")") else paste0("'", as.character(total_charge), "'"))
}
if (!missing(total_cost)) {
fields <- c(fields, "total_cost")
values <- c(values, if (is.null(total_cost)) "NULL" else if (is(total_cost, "subQuery")) paste0("(", as.character(total_cost), ")") else paste0("'", as.character(total_cost), "'"))
}
if (!missing(total_paid)) {
fields <- c(fields, "total_paid")
values <- c(values, if (is.null(total_paid)) "NULL" else if (is(total_paid, "subQuery")) paste0("(", as.character(total_paid), ")") else paste0("'", as.character(total_paid), "'"))
}
if (!missing(paid_by_payer)) {
fields <- c(fields, "paid_by_payer")
values <- c(values, if (is.null(paid_by_payer)) "NULL" else if (is(paid_by_payer, "subQuery")) paste0("(", as.character(paid_by_payer), ")") else paste0("'", as.character(paid_by_payer), "'"))
}
if (!missing(paid_by_patient)) {
fields <- c(fields, "paid_by_patient")
values <- c(values, if (is.null(paid_by_patient)) "NULL" else if (is(paid_by_patient, "subQuery")) paste0("(", as.character(paid_by_patient), ")") else paste0("'", as.character(paid_by_patient), "'"))
}
if (!missing(paid_patient_copay)) {
fields <- c(fields, "paid_patient_copay")
values <- c(values, if (is.null(paid_patient_copay)) "NULL" else if (is(paid_patient_copay, "subQuery")) paste0("(", as.character(paid_patient_copay), ")") else paste0("'", as.character(paid_patient_copay), "'"))
}
if (!missing(paid_patient_coinsurance)) {
fields <- c(fields, "paid_patient_coinsurance")
values <- c(values, if (is.null(paid_patient_coinsurance)) "NULL" else if (is(paid_patient_coinsurance, "subQuery")) paste0("(", as.character(paid_patient_coinsurance), ")") else paste0("'", as.character(paid_patient_coinsurance), "'"))
}
if (!missing(paid_patient_deductible)) {
fields <- c(fields, "paid_patient_deductible")
values <- c(values, if (is.null(paid_patient_deductible)) "NULL" else if (is(paid_patient_deductible, "subQuery")) paste0("(", as.character(paid_patient_deductible), ")") else paste0("'", as.character(paid_patient_deductible), "'"))
}
if (!missing(paid_by_primary)) {
fields <- c(fields, "paid_by_primary")
values <- c(values, if (is.null(paid_by_primary)) "NULL" else if (is(paid_by_primary, "subQuery")) paste0("(", as.character(paid_by_primary), ")") else paste0("'", as.character(paid_by_primary), "'"))
}
if (!missing(paid_ingredient_cost)) {
fields <- c(fields, "paid_ingredient_cost")
values <- c(values, if (is.null(paid_ingredient_cost)) "NULL" else if (is(paid_ingredient_cost, "subQuery")) paste0("(", as.character(paid_ingredient_cost), ")") else paste0("'", as.character(paid_ingredient_cost), "'"))
}
if (!missing(paid_dispensing_fee)) {
fields <- c(fields, "paid_dispensing_fee")
values <- c(values, if (is.null(paid_dispensing_fee)) "NULL" else if (is(paid_dispensing_fee, "subQuery")) paste0("(", as.character(paid_dispensing_fee), ")") else paste0("'", as.character(paid_dispensing_fee), "'"))
}
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(amount_allowed)) {
fields <- c(fields, "amount_allowed")
values <- c(values, if (is.null(amount_allowed)) "NULL" else if (is(amount_allowed, "subQuery")) paste0("(", as.character(amount_allowed), ")") else paste0("'", as.character(amount_allowed), "'"))
}
if (!missing(revenue_code_concept_id)) {
fields <- c(fields, "revenue_code_concept_id")
values <- c(values, if (is.null(revenue_code_concept_id)) "NULL" else if (is(revenue_code_concept_id, "subQuery")) paste0("(", as.character(revenue_code_concept_id), ")") else paste0("'", as.character(revenue_code_concept_id), "'"))
}
if (!missing(revenue_code_source_value)) {
fields <- c(fields, "revenue_code_source_value")
values <- c(values, if (is.null(revenue_code_source_value)) "NULL" else if (is(revenue_code_source_value, "subQuery")) paste0("(", as.character(revenue_code_source_value), ")") else paste0("'", as.character(revenue_code_source_value), "'"))
}
if (!missing(drg_concept_id)) {
fields <- c(fields, "drg_concept_id")
values <- c(values, if (is.null(drg_concept_id)) "NULL" else if (is(drg_concept_id, "subQuery")) paste0("(", as.character(drg_concept_id), ")") else paste0("'", as.character(drg_concept_id), "'"))
}
if (!missing(drg_source_value)) {
fields <- c(fields, "drg_source_value")
values <- c(values, if (is.null(drg_source_value)) "NULL" else if (is(drg_source_value, "subQuery")) paste0("(", as.character(drg_source_value), ")") else paste0("'", as.character(drg_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "cost", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_payer_plan_period <- function(payer_plan_period_id, person_id, payer_plan_period_start_date, payer_plan_period_end_date, payer_concept_id, payer_source_value, payer_source_concept_id, plan_concept_id, plan_source_value, plan_source_concept_id, sponsor_concept_id, sponsor_source_value, sponsor_source_concept_id, family_source_value, stop_reason_concept_id, stop_reason_source_value, stop_reason_source_concept_id) {
fields <- c()
values <- c()
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(payer_plan_period_start_date)) {
fields <- c(fields, "payer_plan_period_start_date")
values <- c(values, if (is.null(payer_plan_period_start_date)) "NULL" else if (is(payer_plan_period_start_date, "subQuery")) paste0("(", as.character(payer_plan_period_start_date), ")") else paste0("'", as.character(payer_plan_period_start_date), "'"))
}
if (!missing(payer_plan_period_end_date)) {
fields <- c(fields, "payer_plan_period_end_date")
values <- c(values, if (is.null(payer_plan_period_end_date)) "NULL" else if (is(payer_plan_period_end_date, "subQuery")) paste0("(", as.character(payer_plan_period_end_date), ")") else paste0("'", as.character(payer_plan_period_end_date), "'"))
}
if (!missing(payer_concept_id)) {
fields <- c(fields, "payer_concept_id")
values <- c(values, if (is.null(payer_concept_id)) "NULL" else if (is(payer_concept_id, "subQuery")) paste0("(", as.character(payer_concept_id), ")") else paste0("'", as.character(payer_concept_id), "'"))
}
if (!missing(payer_source_value)) {
fields <- c(fields, "payer_source_value")
values <- c(values, if (is.null(payer_source_value)) "NULL" else if (is(payer_source_value, "subQuery")) paste0("(", as.character(payer_source_value), ")") else paste0("'", as.character(payer_source_value), "'"))
}
if (!missing(payer_source_concept_id)) {
fields <- c(fields, "payer_source_concept_id")
values <- c(values, if (is.null(payer_source_concept_id)) "NULL" else if (is(payer_source_concept_id, "subQuery")) paste0("(", as.character(payer_source_concept_id), ")") else paste0("'", as.character(payer_source_concept_id), "'"))
}
if (!missing(plan_concept_id)) {
fields <- c(fields, "plan_concept_id")
values <- c(values, if (is.null(plan_concept_id)) "NULL" else if (is(plan_concept_id, "subQuery")) paste0("(", as.character(plan_concept_id), ")") else paste0("'", as.character(plan_concept_id), "'"))
}
if (!missing(plan_source_value)) {
fields <- c(fields, "plan_source_value")
values <- c(values, if (is.null(plan_source_value)) "NULL" else if (is(plan_source_value, "subQuery")) paste0("(", as.character(plan_source_value), ")") else paste0("'", as.character(plan_source_value), "'"))
}
if (!missing(plan_source_concept_id)) {
fields <- c(fields, "plan_source_concept_id")
values <- c(values, if (is.null(plan_source_concept_id)) "NULL" else if (is(plan_source_concept_id, "subQuery")) paste0("(", as.character(plan_source_concept_id), ")") else paste0("'", as.character(plan_source_concept_id), "'"))
}
if (!missing(sponsor_concept_id)) {
fields <- c(fields, "sponsor_concept_id")
values <- c(values, if (is.null(sponsor_concept_id)) "NULL" else if (is(sponsor_concept_id, "subQuery")) paste0("(", as.character(sponsor_concept_id), ")") else paste0("'", as.character(sponsor_concept_id), "'"))
}
if (!missing(sponsor_source_value)) {
fields <- c(fields, "sponsor_source_value")
values <- c(values, if (is.null(sponsor_source_value)) "NULL" else if (is(sponsor_source_value, "subQuery")) paste0("(", as.character(sponsor_source_value), ")") else paste0("'", as.character(sponsor_source_value), "'"))
}
if (!missing(sponsor_source_concept_id)) {
fields <- c(fields, "sponsor_source_concept_id")
values <- c(values, if (is.null(sponsor_source_concept_id)) "NULL" else if (is(sponsor_source_concept_id, "subQuery")) paste0("(", as.character(sponsor_source_concept_id), ")") else paste0("'", as.character(sponsor_source_concept_id), "'"))
}
if (!missing(family_source_value)) {
fields <- c(fields, "family_source_value")
values <- c(values, if (is.null(family_source_value)) "NULL" else if (is(family_source_value, "subQuery")) paste0("(", as.character(family_source_value), ")") else paste0("'", as.character(family_source_value), "'"))
}
if (!missing(stop_reason_concept_id)) {
fields <- c(fields, "stop_reason_concept_id")
values <- c(values, if (is.null(stop_reason_concept_id)) "NULL" else if (is(stop_reason_concept_id, "subQuery")) paste0("(", as.character(stop_reason_concept_id), ")") else paste0("'", as.character(stop_reason_concept_id), "'"))
}
if (!missing(stop_reason_source_value)) {
fields <- c(fields, "stop_reason_source_value")
values <- c(values, if (is.null(stop_reason_source_value)) "NULL" else if (is(stop_reason_source_value, "subQuery")) paste0("(", as.character(stop_reason_source_value), ")") else paste0("'", as.character(stop_reason_source_value), "'"))
}
if (!missing(stop_reason_source_concept_id)) {
fields <- c(fields, "stop_reason_source_concept_id")
values <- c(values, if (is.null(stop_reason_source_concept_id)) "NULL" else if (is(stop_reason_source_concept_id, "subQuery")) paste0("(", as.character(stop_reason_source_concept_id), ")") else paste0("'", as.character(stop_reason_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "payer_plan_period", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_care_site <- function(care_site_id, care_site_name, place_of_service_concept_id, location_id, care_site_source_value, place_of_service_source_value) {
fields <- c()
values <- c()
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(care_site_name)) {
fields <- c(fields, "care_site_name")
values <- c(values, if (is.null(care_site_name)) "NULL" else if (is(care_site_name, "subQuery")) paste0("(", as.character(care_site_name), ")") else paste0("'", as.character(care_site_name), "'"))
}
if (!missing(place_of_service_concept_id)) {
fields <- c(fields, "place_of_service_concept_id")
values <- c(values, if (is.null(place_of_service_concept_id)) "NULL" else if (is(place_of_service_concept_id, "subQuery")) paste0("(", as.character(place_of_service_concept_id), ")") else paste0("'", as.character(place_of_service_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(care_site_source_value)) {
fields <- c(fields, "care_site_source_value")
values <- c(values, if (is.null(care_site_source_value)) "NULL" else if (is(care_site_source_value, "subQuery")) paste0("(", as.character(care_site_source_value), ")") else paste0("'", as.character(care_site_source_value), "'"))
}
if (!missing(place_of_service_source_value)) {
fields <- c(fields, "place_of_service_source_value")
values <- c(values, if (is.null(place_of_service_source_value)) "NULL" else if (is(place_of_service_source_value, "subQuery")) paste0("(", as.character(place_of_service_source_value), ")") else paste0("'", as.character(place_of_service_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "care_site", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_location <- function(location_id, address_1, address_2, city, state, zip, county, location_source_value) {
fields <- c()
values <- c()
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(address_1)) {
fields <- c(fields, "address_1")
values <- c(values, if (is.null(address_1)) "NULL" else if (is(address_1, "subQuery")) paste0("(", as.character(address_1), ")") else paste0("'", as.character(address_1), "'"))
}
if (!missing(address_2)) {
fields <- c(fields, "address_2")
values <- c(values, if (is.null(address_2)) "NULL" else if (is(address_2, "subQuery")) paste0("(", as.character(address_2), ")") else paste0("'", as.character(address_2), "'"))
}
if (!missing(city)) {
fields <- c(fields, "city")
values <- c(values, if (is.null(city)) "NULL" else if (is(city, "subQuery")) paste0("(", as.character(city), ")") else paste0("'", as.character(city), "'"))
}
if (!missing(state)) {
fields <- c(fields, "state")
values <- c(values, if (is.null(state)) "NULL" else if (is(state, "subQuery")) paste0("(", as.character(state), ")") else paste0("'", as.character(state), "'"))
}
if (!missing(zip)) {
fields <- c(fields, "zip")
values <- c(values, if (is.null(zip)) "NULL" else if (is(zip, "subQuery")) paste0("(", as.character(zip), ")") else paste0("'", as.character(zip), "'"))
}
if (!missing(county)) {
fields <- c(fields, "county")
values <- c(values, if (is.null(county)) "NULL" else if (is(county, "subQuery")) paste0("(", as.character(county), ")") else paste0("'", as.character(county), "'"))
}
if (!missing(location_source_value)) {
fields <- c(fields, "location_source_value")
values <- c(values, if (is.null(location_source_value)) "NULL" else if (is(location_source_value, "subQuery")) paste0("(", as.character(location_source_value), ")") else paste0("'", as.character(location_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "location", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_provider <- function(provider_id, provider_name, npi, dea, specialty_concept_id, care_site_id, year_of_birth, gender_concept_id, provider_source_value, specialty_source_value, specialty_source_concept_id, gender_source_value, gender_source_concept_id) {
fields <- c()
values <- c()
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(provider_name)) {
fields <- c(fields, "provider_name")
values <- c(values, if (is.null(provider_name)) "NULL" else if (is(provider_name, "subQuery")) paste0("(", as.character(provider_name), ")") else paste0("'", as.character(provider_name), "'"))
}
if (!missing(npi)) {
fields <- c(fields, "npi")
values <- c(values, if (is.null(npi)) "NULL" else if (is(npi, "subQuery")) paste0("(", as.character(npi), ")") else paste0("'", as.character(npi), "'"))
}
if (!missing(dea)) {
fields <- c(fields, "dea")
values <- c(values, if (is.null(dea)) "NULL" else if (is(dea, "subQuery")) paste0("(", as.character(dea), ")") else paste0("'", as.character(dea), "'"))
}
if (!missing(specialty_concept_id)) {
fields <- c(fields, "specialty_concept_id")
values <- c(values, if (is.null(specialty_concept_id)) "NULL" else if (is(specialty_concept_id, "subQuery")) paste0("(", as.character(specialty_concept_id), ")") else paste0("'", as.character(specialty_concept_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(provider_source_value)) {
fields <- c(fields, "provider_source_value")
values <- c(values, if (is.null(provider_source_value)) "NULL" else if (is(provider_source_value, "subQuery")) paste0("(", as.character(provider_source_value), ")") else paste0("'", as.character(provider_source_value), "'"))
}
if (!missing(specialty_source_value)) {
fields <- c(fields, "specialty_source_value")
values <- c(values, if (is.null(specialty_source_value)) "NULL" else if (is(specialty_source_value, "subQuery")) paste0("(", as.character(specialty_source_value), ")") else paste0("'", as.character(specialty_source_value), "'"))
}
if (!missing(specialty_source_concept_id)) {
fields <- c(fields, "specialty_source_concept_id")
values <- c(values, if (is.null(specialty_source_concept_id)) "NULL" else if (is(specialty_source_concept_id, "subQuery")) paste0("(", as.character(specialty_source_concept_id), ")") else paste0("'", as.character(specialty_source_concept_id), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "provider", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_cdm_source <- function(cdm_source_name, cdm_source_abbreviation, cdm_holder, source_description, source_documentation_reference, cdm_etl_reference, source_release_date, cdm_release_date, cdm_version, vocabulary_version) {
fields <- c()
values <- c()
if (!missing(cdm_source_name)) {
fields <- c(fields, "cdm_source_name")
values <- c(values, if (is.null(cdm_source_name)) "NULL" else if (is(cdm_source_name, "subQuery")) paste0("(", as.character(cdm_source_name), ")") else paste0("'", as.character(cdm_source_name), "'"))
}
if (!missing(cdm_source_abbreviation)) {
fields <- c(fields, "cdm_source_abbreviation")
values <- c(values, if (is.null(cdm_source_abbreviation)) "NULL" else if (is(cdm_source_abbreviation, "subQuery")) paste0("(", as.character(cdm_source_abbreviation), ")") else paste0("'", as.character(cdm_source_abbreviation), "'"))
}
if (!missing(cdm_holder)) {
fields <- c(fields, "cdm_holder")
values <- c(values, if (is.null(cdm_holder)) "NULL" else if (is(cdm_holder, "subQuery")) paste0("(", as.character(cdm_holder), ")") else paste0("'", as.character(cdm_holder), "'"))
}
if (!missing(source_description)) {
fields <- c(fields, "source_description")
values <- c(values, if (is.null(source_description)) "NULL" else if (is(source_description, "subQuery")) paste0("(", as.character(source_description), ")") else paste0("'", as.character(source_description), "'"))
}
if (!missing(source_documentation_reference)) {
fields <- c(fields, "source_documentation_reference")
values <- c(values, if (is.null(source_documentation_reference)) "NULL" else if (is(source_documentation_reference, "subQuery")) paste0("(", as.character(source_documentation_reference), ")") else paste0("'", as.character(source_documentation_reference), "'"))
}
if (!missing(cdm_etl_reference)) {
fields <- c(fields, "cdm_etl_reference")
values <- c(values, if (is.null(cdm_etl_reference)) "NULL" else if (is(cdm_etl_reference, "subQuery")) paste0("(", as.character(cdm_etl_reference), ")") else paste0("'", as.character(cdm_etl_reference), "'"))
}
if (!missing(source_release_date)) {
fields <- c(fields, "source_release_date")
values <- c(values, if (is.null(source_release_date)) "NULL" else if (is(source_release_date, "subQuery")) paste0("(", as.character(source_release_date), ")") else paste0("'", as.character(source_release_date), "'"))
}
if (!missing(cdm_release_date)) {
fields <- c(fields, "cdm_release_date")
values <- c(values, if (is.null(cdm_release_date)) "NULL" else if (is(cdm_release_date, "subQuery")) paste0("(", as.character(cdm_release_date), ")") else paste0("'", as.character(cdm_release_date), "'"))
}
if (!missing(cdm_version)) {
fields <- c(fields, "cdm_version")
values <- c(values, if (is.null(cdm_version)) "NULL" else if (is(cdm_version, "subQuery")) paste0("(", as.character(cdm_version), ")") else paste0("'", as.character(cdm_version), "'"))
}
if (!missing(vocabulary_version)) {
fields <- c(fields, "vocabulary_version")
values <- c(values, if (is.null(vocabulary_version)) "NULL" else if (is(vocabulary_version, "subQuery")) paste0("(", as.character(vocabulary_version), ")") else paste0("'", as.character(vocabulary_version), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "cdm_source", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_metadata <- function(metadata_concept_id, metadata_type_concept_id, name, value_as_string, value_as_concept_id, metadata_date, metadata_datetime) {
fields <- c()
values <- c()
if (!missing(metadata_concept_id)) {
fields <- c(fields, "metadata_concept_id")
values <- c(values, if (is.null(metadata_concept_id)) "NULL" else if (is(metadata_concept_id, "subQuery")) paste0("(", as.character(metadata_concept_id), ")") else paste0("'", as.character(metadata_concept_id), "'"))
}
if (!missing(metadata_type_concept_id)) {
fields <- c(fields, "metadata_type_concept_id")
values <- c(values, if (is.null(metadata_type_concept_id)) "NULL" else if (is(metadata_type_concept_id, "subQuery")) paste0("(", as.character(metadata_type_concept_id), ")") else paste0("'", as.character(metadata_type_concept_id), "'"))
}
if (!missing(name)) {
fields <- c(fields, "name")
values <- c(values, if (is.null(name)) "NULL" else if (is(name, "subQuery")) paste0("(", as.character(name), ")") else paste0("'", as.character(name), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(metadata_date)) {
fields <- c(fields, "[metadata date]")
values <- c(values, if (is.null(metadata_date)) "NULL" else if (is(metadata_date, "subQuery")) paste0("(", as.character(metadata_date), ")") else paste0("'", as.character(metadata_date), "'"))
}
if (!missing(metadata_datetime)) {
fields <- c(fields, "metadata_datetime")
values <- c(values, if (is.null(metadata_datetime)) "NULL" else if (is(metadata_datetime, "subQuery")) paste0("(", as.character(metadata_datetime), ")") else paste0("'", as.character(metadata_datetime), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "metadata", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_attribute_definition <- function(attribute_definition_id, attribute_name, attribute_description, attribute_type_concept_id, attribute_syntax) {
fields <- c()
values <- c()
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(attribute_name)) {
fields <- c(fields, "attribute_name")
values <- c(values, if (is.null(attribute_name)) "NULL" else if (is(attribute_name, "subQuery")) paste0("(", as.character(attribute_name), ")") else paste0("'", as.character(attribute_name), "'"))
}
if (!missing(attribute_description)) {
fields <- c(fields, "attribute_description")
values <- c(values, if (is.null(attribute_description)) "NULL" else if (is(attribute_description, "subQuery")) paste0("(", as.character(attribute_description), ")") else paste0("'", as.character(attribute_description), "'"))
}
if (!missing(attribute_type_concept_id)) {
fields <- c(fields, "attribute_type_concept_id")
values <- c(values, if (is.null(attribute_type_concept_id)) "NULL" else if (is(attribute_type_concept_id, "subQuery")) paste0("(", as.character(attribute_type_concept_id), ")") else paste0("'", as.character(attribute_type_concept_id), "'"))
}
if (!missing(attribute_syntax)) {
fields <- c(fields, "attribute_syntax")
values <- c(values, if (is.null(attribute_syntax)) "NULL" else if (is(attribute_syntax, "subQuery")) paste0("(", as.character(attribute_syntax), ")") else paste0("'", as.character(attribute_syntax), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "attribute_definition", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_no_cohort_definition <- function(cohort_definition_id, cohort_definition_name, cohort_definition_description, definition_type_concept_id, cohort_definition_syntax, subject_concept_id, cohort_initiation_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(cohort_definition_name)) {
fields <- c(fields, "cohort_definition_name")
values <- c(values, if (is.null(cohort_definition_name)) "NULL" else if (is(cohort_definition_name, "subQuery")) paste0("(", as.character(cohort_definition_name), ")") else paste0("'", as.character(cohort_definition_name), "'"))
}
if (!missing(cohort_definition_description)) {
fields <- c(fields, "cohort_definition_description")
values <- c(values, if (is.null(cohort_definition_description)) "NULL" else if (is(cohort_definition_description, "subQuery")) paste0("(", as.character(cohort_definition_description), ")") else paste0("'", as.character(cohort_definition_description), "'"))
}
if (!missing(definition_type_concept_id)) {
fields <- c(fields, "definition_type_concept_id")
values <- c(values, if (is.null(definition_type_concept_id)) "NULL" else if (is(definition_type_concept_id, "subQuery")) paste0("(", as.character(definition_type_concept_id), ")") else paste0("'", as.character(definition_type_concept_id), "'"))
}
if (!missing(cohort_definition_syntax)) {
fields <- c(fields, "cohort_definition_syntax")
values <- c(values, if (is.null(cohort_definition_syntax)) "NULL" else if (is(cohort_definition_syntax, "subQuery")) paste0("(", as.character(cohort_definition_syntax), ")") else paste0("'", as.character(cohort_definition_syntax), "'"))
}
if (!missing(subject_concept_id)) {
fields <- c(fields, "subject_concept_id")
values <- c(values, if (is.null(subject_concept_id)) "NULL" else if (is(subject_concept_id, "subQuery")) paste0("(", as.character(subject_concept_id), ")") else paste0("'", as.character(subject_concept_id), "'"))
}
if (!missing(cohort_initiation_date)) {
fields <- c(fields, "cohort_initiation_date")
values <- c(values, if (is.null(cohort_initiation_date)) "NULL" else if (is(cohort_initiation_date, "subQuery")) paste0("(", as.character(cohort_initiation_date), ")") else paste0("'", as.character(cohort_initiation_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 1, table = "cohort_definition", fields = fields, values = values)
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_condition_occurrence <- function(rowCount, condition_occurrence_id, person_id, condition_concept_id, condition_start_date, condition_start_datetime, condition_end_date, condition_end_datetime, condition_type_concept_id, stop_reason, provider_id, visit_occurrence_id, visit_detail_id, condition_source_value, condition_source_concept_id, condition_status_source_value, condition_status_concept_id) {
fields <- c()
values <- c()
if (!missing(condition_occurrence_id)) {
fields <- c(fields, "condition_occurrence_id")
values <- c(values, if (is.null(condition_occurrence_id)) "NULL" else if (is(condition_occurrence_id, "subQuery")) paste0("(", as.character(condition_occurrence_id), ")") else paste0("'", as.character(condition_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_start_date)) {
fields <- c(fields, "condition_start_date")
values <- c(values, if (is.null(condition_start_date)) "NULL" else if (is(condition_start_date, "subQuery")) paste0("(", as.character(condition_start_date), ")") else paste0("'", as.character(condition_start_date), "'"))
}
if (!missing(condition_start_datetime)) {
fields <- c(fields, "condition_start_datetime")
values <- c(values, if (is.null(condition_start_datetime)) "NULL" else if (is(condition_start_datetime, "subQuery")) paste0("(", as.character(condition_start_datetime), ")") else paste0("'", as.character(condition_start_datetime), "'"))
}
if (!missing(condition_end_date)) {
fields <- c(fields, "condition_end_date")
values <- c(values, if (is.null(condition_end_date)) "NULL" else if (is(condition_end_date, "subQuery")) paste0("(", as.character(condition_end_date), ")") else paste0("'", as.character(condition_end_date), "'"))
}
if (!missing(condition_end_datetime)) {
fields <- c(fields, "condition_end_datetime")
values <- c(values, if (is.null(condition_end_datetime)) "NULL" else if (is(condition_end_datetime, "subQuery")) paste0("(", as.character(condition_end_datetime), ")") else paste0("'", as.character(condition_end_datetime), "'"))
}
if (!missing(condition_type_concept_id)) {
fields <- c(fields, "condition_type_concept_id")
values <- c(values, if (is.null(condition_type_concept_id)) "NULL" else if (is(condition_type_concept_id, "subQuery")) paste0("(", as.character(condition_type_concept_id), ")") else paste0("'", as.character(condition_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(condition_source_value)) {
fields <- c(fields, "condition_source_value")
values <- c(values, if (is.null(condition_source_value)) "NULL" else if (is(condition_source_value, "subQuery")) paste0("(", as.character(condition_source_value), ")") else paste0("'", as.character(condition_source_value), "'"))
}
if (!missing(condition_source_concept_id)) {
fields <- c(fields, "condition_source_concept_id")
values <- c(values, if (is.null(condition_source_concept_id)) "NULL" else if (is(condition_source_concept_id, "subQuery")) paste0("(", as.character(condition_source_concept_id), ")") else paste0("'", as.character(condition_source_concept_id), "'"))
}
if (!missing(condition_status_source_value)) {
fields <- c(fields, "condition_status_source_value")
values <- c(values, if (is.null(condition_status_source_value)) "NULL" else if (is(condition_status_source_value, "subQuery")) paste0("(", as.character(condition_status_source_value), ")") else paste0("'", as.character(condition_status_source_value), "'"))
}
if (!missing(condition_status_concept_id)) {
fields <- c(fields, "condition_status_concept_id")
values <- c(values, if (is.null(condition_status_concept_id)) "NULL" else if (is(condition_status_concept_id, "subQuery")) paste0("(", as.character(condition_status_concept_id), ")") else paste0("'", as.character(condition_status_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "condition_occurrence", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_death <- function(rowCount, person_id, death_date, death_datetime, death_type_concept_id, cause_concept_id, cause_source_value, cause_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(death_date)) {
fields <- c(fields, "death_date")
values <- c(values, if (is.null(death_date)) "NULL" else if (is(death_date, "subQuery")) paste0("(", as.character(death_date), ")") else paste0("'", as.character(death_date), "'"))
}
if (!missing(death_datetime)) {
fields <- c(fields, "death_datetime")
values <- c(values, if (is.null(death_datetime)) "NULL" else if (is(death_datetime, "subQuery")) paste0("(", as.character(death_datetime), ")") else paste0("'", as.character(death_datetime), "'"))
}
if (!missing(death_type_concept_id)) {
fields <- c(fields, "death_type_concept_id")
values <- c(values, if (is.null(death_type_concept_id)) "NULL" else if (is(death_type_concept_id, "subQuery")) paste0("(", as.character(death_type_concept_id), ")") else paste0("'", as.character(death_type_concept_id), "'"))
}
if (!missing(cause_concept_id)) {
fields <- c(fields, "cause_concept_id")
values <- c(values, if (is.null(cause_concept_id)) "NULL" else if (is(cause_concept_id, "subQuery")) paste0("(", as.character(cause_concept_id), ")") else paste0("'", as.character(cause_concept_id), "'"))
}
if (!missing(cause_source_value)) {
fields <- c(fields, "cause_source_value")
values <- c(values, if (is.null(cause_source_value)) "NULL" else if (is(cause_source_value, "subQuery")) paste0("(", as.character(cause_source_value), ")") else paste0("'", as.character(cause_source_value), "'"))
}
if (!missing(cause_source_concept_id)) {
fields <- c(fields, "cause_source_concept_id")
values <- c(values, if (is.null(cause_source_concept_id)) "NULL" else if (is(cause_source_concept_id, "subQuery")) paste0("(", as.character(cause_source_concept_id), ")") else paste0("'", as.character(cause_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "death", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_device_exposure <- function(rowCount, device_exposure_id, person_id, device_concept_id, device_exposure_start_date, device_exposure_start_datetime, device_exposure_end_date, device_exposure_end_datetime, device_type_concept_id, unique_device_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, device_source_value, device_source_concept_id) {
fields <- c()
values <- c()
if (!missing(device_exposure_id)) {
fields <- c(fields, "device_exposure_id")
values <- c(values, if (is.null(device_exposure_id)) "NULL" else if (is(device_exposure_id, "subQuery")) paste0("(", as.character(device_exposure_id), ")") else paste0("'", as.character(device_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(device_concept_id)) {
fields <- c(fields, "device_concept_id")
values <- c(values, if (is.null(device_concept_id)) "NULL" else if (is(device_concept_id, "subQuery")) paste0("(", as.character(device_concept_id), ")") else paste0("'", as.character(device_concept_id), "'"))
}
if (!missing(device_exposure_start_date)) {
fields <- c(fields, "device_exposure_start_date")
values <- c(values, if (is.null(device_exposure_start_date)) "NULL" else if (is(device_exposure_start_date, "subQuery")) paste0("(", as.character(device_exposure_start_date), ")") else paste0("'", as.character(device_exposure_start_date), "'"))
}
if (!missing(device_exposure_start_datetime)) {
fields <- c(fields, "device_exposure_start_datetime")
values <- c(values, if (is.null(device_exposure_start_datetime)) "NULL" else if (is(device_exposure_start_datetime, "subQuery")) paste0("(", as.character(device_exposure_start_datetime), ")") else paste0("'", as.character(device_exposure_start_datetime), "'"))
}
if (!missing(device_exposure_end_date)) {
fields <- c(fields, "device_exposure_end_date")
values <- c(values, if (is.null(device_exposure_end_date)) "NULL" else if (is(device_exposure_end_date, "subQuery")) paste0("(", as.character(device_exposure_end_date), ")") else paste0("'", as.character(device_exposure_end_date), "'"))
}
if (!missing(device_exposure_end_datetime)) {
fields <- c(fields, "device_exposure_end_datetime")
values <- c(values, if (is.null(device_exposure_end_datetime)) "NULL" else if (is(device_exposure_end_datetime, "subQuery")) paste0("(", as.character(device_exposure_end_datetime), ")") else paste0("'", as.character(device_exposure_end_datetime), "'"))
}
if (!missing(device_type_concept_id)) {
fields <- c(fields, "device_type_concept_id")
values <- c(values, if (is.null(device_type_concept_id)) "NULL" else if (is(device_type_concept_id, "subQuery")) paste0("(", as.character(device_type_concept_id), ")") else paste0("'", as.character(device_type_concept_id), "'"))
}
if (!missing(unique_device_id)) {
fields <- c(fields, "unique_device_id")
values <- c(values, if (is.null(unique_device_id)) "NULL" else if (is(unique_device_id, "subQuery")) paste0("(", as.character(unique_device_id), ")") else paste0("'", as.character(unique_device_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(device_source_value)) {
fields <- c(fields, "device_source_value")
values <- c(values, if (is.null(device_source_value)) "NULL" else if (is(device_source_value, "subQuery")) paste0("(", as.character(device_source_value), ")") else paste0("'", as.character(device_source_value), "'"))
}
if (!missing(device_source_concept_id)) {
fields <- c(fields, "device_source_concept_id")
values <- c(values, if (is.null(device_source_concept_id)) "NULL" else if (is(device_source_concept_id, "subQuery")) paste0("(", as.character(device_source_concept_id), ")") else paste0("'", as.character(device_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "device_exposure", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_drug_exposure <- function(rowCount, drug_exposure_id, person_id, drug_concept_id, drug_exposure_start_date, drug_exposure_start_datetime, drug_exposure_end_date, drug_exposure_end_datetime, verbatim_end_date, drug_type_concept_id, stop_reason, refills, quantity, days_supply, sig, route_concept_id, lot_number, provider_id, visit_occurrence_id, visit_detail_id, drug_source_value, drug_source_concept_id, route_source_value, dose_unit_source_value) {
fields <- c()
values <- c()
if (!missing(drug_exposure_id)) {
fields <- c(fields, "drug_exposure_id")
values <- c(values, if (is.null(drug_exposure_id)) "NULL" else if (is(drug_exposure_id, "subQuery")) paste0("(", as.character(drug_exposure_id), ")") else paste0("'", as.character(drug_exposure_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_exposure_start_date)) {
fields <- c(fields, "drug_exposure_start_date")
values <- c(values, if (is.null(drug_exposure_start_date)) "NULL" else if (is(drug_exposure_start_date, "subQuery")) paste0("(", as.character(drug_exposure_start_date), ")") else paste0("'", as.character(drug_exposure_start_date), "'"))
}
if (!missing(drug_exposure_start_datetime)) {
fields <- c(fields, "drug_exposure_start_datetime")
values <- c(values, if (is.null(drug_exposure_start_datetime)) "NULL" else if (is(drug_exposure_start_datetime, "subQuery")) paste0("(", as.character(drug_exposure_start_datetime), ")") else paste0("'", as.character(drug_exposure_start_datetime), "'"))
}
if (!missing(drug_exposure_end_date)) {
fields <- c(fields, "drug_exposure_end_date")
values <- c(values, if (is.null(drug_exposure_end_date)) "NULL" else if (is(drug_exposure_end_date, "subQuery")) paste0("(", as.character(drug_exposure_end_date), ")") else paste0("'", as.character(drug_exposure_end_date), "'"))
}
if (!missing(drug_exposure_end_datetime)) {
fields <- c(fields, "drug_exposure_end_datetime")
values <- c(values, if (is.null(drug_exposure_end_datetime)) "NULL" else if (is(drug_exposure_end_datetime, "subQuery")) paste0("(", as.character(drug_exposure_end_datetime), ")") else paste0("'", as.character(drug_exposure_end_datetime), "'"))
}
if (!missing(verbatim_end_date)) {
fields <- c(fields, "verbatim_end_date")
values <- c(values, if (is.null(verbatim_end_date)) "NULL" else if (is(verbatim_end_date, "subQuery")) paste0("(", as.character(verbatim_end_date), ")") else paste0("'", as.character(verbatim_end_date), "'"))
}
if (!missing(drug_type_concept_id)) {
fields <- c(fields, "drug_type_concept_id")
values <- c(values, if (is.null(drug_type_concept_id)) "NULL" else if (is(drug_type_concept_id, "subQuery")) paste0("(", as.character(drug_type_concept_id), ")") else paste0("'", as.character(drug_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
fields <- c(fields, "stop_reason")
values <- c(values, if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(refills)) {
fields <- c(fields, "refills")
values <- c(values, if (is.null(refills)) "NULL" else if (is(refills, "subQuery")) paste0("(", as.character(refills), ")") else paste0("'", as.character(refills), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(days_supply)) {
fields <- c(fields, "days_supply")
values <- c(values, if (is.null(days_supply)) "NULL" else if (is(days_supply, "subQuery")) paste0("(", as.character(days_supply), ")") else paste0("'", as.character(days_supply), "'"))
}
if (!missing(sig)) {
fields <- c(fields, "sig")
values <- c(values, if (is.null(sig)) "NULL" else if (is(sig, "subQuery")) paste0("(", as.character(sig), ")") else paste0("'", as.character(sig), "'"))
}
if (!missing(route_concept_id)) {
fields <- c(fields, "route_concept_id")
values <- c(values, if (is.null(route_concept_id)) "NULL" else if (is(route_concept_id, "subQuery")) paste0("(", as.character(route_concept_id), ")") else paste0("'", as.character(route_concept_id), "'"))
}
if (!missing(lot_number)) {
fields <- c(fields, "lot_number")
values <- c(values, if (is.null(lot_number)) "NULL" else if (is(lot_number, "subQuery")) paste0("(", as.character(lot_number), ")") else paste0("'", as.character(lot_number), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(drug_source_value)) {
fields <- c(fields, "drug_source_value")
values <- c(values, if (is.null(drug_source_value)) "NULL" else if (is(drug_source_value, "subQuery")) paste0("(", as.character(drug_source_value), ")") else paste0("'", as.character(drug_source_value), "'"))
}
if (!missing(drug_source_concept_id)) {
fields <- c(fields, "drug_source_concept_id")
values <- c(values, if (is.null(drug_source_concept_id)) "NULL" else if (is(drug_source_concept_id, "subQuery")) paste0("(", as.character(drug_source_concept_id), ")") else paste0("'", as.character(drug_source_concept_id), "'"))
}
if (!missing(route_source_value)) {
fields <- c(fields, "route_source_value")
values <- c(values, if (is.null(route_source_value)) "NULL" else if (is(route_source_value, "subQuery")) paste0("(", as.character(route_source_value), ")") else paste0("'", as.character(route_source_value), "'"))
}
if (!missing(dose_unit_source_value)) {
fields <- c(fields, "dose_unit_source_value")
values <- c(values, if (is.null(dose_unit_source_value)) "NULL" else if (is(dose_unit_source_value, "subQuery")) paste0("(", as.character(dose_unit_source_value), ")") else paste0("'", as.character(dose_unit_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "drug_exposure", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_fact_relationship <- function(rowCount, domain_concept_id_1, fact_id_1, domain_concept_id_2, fact_id_2, relationship_concept_id) {
fields <- c()
values <- c()
if (!missing(domain_concept_id_1)) {
fields <- c(fields, "domain_concept_id_1")
values <- c(values, if (is.null(domain_concept_id_1)) "NULL" else if (is(domain_concept_id_1, "subQuery")) paste0("(", as.character(domain_concept_id_1), ")") else paste0("'", as.character(domain_concept_id_1), "'"))
}
if (!missing(fact_id_1)) {
fields <- c(fields, "fact_id_1")
values <- c(values, if (is.null(fact_id_1)) "NULL" else if (is(fact_id_1, "subQuery")) paste0("(", as.character(fact_id_1), ")") else paste0("'", as.character(fact_id_1), "'"))
}
if (!missing(domain_concept_id_2)) {
fields <- c(fields, "domain_concept_id_2")
values <- c(values, if (is.null(domain_concept_id_2)) "NULL" else if (is(domain_concept_id_2, "subQuery")) paste0("(", as.character(domain_concept_id_2), ")") else paste0("'", as.character(domain_concept_id_2), "'"))
}
if (!missing(fact_id_2)) {
fields <- c(fields, "fact_id_2")
values <- c(values, if (is.null(fact_id_2)) "NULL" else if (is(fact_id_2, "subQuery")) paste0("(", as.character(fact_id_2), ")") else paste0("'", as.character(fact_id_2), "'"))
}
if (!missing(relationship_concept_id)) {
fields <- c(fields, "relationship_concept_id")
values <- c(values, if (is.null(relationship_concept_id)) "NULL" else if (is(relationship_concept_id, "subQuery")) paste0("(", as.character(relationship_concept_id), ")") else paste0("'", as.character(relationship_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "fact_relationship", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_measurement <- function(rowCount, measurement_id, person_id, measurement_concept_id, measurement_date, measurement_datetime, measurement_time, measurement_type_concept_id, operator_concept_id, value_as_number, value_as_concept_id, unit_concept_id, range_low, range_high, provider_id, visit_occurrence_id, visit_detail_id, measurement_source_value, measurement_source_concept_id, unit_source_value, value_source_value) {
fields <- c()
values <- c()
if (!missing(measurement_id)) {
fields <- c(fields, "measurement_id")
values <- c(values, if (is.null(measurement_id)) "NULL" else if (is(measurement_id, "subQuery")) paste0("(", as.character(measurement_id), ")") else paste0("'", as.character(measurement_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(measurement_concept_id)) {
fields <- c(fields, "measurement_concept_id")
values <- c(values, if (is.null(measurement_concept_id)) "NULL" else if (is(measurement_concept_id, "subQuery")) paste0("(", as.character(measurement_concept_id), ")") else paste0("'", as.character(measurement_concept_id), "'"))
}
if (!missing(measurement_date)) {
fields <- c(fields, "measurement_date")
values <- c(values, if (is.null(measurement_date)) "NULL" else if (is(measurement_date, "subQuery")) paste0("(", as.character(measurement_date), ")") else paste0("'", as.character(measurement_date), "'"))
}
if (!missing(measurement_datetime)) {
fields <- c(fields, "measurement_datetime")
values <- c(values, if (is.null(measurement_datetime)) "NULL" else if (is(measurement_datetime, "subQuery")) paste0("(", as.character(measurement_datetime), ")") else paste0("'", as.character(measurement_datetime), "'"))
}
if (!missing(measurement_time)) {
fields <- c(fields, "measurement_time")
values <- c(values, if (is.null(measurement_time)) "NULL" else if (is(measurement_time, "subQuery")) paste0("(", as.character(measurement_time), ")") else paste0("'", as.character(measurement_time), "'"))
}
if (!missing(measurement_type_concept_id)) {
fields <- c(fields, "measurement_type_concept_id")
values <- c(values, if (is.null(measurement_type_concept_id)) "NULL" else if (is(measurement_type_concept_id, "subQuery")) paste0("(", as.character(measurement_type_concept_id), ")") else paste0("'", as.character(measurement_type_concept_id), "'"))
}
if (!missing(operator_concept_id)) {
fields <- c(fields, "operator_concept_id")
values <- c(values, if (is.null(operator_concept_id)) "NULL" else if (is(operator_concept_id, "subQuery")) paste0("(", as.character(operator_concept_id), ")") else paste0("'", as.character(operator_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(range_low)) {
fields <- c(fields, "range_low")
values <- c(values, if (is.null(range_low)) "NULL" else if (is(range_low, "subQuery")) paste0("(", as.character(range_low), ")") else paste0("'", as.character(range_low), "'"))
}
if (!missing(range_high)) {
fields <- c(fields, "range_high")
values <- c(values, if (is.null(range_high)) "NULL" else if (is(range_high, "subQuery")) paste0("(", as.character(range_high), ")") else paste0("'", as.character(range_high), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(measurement_source_value)) {
fields <- c(fields, "measurement_source_value")
values <- c(values, if (is.null(measurement_source_value)) "NULL" else if (is(measurement_source_value, "subQuery")) paste0("(", as.character(measurement_source_value), ")") else paste0("'", as.character(measurement_source_value), "'"))
}
if (!missing(measurement_source_concept_id)) {
fields <- c(fields, "measurement_source_concept_id")
values <- c(values, if (is.null(measurement_source_concept_id)) "NULL" else if (is(measurement_source_concept_id, "subQuery")) paste0("(", as.character(measurement_source_concept_id), ")") else paste0("'", as.character(measurement_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(value_source_value)) {
fields <- c(fields, "value_source_value")
values <- c(values, if (is.null(value_source_value)) "NULL" else if (is(value_source_value, "subQuery")) paste0("(", as.character(value_source_value), ")") else paste0("'", as.character(value_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "measurement", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_note <- function(rowCount, note_id, person_id, note_date, note_datetime, note_type_concept_id, note_class_concept_id, note_title, note_text, encoding_concept_id, language_concept_id, provider_id, visit_occurrence_id, visit_detail_id, note_source_value) {
fields <- c()
values <- c()
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(note_date)) {
fields <- c(fields, "note_date")
values <- c(values, if (is.null(note_date)) "NULL" else if (is(note_date, "subQuery")) paste0("(", as.character(note_date), ")") else paste0("'", as.character(note_date), "'"))
}
if (!missing(note_datetime)) {
fields <- c(fields, "note_datetime")
values <- c(values, if (is.null(note_datetime)) "NULL" else if (is(note_datetime, "subQuery")) paste0("(", as.character(note_datetime), ")") else paste0("'", as.character(note_datetime), "'"))
}
if (!missing(note_type_concept_id)) {
fields <- c(fields, "note_type_concept_id")
values <- c(values, if (is.null(note_type_concept_id)) "NULL" else if (is(note_type_concept_id, "subQuery")) paste0("(", as.character(note_type_concept_id), ")") else paste0("'", as.character(note_type_concept_id), "'"))
}
if (!missing(note_class_concept_id)) {
fields <- c(fields, "note_class_concept_id")
values <- c(values, if (is.null(note_class_concept_id)) "NULL" else if (is(note_class_concept_id, "subQuery")) paste0("(", as.character(note_class_concept_id), ")") else paste0("'", as.character(note_class_concept_id), "'"))
}
if (!missing(note_title)) {
fields <- c(fields, "note_title")
values <- c(values, if (is.null(note_title)) "NULL" else if (is(note_title, "subQuery")) paste0("(", as.character(note_title), ")") else paste0("'", as.character(note_title), "'"))
}
if (!missing(note_text)) {
fields <- c(fields, "note_text")
values <- c(values, if (is.null(note_text)) "NULL" else if (is(note_text, "subQuery")) paste0("(", as.character(note_text), ")") else paste0("'", as.character(note_text), "'"))
}
if (!missing(encoding_concept_id)) {
fields <- c(fields, "encoding_concept_id")
values <- c(values, if (is.null(encoding_concept_id)) "NULL" else if (is(encoding_concept_id, "subQuery")) paste0("(", as.character(encoding_concept_id), ")") else paste0("'", as.character(encoding_concept_id), "'"))
}
if (!missing(language_concept_id)) {
fields <- c(fields, "language_concept_id")
values <- c(values, if (is.null(language_concept_id)) "NULL" else if (is(language_concept_id, "subQuery")) paste0("(", as.character(language_concept_id), ")") else paste0("'", as.character(language_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(note_source_value)) {
fields <- c(fields, "note_source_value")
values <- c(values, if (is.null(note_source_value)) "NULL" else if (is(note_source_value, "subQuery")) paste0("(", as.character(note_source_value), ")") else paste0("'", as.character(note_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "note", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_note_nlp <- function(rowCount, note_nlp_id, note_id, section_concept_id, snippet, offset, lexical_variant, note_nlp_concept_id, note_nlp_source_concept_id, nlp_system, nlp_date, nlp_datetime, term_exists, term_temporal, term_modifiers) {
fields <- c()
values <- c()
if (!missing(note_nlp_id)) {
fields <- c(fields, "note_nlp_id")
values <- c(values, if (is.null(note_nlp_id)) "NULL" else if (is(note_nlp_id, "subQuery")) paste0("(", as.character(note_nlp_id), ")") else paste0("'", as.character(note_nlp_id), "'"))
}
if (!missing(note_id)) {
fields <- c(fields, "note_id")
values <- c(values, if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(section_concept_id)) {
fields <- c(fields, "section_concept_id")
values <- c(values, if (is.null(section_concept_id)) "NULL" else if (is(section_concept_id, "subQuery")) paste0("(", as.character(section_concept_id), ")") else paste0("'", as.character(section_concept_id), "'"))
}
if (!missing(snippet)) {
fields <- c(fields, "snippet")
values <- c(values, if (is.null(snippet)) "NULL" else if (is(snippet, "subQuery")) paste0("(", as.character(snippet), ")") else paste0("'", as.character(snippet), "'"))
}
if (!missing(offset)) {
fields <- c(fields, "offset")
values <- c(values, if (is.null(offset)) "NULL" else if (is(offset, "subQuery")) paste0("(", as.character(offset), ")") else paste0("'", as.character(offset), "'"))
}
if (!missing(lexical_variant)) {
fields <- c(fields, "lexical_variant")
values <- c(values, if (is.null(lexical_variant)) "NULL" else if (is(lexical_variant, "subQuery")) paste0("(", as.character(lexical_variant), ")") else paste0("'", as.character(lexical_variant), "'"))
}
if (!missing(note_nlp_concept_id)) {
fields <- c(fields, "note_nlp_concept_id")
values <- c(values, if (is.null(note_nlp_concept_id)) "NULL" else if (is(note_nlp_concept_id, "subQuery")) paste0("(", as.character(note_nlp_concept_id), ")") else paste0("'", as.character(note_nlp_concept_id), "'"))
}
if (!missing(note_nlp_source_concept_id)) {
fields <- c(fields, "note_nlp_source_concept_id")
values <- c(values, if (is.null(note_nlp_source_concept_id)) "NULL" else if (is(note_nlp_source_concept_id, "subQuery")) paste0("(", as.character(note_nlp_source_concept_id), ")") else paste0("'", as.character(note_nlp_source_concept_id), "'"))
}
if (!missing(nlp_system)) {
fields <- c(fields, "nlp_system")
values <- c(values, if (is.null(nlp_system)) "NULL" else if (is(nlp_system, "subQuery")) paste0("(", as.character(nlp_system), ")") else paste0("'", as.character(nlp_system), "'"))
}
if (!missing(nlp_date)) {
fields <- c(fields, "nlp_date")
values <- c(values, if (is.null(nlp_date)) "NULL" else if (is(nlp_date, "subQuery")) paste0("(", as.character(nlp_date), ")") else paste0("'", as.character(nlp_date), "'"))
}
if (!missing(nlp_datetime)) {
fields <- c(fields, "nlp_datetime")
values <- c(values, if (is.null(nlp_datetime)) "NULL" else if (is(nlp_datetime, "subQuery")) paste0("(", as.character(nlp_datetime), ")") else paste0("'", as.character(nlp_datetime), "'"))
}
if (!missing(term_exists)) {
fields <- c(fields, "term_exists")
values <- c(values, if (is.null(term_exists)) "NULL" else if (is(term_exists, "subQuery")) paste0("(", as.character(term_exists), ")") else paste0("'", as.character(term_exists), "'"))
}
if (!missing(term_temporal)) {
fields <- c(fields, "term_temporal")
values <- c(values, if (is.null(term_temporal)) "NULL" else if (is(term_temporal, "subQuery")) paste0("(", as.character(term_temporal), ")") else paste0("'", as.character(term_temporal), "'"))
}
if (!missing(term_modifiers)) {
fields <- c(fields, "term_modifiers")
values <- c(values, if (is.null(term_modifiers)) "NULL" else if (is(term_modifiers, "subQuery")) paste0("(", as.character(term_modifiers), ")") else paste0("'", as.character(term_modifiers), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "note_nlp", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_observation <- function(rowCount, observation_id, person_id, observation_concept_id, observation_date, observation_datetime, observation_type_concept_id, value_as_number, value_as_string, value_as_concept_id, qualifier_concept_id, unit_concept_id, provider_id, visit_occurrence_id, visit_detail_id, observation_source_value, observation_source_concept_id, unit_source_value, qualifier_source_value) {
fields <- c()
values <- c()
if (!missing(observation_id)) {
fields <- c(fields, "observation_id")
values <- c(values, if (is.null(observation_id)) "NULL" else if (is(observation_id, "subQuery")) paste0("(", as.character(observation_id), ")") else paste0("'", as.character(observation_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_concept_id)) {
fields <- c(fields, "observation_concept_id")
values <- c(values, if (is.null(observation_concept_id)) "NULL" else if (is(observation_concept_id, "subQuery")) paste0("(", as.character(observation_concept_id), ")") else paste0("'", as.character(observation_concept_id), "'"))
}
if (!missing(observation_date)) {
fields <- c(fields, "observation_date")
values <- c(values, if (is.null(observation_date)) "NULL" else if (is(observation_date, "subQuery")) paste0("(", as.character(observation_date), ")") else paste0("'", as.character(observation_date), "'"))
}
if (!missing(observation_datetime)) {
fields <- c(fields, "observation_datetime")
values <- c(values, if (is.null(observation_datetime)) "NULL" else if (is(observation_datetime, "subQuery")) paste0("(", as.character(observation_datetime), ")") else paste0("'", as.character(observation_datetime), "'"))
}
if (!missing(observation_type_concept_id)) {
fields <- c(fields, "observation_type_concept_id")
values <- c(values, if (is.null(observation_type_concept_id)) "NULL" else if (is(observation_type_concept_id, "subQuery")) paste0("(", as.character(observation_type_concept_id), ")") else paste0("'", as.character(observation_type_concept_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(qualifier_concept_id)) {
fields <- c(fields, "qualifier_concept_id")
values <- c(values, if (is.null(qualifier_concept_id)) "NULL" else if (is(qualifier_concept_id, "subQuery")) paste0("(", as.character(qualifier_concept_id), ")") else paste0("'", as.character(qualifier_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(observation_source_value)) {
fields <- c(fields, "observation_source_value")
values <- c(values, if (is.null(observation_source_value)) "NULL" else if (is(observation_source_value, "subQuery")) paste0("(", as.character(observation_source_value), ")") else paste0("'", as.character(observation_source_value), "'"))
}
if (!missing(observation_source_concept_id)) {
fields <- c(fields, "observation_source_concept_id")
values <- c(values, if (is.null(observation_source_concept_id)) "NULL" else if (is(observation_source_concept_id, "subQuery")) paste0("(", as.character(observation_source_concept_id), ")") else paste0("'", as.character(observation_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(qualifier_source_value)) {
fields <- c(fields, "qualifier_source_value")
values <- c(values, if (is.null(qualifier_source_value)) "NULL" else if (is(qualifier_source_value, "subQuery")) paste0("(", as.character(qualifier_source_value), ")") else paste0("'", as.character(qualifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "observation", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_observation_period <- function(rowCount, observation_period_id, person_id, observation_period_start_date, observation_period_end_date, period_type_concept_id) {
fields <- c()
values <- c()
if (!missing(observation_period_id)) {
fields <- c(fields, "observation_period_id")
values <- c(values, if (is.null(observation_period_id)) "NULL" else if (is(observation_period_id, "subQuery")) paste0("(", as.character(observation_period_id), ")") else paste0("'", as.character(observation_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_period_start_date)) {
fields <- c(fields, "observation_period_start_date")
values <- c(values, if (is.null(observation_period_start_date)) "NULL" else if (is(observation_period_start_date, "subQuery")) paste0("(", as.character(observation_period_start_date), ")") else paste0("'", as.character(observation_period_start_date), "'"))
}
if (!missing(observation_period_end_date)) {
fields <- c(fields, "observation_period_end_date")
values <- c(values, if (is.null(observation_period_end_date)) "NULL" else if (is(observation_period_end_date, "subQuery")) paste0("(", as.character(observation_period_end_date), ")") else paste0("'", as.character(observation_period_end_date), "'"))
}
if (!missing(period_type_concept_id)) {
fields <- c(fields, "period_type_concept_id")
values <- c(values, if (is.null(period_type_concept_id)) "NULL" else if (is(period_type_concept_id, "subQuery")) paste0("(", as.character(period_type_concept_id), ")") else paste0("'", as.character(period_type_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "observation_period", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_person <- function(rowCount, person_id, gender_concept_id, year_of_birth, month_of_birth, day_of_birth, birth_datetime, race_concept_id, ethnicity_concept_id, location_id, provider_id, care_site_id, person_source_value, gender_source_value, gender_source_concept_id, race_source_value, race_source_concept_id, ethnicity_source_value, ethnicity_source_concept_id) {
fields <- c()
values <- c()
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(month_of_birth)) {
fields <- c(fields, "month_of_birth")
values <- c(values, if (is.null(month_of_birth)) "NULL" else if (is(month_of_birth, "subQuery")) paste0("(", as.character(month_of_birth), ")") else paste0("'", as.character(month_of_birth), "'"))
}
if (!missing(day_of_birth)) {
fields <- c(fields, "day_of_birth")
values <- c(values, if (is.null(day_of_birth)) "NULL" else if (is(day_of_birth, "subQuery")) paste0("(", as.character(day_of_birth), ")") else paste0("'", as.character(day_of_birth), "'"))
}
if (!missing(birth_datetime)) {
fields <- c(fields, "birth_datetime")
values <- c(values, if (is.null(birth_datetime)) "NULL" else if (is(birth_datetime, "subQuery")) paste0("(", as.character(birth_datetime), ")") else paste0("'", as.character(birth_datetime), "'"))
}
if (!missing(race_concept_id)) {
fields <- c(fields, "race_concept_id")
values <- c(values, if (is.null(race_concept_id)) "NULL" else if (is(race_concept_id, "subQuery")) paste0("(", as.character(race_concept_id), ")") else paste0("'", as.character(race_concept_id), "'"))
}
if (!missing(ethnicity_concept_id)) {
fields <- c(fields, "ethnicity_concept_id")
values <- c(values, if (is.null(ethnicity_concept_id)) "NULL" else if (is(ethnicity_concept_id, "subQuery")) paste0("(", as.character(ethnicity_concept_id), ")") else paste0("'", as.character(ethnicity_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(person_source_value)) {
fields <- c(fields, "person_source_value")
values <- c(values, if (is.null(person_source_value)) "NULL" else if (is(person_source_value, "subQuery")) paste0("(", as.character(person_source_value), ")") else paste0("'", as.character(person_source_value), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
if (!missing(race_source_value)) {
fields <- c(fields, "race_source_value")
values <- c(values, if (is.null(race_source_value)) "NULL" else if (is(race_source_value, "subQuery")) paste0("(", as.character(race_source_value), ")") else paste0("'", as.character(race_source_value), "'"))
}
if (!missing(race_source_concept_id)) {
fields <- c(fields, "race_source_concept_id")
values <- c(values, if (is.null(race_source_concept_id)) "NULL" else if (is(race_source_concept_id, "subQuery")) paste0("(", as.character(race_source_concept_id), ")") else paste0("'", as.character(race_source_concept_id), "'"))
}
if (!missing(ethnicity_source_value)) {
fields <- c(fields, "ethnicity_source_value")
values <- c(values, if (is.null(ethnicity_source_value)) "NULL" else if (is(ethnicity_source_value, "subQuery")) paste0("(", as.character(ethnicity_source_value), ")") else paste0("'", as.character(ethnicity_source_value), "'"))
}
if (!missing(ethnicity_source_concept_id)) {
fields <- c(fields, "ethnicity_source_concept_id")
values <- c(values, if (is.null(ethnicity_source_concept_id)) "NULL" else if (is(ethnicity_source_concept_id, "subQuery")) paste0("(", as.character(ethnicity_source_concept_id), ")") else paste0("'", as.character(ethnicity_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "person", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_procedure_occurrence <- function(rowCount, procedure_occurrence_id, person_id, procedure_concept_id, procedure_date, procedure_datetime, procedure_type_concept_id, modifier_concept_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, procedure_source_value, procedure_source_concept_id, modifier_source_value) {
fields <- c()
values <- c()
if (!missing(procedure_occurrence_id)) {
fields <- c(fields, "procedure_occurrence_id")
values <- c(values, if (is.null(procedure_occurrence_id)) "NULL" else if (is(procedure_occurrence_id, "subQuery")) paste0("(", as.character(procedure_occurrence_id), ")") else paste0("'", as.character(procedure_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(procedure_concept_id)) {
fields <- c(fields, "procedure_concept_id")
values <- c(values, if (is.null(procedure_concept_id)) "NULL" else if (is(procedure_concept_id, "subQuery")) paste0("(", as.character(procedure_concept_id), ")") else paste0("'", as.character(procedure_concept_id), "'"))
}
if (!missing(procedure_date)) {
fields <- c(fields, "procedure_date")
values <- c(values, if (is.null(procedure_date)) "NULL" else if (is(procedure_date, "subQuery")) paste0("(", as.character(procedure_date), ")") else paste0("'", as.character(procedure_date), "'"))
}
if (!missing(procedure_datetime)) {
fields <- c(fields, "procedure_datetime")
values <- c(values, if (is.null(procedure_datetime)) "NULL" else if (is(procedure_datetime, "subQuery")) paste0("(", as.character(procedure_datetime), ")") else paste0("'", as.character(procedure_datetime), "'"))
}
if (!missing(procedure_type_concept_id)) {
fields <- c(fields, "procedure_type_concept_id")
values <- c(values, if (is.null(procedure_type_concept_id)) "NULL" else if (is(procedure_type_concept_id, "subQuery")) paste0("(", as.character(procedure_type_concept_id), ")") else paste0("'", as.character(procedure_type_concept_id), "'"))
}
if (!missing(modifier_concept_id)) {
fields <- c(fields, "modifier_concept_id")
values <- c(values, if (is.null(modifier_concept_id)) "NULL" else if (is(modifier_concept_id, "subQuery")) paste0("(", as.character(modifier_concept_id), ")") else paste0("'", as.character(modifier_concept_id), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(procedure_source_value)) {
fields <- c(fields, "procedure_source_value")
values <- c(values, if (is.null(procedure_source_value)) "NULL" else if (is(procedure_source_value, "subQuery")) paste0("(", as.character(procedure_source_value), ")") else paste0("'", as.character(procedure_source_value), "'"))
}
if (!missing(procedure_source_concept_id)) {
fields <- c(fields, "procedure_source_concept_id")
values <- c(values, if (is.null(procedure_source_concept_id)) "NULL" else if (is(procedure_source_concept_id, "subQuery")) paste0("(", as.character(procedure_source_concept_id), ")") else paste0("'", as.character(procedure_source_concept_id), "'"))
}
if (!missing(modifier_source_value)) {
fields <- c(fields, "modifier_source_value")
values <- c(values, if (is.null(modifier_source_value)) "NULL" else if (is(modifier_source_value, "subQuery")) paste0("(", as.character(modifier_source_value), ")") else paste0("'", as.character(modifier_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "procedure_occurrence", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_specimen <- function(rowCount, specimen_id, person_id, specimen_concept_id, specimen_type_concept_id, specimen_date, specimen_datetime, quantity, unit_concept_id, anatomic_site_concept_id, disease_status_concept_id, specimen_source_id, specimen_source_value, unit_source_value, anatomic_site_source_value, disease_status_source_value) {
fields <- c()
values <- c()
if (!missing(specimen_id)) {
fields <- c(fields, "specimen_id")
values <- c(values, if (is.null(specimen_id)) "NULL" else if (is(specimen_id, "subQuery")) paste0("(", as.character(specimen_id), ")") else paste0("'", as.character(specimen_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(specimen_concept_id)) {
fields <- c(fields, "specimen_concept_id")
values <- c(values, if (is.null(specimen_concept_id)) "NULL" else if (is(specimen_concept_id, "subQuery")) paste0("(", as.character(specimen_concept_id), ")") else paste0("'", as.character(specimen_concept_id), "'"))
}
if (!missing(specimen_type_concept_id)) {
fields <- c(fields, "specimen_type_concept_id")
values <- c(values, if (is.null(specimen_type_concept_id)) "NULL" else if (is(specimen_type_concept_id, "subQuery")) paste0("(", as.character(specimen_type_concept_id), ")") else paste0("'", as.character(specimen_type_concept_id), "'"))
}
if (!missing(specimen_date)) {
fields <- c(fields, "specimen_date")
values <- c(values, if (is.null(specimen_date)) "NULL" else if (is(specimen_date, "subQuery")) paste0("(", as.character(specimen_date), ")") else paste0("'", as.character(specimen_date), "'"))
}
if (!missing(specimen_datetime)) {
fields <- c(fields, "specimen_datetime")
values <- c(values, if (is.null(specimen_datetime)) "NULL" else if (is(specimen_datetime, "subQuery")) paste0("(", as.character(specimen_datetime), ")") else paste0("'", as.character(specimen_datetime), "'"))
}
if (!missing(quantity)) {
fields <- c(fields, "quantity")
values <- c(values, if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(anatomic_site_concept_id)) {
fields <- c(fields, "anatomic_site_concept_id")
values <- c(values, if (is.null(anatomic_site_concept_id)) "NULL" else if (is(anatomic_site_concept_id, "subQuery")) paste0("(", as.character(anatomic_site_concept_id), ")") else paste0("'", as.character(anatomic_site_concept_id), "'"))
}
if (!missing(disease_status_concept_id)) {
fields <- c(fields, "disease_status_concept_id")
values <- c(values, if (is.null(disease_status_concept_id)) "NULL" else if (is(disease_status_concept_id, "subQuery")) paste0("(", as.character(disease_status_concept_id), ")") else paste0("'", as.character(disease_status_concept_id), "'"))
}
if (!missing(specimen_source_id)) {
fields <- c(fields, "specimen_source_id")
values <- c(values, if (is.null(specimen_source_id)) "NULL" else if (is(specimen_source_id, "subQuery")) paste0("(", as.character(specimen_source_id), ")") else paste0("'", as.character(specimen_source_id), "'"))
}
if (!missing(specimen_source_value)) {
fields <- c(fields, "specimen_source_value")
values <- c(values, if (is.null(specimen_source_value)) "NULL" else if (is(specimen_source_value, "subQuery")) paste0("(", as.character(specimen_source_value), ")") else paste0("'", as.character(specimen_source_value), "'"))
}
if (!missing(unit_source_value)) {
fields <- c(fields, "unit_source_value")
values <- c(values, if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(anatomic_site_source_value)) {
fields <- c(fields, "anatomic_site_source_value")
values <- c(values, if (is.null(anatomic_site_source_value)) "NULL" else if (is(anatomic_site_source_value, "subQuery")) paste0("(", as.character(anatomic_site_source_value), ")") else paste0("'", as.character(anatomic_site_source_value), "'"))
}
if (!missing(disease_status_source_value)) {
fields <- c(fields, "disease_status_source_value")
values <- c(values, if (is.null(disease_status_source_value)) "NULL" else if (is(disease_status_source_value, "subQuery")) paste0("(", as.character(disease_status_source_value), ")") else paste0("'", as.character(disease_status_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "specimen", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_visit_detail <- function(rowCount, visit_detail_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_value, admitting_source_concept_id, discharge_to_source_value, discharge_to_concept_id, preceding_visit_detail_id, visit_detail_parent_id, visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_detail_id)) {
fields <- c(fields, "visit_detail_id")
values <- c(values, if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(preceding_visit_detail_id)) {
fields <- c(fields, "preceding_visit_detail_id")
values <- c(values, if (is.null(preceding_visit_detail_id)) "NULL" else if (is(preceding_visit_detail_id, "subQuery")) paste0("(", as.character(preceding_visit_detail_id), ")") else paste0("'", as.character(preceding_visit_detail_id), "'"))
}
if (!missing(visit_detail_parent_id)) {
fields <- c(fields, "visit_detail_parent_id")
values <- c(values, if (is.null(visit_detail_parent_id)) "NULL" else if (is(visit_detail_parent_id, "subQuery")) paste0("(", as.character(visit_detail_parent_id), ")") else paste0("'", as.character(visit_detail_parent_id), "'"))
}
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "visit_detail", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_visit_occurrence <- function(rowCount, visit_occurrence_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_concept_id, admitting_source_value, discharge_to_concept_id, discharge_to_source_value, preceding_visit_occurrence_id) {
fields <- c()
values <- c()
if (!missing(visit_occurrence_id)) {
fields <- c(fields, "visit_occurrence_id")
values <- c(values, if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
fields <- c(fields, "visit_concept_id")
values <- c(values, if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
fields <- c(fields, "visit_start_date")
values <- c(values, if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
fields <- c(fields, "visit_start_datetime")
values <- c(values, if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
fields <- c(fields, "visit_end_date")
values <- c(values, if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
fields <- c(fields, "visit_end_datetime")
values <- c(values, if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
fields <- c(fields, "visit_type_concept_id")
values <- c(values, if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
fields <- c(fields, "visit_source_value")
values <- c(values, if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
fields <- c(fields, "visit_source_concept_id")
values <- c(values, if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_concept_id)) {
fields <- c(fields, "admitting_source_concept_id")
values <- c(values, if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
fields <- c(fields, "admitting_source_value")
values <- c(values, if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
fields <- c(fields, "discharge_to_concept_id")
values <- c(values, if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
fields <- c(fields, "discharge_to_source_value")
values <- c(values, if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(preceding_visit_occurrence_id)) {
fields <- c(fields, "preceding_visit_occurrence_id")
values <- c(values, if (is.null(preceding_visit_occurrence_id)) "NULL" else if (is(preceding_visit_occurrence_id, "subQuery")) paste0("(", as.character(preceding_visit_occurrence_id), ")") else paste0("'", as.character(preceding_visit_occurrence_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "visit_occurrence", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_cohort <- function(rowCount, cohort_definition_id, subject_id, cohort_start_date, cohort_end_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "cohort", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_cohort_attribute <- function(rowCount, cohort_definition_id, subject_id, cohort_start_date, cohort_end_date, attribute_definition_id, value_as_number, value_as_concept_id) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
fields <- c(fields, "subject_id")
values <- c(values, if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
fields <- c(fields, "cohort_start_date")
values <- c(values, if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
fields <- c(fields, "cohort_end_date")
values <- c(values, if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(value_as_number)) {
fields <- c(fields, "value_as_number")
values <- c(values, if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "cohort_attribute", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_condition_era <- function(rowCount, condition_era_id, person_id, condition_concept_id, condition_era_start_date, condition_era_end_date, condition_occurrence_count) {
fields <- c()
values <- c()
if (!missing(condition_era_id)) {
fields <- c(fields, "condition_era_id")
values <- c(values, if (is.null(condition_era_id)) "NULL" else if (is(condition_era_id, "subQuery")) paste0("(", as.character(condition_era_id), ")") else paste0("'", as.character(condition_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
fields <- c(fields, "condition_concept_id")
values <- c(values, if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_era_start_date)) {
fields <- c(fields, "condition_era_start_date")
values <- c(values, if (is.null(condition_era_start_date)) "NULL" else if (is(condition_era_start_date, "subQuery")) paste0("(", as.character(condition_era_start_date), ")") else paste0("'", as.character(condition_era_start_date), "'"))
}
if (!missing(condition_era_end_date)) {
fields <- c(fields, "condition_era_end_date")
values <- c(values, if (is.null(condition_era_end_date)) "NULL" else if (is(condition_era_end_date, "subQuery")) paste0("(", as.character(condition_era_end_date), ")") else paste0("'", as.character(condition_era_end_date), "'"))
}
if (!missing(condition_occurrence_count)) {
fields <- c(fields, "condition_occurrence_count")
values <- c(values, if (is.null(condition_occurrence_count)) "NULL" else if (is(condition_occurrence_count, "subQuery")) paste0("(", as.character(condition_occurrence_count), ")") else paste0("'", as.character(condition_occurrence_count), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "condition_era", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_dose_era <- function(rowCount, dose_era_id, person_id, drug_concept_id, unit_concept_id, dose_value, dose_era_start_date, dose_era_end_date) {
fields <- c()
values <- c()
if (!missing(dose_era_id)) {
fields <- c(fields, "dose_era_id")
values <- c(values, if (is.null(dose_era_id)) "NULL" else if (is(dose_era_id, "subQuery")) paste0("(", as.character(dose_era_id), ")") else paste0("'", as.character(dose_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
fields <- c(fields, "unit_concept_id")
values <- c(values, if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(dose_value)) {
fields <- c(fields, "dose_value")
values <- c(values, if (is.null(dose_value)) "NULL" else if (is(dose_value, "subQuery")) paste0("(", as.character(dose_value), ")") else paste0("'", as.character(dose_value), "'"))
}
if (!missing(dose_era_start_date)) {
fields <- c(fields, "dose_era_start_date")
values <- c(values, if (is.null(dose_era_start_date)) "NULL" else if (is(dose_era_start_date, "subQuery")) paste0("(", as.character(dose_era_start_date), ")") else paste0("'", as.character(dose_era_start_date), "'"))
}
if (!missing(dose_era_end_date)) {
fields <- c(fields, "dose_era_end_date")
values <- c(values, if (is.null(dose_era_end_date)) "NULL" else if (is(dose_era_end_date, "subQuery")) paste0("(", as.character(dose_era_end_date), ")") else paste0("'", as.character(dose_era_end_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "dose_era", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_drug_era <- function(rowCount, drug_era_id, person_id, drug_concept_id, drug_era_start_date, drug_era_end_date, drug_exposure_count, gap_days) {
fields <- c()
values <- c()
if (!missing(drug_era_id)) {
fields <- c(fields, "drug_era_id")
values <- c(values, if (is.null(drug_era_id)) "NULL" else if (is(drug_era_id, "subQuery")) paste0("(", as.character(drug_era_id), ")") else paste0("'", as.character(drug_era_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
fields <- c(fields, "drug_concept_id")
values <- c(values, if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_era_start_date)) {
fields <- c(fields, "drug_era_start_date")
values <- c(values, if (is.null(drug_era_start_date)) "NULL" else if (is(drug_era_start_date, "subQuery")) paste0("(", as.character(drug_era_start_date), ")") else paste0("'", as.character(drug_era_start_date), "'"))
}
if (!missing(drug_era_end_date)) {
fields <- c(fields, "drug_era_end_date")
values <- c(values, if (is.null(drug_era_end_date)) "NULL" else if (is(drug_era_end_date, "subQuery")) paste0("(", as.character(drug_era_end_date), ")") else paste0("'", as.character(drug_era_end_date), "'"))
}
if (!missing(drug_exposure_count)) {
fields <- c(fields, "drug_exposure_count")
values <- c(values, if (is.null(drug_exposure_count)) "NULL" else if (is(drug_exposure_count, "subQuery")) paste0("(", as.character(drug_exposure_count), ")") else paste0("'", as.character(drug_exposure_count), "'"))
}
if (!missing(gap_days)) {
fields <- c(fields, "gap_days")
values <- c(values, if (is.null(gap_days)) "NULL" else if (is(gap_days, "subQuery")) paste0("(", as.character(gap_days), ")") else paste0("'", as.character(gap_days), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "drug_era", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_cost <- function(rowCount, cost_id, cost_event_id, cost_domain_id, cost_type_concept_id, currency_concept_id, total_charge, total_cost, total_paid, paid_by_payer, paid_by_patient, paid_patient_copay, paid_patient_coinsurance, paid_patient_deductible, paid_by_primary, paid_ingredient_cost, paid_dispensing_fee, payer_plan_period_id, amount_allowed, revenue_code_concept_id, revenue_code_source_value, drg_concept_id, drg_source_value) {
fields <- c()
values <- c()
if (!missing(cost_id)) {
fields <- c(fields, "cost_id")
values <- c(values, if (is.null(cost_id)) "NULL" else if (is(cost_id, "subQuery")) paste0("(", as.character(cost_id), ")") else paste0("'", as.character(cost_id), "'"))
}
if (!missing(cost_event_id)) {
fields <- c(fields, "cost_event_id")
values <- c(values, if (is.null(cost_event_id)) "NULL" else if (is(cost_event_id, "subQuery")) paste0("(", as.character(cost_event_id), ")") else paste0("'", as.character(cost_event_id), "'"))
}
if (!missing(cost_domain_id)) {
fields <- c(fields, "cost_domain_id")
values <- c(values, if (is.null(cost_domain_id)) "NULL" else if (is(cost_domain_id, "subQuery")) paste0("(", as.character(cost_domain_id), ")") else paste0("'", as.character(cost_domain_id), "'"))
}
if (!missing(cost_type_concept_id)) {
fields <- c(fields, "cost_type_concept_id")
values <- c(values, if (is.null(cost_type_concept_id)) "NULL" else if (is(cost_type_concept_id, "subQuery")) paste0("(", as.character(cost_type_concept_id), ")") else paste0("'", as.character(cost_type_concept_id), "'"))
}
if (!missing(currency_concept_id)) {
fields <- c(fields, "currency_concept_id")
values <- c(values, if (is.null(currency_concept_id)) "NULL" else if (is(currency_concept_id, "subQuery")) paste0("(", as.character(currency_concept_id), ")") else paste0("'", as.character(currency_concept_id), "'"))
}
if (!missing(total_charge)) {
fields <- c(fields, "total_charge")
values <- c(values, if (is.null(total_charge)) "NULL" else if (is(total_charge, "subQuery")) paste0("(", as.character(total_charge), ")") else paste0("'", as.character(total_charge), "'"))
}
if (!missing(total_cost)) {
fields <- c(fields, "total_cost")
values <- c(values, if (is.null(total_cost)) "NULL" else if (is(total_cost, "subQuery")) paste0("(", as.character(total_cost), ")") else paste0("'", as.character(total_cost), "'"))
}
if (!missing(total_paid)) {
fields <- c(fields, "total_paid")
values <- c(values, if (is.null(total_paid)) "NULL" else if (is(total_paid, "subQuery")) paste0("(", as.character(total_paid), ")") else paste0("'", as.character(total_paid), "'"))
}
if (!missing(paid_by_payer)) {
fields <- c(fields, "paid_by_payer")
values <- c(values, if (is.null(paid_by_payer)) "NULL" else if (is(paid_by_payer, "subQuery")) paste0("(", as.character(paid_by_payer), ")") else paste0("'", as.character(paid_by_payer), "'"))
}
if (!missing(paid_by_patient)) {
fields <- c(fields, "paid_by_patient")
values <- c(values, if (is.null(paid_by_patient)) "NULL" else if (is(paid_by_patient, "subQuery")) paste0("(", as.character(paid_by_patient), ")") else paste0("'", as.character(paid_by_patient), "'"))
}
if (!missing(paid_patient_copay)) {
fields <- c(fields, "paid_patient_copay")
values <- c(values, if (is.null(paid_patient_copay)) "NULL" else if (is(paid_patient_copay, "subQuery")) paste0("(", as.character(paid_patient_copay), ")") else paste0("'", as.character(paid_patient_copay), "'"))
}
if (!missing(paid_patient_coinsurance)) {
fields <- c(fields, "paid_patient_coinsurance")
values <- c(values, if (is.null(paid_patient_coinsurance)) "NULL" else if (is(paid_patient_coinsurance, "subQuery")) paste0("(", as.character(paid_patient_coinsurance), ")") else paste0("'", as.character(paid_patient_coinsurance), "'"))
}
if (!missing(paid_patient_deductible)) {
fields <- c(fields, "paid_patient_deductible")
values <- c(values, if (is.null(paid_patient_deductible)) "NULL" else if (is(paid_patient_deductible, "subQuery")) paste0("(", as.character(paid_patient_deductible), ")") else paste0("'", as.character(paid_patient_deductible), "'"))
}
if (!missing(paid_by_primary)) {
fields <- c(fields, "paid_by_primary")
values <- c(values, if (is.null(paid_by_primary)) "NULL" else if (is(paid_by_primary, "subQuery")) paste0("(", as.character(paid_by_primary), ")") else paste0("'", as.character(paid_by_primary), "'"))
}
if (!missing(paid_ingredient_cost)) {
fields <- c(fields, "paid_ingredient_cost")
values <- c(values, if (is.null(paid_ingredient_cost)) "NULL" else if (is(paid_ingredient_cost, "subQuery")) paste0("(", as.character(paid_ingredient_cost), ")") else paste0("'", as.character(paid_ingredient_cost), "'"))
}
if (!missing(paid_dispensing_fee)) {
fields <- c(fields, "paid_dispensing_fee")
values <- c(values, if (is.null(paid_dispensing_fee)) "NULL" else if (is(paid_dispensing_fee, "subQuery")) paste0("(", as.character(paid_dispensing_fee), ")") else paste0("'", as.character(paid_dispensing_fee), "'"))
}
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(amount_allowed)) {
fields <- c(fields, "amount_allowed")
values <- c(values, if (is.null(amount_allowed)) "NULL" else if (is(amount_allowed, "subQuery")) paste0("(", as.character(amount_allowed), ")") else paste0("'", as.character(amount_allowed), "'"))
}
if (!missing(revenue_code_concept_id)) {
fields <- c(fields, "revenue_code_concept_id")
values <- c(values, if (is.null(revenue_code_concept_id)) "NULL" else if (is(revenue_code_concept_id, "subQuery")) paste0("(", as.character(revenue_code_concept_id), ")") else paste0("'", as.character(revenue_code_concept_id), "'"))
}
if (!missing(revenue_code_source_value)) {
fields <- c(fields, "revenue_code_source_value")
values <- c(values, if (is.null(revenue_code_source_value)) "NULL" else if (is(revenue_code_source_value, "subQuery")) paste0("(", as.character(revenue_code_source_value), ")") else paste0("'", as.character(revenue_code_source_value), "'"))
}
if (!missing(drg_concept_id)) {
fields <- c(fields, "drg_concept_id")
values <- c(values, if (is.null(drg_concept_id)) "NULL" else if (is(drg_concept_id, "subQuery")) paste0("(", as.character(drg_concept_id), ")") else paste0("'", as.character(drg_concept_id), "'"))
}
if (!missing(drg_source_value)) {
fields <- c(fields, "drg_source_value")
values <- c(values, if (is.null(drg_source_value)) "NULL" else if (is(drg_source_value, "subQuery")) paste0("(", as.character(drg_source_value), ")") else paste0("'", as.character(drg_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "cost", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_payer_plan_period <- function(rowCount, payer_plan_period_id, person_id, payer_plan_period_start_date, payer_plan_period_end_date, payer_concept_id, payer_source_value, payer_source_concept_id, plan_concept_id, plan_source_value, plan_source_concept_id, sponsor_concept_id, sponsor_source_value, sponsor_source_concept_id, family_source_value, stop_reason_concept_id, stop_reason_source_value, stop_reason_source_concept_id) {
fields <- c()
values <- c()
if (!missing(payer_plan_period_id)) {
fields <- c(fields, "payer_plan_period_id")
values <- c(values, if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(person_id)) {
fields <- c(fields, "person_id")
values <- c(values, if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(payer_plan_period_start_date)) {
fields <- c(fields, "payer_plan_period_start_date")
values <- c(values, if (is.null(payer_plan_period_start_date)) "NULL" else if (is(payer_plan_period_start_date, "subQuery")) paste0("(", as.character(payer_plan_period_start_date), ")") else paste0("'", as.character(payer_plan_period_start_date), "'"))
}
if (!missing(payer_plan_period_end_date)) {
fields <- c(fields, "payer_plan_period_end_date")
values <- c(values, if (is.null(payer_plan_period_end_date)) "NULL" else if (is(payer_plan_period_end_date, "subQuery")) paste0("(", as.character(payer_plan_period_end_date), ")") else paste0("'", as.character(payer_plan_period_end_date), "'"))
}
if (!missing(payer_concept_id)) {
fields <- c(fields, "payer_concept_id")
values <- c(values, if (is.null(payer_concept_id)) "NULL" else if (is(payer_concept_id, "subQuery")) paste0("(", as.character(payer_concept_id), ")") else paste0("'", as.character(payer_concept_id), "'"))
}
if (!missing(payer_source_value)) {
fields <- c(fields, "payer_source_value")
values <- c(values, if (is.null(payer_source_value)) "NULL" else if (is(payer_source_value, "subQuery")) paste0("(", as.character(payer_source_value), ")") else paste0("'", as.character(payer_source_value), "'"))
}
if (!missing(payer_source_concept_id)) {
fields <- c(fields, "payer_source_concept_id")
values <- c(values, if (is.null(payer_source_concept_id)) "NULL" else if (is(payer_source_concept_id, "subQuery")) paste0("(", as.character(payer_source_concept_id), ")") else paste0("'", as.character(payer_source_concept_id), "'"))
}
if (!missing(plan_concept_id)) {
fields <- c(fields, "plan_concept_id")
values <- c(values, if (is.null(plan_concept_id)) "NULL" else if (is(plan_concept_id, "subQuery")) paste0("(", as.character(plan_concept_id), ")") else paste0("'", as.character(plan_concept_id), "'"))
}
if (!missing(plan_source_value)) {
fields <- c(fields, "plan_source_value")
values <- c(values, if (is.null(plan_source_value)) "NULL" else if (is(plan_source_value, "subQuery")) paste0("(", as.character(plan_source_value), ")") else paste0("'", as.character(plan_source_value), "'"))
}
if (!missing(plan_source_concept_id)) {
fields <- c(fields, "plan_source_concept_id")
values <- c(values, if (is.null(plan_source_concept_id)) "NULL" else if (is(plan_source_concept_id, "subQuery")) paste0("(", as.character(plan_source_concept_id), ")") else paste0("'", as.character(plan_source_concept_id), "'"))
}
if (!missing(sponsor_concept_id)) {
fields <- c(fields, "sponsor_concept_id")
values <- c(values, if (is.null(sponsor_concept_id)) "NULL" else if (is(sponsor_concept_id, "subQuery")) paste0("(", as.character(sponsor_concept_id), ")") else paste0("'", as.character(sponsor_concept_id), "'"))
}
if (!missing(sponsor_source_value)) {
fields <- c(fields, "sponsor_source_value")
values <- c(values, if (is.null(sponsor_source_value)) "NULL" else if (is(sponsor_source_value, "subQuery")) paste0("(", as.character(sponsor_source_value), ")") else paste0("'", as.character(sponsor_source_value), "'"))
}
if (!missing(sponsor_source_concept_id)) {
fields <- c(fields, "sponsor_source_concept_id")
values <- c(values, if (is.null(sponsor_source_concept_id)) "NULL" else if (is(sponsor_source_concept_id, "subQuery")) paste0("(", as.character(sponsor_source_concept_id), ")") else paste0("'", as.character(sponsor_source_concept_id), "'"))
}
if (!missing(family_source_value)) {
fields <- c(fields, "family_source_value")
values <- c(values, if (is.null(family_source_value)) "NULL" else if (is(family_source_value, "subQuery")) paste0("(", as.character(family_source_value), ")") else paste0("'", as.character(family_source_value), "'"))
}
if (!missing(stop_reason_concept_id)) {
fields <- c(fields, "stop_reason_concept_id")
values <- c(values, if (is.null(stop_reason_concept_id)) "NULL" else if (is(stop_reason_concept_id, "subQuery")) paste0("(", as.character(stop_reason_concept_id), ")") else paste0("'", as.character(stop_reason_concept_id), "'"))
}
if (!missing(stop_reason_source_value)) {
fields <- c(fields, "stop_reason_source_value")
values <- c(values, if (is.null(stop_reason_source_value)) "NULL" else if (is(stop_reason_source_value, "subQuery")) paste0("(", as.character(stop_reason_source_value), ")") else paste0("'", as.character(stop_reason_source_value), "'"))
}
if (!missing(stop_reason_source_concept_id)) {
fields <- c(fields, "stop_reason_source_concept_id")
values <- c(values, if (is.null(stop_reason_source_concept_id)) "NULL" else if (is(stop_reason_source_concept_id, "subQuery")) paste0("(", as.character(stop_reason_source_concept_id), ")") else paste0("'", as.character(stop_reason_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "payer_plan_period", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_care_site <- function(rowCount, care_site_id, care_site_name, place_of_service_concept_id, location_id, care_site_source_value, place_of_service_source_value) {
fields <- c()
values <- c()
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(care_site_name)) {
fields <- c(fields, "care_site_name")
values <- c(values, if (is.null(care_site_name)) "NULL" else if (is(care_site_name, "subQuery")) paste0("(", as.character(care_site_name), ")") else paste0("'", as.character(care_site_name), "'"))
}
if (!missing(place_of_service_concept_id)) {
fields <- c(fields, "place_of_service_concept_id")
values <- c(values, if (is.null(place_of_service_concept_id)) "NULL" else if (is(place_of_service_concept_id, "subQuery")) paste0("(", as.character(place_of_service_concept_id), ")") else paste0("'", as.character(place_of_service_concept_id), "'"))
}
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(care_site_source_value)) {
fields <- c(fields, "care_site_source_value")
values <- c(values, if (is.null(care_site_source_value)) "NULL" else if (is(care_site_source_value, "subQuery")) paste0("(", as.character(care_site_source_value), ")") else paste0("'", as.character(care_site_source_value), "'"))
}
if (!missing(place_of_service_source_value)) {
fields <- c(fields, "place_of_service_source_value")
values <- c(values, if (is.null(place_of_service_source_value)) "NULL" else if (is(place_of_service_source_value, "subQuery")) paste0("(", as.character(place_of_service_source_value), ")") else paste0("'", as.character(place_of_service_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "care_site", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_location <- function(rowCount, location_id, address_1, address_2, city, state, zip, county, location_source_value) {
fields <- c()
values <- c()
if (!missing(location_id)) {
fields <- c(fields, "location_id")
values <- c(values, if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(address_1)) {
fields <- c(fields, "address_1")
values <- c(values, if (is.null(address_1)) "NULL" else if (is(address_1, "subQuery")) paste0("(", as.character(address_1), ")") else paste0("'", as.character(address_1), "'"))
}
if (!missing(address_2)) {
fields <- c(fields, "address_2")
values <- c(values, if (is.null(address_2)) "NULL" else if (is(address_2, "subQuery")) paste0("(", as.character(address_2), ")") else paste0("'", as.character(address_2), "'"))
}
if (!missing(city)) {
fields <- c(fields, "city")
values <- c(values, if (is.null(city)) "NULL" else if (is(city, "subQuery")) paste0("(", as.character(city), ")") else paste0("'", as.character(city), "'"))
}
if (!missing(state)) {
fields <- c(fields, "state")
values <- c(values, if (is.null(state)) "NULL" else if (is(state, "subQuery")) paste0("(", as.character(state), ")") else paste0("'", as.character(state), "'"))
}
if (!missing(zip)) {
fields <- c(fields, "zip")
values <- c(values, if (is.null(zip)) "NULL" else if (is(zip, "subQuery")) paste0("(", as.character(zip), ")") else paste0("'", as.character(zip), "'"))
}
if (!missing(county)) {
fields <- c(fields, "county")
values <- c(values, if (is.null(county)) "NULL" else if (is(county, "subQuery")) paste0("(", as.character(county), ")") else paste0("'", as.character(county), "'"))
}
if (!missing(location_source_value)) {
fields <- c(fields, "location_source_value")
values <- c(values, if (is.null(location_source_value)) "NULL" else if (is(location_source_value, "subQuery")) paste0("(", as.character(location_source_value), ")") else paste0("'", as.character(location_source_value), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "location", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_provider <- function(rowCount, provider_id, provider_name, npi, dea, specialty_concept_id, care_site_id, year_of_birth, gender_concept_id, provider_source_value, specialty_source_value, specialty_source_concept_id, gender_source_value, gender_source_concept_id) {
fields <- c()
values <- c()
if (!missing(provider_id)) {
fields <- c(fields, "provider_id")
values <- c(values, if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(provider_name)) {
fields <- c(fields, "provider_name")
values <- c(values, if (is.null(provider_name)) "NULL" else if (is(provider_name, "subQuery")) paste0("(", as.character(provider_name), ")") else paste0("'", as.character(provider_name), "'"))
}
if (!missing(npi)) {
fields <- c(fields, "npi")
values <- c(values, if (is.null(npi)) "NULL" else if (is(npi, "subQuery")) paste0("(", as.character(npi), ")") else paste0("'", as.character(npi), "'"))
}
if (!missing(dea)) {
fields <- c(fields, "dea")
values <- c(values, if (is.null(dea)) "NULL" else if (is(dea, "subQuery")) paste0("(", as.character(dea), ")") else paste0("'", as.character(dea), "'"))
}
if (!missing(specialty_concept_id)) {
fields <- c(fields, "specialty_concept_id")
values <- c(values, if (is.null(specialty_concept_id)) "NULL" else if (is(specialty_concept_id, "subQuery")) paste0("(", as.character(specialty_concept_id), ")") else paste0("'", as.character(specialty_concept_id), "'"))
}
if (!missing(care_site_id)) {
fields <- c(fields, "care_site_id")
values <- c(values, if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(year_of_birth)) {
fields <- c(fields, "year_of_birth")
values <- c(values, if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(gender_concept_id)) {
fields <- c(fields, "gender_concept_id")
values <- c(values, if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(provider_source_value)) {
fields <- c(fields, "provider_source_value")
values <- c(values, if (is.null(provider_source_value)) "NULL" else if (is(provider_source_value, "subQuery")) paste0("(", as.character(provider_source_value), ")") else paste0("'", as.character(provider_source_value), "'"))
}
if (!missing(specialty_source_value)) {
fields <- c(fields, "specialty_source_value")
values <- c(values, if (is.null(specialty_source_value)) "NULL" else if (is(specialty_source_value, "subQuery")) paste0("(", as.character(specialty_source_value), ")") else paste0("'", as.character(specialty_source_value), "'"))
}
if (!missing(specialty_source_concept_id)) {
fields <- c(fields, "specialty_source_concept_id")
values <- c(values, if (is.null(specialty_source_concept_id)) "NULL" else if (is(specialty_source_concept_id, "subQuery")) paste0("(", as.character(specialty_source_concept_id), ")") else paste0("'", as.character(specialty_source_concept_id), "'"))
}
if (!missing(gender_source_value)) {
fields <- c(fields, "gender_source_value")
values <- c(values, if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
fields <- c(fields, "gender_source_concept_id")
values <- c(values, if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "provider", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_cdm_source <- function(rowCount, cdm_source_name, cdm_source_abbreviation, cdm_holder, source_description, source_documentation_reference, cdm_etl_reference, source_release_date, cdm_release_date, cdm_version, vocabulary_version) {
fields <- c()
values <- c()
if (!missing(cdm_source_name)) {
fields <- c(fields, "cdm_source_name")
values <- c(values, if (is.null(cdm_source_name)) "NULL" else if (is(cdm_source_name, "subQuery")) paste0("(", as.character(cdm_source_name), ")") else paste0("'", as.character(cdm_source_name), "'"))
}
if (!missing(cdm_source_abbreviation)) {
fields <- c(fields, "cdm_source_abbreviation")
values <- c(values, if (is.null(cdm_source_abbreviation)) "NULL" else if (is(cdm_source_abbreviation, "subQuery")) paste0("(", as.character(cdm_source_abbreviation), ")") else paste0("'", as.character(cdm_source_abbreviation), "'"))
}
if (!missing(cdm_holder)) {
fields <- c(fields, "cdm_holder")
values <- c(values, if (is.null(cdm_holder)) "NULL" else if (is(cdm_holder, "subQuery")) paste0("(", as.character(cdm_holder), ")") else paste0("'", as.character(cdm_holder), "'"))
}
if (!missing(source_description)) {
fields <- c(fields, "source_description")
values <- c(values, if (is.null(source_description)) "NULL" else if (is(source_description, "subQuery")) paste0("(", as.character(source_description), ")") else paste0("'", as.character(source_description), "'"))
}
if (!missing(source_documentation_reference)) {
fields <- c(fields, "source_documentation_reference")
values <- c(values, if (is.null(source_documentation_reference)) "NULL" else if (is(source_documentation_reference, "subQuery")) paste0("(", as.character(source_documentation_reference), ")") else paste0("'", as.character(source_documentation_reference), "'"))
}
if (!missing(cdm_etl_reference)) {
fields <- c(fields, "cdm_etl_reference")
values <- c(values, if (is.null(cdm_etl_reference)) "NULL" else if (is(cdm_etl_reference, "subQuery")) paste0("(", as.character(cdm_etl_reference), ")") else paste0("'", as.character(cdm_etl_reference), "'"))
}
if (!missing(source_release_date)) {
fields <- c(fields, "source_release_date")
values <- c(values, if (is.null(source_release_date)) "NULL" else if (is(source_release_date, "subQuery")) paste0("(", as.character(source_release_date), ")") else paste0("'", as.character(source_release_date), "'"))
}
if (!missing(cdm_release_date)) {
fields <- c(fields, "cdm_release_date")
values <- c(values, if (is.null(cdm_release_date)) "NULL" else if (is(cdm_release_date, "subQuery")) paste0("(", as.character(cdm_release_date), ")") else paste0("'", as.character(cdm_release_date), "'"))
}
if (!missing(cdm_version)) {
fields <- c(fields, "cdm_version")
values <- c(values, if (is.null(cdm_version)) "NULL" else if (is(cdm_version, "subQuery")) paste0("(", as.character(cdm_version), ")") else paste0("'", as.character(cdm_version), "'"))
}
if (!missing(vocabulary_version)) {
fields <- c(fields, "vocabulary_version")
values <- c(values, if (is.null(vocabulary_version)) "NULL" else if (is(vocabulary_version, "subQuery")) paste0("(", as.character(vocabulary_version), ")") else paste0("'", as.character(vocabulary_version), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "cdm_source", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_metadata <- function(rowCount, metadata_concept_id, metadata_type_concept_id, name, value_as_string, value_as_concept_id, metadata_date, metadata_datetime) {
fields <- c()
values <- c()
if (!missing(metadata_concept_id)) {
fields <- c(fields, "metadata_concept_id")
values <- c(values, if (is.null(metadata_concept_id)) "NULL" else if (is(metadata_concept_id, "subQuery")) paste0("(", as.character(metadata_concept_id), ")") else paste0("'", as.character(metadata_concept_id), "'"))
}
if (!missing(metadata_type_concept_id)) {
fields <- c(fields, "metadata_type_concept_id")
values <- c(values, if (is.null(metadata_type_concept_id)) "NULL" else if (is(metadata_type_concept_id, "subQuery")) paste0("(", as.character(metadata_type_concept_id), ")") else paste0("'", as.character(metadata_type_concept_id), "'"))
}
if (!missing(name)) {
fields <- c(fields, "name")
values <- c(values, if (is.null(name)) "NULL" else if (is(name, "subQuery")) paste0("(", as.character(name), ")") else paste0("'", as.character(name), "'"))
}
if (!missing(value_as_string)) {
fields <- c(fields, "value_as_string")
values <- c(values, if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
fields <- c(fields, "value_as_concept_id")
values <- c(values, if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(metadata_date)) {
fields <- c(fields, "[metadata date]")
values <- c(values, if (is.null(metadata_date)) "NULL" else if (is(metadata_date, "subQuery")) paste0("(", as.character(metadata_date), ")") else paste0("'", as.character(metadata_date), "'"))
}
if (!missing(metadata_datetime)) {
fields <- c(fields, "metadata_datetime")
values <- c(values, if (is.null(metadata_datetime)) "NULL" else if (is(metadata_datetime, "subQuery")) paste0("(", as.character(metadata_datetime), ")") else paste0("'", as.character(metadata_datetime), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "metadata", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_attribute_definition <- function(rowCount, attribute_definition_id, attribute_name, attribute_description, attribute_type_concept_id, attribute_syntax) {
fields <- c()
values <- c()
if (!missing(attribute_definition_id)) {
fields <- c(fields, "attribute_definition_id")
values <- c(values, if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(attribute_name)) {
fields <- c(fields, "attribute_name")
values <- c(values, if (is.null(attribute_name)) "NULL" else if (is(attribute_name, "subQuery")) paste0("(", as.character(attribute_name), ")") else paste0("'", as.character(attribute_name), "'"))
}
if (!missing(attribute_description)) {
fields <- c(fields, "attribute_description")
values <- c(values, if (is.null(attribute_description)) "NULL" else if (is(attribute_description, "subQuery")) paste0("(", as.character(attribute_description), ")") else paste0("'", as.character(attribute_description), "'"))
}
if (!missing(attribute_type_concept_id)) {
fields <- c(fields, "attribute_type_concept_id")
values <- c(values, if (is.null(attribute_type_concept_id)) "NULL" else if (is(attribute_type_concept_id, "subQuery")) paste0("(", as.character(attribute_type_concept_id), ")") else paste0("'", as.character(attribute_type_concept_id), "'"))
}
if (!missing(attribute_syntax)) {
fields <- c(fields, "attribute_syntax")
values <- c(values, if (is.null(attribute_syntax)) "NULL" else if (is(attribute_syntax, "subQuery")) paste0("(", as.character(attribute_syntax), ")") else paste0("'", as.character(attribute_syntax), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "attribute_definition", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
expect_count_cohort_definition <- function(rowCount, cohort_definition_id, cohort_definition_name, cohort_definition_description, definition_type_concept_id, cohort_definition_syntax, subject_concept_id, cohort_initiation_date) {
fields <- c()
values <- c()
if (!missing(cohort_definition_id)) {
fields <- c(fields, "cohort_definition_id")
values <- c(values, if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(cohort_definition_name)) {
fields <- c(fields, "cohort_definition_name")
values <- c(values, if (is.null(cohort_definition_name)) "NULL" else if (is(cohort_definition_name, "subQuery")) paste0("(", as.character(cohort_definition_name), ")") else paste0("'", as.character(cohort_definition_name), "'"))
}
if (!missing(cohort_definition_description)) {
fields <- c(fields, "cohort_definition_description")
values <- c(values, if (is.null(cohort_definition_description)) "NULL" else if (is(cohort_definition_description, "subQuery")) paste0("(", as.character(cohort_definition_description), ")") else paste0("'", as.character(cohort_definition_description), "'"))
}
if (!missing(definition_type_concept_id)) {
fields <- c(fields, "definition_type_concept_id")
values <- c(values, if (is.null(definition_type_concept_id)) "NULL" else if (is(definition_type_concept_id, "subQuery")) paste0("(", as.character(definition_type_concept_id), ")") else paste0("'", as.character(definition_type_concept_id), "'"))
}
if (!missing(cohort_definition_syntax)) {
fields <- c(fields, "cohort_definition_syntax")
values <- c(values, if (is.null(cohort_definition_syntax)) "NULL" else if (is(cohort_definition_syntax, "subQuery")) paste0("(", as.character(cohort_definition_syntax), ")") else paste0("'", as.character(cohort_definition_syntax), "'"))
}
if (!missing(subject_concept_id)) {
fields <- c(fields, "subject_concept_id")
values <- c(values, if (is.null(subject_concept_id)) "NULL" else if (is(subject_concept_id, "subQuery")) paste0("(", as.character(subject_concept_id), ")") else paste0("'", as.character(subject_concept_id), "'"))
}
if (!missing(cohort_initiation_date)) {
fields <- c(fields, "cohort_initiation_date")
values <- c(values, if (is.null(cohort_initiation_date)) "NULL" else if (is(cohort_initiation_date, "subQuery")) paste0("(", as.character(cohort_initiation_date), ")") else paste0("'", as.character(cohort_initiation_date), "'"))
}
expects <- list(testId = frameworkContext$testId, testDescription = frameworkContext$testDescription, type = 2, table = "cohort_definition", fields = fields, values = values)
expects$rowCount = rowCount
frameworkContext$expects[[length(frameworkContext$expects) + 1]] <- expects
invisible(NULL)
}
lookup_condition_occurrence <- function(fetchField, condition_occurrence_id, person_id, condition_concept_id, condition_start_date, condition_start_datetime, condition_end_date, condition_end_datetime, condition_type_concept_id, stop_reason, provider_id, visit_occurrence_id, visit_detail_id, condition_source_value, condition_source_concept_id, condition_status_source_value, condition_status_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.condition_occurrence WHERE')
first <- TRUE
if (!missing(condition_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_occurrence_id = ", if (is.null(condition_occurrence_id)) "NULL" else if (is(condition_occurrence_id, "subQuery")) paste0("(", as.character(condition_occurrence_id), ")") else paste0("'", as.character(condition_occurrence_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_concept_id = ", if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_start_date = ", if (is.null(condition_start_date)) "NULL" else if (is(condition_start_date, "subQuery")) paste0("(", as.character(condition_start_date), ")") else paste0("'", as.character(condition_start_date), "'"))
}
if (!missing(condition_start_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_start_datetime = ", if (is.null(condition_start_datetime)) "NULL" else if (is(condition_start_datetime, "subQuery")) paste0("(", as.character(condition_start_datetime), ")") else paste0("'", as.character(condition_start_datetime), "'"))
}
if (!missing(condition_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_end_date = ", if (is.null(condition_end_date)) "NULL" else if (is(condition_end_date, "subQuery")) paste0("(", as.character(condition_end_date), ")") else paste0("'", as.character(condition_end_date), "'"))
}
if (!missing(condition_end_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_end_datetime = ", if (is.null(condition_end_datetime)) "NULL" else if (is(condition_end_datetime, "subQuery")) paste0("(", as.character(condition_end_datetime), ")") else paste0("'", as.character(condition_end_datetime), "'"))
}
if (!missing(condition_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_type_concept_id = ", if (is.null(condition_type_concept_id)) "NULL" else if (is(condition_type_concept_id, "subQuery")) paste0("(", as.character(condition_type_concept_id), ")") else paste0("'", as.character(condition_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " stop_reason = ", if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(condition_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_source_value = ", if (is.null(condition_source_value)) "NULL" else if (is(condition_source_value, "subQuery")) paste0("(", as.character(condition_source_value), ")") else paste0("'", as.character(condition_source_value), "'"))
}
if (!missing(condition_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_source_concept_id = ", if (is.null(condition_source_concept_id)) "NULL" else if (is(condition_source_concept_id, "subQuery")) paste0("(", as.character(condition_source_concept_id), ")") else paste0("'", as.character(condition_source_concept_id), "'"))
}
if (!missing(condition_status_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_status_source_value = ", if (is.null(condition_status_source_value)) "NULL" else if (is(condition_status_source_value, "subQuery")) paste0("(", as.character(condition_status_source_value), ")") else paste0("'", as.character(condition_status_source_value), "'"))
}
if (!missing(condition_status_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_status_concept_id = ", if (is.null(condition_status_concept_id)) "NULL" else if (is(condition_status_concept_id, "subQuery")) paste0("(", as.character(condition_status_concept_id), ")") else paste0("'", as.character(condition_status_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_death <- function(fetchField, person_id, death_date, death_datetime, death_type_concept_id, cause_concept_id, cause_source_value, cause_source_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.death WHERE')
first <- TRUE
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(death_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " death_date = ", if (is.null(death_date)) "NULL" else if (is(death_date, "subQuery")) paste0("(", as.character(death_date), ")") else paste0("'", as.character(death_date), "'"))
}
if (!missing(death_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " death_datetime = ", if (is.null(death_datetime)) "NULL" else if (is(death_datetime, "subQuery")) paste0("(", as.character(death_datetime), ")") else paste0("'", as.character(death_datetime), "'"))
}
if (!missing(death_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " death_type_concept_id = ", if (is.null(death_type_concept_id)) "NULL" else if (is(death_type_concept_id, "subQuery")) paste0("(", as.character(death_type_concept_id), ")") else paste0("'", as.character(death_type_concept_id), "'"))
}
if (!missing(cause_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cause_concept_id = ", if (is.null(cause_concept_id)) "NULL" else if (is(cause_concept_id, "subQuery")) paste0("(", as.character(cause_concept_id), ")") else paste0("'", as.character(cause_concept_id), "'"))
}
if (!missing(cause_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cause_source_value = ", if (is.null(cause_source_value)) "NULL" else if (is(cause_source_value, "subQuery")) paste0("(", as.character(cause_source_value), ")") else paste0("'", as.character(cause_source_value), "'"))
}
if (!missing(cause_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cause_source_concept_id = ", if (is.null(cause_source_concept_id)) "NULL" else if (is(cause_source_concept_id, "subQuery")) paste0("(", as.character(cause_source_concept_id), ")") else paste0("'", as.character(cause_source_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_device_exposure <- function(fetchField, device_exposure_id, person_id, device_concept_id, device_exposure_start_date, device_exposure_start_datetime, device_exposure_end_date, device_exposure_end_datetime, device_type_concept_id, unique_device_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, device_source_value, device_source_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.device_exposure WHERE')
first <- TRUE
if (!missing(device_exposure_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_exposure_id = ", if (is.null(device_exposure_id)) "NULL" else if (is(device_exposure_id, "subQuery")) paste0("(", as.character(device_exposure_id), ")") else paste0("'", as.character(device_exposure_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(device_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_concept_id = ", if (is.null(device_concept_id)) "NULL" else if (is(device_concept_id, "subQuery")) paste0("(", as.character(device_concept_id), ")") else paste0("'", as.character(device_concept_id), "'"))
}
if (!missing(device_exposure_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_exposure_start_date = ", if (is.null(device_exposure_start_date)) "NULL" else if (is(device_exposure_start_date, "subQuery")) paste0("(", as.character(device_exposure_start_date), ")") else paste0("'", as.character(device_exposure_start_date), "'"))
}
if (!missing(device_exposure_start_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_exposure_start_datetime = ", if (is.null(device_exposure_start_datetime)) "NULL" else if (is(device_exposure_start_datetime, "subQuery")) paste0("(", as.character(device_exposure_start_datetime), ")") else paste0("'", as.character(device_exposure_start_datetime), "'"))
}
if (!missing(device_exposure_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_exposure_end_date = ", if (is.null(device_exposure_end_date)) "NULL" else if (is(device_exposure_end_date, "subQuery")) paste0("(", as.character(device_exposure_end_date), ")") else paste0("'", as.character(device_exposure_end_date), "'"))
}
if (!missing(device_exposure_end_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_exposure_end_datetime = ", if (is.null(device_exposure_end_datetime)) "NULL" else if (is(device_exposure_end_datetime, "subQuery")) paste0("(", as.character(device_exposure_end_datetime), ")") else paste0("'", as.character(device_exposure_end_datetime), "'"))
}
if (!missing(device_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_type_concept_id = ", if (is.null(device_type_concept_id)) "NULL" else if (is(device_type_concept_id, "subQuery")) paste0("(", as.character(device_type_concept_id), ")") else paste0("'", as.character(device_type_concept_id), "'"))
}
if (!missing(unique_device_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unique_device_id = ", if (is.null(unique_device_id)) "NULL" else if (is(unique_device_id, "subQuery")) paste0("(", as.character(unique_device_id), ")") else paste0("'", as.character(unique_device_id), "'"))
}
if (!missing(quantity)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " quantity = ", if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(device_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_source_value = ", if (is.null(device_source_value)) "NULL" else if (is(device_source_value, "subQuery")) paste0("(", as.character(device_source_value), ")") else paste0("'", as.character(device_source_value), "'"))
}
if (!missing(device_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " device_source_concept_id = ", if (is.null(device_source_concept_id)) "NULL" else if (is(device_source_concept_id, "subQuery")) paste0("(", as.character(device_source_concept_id), ")") else paste0("'", as.character(device_source_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_drug_exposure <- function(fetchField, drug_exposure_id, person_id, drug_concept_id, drug_exposure_start_date, drug_exposure_start_datetime, drug_exposure_end_date, drug_exposure_end_datetime, verbatim_end_date, drug_type_concept_id, stop_reason, refills, quantity, days_supply, sig, route_concept_id, lot_number, provider_id, visit_occurrence_id, visit_detail_id, drug_source_value, drug_source_concept_id, route_source_value, dose_unit_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.drug_exposure WHERE')
first <- TRUE
if (!missing(drug_exposure_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_id = ", if (is.null(drug_exposure_id)) "NULL" else if (is(drug_exposure_id, "subQuery")) paste0("(", as.character(drug_exposure_id), ")") else paste0("'", as.character(drug_exposure_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_concept_id = ", if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_exposure_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_start_date = ", if (is.null(drug_exposure_start_date)) "NULL" else if (is(drug_exposure_start_date, "subQuery")) paste0("(", as.character(drug_exposure_start_date), ")") else paste0("'", as.character(drug_exposure_start_date), "'"))
}
if (!missing(drug_exposure_start_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_start_datetime = ", if (is.null(drug_exposure_start_datetime)) "NULL" else if (is(drug_exposure_start_datetime, "subQuery")) paste0("(", as.character(drug_exposure_start_datetime), ")") else paste0("'", as.character(drug_exposure_start_datetime), "'"))
}
if (!missing(drug_exposure_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_end_date = ", if (is.null(drug_exposure_end_date)) "NULL" else if (is(drug_exposure_end_date, "subQuery")) paste0("(", as.character(drug_exposure_end_date), ")") else paste0("'", as.character(drug_exposure_end_date), "'"))
}
if (!missing(drug_exposure_end_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_end_datetime = ", if (is.null(drug_exposure_end_datetime)) "NULL" else if (is(drug_exposure_end_datetime, "subQuery")) paste0("(", as.character(drug_exposure_end_datetime), ")") else paste0("'", as.character(drug_exposure_end_datetime), "'"))
}
if (!missing(verbatim_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " verbatim_end_date = ", if (is.null(verbatim_end_date)) "NULL" else if (is(verbatim_end_date, "subQuery")) paste0("(", as.character(verbatim_end_date), ")") else paste0("'", as.character(verbatim_end_date), "'"))
}
if (!missing(drug_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_type_concept_id = ", if (is.null(drug_type_concept_id)) "NULL" else if (is(drug_type_concept_id, "subQuery")) paste0("(", as.character(drug_type_concept_id), ")") else paste0("'", as.character(drug_type_concept_id), "'"))
}
if (!missing(stop_reason)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " stop_reason = ", if (is.null(stop_reason)) "NULL" else if (is(stop_reason, "subQuery")) paste0("(", as.character(stop_reason), ")") else paste0("'", as.character(stop_reason), "'"))
}
if (!missing(refills)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " refills = ", if (is.null(refills)) "NULL" else if (is(refills, "subQuery")) paste0("(", as.character(refills), ")") else paste0("'", as.character(refills), "'"))
}
if (!missing(quantity)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " quantity = ", if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(days_supply)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " days_supply = ", if (is.null(days_supply)) "NULL" else if (is(days_supply, "subQuery")) paste0("(", as.character(days_supply), ")") else paste0("'", as.character(days_supply), "'"))
}
if (!missing(sig)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " sig = ", if (is.null(sig)) "NULL" else if (is(sig, "subQuery")) paste0("(", as.character(sig), ")") else paste0("'", as.character(sig), "'"))
}
if (!missing(route_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " route_concept_id = ", if (is.null(route_concept_id)) "NULL" else if (is(route_concept_id, "subQuery")) paste0("(", as.character(route_concept_id), ")") else paste0("'", as.character(route_concept_id), "'"))
}
if (!missing(lot_number)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " lot_number = ", if (is.null(lot_number)) "NULL" else if (is(lot_number, "subQuery")) paste0("(", as.character(lot_number), ")") else paste0("'", as.character(lot_number), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(drug_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_source_value = ", if (is.null(drug_source_value)) "NULL" else if (is(drug_source_value, "subQuery")) paste0("(", as.character(drug_source_value), ")") else paste0("'", as.character(drug_source_value), "'"))
}
if (!missing(drug_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_source_concept_id = ", if (is.null(drug_source_concept_id)) "NULL" else if (is(drug_source_concept_id, "subQuery")) paste0("(", as.character(drug_source_concept_id), ")") else paste0("'", as.character(drug_source_concept_id), "'"))
}
if (!missing(route_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " route_source_value = ", if (is.null(route_source_value)) "NULL" else if (is(route_source_value, "subQuery")) paste0("(", as.character(route_source_value), ")") else paste0("'", as.character(route_source_value), "'"))
}
if (!missing(dose_unit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dose_unit_source_value = ", if (is.null(dose_unit_source_value)) "NULL" else if (is(dose_unit_source_value, "subQuery")) paste0("(", as.character(dose_unit_source_value), ")") else paste0("'", as.character(dose_unit_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_fact_relationship <- function(fetchField, domain_concept_id_1, fact_id_1, domain_concept_id_2, fact_id_2, relationship_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.fact_relationship WHERE')
first <- TRUE
if (!missing(domain_concept_id_1)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " domain_concept_id_1 = ", if (is.null(domain_concept_id_1)) "NULL" else if (is(domain_concept_id_1, "subQuery")) paste0("(", as.character(domain_concept_id_1), ")") else paste0("'", as.character(domain_concept_id_1), "'"))
}
if (!missing(fact_id_1)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " fact_id_1 = ", if (is.null(fact_id_1)) "NULL" else if (is(fact_id_1, "subQuery")) paste0("(", as.character(fact_id_1), ")") else paste0("'", as.character(fact_id_1), "'"))
}
if (!missing(domain_concept_id_2)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " domain_concept_id_2 = ", if (is.null(domain_concept_id_2)) "NULL" else if (is(domain_concept_id_2, "subQuery")) paste0("(", as.character(domain_concept_id_2), ")") else paste0("'", as.character(domain_concept_id_2), "'"))
}
if (!missing(fact_id_2)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " fact_id_2 = ", if (is.null(fact_id_2)) "NULL" else if (is(fact_id_2, "subQuery")) paste0("(", as.character(fact_id_2), ")") else paste0("'", as.character(fact_id_2), "'"))
}
if (!missing(relationship_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " relationship_concept_id = ", if (is.null(relationship_concept_id)) "NULL" else if (is(relationship_concept_id, "subQuery")) paste0("(", as.character(relationship_concept_id), ")") else paste0("'", as.character(relationship_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_measurement <- function(fetchField, measurement_id, person_id, measurement_concept_id, measurement_date, measurement_datetime, measurement_time, measurement_type_concept_id, operator_concept_id, value_as_number, value_as_concept_id, unit_concept_id, range_low, range_high, provider_id, visit_occurrence_id, visit_detail_id, measurement_source_value, measurement_source_concept_id, unit_source_value, value_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.measurement WHERE')
first <- TRUE
if (!missing(measurement_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_id = ", if (is.null(measurement_id)) "NULL" else if (is(measurement_id, "subQuery")) paste0("(", as.character(measurement_id), ")") else paste0("'", as.character(measurement_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(measurement_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_concept_id = ", if (is.null(measurement_concept_id)) "NULL" else if (is(measurement_concept_id, "subQuery")) paste0("(", as.character(measurement_concept_id), ")") else paste0("'", as.character(measurement_concept_id), "'"))
}
if (!missing(measurement_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_date = ", if (is.null(measurement_date)) "NULL" else if (is(measurement_date, "subQuery")) paste0("(", as.character(measurement_date), ")") else paste0("'", as.character(measurement_date), "'"))
}
if (!missing(measurement_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_datetime = ", if (is.null(measurement_datetime)) "NULL" else if (is(measurement_datetime, "subQuery")) paste0("(", as.character(measurement_datetime), ")") else paste0("'", as.character(measurement_datetime), "'"))
}
if (!missing(measurement_time)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_time = ", if (is.null(measurement_time)) "NULL" else if (is(measurement_time, "subQuery")) paste0("(", as.character(measurement_time), ")") else paste0("'", as.character(measurement_time), "'"))
}
if (!missing(measurement_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_type_concept_id = ", if (is.null(measurement_type_concept_id)) "NULL" else if (is(measurement_type_concept_id, "subQuery")) paste0("(", as.character(measurement_type_concept_id), ")") else paste0("'", as.character(measurement_type_concept_id), "'"))
}
if (!missing(operator_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " operator_concept_id = ", if (is.null(operator_concept_id)) "NULL" else if (is(operator_concept_id, "subQuery")) paste0("(", as.character(operator_concept_id), ")") else paste0("'", as.character(operator_concept_id), "'"))
}
if (!missing(value_as_number)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_number = ", if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_concept_id = ", if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_concept_id = ", if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(range_low)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " range_low = ", if (is.null(range_low)) "NULL" else if (is(range_low, "subQuery")) paste0("(", as.character(range_low), ")") else paste0("'", as.character(range_low), "'"))
}
if (!missing(range_high)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " range_high = ", if (is.null(range_high)) "NULL" else if (is(range_high, "subQuery")) paste0("(", as.character(range_high), ")") else paste0("'", as.character(range_high), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(measurement_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_source_value = ", if (is.null(measurement_source_value)) "NULL" else if (is(measurement_source_value, "subQuery")) paste0("(", as.character(measurement_source_value), ")") else paste0("'", as.character(measurement_source_value), "'"))
}
if (!missing(measurement_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " measurement_source_concept_id = ", if (is.null(measurement_source_concept_id)) "NULL" else if (is(measurement_source_concept_id, "subQuery")) paste0("(", as.character(measurement_source_concept_id), ")") else paste0("'", as.character(measurement_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_source_value = ", if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(value_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_source_value = ", if (is.null(value_source_value)) "NULL" else if (is(value_source_value, "subQuery")) paste0("(", as.character(value_source_value), ")") else paste0("'", as.character(value_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_note <- function(fetchField, note_id, person_id, note_date, note_datetime, note_type_concept_id, note_class_concept_id, note_title, note_text, encoding_concept_id, language_concept_id, provider_id, visit_occurrence_id, visit_detail_id, note_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.note WHERE')
first <- TRUE
if (!missing(note_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_id = ", if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(note_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_date = ", if (is.null(note_date)) "NULL" else if (is(note_date, "subQuery")) paste0("(", as.character(note_date), ")") else paste0("'", as.character(note_date), "'"))
}
if (!missing(note_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_datetime = ", if (is.null(note_datetime)) "NULL" else if (is(note_datetime, "subQuery")) paste0("(", as.character(note_datetime), ")") else paste0("'", as.character(note_datetime), "'"))
}
if (!missing(note_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_type_concept_id = ", if (is.null(note_type_concept_id)) "NULL" else if (is(note_type_concept_id, "subQuery")) paste0("(", as.character(note_type_concept_id), ")") else paste0("'", as.character(note_type_concept_id), "'"))
}
if (!missing(note_class_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_class_concept_id = ", if (is.null(note_class_concept_id)) "NULL" else if (is(note_class_concept_id, "subQuery")) paste0("(", as.character(note_class_concept_id), ")") else paste0("'", as.character(note_class_concept_id), "'"))
}
if (!missing(note_title)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_title = ", if (is.null(note_title)) "NULL" else if (is(note_title, "subQuery")) paste0("(", as.character(note_title), ")") else paste0("'", as.character(note_title), "'"))
}
if (!missing(note_text)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_text = ", if (is.null(note_text)) "NULL" else if (is(note_text, "subQuery")) paste0("(", as.character(note_text), ")") else paste0("'", as.character(note_text), "'"))
}
if (!missing(encoding_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " encoding_concept_id = ", if (is.null(encoding_concept_id)) "NULL" else if (is(encoding_concept_id, "subQuery")) paste0("(", as.character(encoding_concept_id), ")") else paste0("'", as.character(encoding_concept_id), "'"))
}
if (!missing(language_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " language_concept_id = ", if (is.null(language_concept_id)) "NULL" else if (is(language_concept_id, "subQuery")) paste0("(", as.character(language_concept_id), ")") else paste0("'", as.character(language_concept_id), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(note_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_source_value = ", if (is.null(note_source_value)) "NULL" else if (is(note_source_value, "subQuery")) paste0("(", as.character(note_source_value), ")") else paste0("'", as.character(note_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_note_nlp <- function(fetchField, note_nlp_id, note_id, section_concept_id, snippet, offset, lexical_variant, note_nlp_concept_id, note_nlp_source_concept_id, nlp_system, nlp_date, nlp_datetime, term_exists, term_temporal, term_modifiers) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.note_nlp WHERE')
first <- TRUE
if (!missing(note_nlp_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_nlp_id = ", if (is.null(note_nlp_id)) "NULL" else if (is(note_nlp_id, "subQuery")) paste0("(", as.character(note_nlp_id), ")") else paste0("'", as.character(note_nlp_id), "'"))
}
if (!missing(note_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_id = ", if (is.null(note_id)) "NULL" else if (is(note_id, "subQuery")) paste0("(", as.character(note_id), ")") else paste0("'", as.character(note_id), "'"))
}
if (!missing(section_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " section_concept_id = ", if (is.null(section_concept_id)) "NULL" else if (is(section_concept_id, "subQuery")) paste0("(", as.character(section_concept_id), ")") else paste0("'", as.character(section_concept_id), "'"))
}
if (!missing(snippet)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " snippet = ", if (is.null(snippet)) "NULL" else if (is(snippet, "subQuery")) paste0("(", as.character(snippet), ")") else paste0("'", as.character(snippet), "'"))
}
if (!missing(offset)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " offset = ", if (is.null(offset)) "NULL" else if (is(offset, "subQuery")) paste0("(", as.character(offset), ")") else paste0("'", as.character(offset), "'"))
}
if (!missing(lexical_variant)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " lexical_variant = ", if (is.null(lexical_variant)) "NULL" else if (is(lexical_variant, "subQuery")) paste0("(", as.character(lexical_variant), ")") else paste0("'", as.character(lexical_variant), "'"))
}
if (!missing(note_nlp_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_nlp_concept_id = ", if (is.null(note_nlp_concept_id)) "NULL" else if (is(note_nlp_concept_id, "subQuery")) paste0("(", as.character(note_nlp_concept_id), ")") else paste0("'", as.character(note_nlp_concept_id), "'"))
}
if (!missing(note_nlp_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " note_nlp_source_concept_id = ", if (is.null(note_nlp_source_concept_id)) "NULL" else if (is(note_nlp_source_concept_id, "subQuery")) paste0("(", as.character(note_nlp_source_concept_id), ")") else paste0("'", as.character(note_nlp_source_concept_id), "'"))
}
if (!missing(nlp_system)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " nlp_system = ", if (is.null(nlp_system)) "NULL" else if (is(nlp_system, "subQuery")) paste0("(", as.character(nlp_system), ")") else paste0("'", as.character(nlp_system), "'"))
}
if (!missing(nlp_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " nlp_date = ", if (is.null(nlp_date)) "NULL" else if (is(nlp_date, "subQuery")) paste0("(", as.character(nlp_date), ")") else paste0("'", as.character(nlp_date), "'"))
}
if (!missing(nlp_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " nlp_datetime = ", if (is.null(nlp_datetime)) "NULL" else if (is(nlp_datetime, "subQuery")) paste0("(", as.character(nlp_datetime), ")") else paste0("'", as.character(nlp_datetime), "'"))
}
if (!missing(term_exists)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " term_exists = ", if (is.null(term_exists)) "NULL" else if (is(term_exists, "subQuery")) paste0("(", as.character(term_exists), ")") else paste0("'", as.character(term_exists), "'"))
}
if (!missing(term_temporal)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " term_temporal = ", if (is.null(term_temporal)) "NULL" else if (is(term_temporal, "subQuery")) paste0("(", as.character(term_temporal), ")") else paste0("'", as.character(term_temporal), "'"))
}
if (!missing(term_modifiers)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " term_modifiers = ", if (is.null(term_modifiers)) "NULL" else if (is(term_modifiers, "subQuery")) paste0("(", as.character(term_modifiers), ")") else paste0("'", as.character(term_modifiers), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_observation <- function(fetchField, observation_id, person_id, observation_concept_id, observation_date, observation_datetime, observation_type_concept_id, value_as_number, value_as_string, value_as_concept_id, qualifier_concept_id, unit_concept_id, provider_id, visit_occurrence_id, visit_detail_id, observation_source_value, observation_source_concept_id, unit_source_value, qualifier_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.observation WHERE')
first <- TRUE
if (!missing(observation_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_id = ", if (is.null(observation_id)) "NULL" else if (is(observation_id, "subQuery")) paste0("(", as.character(observation_id), ")") else paste0("'", as.character(observation_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_concept_id = ", if (is.null(observation_concept_id)) "NULL" else if (is(observation_concept_id, "subQuery")) paste0("(", as.character(observation_concept_id), ")") else paste0("'", as.character(observation_concept_id), "'"))
}
if (!missing(observation_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_date = ", if (is.null(observation_date)) "NULL" else if (is(observation_date, "subQuery")) paste0("(", as.character(observation_date), ")") else paste0("'", as.character(observation_date), "'"))
}
if (!missing(observation_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_datetime = ", if (is.null(observation_datetime)) "NULL" else if (is(observation_datetime, "subQuery")) paste0("(", as.character(observation_datetime), ")") else paste0("'", as.character(observation_datetime), "'"))
}
if (!missing(observation_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_type_concept_id = ", if (is.null(observation_type_concept_id)) "NULL" else if (is(observation_type_concept_id, "subQuery")) paste0("(", as.character(observation_type_concept_id), ")") else paste0("'", as.character(observation_type_concept_id), "'"))
}
if (!missing(value_as_number)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_number = ", if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_string)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_string = ", if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_concept_id = ", if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(qualifier_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " qualifier_concept_id = ", if (is.null(qualifier_concept_id)) "NULL" else if (is(qualifier_concept_id, "subQuery")) paste0("(", as.character(qualifier_concept_id), ")") else paste0("'", as.character(qualifier_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_concept_id = ", if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(observation_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_source_value = ", if (is.null(observation_source_value)) "NULL" else if (is(observation_source_value, "subQuery")) paste0("(", as.character(observation_source_value), ")") else paste0("'", as.character(observation_source_value), "'"))
}
if (!missing(observation_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_source_concept_id = ", if (is.null(observation_source_concept_id)) "NULL" else if (is(observation_source_concept_id, "subQuery")) paste0("(", as.character(observation_source_concept_id), ")") else paste0("'", as.character(observation_source_concept_id), "'"))
}
if (!missing(unit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_source_value = ", if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(qualifier_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " qualifier_source_value = ", if (is.null(qualifier_source_value)) "NULL" else if (is(qualifier_source_value, "subQuery")) paste0("(", as.character(qualifier_source_value), ")") else paste0("'", as.character(qualifier_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_observation_period <- function(fetchField, observation_period_id, person_id, observation_period_start_date, observation_period_end_date, period_type_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.observation_period WHERE')
first <- TRUE
if (!missing(observation_period_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_period_id = ", if (is.null(observation_period_id)) "NULL" else if (is(observation_period_id, "subQuery")) paste0("(", as.character(observation_period_id), ")") else paste0("'", as.character(observation_period_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(observation_period_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_period_start_date = ", if (is.null(observation_period_start_date)) "NULL" else if (is(observation_period_start_date, "subQuery")) paste0("(", as.character(observation_period_start_date), ")") else paste0("'", as.character(observation_period_start_date), "'"))
}
if (!missing(observation_period_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " observation_period_end_date = ", if (is.null(observation_period_end_date)) "NULL" else if (is(observation_period_end_date, "subQuery")) paste0("(", as.character(observation_period_end_date), ")") else paste0("'", as.character(observation_period_end_date), "'"))
}
if (!missing(period_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " period_type_concept_id = ", if (is.null(period_type_concept_id)) "NULL" else if (is(period_type_concept_id, "subQuery")) paste0("(", as.character(period_type_concept_id), ")") else paste0("'", as.character(period_type_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_person <- function(fetchField, person_id, gender_concept_id, year_of_birth, month_of_birth, day_of_birth, birth_datetime, race_concept_id, ethnicity_concept_id, location_id, provider_id, care_site_id, person_source_value, gender_source_value, gender_source_concept_id, race_source_value, race_source_concept_id, ethnicity_source_value, ethnicity_source_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.person WHERE')
first <- TRUE
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(gender_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_concept_id = ", if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(year_of_birth)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " year_of_birth = ", if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(month_of_birth)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " month_of_birth = ", if (is.null(month_of_birth)) "NULL" else if (is(month_of_birth, "subQuery")) paste0("(", as.character(month_of_birth), ")") else paste0("'", as.character(month_of_birth), "'"))
}
if (!missing(day_of_birth)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " day_of_birth = ", if (is.null(day_of_birth)) "NULL" else if (is(day_of_birth, "subQuery")) paste0("(", as.character(day_of_birth), ")") else paste0("'", as.character(day_of_birth), "'"))
}
if (!missing(birth_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " birth_datetime = ", if (is.null(birth_datetime)) "NULL" else if (is(birth_datetime, "subQuery")) paste0("(", as.character(birth_datetime), ")") else paste0("'", as.character(birth_datetime), "'"))
}
if (!missing(race_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " race_concept_id = ", if (is.null(race_concept_id)) "NULL" else if (is(race_concept_id, "subQuery")) paste0("(", as.character(race_concept_id), ")") else paste0("'", as.character(race_concept_id), "'"))
}
if (!missing(ethnicity_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " ethnicity_concept_id = ", if (is.null(ethnicity_concept_id)) "NULL" else if (is(ethnicity_concept_id, "subQuery")) paste0("(", as.character(ethnicity_concept_id), ")") else paste0("'", as.character(ethnicity_concept_id), "'"))
}
if (!missing(location_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " location_id = ", if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_id = ", if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(person_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_source_value = ", if (is.null(person_source_value)) "NULL" else if (is(person_source_value, "subQuery")) paste0("(", as.character(person_source_value), ")") else paste0("'", as.character(person_source_value), "'"))
}
if (!missing(gender_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_source_value = ", if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_source_concept_id = ", if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
if (!missing(race_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " race_source_value = ", if (is.null(race_source_value)) "NULL" else if (is(race_source_value, "subQuery")) paste0("(", as.character(race_source_value), ")") else paste0("'", as.character(race_source_value), "'"))
}
if (!missing(race_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " race_source_concept_id = ", if (is.null(race_source_concept_id)) "NULL" else if (is(race_source_concept_id, "subQuery")) paste0("(", as.character(race_source_concept_id), ")") else paste0("'", as.character(race_source_concept_id), "'"))
}
if (!missing(ethnicity_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " ethnicity_source_value = ", if (is.null(ethnicity_source_value)) "NULL" else if (is(ethnicity_source_value, "subQuery")) paste0("(", as.character(ethnicity_source_value), ")") else paste0("'", as.character(ethnicity_source_value), "'"))
}
if (!missing(ethnicity_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " ethnicity_source_concept_id = ", if (is.null(ethnicity_source_concept_id)) "NULL" else if (is(ethnicity_source_concept_id, "subQuery")) paste0("(", as.character(ethnicity_source_concept_id), ")") else paste0("'", as.character(ethnicity_source_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_procedure_occurrence <- function(fetchField, procedure_occurrence_id, person_id, procedure_concept_id, procedure_date, procedure_datetime, procedure_type_concept_id, modifier_concept_id, quantity, provider_id, visit_occurrence_id, visit_detail_id, procedure_source_value, procedure_source_concept_id, modifier_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.procedure_occurrence WHERE')
first <- TRUE
if (!missing(procedure_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_occurrence_id = ", if (is.null(procedure_occurrence_id)) "NULL" else if (is(procedure_occurrence_id, "subQuery")) paste0("(", as.character(procedure_occurrence_id), ")") else paste0("'", as.character(procedure_occurrence_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(procedure_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_concept_id = ", if (is.null(procedure_concept_id)) "NULL" else if (is(procedure_concept_id, "subQuery")) paste0("(", as.character(procedure_concept_id), ")") else paste0("'", as.character(procedure_concept_id), "'"))
}
if (!missing(procedure_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_date = ", if (is.null(procedure_date)) "NULL" else if (is(procedure_date, "subQuery")) paste0("(", as.character(procedure_date), ")") else paste0("'", as.character(procedure_date), "'"))
}
if (!missing(procedure_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_datetime = ", if (is.null(procedure_datetime)) "NULL" else if (is(procedure_datetime, "subQuery")) paste0("(", as.character(procedure_datetime), ")") else paste0("'", as.character(procedure_datetime), "'"))
}
if (!missing(procedure_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_type_concept_id = ", if (is.null(procedure_type_concept_id)) "NULL" else if (is(procedure_type_concept_id, "subQuery")) paste0("(", as.character(procedure_type_concept_id), ")") else paste0("'", as.character(procedure_type_concept_id), "'"))
}
if (!missing(modifier_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " modifier_concept_id = ", if (is.null(modifier_concept_id)) "NULL" else if (is(modifier_concept_id, "subQuery")) paste0("(", as.character(modifier_concept_id), ")") else paste0("'", as.character(modifier_concept_id), "'"))
}
if (!missing(quantity)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " quantity = ", if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(procedure_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_source_value = ", if (is.null(procedure_source_value)) "NULL" else if (is(procedure_source_value, "subQuery")) paste0("(", as.character(procedure_source_value), ")") else paste0("'", as.character(procedure_source_value), "'"))
}
if (!missing(procedure_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " procedure_source_concept_id = ", if (is.null(procedure_source_concept_id)) "NULL" else if (is(procedure_source_concept_id, "subQuery")) paste0("(", as.character(procedure_source_concept_id), ")") else paste0("'", as.character(procedure_source_concept_id), "'"))
}
if (!missing(modifier_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " modifier_source_value = ", if (is.null(modifier_source_value)) "NULL" else if (is(modifier_source_value, "subQuery")) paste0("(", as.character(modifier_source_value), ")") else paste0("'", as.character(modifier_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_specimen <- function(fetchField, specimen_id, person_id, specimen_concept_id, specimen_type_concept_id, specimen_date, specimen_datetime, quantity, unit_concept_id, anatomic_site_concept_id, disease_status_concept_id, specimen_source_id, specimen_source_value, unit_source_value, anatomic_site_source_value, disease_status_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.specimen WHERE')
first <- TRUE
if (!missing(specimen_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_id = ", if (is.null(specimen_id)) "NULL" else if (is(specimen_id, "subQuery")) paste0("(", as.character(specimen_id), ")") else paste0("'", as.character(specimen_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(specimen_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_concept_id = ", if (is.null(specimen_concept_id)) "NULL" else if (is(specimen_concept_id, "subQuery")) paste0("(", as.character(specimen_concept_id), ")") else paste0("'", as.character(specimen_concept_id), "'"))
}
if (!missing(specimen_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_type_concept_id = ", if (is.null(specimen_type_concept_id)) "NULL" else if (is(specimen_type_concept_id, "subQuery")) paste0("(", as.character(specimen_type_concept_id), ")") else paste0("'", as.character(specimen_type_concept_id), "'"))
}
if (!missing(specimen_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_date = ", if (is.null(specimen_date)) "NULL" else if (is(specimen_date, "subQuery")) paste0("(", as.character(specimen_date), ")") else paste0("'", as.character(specimen_date), "'"))
}
if (!missing(specimen_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_datetime = ", if (is.null(specimen_datetime)) "NULL" else if (is(specimen_datetime, "subQuery")) paste0("(", as.character(specimen_datetime), ")") else paste0("'", as.character(specimen_datetime), "'"))
}
if (!missing(quantity)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " quantity = ", if (is.null(quantity)) "NULL" else if (is(quantity, "subQuery")) paste0("(", as.character(quantity), ")") else paste0("'", as.character(quantity), "'"))
}
if (!missing(unit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_concept_id = ", if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(anatomic_site_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " anatomic_site_concept_id = ", if (is.null(anatomic_site_concept_id)) "NULL" else if (is(anatomic_site_concept_id, "subQuery")) paste0("(", as.character(anatomic_site_concept_id), ")") else paste0("'", as.character(anatomic_site_concept_id), "'"))
}
if (!missing(disease_status_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " disease_status_concept_id = ", if (is.null(disease_status_concept_id)) "NULL" else if (is(disease_status_concept_id, "subQuery")) paste0("(", as.character(disease_status_concept_id), ")") else paste0("'", as.character(disease_status_concept_id), "'"))
}
if (!missing(specimen_source_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_source_id = ", if (is.null(specimen_source_id)) "NULL" else if (is(specimen_source_id, "subQuery")) paste0("(", as.character(specimen_source_id), ")") else paste0("'", as.character(specimen_source_id), "'"))
}
if (!missing(specimen_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specimen_source_value = ", if (is.null(specimen_source_value)) "NULL" else if (is(specimen_source_value, "subQuery")) paste0("(", as.character(specimen_source_value), ")") else paste0("'", as.character(specimen_source_value), "'"))
}
if (!missing(unit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_source_value = ", if (is.null(unit_source_value)) "NULL" else if (is(unit_source_value, "subQuery")) paste0("(", as.character(unit_source_value), ")") else paste0("'", as.character(unit_source_value), "'"))
}
if (!missing(anatomic_site_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " anatomic_site_source_value = ", if (is.null(anatomic_site_source_value)) "NULL" else if (is(anatomic_site_source_value, "subQuery")) paste0("(", as.character(anatomic_site_source_value), ")") else paste0("'", as.character(anatomic_site_source_value), "'"))
}
if (!missing(disease_status_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " disease_status_source_value = ", if (is.null(disease_status_source_value)) "NULL" else if (is(disease_status_source_value, "subQuery")) paste0("(", as.character(disease_status_source_value), ")") else paste0("'", as.character(disease_status_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_visit_detail <- function(fetchField, visit_detail_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_value, admitting_source_concept_id, discharge_to_source_value, discharge_to_concept_id, preceding_visit_detail_id, visit_detail_parent_id, visit_occurrence_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.visit_detail WHERE')
first <- TRUE
if (!missing(visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_id = ", if (is.null(visit_detail_id)) "NULL" else if (is(visit_detail_id, "subQuery")) paste0("(", as.character(visit_detail_id), ")") else paste0("'", as.character(visit_detail_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_concept_id = ", if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_start_date = ", if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_start_datetime = ", if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_end_date = ", if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_end_datetime = ", if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_type_concept_id = ", if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_id = ", if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_source_value = ", if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_source_concept_id = ", if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " admitting_source_value = ", if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(admitting_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " admitting_source_concept_id = ", if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " discharge_to_source_value = ", if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " discharge_to_concept_id = ", if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(preceding_visit_detail_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " preceding_visit_detail_id = ", if (is.null(preceding_visit_detail_id)) "NULL" else if (is(preceding_visit_detail_id, "subQuery")) paste0("(", as.character(preceding_visit_detail_id), ")") else paste0("'", as.character(preceding_visit_detail_id), "'"))
}
if (!missing(visit_detail_parent_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_detail_parent_id = ", if (is.null(visit_detail_parent_id)) "NULL" else if (is(visit_detail_parent_id, "subQuery")) paste0("(", as.character(visit_detail_parent_id), ")") else paste0("'", as.character(visit_detail_parent_id), "'"))
}
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_visit_occurrence <- function(fetchField, visit_occurrence_id, person_id, visit_concept_id, visit_start_date, visit_start_datetime, visit_end_date, visit_end_datetime, visit_type_concept_id, provider_id, care_site_id, visit_source_value, visit_source_concept_id, admitting_source_concept_id, admitting_source_value, discharge_to_concept_id, discharge_to_source_value, preceding_visit_occurrence_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.visit_occurrence WHERE')
first <- TRUE
if (!missing(visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_occurrence_id = ", if (is.null(visit_occurrence_id)) "NULL" else if (is(visit_occurrence_id, "subQuery")) paste0("(", as.character(visit_occurrence_id), ")") else paste0("'", as.character(visit_occurrence_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(visit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_concept_id = ", if (is.null(visit_concept_id)) "NULL" else if (is(visit_concept_id, "subQuery")) paste0("(", as.character(visit_concept_id), ")") else paste0("'", as.character(visit_concept_id), "'"))
}
if (!missing(visit_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_start_date = ", if (is.null(visit_start_date)) "NULL" else if (is(visit_start_date, "subQuery")) paste0("(", as.character(visit_start_date), ")") else paste0("'", as.character(visit_start_date), "'"))
}
if (!missing(visit_start_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_start_datetime = ", if (is.null(visit_start_datetime)) "NULL" else if (is(visit_start_datetime, "subQuery")) paste0("(", as.character(visit_start_datetime), ")") else paste0("'", as.character(visit_start_datetime), "'"))
}
if (!missing(visit_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_end_date = ", if (is.null(visit_end_date)) "NULL" else if (is(visit_end_date, "subQuery")) paste0("(", as.character(visit_end_date), ")") else paste0("'", as.character(visit_end_date), "'"))
}
if (!missing(visit_end_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_end_datetime = ", if (is.null(visit_end_datetime)) "NULL" else if (is(visit_end_datetime, "subQuery")) paste0("(", as.character(visit_end_datetime), ")") else paste0("'", as.character(visit_end_datetime), "'"))
}
if (!missing(visit_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_type_concept_id = ", if (is.null(visit_type_concept_id)) "NULL" else if (is(visit_type_concept_id, "subQuery")) paste0("(", as.character(visit_type_concept_id), ")") else paste0("'", as.character(visit_type_concept_id), "'"))
}
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(care_site_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_id = ", if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(visit_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_source_value = ", if (is.null(visit_source_value)) "NULL" else if (is(visit_source_value, "subQuery")) paste0("(", as.character(visit_source_value), ")") else paste0("'", as.character(visit_source_value), "'"))
}
if (!missing(visit_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " visit_source_concept_id = ", if (is.null(visit_source_concept_id)) "NULL" else if (is(visit_source_concept_id, "subQuery")) paste0("(", as.character(visit_source_concept_id), ")") else paste0("'", as.character(visit_source_concept_id), "'"))
}
if (!missing(admitting_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " admitting_source_concept_id = ", if (is.null(admitting_source_concept_id)) "NULL" else if (is(admitting_source_concept_id, "subQuery")) paste0("(", as.character(admitting_source_concept_id), ")") else paste0("'", as.character(admitting_source_concept_id), "'"))
}
if (!missing(admitting_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " admitting_source_value = ", if (is.null(admitting_source_value)) "NULL" else if (is(admitting_source_value, "subQuery")) paste0("(", as.character(admitting_source_value), ")") else paste0("'", as.character(admitting_source_value), "'"))
}
if (!missing(discharge_to_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " discharge_to_concept_id = ", if (is.null(discharge_to_concept_id)) "NULL" else if (is(discharge_to_concept_id, "subQuery")) paste0("(", as.character(discharge_to_concept_id), ")") else paste0("'", as.character(discharge_to_concept_id), "'"))
}
if (!missing(discharge_to_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " discharge_to_source_value = ", if (is.null(discharge_to_source_value)) "NULL" else if (is(discharge_to_source_value, "subQuery")) paste0("(", as.character(discharge_to_source_value), ")") else paste0("'", as.character(discharge_to_source_value), "'"))
}
if (!missing(preceding_visit_occurrence_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " preceding_visit_occurrence_id = ", if (is.null(preceding_visit_occurrence_id)) "NULL" else if (is(preceding_visit_occurrence_id, "subQuery")) paste0("(", as.character(preceding_visit_occurrence_id), ")") else paste0("'", as.character(preceding_visit_occurrence_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_cohort <- function(fetchField, cohort_definition_id, subject_id, cohort_start_date, cohort_end_date) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.cohort WHERE')
first <- TRUE
if (!missing(cohort_definition_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_id = ", if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " subject_id = ", if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_start_date = ", if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_end_date = ", if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_cohort_attribute <- function(fetchField, cohort_definition_id, subject_id, cohort_start_date, cohort_end_date, attribute_definition_id, value_as_number, value_as_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.cohort_attribute WHERE')
first <- TRUE
if (!missing(cohort_definition_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_id = ", if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(subject_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " subject_id = ", if (is.null(subject_id)) "NULL" else if (is(subject_id, "subQuery")) paste0("(", as.character(subject_id), ")") else paste0("'", as.character(subject_id), "'"))
}
if (!missing(cohort_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_start_date = ", if (is.null(cohort_start_date)) "NULL" else if (is(cohort_start_date, "subQuery")) paste0("(", as.character(cohort_start_date), ")") else paste0("'", as.character(cohort_start_date), "'"))
}
if (!missing(cohort_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_end_date = ", if (is.null(cohort_end_date)) "NULL" else if (is(cohort_end_date, "subQuery")) paste0("(", as.character(cohort_end_date), ")") else paste0("'", as.character(cohort_end_date), "'"))
}
if (!missing(attribute_definition_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_definition_id = ", if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(value_as_number)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_number = ", if (is.null(value_as_number)) "NULL" else if (is(value_as_number, "subQuery")) paste0("(", as.character(value_as_number), ")") else paste0("'", as.character(value_as_number), "'"))
}
if (!missing(value_as_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_concept_id = ", if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_condition_era <- function(fetchField, condition_era_id, person_id, condition_concept_id, condition_era_start_date, condition_era_end_date, condition_occurrence_count) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.condition_era WHERE')
first <- TRUE
if (!missing(condition_era_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_era_id = ", if (is.null(condition_era_id)) "NULL" else if (is(condition_era_id, "subQuery")) paste0("(", as.character(condition_era_id), ")") else paste0("'", as.character(condition_era_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(condition_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_concept_id = ", if (is.null(condition_concept_id)) "NULL" else if (is(condition_concept_id, "subQuery")) paste0("(", as.character(condition_concept_id), ")") else paste0("'", as.character(condition_concept_id), "'"))
}
if (!missing(condition_era_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_era_start_date = ", if (is.null(condition_era_start_date)) "NULL" else if (is(condition_era_start_date, "subQuery")) paste0("(", as.character(condition_era_start_date), ")") else paste0("'", as.character(condition_era_start_date), "'"))
}
if (!missing(condition_era_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_era_end_date = ", if (is.null(condition_era_end_date)) "NULL" else if (is(condition_era_end_date, "subQuery")) paste0("(", as.character(condition_era_end_date), ")") else paste0("'", as.character(condition_era_end_date), "'"))
}
if (!missing(condition_occurrence_count)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " condition_occurrence_count = ", if (is.null(condition_occurrence_count)) "NULL" else if (is(condition_occurrence_count, "subQuery")) paste0("(", as.character(condition_occurrence_count), ")") else paste0("'", as.character(condition_occurrence_count), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_dose_era <- function(fetchField, dose_era_id, person_id, drug_concept_id, unit_concept_id, dose_value, dose_era_start_date, dose_era_end_date) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.dose_era WHERE')
first <- TRUE
if (!missing(dose_era_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dose_era_id = ", if (is.null(dose_era_id)) "NULL" else if (is(dose_era_id, "subQuery")) paste0("(", as.character(dose_era_id), ")") else paste0("'", as.character(dose_era_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_concept_id = ", if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(unit_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " unit_concept_id = ", if (is.null(unit_concept_id)) "NULL" else if (is(unit_concept_id, "subQuery")) paste0("(", as.character(unit_concept_id), ")") else paste0("'", as.character(unit_concept_id), "'"))
}
if (!missing(dose_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dose_value = ", if (is.null(dose_value)) "NULL" else if (is(dose_value, "subQuery")) paste0("(", as.character(dose_value), ")") else paste0("'", as.character(dose_value), "'"))
}
if (!missing(dose_era_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dose_era_start_date = ", if (is.null(dose_era_start_date)) "NULL" else if (is(dose_era_start_date, "subQuery")) paste0("(", as.character(dose_era_start_date), ")") else paste0("'", as.character(dose_era_start_date), "'"))
}
if (!missing(dose_era_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dose_era_end_date = ", if (is.null(dose_era_end_date)) "NULL" else if (is(dose_era_end_date, "subQuery")) paste0("(", as.character(dose_era_end_date), ")") else paste0("'", as.character(dose_era_end_date), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_drug_era <- function(fetchField, drug_era_id, person_id, drug_concept_id, drug_era_start_date, drug_era_end_date, drug_exposure_count, gap_days) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.drug_era WHERE')
first <- TRUE
if (!missing(drug_era_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_era_id = ", if (is.null(drug_era_id)) "NULL" else if (is(drug_era_id, "subQuery")) paste0("(", as.character(drug_era_id), ")") else paste0("'", as.character(drug_era_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(drug_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_concept_id = ", if (is.null(drug_concept_id)) "NULL" else if (is(drug_concept_id, "subQuery")) paste0("(", as.character(drug_concept_id), ")") else paste0("'", as.character(drug_concept_id), "'"))
}
if (!missing(drug_era_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_era_start_date = ", if (is.null(drug_era_start_date)) "NULL" else if (is(drug_era_start_date, "subQuery")) paste0("(", as.character(drug_era_start_date), ")") else paste0("'", as.character(drug_era_start_date), "'"))
}
if (!missing(drug_era_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_era_end_date = ", if (is.null(drug_era_end_date)) "NULL" else if (is(drug_era_end_date, "subQuery")) paste0("(", as.character(drug_era_end_date), ")") else paste0("'", as.character(drug_era_end_date), "'"))
}
if (!missing(drug_exposure_count)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drug_exposure_count = ", if (is.null(drug_exposure_count)) "NULL" else if (is(drug_exposure_count, "subQuery")) paste0("(", as.character(drug_exposure_count), ")") else paste0("'", as.character(drug_exposure_count), "'"))
}
if (!missing(gap_days)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gap_days = ", if (is.null(gap_days)) "NULL" else if (is(gap_days, "subQuery")) paste0("(", as.character(gap_days), ")") else paste0("'", as.character(gap_days), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_cost <- function(fetchField, cost_id, cost_event_id, cost_domain_id, cost_type_concept_id, currency_concept_id, total_charge, total_cost, total_paid, paid_by_payer, paid_by_patient, paid_patient_copay, paid_patient_coinsurance, paid_patient_deductible, paid_by_primary, paid_ingredient_cost, paid_dispensing_fee, payer_plan_period_id, amount_allowed, revenue_code_concept_id, revenue_code_source_value, drg_concept_id, drg_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.cost WHERE')
first <- TRUE
if (!missing(cost_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cost_id = ", if (is.null(cost_id)) "NULL" else if (is(cost_id, "subQuery")) paste0("(", as.character(cost_id), ")") else paste0("'", as.character(cost_id), "'"))
}
if (!missing(cost_event_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cost_event_id = ", if (is.null(cost_event_id)) "NULL" else if (is(cost_event_id, "subQuery")) paste0("(", as.character(cost_event_id), ")") else paste0("'", as.character(cost_event_id), "'"))
}
if (!missing(cost_domain_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cost_domain_id = ", if (is.null(cost_domain_id)) "NULL" else if (is(cost_domain_id, "subQuery")) paste0("(", as.character(cost_domain_id), ")") else paste0("'", as.character(cost_domain_id), "'"))
}
if (!missing(cost_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cost_type_concept_id = ", if (is.null(cost_type_concept_id)) "NULL" else if (is(cost_type_concept_id, "subQuery")) paste0("(", as.character(cost_type_concept_id), ")") else paste0("'", as.character(cost_type_concept_id), "'"))
}
if (!missing(currency_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " currency_concept_id = ", if (is.null(currency_concept_id)) "NULL" else if (is(currency_concept_id, "subQuery")) paste0("(", as.character(currency_concept_id), ")") else paste0("'", as.character(currency_concept_id), "'"))
}
if (!missing(total_charge)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " total_charge = ", if (is.null(total_charge)) "NULL" else if (is(total_charge, "subQuery")) paste0("(", as.character(total_charge), ")") else paste0("'", as.character(total_charge), "'"))
}
if (!missing(total_cost)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " total_cost = ", if (is.null(total_cost)) "NULL" else if (is(total_cost, "subQuery")) paste0("(", as.character(total_cost), ")") else paste0("'", as.character(total_cost), "'"))
}
if (!missing(total_paid)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " total_paid = ", if (is.null(total_paid)) "NULL" else if (is(total_paid, "subQuery")) paste0("(", as.character(total_paid), ")") else paste0("'", as.character(total_paid), "'"))
}
if (!missing(paid_by_payer)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_by_payer = ", if (is.null(paid_by_payer)) "NULL" else if (is(paid_by_payer, "subQuery")) paste0("(", as.character(paid_by_payer), ")") else paste0("'", as.character(paid_by_payer), "'"))
}
if (!missing(paid_by_patient)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_by_patient = ", if (is.null(paid_by_patient)) "NULL" else if (is(paid_by_patient, "subQuery")) paste0("(", as.character(paid_by_patient), ")") else paste0("'", as.character(paid_by_patient), "'"))
}
if (!missing(paid_patient_copay)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_patient_copay = ", if (is.null(paid_patient_copay)) "NULL" else if (is(paid_patient_copay, "subQuery")) paste0("(", as.character(paid_patient_copay), ")") else paste0("'", as.character(paid_patient_copay), "'"))
}
if (!missing(paid_patient_coinsurance)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_patient_coinsurance = ", if (is.null(paid_patient_coinsurance)) "NULL" else if (is(paid_patient_coinsurance, "subQuery")) paste0("(", as.character(paid_patient_coinsurance), ")") else paste0("'", as.character(paid_patient_coinsurance), "'"))
}
if (!missing(paid_patient_deductible)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_patient_deductible = ", if (is.null(paid_patient_deductible)) "NULL" else if (is(paid_patient_deductible, "subQuery")) paste0("(", as.character(paid_patient_deductible), ")") else paste0("'", as.character(paid_patient_deductible), "'"))
}
if (!missing(paid_by_primary)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_by_primary = ", if (is.null(paid_by_primary)) "NULL" else if (is(paid_by_primary, "subQuery")) paste0("(", as.character(paid_by_primary), ")") else paste0("'", as.character(paid_by_primary), "'"))
}
if (!missing(paid_ingredient_cost)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_ingredient_cost = ", if (is.null(paid_ingredient_cost)) "NULL" else if (is(paid_ingredient_cost, "subQuery")) paste0("(", as.character(paid_ingredient_cost), ")") else paste0("'", as.character(paid_ingredient_cost), "'"))
}
if (!missing(paid_dispensing_fee)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " paid_dispensing_fee = ", if (is.null(paid_dispensing_fee)) "NULL" else if (is(paid_dispensing_fee, "subQuery")) paste0("(", as.character(paid_dispensing_fee), ")") else paste0("'", as.character(paid_dispensing_fee), "'"))
}
if (!missing(payer_plan_period_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_plan_period_id = ", if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(amount_allowed)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " amount_allowed = ", if (is.null(amount_allowed)) "NULL" else if (is(amount_allowed, "subQuery")) paste0("(", as.character(amount_allowed), ")") else paste0("'", as.character(amount_allowed), "'"))
}
if (!missing(revenue_code_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " revenue_code_concept_id = ", if (is.null(revenue_code_concept_id)) "NULL" else if (is(revenue_code_concept_id, "subQuery")) paste0("(", as.character(revenue_code_concept_id), ")") else paste0("'", as.character(revenue_code_concept_id), "'"))
}
if (!missing(revenue_code_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " revenue_code_source_value = ", if (is.null(revenue_code_source_value)) "NULL" else if (is(revenue_code_source_value, "subQuery")) paste0("(", as.character(revenue_code_source_value), ")") else paste0("'", as.character(revenue_code_source_value), "'"))
}
if (!missing(drg_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drg_concept_id = ", if (is.null(drg_concept_id)) "NULL" else if (is(drg_concept_id, "subQuery")) paste0("(", as.character(drg_concept_id), ")") else paste0("'", as.character(drg_concept_id), "'"))
}
if (!missing(drg_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " drg_source_value = ", if (is.null(drg_source_value)) "NULL" else if (is(drg_source_value, "subQuery")) paste0("(", as.character(drg_source_value), ")") else paste0("'", as.character(drg_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_payer_plan_period <- function(fetchField, payer_plan_period_id, person_id, payer_plan_period_start_date, payer_plan_period_end_date, payer_concept_id, payer_source_value, payer_source_concept_id, plan_concept_id, plan_source_value, plan_source_concept_id, sponsor_concept_id, sponsor_source_value, sponsor_source_concept_id, family_source_value, stop_reason_concept_id, stop_reason_source_value, stop_reason_source_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.payer_plan_period WHERE')
first <- TRUE
if (!missing(payer_plan_period_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_plan_period_id = ", if (is.null(payer_plan_period_id)) "NULL" else if (is(payer_plan_period_id, "subQuery")) paste0("(", as.character(payer_plan_period_id), ")") else paste0("'", as.character(payer_plan_period_id), "'"))
}
if (!missing(person_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " person_id = ", if (is.null(person_id)) "NULL" else if (is(person_id, "subQuery")) paste0("(", as.character(person_id), ")") else paste0("'", as.character(person_id), "'"))
}
if (!missing(payer_plan_period_start_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_plan_period_start_date = ", if (is.null(payer_plan_period_start_date)) "NULL" else if (is(payer_plan_period_start_date, "subQuery")) paste0("(", as.character(payer_plan_period_start_date), ")") else paste0("'", as.character(payer_plan_period_start_date), "'"))
}
if (!missing(payer_plan_period_end_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_plan_period_end_date = ", if (is.null(payer_plan_period_end_date)) "NULL" else if (is(payer_plan_period_end_date, "subQuery")) paste0("(", as.character(payer_plan_period_end_date), ")") else paste0("'", as.character(payer_plan_period_end_date), "'"))
}
if (!missing(payer_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_concept_id = ", if (is.null(payer_concept_id)) "NULL" else if (is(payer_concept_id, "subQuery")) paste0("(", as.character(payer_concept_id), ")") else paste0("'", as.character(payer_concept_id), "'"))
}
if (!missing(payer_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_source_value = ", if (is.null(payer_source_value)) "NULL" else if (is(payer_source_value, "subQuery")) paste0("(", as.character(payer_source_value), ")") else paste0("'", as.character(payer_source_value), "'"))
}
if (!missing(payer_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " payer_source_concept_id = ", if (is.null(payer_source_concept_id)) "NULL" else if (is(payer_source_concept_id, "subQuery")) paste0("(", as.character(payer_source_concept_id), ")") else paste0("'", as.character(payer_source_concept_id), "'"))
}
if (!missing(plan_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " plan_concept_id = ", if (is.null(plan_concept_id)) "NULL" else if (is(plan_concept_id, "subQuery")) paste0("(", as.character(plan_concept_id), ")") else paste0("'", as.character(plan_concept_id), "'"))
}
if (!missing(plan_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " plan_source_value = ", if (is.null(plan_source_value)) "NULL" else if (is(plan_source_value, "subQuery")) paste0("(", as.character(plan_source_value), ")") else paste0("'", as.character(plan_source_value), "'"))
}
if (!missing(plan_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " plan_source_concept_id = ", if (is.null(plan_source_concept_id)) "NULL" else if (is(plan_source_concept_id, "subQuery")) paste0("(", as.character(plan_source_concept_id), ")") else paste0("'", as.character(plan_source_concept_id), "'"))
}
if (!missing(sponsor_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " sponsor_concept_id = ", if (is.null(sponsor_concept_id)) "NULL" else if (is(sponsor_concept_id, "subQuery")) paste0("(", as.character(sponsor_concept_id), ")") else paste0("'", as.character(sponsor_concept_id), "'"))
}
if (!missing(sponsor_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " sponsor_source_value = ", if (is.null(sponsor_source_value)) "NULL" else if (is(sponsor_source_value, "subQuery")) paste0("(", as.character(sponsor_source_value), ")") else paste0("'", as.character(sponsor_source_value), "'"))
}
if (!missing(sponsor_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " sponsor_source_concept_id = ", if (is.null(sponsor_source_concept_id)) "NULL" else if (is(sponsor_source_concept_id, "subQuery")) paste0("(", as.character(sponsor_source_concept_id), ")") else paste0("'", as.character(sponsor_source_concept_id), "'"))
}
if (!missing(family_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " family_source_value = ", if (is.null(family_source_value)) "NULL" else if (is(family_source_value, "subQuery")) paste0("(", as.character(family_source_value), ")") else paste0("'", as.character(family_source_value), "'"))
}
if (!missing(stop_reason_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " stop_reason_concept_id = ", if (is.null(stop_reason_concept_id)) "NULL" else if (is(stop_reason_concept_id, "subQuery")) paste0("(", as.character(stop_reason_concept_id), ")") else paste0("'", as.character(stop_reason_concept_id), "'"))
}
if (!missing(stop_reason_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " stop_reason_source_value = ", if (is.null(stop_reason_source_value)) "NULL" else if (is(stop_reason_source_value, "subQuery")) paste0("(", as.character(stop_reason_source_value), ")") else paste0("'", as.character(stop_reason_source_value), "'"))
}
if (!missing(stop_reason_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " stop_reason_source_concept_id = ", if (is.null(stop_reason_source_concept_id)) "NULL" else if (is(stop_reason_source_concept_id, "subQuery")) paste0("(", as.character(stop_reason_source_concept_id), ")") else paste0("'", as.character(stop_reason_source_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_care_site <- function(fetchField, care_site_id, care_site_name, place_of_service_concept_id, location_id, care_site_source_value, place_of_service_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.care_site WHERE')
first <- TRUE
if (!missing(care_site_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_id = ", if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(care_site_name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_name = ", if (is.null(care_site_name)) "NULL" else if (is(care_site_name, "subQuery")) paste0("(", as.character(care_site_name), ")") else paste0("'", as.character(care_site_name), "'"))
}
if (!missing(place_of_service_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " place_of_service_concept_id = ", if (is.null(place_of_service_concept_id)) "NULL" else if (is(place_of_service_concept_id, "subQuery")) paste0("(", as.character(place_of_service_concept_id), ")") else paste0("'", as.character(place_of_service_concept_id), "'"))
}
if (!missing(location_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " location_id = ", if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(care_site_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_source_value = ", if (is.null(care_site_source_value)) "NULL" else if (is(care_site_source_value, "subQuery")) paste0("(", as.character(care_site_source_value), ")") else paste0("'", as.character(care_site_source_value), "'"))
}
if (!missing(place_of_service_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " place_of_service_source_value = ", if (is.null(place_of_service_source_value)) "NULL" else if (is(place_of_service_source_value, "subQuery")) paste0("(", as.character(place_of_service_source_value), ")") else paste0("'", as.character(place_of_service_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_location <- function(fetchField, location_id, address_1, address_2, city, state, zip, county, location_source_value) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.location WHERE')
first <- TRUE
if (!missing(location_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " location_id = ", if (is.null(location_id)) "NULL" else if (is(location_id, "subQuery")) paste0("(", as.character(location_id), ")") else paste0("'", as.character(location_id), "'"))
}
if (!missing(address_1)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " address_1 = ", if (is.null(address_1)) "NULL" else if (is(address_1, "subQuery")) paste0("(", as.character(address_1), ")") else paste0("'", as.character(address_1), "'"))
}
if (!missing(address_2)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " address_2 = ", if (is.null(address_2)) "NULL" else if (is(address_2, "subQuery")) paste0("(", as.character(address_2), ")") else paste0("'", as.character(address_2), "'"))
}
if (!missing(city)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " city = ", if (is.null(city)) "NULL" else if (is(city, "subQuery")) paste0("(", as.character(city), ")") else paste0("'", as.character(city), "'"))
}
if (!missing(state)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " state = ", if (is.null(state)) "NULL" else if (is(state, "subQuery")) paste0("(", as.character(state), ")") else paste0("'", as.character(state), "'"))
}
if (!missing(zip)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " zip = ", if (is.null(zip)) "NULL" else if (is(zip, "subQuery")) paste0("(", as.character(zip), ")") else paste0("'", as.character(zip), "'"))
}
if (!missing(county)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " county = ", if (is.null(county)) "NULL" else if (is(county, "subQuery")) paste0("(", as.character(county), ")") else paste0("'", as.character(county), "'"))
}
if (!missing(location_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " location_source_value = ", if (is.null(location_source_value)) "NULL" else if (is(location_source_value, "subQuery")) paste0("(", as.character(location_source_value), ")") else paste0("'", as.character(location_source_value), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_provider <- function(fetchField, provider_id, provider_name, npi, dea, specialty_concept_id, care_site_id, year_of_birth, gender_concept_id, provider_source_value, specialty_source_value, specialty_source_concept_id, gender_source_value, gender_source_concept_id) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.provider WHERE')
first <- TRUE
if (!missing(provider_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_id = ", if (is.null(provider_id)) "NULL" else if (is(provider_id, "subQuery")) paste0("(", as.character(provider_id), ")") else paste0("'", as.character(provider_id), "'"))
}
if (!missing(provider_name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_name = ", if (is.null(provider_name)) "NULL" else if (is(provider_name, "subQuery")) paste0("(", as.character(provider_name), ")") else paste0("'", as.character(provider_name), "'"))
}
if (!missing(npi)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " npi = ", if (is.null(npi)) "NULL" else if (is(npi, "subQuery")) paste0("(", as.character(npi), ")") else paste0("'", as.character(npi), "'"))
}
if (!missing(dea)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " dea = ", if (is.null(dea)) "NULL" else if (is(dea, "subQuery")) paste0("(", as.character(dea), ")") else paste0("'", as.character(dea), "'"))
}
if (!missing(specialty_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specialty_concept_id = ", if (is.null(specialty_concept_id)) "NULL" else if (is(specialty_concept_id, "subQuery")) paste0("(", as.character(specialty_concept_id), ")") else paste0("'", as.character(specialty_concept_id), "'"))
}
if (!missing(care_site_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " care_site_id = ", if (is.null(care_site_id)) "NULL" else if (is(care_site_id, "subQuery")) paste0("(", as.character(care_site_id), ")") else paste0("'", as.character(care_site_id), "'"))
}
if (!missing(year_of_birth)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " year_of_birth = ", if (is.null(year_of_birth)) "NULL" else if (is(year_of_birth, "subQuery")) paste0("(", as.character(year_of_birth), ")") else paste0("'", as.character(year_of_birth), "'"))
}
if (!missing(gender_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_concept_id = ", if (is.null(gender_concept_id)) "NULL" else if (is(gender_concept_id, "subQuery")) paste0("(", as.character(gender_concept_id), ")") else paste0("'", as.character(gender_concept_id), "'"))
}
if (!missing(provider_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " provider_source_value = ", if (is.null(provider_source_value)) "NULL" else if (is(provider_source_value, "subQuery")) paste0("(", as.character(provider_source_value), ")") else paste0("'", as.character(provider_source_value), "'"))
}
if (!missing(specialty_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specialty_source_value = ", if (is.null(specialty_source_value)) "NULL" else if (is(specialty_source_value, "subQuery")) paste0("(", as.character(specialty_source_value), ")") else paste0("'", as.character(specialty_source_value), "'"))
}
if (!missing(specialty_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " specialty_source_concept_id = ", if (is.null(specialty_source_concept_id)) "NULL" else if (is(specialty_source_concept_id, "subQuery")) paste0("(", as.character(specialty_source_concept_id), ")") else paste0("'", as.character(specialty_source_concept_id), "'"))
}
if (!missing(gender_source_value)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_source_value = ", if (is.null(gender_source_value)) "NULL" else if (is(gender_source_value, "subQuery")) paste0("(", as.character(gender_source_value), ")") else paste0("'", as.character(gender_source_value), "'"))
}
if (!missing(gender_source_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " gender_source_concept_id = ", if (is.null(gender_source_concept_id)) "NULL" else if (is(gender_source_concept_id, "subQuery")) paste0("(", as.character(gender_source_concept_id), ")") else paste0("'", as.character(gender_source_concept_id), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_cdm_source <- function(fetchField, cdm_source_name, cdm_source_abbreviation, cdm_holder, source_description, source_documentation_reference, cdm_etl_reference, source_release_date, cdm_release_date, cdm_version, vocabulary_version) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.cdm_source WHERE')
first <- TRUE
if (!missing(cdm_source_name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_source_name = ", if (is.null(cdm_source_name)) "NULL" else if (is(cdm_source_name, "subQuery")) paste0("(", as.character(cdm_source_name), ")") else paste0("'", as.character(cdm_source_name), "'"))
}
if (!missing(cdm_source_abbreviation)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_source_abbreviation = ", if (is.null(cdm_source_abbreviation)) "NULL" else if (is(cdm_source_abbreviation, "subQuery")) paste0("(", as.character(cdm_source_abbreviation), ")") else paste0("'", as.character(cdm_source_abbreviation), "'"))
}
if (!missing(cdm_holder)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_holder = ", if (is.null(cdm_holder)) "NULL" else if (is(cdm_holder, "subQuery")) paste0("(", as.character(cdm_holder), ")") else paste0("'", as.character(cdm_holder), "'"))
}
if (!missing(source_description)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " source_description = ", if (is.null(source_description)) "NULL" else if (is(source_description, "subQuery")) paste0("(", as.character(source_description), ")") else paste0("'", as.character(source_description), "'"))
}
if (!missing(source_documentation_reference)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " source_documentation_reference = ", if (is.null(source_documentation_reference)) "NULL" else if (is(source_documentation_reference, "subQuery")) paste0("(", as.character(source_documentation_reference), ")") else paste0("'", as.character(source_documentation_reference), "'"))
}
if (!missing(cdm_etl_reference)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_etl_reference = ", if (is.null(cdm_etl_reference)) "NULL" else if (is(cdm_etl_reference, "subQuery")) paste0("(", as.character(cdm_etl_reference), ")") else paste0("'", as.character(cdm_etl_reference), "'"))
}
if (!missing(source_release_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " source_release_date = ", if (is.null(source_release_date)) "NULL" else if (is(source_release_date, "subQuery")) paste0("(", as.character(source_release_date), ")") else paste0("'", as.character(source_release_date), "'"))
}
if (!missing(cdm_release_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_release_date = ", if (is.null(cdm_release_date)) "NULL" else if (is(cdm_release_date, "subQuery")) paste0("(", as.character(cdm_release_date), ")") else paste0("'", as.character(cdm_release_date), "'"))
}
if (!missing(cdm_version)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cdm_version = ", if (is.null(cdm_version)) "NULL" else if (is(cdm_version, "subQuery")) paste0("(", as.character(cdm_version), ")") else paste0("'", as.character(cdm_version), "'"))
}
if (!missing(vocabulary_version)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " vocabulary_version = ", if (is.null(vocabulary_version)) "NULL" else if (is(vocabulary_version, "subQuery")) paste0("(", as.character(vocabulary_version), ")") else paste0("'", as.character(vocabulary_version), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_metadata <- function(fetchField, metadata_concept_id, metadata_type_concept_id, name, value_as_string, value_as_concept_id, metadata_date, metadata_datetime) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.metadata WHERE')
first <- TRUE
if (!missing(metadata_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " metadata_concept_id = ", if (is.null(metadata_concept_id)) "NULL" else if (is(metadata_concept_id, "subQuery")) paste0("(", as.character(metadata_concept_id), ")") else paste0("'", as.character(metadata_concept_id), "'"))
}
if (!missing(metadata_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " metadata_type_concept_id = ", if (is.null(metadata_type_concept_id)) "NULL" else if (is(metadata_type_concept_id, "subQuery")) paste0("(", as.character(metadata_type_concept_id), ")") else paste0("'", as.character(metadata_type_concept_id), "'"))
}
if (!missing(name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " name = ", if (is.null(name)) "NULL" else if (is(name, "subQuery")) paste0("(", as.character(name), ")") else paste0("'", as.character(name), "'"))
}
if (!missing(value_as_string)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_string = ", if (is.null(value_as_string)) "NULL" else if (is(value_as_string, "subQuery")) paste0("(", as.character(value_as_string), ")") else paste0("'", as.character(value_as_string), "'"))
}
if (!missing(value_as_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " value_as_concept_id = ", if (is.null(value_as_concept_id)) "NULL" else if (is(value_as_concept_id, "subQuery")) paste0("(", as.character(value_as_concept_id), ")") else paste0("'", as.character(value_as_concept_id), "'"))
}
if (!missing(metadata_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " [metadata date] = ", if (is.null(metadata_date)) "NULL" else if (is(metadata_date, "subQuery")) paste0("(", as.character(metadata_date), ")") else paste0("'", as.character(metadata_date), "'"))
}
if (!missing(metadata_datetime)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " metadata_datetime = ", if (is.null(metadata_datetime)) "NULL" else if (is(metadata_datetime, "subQuery")) paste0("(", as.character(metadata_datetime), ")") else paste0("'", as.character(metadata_datetime), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_attribute_definition <- function(fetchField, attribute_definition_id, attribute_name, attribute_description, attribute_type_concept_id, attribute_syntax) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.attribute_definition WHERE')
first <- TRUE
if (!missing(attribute_definition_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_definition_id = ", if (is.null(attribute_definition_id)) "NULL" else if (is(attribute_definition_id, "subQuery")) paste0("(", as.character(attribute_definition_id), ")") else paste0("'", as.character(attribute_definition_id), "'"))
}
if (!missing(attribute_name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_name = ", if (is.null(attribute_name)) "NULL" else if (is(attribute_name, "subQuery")) paste0("(", as.character(attribute_name), ")") else paste0("'", as.character(attribute_name), "'"))
}
if (!missing(attribute_description)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_description = ", if (is.null(attribute_description)) "NULL" else if (is(attribute_description, "subQuery")) paste0("(", as.character(attribute_description), ")") else paste0("'", as.character(attribute_description), "'"))
}
if (!missing(attribute_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_type_concept_id = ", if (is.null(attribute_type_concept_id)) "NULL" else if (is(attribute_type_concept_id, "subQuery")) paste0("(", as.character(attribute_type_concept_id), ")") else paste0("'", as.character(attribute_type_concept_id), "'"))
}
if (!missing(attribute_syntax)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " attribute_syntax = ", if (is.null(attribute_syntax)) "NULL" else if (is(attribute_syntax, "subQuery")) paste0("(", as.character(attribute_syntax), ")") else paste0("'", as.character(attribute_syntax), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
lookup_cohort_definition <- function(fetchField, cohort_definition_id, cohort_definition_name, cohort_definition_description, definition_type_concept_id, cohort_definition_syntax, subject_concept_id, cohort_initiation_date) {
statement <- paste0('SELECT ', fetchField , ' FROM @cdm_database_schema.cohort_definition WHERE')
first <- TRUE
if (!missing(cohort_definition_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_id = ", if (is.null(cohort_definition_id)) "NULL" else if (is(cohort_definition_id, "subQuery")) paste0("(", as.character(cohort_definition_id), ")") else paste0("'", as.character(cohort_definition_id), "'"))
}
if (!missing(cohort_definition_name)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_name = ", if (is.null(cohort_definition_name)) "NULL" else if (is(cohort_definition_name, "subQuery")) paste0("(", as.character(cohort_definition_name), ")") else paste0("'", as.character(cohort_definition_name), "'"))
}
if (!missing(cohort_definition_description)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_description = ", if (is.null(cohort_definition_description)) "NULL" else if (is(cohort_definition_description, "subQuery")) paste0("(", as.character(cohort_definition_description), ")") else paste0("'", as.character(cohort_definition_description), "'"))
}
if (!missing(definition_type_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " definition_type_concept_id = ", if (is.null(definition_type_concept_id)) "NULL" else if (is(definition_type_concept_id, "subQuery")) paste0("(", as.character(definition_type_concept_id), ")") else paste0("'", as.character(definition_type_concept_id), "'"))
}
if (!missing(cohort_definition_syntax)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_definition_syntax = ", if (is.null(cohort_definition_syntax)) "NULL" else if (is(cohort_definition_syntax, "subQuery")) paste0("(", as.character(cohort_definition_syntax), ")") else paste0("'", as.character(cohort_definition_syntax), "'"))
}
if (!missing(subject_concept_id)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " subject_concept_id = ", if (is.null(subject_concept_id)) "NULL" else if (is(subject_concept_id, "subQuery")) paste0("(", as.character(subject_concept_id), ")") else paste0("'", as.character(subject_concept_id), "'"))
}
if (!missing(cohort_initiation_date)) {
if (first) {
first <- FALSE
} else {
statement <- paste0(statement, " AND")
}
statement <- paste0(statement, " cohort_initiation_date = ", if (is.null(cohort_initiation_date)) "NULL" else if (is(cohort_initiation_date, "subQuery")) paste0("(", as.character(cohort_initiation_date), ")") else paste0("'", as.character(cohort_initiation_date), "'"))
}
class(statement) <- 'subQuery'
return(statement)
}
generateInsertSql <- function(databaseSchema = NULL) {
insertSql <- c()
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[allergies];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[careplans];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[conditions];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[encounters];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[imaging_studies];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[immunizations];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[medications];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[observations];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[patients];")
insertSql <- c(insertSql, "TRUNCATE TABLE @cdm_database_schema.[procedures];")
createInsertStatement <- function(insert, env) {
s <- c()
if (env$testId != insert$testId) {
s <- c(s, paste0('-- ', insert$testId, ': ', insert$testDescription))
env$testId <- insert$testId
}
s <- c(s, paste0("INSERT INTO @cdm_database_schema.",
insert$table,
"(",
paste(insert$fields, collapse = ", "),
") VALUES (",
paste(insert$values, collapse = ", "),
");"))
return(s)
}
env <- new.env()
env$testId <- -1
insertSql <- c(insertSql, do.call(c, lapply(frameworkContext$inserts, createInsertStatement, env)))
if (is.null(databaseSchema)) {
insertSql <- gsub('@cdm_database_schema.', '', insertSql)
} else {
insertSql <- gsub('@cdm_database_schema', databaseSchema, insertSql)
}
return(insertSql)
}
generateTestSql <- function(databaseSchema = NULL) {
testSql <- c()
testSql <- c(testSql, "IF OBJECT_ID('@cdm_database_schema.test_results', 'U') IS NOT NULL DROP TABLE @cdm_database_schema.test_results;")
testSql <- c(testSql, "CREATE TABLE @cdm_database_schema.test_results (id INT, description VARCHAR(512), test VARCHAR(256), status VARCHAR(5));")
createExpectStatement <- function(expect, env) {
s <- c()
if (env$testId != expect$testId) {
s <- c(s, paste0('-- ', expect$testId, ': ', expect$testDescription))
env$testId <- expect$testId
}
operators <- rep("=", length(expect$fields))
operators[expect$values == "NULL"] <- rep("IS", sum(expect$values == "NULL"))
s <- c(s, paste0("INSERT INTO @cdm_database_schema.test_results SELECT ",
expect$testId,
" AS id, '",
expect$testDescription,
"' AS description, 'Expect ",
expect$table,
"' AS test, CASE WHEN (SELECT COUNT(*) FROM @cdm_database_schema.",
expect$table,
" WHERE ",
paste(paste(expect$fields, operators, expect$values), collapse = " AND "),
") ",
if (expect$type == 0) "= 0" else if (expect$type == 1) "!= 0" else paste("!=", expect$rowCount),
" THEN 'FAIL' ELSE 'PASS' END AS status;"))
return(s)
}
env <- new.env()
env$testId <- -1
testSql <- c(testSql, do.call(c, lapply(frameworkContext$expects, createExpectStatement, env)))
if (is.null(databaseSchema)) {
testSql <- gsub('@cdm_database_schema.', '', testSql)
} else {
testSql <- gsub('@cdm_database_schema', databaseSchema, testSql)
}
return(testSql)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.