- 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 Mar 13, 2025@21:23:02 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
