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
Print Page as PDF
Routine: DGODOSM1

Package: Registration

Routine: DGODOSM1


Information

DGODOSM1 ;ALB/EG - OUTPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500

Source Information

Source file <DGODOSM1.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)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?40,$J(^UTILITY("DGOD",$J,"T","C",2)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+4
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+5
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+6
Function Call: WRITE
  • Prompt: ?90,$J(^UTILITY("DGOD",$J,"T","C",7)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: ?100,$J(^UTILITY("DGOD",$J,"T","C")/^UTILITY("DGOD",$J,"T","C")*100,2,2),!
  • Line Location: TOT+8
Info |  Source |  Entry Points |  Interaction Calls