HES/SUS Episode Date Cleaning

Source: R/proxy_episode_dates.R

[Stable]

Correcting for missing end dates on HES/SUS episodes

proxy_episode_dates(
  x,
  group_vars,
  spell_start_date,
  spell_end_date,
  discharge_destination,
  .dropTmp = TRUE,
  .forceCopy = FALSE
)

Arguments

x

a data frame; will be converted to a data.table

group_vars

a vector containing any variables to be used for record grouping, minimum is a patient identifier

spell_start_date

Inpatient provider spell or episode admission date

spell_end_date

Inpatient provider spell or episode discharge date

discharge_destination

CDS discharge destination code

.dropTmp

default TRUE; a logical to drop all tmp values used

.forceCopy

default FALSE; TRUE will force data.table to take a copy instead of editing the data without reference

Value

a data.table with cleaned start and end dates, and an indicator proxy_missing where the value has changed

Examples


proxy_test <- data.frame(
  id = c(
    rep(3051, 4),
    rep(7835,3),
    rep(9891,3),
    rep(1236,3)
  ),
  provider = c(
    rep("QKJ", 4),
    rep("JSD",3),
    rep("YJG",3),
    rep("LJG",3)
  ),
  spell_start = as.Date(c(
    "2020-07-03", "2020-07-14", "2020-07-23", "2020-08-05",
    "2020-11-01", "2020-11-13", "2020-12-01",
    "2020-03-28", "2020-04-06", "2020-04-09",
    "2020-10-06", "2020-11-05", "2020-12-25"
  )),
  spell_end = as.Date(c(
    "2020-07-11", "2020-07-22", "2020-07-30", "2020-07-30",
    "2020-11-11", NA, "2020-12-03",
    "2020-03-28", NA, "2020-04-09",
    "2020-10-06", "2020-11-05", NA
  )),
  disdest = c(
    19, 19, 51, 19,
    19, 19, 19,
    51, 98, 19,
    19, 19, 98
  )
)


proxy_episode_dates(
  x=proxy_test,
  group_vars = c('id','provider'),
  spell_start_date = 'spell_start',
  spell_end_date = 'spell_end',
  discharge_destination = 'disdest'
)[]
#>       id provider spell_start  spell_end disdest proxy_missing
#>  1: 1236      LJG  2020-10-06 2020-10-06      19             0
#>  2: 1236      LJG  2020-11-05 2020-11-05      19             0
#>  3: 1236      LJG  2020-12-25 2022-07-11      98             1
#>  4: 3051      QKJ  2020-07-03 2020-07-11      19             0
#>  5: 3051      QKJ  2020-07-14 2020-07-22      19             0
#>  6: 3051      QKJ  2020-07-23 2020-07-30      51             0
#>  7: 3051      QKJ  2020-07-30 2020-08-05      19             4
#>  8: 7835      JSD  2020-11-01 2020-11-11      19             0
#>  9: 7835      JSD  2020-11-13 2020-11-30      19             3
#> 10: 7835      JSD  2020-12-01 2020-12-03      19             0
#> 11: 9891      YJG  2020-03-28 2020-03-28      51             0
#> 12: 9891      YJG  2020-04-06 2020-04-09      98             2
#> 13: 9891      YJG  2020-04-09 2020-04-09      19             0