Routine: LRWRKIN1

Package	Total	Call Graph
Kernel	2	^%ZISC $$FMTE^XLFDT
VA Fileman	2	Y^DIQ ^DIR
Lab Service	1	(DASH,EQUALS,PT)^LRX
Registration	1	KVA^VADPT

Package	Total	Caller Graph
Lab Service	1	LRWRKINC

Entry Points

Name	Comments	DBIA/ICR reference
LREND	; EP
LST1	;EP - from LRWRKINC
CHKAA	; EP - Check if user wants to use criteria from another chosen area.
HED	; EP - Print header
X	;EP - from LRWRKINC
WAIT	;EP - from LRWRKINC

External References

Name	Field # of Occurrence
^%ZISC	LREND+3
Y^DIQ	X+37
^DIR	WAIT+3, CHKAA+22
DASH^LRX	HED+30
EQUALS^LRX	X+11
PT^LRX	LST1+6
KVA^VADPT	LREND+4
$$FMTE^XLFDT	LST1+7, LST1+9, LST1+10, CHKAA+12, CHKAA+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?LRCL,SSN Line Location: X+20
Function Call: WRITE	Prompt: ?LRCL,HRCN Line Location: X+30
Function Call: WRITE	Prompt: ?LRCL,$E(PNM,1,19) Line Location: X+32
Function Call: WRITE	Prompt: ?LRCL,$S('LREXD&(IOM'<120):$E(LRST,1,15),1:$E(LRST,1,30)) Line Location: X+33
Function Call: WRITE	Prompt: ?82,SSN Line Location: X+38
Function Call: WRITE	Prompt: ?82,HRCN Line Location: X+40
Function Call: WRITE	Prompt: !,?23,$P(A,"^") Line Location: X+43
Function Call: WRITE	Prompt: ?48,$E(Y,1,16) Line Location: X+44
Function Call: WRITE	Prompt: ?67,$P(A,"^",5) Line Location: X+45
Function Call: WRITE	Prompt: ?82,HRCN Line Location: X+46
Function Call: WRITE	Prompt: ! Condition for execution: IOM<120 Line Location: X+48
Function Call: WRITE	Prompt: ?LRCL,LRMAN Line Location: X+48
Function Call: WRITE	Prompt: @IOF Line Location: HED+1
Function Call: WRITE	Prompt: "INCOMPLETE STATUS REPORT * NOT FOR WARD USE *",?(IOM-16),LRDT Line Location: HED+3
Function Call: WRITE	Prompt: !,"Accession Area(s):",?(IOM-10),"Page: ",LRPAGE Line Location: HED+4
Function Call: WRITE	Prompt: !,LRNAME(LRINDEX) Line Location: HED+6
Function Call: WRITE	Prompt: !!,"Test",?23,"Urgency",?34,"Accession",?48,"Date/time",?65,"Location" Line Location: HED+7
Function Call: WRITE	Prompt: !!,"Test" Line Location: HED+9
Function Call: WRITE	Prompt: ?23,"Urgency" Line Location: HED+10
Function Call: WRITE	Prompt: ?34,"Accession" Line Location: HED+11
Function Call: WRITE	Prompt: ?48,"Date/time" Line Location: HED+12
Function Call: WRITE	Prompt: ?67,"Location" Line Location: HED+13
Function Call: WRITE	Prompt: ?LRCL,"SSN" Line Location: HED+18
Function Call: WRITE	Prompt: ?LRCL,"HCRN" Line Location: HED+20
Function Call: WRITE	Prompt: ?LRCL,"Patient" Line Location: HED+22
Function Call: WRITE	Prompt: ?LRCL,"Status" Line Location: HED+23
Function Call: WRITE	Prompt: !,?23,"UID",?48,"Sending Site",?65,"Sender's UID" Line Location: HED+24
Function Call: WRITE	Prompt: ?82,"SSN" Line Location: HED+25
Function Call: WRITE	Prompt: ?82,"HCRN" Line Location: HED+27
Function Call: WRITE	Prompt: ! Condition for execution: IOM<120 Line Location: HED+29
Function Call: WRITE	Prompt: ?LRCL,"Shipping Manifest" Line Location: HED+29
Function Call: WRITE	Prompt: ! Line Location: HED+31
Function Call: WRITE	Prompt: @IOF Line Location: LREND+1
Function Call: WRITE	Prompt: ! Line Location: CHKAA+22
Routine Call	DIR Line Location: WAIT+3 CHKAA+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(68.02	X+37
^LR - [#63]	LST1+5
^LRO(68 - [#68]	LST1+2, LST1+3, LST1+4, LST1+8
^TMP("LRWRKINC"	LREND+13!, CHKAA+3, CHKAA+5, CHKAA+6, CHKAA+7
^TMP($J	X+3, X+5, X+7, X+9, X+17, X+36, LREND+13!

Label References

Name	Line Occurrences
HED	X+13
WAIT	X+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LREND+5!
%DT	LREND+5!
%X	LREND+5!
%Y	LREND+5!
%ZIS	LREND+5!
A	X+35~, X+36*, X+37, X+43, X+45, LREND+5!
AGE	LREND+5!
B	LREND+5!
C	X+37*, LREND+5!
DFN	LST1+6*, LREND+5!
DIC	LREND+5!
DICS	LREND+5!
DIR	WAIT+2~, CHKAA+1~
DIR("?"	CHKAA+20, CHKAA+21
DIR("A"	CHKAA+15, CHKAA+16, CHKAA+18, CHKAA+19*
DIR(0	WAIT+3, CHKAA+17
DIRUT	WAIT+2~, WAIT+4, CHKAA+1~, CHKAA+23
DOB	LREND+5!
DTOUT	WAIT+2~, CHKAA+1~, CHKAA+24
DUOUT	WAIT+2~, CHKAA+1~, CHKAA+24
>> HRCN	X+17*, X+30, X+46
I	LREND+5!
IOF	HED+1, LREND+1
IOM	X+30, X+32, X+33, X+46, X+48, HED+3, HED+4, HED+16, HED+17, HED+20 , HED+22, HED+23, HED+27, HED+29
IOSL	X+10
IOST	X+12, HED+1, WAIT+1, LREND+1
J	X+4, X+14, X+49, LREND+5!
K	LREND+5!
L	LREND+5!
LA	LREND+10!
LAST	LREND+5!
LRAA	LST1+2, LST1+3, LST1+4, LST1+8, LREND+8!, CHKAA+10
LRAA(0	CHKAA+9, CHKAA+21
LRACC	LST1+4*, X+1~, LREND+8!
LRACCN	X+1~, X+6, X+7, X+9, X+17, X+26, X+36
LRACO	LST1+8*, LREND+7!
LRAD	LST1+2, LST1+3, LST1+4, LST1+8, LREND+8!
LRAN	LST1+2, LST1+3, LST1+4, LST1+8, X+1~, X+8, X+9, X+17, X+26, X+36 , LREND+8!
LRCE	LST1+3*, LREND+8!
LRCL	X+30, X+32, X+33, X+48, HED+16, HED+20, HED+22, HED+23, HED+29, LREND+11!
LRCNT	LREND+6!
LRCOLL	X+17*, X+27, LREND+7!
LRCUTOFF	LREND+6!
LRDAT	LREND+10!
LRDFN	LREND+11!
LRDLA	LST1+8, LST1+10, LREND+6!
LRDLC	LST1+1, LST1+9, LREND+6!
LRDPF	LST1+6*, LREND+8!
LRDT	HED+3, LREND+10!
LRDTO	LST1+1, LST1+7, LREND+8!
LRDX	LST1+2*, LST1+5, LST1+7, LREND+6!
LRDX(0	LST1+5*, LST1+6
LREDT	LREND+11!
LREND	X+2, X+3, X+5, X+7, X+9, X+10, X+12, X+49, WAIT+4, LREND+10! , CHKAA+24*
LREXD	X+30, X+32, X+33, X+34, HED+20, HED+22, HED+23, HED+24, HED+27, HED+29 , LREND+10!
LREXNREQ	LREND+9!
LREXTST	LREND+10!
LRFAN	LREND+10!, CHKAA+1~, CHKAA+11*, CHKAA+13
LRFI	LREND+10!
LRINDEX	HED+5, HED+6, LREND+8!, CHKAA+1~, CHKAA+2, CHKAA+14, CHKAA+15, CHKAA+17, CHKAA+18
LRINDEX(	CHKAA+14*, CHKAA+23
LRIOZERO	LREND+11!
LRIX	LREND+10!
LRLAN	LREND+10!, CHKAA+11*, CHKAA+13
LRLAST	CHKAA+1~, CHKAA+11*, CHKAA+12, CHKAA+13
LRLLOC	X+17*, X+28, LREND+11!
LRLO69	LREND+6!
LRMAN	X+17*, X+48, LREND+10!
LRNAC	LREND+8!
LRNAME	LREND+10!
LRNAME(	HED+6
LRNOCNTL	LREND+10!
LRPAGE	HED+1, HED+2*, HED+4, LREND+9!
LRPRAC	LREND+9!
LRRB	LREND+7!
LRSAMP	LREND+6!
LRSDT	LREND+11!
LRSN	LREND+8!
LRSORTBY	X+24, LREND+9!
LRSPEC	LREND+7!
LRST	X+17*, X+33, LREND+11!
LRSTAR	LREND+9!, CHKAA+1~, CHKAA+11*, CHKAA+12
LRTK	LREND+11!
LRTREA	LREND+7!
LRTSE	LREND+11!
LRTSTN	X+1~, X+2, X+3, X+5, X+7, X+9, X+17, X+24, X+36
LRU	X+5*, X+25, LREND+11!
LRUR	X+1~, X+4, X+5, X+7, X+9, X+17, X+36
LRURG	LREND+7!
LRURG(	X+5
>> LRUSEAA	CHKAA+2, CHKAA+23
LRVERVER	LREND+11!
LRWDTL	LREND+11!
LRWRD	LREND+7!
LRX	LREND+9!, LREND+12!, CHKAA+1~, CHKAA+2, CHKAA+3, CHKAA+5, CHKAA+6, CHKAA+7, CHKAA+10, CHKAA+14
LRY	LREND+12!, CHKAA+1~, CHKAA+8, CHKAA+12, CHKAA+13*, CHKAA+15
LRZ	LREND+12!, CHKAA+1~, CHKAA+2, CHKAA+4, CHKAA+5*, CHKAA+6, CHKAA+7, CHKAA+14
LRZ(0	CHKAA+6*, CHKAA+9, CHKAA+15
LRZ(1	CHKAA+7*, CHKAA+11
PNM	X+17*, X+32, LREND+5!
POP	LREND+5!
SEX	LREND+5!
SSN	LREND+5!
U	LST1+6, LST1+7, LST1+8, LST1+9, X+17
W	X+17*, LREND+5!
X	WAIT+2~, LREND+5!, CHKAA+1~
X1	LREND+5!
X2	LREND+5!
Y	LST1+8, LST1+9, X+37, X+44, WAIT+2~, LREND+5!, CHKAA+1~, CHKAA+23
Z	LREND+5!
>> ZTQUEUED	LREND+2
>> ZTREQ	LREND+2*
ZTSK	LREND+5!

Customize PDF page

Package: Lab Service

Routine: LRWRKIN1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: