Routine: DGODNSM

Information

DGODNSM ;ALB/EG - INPATIENT WORKLOAD SUMMARY ; 2/28/89 1600

Source file <DGODNSM.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?((IOM-$L(HR))/2),HR,?IOM-20,T2,! Line Location: DGODNSM+4
Function Call: WRITE	Prompt: !,?1,"DATE RANGE: FROM " Line Location: DGODNSM+5
Function Call: WRITE	Prompt: Y," TO " Line Location: DGODNSM+5
Function Call: WRITE	Prompt: Y," TO " Line Location: DGODNSM+5
Function Call: WRITE	Prompt: ! Line Location: DGODNSM+13
Function Call: WRITE	Prompt: ! Line Location: DGODNSM+15
Function Call: WRITE	Prompt: !,$P($T(LEG+I),";;",2) Line Location: DGODNSM+15
Function Call: READ	Variable: ZRT Timeout: DTIME 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,$P($T(HD+2),";;",2)," ON "_T2,! Line Location: REM+1
Function Call: WRITE	Prompt: !,?1,X,?20,Z(X) Line Location: REM+2
Function Call: WRITE	Prompt: ! Line Location: REM+3
Function Call: WRITE	Prompt: !,?1,HDR1,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,?1,"FACILITY",?30,"AS",?40,"AN",?50,"B0",?60,"C0",?70,"N0",?80,"X0",?90,"U0",?100,"TOTAL",?110,"%",! Line Location: HDR+1