*** This SAS code generates an overall (longitudinal) Elixhauser Comorbidity Index score (the total number of categories
    indicated) for an individual scrambled PHIN, based on ALL episodes of care (hospitalizations and physician visits)
    over a specified period of time (usually one year).  Each category is only counted once in the overall total count per
    person.

DATE:  November 20, 2014
AUTHOR:  Heather Prior        ***** ;

data elix;
   set elix9
       elix10
       med_char_elix (keep=scrphin elx_grp_1-elx_grp_31);
   by scrphin;
   
   retain elixgrp1 elixgrp2 elixgrp3 elixgrp4 elixgrp5 elixgrp6 elixgrp7 elixgrp8 elixgrp9 elixgrp10 
          elixgrp11 elixgrp12 elixgrp13 elixgrp14 elixgrp15 elixgrp16 elixgrp17 elixgrp18 elixgrp19 elixgrp20 
          elixgrp21 elixgrp22 elixgrp23 elixgrp24 elixgrp25 elixgrp26 elixgrp27 elixgrp28 elixgrp29 elixgrp30 elixgrp31;
   
   if first.scrphin then do;
      elixgrp1=0; elixgrp2=0; elixgrp3=0; elixgrp4=0; elixgrp5=0; elixgrp6=0; elixgrp7=0; elixgrp8=0; elixgrp9=0; elixgrp10=0; 
      elixgrp11=0; elixgrp12=0; elixgrp13=0; elixgrp14=0; elixgrp15=0; elixgrp16=0; elixgrp17=0; elixgrp18=0; elixgrp19=0; elixgrp20=0;
      elixgrp21=0; elixgrp22=0; elixgrp23=0; elixgrp24=0; elixgrp25=0; elixgrp26=0; elixgrp27=0; elixgrp28=0; elixgrp29=0; elixgrp30=0; elixgrp31=0;             
   end;

   array hsp{31} elx_grp_1  elx_grp_2  elx_grp_3  elx_grp_4  elx_grp_5  elx_grp_6  elx_grp_7  elx_grp_8  elx_grp_9  elx_grp_10 
                 elx_grp_11 elx_grp_12 elx_grp_13 elx_grp_14 elx_grp_15 elx_grp_16 elx_grp_17 elx_grp_18 elx_grp_19 elx_grp_20
                 elx_grp_21 elx_grp_22 elx_grp_23 elx_grp_24 elx_grp_25 elx_grp_26 elx_grp_27 elx_grp_28 elx_grp_29 elx_grp_30 elx_grp_31;
                                                   
   array tot{31} elixgrp1 elixgrp2 elixgrp3 elixgrp4 elixgrp5 elixgrp6 elixgrp7 elixgrp8 elixgrp9 elixgrp10 
                 elixgrp11 elixgrp12 elixgrp13 elixgrp14 elixgrp15 elixgrp16 elixgrp17 elixgrp18 elixgrp19 elixgrp20 
                 elixgrp21 elixgrp22 elixgrp23 elixgrp24 elixgrp25 elixgrp26 elixgrp27 elixgrp28 elixgrp29 elixgrp30 elixgrp31;
   
   do i = 1 to 31;
      if hsp{i} = 1 then tot{i} = 1;
   end;
   
   if last.scrphin then do;
      totalelix = sum(of elixgrp1-elixgrp31);
              output;
   end;
   
   label elixgrp1 = 'Elixhauser Group 1: Congestive Heart Failure'
         elixgrp2 = 'Elixhauser Group 2: Cardiac Arrhythmia'
         elixgrp3 = 'Elixhauser Group 3: Valvular Disease'
         elixgrp4 = 'Elixhauser Group 4: Pulmonary Circulation Disorders'
         elixgrp5 = 'Elixhauser Group 5: Peripheral Vascular Disorders'
         elixgrp6 = 'Elixhauser Group 6: Hypertension without complications'
         elixgrp7 = 'Elixhauser Group 7: Hypertension with complications'
         elixgrp8 = 'Elixhauser Group 8: Paralysis'
         elixgrp9 = 'Elixhauser Group 9: Other Neurological Disorders'
         elixgrp10 = 'Elixhauser Group 10: Chronic Pulmonary Disease'
         elixgrp11 = 'Elixhauser Group 11: Diabetes without complications'
         elixgrp12 = 'Elixhauser Group 12: Diabetes with complications'
         elixgrp13 = 'Elixhauser Group 13: Hypothyroidism'
         elixgrp14 = 'Elixhauser Group 14: Renal Failure'
         elixgrp15 = 'Elixhauser Group 15: Liver Disease'
         elixgrp16 = 'Elixhauser Group 16: Peptic Ulcer Disease excluding bleeding' 
         elixgrp17 = 'Elixhauser Group 17: HIV/AIDS'
         elixgrp18 = 'Elixhauser Group 18: Lymphoma'
         elixgrp19 = 'Elixhauser Group 19: Metastatic Cancer'
         elixgrp20 = 'Elixhauser Group 20: Solid Tumor without Metastasis'
         elixgrp21 = 'Elixhauser Group 21: Rheumatoid Arthritis/Collagen'
         elixgrp22 = 'Elixhauser Group 22: Coagulopathy'
         elixgrp23 = 'Elixhauser Group 23: Obesity'
         elixgrp24 = 'Elixhauser Group 24: Weight Loss'
         elixgrp25 = 'Elixhauser Group 25: Fluid and Electrolyte Disorders'
         elixgrp26 = 'Elixhauser Group 26: Blood Loss Anemia'
         elixgrp27 = 'Elixhauser Group 27: Deficiency Anemia'
         elixgrp28 = 'Elixhauser Group 28: Alcohol Abuse'
         elixgrp29 = 'Elixhauser Group 29: Drug Abuse'
         elixgrp30 = 'Elixhauser Group 30: Psychoses'
         elixgrp31 = 'Elixhauser Group 31: Depression'
         totalelix = 'Sum of 31 Elixhauser Groups';
   
   keep scrphin totalelix
        elixgrp1 elixgrp2 elixgrp3 elixgrp4 elixgrp5 elixgrp6 elixgrp7 elixgrp8 elixgrp9 elixgrp10 
        elixgrp11 elixgrp12 elixgrp13 elixgrp14 elixgrp15 elixgrp16 elixgrp17 elixgrp18 elixgrp19 elixgrp20 
        elixgrp21 elixgrp22 elixgrp23 elixgrp24 elixgrp25 elixgrp26 elixgrp27 elixgrp28 elixgrp29 elixgrp30 elixgrp31;
run;