Routine: LRCAPACC

Information

LRCAPACC ;SLC/RJS/FHS - LAB WORKLOAD DIVISION REPORT BY CAP CODE ;8/23/91 1039;

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