Routine: DGODOSM

Information

DGODOSM ;ALB/EG - OUTPATIENT WORKLOAD SUMMARY ; 2/28/89 1600

Source file <DGODOSM.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?((IOM-$L(HR))/2),HR,?IOM-20,T2,! Line Location: DGODOSM+4
Function Call: WRITE	Prompt: !,?1,"DATE RANGE: FROM " Line Location: DGODOSM+5
Function Call: WRITE	Prompt: Y," TO " Line Location: DGODOSM+5
Function Call: WRITE	Prompt: Y," TO " Line Location: DGODOSM+5
Function Call: WRITE	Prompt: ! Line Location: DGODOSM+13
Function Call: WRITE	Prompt: ! Line Location: DGODOSM+15
Function Call: WRITE	Prompt: !,$P($T(LEG+I),";;",2) Line Location: DGODOSM+15
Function Call: READ	Variable: ZRT Timeout: DTIME Line Location: PRI+1
Function Call: WRITE	Prompt: @IOF Line Location: PRI+1
Function Call: WRITE	Prompt: !,?1,$P(A(I),U,2),?7,$P(A(I),U,1) Line Location: PRI+2
Function Call: WRITE	Prompt: ?30,^UTILITY("DGOD",$J,"T",K,I,1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7) Line Location: PRI+3
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,"T",K,I,"R") Line Location: PRI+4
Function Call: WRITE	Prompt: ?110,"("_$J(^UTILITY("DGOD",$J,"T",K,I,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)_")",! Line Location: PRI+5
Function Call: WRITE	Prompt: !,?1,HDR1,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,?1,"DIVISION",?30,"AS",?40,"AN",?50,"B0",?60,"C0",?70,"N0",?80,"X0",?90,"U0",?100,"TOTAL",?110,"%",! Line Location: HDR+1