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

LRUV.m

Go to the documentation of this file.

LRUV ;AVAMC/REG - EDIT REF FILE ;3/9/94  13:38 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 D END W ! S (DIC,DIE,DLAYGO)=67,DIC(0)="AEQLM" D ^DIC K DIC G:Y<1 END S DA=+Y,DR=".01:62.99;64:99" D ^DIE G LRUV

END D V^LRU K DLAYGO Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRUV   227     printed  Apr 09, 2024@21:25:53                                                                                                                                                                                                         Page 2

LRUV      ;AVAMC/REG - EDIT REF FILE ;3/9/94  13:38 ;

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2        DO END

           WRITE !

           SET (DIC,DIE,DLAYGO)=67

           SET DIC(0)="AEQLM"

           DO ^DIC

           KILL DIC

           if Y<1

               GOTO END

           SET DA=+Y

           SET DR=".01:62.99;64:99"

           DO ^DIE

           GOTO LRUV

 +3       ;

END        DO V^LRU

           KILL DLAYGO

           QUIT