Dear all, I am working on a project that involves generating the Elixhauser Comorbidity Index from a number of variables that contained ICD-10 codes. There are people who published a macro that generate the Index from the ICD-10 codes (http://mchp-appserv.cpe.umanitoba.ca/Upload/SAS/_ElixhauserICD10.sas.txt) but I'm working on a off-line server, which means I can only type codes in SAS but I cannot copy the macro file in the server. So what I am hoping is to borrow a series of codes from the macro and get it work on my dataset on the server. The whole point of the Index is to search each of the diagnosis codes variable (in ICD-10), finding out if they have the ICD codes listed in 1 of 31 categories that the comorbidity index defined. It should generate 31 variables corresponding to each category in the index and each one of the 31 variables is binary, indicating whether, in the patient' so many diagnosis codes, have the codes listed in a particular index category.  As I understand the macro can calculate the Index,  but I don't know how to convert the codes in the macro to, like codes I can run directly. I now have a dataset with dx1 to dx10 and dxtyp1 to dxtyp10 as well as other variables. It would be great if someone can tell me how to convert the codes from the macro. Please access the entire macro from http://mchp-appserv.cpe.umanitoba.ca/Upload/SAS/_ElixhauserICD10.sas.txt. I pasted some excerpts here to illustrate my point.     /* skip diagnosis if diagnosis type = "2" */ %if &type=on %then if DXTYP(i) ^= '2' then DO; ; /* identify ELX group */ The dxtyp variables are to determine whether a dx should be called a comorbidity and entering the calculation. Each dx has a dxtyp. /* check each set of diagnoses codes for each ELX group. */ do i = 1 to dim(dx) UNTIL (DX(i)=' '); /* for each set of diagnoses codes */ /* skip diagnosis if diagnosis type = "2" */ %if &type=on %then if DXTYP(i) ^= '2' then DO; ; /* identify ELX group */ /* Congestive Heart Failure */ if DX(i) IN: ('I099','I110','I130','I132','I255','I420','I425','I426','I427','I428', 'I429','I43','I50','P290') then ELX_GRP_1 = 1; LABEL ELX_GRP_1 = 'Congestive Heart Failure'; I think this part here is the start of the loop " do i = 1 to dim(dx) UNTIL (DX(i)=' '); ". and "congestive heart failure" is the first category of the 31. If these codes   ('I099','I110','I130','I132','I255','I420','I425','I426','I427','I428','I429','I43','I50','P290')  are found in any one of the 10 dx codes, ELX_GRP_1 would be changed to 1. There are 30 more categories to go doing similar thing. /*Depression*/ if DX(i) IN: ('F204','F313','F314','F315','F32','F33','F341','F412','F432') then ELX_GRP_31 = 1; LABEL ELX_GRP_31 = 'Depression'; %if &type=on %then end; ; end; "Depression" is the last category and should be where the loop ended. I want my code to end here as well. I don't really need to add the 31 variables up, but I do need to generate the 31 variables from dx1-10 and dxtyp1-10.   Please illustrate how I can write the code to generate the index based on the macro. Thanks a lot!   Ginny Han             ... View more