R/chapters.R

In jackwasey/icd.data: International Classification of Diseases (ICD) Data

.icd9_generate_subchap_lookup <- function() {
  .icd9_generate_chap_lookup(
    chapters = icd.data::icd9_sub_chapters,
    prefix = "sc"
  )
}

.icd10_generate_subchap_lookup <- function() {
  .icd10_generate_chap_lookup(
    chapters = icd.data::icd10_sub_chapters,
    prefix = "sc"
  )
}

.icd9_generate_chap_lookup <-
  function(chapters = icd.data::icd9_chapters,
             prefix = "chap") {
    stopifnot(is.list(chapters), is.character(prefix))
    erm <- if (.have_memoise()) {
      memoise::memoise(
        .expand_range_major.icd9,
        cache = memoise::cache_filesystem(
          file.path(icd_data_dir(), "memoise")
        )
      )
    } else {
      .expand_range_major.icd9
    }
    df_rows <- lapply(
      names(chapters),
      function(nm) {
        chap <- chapters[[nm]]
        data.frame(
          erm(
            icd::as.icd9cm(chap["start"]),
            icd::as.icd9cm(chap["end"]),
            defined = FALSE
          ),
          nm
        )
      }
    )
    chap_lookup <- do.call(rbind, df_rows)
    names(chap_lookup) <- c(
      paste0(prefix, "_major"),
      paste0(prefix, "_desc")
    )
    chap_lookup
  }

.icd10_generate_chap_lookup <-
  function(chapters = icd.data::icd10_chapters,
             prefix = "chap") {
    stopifnot(is.list(chapters), is.character(prefix))
    erm <- if (.have_memoise()) {
      memoise::memoise(
        .expand_range_major.icd10cm,
        cache = memoise::cache_filesystem(
          file.path(icd_data_dir(), "memoise")
        )
      )
    } else {
      .expand_range_major.icd10cm
    }
    df_rows <- lapply(
      names(chapters),
      function(nm) {
        chap <- chapters[[nm]]
        data.frame(
          erm(
            icd::as.icd10cm(chap["start"]),
            icd::as.icd10cm(chap["end"]),
            defined = FALSE
          ),
          nm
        )
        # ICD-10 is not in leixcographic order. E.g., C7A is not in the same group
        # as C76-C80
      }
    )
    chap_lookup <- do.call(rbind, df_rows)
    names(chap_lookup) <- c(
      paste0(prefix, "_major"),
      paste0(prefix, "_desc")
    )
    chap_lookup
  }