Routine: LRUTW

Package	Total	Call Graph
Kernel	1	^%ZIS
Lab Service	1	V^LRU
VA Fileman	1	^DIC

Package	Total	Caller Graph
Lab Service	1	LREV

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LRUTW+5
^DIC	ASK
V^LRU	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LRUTW+5
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,LRIFN,5,X,0),U,1) Line Location: ASK+1
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,+^LAB(60,LRIFN,2,X,0),0),U,1) Line Location: ASK+2
Function Call: WRITE	Prompt: !,^LAB(60,LRIFN,6,M,0) Line Location: ASK+4
Function Call: WRITE	Prompt: !! Line Location: ASK+6
Function Call: WRITE	Prompt: ! Condition for execution: A>1 Line Location: SHOW+1
Function Call: WRITE	Prompt: !,$S($L($P(LRCSREC,U)):$E($P(LRCSREC,U),1,20),1:"??") Line Location: SHOW+1
Function Call: WRITE	Prompt: ?21,$E($P(LRND,U,2),1,15),?37,$E($P(LRCSREC,U,3),1,30) Line Location: SHOW+2
Function Call: WRITE	Prompt: ?68,$E($P(LRND,U,4),1,12) Line Location: SHOW+3
Function Call: WRITE	Prompt: !,^LAB(60,LRIFN,3,N,1,M,0) Line Location: SHOW+5
Function Call: WRITE	Prompt: !!,"Lab Processing Instructions:" Condition for execution: C=1 Line Location: LAB+0
Function Call: WRITE	Prompt: !,^LAB(60,LRIFN,3,N,2,M,0) Line Location: LAB+0
Function Call: WRITE	Prompt: !,$E($P(^LAB(61,N,0),U),1,19) Line Location: LST+0
Function Call: WRITE	Prompt: !,?10,"Therapeutic low: ",$P(P,U,11),?37,"Therapeutic high: ",$P(P,U,12) Line Location: LST+2
Function Call: WRITE	Prompt: !,^(X,0) Line Location: LST+3
Function Call: WRITE	Prompt: !,"Tests in panel: " Line Location: PANEL+0
Function Call: WRITE	Prompt: @IOF,"Lab test",?20,"Highest allowed urgency Cost",! Line Location: HDR+0
Function Call: WRITE	Prompt: $E($P(Y(0),U,1),1,26),?28,$S($P(Y(0),U,16):$E($P(^LAB(62.05,$P(Y(0),U,16),0),U,1),1,14),1:"any"),?45,$P(Y(0),U,11) Line Location: HDR+1
Function Call: READ	Prompt: "Press any key to continue " Formatting: ! Timeout: DTIME Variable: % Line Location: HOLD+0
Function Call: WRITE	Prompt: !,"Collection Sample",?21,"Lab Slip",?37,"Container",?68,"Vol Req(ml)" Line Location: COL+1
Function Call: WRITE	Prompt: !,"Ward Instructions:" Line Location: WARD+0
Function Call: WRITE	Prompt: !,"Synonym:" Line Location: SYN+0
Routine Call	DIC Line Location: ASK
Routine Call	%ZIS Line Location: LRUTW+5

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+4, SHOW+5, NORM, LST , LST+3
^LAB(61 - [#61]	LST
^LAB(62 - [#62]	SHOW
^LAB(62.05 - [#62.05]	HDR+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HOLD*
>> A	LIST, SHOW+1, NORM
AGE	LRUTW+4~, LRUTW+5*
>> B	SHOW+5*
DIC	ASK*!
DIC("S"	ASK*
DIC(0	ASK*
DTIME	HOLD
IOF	LRUTW+5, HDR
>> IOP	LRUTW+5*
LRCSREC	LRUTW+4~, SHOW*, SHOW+1, SHOW+2
>> LRIFN	ASK*, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+4, SHOW+5, NORM , LST, LST+3
>> LRND	LIST*, SHOW, SHOW+2, SHOW+3
>> M	ASK+4, SHOW+5
N	LRUTW+4~, LIST, SHOW+4, SHOW+5, NORM, LST, LST+3
>> P	LST*, LST+1, LST+2
SEX	LRUTW+4~, LRUTW+5*
U	ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+1, SHOW+2, SHOW+3 , SHOW+5, LST, LST+1, LST+2, HDR+1
>> X	ASK, ASK+1, ASK+2, LST+3*
>> Y	ASK
>> Y(0	HDR+1

Customize PDF page

Package: Lab Service

Routine: LRUTW

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
HDR
SHOW
LIST
COLL
LAB	;S M=0 F C=1:1 S M=$O(^LAB(60,LRIFN,3,N,2,M)) Q:'M W:C=1 !!,"Lab Processing Instructions:" W !,^LAB(60,LRIFN,3,N,2,M,0)
SYN
LST
ASK
WARD
HOLD
COL	;W !,"Collection Sample",?21,"VA Lab Slip",?37,"Container",?68,"Vol Req(ml)" Q
NORM
PANEL

Name	Line Occurrences
ASK	ASK+6
COL	LIST, COLL
COLL	LIST
END	ASK
HDR	ASK+1, HOLD
HOLD	PANEL, COLL, WARD, SYN
LIST	ASK+5
LST	NORM
NORM	ASK+3
PANEL	ASK+2
SHOW	LIST
SYN	ASK+1
WARD	ASK+4, SHOW+5