Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XTVRC1Z

XTVRC1Z.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTVRC1Z   285     printed  Apr 09, 2024@21:43:33                                                                                                                                                                                                      Page 2

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