Routine: DGODTOT

Package	Total	Caller Graph
Registration	2	DGODNP2 DGODOP2

Entry Points

Name	Comments	DBIA/ICR reference
TOTI	;grand total
TOTO	;print total for division
HDR	;header

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?I,"======" Line Location: TOTI+1
Function Call: WRITE	Prompt: !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U") Line Location: TOTI+2
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)_")" Line Location: TOTI+3
Function Call: WRITE	Prompt: !,?1,"%",?30,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AN")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTI+4
Function Call: WRITE	Prompt: ?50,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"B")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"C")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTI+5
Function Call: WRITE	Prompt: ?70,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"N")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"X")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTI+6
Function Call: WRITE	Prompt: ?90,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"U")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2) Line Location: TOTI+7
Function Call: WRITE	Prompt: ?100,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),! Line Location: TOTI+8
Function Call: WRITE	Prompt: !,?IOM-$L(ZRT1)-2,ZRT1 Line Location: TOTI+9
Function Call: WRITE	Prompt: @IOF,!,?1,"INPATIENT DISCHARGES REPORT",?IOM-20,T2 Line Location: HDR+1
Function Call: WRITE	Prompt: !,L,! Line Location: HDR+1
Function Call: WRITE	Prompt: !,?1,"DATE RANGE: FROM " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-26\2),"MEANS TEST CLASSIFICATION",! Line Location: HDR+3
Function Call: WRITE	Prompt: ?I,"======" Line Location: TOTO+2
Function Call: WRITE	Prompt: !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U") Line Location: TOTO+3
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)_")" Line Location: TOTO+4
Function Call: WRITE	Prompt: !,?1,"%",?30,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AN")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTO+5
Function Call: WRITE	Prompt: ?50,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"B")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"C")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTO+6
Function Call: WRITE	Prompt: ?70,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"N")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"X")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)100,2,2) Line Location: TOTO+7
Function Call: WRITE	Prompt: ?90,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"U")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2) Line Location: TOTO+8
Function Call: WRITE	Prompt: ?100,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),! Line Location: TOTO+9
Function Call: WRITE	Prompt: !,?IOM-$L(ZRT1)-2,ZRT1 Line Location: TOTO+11

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGBD	HDR+2, TOTO+1, TOTO+10
>> DGDV	TOTI+2, TOTI+3, TOTI+4, TOTI+5, TOTI+6, TOTI+7, TOTI+8, TOTO+1, TOTO+2, TOTO+3 , TOTO+4, TOTO+5, TOTO+6, TOTO+7, TOTO+8, TOTO+9, TOTO+10
>> DGGE	TOTO+1, TOTO+10
>> DGJB	TOTI+2, TOTI+3, TOTI+4, TOTI+5, TOTI+6, TOTI+7, TOTI+8, TOTO+1, TOTO+2, TOTO+3 , TOTO+4, TOTO+5, TOTO+6, TOTO+7, TOTO+8, TOTO+9, TOTO+10
>> DGND	HDR+2, TOTO+1, TOTO+10
>> DGTOUT	TOTO+1, TOTO+10
DTIME	TOTI+9, TOTO+11
>> I	TOTI+1, TOTO+2
IO	TOTI+9, HDR+1, TOTO+11
IO(0	TOTI+9, TOTO+11
IOF	HDR+1
IOM	TOTI+9, HDR+1, HDR+3, TOTO+11
IOST	TOTI+9, TOTO+11
>> K1	TOTI+2, TOTI+3, TOTI+4, TOTI+5, TOTI+6, TOTI+7, TOTI+8, TOTO+1, TOTO+2, TOTO+3 , TOTO+4, TOTO+5, TOTO+6, TOTO+7, TOTO+8, TOTO+9, TOTO+10
>> L	HDR+1*
>> T2	HDR+1
U	TOTI+1, TOTO+1, TOTO+2, TOTO+10
>> Y	HDR+2*
>> ZRT	TOTI+1, TOTI+9, TOTO+2, TOTO+11
>> ZRT1	TOTI+9, TOTO+11

Customize PDF page

Package: Registration

Routine: DGODTOT

Information

Source Information

Caller Graph

Caller Graph Total: 2

Entry Points

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^UTILITY("DGOD"	TOTI+2, TOTI+3, TOTI+4, TOTI+5, TOTI+6, TOTI+7, TOTI+8, TOTO+1, TOTO+2, TOTO+3 , TOTO+4, TOTO+5, TOTO+6, TOTO+7, TOTO+8, TOTO+9, TOTO+10

Name	Field # of Occurrence
^("AN"	TOTI+2, TOTO+3
^("B"	TOTI+2, TOTO+3
^("C"	TOTI+2, TOTO+3
^("N"	TOTI+2, TOTO+3
^("U"	TOTI+2, TOTO+3
^("X"	TOTI+2, TOTO+3