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

[ellessenne]

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]

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