Routine: LRCAPAM3

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LR WKLD LMIP 3 LR WKLD REVIEW AUSTIN DATA

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ASK1	;
ASK2	;
QUEUE	;
HEADER	;
EXIT	;
LOOP2	;
DT
LOOP	;
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	ASK2+5
^%ZISC	EXIT+1
^%ZTLOAD	QUEUE+2
^DIR	DT+3, ASK2+3
$$FMTE^XLFDT	ASK1+2, DT+5, ASK2+2, DQ+2, DQ+3, LOOP+11, LOOP2+12
$$NOW^XLFDT	DQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN+1
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN+2
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN+3
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN+4
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN+5
Function Call: WRITE	Prompt: !?5,"Division ",$P($P(LN,U,3),"$$$")," has data for ",$$FMTE^XLFDT(LRDATE,"1D") Line Location: ASK1+2
Function Call: WRITE	Prompt: !!?10,"I do not have any data in the file ",!! Line Location: ASK1+3
Function Call: WRITE	Prompt: ! Line Location: DT+0
Function Call: WRITE	Prompt: !!?10,"I do not have data for this ",$$FMTE^XLFDT(LRDT1,"1D"),!!,$C(7) Line Location: DT+5
Function Call: WRITE	Prompt: ! Line Location: ASK2+1
Function Call: WRITE	Prompt: !! Line Location: ASK2+5
Function Call: WRITE	Prompt: ! Line Location: DQ+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: DQ+4
Function Call: WRITE	Prompt: !! Line Location: QUEUE+3
Function Call: WRITE	Prompt: !?5,"Unable to enter User into 'CERTIFIED BY' field in file #67.9",!?10,"Div: [ ",LRDV2," ]for the month of ",$$FMTE^XLFDT(LRDT),! Line Location: LOOP+11
Function Call: WRITE	Prompt: !!?5,"Nothing to Report",!! Line Location: LOOP+19
Function Call: WRITE	Prompt: !! Line Location: LOOP+23
Function Call: WRITE	Prompt: $E(LRCCD,15) Condition for execution: $E(LRCCD,15) Line Location: LOOP2+8
Function Call: WRITE	Prompt: ! Line Location: LOOP2+8
Function Call: READ	Timeout: DTIME Variable: LRX Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $G(LRPAGE) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"Lab WORKLOAD data Report for Div/Institution: ",$P($G(^DIC(4,LRDV2X,0)),U)_" / "_$P($G(^DIC(4,LRDV1X,0)),U),?(IOM-10)," Page: ",LRPAGE Line Location: HEADER+2
Function Call: WRITE	Prompt: !?(IOM-$L(LRHDT))/2,LRHDT Line Location: HEADER+3
Function Call: WRITE	Prompt: !," Printed: ",LRPRDT,! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?5,"[ XX* data ] NOT included in total ",! Line Location: HEADER+5
Routine Call	DIR Line Location: DT+3 ASK2+3
Routine Call	%ZIS Line Location: ASK2+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOOP+5, LOOP+21, LOOP2+2, LOOP2+5, HEADER+2
^LAH("LABWL"	ASK1+1, LOOP+2
^LRO(67.9 - [#67.9]	LOOP+10
^TMP($J	EN+6!, EXIT+5!, LOOP+12, LOOP+15, LOOP+16, LOOP+18, LOOP+19, LOOP+20, LOOP2+1, LOOP2+6 , LOOP2+11

Label References

Name	Line Occurrences
ASK1	DT+5
EXIT	ASK1+3, DT+4, ASK2+3, ASK2+5, QUEUE+3
HEADER	LOOP2+4, LOOP2+7
LOOP	DQ+3
LOOP2	LOOP+22
QUEUE	ASK2+6

Naked Globals

Name	Field # of Occurrence
^(	ASK1+1, LOOP+2, LOOP+15*, LOOP+18, LOOP2+6
^("TOT WRK"	LOOP+18*, LOOP2+11
^(0	LOOP+10*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+6!, EXIT+2!
%ZIS	ASK2+5*, EXIT+2!
CNT	ASK1+1!, ASK1+2, ASK1+3, EXIT+2!, LOOP+16, LOOP+17, LOOP+18
CNT(	ASK1+2*, DT+5
DIR	DT!, EXIT+2!
DIR("?"	DT+1, DT+2, ASK2+1!*
DIR("A"	DT, ASK2+2
DIR("B"	ASK2+2*
DIR(0	DT*
DTIME	HEADER+1
>> DTOUT	DT+4, ASK2+3, ASK2+5
>> DUOUT	DT+4, ASK2+3, ASK2+5
DUZ	LOOP+10
I	ASK1+1, EXIT+2!, LOOP+16, LOOP+17, LOOP2+9*, LOOP2+10
IFN	EXIT+4!, LOOP+10*
IO	ASK2+7
IO("Q"	ASK2+6
IOF	DQ+1, DQ+4, LOOP2+14, HEADER+2
IOM	EN+1, EN+2, EN+3, EN+4, EN+5, LOOP2+10, HEADER+2, HEADER+3
ION	QUEUE+1
IOSL	LOOP2+7
IOST	DQ+1, DQ+4, LOOP2+14, HEADER+1
LINE	EN+1, EN+2, EN+3, EN+4, EN+5*, EXIT+2!
LN	ASK1+1*, ASK1+2, EXIT+4!
LRCCD	EXIT+2!, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+18, LOOP2+6*, LOOP2+8, LOOP2+11
LRCCDN	EXIT+2!, LOOP+13, LOOP+17, LOOP2+6, LOOP2+9, LOOP2+10
LRCCDN0	EXIT+2!, LOOP2+6*, LOOP2+8
LRCCDNX	EXIT+2!, LOOP+16, LOOP+17, LOOP+18
LRCHK	EXIT+4!, LOOP+1, LOOP+10, LOOP+11
LRDATE	ASK1+2*, EXIT+4!
LRDT	EXIT+2!, LOOP+3*, LOOP+7, LOOP+10, LOOP+11
LRDT1	DT+5*, ASK2+2, DQ+3, EXIT+2!, LOOP+7, LOOP2+12
LRDT2	ASK2+4*, DQ+3, EXIT+2!, LOOP+7, LOOP2+12
LRDV1	EXIT+3!, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+12, LOOP+15, LOOP+16, LOOP+18, LOOP+19* , LOOP+20*, LOOP+21, LOOP2+1, LOOP2+6, LOOP2+11
LRDV1X	EXIT+4!, LOOP+1, LOOP+5, LOOP+6, LOOP+10, LOOP+21*, LOOP2+3, HEADER+2
LRDV2	EXIT+3!, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+11, LOOP+12, LOOP+15, LOOP+16, LOOP+18 , LOOP2+1*, LOOP2+2, LOOP2+6, LOOP2+11
LRDV2X	EXIT+4!, LOOP+1, LOOP+5, LOOP+6, LOOP+10, LOOP2+2*, LOOP2+3, LOOP2+5, HEADER+2
LRHDT	DQ+3*, EXIT+3!, HEADER+3
LRLN	EXIT+3!, LOOP+1, LOOP+2
LRPAGE	DQ+2, EXIT+3!, HEADER+1, HEADER+2
LRPRDT	DQ+2*, EXIT+3!, HEADER+4
LRQUIT	EXIT+3!, LOOP+20, LOOP2+1, LOOP2+3, LOOP2+4, LOOP2+6, LOOP2+7, LOOP2+12, LOOP2+13, HEADER+1
LRTXT	EXIT+3!, LOOP+2*, LOOP+3, LOOP+9, LOOP+12, LOOP+13
LRX	EXIT+4!, HEADER+1*
NUM	EXIT+3!, LOOP+17*
>> POP	ASK2+5
TCNT	EXIT+3!, LOOP2+1, LOOP2+11, LOOP2+12
U	ASK1+2, LOOP+3, LOOP+10, LOOP+13, LOOP+17, LOOP2+5, LOOP2+9, LOOP2+10, HEADER+2
Y	DT+4, DT+5, ASK2+3, ASK2+4, EXIT+3!
>> ZTDESC	QUEUE+1*
>> ZTIO	QUEUE+1*
>> ZTQUEUED	EXIT+1, HEADER+1
>> ZTREQ	EXIT+1*
>> ZTRTN	QUEUE+1*
>> ZTSAVE("LR*"	QUEUE+1*
ZTSK	EN+6!, EXIT+3!

Customize PDF page

Package: Lab Service

Routine: LRCAPAM3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: