Routine: LRRP5

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC ^DIR
Lab Service	2	PRINT^LRRP5A ($$Y2K,PT)^LRX

Package	Total	Caller Graph
Lab Service	1	LRRP5

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
CNTSUM	;
PROCESS	;For ea. specimen on date selected ; If collection type = requested type ; Get patient name & SSN,order#,collection sample & ordering location ; Store by patient,ssn,order#,collection sample
REPTYP	;
DEVICE	;
INIT	;
PAUSE	;
QUE	;
WRAPUP	;
DATE	;
DQ	;

External References

Name	Field # of Occurrence
^%DT	DATE+2
^%ZIS	DEVICE+1
HOME^%ZIS	QUE+6
^%ZISC	WRAPUP+2
^%ZTLOAD	QUE+3
^DIC	PROCESS+10, PROCESS+21, PROCESS+24, PROCESS+39, PROCESS+43
^DIR	EN+4, REPTYP+3, PAUSE+1
PRINT^LRRP5A	DQ+4
$$Y2K^LRX	DATE+3, INIT+2
PT^LRX	PROCESS+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REPORT selection: " Line Location: REPTYP+1
Routine Call	%ZIS Line Location: QUE+6
Routine Call	DIC Line Location: PROCESS+10 PROCESS+21 PROCESS+24 PROCESS+39 PROCESS+43
Routine Call	DIR Line Location: EN+4 REPTYP+3 PAUSE+1
Routine Call	%ZIS Line Location: DEVICE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PROCESS+40
^LRO(69 - [#69]	PROCESS+5, PROCESS+6, PROCESS+17, PROCESS+18, PROCESS+20, PROCESS+37, PROCESS+38
^TMP($J	INIT+1!, PROCESS+28, PROCESS+31, PROCESS+32, PROCESS+45, PROCESS+46, CNTSUM+3, CNTSUM+5, CNTSUM+7, CNTSUM+8 , CNTSUM+13, CNTSUM+14*, WRAPUP+3!

Label References

Name	Line Occurrences
CNTSUM	DQ+3
INIT	DQ+1
PAUSE	WRAPUP+1
PROCESS	DQ+2
QUE	DEVICE+3
WRAPUP	EN+5, DATE+2, REPTYP+4, DEVICE+2, DEVICE+3, DQ+5

Naked Globals

Name	Field # of Occurrence
^(0	CNTSUM+13*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	WRAPUP+4!
%DT	DATE+1*, WRAPUP+4!
%DT("A"	DATE+1*
%Y	WRAPUP+4!
%ZIS	DEVICE+1*, WRAPUP+4!
AGE	WRAPUP+10!
DFN	PROCESS+11*, WRAPUP+4!
DIC	PROCESS+10, PROCESS+21, PROCESS+24, PROCESS+39, PROCESS+43*, WRAPUP+4!
DIC(0	PROCESS+10, PROCESS+21, PROCESS+24, PROCESS+39, PROCESS+43*
DIR	REPTYP+2!, PAUSE+1!, WRAPUP+7!
DIR("A"	EN+2*
DIR("B"	EN+3*
DIR(0	EN+2, REPTYP+2, PAUSE+1*
DIROUT	WRAPUP+4!
DIRUT	EN+5, PAUSE+2, WRAPUP+4!
DOB	WRAPUP+10!
DT	INIT+2
DTOUT	EN+5, REPTYP+4, PAUSE+2, WRAPUP+4!
DUOUT	EN+5, REPTYP+4, PAUSE+2, WRAPUP+4!
HRCN	PROCESS+14, WRAPUP+7!
I	WRAPUP+4!
IO	INIT+1
IO("Q"	DEVICE+1!, DEVICE+3, QUE+1!
IOF	WRAPUP+2
ION	QUE+1
IOP	DEVICE+1!
IOST	WRAPUP+1
LRBLANK	WRAPUP+11!
LRBUF	WRAPUP+11!
LRC	CNTSUM+1~, CNTSUM+11*, CNTSUM+12
LRCLCTD	PROCESS+18, PROCESS+26, PROCESS+27, PROCESS+30*, PROCESS+46, WRAPUP+3!
>> LRCS	PROCESS+20*, PROCESS+21
LRCS1	PROCESS+22*, PROCESS+32, PROCESS+45, PROCESS+46, WRAPUP+11!
LRCS3	WRAPUP+11!
LRCTYP	PROCESS+7*, PROCESS+8, WRAPUP+7!
LRDAT	INIT+2*, WRAPUP+7!
LRDFN	PROCESS+7*, PROCESS+8, PROCESS+10, WRAPUP+9!
LRDPF	PROCESS+11*, WRAPUP+9!
LRDUMY	WRAPUP+7!
LREND	EN+1, EN+5, DATE+2, REPTYP+4, DEVICE+2, DEVICE+3, INIT+2, PAUSE+2, WRAPUP+1, WRAPUP+10!
LRIFN	PROCESS+40*, WRAPUP+7!
LRLCNT	WRAPUP+11!
LRLOC	PROCESS+7, PROCESS+8, PROCESS+24, PROCESS+25, PROCESS+28, PROCESS+31, PROCESS+46, CNTSUM+1~, CNTSUM+2, CNTSUM+3 , CNTSUM+5, CNTSUM+7, CNTSUM+8, CNTSUM+13, CNTSUM+14, WRAPUP+9!
LRODAT	DATE+3*, WRAPUP+7!
LRODT	DATE+3*, PROCESS+5, PROCESS+6, PROCESS+17, PROCESS+18, PROCESS+20, PROCESS+37, PROCESS+38, WRAPUP+9!
LRORD	PROCESS+17*, PROCESS+32, PROCESS+45, PROCESS+46, WRAPUP+9!
LRP	CNTSUM+1~, CNTSUM+12*, CNTSUM+13
LRPAG	INIT+2*, WRAPUP+7!
LRPAT	PROCESS+14, PROCESS+28, PROCESS+31, PROCESS+32, PROCESS+45, PROCESS+46, CNTSUM+1~, CNTSUM+4, CNTSUM+5*, CNTSUM+7 , CNTSUM+8, WRAPUP+9!
LRPATCNT	CNTSUM+4, CNTSUM+10, CNTSUM+14, WRAPUP+3!
LRPNAM	PROCESS+40*, PROCESS+41, WRAPUP+10!
LRRCNAM	EN+6*, WRAPUP+7!
LRRCTYP	EN+6*, PROCESS+8, WRAPUP+7!
LRREC	PROCESS+6, PROCESS+7, PROCESS+38, PROCESS+39, PROCESS+43, CNTSUM+1~, CNTSUM+8*, CNTSUM+9, CNTSUM+11, WRAPUP+9!
LRRPT	REPTYP+5*, WRAPUP+11!
LRSN	PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+17, PROCESS+18, PROCESS+20, PROCESS+37, PROCESS+38, WRAPUP+10!
LRSPC	WRAPUP+10!
LRSSN	PROCESS+14, PROCESS+28, PROCESS+31, PROCESS+32, PROCESS+45, PROCESS+46, CNTSUM+1~, CNTSUM+6, CNTSUM+7*, CNTSUM+8 , WRAPUP+9!
LRTAB	WRAPUP+3!
LRTGLNAM	WRAPUP+3!
LRTGLORD	WRAPUP+3!
LRTN	PROCESS+36, PROCESS+37, PROCESS+38, WRAPUP+9!
LRTNN	PROCESS+32, PROCESS+45, PROCESS+46, WRAPUP+3!
LRTST	PROCESS+40, PROCESS+41, PROCESS+42, PROCESS+44, PROCESS+45, WRAPUP+9!
LRU	CNTSUM+1~, CNTSUM+11*, CNTSUM+12
LRURG	WRAPUP+9!
LRWRD	WRAPUP+9!
PNM	PROCESS+11, PROCESS+14, WRAPUP+7!
PO	WRAPUP+4!
>> POP	DEVICE+2
SEX	WRAPUP+10!
SSN	WRAPUP+7!
U	DATE+2, PROCESS+7, PROCESS+11, PROCESS+18, PROCESS+20, PROCESS+22, PROCESS+25, PROCESS+28, PROCESS+31, PROCESS+39 , PROCESS+40, PROCESS+43, PROCESS+44, PROCESS+46, CNTSUM+11, CNTSUM+13, CNTSUM+14
VA	WRAPUP+4!
VADM	WRAPUP+4!
VAERR	WRAPUP+4!
X	DATE+2, REPTYP+2!, REPTYP+5, PROCESS+10, PROCESS+21, PROCESS+24, PROCESS+39, PROCESS+43*, WRAPUP+4!
Y	EN+6, DATE+3, REPTYP+2!, PROCESS+10, PROCESS+21, PROCESS+24, PROCESS+25, PROCESS+39, PROCESS+40, PROCESS+43 , PROCESS+44, WRAPUP+4!
Y(0	EN+6, PROCESS+11, PROCESS+22, PROCESS+25
ZTDESC	WRAPUP+10!, QUE+2*
ZTIO	WRAPUP+10!, QUE+1*
ZTQUEUED	INIT+1, WRAPUP+2, WRAPUP+10!
ZTREQ	INIT+1*, WRAPUP+11!
ZTRTN	WRAPUP+10!, QUE+2*
ZTSAVE	WRAPUP+10!
ZTSAVE("LR*"	QUE+3*
>> ZTSK	QUE+4, QUE+5

Customize PDF page

Package: Lab Service

Routine: LRRP5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: