LRPHITE3 ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87 12:39
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRPHITE3 1142 printed Nov 22, 2024@17:29:24 Page 2
LRPHITE3 ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87 12:39
+1 ;;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
