XTVRC1Z.m

XTVRC1Z ;ISC-SF.SEA/JLI - COMBINE %Z .F WITH XTVRC1 ;9/29/92  14:50 ;

 ;;7.3;TOOLKIT;;Apr 25, 1995

 ;;

ENTRY N %,%DT,%H,%N,%UCN,%Y,DA,DIC,DIF,DLAYGO,I,J,K,L,M,P,V,X,XCNP,XTDONE,XTJJ,XTJL,XTKK,XTL1,XTLL,XTROU,XTVTIM,Y

 S X="N",%DT="T" D ^%DT S XTVTIM=+Y,XTROU=%X D LOOP^XTVRC1

 Q

XTVRC1Z   ;ISC-SF.SEA/JLI - COMBINE %Z .F WITH XTVRC1 ;9/29/92  14:50 ;

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

 +2       ;;

ENTRY      NEW %,%DT,%H,%N,%UCN,%Y,DA,DIC,DIF,DLAYGO,I,J,K,L,M,P,V,X,XCNP,XTDONE,XTJJ,XTJL,XTKK,XTL1,XTLL,XTROU,XTVTIM,Y

 +1        SET X="N"

           SET %DT="T"

           DO ^%DT

           SET XTVTIM=+Y

           SET XTROU=%X

           DO LOOP^XTVRC1

 +2        QUIT