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

Package: Registration

Routine: DGODNSM1


Information

DGODNSM1 ;ALB/EG - INPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500

Source Information

Source file <DGODNSM1.m>

Entry Points

Name Comments DBIA/ICR reference
TOT1
TOT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?I,"------"
  • Line Location: TOT1+0
Function Call: WRITE
  • Prompt: !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,"T",K,"C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
  • Line Location: TOT1+1
Function Call: WRITE
  • Prompt: ?100,^UTILITY("DGOD",$J,"T",K,"R")
  • Line Location: TOT1+2
Function Call: WRITE
  • Prompt: !,?1,"SUBTOTAL %",?30,$J(^UTILITY("DGOD",$J,"T",K,"C",1)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?40,$J(^UTILITY("DGOD",$J,"T",K,"C",2)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
  • Line Location: TOT1+5
Function Call: WRITE
  • Prompt: ?50,$J(^UTILITY("DGOD",$J,"T",K,"C",3)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?60,$J(^UTILITY("DGOD",$J,"T",K,"C",4)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
  • Line Location: TOT1+6
Function Call: WRITE
  • Prompt: ?70,$J(^UTILITY("DGOD",$J,"T",K,"C",5)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?80,$J(^UTILITY("DGOD",$J,"T",K,"C",6)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
  • Line Location: TOT1+7
Function Call: WRITE
  • Prompt: ?90,$J(^UTILITY("DGOD",$J,"T",K,"C",7)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
  • Line Location: TOT1+8
Function Call: WRITE
  • Prompt: ?100,$J(^UTILITY("DGOD",$J,"T",K,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
  • Line Location: TOT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: ?I,"======"
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,"T","C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?100,^UTILITY("DGOD",$J,"T","C")
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,?1,"TOTAL %",?30,$J(^UTILITY("DGOD",$J,"T","C",1)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?40,$J(^UTILITY("DGOD",$J,"T","C",2)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?50,$J(^UTILITY("DGOD",$J,"T","C",3)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?60,$J(^UTILITY("DGOD",$J,"T","C",4)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?70,$J(^UTILITY("DGOD",$J,"T","C",5)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?80,$J(^UTILITY("DGOD",$J,"T","C",6)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: ?90,$J(^UTILITY("DGOD",$J,"T","C",7)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+6
Function Call: WRITE
  • Prompt: ?100,$J(^UTILITY("DGOD",$J,"T","C")/^UTILITY("DGOD",$J,"T","C")*100,2,2),!
  • Line Location: TOT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("DGOD" TOT1+1, TOT1+2, TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8, TOT1+9, TOT+1
, TOT+2, TOT+3, TOT+4, TOT+5, TOT+6, TOT+7

Naked Globals

Name Field # of Occurrence
^(2 TOT1+1, TOT+1
^(3 TOT1+1, TOT+1
^(4 TOT1+1, TOT+1
^(5 TOT1+1, TOT+1
^(6 TOT1+1, TOT+1
^(7 TOT1+1, TOT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I TOT1*, TOT*
>> K TOT1+1, TOT1+2, TOT1+3, TOT1+4, TOT1+5, TOT1+6, TOT1+7, TOT1+8, TOT1+9
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All