 %MACRO V23H83H1; 
 %**********************************************************************
 1  MACRO NAME: V23H83H1
 2  PURPOSE:    HCC HIERARCHIES: version 23 of HCCs,
                only 83 CMS HCCs are included
 3  COMMENT:    it is assumed that:
                 -MAX number of CCs are placed into global macro 
                  variable N_CC in the main program
                 -the following arrays are set in the main program
                  ARRAY C(&N_CC)   CC1-CC&N_CC
                  ARRAY HCC(&N_CC) HCC1-HCC&N_CC
                 -format ICD to CC creates only 83 out of &N_CC CMS CCs
 **********************************************************************;
 %* set to 0 HCCs in HIER parameter;
 %MACRO SET0( CC=, HIER= );
     IF HCC&CC=1 THEN DO I = &HIER; HCC(I) = 0; END;
 %MEND SET0;

 %*to copy CC into HCC;
  DO K=1 TO &N_CC;
     HCC(K)=C(K);
  END;

 %*imposing hierarchies;
 /*Neoplasm 1 */   %SET0(CC=8     , HIER=%STR(9 ,10 ,11 ,12 ));
 /*Neoplasm 2 */   %SET0(CC=9     , HIER=%STR(10 ,11 ,12 ));
 /*Neoplasm 3 */   %SET0(CC=10    , HIER=%STR(11 ,12 ));
 /*Neoplasm 4 */   %SET0(CC=11    , HIER=%STR(12 ));
 /*Diabetes 1 */   %SET0(CC=17    , HIER=%STR(18 ,19 ));
 /*Diabetes 2 */   %SET0(CC=18    , HIER=%STR(19 ));
 /*Liver 1 */      %SET0(CC=27    , HIER=%STR(28 ,29 ,80 ));
 /*Liver 2 */      %SET0(CC=28    , HIER=%STR(29 ));
 /*Blood 1 */      %SET0(CC=46    , HIER=%STR(48 ));
 /*SA 1 */         %SET0(CC=54    , HIER=%STR(55, 56 ));
 /*SA 2 */         %SET0(CC=55    , HIER=%STR(56 ));
 /*Psychiatric 1 */%SET0(CC=57    , HIER=%STR(58, 59, 60 ));
 /*Psychiatric 2 */%SET0(CC=58    , HIER=%STR(59, 60 ));
 /*Psychiatric 3 */%SET0(CC=59    , HIER=%STR(60 ));
 /*Spinal 1 */     %SET0(CC=70    , HIER=%STR(71 ,72 ,103 ,104 ,169 ));
 /*Spinal 2 */     %SET0(CC=71    , HIER=%STR(72 ,104 ,169 ));
 /*Spinal 3 */     %SET0(CC=72    , HIER=%STR(169 ));
 /*Arrest 1 */     %SET0(CC=82    , HIER=%STR(83 ,84 ));
 /*Arrest 2 */     %SET0(CC=83    , HIER=%STR(84 ));
 /*Heart 2 */      %SET0(CC=86    , HIER=%STR(87 ,88 ));
 /*Heart 3 */      %SET0(CC=87    , HIER=%STR(88 ));
 /*CVD 1 */        %SET0(CC=99    , HIER=%STR(100 ));
 /*CVD 5 */        %SET0(CC=103   , HIER=%STR(104 ));
 /*Vascular 1 */   %SET0(CC=106   , HIER=%STR(107 ,108 ,161 ,189 ));
 /*Vascular 2 */   %SET0(CC=107   , HIER=%STR(108 ));
 /*Lung 1 */       %SET0(CC=110   , HIER=%STR(111 ,112 ));
 /*Lung 2 */       %SET0(CC=111   , HIER=%STR(112 ));
 /*Lung 5 */       %SET0(CC=114   , HIER=%STR(115 ));
 /*Kidney 3 */     %SET0(CC=134   , HIER=%STR(135, 136, 137, 138 ));
 /*Kidney 4 */     %SET0(CC=135   , HIER=%STR(136, 137, 138 ));
 /*Kidney 5 */     %SET0(CC=136   , HIER=%STR(137, 138 ));
 /*Kidney 6 */     %SET0(CC=137   , HIER=%STR(138 ));
 /*Skin 1 */       %SET0(CC=157   , HIER=%STR(158 ,161 ));
 /*Skin 2 */       %SET0(CC=158   , HIER=%STR(161 ));
 /*Injury 1 */     %SET0(CC=166   , HIER=%STR(80 ,167 ));

  %MEND V23H83H1;
