Routine: LREPIRS2

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	1	$$CDT^LREPIRP2
Registration	1	$$SITE^VASITE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	4	LREPI DELETE LOCAL REPORT LREPI PRINT REPORT/SPSHT LREPIPI LREPIRS1

Name	Comments	DBIA/ICR reference
DCHOOSE	;CHOOSE WHICH REPORT/SPREADSHEET TO DELETE
SPSHT	;
PAUSE	;
DRORS	;REPORT OR SPREADSHEET
REP	;
HDG	;
PRT	;Print report
EXIT	;
CHOOSE	;CHOOSE RPT OR SPSHT TO PRINT
SAVHDG	;SAVE HEADING WHEN GENERATE REPORT
READY	;
PRTSP
DELETE	;Delete a report or spreadsheet
RORS	;REPORT OR SPREADSHEET
NPG	;NEW PAGE
PRIV	;PRIVACY MESSAGE

Name	Field # of Occurrence
^%ZIS	SPSHT+1, REP+1
HOME^%ZIS	SPSHT+5, REP+2
^%ZISC	EXIT+1
^%ZTLOAD	SPSHT+2, REP+2
^DIR	RORS+3, CHOOSE+13, READY+2, PRIV+4, PAUSE+2, DRORS+3, DCHOOSE+13
$$CDT^LREPIRP2	SAVHDG+9, SAVHDG+11
$$SITE^VASITE	SAVHDG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Print Local Report/Spreadsheet Option" Line Location: LREPIRS2+5
Function Call: WRITE	Prompt: !,"No "_$S(LRREP=1:"report ",1:"spreadsheet ")_"is ready for printing." Line Location: CHOOSE+10
Function Call: WRITE	Prompt: !! Line Location: CHOOSE+26
Function Call: WRITE	Prompt: !!?5,"Report Cancelled." Line Location: SPSHT+3
Function Call: WRITE	Prompt: !!?5,"The Task has been queued",!,"Task #",$G(ZTSK) Line Location: SPSHT+4
Function Call: WRITE	Prompt: !!!,"This report will contain Confidential Information." Line Location: PRIV+1
Function Call: WRITE	Prompt: !,"*THIS REPORT CONTAINS CONFIDENTIAL INFORMATION.*" Line Location: PRT+2
Function Call: WRITE	Prompt: @IOF Line Location: NPG+3
Function Call: WRITE	Prompt: " PAGE ",LRPAGE Line Location: HDG+5
Function Call: WRITE	Prompt: !?5,"Delete a Local Report/Spreadsheet Option" Line Location: DELETE+1
Function Call: WRITE	Prompt: !,"No "_$S(LRREP=1:"report ",1:"spreadsheet ")_"is ready for printing." Line Location: DCHOOSE+10
Function Call: WRITE	Prompt: !,"Spreadsheet deleted." Line Location: DCHOOSE+19
Function Call: WRITE	Prompt: !,"Report deleted." Line Location: DCHOOSE+20
Routine Call	%ZIS Line Location: SPSHT+5 REP+2
Routine Call	DIR Line Location: RORS+3 CHOOSE+13 READY+2 PRIV+4 PAUSE+2 DRORS+3 DCHOOSE+13
Routine Call	%ZIS Line Location: SPSHT+1 REP+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHOOSE+5, SAVHDG+2, DCHOOSE+5
^LAB(69.5 - [#69.5]	SAVHDG+17, SAVHDG+19, SAVHDG+20
^TMP("HLS"	SAVHDG+8
^XTMP(	CHOOSE+2, DCHOOSE+2
^XTMP("LREPI"	CHOOSE+4, CHOOSE+6, DCHOOSE+4, DCHOOSE+6
^XTMP("LREPILOCALREP"	PRT+4, HDG+2, HDG+3, SAVHDG+4, SAVHDG+6, SAVHDG+12, SAVHDG+14, SAVHDG+17, SAVHDG+19, SAVHDG+22 , SAVHDG+37, SAVHDG+45, SAVHDG+50, SAVHDG+53, SAVHDG+59, SAVHDG+69, DCHOOSE+20!
^XTMP("LREPILOCALSPSHT"	PRTSP+1, DCHOOSE+19!

Name	Line Occurrences
EXIT	RORS+4, CHOOSE+17, CHOOSE+25, SPSHT+5, REP+2, DRORS+4, DCHOOSE+21
HDG	PRT+3, NPG+4
NPG	PRTSP+3, PRT+7
PAUSE	NPG+1
PRIV	CHOOSE+17, CHOOSE+25
PRT	REP+1
PRTSP	SPSHT+1
READY	CHOOSE+17
REP	CHOOSE+25
RORS	CHOOSE+10, CHOOSE+14, DCHOOSE+10, DCHOOSE+14
SPSHT	CHOOSE+17

Name	Field # of Occurrence
^(	PRTSP+1, PRT+4, SAVHDG+17, SAVHDG+19, SAVHDG+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EXIT+3!
%ZIS	EXIT+3!, SPSHT+1, REP+1
D0	EXIT+2!
DIR	RORS+6!, CHOOSE+16!, EXIT+5!, READY+1!, PRIV+2!, PAUSE+2!, DRORS+6!, DCHOOSE+16!
DIR("A"	RORS+2, CHOOSE+12, READY+1, PRIV+2, DRORS+2, DCHOOSE+12
DIR("B"	PRIV+3*
DIR(0	RORS+1, CHOOSE+11, READY+1, PRIV+2, PAUSE+2, DRORS+1, DCHOOSE+11*
DIRUT	RORS+4, RORS+6!, CHOOSE+14, CHOOSE+16!, EXIT+5!, READY+2, PRIV+4, DRORS+4, DRORS+6!, DCHOOSE+14 , DCHOOSE+16!
DT	SAVHDG+2
DTOUT	EXIT+5!, PAUSE+3
DUOUT	EXIT+5!, PAUSE+3
>> HLFS	SAVHDG+9, SAVHDG+11
I	EXIT+5!, DCHOOSE+18*
IO	SPSHT+1, REP+1
IO("Q"	SPSHT+1, REP+1
IOF	NPG+3
IOSL	PRTSP+3, PRT+7
IOST	NPG+1
J	EXIT+5!
LRAUTO	EXIT+2!
LRBEG	EXIT+2!
>> LRCS	SAVHDG+9, SAVHDG+11
LRDT	EXIT+2!
LRDTHDG	EXIT+4!, SAVHDG+8*, SAVHDG+9, SAVHDG+11
LREND	CHOOSE+17, CHOOSE+25, EXIT+2!, READY+2, READY+3, PRIV+4, PRIV+5, PAUSE+1
LREPI	EXIT+2!
LREPI(	SAVHDG+16
LRHDG	EXIT+4!, HDG+3, HDG+4, SAVHDG+23, SAVHDG+24, SAVHDG+25, SAVHDG+26, SAVHDG+27, SAVHDG+28, SAVHDG+29 , SAVHDG+30, SAVHDG+31, SAVHDG+32, SAVHDG+33, SAVHDG+34, SAVHDG+35, SAVHDG+36, SAVHDG+37, SAVHDG+38, SAVHDG+39 , SAVHDG+40, SAVHDG+41, SAVHDG+42, SAVHDG+43, SAVHDG+44, SAVHDG+45, SAVHDG+46, SAVHDG+47, SAVHDG+48, SAVHDG+49 , SAVHDG+50, SAVHDG+51, SAVHDG+52, SAVHDG+53, SAVHDG+54, SAVHDG+55, SAVHDG+56, SAVHDG+57, SAVHDG+58, SAVHDG+59 , SAVHDG+60, SAVHDG+61, SAVHDG+62, SAVHDG+63, SAVHDG+64, SAVHDG+65, SAVHDG+66, SAVHDG+67, SAVHDG+68, SAVHDG+69
LRHDGLC	EXIT+4!, HDG+1, HDG+2, HDG+3, HDG+5, SAVHDG+4, SAVHDG+5, SAVHDG+6, SAVHDG+7, SAVHDG+12 , SAVHDG+13, SAVHDG+14, SAVHDG+17, SAVHDG+18, SAVHDG+19, SAVHDG+20, SAVHDG+21, SAVHDG+22, SAVHDG+37, SAVHDG+45 , SAVHDG+50, SAVHDG+53, SAVHDG+59, SAVHDG+69
>> LRI	SAVHDG+15, SAVHDG+16, SAVHDG+17, SAVHDG+19, SAVHDG+20
LRLC	EXIT+4!, PRTSP, PRT+1, PRT+6, HDG+6
LRLRDT	CHOOSE+15, EXIT+4!, PRTSP+1, PRT+4, HDG+2, HDG+3, SAVHDG+4, SAVHDG+6, SAVHDG+12, SAVHDG+14 , SAVHDG+17, SAVHDG+19, SAVHDG+22, SAVHDG+37, SAVHDG+45, SAVHDG+50, SAVHDG+53, SAVHDG+59, SAVHDG+69, DCHOOSE+15 , DCHOOSE+18*, DCHOOSE+19, DCHOOSE+20
LRLRDT(	CHOOSE+5, CHOOSE+7, CHOOSE+15, DCHOOSE+5, DCHOOSE+7, DCHOOSE+15, DCHOOSE+18
LRLRDTX	CHOOSE+1, CHOOSE+2, CHOOSE+3, CHOOSE+4, CHOOSE+5, CHOOSE+6, CHOOSE+7, EXIT+4!, DCHOOSE+1, DCHOOSE+2 , DCHOOSE+3, DCHOOSE+4, DCHOOSE+5, DCHOOSE+6, DCHOOSE+7
LRMSGLIN	EXIT+5!, PRTSP+1, PRTSP+2, PRT+4, PRT+5
LRNODE	CHOOSE+1, CHOOSE+2, EXIT+4!, DCHOOSE+1, DCHOOSE+2
LRNODE1	CHOOSE+1, CHOOSE+2, EXIT+4!, DCHOOSE+1, DCHOOSE+2
LRPAGE	EXIT+4!, PRTSP, PRT+1, HDG+5, HDG+7*
LRQUIT	EXIT+4!, PRTSP, PRTSP+1, PRT+1, PRT+4, PAUSE+3*, NPG+2
LRREP	RORS+5, CHOOSE+1, CHOOSE+2, CHOOSE+4, CHOOSE+6, CHOOSE+10, CHOOSE+12, CHOOSE+17, CHOOSE+25, EXIT+5! , SAVHDG+24, SAVHDG+25, SAVHDG+26, SAVHDG+27, SAVHDG+28, SAVHDG+29, SAVHDG+30, SAVHDG+31, SAVHDG+32, SAVHDG+33 , SAVHDG+34, SAVHDG+35, SAVHDG+36, SAVHDG+38, SAVHDG+39, SAVHDG+40, SAVHDG+41, SAVHDG+42, SAVHDG+43, SAVHDG+44 , SAVHDG+46, SAVHDG+47, SAVHDG+48, SAVHDG+49, SAVHDG+51, SAVHDG+52, SAVHDG+54, SAVHDG+55, SAVHDG+56, SAVHDG+57 , SAVHDG+58, SAVHDG+59, SAVHDG+60, SAVHDG+61, SAVHDG+62, SAVHDG+63, SAVHDG+64, SAVHDG+65, SAVHDG+66, SAVHDG+67 , SAVHDG+68, SAVHDG+69, DRORS+5, DCHOOSE+1, DCHOOSE+2, DCHOOSE+4, DCHOOSE+6, DCHOOSE+10, DCHOOSE+12, DCHOOSE+19 , DCHOOSE+20
LRRNDT	EXIT+2!
LRRPE	EXIT+2!
LRRPS	EXIT+2!
LRSEG	PRTSP+4!, PRT+8!
LRSEG("DG1"	SAVHDG+46, SAVHDG+47, SAVHDG+48, SAVHDG+49
LRSEG("NTE"	SAVHDG+51, SAVHDG+52
LRSEG("OBR"	SAVHDG+54, SAVHDG+55, SAVHDG+56, SAVHDG+57, SAVHDG+58
LRSEG("OBX"	SAVHDG+60, SAVHDG+61, SAVHDG+62, SAVHDG+63, SAVHDG+64, SAVHDG+65, SAVHDG+66, SAVHDG+67, SAVHDG+68
LRSEG("PID"	SAVHDG+24, SAVHDG+25, SAVHDG+26, SAVHDG+27, SAVHDG+28, SAVHDG+29, SAVHDG+30, SAVHDG+31, SAVHDG+32, SAVHDG+33 , SAVHDG+34, SAVHDG+35, SAVHDG+36
LRSEG("PV1"	SAVHDG+38, SAVHDG+39, SAVHDG+40, SAVHDG+41, SAVHDG+42, SAVHDG+43, SAVHDG+44
>> LRSP	SAVHDG+26, SAVHDG+27, SAVHDG+32, SAVHDG+34, SAVHDG+48, SAVHDG+55, SAVHDG+57, SAVHDG+62
LRSPSHT	EXIT+5!, PRTSP*
LRTITLE	CHOOSE+6, CHOOSE+7, CHOOSE+10, EXIT+4!, DCHOOSE+6, DCHOOSE+7, DCHOOSE+10
LRY	CHOOSE+1, CHOOSE+5, CHOOSE+7, CHOOSE+8, CHOOSE+9, CHOOSE+10, CHOOSE+11, CHOOSE+15, EXIT+4!, DCHOOSE+1* , DCHOOSE+5, DCHOOSE+7, DCHOOSE+8, DCHOOSE+9, DCHOOSE+10, DCHOOSE+11, DCHOOSE+15, DCHOOSE+17, DCHOOSE+18
MSG	EXIT+5!, PRTSP, PRTSP+1, PRT+1, PRT+4, SAVHDG+10*, SAVHDG+12
MSGLIN	EXIT+5!, PRTSP+4!, PRT+8!
POP	EXIT+3!, SPSHT+1, REP+1
>> SITE	SAVHDG+3*, SAVHDG+6
U	SAVHDG+6, SAVHDG+17, SAVHDG+19, SAVHDG+20
X	EXIT+3!
X1	EXIT+3!
Y	RORS+5, CHOOSE+5, CHOOSE+15, EXIT+3!, READY+3, PRIV+5, SAVHDG+2, SAVHDG+4, SAVHDG+9, SAVHDG+10 , SAVHDG+11, SAVHDG+12, DRORS+5, DCHOOSE+5*, DCHOOSE+15, DCHOOSE+17
ZTDESC	EXIT+3!, SPSHT+2, REP+2
ZTDTH	EXIT+3!
ZTIO	EXIT+3!
>> ZTREQ	SPSHT+2*
ZTRTN	EXIT+3!, SPSHT+2, REP+2
ZTSAVE	EXIT+2!
ZTSAVE("LR*"	SPSHT+2, REP+2
ZTSK	EXIT+3!, SPSHT+3, SPSHT+4

Customize PDF page

Package: Lab Service

Routine: LREPIRS2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: