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 Dec 13, 2024@02:22:23 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
