Routine: LRCAPA12

Information

LRCAPA12 ; IHS/DIR/AAB - LAB WORKLOAD DIVISION REPORT 8/23/91 1039 ;

Name	Line Occurrences
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:999) Variable: X Line Location: ASK1+1
Function Call: WRITE	Prompt: !!,"Beginning Date: " Line Location: ASK1+1
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,"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: !! Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Condition for execution: IOST["P-" Line Location: LOOP+2
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: @IOF Condition for execution: IOST["P-"&($Y>(IOSL-6)) 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	%ZIS Line Location: ASK2+3

Name	Line Occurrences (* Changed, ! Killed)
^TMP("WL"	LOOP+3
^TMP($J	EN+2!, DQ+3, EXIT+2!, LOOP+5, LOOP1+4, LOOP2+1, LOOP3+3, DATES+1, DATES+2, DATES+3* , NEW+1, NEW+2, NEW+3*

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