Routine: LRCAPACC

Information

LRCAPACC ; IHS/DIR/AAB - LAB WORKLOAD DIVISION REPORT BY CAP CODE 8/23/91 1039 ;

Name	Line Occurrences
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:999) Variable: X Line Location: ASK1+0
Function Call: WRITE	Prompt: !!,"Beginning Date: " Line Location: ASK1+0
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:999) Variable: X Line Location: ASK2+1
Function Call: WRITE	Prompt: !!,"Ending Date: " Line Location: ASK2+1
Function Call: WRITE	Prompt: !!?10,"Nothing Selected ",! Line Location: SEL+5
Function Call: WRITE	Prompt: !! Line Location: ZIS+0
Function Call: WRITE	Prompt: !!?10,"No Data for " Line Location: DQ+3
Function Call: WRITE	Prompt: " - " Line Location: DQ+3
Function Call: WRITE	Prompt: " - " Line Location: DQ+3
Function Call: WRITE	Prompt: !,"Division: ",LRDV2 Line Location: LOOP3+2
Function Call: WRITE	Prompt: ?20,"From: " Line Location: LOOP3+3
Function Call: WRITE	Prompt: ?35,"To: " Line Location: LOOP3+3
Function Call: WRITE	Prompt: ?50,"Total: ",$J(^("TOT WRK"),10,2) Line Location: LOOP3+4
Function Call: WRITE	Prompt: ! Line Location: LOOP3+6
Function Call: WRITE	Prompt: !?2,$P(C,U,2),?12,$J(CP,10,2)," ",$P(C,U) Line Location: SUB+1
Function Call: WRITE	Prompt: @IOF Condition for execution: IOST["P-"&($Y>(IOSL-10)) Line Location: HEADER+1
Function Call: WRITE	Prompt: !!," Lab Workload Division Report for Site: ",LRDV1," Printed: ",LRDT0,!!,?60,"Pg: ",LRPG,! Line Location: HEADER+1
Function Call: WRITE	Prompt: $$FMTE^XLFDT(X,"1D") Line Location: DD+1
Routine Call	DIC Line Location: SEL+4
Routine Call	%ZIS Line Location: ZIS

Name	Line Occurrences (* Changed, ! Killed)
^LAM - [#64]	SUB+1
^LAM("E"	SUB
^TMP("WL"	LOOP+2
^TMP($J	EN+1!, DQ+3, EXIT+1!, LOOP+3, LOOP2+1, LOOP3+3, LOOP3+5, DATES+1, DATES+2, DATES+3 , DATES+4, DATES+5

Name	Line Occurrences
ASK1	ASK1+1
ASK2	ASK2+2
DATES	LOOP1+3
DD	DQ+3, LOOP3+3
EXIT	ASK1, ASK1+1, ASK2+1, ASK2+2, SEL+2, SEL+3, SEL+5, ZIS, QUEUE+1
HEADER	LOOP+3, LOOP3+1, LOOP3+5
LOOP	DQ+2
LOOP1	LOOP+2
LOOP2	LOOP+3
LOOP3	LOOP2+1
QUEUE	ZIS
SUB	LOOP3+5
ZIS	SEL+2, SEL+3

Name	Field # of Occurrence
%	SEL+1, SEL+2, SEL+3, EXIT+1!
%DT	ASK1, ASK2+1, EXIT+1!
%ZIS	ZIS*, EXIT+1!
C	EXIT+1!, LOOP3+5, SUB, SUB+1*
CODE	EXIT+1!, LOOP1+3*, DATES+3
CP	EXIT+1!, LOOP3+5*, SUB+1
DIC	SEL+4!*
DIC(0	SEL+4*
DTIME	ASK1, ASK2+1
I	EXIT+1!, LOOP3+5*
IO	ZIS
IO("Q"	ZIS, EXIT+1!
IO(0	ZIS
IOF	DQ+4, LOOP+2, HEADER+1
ION	QUEUE+1
IOSL	LOOP+3, LOOP3+1, LOOP3+5, HEADER+1
IOST	DQ+4, LOOP+2, LOOP+3, LOOP3+1, LOOP3+5, HEADER+1
LRCAP	EXIT+1!, LOOP1+3
LRCAP(	SEL+4*, LOOP1+3, DATES+3
LRCAP("A"	SEL+3*, LOOP1+3, DATES+3
LRCAP(0	SEL+5
LRDT	EXIT+1!, LOOP1+1*, LOOP1+3, DATES+4, DATES+5
>> LRDT0	HEADER+1
LRDT1	ASK1+1, ASK2+2, EXIT+1!, LOOP+1*, LOOP1+3
LRDT1P	DQ+3, EXIT+1!, LOOP+1*
LRDT2	ASK2+2, EXIT+1!, LOOP+1, LOOP1+3
LRDT2P	DQ+3, EXIT+1!, LOOP+1*
LRDV1	EXIT+1!, LOOP+1, LOOP+3, LOOP1+2*, LOOP1+3, LOOP2+1, LOOP3+3, LOOP3+5, HEADER+1, DATES+1 , DATES+2, DATES+3, DATES+4, DATES+5
LRDV2	EXIT+1!, LOOP+1, LOOP1+1, LOOP1+3, LOOP2+1*, LOOP3+2, LOOP3+3, LOOP3+5, DATES+1, DATES+2 , DATES+3, DATES+4, DATES+5
LRLN	EXIT+1!, LOOP+1, LOOP+2
LRPG	DQ+2, EXIT+1!, HEADER+1
LRTXT	EXIT+1!, LOOP+2*, LOOP1+1, LOOP1+2, LOOP1+3, DATES+2
TOT	DQ+2, EXIT+1!, LOOP+1, LOOP3+4
TT	EXIT+1!, DATES+2*, DATES+3
U	SEL+4, SUB+1
>> X	ASK1, ASK1+1, ASK2+1, ASK2+2, SEL+4, DQ+3, LOOP3+3, DD+1
Y	ASK1+1, ASK2+2*, SEL+4, EXIT+1!
Y(0	SEL+4
ZTCPU	QUEUE+1!
ZTDESC	EXIT+1!, QUEUE+1*
ZTDTH	QUEUE+1!
ZTIO	EXIT+1!, QUEUE+1*
>> ZTQUEUED	DQ+1
>> ZTREQ	DQ+1*
ZTRTN	EXIT+1!, QUEUE+1*
ZTSAVE	EXIT+1!
ZTSAVE("LRCAP*"	QUEUE+1*
ZTSAVE("LRDT*"	QUEUE+1*
ZTSK	EN+1!, EXIT+1!
ZTUCI	QUEUE+1!