Routine: LRCAPA12

Information

LRCAPA12 ;SLC/RJS/FHS - LAB WORKLOAD DIVISION REPORT;8/23/91 1039;

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:999) Line Location: ASK1+1
Function Call: WRITE	Prompt: !!,"Beginning Date: " Line Location: ASK1+1
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:999) 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