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

Package: Registration

Routine: DGODTOT


Information

DGODTOT ;ALB/EG - PRINT TOTALS FOR OUTPUT REPORTS ; 2/22/89 1420

Source Information

Source file <DGODTOT.m>

Caller Graph

Caller Graph Total: 2

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

Global Variables Directly Accessed

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*

Naked Globals

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

Local Variables

Legend:

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