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

Package: Registration

Routine: DGPMTSR


Information

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

Source Information

Source file <DGPMTSR.m>

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
START ;
END
HEAD
HEAD2
PRINT ; Output
PEND
S
ORDER
TS
TSR ; print treating specialty total
TSRS ; print service total
TSRD ; print division total
TSRG ; print grand total
KILL ; Kills Variables

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls