LREV ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91 13:06 ;
;;5.2;LAB SERVICE;;Sep 27, 1994
R2 S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ" D ^DIC G END:Y<1 S LRTEST=+Y,LRDAN=0
R4 S LRDAN=$O(^LAB(60,LRTEST,1,LRDAN)) G R5:LRDAN<1
S DIC="^LAB(60,"_LRTEST_",1,",DA=LRDAN,DR=0 D EN^DIQ G R4
R5 IF $D(^LAB(60,LRTEST,3,0)) S LRCS=$P(^(0),U,4),DIC="^LAB(60,"_LRTEST_",3,",DR="0:2" F LRJJ=1:1:LRCS S DA=LRJJ D EN^DIQ
G R2
END K LRTEST,LRDAN,LRJJ,LRCS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLREV 455 printed Nov 22, 2024@17:24:45 Page 2
LREV ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91 13:06 ;
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
R2 SET U="^"
SET DIC="^LAB(60,"
SET DIC(0)="AEOQZ"
DO ^DIC
if Y<1
GOTO END
SET LRTEST=+Y
SET LRDAN=0
R4 SET LRDAN=$ORDER(^LAB(60,LRTEST,1,LRDAN))
if LRDAN<1
GOTO R5
+1 SET DIC="^LAB(60,"_LRTEST_",1,"
SET DA=LRDAN
SET DR=0
DO EN^DIQ
GOTO R4
R5 IF $DATA(^LAB(60,LRTEST,3,0))
SET LRCS=$PIECE(^(0),U,4)
SET DIC="^LAB(60,"_LRTEST_",3,"
SET DR="0:2"
FOR LRJJ=1:1:LRCS
SET DA=LRJJ
DO EN^DIQ
+1 GOTO R2
END KILL LRTEST,LRDAN,LRJJ,LRCS
+1 QUIT
