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: DGPMTSR

Package: Registration

Routine: DGPMTSR


Information

DGPMTSR ;ALB/LM - TREATING SPECIALTY REPORT PRINT ; 3/12/93

Source Information

Source file <DGPMTSR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 3 START^DGPMTSR1  START^DGPMTSR2  $$NAME^VASITE  
VA Fileman 1 DW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMGLG  

Entry Points

Name Comments DBIA/ICR reference
A ; This will output ^TMP totals by treating specialty ; by service ; by division ; and finally by grand total
HEAD
END
HEAD2
TSRS ; print service total
TS
TSRD ; print division total
START ;
S
PEND
KILL ; Kills Variables
PRINT ; Output
TSR ; print treating specialty total
ORDER
TSRG ; print grand total

External References

Name Field # of Occurrence
DW^%DTC HEAD+13
START^DGPMTSR1 START+6
START^DGPMTSR2 START+6
$$NAME^VASITE HEAD+6

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?94,"Date/Time Printed: ",DGNOW
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?RM-26\2,"TREATING SPECIALTY REPORT"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?(IOM-10),"PAGE ",$J(PAGE,3)
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !?RM-$L(X)\2,X
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !?RM-$L(X)\2,X,!
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+19
Function Call: WRITE
  • Prompt: ?131,""
  • Condition for execution: $Y<131
  • Line Location: HEAD+19
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HEAD+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: UL["-"
  • Line Location: HEAD+19
Function Call: WRITE
  • Prompt: UL
  • Line Location: HEAD+19
Function Call: WRITE
  • Prompt: !?0,"|",?(RM-$L(X)\2),X,?130,"|"
  • Line Location: HEAD+20
Function Call: WRITE
  • Prompt: ?131,""
  • Condition for execution: $Y<131
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: UL["-"
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: UL
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: !?0,"|","DIVISION",?44,"PREVIOUS",?74,"CURRENT",?109,"AVERAGE",?118,"CUMULATIVE",?130,"|"
  • Line Location: HEAD2+0
Function Call: WRITE
  • Prompt: !?0,"|",?2,"SERVICE",?44,"PATIENTS",?74,"PATIENT",?109,"DAILY",?118,"PATIENT",?130,"|"
  • Line Location: HEAD2+1
Function Call: WRITE
  • Prompt: !?0,"|",?3,"FACILITY TREATING SPECIALTY",?44,"REMAINING",?57,"GAINS",?65,"LOSSES",?74,"REMAINING",?86,"PASS",?93,"AA",?98,"UA",?103,"ASIH",?109,"CENSUS",?118,"DAYS OF CARE",?130,"|"
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: ?131,""
  • Condition for execution: $Y<131
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: UL["-"
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: UL
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !?1,$P(^TMP("TSRD",$J,D)," TOTALS")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?2,$P(^TMP("TSRS",$J,D,S)," TOTALS")
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TSR+2
Function Call: WRITE
  • Prompt: ?+$P(TAB,"^",I),$J($P(^TMP("TSR",$J,D,S,ORDER,TS),"^",I),$P(JUS,"^",I))
  • Line Location: TSR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRS+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TSRS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRS+4
Function Call: WRITE
  • Prompt: ?+$P(TAB,"^",I),$J($P(^TMP("TSRS",$J,D,SERVICE),"^",I),$P(JUS,"^",I))
  • Line Location: TSRS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRS+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TSRS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRD+2
Function Call: WRITE
  • Prompt: ?+$P(TAB,"^",I),$J($P(^TMP("TSRD",$J,DIVISION),"^",I),$P(JUS,"^",I))
  • Line Location: TSRD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRD+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TSRD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRG+2
Function Call: WRITE
  • Prompt: ?+$P(TAB,"^",I),$J($P(^TMP("TSRG",$J),"^",I),$P(JUS,"^",I))
  • Line Location: TSRG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TSRG+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TSRG+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+15
^DG(40.8 - [#40.8] START+2, START+6, HEAD+10
^DG(43 - [#43] HEAD+9
^TMP("TSR" START+1!, PRINT+4, S, ORDER, TS, TSR+3, KILL+1!
^TMP("TSRD" START+1!, PRINT+4, TSRD+3, KILL+1!
^TMP("TSRG" START+1!, TSRG+3, KILL+1!
^TMP("TSRS" START+1!, S, TSRS+5, KILL+1!

Label References

Name Line Occurrences
END START+2
HEAD START+8, TSR+1, TSRS+1, TSRD+1, TSRG+1
KILL START+10
ORDER S
PRINT START+9
S PRINT+4
TS ORDER
TSR TS
TSRD PRINT+4
TSRG PRINT+6
TSRS S

Naked Globals

Name Field # of Occurrence
^("GL" HEAD+9
^(0 HEAD+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADC KILL+2!
BD KILL+2!
CN KILL+2!
D START+6*, PRINT+4*, S, ORDER, TS, TSR+3, TSRS+5, KILL+2!
D1 START+6*, KILL+2!
DGNOW HEAD+3, KILL+2!
>> DGPM("GL" HEAD+9*, HEAD+10, KILL+2!
DIVISION PRINT+4*, TSRD+3, KILL+2!
DTIME HEAD
END START+8, HEAD*, PRINT+4, PRINT+5, S, ORDER, TS, TSR+1, TSRS+1, TSRD+1
, TSRG+1, KILL+2!
>> FY("D" KILL+2!
I START+6*, TSR+3*, TSRS+5*, TSRD+3*, TSRG+3*, KILL+2!
IOF HEAD+1
IOM HEAD+5, TSRS+3, TSRS+7, TSRD+5, TSRG+5
IOSL TSR+1, TSRS+1, TSRD+1, TSRG+1
IOST HEAD, HEAD+1
JUS PRINT+2*, TSR+3, TSRS+5, TSRD+3, TSRG+3, KILL+2!
L HEAD+19*, HEAD+21*, HEAD2+3*, TSRS+3*, TSRS+7*, TSRD+5*, TSRG+5*, KILL+2!
O1 START+6*, KILL+2!
ORDER START+6*, ORDER*, TS, TSR+3, KILL+2!
ORDER1 ORDER*, KILL+2!
PAGE START+5*, HEAD, HEAD+1, HEAD+2*, HEAD+5, KILL+2!
PD KILL+2!
RD START+3, HEAD+6, HEAD+12, HEAD+15, KILL+2!
RM HEAD+4, HEAD+11, HEAD+16, HEAD+20, KILL+2!
S S*, ORDER, TS, TSR+3, KILL+2!
S1 S*, KILL+2!
SERVICE S*, TSRS+5, KILL+2!
SV KILL+2!
T KILL+2!
TAB PRINT+1*, TSR+3, TSRS+5, TSRD+3, TSRG+3, KILL+2!
TS TS*, TSR+3, KILL+2!
TSR KILL+2!
TSRI START+3, KILL+2!
UL HEAD+19, HEAD+21, HEAD2+3, KILL+2!
X HEAD*, HEAD+6*, HEAD+7, HEAD+8*, HEAD+10*, HEAD+11, HEAD+12*, HEAD+14*, HEAD+15*, HEAD+16
, HEAD+17*, HEAD+20, KILL+2!
X1 HEAD+14*, KILL+2!
X2 KILL+2!
Y HEAD+15*, KILL+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All