- 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