Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRPHITE3

LRPHITE3.m

Go to the documentation of this file.
  1. LRPHITE3 ;SLC/CJS/RWF-ITEMIZED LOGIN ;9/8/87 12:39
  1. ;;5.2T9;LR;**1018**;Nov 17, 2004
  1. ;;5.2;LAB SERVICE;**100,198,208,221**;Sep 27, 1994
  1. EXCEPT ;from LRPHEXPT, LRPHITEM
  1. K LRNATURE,LRCCOM,LRCOM0
  1. N LRORD,LRODT
  1. S LRNOP=0,LRORD=LROR(LROR),LRODT=DT D LOOK^LRCENDEL Q
  1. ;,X=$O(LRCOM(999-LROR)),LRBATCH=$S(X>0:$L(LRCOM(X,1,1)),1:0) D EN^LRCENDEL G ONE2:LRBATCH
  1. W !,"Cancel entire Order # ",LROR(LROR) S %=1,LRRND="",LRCOM(1,1)=0 D YN^DICN
  1. ;
  1. ;
  1. S LRALL69=% ;-->198
  1. I %=1 G ONE2
  1. ;
  1. ;
  1. MORE W !,?8,"entry",?15,"test",?40,"sample"
  1. 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)
  1. I T=0 W !,"No tests" G NOMORE
  1. ONE R !,"Cancel which entry: ",LRIX:DTIME W:LRIX["?" !,"Enter 'all' or Pick one of the following entries:" G MORE:LRIX["?",NOMORE:LRIX["^"!(LRIX="")
  1. S LRRND="" I LRIX="ALL" G ONE2
  1. I LRIX'=+LRIX!(LRIX<1)!(LRIX>T) W !,"Enter a number between 1 and ",T G ONE
  1. S LR1=1 D ZAP^LRPHITE1 K LR1 W !,LRORD G ONE
  1. ONE2 S LRIX=0 F S LRIX=$O(T(LRIX)) Q:LRIX<1 D ZAP^LRPHITE1
  1. W:'LRNOP !,LRORD,?7,"Canceled" G NOMORE
  1. % R %:DTIME Q:%=""!(%["N")!(%["Y") W !,"Answer 'Y' or 'N': " G %
  1. NOMORE K LRNATURE Q