search

jackwasey / icd

Fast ICD-10 and ICD-9 comorbidities, decoding and validation in R. NB use main instead of master for default branch.
https://jackwasey.github.io/icd/
GNU General Public License v3.0
240 stars 60 forks source link

Peripheral vascular disease - Charlson score, ICD-9-CM #181

Open ellessenne opened 5 years ago

ellessenne commented 5 years ago

Hello @jackwasey, I was recently made aware of a typo in the paper by Quan et al. (2005) describing the scoring algorithm for peripheral vascular disease, Charlson score. I just wanted to make sure you're aware of it too, see here for more details. Cheers!

Alessandro

patrickmdnet commented 4 years ago

Thank you for the report.

It looks like icd is not affected:

> df <- data.frame(id = c(1,2), icd9 = c('47.1','447.1'))
> icd9_comorbid_quan_elix(df)[,"PVD"]
    1     2 
FALSE  TRUE 
> icd9_comorbid_quan_deyo(df)[,"PVD"]
    1     2 
FALSE  TRUE