LROI ;SLC/CJS - LAB ORDER INFORMATION UPDATE ; 8/25/87 08:46 ;
;;5.2;LAB SERVICE;;Sep 27, 1994
R !,"(N)ormal values or (C)ollection description?: ",LRLX:DTIME G LROI:LRLX="",END:LRLX="^",LROI:"CN"'[LRLX
L5 S DR=$S(LRLX["N":"2;3;100",LRLX["C":"2;3;6:9;51;200;300",1:"")
S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ",DIE=DIC D ^DIC G END:Y<1 S DA=+Y D ^DIE G L5
MIMN S DR="1.6:7",U="^",DIC="^LAB(61.2,",DIC(0)="AELMOQZ",DLAYGO=61,DIE=DIC D ^DIC G END:Y<1 S DA=+Y D ^DIE G MIMN
END K DIC,LRLX,DLAYGO Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLROI 502 printed Dec 13, 2024@02:18:32 Page 2
LROI ;SLC/CJS - LAB ORDER INFORMATION UPDATE ; 8/25/87 08:46 ;
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 READ !,"(N)ormal values or (C)ollection description?: ",LRLX:DTIME
if LRLX=""
GOTO LROI
if LRLX="^"
GOTO END
if "CN"'[LRLX
GOTO LROI
L5 SET DR=$SELECT(LRLX["N":"2;3;100",LRLX["C":"2;3;6:9;51;200;300",1:"")
+1 SET U="^"
SET DIC="^LAB(60,"
SET DIC(0)="AEOQZ"
SET DIE=DIC
DO ^DIC
if Y<1
GOTO END
SET DA=+Y
DO ^DIE
GOTO L5
MIMN SET DR="1.6:7"
SET U="^"
SET DIC="^LAB(61.2,"
SET DIC(0)="AELMOQZ"
SET DLAYGO=61
SET DIE=DIC
DO ^DIC
if Y<1
GOTO END
SET DA=+Y
DO ^DIE
GOTO MIMN
END KILL DIC,LRLX,DLAYGO
QUIT
