tests/test-icd_compact_to_full.R

In medicalcoder: A Unified and Longitudinally Aware Framework for ICD-Based Comorbidity Assessment

source('utilities.R')
library(medicalcoder)

stopifnot(identical(
  icd_compact_to_full(c("E9120","2500","I214"), icdv = c(9,9,10), dx = c(1,1,1)),
  c("E912.0","250.0","I21.4")
))

# already-full codes remain unchanged
stopifnot(identical(
  icd_compact_to_full(c("E912.0","250.0","I21.4"), icdv = c(9,9,10), dx = 1),
  c("E912.0","250.0","I21.4")
))

# ICD-9 procedure codes gain a decimal after the second character; scalars for
# icdv/dx are recycled across the input vector.
stopifnot(identical(
  icd_compact_to_full(c("0309","1712"), icdv = 9, dx = 0),
  c("03.09","17.12")
))

# verify the converstion of a couple specific ICD-10-CM codes
stopifnot(
  identical(
    icd_compact_to_full(c("C4A11", "Z3A29"), icdv = 10, dx = 1),
    c("C4A.11", "Z3A.29")
  )
)

################################################################################
#                                 End of File                                  #
################################################################################