LROI.m

LROI ; IHS/DIR/FJE - LAB ORDER INFORMATION UPDATE 8/25/87 08:46 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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

LROI      ; IHS/DIR/FJE - LAB ORDER INFORMATION UPDATE 8/25/87 08:46 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

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

 +4        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