data med_char_elix;
   set med;
      
   ****************** CHARLSON ******************;
   
   cc_grp_1 = (diag in ('410','412')) | 
              (diag_icd5 in: ('410','412'));
   label cc_grp_1 = 'Myocardial Infarction';
   
   cc_grp_2 = (diag in ('398','402','425','428')) | 
              (diag_icd5 in: ('39891','40201','40211','40291','40401','40403','40411','40413','40491','40493',
                              '4254','4255','4257','4258','4259','428'));
   label cc_grp_2 = 'Congestive Heart Failure';
   
   cc_grp_3 = (diag in ('440','441','443','447','557')) | 
              (diag_icd5 in: ('0930','4373','440','441','4431','4432','4438','4439','4471','5571','5579','V434'));
   label cc_grp_3 = 'Peripheral Vascular Disease';
   
   cc_grp_4 = (diag in ('430','431','432','433','434','435','436','437','438')) | 
              (diag_icd5 in: ('36234','430','431','432','433','434','435','436','437','438'));
   label cc_grp_4 = 'Cerebrovascular Disease';
   
   cc_grp_5 = (diag in ('290','294','331')) | 
              (diag_icd5 in: ('290','2941','3312'));
   label cc_grp_5 = 'Dementia';
   
   cc_grp_6 = (diag in ('416','490','491','492','493','494','495',
                        '496','500','501','502','503','504','505')) | 
              (diag_icd5 in: ('4168','4169','490','491','492','493','494','495','496','500',
			                  '501','502','503','504','505','5064','5081','5088'));
   label cc_grp_6 = 'Chronic Pulmonary Disease';
   
   cc_grp_7 = (diag in ('446','710','714','725')) | 
              (diag_icd5 in: ('4465','7100','7101','7102','7103','7104','7140','7141','7142','7148','725'));
   label cc_grp_7 = 'Connective Tissue Disease-Rheumatic Disease';
   
   cc_grp_8 = (diag in ('531','532','533','534')) | 
              (diag_icd5 in: ('531','532','533','534'));
   label cc_grp_8 = 'Peptic Ulcer Disease';
   
   cc_grp_9 = (diag in ('070','570','571','573')) | 
              (diag_icd5 in: ('07022','07023','07032','07033','07044','07054','0706','0709','570','571',
			                  '5733','5734','5738','5739','V427'));
   label cc_grp_9 = 'Mild Liver Disease';
   
   cc_grp_10 = (diag='250') | 
               (diag_icd5 in: ('2500','2501','2502','2503','2508','2509'));
   label cc_grp_10 = 'Diabetes without complications';
   
   *** 3-digit codes overlap with # 10;
   cc_grp_11 =  (diag_icd5 in: ('2504','2505','2506','2507'));  
   label cc_grp_11 = 'Diabetes with complications';
   
   cc_grp_12 = (diag in ('334','342','343','344')) | 
               (diag_icd5 in: ('3341','342','343','3440','3441','3442','3443','3444','3445','3446','3449'));   
   label cc_grp_12 = 'Paraplegia and Hemiplegia';
   
   cc_grp_13 = (diag in ('403','582','583','585','586','588','V56')) | 
               (diag_icd5 in: ('40301','40311','40391','40402','40403','40412','40413','40492','40493','582',
                               '5830','5831','5832','5834','5836','5837','585','586','5880','V420','V451','V56'));
   label cc_grp_13 = 'Renal Disease';
   
   cc_grp_14 = (diag in ('140','141','142','143','144','145','146','147','148','149',
                         '150','151','152','153','154','155','156','157','158','159',
						 '160','161','162','163','164','165','170','171','172','174',
						 '175','176','179','180','181','182','183','184','185','186',
						 '187','188','189','190','191','192','193','194','195','200',
						 '201','202','203','204','205','206','207','208','238')) | 
               (diag_icd5 in: ('140','141','142','143','144','145','146','147','148','149',
			                   '150','151','152','153','154','155','156','157','158','159',
							   '160','161','162','163','164','165','170','171','172','174',
							   '175','176','179','180','181','182','183','184','185','186',
							   '187','188','189','190','191','192','193','194','195','200',
							   '201','202','203','204','205','206','207','208','2386'));
   label cc_grp_14 = 'Cancer';
   
   cc_grp_15 = (diag in ('456','572')) | 
               (diag_icd5 in: ('4560','4561','4562','5722','5723','5724','5728'));
   label cc_grp_15 = 'Moderate or Severe Liver Disease';
   
   cc_grp_16 = (diag in ('196','197','198','199')) | 
               (diag_icd5 in: ('196','197','198','199'));
   label cc_grp_16 = 'Metastatic Carcinoma';
   
   cc_grp_17 = (diag in ('042','043','044')) | 
               (diag_icd5 in: ('042','043','044'));
   label cc_grp_17 = 'AIDS/HIV';
run;