%MACRO R01H84H; /*MULTIPLE HCC & HIERARCHIES */;
%***********************************************************************
************************************************************************

  MACRO NAME:      R01H84H
  PURPOSE:         RXHCC hierarchies for RXHCCs that are included
                   in software

***********************************************************************;

%*assumes arrays to work with RXCCs and RXHCCs set in the main program;

%*to copy RXCC into RXHCC;
       DO K=1 TO &N_RX;
          RX(K)=R(K);
       END;

%*imposing hierarchies;
 
IF RXHCC59=1 THEN RXHCC60=0;                                          
IF RXHCC1=1 OR RXHCC2=1 THEN RXHCC3=0;                                   
IF RXHCC2=1 THEN DO; RXHCC112=0; RXHCC113=0; END;                        
IF RXHCC8=1 THEN DO; RXHCC9=0; RXHCC10=0; END;                           
IF RXHCC9=1 THEN RXHCC10=0;                                           
IF RXHCC17=1 THEN RXHCC18=0;                                          
IF RXHCC37=1 THEN RXHCC126=0;                                         
IF RXHCC45=1 THEN RXHCC48=0;                                          
IF RXHCC51=1 THEN DO; RXHCC54=0; RXHCC55=0; END;                         
IF RXHCC54=1 THEN RXHCC55=0;                                          
IF RXHCC59=1 OR RXHCC65=1 OR RXHCC66=1 THEN RXHCC67=0;                      
IF RXHCC91=1 THEN RXHCC98=0;                                          
IF RXHCC111=1 THEN RXHCC113=0;                                        
IF RXHCC108=1 THEN DO; RXHCC109=0; RXHCC110=0; RXHCC113=0; END;             
IF RXHCC109=1 THEN DO; RXHCC110=0; RXHCC113=0; END;                      
IF RXHCC110=1 OR RXHCC112=1 THEN RXHCC113=0;                             
IF RXHCC120=1 THEN RXHCC121=0;                                        
IF RXHCC122=1 THEN RXHCC123=0;                                        
IF RXHCC132=1 THEN DO; RXHCC134=0; RXHCC135=0; RXHCC140=0; RXHCC187=0; END;    
IF RXHCC134=1 THEN DO; RXHCC135=0; RXHCC140=0; END;   
IF RXHCC135=1 THEN RXHCC140=0;             
IF RXHCC138=1 OR RXHCC139=1 THEN RXHCC137=0;  
IF RXHCC157=1 OR RXHCC159=1 THEN RXHCC160=0;  
IF RXHCC157=1 THEN RXHCC138=0;             
IF RXHCC186=1 THEN RXHCC187=0;                                

%MEND R01H84H;
