Routine: LRDRAW

Package	Total	Call Graph
Lab Service	2	IO^LRWU (DD,PT,STAMP)^LRX
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Lab Service	5	LRDRAW LRNDLST LRNODRAW LRPHEXPT LRPHITEM

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEGIN
^DIC	LOOP+4, LALL
IO^LRWU	BEGIN
DD^LRX	GO+3
PT^LRX	PRNT+1
STAMP^LRX	GO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"List of Patients with Lab Orders",?40,"Order Date: "_$$FMTE^XLFDT(LRODT,""),! Line Location: GO+0
Function Call: WRITE	Prompt: ?2,"Date/Time Printed: "_$$FMTE^XLFDT($$NOW^XLFDT,""),! Line Location: GO+1
Function Call: WRITE	Prompt: @IOF,!,"LIST OF PATIENTS WITH LAB ORDERS ON",! Line Location: GO+4
Function Call: WRITE	Prompt: ! Line Location: GO+4
Function Call: WRITE	Prompt: !!,"REPORT EMPTY." Line Location: GO+8
Function Call: WRITE	Prompt: !,"Report Completed",! Line Location: GO+9
Function Call: WRITE	Prompt: !!,PNM,?30,SSN,?50,"ORDER NUMBER: ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):+^(.1),1:"?"),!,"LOCATION: ",LRLLOC,?50,$S(LRLWC="SP":"SEND PATIENT",LRLWC="WC":"WARD COLLECT",LRLWC="LC":"LAB COLLECT",1:"") Line Location: PRNT+2
Function Call: WRITE	Prompt: !!,PNM,?30,HRCN,?50,"ORDER NUMBER: ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):+^(.1),1:"?"),!,"LOCATION: ",LRLLOC,?50,$S(LRLWC="SP":"SEND PATIENT",LRLWC="WC":"WARD COLLECT",LRLWC="LC":"LAB COLLECT",1:"") Line Location: PRNT+3
Function Call: WRITE	Prompt: !,"TESTS: " Line Location: PRNT+4
Function Call: WRITE	Prompt: ?9,$P(^LAB(60,+X,0),U,1) Line Location: PRNT+4
Function Call: WRITE	Prompt: ?30," Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^") Condition for execution: $P(X,"^",11) Line Location: PRNT+4
Function Call: WRITE	Prompt: ! Line Location: PRNT+4
Function Call: WRITE	Prompt: !,$S($D(DIC("A")):DIC("A"),1:"Select PATIENT LOCATION: ") Line Location: LOOP+0
Function Call: READ	Prompt: "ALL// " Timeout: DTIME Variable: X Line Location: LOOP+1
Function Call: WRITE	Prompt: " Enter 2 - 30 alpha-numeric name" Line Location: LOOP+2
Function Call: WRITE	Prompt: !,"["_LRLLOC_"] is not a valid entry",$C(7),! Line Location: LOOP+7
Function Call: WRITE	Prompt: $E(Y,$L(LRLLOC)+1,$L(Y)) Line Location: SOME+1
Function Call: READ	Prompt: "Press ""^"" to quit " Formatting: ! Timeout: DTIME Variable: X Line Location: SOME+2
Function Call: WRITE	Prompt: !,?5,%,?9,Y Line Location: SOME+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SOME+3
Function Call: WRITE	Prompt: " ??",$C(7),! Line Location: SOME+4
Function Call: WRITE	Prompt: !,"YOU MAY ALSO CHOOSE FROM:" Line Location: LALL+1
Function Call: READ	Prompt: "Press ""^"" to quit " Formatting: ! Timeout: DTIME Variable: X Line Location: LALL+2
Function Call: WRITE	Prompt: !,?3,Y Line Location: LALL+2
Routine Call	DIC Line Location: LOOP+4 LALL

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PRNT+4
^LR - [#63]	PRNT+1
^LRO(69 - [#69]	GO+6, ORD, PRNT, PRNT+3, PRNT+4, LOOP+3, LOOP+6, LOOP+7, SOME, SOME+1 , SOME+2, LALL+1
^SC("C"	LALL+2
^VA(200 - [#200]	PRNT+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOOP+3!, LOOP+6!, SOME+1!, SOME+2!, SOME+3, SOME+4, SOME+5!, LALL+1, LALL+2, LEND!
%(	SOME+2*, SOME+5
>> %DT	BEGIN*
%ZIS	BEGIN*, END!
>> DFN	PRNT+1*
DIC	END!, LOOP+4!, LALL!
DIC("A"	LOOP
DIC("S"	LOOP+4, LALL
DIC(0	LOOP+4, LALL
DTIME	LOOP+1, SOME+2, SOME+3, LALL+2
DTOUT	LOOP+5!
DUOUT	LOOP+5!
HRCN	END+1!, PRNT+3
>> I	GO+6, PRNT+4
IO	GO+4
IOF	GO+4
LRDC	END!, GO+4, GO+8, PRNT
>> LRDDT	GO+3*
LRDFN	END!, PRNT*, PRNT+1
LRDPF	END!, PRNT+1*
LRIO	END!
LRIOZERO	END!
LRLLOC	BEGIN, END!, GO+6, GO+7, ORD, PRNT+3, LOOP, LOOP+1, LOOP+3, LOOP+6* , LOOP+7, SOME, SOME+1, SOME+2, SOME+5, LEND*
LRLWC	END!, PRNT*, PRNT+3
LRODT	BEGIN*, END!, GO+3, GO+6, ORD, PRNT, PRNT+3, PRNT+4, LOOP+3, LOOP+6 , LOOP+7, SOME, SOME+1, SOME+2, LALL+1
LRPGM	END!
LRSN	END!, ORD*, PRNT, PRNT+3, PRNT+4
LRTIME	END!
PNM	END!, PRNT+3
SSN	END!
U	BEGIN*, PRNT, PRNT+1, PRNT+4, LOOP+6
X	PRNT+4, LOOP+1, LOOP+2, LOOP+3!, LOOP+6!, SOME, SOME+1!, SOME+2, SOME+3, SOME+4 , SOME+5!, LALL, LALL+2, LEND!
Y	BEGIN, GO+3, LOOP+3!, LOOP+6!, SOME, SOME+1!, SOME+2, SOME+5!, LALL+1, LALL+2 , LEND!
Y(0	LOOP+6
Z	END!
>> ZTQUEUED	GO+4
>> ZTREQ	GO+4*
>> ZTRTN	BEGIN*

Customize PDF page

Package: Lab Service

Routine: LRDRAW

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LALL
BEGIN
END
LEND
PRNT
SOME
FNDLOC	;return a location from ^LRO(69,LRODT,1,"AC",LRLLOC,LRSN), from LRNODRQW, LRPHEXPT, LRPHITEM
GO	; S:$D(ZTQUEUED) ZTREQ="@" U IO S LRDC=0 W @IOF,!,"List of Patients with Lab Orders",?40,"Order Date: "_$$FMTE^XLFDT(LRODT,""),! ; W ?2,"Date/Time Printed: "_$$FMTE^XLFDT($$NOW^XLFDT,""),! ; ----- BEGIN IHS/OIT/MKK - LR5.21030 - Putting back IHS mods
ORD
LOOP