source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRPHITE3.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1LRPHITE3 ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87 12:39
2 ;;5.2;LAB SERVICE;**100,198,208,221**;Sep 27, 1994
3EXCEPT ;from LRPHEXPT, LRPHITEM
4 K LRNATURE,LRCCOM,LRCOM0
5 N LRORD,LRODT
6 S LRNOP=0,LRORD=LROR(LROR),LRODT=DT D LOOK^LRCENDEL Q
7 ;,X=$O(LRCOM(999-LROR)),LRBATCH=$S(X>0:$L(LRCOM(X,1,1)),1:0) D EN^LRCENDEL G ONE2:LRBATCH
8 W !,"Cancel entire Order # ",LROR(LROR) S %=1,LRRND="",LRCOM(1,1)=0 D YN^DICN
9 ;
10 ;
11 S LRALL69=% ;-->198
12 I %=1 G ONE2
13 ;
14 ;
15MORE W !,?8,"entry",?15,"test",?40,"sample"
16 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)
17 I T=0 W !,"No tests" G NOMORE
18ONE R !,"Cancel which entry: ",LRIX:DTIME W:LRIX["?" !,"Enter 'all' or Pick one of the following entries:" G MORE:LRIX["?",NOMORE:LRIX["^"!(LRIX="")
19 S LRRND="" I LRIX="ALL" G ONE2
20 I LRIX'=+LRIX!(LRIX<1)!(LRIX>T) W !,"Enter a number between 1 and ",T G ONE
21 S LR1=1 D ZAP^LRPHITE1 K LR1 W !,LRORD G ONE
22ONE2 S LRIX=0 F S LRIX=$O(T(LRIX)) Q:LRIX<1 D ZAP^LRPHITE1
23 W:'LRNOP !,LRORD,?7,"Canceled" G NOMORE
24% R %:DTIME Q:%=""!(%["N")!(%["Y") W !,"Answer 'Y' or 'N': " G %
25NOMORE K LRNATURE Q
Note: See TracBrowser for help on using the repository browser.