icd (version 2.2)

icd9_add_leading_zeroes_cpp: Add leading zeroes to incomplete ICD-9 codes

Description

Non-decimal ICD-9 codes with length<5 are often ambiguous. E.g. 100 could be 1.00 10.0 or 100 if coded incorrectly. We must assume 100 is really 100

Usage

icd9_add_leading_zeroes_cpp(x, short_code)

Arguments

x

Character vector of ICD-9 codes

short_code

single logical value which determines whether the ICD-9 code provided is in short (TRUE) or decimal (FALSE) form. Where reasonable, this is guessed from the input data.

Value

character vector of ICD-9 codes with leading zeroes

Examples

# NOT RUN {
stopifnot(identical(
  icd9_add_leading_zeroes_alt_cpp(c("1", "E2", "V1", "E"), short_code = TRUE),
  icd9_add_leading_zeroes_cpp(c("1", "E2", "V1", "E"), short_code = TRUE)
  ))

  bad_codes <- sample(c("E2", "V01", "1234", "12", "1", "E99", "E987", "V"),
                      size = 1e6, replace = TRUE)
  microbenchmark::microbenchmark(
    icd9_add_leading_zeroes_alt_cpp(bad_codes, short_code = TRUE),
    icd9_add_leading_zeroes_cpp(bad_codes, short_code = TRUE)
  )
# }