Routine: LREPIRS

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Lab Service	1	LREPI GENERATE REPORT/SP

Entry Points

Name	Comments	DBIA/ICR reference
LOCALL	;SELECT ALL LOCAL PATHOGENS
CHK	;CHECK TO SEE IF ITS OK
TASK	;LETS TASK THIS JOB
TITLE
PICKALL	;SELECT ALL ASSOCIATED PARAMETERS
ALL
SEG	;CHOOSE SEGMENTS FOR SPREADSHEET
EXIT	;
DATE	;Select Search Date
CRI
RORS	;REPORT OR SPREADSHEET

External References

Name	Field # of Occurrence
NOW^%DTC	LREPIRS+5
HOME^%ZIS	TITLE+5
^%ZTLOAD	TASK+8
^DIR	CRI+11, DATE+3, DATE+8, RORS+3, TITLE+2, ALL+3, SEG+10, SEG+31, SEG+45, SEG+56 , SEG+65, SEG+77, SEG+93

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?(IOM/2-15),"Laboratory Generate Local Report/Spreadsheet option" Line Location: LREPIRS+9
Function Call: WRITE	Prompt: !,"Sorry No Pathogens Selected" Line Location: CRI+15
Function Call: WRITE	Prompt: !! Line Location: RORS+6
Function Call: WRITE	Prompt: !! Line Location: TASK+2
Function Call: WRITE	Prompt: @IOF,!!,"The Task has been queued",!,"Task # ",$G(ZTSK) Line Location: TASK+9
Function Call: WRITE	Prompt: !,"Choose the segments to capture for ",$S(LRREP=1:"report.",1:"spreadsheet.") Line Location: SEG+1
Function Call: WRITE	Prompt: !,"1-PID" Line Location: SEG+2
Function Call: WRITE	Prompt: !,"2-PV1" Line Location: SEG+3
Function Call: WRITE	Prompt: !,"3-DG1" Line Location: SEG+4
Function Call: WRITE	Prompt: !,"4-NTE" Line Location: SEG+5
Function Call: WRITE	Prompt: !,"5-OBR" Line Location: SEG+6
Function Call: WRITE	Prompt: !,"6-OBX" Line Location: SEG+7
Routine Call	%ZIS Line Location: TITLE+5
Routine Call	DIR Line Location: CRI+11 DATE+3 DATE+8 RORS+3 TITLE+2 ALL+3 SEG+10 SEG+31 SEG+45 SEG+56 SEG+65 SEG+77 SEG+93

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.5 - [#69.5]	PICKALL+1, LOCALL+1, CHK+1, CHK+3, CHK+4, CHK+5, CHK+6
^ORD(101 - [#101]	LREPIRS+8, CHK+5
^TMP($J	EXIT+6!
^XTMP("LREPI"	TITLE+4*
^XTMP("LREPILOCALREP"	RORS+7
^XTMP("LREPILOCALSPSHT"	RORS+9

Label References

Name	Line Occurrences
ALL	CRI, CRI+3
CHK	PICKALL+1, LOCALL+1
CRI	CRI+3, CRI+14, DATE+4
DATE	CRI+2, CRI+5, DATE+9, RORS+4
EXIT	CRI, CRI+15, RORS+7, RORS+9
LOCALL	CRI+5
PICKALL	CRI+2
RORS	RORS+11, TITLE+3
SEG	RORS+11
TASK	TITLE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LREPIRS+6
%DT	EXIT+3!
D0	EXIT+1!
DIR	CRI+1!, CRI+4!, DATE+1!, DATE+6!, RORS+1!, TITLE!, EXIT+5!, ALL!, SEG+8!, SEG+29! , SEG+43!, SEG+54!, SEG+63!, SEG+75!, SEG+91!
DIR("?"	ALL+2*
DIR("A"	CRI+9, DATE+2, DATE+7, TITLE+1, ALL+1*
DIR("B"	ALL+1*
DIR("S"	CRI+10*
DIR(0	CRI+9, DATE+3, DATE+8, RORS+2, TITLE+1, ALL+1, SEG+9, SEG+30, SEG+44, SEG+55 , SEG+64, SEG+76, SEG+92*
DIROUT	CRI+1!, CRI+4!, CRI+14, EXIT+5!
DIRUT	CRI, CRI+1!, CRI+3, CRI+4!, CRI+8, CRI+12, DATE+1!, DATE+4, DATE+6!, DATE+9 , RORS+1!, RORS+4, RORS+11, TITLE!, TITLE+3, EXIT+5!, ALL!, SEG+8!, SEG+11, SEG+29! , SEG+32, SEG+43!, SEG+46, SEG+54!, SEG+57, SEG+63!, SEG+66, SEG+75!, SEG+78, SEG+91! , SEG+94
DT	DATE+3, DATE+8, TASK+5
DTOUT	CRI+1!, CRI+4!, CRI+14, EXIT+5!
DUOUT	CRI+1!, CRI+4!, CRI+14, EXIT+5!
DUZ	TASK+3
I	EXIT+5!, SEG+33, SEG+47, SEG+58, SEG+67, SEG+79, SEG+95
IOF	LREPIRS+9, CRI+7, TASK+9
IOM	LREPIRS+9
J	EXIT+1!
LRALL	CRI+2, CRI+5, CRI+6, EXIT+1!, ALL+4*
LRAUTO	EXIT+1!
LRBEG	EXIT+1!
LRCYCLE	CRI!, EXIT+1!, CHK+1*, CHK+6
LRDT	EXIT+1!
LRDUZ	EXIT+2!, TASK+3*
LREND	EXIT+1!
LREPI	CRI!, CRI+15, EXIT+1!, TASK+1
LREPI(	CRI+13, PICKALL+1, LOCALL+1*
LRHDG	EXIT+4!
LRLC	EXIT+4!
LRLRDT	LREPIRS+6*, RORS+7, RORS+9, TITLE+4, EXIT+4!
LRMSG	CRI, CRI+3, EXIT+1!, ALL+1
LROK	EXIT+1!, PICKALL+1, LOCALL+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6*
LROVR	EXIT+1!
LRPROT	LREPIRS+7, LREPIRS+8, EXIT+4!
LRREP	RORS+5*, RORS+7, RORS+9, TITLE+4, EXIT+2!, SEG+1, SEG+15, SEG+35, SEG+49, SEG+60 , SEG+69, SEG+81
LRRNDT	EXIT+2!
LRRPE	DATE+10*, EXIT+2!
LRRPS	DATE+5*, EXIT+2!
LRRTYPE	LREPIRS+7*, EXIT+2!, TASK+5
LRSEG	EXIT+5!
LRSEG("DG1"	SEG+48, SEG+58
LRSEG("NTE"	SEG+59, SEG+67
LRSEG("OBR"	SEG+68, SEG+79
LRSEG("OBX"	SEG+80, SEG+95
LRSEG("PID"	SEG+13, SEG+33
LRSEG("PV1"	SEG+34, SEG+47
LRY	EXIT+2!, SEG+12*, SEG+13, SEG+34, SEG+48, SEG+59, SEG+68, SEG+80
U	CHK+1, CHK+3, CHK+4, CHK+5, CHK+6
X	EXIT+3!
X1	EXIT+3!
Y	CRI+13, DATE+5, DATE+10, RORS+5, TITLE+4, EXIT+3!, PICKALL+1, LOCALL+1, CHK+1, CHK+3 , CHK+4, CHK+5, CHK+6, ALL+4, SEG+12, SEG+33, SEG+47, SEG+58, SEG+67, SEG+79 , SEG+95
ZTDESC	EXIT+3!, TASK+7*
ZTDTH	EXIT+3!, TASK+5*
ZTIO	EXIT+3!, TASK+7*
>> ZTQUEUED	TASK+9
ZTRTN	EXIT+3!, TASK+7*
ZTSAVE	EXIT+2!, TASK+4!
ZTSAVE("LR*"	TASK+6*
ZTSAVE("LRRTYPE"	TASK+5*
ZTSK	EXIT+3!, TASK+9

Customize PDF page

Package: Lab Service

Routine: LREPIRS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: