Check for VS dates occurring after death date

This check looks for VS dates that occur after death date

check_vs_vsdtc_after_dd(AE, DS, VS)

Arguments

AE

Adverse Event SDTM dataset with variables USUBJID, AEDTHDTC, AESTDTC, AEDECOD, and AETERM

DS

Disposition SDTM dataset with variables USUBJID, DSSTDTC, DSDECOD, and DSTERM

VS

Vital Signs SDTM dataset with variables USUBJID, VSDTC, VSTESTCD, and VSORRES

Value

Boolean value for whether the check passed or failed, with 'msg' attribute if the check failed

Author

Nina Ting Qi

Examples

AE <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
                 AEDTHDTC = c(rep("", 4), "2016-01-01"),
                 AESTDTC = rep("2016-01-01", 5),
                 AEDECOD = LETTERS[1:5], AETERM = LETTERS[1:5],
                 stringsAsFactors = FALSE)

DS <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
                 DSSTDTC = rep("2016-01-02", 5),
                 DSDECOD = c(LETTERS[1:4], "death"),
                 DSTERM = letters[1:5],
                 stringsAsFactors = FALSE)

VS <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
                 VSDTC = rep("2015-12-31", 5),
                 VSTESTCD = letters[1:5],
                 VSORRES = 1:5,
                 stringsAsFactors = FALSE)

check_vs_vsdtc_after_dd(AE, DS, VS)
#> [1] TRUE

VS$VSDTC[1] <- "2016-01-03"
VS$USUBJID[1] <- VS$USUBJID[5]

check_vs_vsdtc_after_dd(AE, DS, VS)
#> [1] FALSE
#> attr(,"msg")
#> [1] "Patient(s) with VS occurring after death date. "
#> attr(,"data")
#>   USUBJID      VSDTC VSTESTCD   AEDTHDTC    DSSTDTC EARLIEST_DTHDTC
#> 1       E 2016-01-03        a 2016-01-01 2016-01-02      2016-01-01