Routine: DGODNP2

Package	Total	Call Graph
Registration	3	^DGODNSM TOTI^DGODTOT ET^DGODUTL
VA Fileman	1	^%DT

Package	Total	Caller Graph
Registration	1	DGODNP1

Entry Points

External References

Name	Field # of Occurrence
^%DT	DGODNP2+3
^DGODNSM	DGODNP2+6
TOTI^DGODTOT	PRI+7
ET^DGODUTL	DGODNP2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Elapsed time for this run: ",DGTOUT,! Line Location: DGODNP2+6
Function Call: WRITE	Prompt: @IOF,!,?1,"INPATIENT DISCHARGES REPORT",?IOM-20,T2 Line Location: HDR+0
Function Call: WRITE	Prompt: !,L,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,?1,"DATE RANGE: FROM " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(IOM-26\2),"MEANS TEST CLASSIFICATION",! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?1,"FACILITY: ",DGDV,?20,DGDVN,?40,"TOTAL DISCHARGES: ",?50,^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV) Line Location: PRI+2
Function Call: WRITE	Prompt: !,?30,"AS",?40,"AN",?50,"B0",?60,"C0",?70,"N0",?80,"X0",?90,"U0",?100,"TOTAL",?110,"%",! Line Location: PRI+4
Function Call: WRITE	Prompt: ?I,"------" Line Location: PRI+5
Function Call: WRITE	Prompt: !,?1,$S(DGV="V":"VETERAN ELIGIBILITY",DGV="N":"NON-VETERAN ELIGIBILITY",1:0),!,?1,"-----------------------",! Line Location: PRI+6
Function Call: READ	Timeout: DTIME Variable: ZRT Line Location: PRI1+1
Function Call: WRITE	Prompt: ?I,"------" Line Location: TOT1+1
Function Call: WRITE	Prompt: !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U") Line Location: TOT1+2
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,"TOT",DGV),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,"TOT",DGV)/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)*100,2,2)_")" Line Location: TOT1+3
Function Call: WRITE	Prompt: !,?1,"SUBTOTAL %",?30,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","AS")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","AN")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2) Line Location: TOT1+4
Function Call: WRITE	Prompt: ?50,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","B")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","C")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2) Line Location: TOT1+5
Function Call: WRITE	Prompt: ?70,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","N")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","X")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)100,2,2) Line Location: TOT1+6
Function Call: WRITE	Prompt: ?90,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,DGV,"TOT","U")/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)*100,2,2) Line Location: TOT1+7
Function Call: WRITE	Prompt: ?100,$J(^UTILITY("DGOD",$J,DGJB,DGTN,DGDV,"TOT",DGV)/^UTILITY("DGOD",$J,DGJB,DGTN,"TOT",DGDV)*100,2,2),! Line Location: TOT1+8

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DGODNP2+3, HDR+1
^UTILITY("DGOD"	DGODNP2+5, PRI, PRI+1, PRI+2, PRI+3, PRI+7, PRI1+4, PRI1+5, PRI1+6, TOT1+2 , TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DGODNP2+3*
>> A(	DGODNP2+5
>> A2	DGODNP2+5
DGBD	END!, HDR+1, PRI+7
DGDV	DGODNP2+5*, END!, PRI, PRI+1, PRI+2, PRI+3, PRI+7, PRI1+4, PRI1+5, PRI1+6 , TOT1+2, TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8
DGDVN	DGODNP2+5*, END!, PRI+2
DGEL	END!, PRI+6*, PRI1+2, PRI1+3, PRI1+4, PRI1+5, PRI1+6, PRI1+7
DGG	END!
>> DGGE	DGODNP2+3*, PRI+7
>> DGJB	DGODNP2+5, PRI, PRI+1, PRI+2, PRI+3, PRI+7, PRI1+4, PRI1+5, PRI1+6, TOT1+2 , TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8
DGND	END!, HDR+1, PRI+7
>> DGTN	DGODNP2+5, PRI, PRI+1, PRI+2, PRI+3, PRI+7, PRI1+4, PRI1+5, PRI1+6, TOT1+2 , TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8
DGTOUT	DGODNP2+6, END!, PRI+7
DGV	END!, PRI+6*, PRI1+2, PRI1+4, PRI1+5, PRI1+6, TOT1+2, TOT1+3, TOT1+4, TOT1+5 , TOT1+6, TOT1+7, TOT1+8
DTIME	PRI1+1
I	END!, PRI+5, TOT1+1
I2	END!
I3	END!
I5	END!
I5(	PRI1+2
I5("N"	DGODNP2+4*
I5("V"	DGODNP2+4*
IO	HDR, PRI1+1
IO(0	PRI1+1
IOF	HDR
IOM	HDR, HDR+2, PRI1+1
IOSL	PRI1+1
IOST	PRI1+1
>> K	DGODNP2+5*
L	END!, HDR*
T2	DGODNP2+3*, END!, HDR, PRI+3
U	DGODNP2+3*, DGODNP2+5, PRI, PRI+7, PRI1+1, PRI1+2, TOT1+1
X	DGODNP2+3*, END!
Y	DGODNP2+3, END!, HDR+1*
Z	END!
Z(	DGODNP2+5, PRI+7*
ZRT	DGODNP2+3, DGODNP2+5, END!, PRI, PRI1+1, TOT1+1
ZRT1	END!, PRI1+1*

Customize PDF page

Package: Registration

Routine: DGODNP2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^("AN"	TOT1+2
^("B"	TOT1+2
^("C"	TOT1+2
^("N"	TOT1+2
^("U"	TOT1+2
^("X"	TOT1+2

Name	Comments	DBIA/ICR reference
PRI1	;print each row
PRI
TOT1	;column subtotal
END
HDR