Routine: LRNODRAW

Information

LRNODRAW ;SLC/CJS - PRINT LIST OF NON-DRAW ORDERS ;8/11/97 [ 04/14/2003 10:42 AM ]

Package	Total	Caller Graph
Lab Service	1	LRNODRAW

Name	Comments	DBIA/ICR reference
EN
END	;K J,%DT,%,A,I,K,LRDC,LRSN,X,Y,Z,DIC,%ZIS,LRBECAUS,LRCOMB,LRODT,LRLLOC,LRPGM,LRIO,LRTIME,%H,%X,%Y,DFN,LRDFN,LRDPF,LRIOZERO,LRLWC,PNM,POP,SSN Q
PRNT	;
PRN	;
GO
ORD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10," You may enter 'ALL' as a response",! Line Location: LRNODRAW+3
Function Call: READ	Timeout: DTIME Variable: % Line Location: END+4
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: END+4
Function Call: WRITE	Prompt: @IOF,!,"LIST OF PATIENT LAB ORDERS NOT DRAWN "_Y Line Location: GO+0
Function Call: WRITE	Prompt: ?60,Y Line Location: GO+0
Function Call: WRITE	Prompt: !,"REPORT EMPTY" Line Location: GO+3
Function Call: WRITE	Prompt: !,"Finished",! Line Location: GO+4
Function Call: WRITE	Prompt: !!,PNM,?40,HRCN,!,"LOCATION: ",LRLLOC,?30,"NON-DRAW",?40,"Order: ",^LRO(69,LRODT,1,LRSN,.1) Line Location: PRN+4
Function Call: WRITE	Prompt: !,"TESTS: " Line Location: PRN+6
Function Call: WRITE	Prompt: ?9,$P(^LAB(60,+X,0),U) Line Location: PRN+9
Function Call: WRITE	Prompt: " Accessioned "_Y Line Location: PRN+10
Function Call: WRITE	Prompt: !?9,"COMBINED WITH ORDER # "_LRCOMB Line Location: PRN+11
Function Call: WRITE	Prompt: !?9,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^") Line Location: PRN+12
Function Call: WRITE	Prompt: ! Line Location: PRN+13
Routine Call	%ZIS Line Location: LRNODRAW+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PRN+8, PRN+9
^LR - [#63]	PRN+1
^LRO(69 - [#69]	GO+1, ORD, PRNT+1, PRNT+2, PRNT+3, PRNT+4, PRNT+5, PRNT+6, PRNT+7, PRN+4 , PRN+7
^VA(200 - [#200]	PRN+12

Name	Field # of Occurrence
%	END+2!, %*
%DT	LRNODRAW+3, END+2!, GO
%H	END+2!
%X	END+2!
%Y	END+2!
%ZIS	LRNODRAW+3, LRNODRAW+4, END+2!
A	END+2!
DFN	END+2!, PRN+1*
DIC	END+2!
DTIME	%
>> DTOUT	%*
HRCN	END+2!, PRN+4
I	END+2!, GO+1, PRN+6, PRN+7*
IO	LRNODRAW+4
IO("Q"	LRNODRAW+5!
IO(0	LRNODRAW+4
IOF	GO
J	END+2!
K	END+2!
LRBECAUS	END+2!, PRNT+5, PRNT+6, PRNT+7*, PRN+14
LRCOMB	END+2!, PRN+7*, PRN+11
LRDC	END+2!, GO, GO+3, ORD
LRDFN	END+2!, PRNT+4*, PRN+1
LRDPF	END+2!, PRN+1*
LRIO	END+2!
LRIOZERO	END+2!
LRLLOC	LRNODRAW+3, END+2!, GO+1, GO+2, ORD, PRN+4
LRLWC	END+2!
LRODT	LRNODRAW+3*, END+2!, GO, GO+1, ORD, PRNT+1, PRNT+2, PRNT+3, PRNT+4, PRNT+5 , PRNT+6, PRNT+7, PRN+4, PRN+7
LRPGM	END+2!
LRSN	END+2!, ORD*, PRNT+1, PRNT+2, PRNT+3, PRNT+4, PRNT+5, PRNT+6, PRNT+7, PRN+4 , PRN+7
LRTIME	END+2!
PNM	END+2!, PRN+4
POP	LRNODRAW+4, END+2!
SSN	END+2!
U	LRNODRAW+3*, PRNT+1, PRNT+2, PRNT+3, PRNT+5, PRNT+6, PRNT+7, PRN+1, PRN+7, PRN+9
X	END+2!, GO, PRN+7, PRN+8, PRN+9, PRN+12
Y	LRNODRAW+3, END+2!, GO, PRN+7, PRN+10
Z	END+2!
ZTDTH	LRNODRAW+5*!
ZTIO	LRNODRAW+5!
>> ZTQUEUED	EN
>> ZTREQ	EN*
ZTRTN	LRNODRAW+5*!
ZTSAVE	LRNODRAW+5!
ZTSAVE("L*"	LRNODRAW+5*
ZTSK	LRNODRAW+5!