ICDwordmatch: ICD10 word match against patient codes
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Usage Arguments Details Author(s) Examples

1	ICDwordmatch(ICD10)

ICD10

Array with Group, Code and Description columns.

Regular expression to search in Description and Group names for a word match to the hard-coded risk factor list, and then return the relevant Code. The risk factor words to match are cancer, cathet, dialys, low birth, preterm, prematurity, intravenous.

N Green

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (ICD10) 
{
    RFcodes <- list()
    cat <- c("cancer", "cathet", "dialys", "low birth", "preterm", 
        "prematurity", "^intravenous")
    for (i in seq_along(cat)) {
        catmod <- paste("(?i)", cat[i], sep = "")
        RFrows <- unique(c(grep(catmod, ICD10$Group, fixed = FALSE), 
            grep(catmod, ICD10$Description, fixed = FALSE)))
        RFcodes[[i]] <- ICD10$Code[RFrows]
    }
    names(RFcodes) <- cat
    RFcodes
  }