The Charlson Comorbidity Index - Text Mining Techniques for Healthcare Provider Quality Determination - page 157

These codes, 4439-V434, define the condition of peripheral vascular disease. The remaining code
needed to define the index is provided below:
if (rxmatch('430',diagnoses3digits)> 0 or rxmatch('431',diagnoses3digits)> 0 or rxmatch('4
32',diagnoses3digits)> 0 or
rxmatch('433',diagnoses3digits)> 0 or rxmatch('434',diagnoses3digits)> 0 or rxmatch('435',
diagnoses3digits)> 0 or
rxmatch('436',diagnoses3digits)> 0 or rxmatch('437',diagnoses3digits)> 0 or rxmatch('438',
diagnoses3digits)> 0 ) then cva= 1 ;
if (rxmatch('290',diagnoses3digits)> 0 ) then dementia= 1 ;
if (rxmatch('490',diagnoses3digits)> 0 or rxmatch('491',diagnoses3digits)> 0 or rxmatch('4
92',diagnoses3digits)> 0 or
rxmatch('493',diagnoses3digits)> 0 or rxmatch('494',diagnoses3digits)> 0 or rxmatch('495',
diagnoses3digits)> 0 or
rxmatch('496',diagnoses3digits)> 0 or rxmatch('500',diagnoses3digits)> 0 or rxmatch('501',
diagnoses3digits)> 0 or
rxmatch('502',diagnoses3digits)> 0 or rxmatch('503',diagnoses3digits)> 0 or rxmatch('504',
diagnoses3digits)> 0 or
rxmatch('505',diagnoses3digits)> 0 ) then pd= 1 ;
if (rxmatch('7100',diagnoses4digits)> 0 or rxmatch('7101',diagnoses4digits)> 0 or rxmatch(
'7104',diagnoses4digits)> 0 or
rxmatch('7140',diagnoses4digits)> 0 or rxmatch('7141',diagnoses4digits)> 0 or rxmatch('714
2',diagnoses4digits)> 0 or
rxmatch('7148',diagnoses4digits)> 0 or rxmatch('725',diagnoses3digits)> 0 ) then ctd= 1 ;
if (rxmatch('531',diagnoses3digits)> 0 or rxmatch('532',diagnoses3digits)> 0 or rxmatch('5
33',diagnoses3digits)> 0 or
rxmatch('534',diagnoses3digits)> 0 ) then pu= 1 ;
if (rxmatch('5712',diagnoses4digits)> 0 or rxmatch('5714',diagnoses4digits)> 0 or rxmatch(
'5715',diagnoses4digits)> 0 or
rxmatch('5716',diagnoses4digits)> 0 ) then ld= 1 ;
if (rxmatch('2500',diagnoses4digits)> 0 or rxmatch('2501',diagnoses4digits)> 0 or rxmatch(
'2502',diagnoses4digits)> 0 or
rxmatch('2503',diagnoses4digits)> 0 or rxmatch('2507',diagnoses4digits)> 0 ) then diabe-
tes= 1 ;
if (rxmatch('2504',diagnoses4digits)> 0 or rxmatch('2505',diagnoses4digits)> 0 or rxmatch(
'2506',diagnoses4digits)> 0 )
then dc= 1 ;
if (rxmatch('342',diagnoses3digits)> 0 or rxmatch('3441',diagnoses4digits)> 0 ) then para-
plegia= 1 ;
if (rxmatch('582',diagnoses3digits)> 0 or rxmatch('5830',diagnoses4digits)> 0 or rxmatch('
5831',diagnoses4digits)> 0 or
rxmatch('5832',diagnoses4digits)> 0 or rxmatch('5833',diagnoses4digits)> 0 or rxmatch('583
5',diagnoses4digits)> 0 or
rxmatch('5836',diagnoses4digits)> 0 or rxmatch('5837',diagnoses4digits)> 0 or rxmatch('583