In HorridTom/clahrcnwlhf: Heart Failure Care Bundle Project Analysis, CLAHRC NWL

To Do

$\checkmark$ Additional columns required in extract
$\checkmark$ Hospital site
$\checkmark$ Date of death in hospital
$\checkmark$ Discharge destination
$\checkmark$ Missing data in CSP... columns over final six months of dataset
$\checkmark$ Discrepancies between number of heart failure admissions in my analysis vs those in the presentation
$\Box$ Control chart analysis for admissions (absolute and proportions)
$\Box$ Time zone tests - and passes!!
Link in
$\checkmark$ the care bundle data
$\checkmark$ national audit data
$\checkmark$ make national audit linkage site-sensitive
$\checkmark$ refactor linkage tests to use bundle/nicor id rather than row number
$\checkmark$ add pt 1087099 to nicor link test - to check, in conjunction with 1073855, that multi-site spells are linked to by any appropriate nicor records, but that cross-site linking doesn't happen.
$\Box$ Examine for changes in demographics over the period
$\Box$ Write research plan
Analyse outcomes:

  library(xtable)
  tcn <- c('Before-After Raw', 'Before-After Adjusted', 'Bundle Intervention Raw', 'Bundle Intervention Adjusted')
  trn <- c('LOS','Bed Days','Mortality','Readmissions')
r1 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$')
r2 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$')
r3 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$')
r4 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$')
tab1 <- matrix(c(r1,r2,r3,r4),nrow=4, ncol=4, byrow=TRUE)
rownames(tab1) <- trn
colnames(tab1) <- tcn
print(xtable(tab1, align="lcccc"), type="html")