Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGODNP2

Package: Registration

Routine: DGODNP2


Information

DGODNP2 ;ALB/EG - OUTPUT TOT DISCH BY MEANS TST/ELIGIBILITY; JAN 9 1989 @ 1507

Source Information

Source file <DGODNP2.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGODNP1  

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
HDR PRI+2, PRI1+1
PRI DGODNP2+5
PRI1 PRI+6
TOT1 PRI1+7

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All