Commit 95308090 authored by Ashley Stewart's avatar Ashley Stewart 💃
Browse files

Merge remote-tracking branch 'Upstream/master'

parents 92c5a090 37cbc80a
......@@ -52,7 +52,7 @@ GetXTConsent <- function(con) {
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus %in% c("Consented to XT - all activity", "Consented to XT - all activity - now deceased", "Consented to XT - now withdrawn"))] <- "Yes - In Person/Phone calls"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus %in% c("Consented to XT - MRO", "Consented to XT - MRO - now deceased", "Consented - Waiver"))] <- "Yes - Medical Records Only"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus == "Consented to XT - verbal consent")] <- "Verbal consent"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus=="Consented - Waiver")] <- "Deceased - Waiver"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus=="Deceased - Waiver")] <- "Deceased - Waiver"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus == "Excluded - Withdrawn in ASPREE")] <- "Withdrawn Altogether"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus %in% c("Excluded - Deceased in ASPREE", "Deceased in XT - not consented", "Excluded - Historical MRO - deceased"))] <- "Deceased"
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus == "Excluded - Historical MRO - still living")] <- "Excluded Historical MRO Non responder"
......@@ -60,7 +60,7 @@ GetXTConsent <- function(con) {
XTStatus$XTOverallStatus_Short[which(XTStatus$XTOverallStatus %in% c("Declined XT - still living", "Declined XT - now deceased"))] <- "Refused"
XTStatus$XTOverall <- ""
XTStatus$XTOverall[which(XTStatus$XTOverallStatus %in% c("Consented to XT - all activity", "Consented to XT - all activity - now deceased", "Consented to XT - MRO", "Consented to XT - MRO - now deceased", "Consented to XT - now withdrawn", "Consented to XT - verbal consent", "Consented - Waiver"))] <- "Consented to XT"
XTStatus$XTOverall[which(XTStatus$XTOverallStatus %in% c("Consented to XT - all activity", "Consented to XT - all activity - now deceased", "Consented to XT - MRO", "Consented to XT - MRO - now deceased", "Consented to XT - now withdrawn", "Consented to XT - verbal consent", "Deceased - Waiver"))] <- "Consented to XT"
XTStatus$XTOverall[which(XTStatus$XTOverallStatus %in% c("Declined XT - now deceased", "Declined XT - still living"))] <- "Declined XT"
XTStatus$XTOverall[which(XTStatus$XTOverallStatus %in% c("Excluded - Deceased in ASPREE", "Deceased in XT - not consented", "Excluded - Historical MRO - deceased"))] <- "Excluded - Deceased"
XTStatus$XTOverall[which(XTStatus$XTOverallStatus %in% c("Excluded - Withdrawn in ASPREE"))] <- "Excluded - Withdrawn"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment