LRPHITE3.m

LRPHITE3 ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87  12:39

 ;;5.2T9;LR;**1018**;Nov 17, 2004

 ;;5.2;LAB SERVICE;**100,198,208,221**;Sep 27, 1994

EXCEPT ;from LRPHEXPT, LRPHITEM

 K LRNATURE,LRCCOM,LRCOM0

 N LRORD,LRODT

 S LRNOP=0,LRORD=LROR(LROR),LRODT=DT D LOOK^LRCENDEL Q

 ;,X=$O(LRCOM(999-LROR)),LRBATCH=$S(X>0:$L(LRCOM(X,1,1)),1:0) D EN^LRCENDEL G ONE2:LRBATCH

 W !,"Cancel entire Order # ",LROR(LROR) S %=1,LRRND="",LRCOM(1,1)=0 D YN^DICN

 ;

 ;

 S LRALL69=% ;-->198

 I %=1 G ONE2

 ;

 ;

MORE W !,?8,"entry",?15,"test",?40,"sample"

 S T=0,J=0 F  S J=$O(T(J)) Q:J<1  S T=J W !,?10,J,?15,$P(^LAB(60,$P(T(J),U,3),0),U),?40,$P(T(J),U,4)

 I T=0 W !,"No tests" G NOMORE

ONE R !,"Cancel which entry: ",LRIX:DTIME W:LRIX["?" !,"Enter 'all' or Pick one of the following entries:" G MORE:LRIX["?",NOMORE:LRIX["^"!(LRIX="")

 S LRRND="" I LRIX="ALL" G ONE2

 I LRIX'=+LRIX!(LRIX<1)!(LRIX>T) W !,"Enter a number between 1 and ",T G ONE

 S LR1=1 D ZAP^LRPHITE1 K LR1 W !,LRORD G ONE

ONE2 S LRIX=0 F  S LRIX=$O(T(LRIX)) Q:LRIX<1  D ZAP^LRPHITE1

 W:'LRNOP !,LRORD,?7,"Canceled" G NOMORE

% R %:DTIME Q:%=""!(%["N")!(%["Y")  W !,"Answer 'Y' or 'N': " G %

NOMORE K LRNATURE Q

LRPHITE3  ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87  12:39

 +1       ;;5.2T9;LR;**1018**;Nov 17, 2004

 +2       ;;5.2;LAB SERVICE;**100,198,208,221**;Sep 27, 1994

EXCEPT    ;from LRPHEXPT, LRPHITEM

 +1        KILL LRNATURE,LRCCOM,LRCOM0

 +2        NEW LRORD,LRODT

 +3        SET LRNOP=0

           SET LRORD=LROR(LROR)

           SET LRODT=DT

           DO LOOK^LRCENDEL

           QUIT 

 +4       ;,X=$O(LRCOM(999-LROR)),LRBATCH=$S(X>0:$L(LRCOM(X,1,1)),1:0) D EN^LRCENDEL G ONE2:LRBATCH

 +5        WRITE !,"Cancel entire Order # ",LROR(LROR)

           SET %=1

           SET LRRND=""

           SET LRCOM(1,1)=0

           DO YN^DICN

 +6       ;

 +7       ;

 +8       ;-->198

           SET LRALL69=%

 +9        IF %=1

               GOTO ONE2

 +10      ;

 +11      ;

MORE       WRITE !,?8,"entry",?15,"test",?40,"sample"

 +1        SET T=0

           SET J=0

           FOR 

               SET J=$ORDER(T(J))

               IF J<1

                   QUIT 

               SET T=J

               WRITE !,?10,J,?15,$PIECE(^LAB(60,$PIECE(T(J),U,3),0),U),?40,$PIECE(T(J),U,4)

 +2        IF T=0

               WRITE !,"No tests"

               GOTO NOMORE

ONE        READ !,"Cancel which entry: ",LRIX:DTIME

           IF LRIX["?"

               WRITE !,"Enter 'all' or Pick one of the following entries:"

           IF LRIX["?"

               GOTO MORE

           IF LRIX["^"!(LRIX="")

               GOTO NOMORE

 +1        SET LRRND=""

           IF LRIX="ALL"

               GOTO ONE2

 +2        IF LRIX'=+LRIX!(LRIX<1)!(LRIX>T)

               WRITE !,"Enter a number between 1 and ",T

               GOTO ONE

 +3        SET LR1=1

           DO ZAP^LRPHITE1

           KILL LR1

           WRITE !,LRORD

           GOTO ONE

ONE2       SET LRIX=0

           FOR 

               SET LRIX=$ORDER(T(LRIX))

               IF LRIX<1

                   QUIT 

               DO ZAP^LRPHITE1

 +1        IF 'LRNOP

               WRITE !,LRORD,?7,"Canceled"

           GOTO NOMORE

%          READ %:DTIME

           IF %=""!(%["N")!(%["Y")

               QUIT 

           WRITE !,"Answer 'Y' or 'N': "

           GOTO %

NOMORE     KILL LRNATURE

           QUIT