Skip to contents

Normalizar codigos CIE-10 a formato con punto

Source: R/cie-utils.R
cie_norm.Rd

Convierte codigos CIE-10 de diferentes formatos al formato estandar (con punto). Maneja multiples variaciones de entrada comunes en datos clinicos.

Usage

cie_norm(
  codes,
  search_db = TRUE,
  codigos = lifecycle::deprecated(),
  buscar_db = lifecycle::deprecated()
)

cie_normalize(
  codes,
  search_db = TRUE,
  codigos = lifecycle::deprecated(),
  buscar_db = lifecycle::deprecated()
)

Arguments

codes

Character vector de codigos en cualquier formato

search_db

Logical, buscar codigo en base de datos si no se encuentra exacto (default TRUE)

codigos

[Deprecated] Use codes.

buscar_db

[Deprecated] Use search_db.

Value

Character vector con codigos normalizados al formato con punto

Details

La normalizacion incluye:

  • Conversion a mayusculas

  • Eliminacion de espacios (inicio, fin e internos)

  • Eliminacion de simbolos daga y asterisco (codificacion dual)

  • Conversion de guiones a puntos (I10-0 -> I10.0)

  • Eliminacion de puntos iniciales (.I10 -> I10)

  • Correccion de puntos multiples (E..11 -> E.11)

  • Eliminacion de sufijo X en codigos cortos (I10X -> I10)

  • Preservacion de X en codigos largos (placeholder 7o caracter)

  • Agregado de punto en posicion correcta (E110 -> E11.0)

El sistema de daga/asterisco indica codificacion dual donde la daga marca la enfermedad subyacente y el asterisco la manifestacion. Ambos simbolos se eliminan para normalizacion.

See also

cie_validate_vector(), cie_expand(), cie_lookup()

Other validacion: cie_expand(), cie_normalizar(), cie_validate_vector()

Examples

cie_norm("E110")     # Retorna "E11.0"
#> [1] "E11.0"
cie_norm("E11")      # Retorna "E11" (categoria)
#> [1] "E11"
cie_norm("I10X")     # Retorna "I10" (elimina X)
#> [1] "I10"
cie_norm("E 11 0")   # Retorna "E11.0" (espacios internos)
#> [1] "E11.0"
cie_norm("I10-0")    # Retorna "I10.0" (guion a punto)
#> [1] "I10.0"
cie_norm(paste0("A17.0", intToUtf8(0x2020)))  # "A17.0" (elimina daga)
#> [1] "A17.0"
cie_norm("G01*")                              # "G01"   (elimina asterisco)
#> [1] "G01"
cie_norm(c("E110", "I10X", "Z00"))  # Vectorizado
#> [1] "E11.0" "I10"   "Z00"