<!-- --------------------- W4MENUBODY ------------------ -->
  <m:if expr='$$^%W1DIR="RTL"' >
    <frameset cols = "40%,60%"  frameborder="0" framespacing="0" >

      <frame noresize="noresize" src ="w4hzord.jsp?JB=<m:out expr='+$G(JB)' />&SCRY=<m:out expr='$G(%ARG("SCRY"))' />" name="ord" id="idord"/>

      <m:if expr='$$GRITVW^W4PRM&($G(%ARG("UR"))<3)&(+$$^W4AIN=0)' >
       <frame noresize="noresize" src ="w4grit.jsp?JB=<m:out expr='+$G(JB)' />&FIRST=1" name="tfr" id="idtfr"/>
      </m:if>

      <m:if expr='(+$$GRITVW^W4PRM=0)&(+$G(%ARG("CDKV"))=0!($G(%ARG("UR"))<2))&(+$$^W4AIN=0)' >

        <m:if expr='+$$GCOUPIT^W4PRM=0!(+$$TLMTN^W4L($$GETP^%W1PRM("NMB"))=0)'>
         <frame noresize="noresize" src ="w4hztfr.jsp?JB=<m:out expr='+$G(JB)' />&FIRST=1" name="tfr" id="idtfr"/>
        </m:if>

        <m:if expr='$$GCOUPIT^W4PRM&$$TLMTN^W4L($$GETP^%W1PRM("NMB"))'>
         <frame noresize="noresize" src ="w4gcoup.jsp?JB=<m:out expr='+$G(JB)' />&VP=<m:out expr='$$VP^W4GCOUP'/>&VZ=PAY&FIRST=1" name="tfr" id="idtfr"/>
        </m:if>

      </m:if>


      <m:if expr='(+$$GRITVW^W4PRM=0)&(+$G(%ARG("CDKV"))&($G(%ARG("UR"))>1)&(+$$^W4AIN=0))' >
       <frame noresize="noresize" src ="w4hzprtn.jsp?JB=<m:out expr='+$G(JB)' />&CDKV=<m:out expr='$G(%ARG("CDKV"))' />&FIRST=1" name="tfr" id="idtfr"/>
      </m:if>

      <m:if expr='$$^W4AIN' >
       <frame noresize="noresize" src ="w4hzai.jsp?JB=<m:out expr='+$G(JB)' />&TXT1=<m:out expr='$$GET^%W1PRM("TXT1")' />&TXT2=<m:out expr='$$GET^%W1PRM("TXT2")' />&FIRST=1" name="tfr" id="idtfr"/>
      </m:if>

    </frameset>
  </m:if>


  <m:if expr='$$^%W1DIR="LTR"' >

    <frameset cols = "60% ,40%" frameborder="0" framespacing="0" >
      <m:if expr='$$GRITVW^W4PRM&($G(%ARG("UR"))<2)&(+$$^W4AIN=0)' >
      </m:if>

      <m:if expr='(+$$GRITVW^W4PRM=0)&(+$G(%ARG("CDKV"))=0!($G(%ARG("UR"))<2))&(+$$^W4AIN=0)' >

        <m:if expr='+$$GCOUPIT^W4PRM=0!(+$$TLMTN^W4L($$GETP^%W1PRM("NMB"))=0)'>
         <frame noresize="noresize" src ="w4hztfr.jsp?JB=<m:out expr='+$G(JB)' />&FIRST=1" name="tfr" id="idtfr"/>
        </m:if>

        <m:if expr='$$GCOUPIT^W4PRM&$$TLMTN^W4L($$GETP^%W1PRM("NMB"))'>
         <frame noresize="noresize" src ="w4gcoup.jsp?JB=<m:out expr='+$G(JB)' />&VP=GCOUP&VZ=PAY&FIRST=1" name="tfr" id="idtfr"/>
        </m:if>

      </m:if>

      <m:if expr='(+$$GRITVW^W4PRM=0)&(+$G(%ARG("CDKV"))&($G(%ARG("UR"))>1)&(+$$^W4AIN=0))' >
       <frame noresize="noresize" src ="w4hzprtn.jsp?JB=<m:out expr='+$G(JB)' />&CDKV=<m:out expr='$G(%ARG("CDKV"))' />&FIRST=1" name="tfr" id="idtfr"/>
      </m:if>

      <m:if expr='+$G(%ARG("CDKV"))&($G(%ARG("UR"))>1)&$$^W4AIN' >
       <frame noresize="noresize" src ="w4hzai.jsp?JB=<m:out expr='+$G(JB)' />&TXT1=<m:out expr='$$GET^%W1PRM("TXT1")' />&TXT2=<m:out expr='$$GET^%W1PRM("TXT2")' />&FIRST=1" name="tfr" id="idtfr"/>
      </m:if>

      <frame noresize="noresize" src ="w4hzord.jsp?JB=<m:out expr='+$G(JB)' />&SCRY=<m:out expr='$G(%ARG("SCRY"))' />" name="ord" id="idord"/>
    </frameset>
  </m:if>








































































