Age char does not de-dupe subjects

[katy-sadowski]

ClinicalCharacteristics/R/class.R

Lines 523 to 540 in 62f1405

	setMethod("as_sql", "ageChar", function(x){
	domain <- x@domain
	sql <- glue::glue(
	"-- Make {domain} query
	INSERT INTO {{dataTable}} (cohort_id, subject_id, category_id, time_id, value_id, value)
	SELECT t.cohort_definition_id AS cohort_id, t.subject_id,
	{x@orderId} AS category_id,
	-999 AS time_id,
	-999 AS value_id,
	YEAR(t.cohort_start_date) - d.year_of_birth AS value
	FROM {{targetTable}} t
	JOIN {{cdmDatabaseSchema}}.person d
	ON t.subject_id = d.person_id;"
	)
	return(sql)
	})