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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGPMGLP

Package: Registration

Routine: DGPMGLP


Information

DGPMGLP ;ALB/LM/MJK - G&L PRINT ROUTINE; 27 APR 2003

Source Information

Source file <DGPMGLP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 ^DGPMGLP1  $$NAME^VASITE  
VA Fileman 2 DW^%DTC  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPMGLG  DGPMGLP1  

Entry Points

Name Comments DBIA/ICR reference
A
COR ; From the Medical Center Division File, Census Multiple, Corrections to the Previous G&L's word processing field
CORR
SRVHD ; -- print service head
SCAN ; -- scan entries
DIVHD
K
LEG ; Legend
LINES
PARAM ; --check combine/separate parameter in 40.8
88
COR1 ; From the G&L Corrections File
COR2
FOOT
8 ; If there are no transactions

External References

Name Field # of Occurrence
DW^%DTC DIVHD+9
^DGPMGLP1 SCAN+1
^DIE A, K+1
$$NAME^VASITE DIVHD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIVHD+0
Function Call: WRITE
  • Prompt: !?94,"Date/Time Printed: ",DGNOW
  • Line Location: DIVHD+2
Function Call: WRITE
  • Prompt: !?RM-22\2,"GAINS AND LOSSES SHEET"
  • Line Location: DIVHD+3
Function Call: WRITE
  • Prompt: !?RM-$L(X)\2,X
  • Line Location: DIVHD+8
Function Call: WRITE
  • Prompt: !?RM-$L(X)\2,X
  • Line Location: DIVHD+13
Function Call: WRITE
  • Prompt: !?RM-$L(X)\2,X
  • Line Location: SRVHD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: UL["-"
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: UL
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(131-$L(X))
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: X
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: LINES+0
Function Call: WRITE
  • Prompt: !,^DG(40.8,DGDIV,"CEN",RD,"A",I,0)
  • Line Location: COR+2
Function Call: WRITE
  • Prompt: !,DGX
  • Line Location: CORR+1
Function Call: WRITE
  • Prompt: " For ",$S($D(^DPT(+$P(DGCR,"^",5),0)):$P(^(0),"^",1)_" "_$E($P(^(0),"^",9),6,9),1:" ")
  • Line Location: CORR+2
Function Call: WRITE
  • Prompt: " For admission of ",Y
  • Line Location: CORR+3
Function Call: WRITE
  • Prompt: ", transfer of ",Y
  • Line Location: CORR+4
Function Call: WRITE
  • Prompt: " Old value: ",$P(DGCR,"^",3)
  • Line Location: CORR+5
Function Call: WRITE
  • Prompt: " New value: ",$P(DGCR,"^",4)
  • Line Location: CORR+6
Routine Call
  • DIE
  • Line Location:
    • A
    • K+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DIVHD+11, CORR+3, CORR+4
^DG(40.8 - [#40.8] A+4, PARAM+1, DIVHD+7, COR+2
^DG(405.3 - [#405.3] SCAN+1
^DG(43.61 - [#43.61] COR2+1
^DGS(43.5 - [#43.5] COR1+2
^DIC(4 - [#4] A+4
^DIC(42 - [#42] 8+1, 88
^DPT - [#2] COR1+2, CORR+2
^UTILITY("DGT" A+3, 88*, SCAN+1
^UTILITY($J COR1+2*, COR1+3, COR1+4

Label References

Name Line Occurrences
8 A+2
88 8+1
COR A+3
COR1 A+4
COR2 COR1+4
CORR COR1+4
DIVHD A+3, COR+2, COR1+3, CORR
FOOT A+3
LINES COR+2, COR1+3, CORR
PARAM 88
SCAN A+3
SRVHD A+3

Naked Globals

Name Field # of Occurrence
^( COR1+4
^(0 PARAM+1, DIVHD+7, SCAN+1, COR1+2, CORR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C K!, FOOT+2*, FOOT+3*
C1 K!
DA A*!, K+1*, K+2!
DFN K!
DGCR K!, COR1+2*, COR1+4*, COR2, COR2+1, CORR+2, CORR+3, CORR+4, CORR+5, CORR+6
>> DGDIV A+3*, 88*, PARAM+1, DIVHD+7, SCAN+1, COR+2
DGDIV6 K!, PARAM+1*
DGINST A+3*, A+4*, K!, DIVHD+7
>> DGNOW DIVHD+2
>> DGPM("GL" 88
>> DGSRV A+3*, 8+1*, 88, PARAM+1*, SRVHD+1, SCAN+1
DGX K!, COR2+1*, CORR+1
DIE A*!, K+1*, K+2!
DR A*!, K+1*, K+2!
>> FF DIVHD, DIVHD+1*
FM K!
FMNAME K!
I K!, FOOT+3*, COR+2*, COR1+2*, COR1+4*
I1 K!
I2 K!
I3 K!
IOF DIVHD
J K!, COR1+4*
L K!, FOOT+1*
LA A+1*, K!
>> LEG A+3
>> LEG( FOOT+3
NAME K!
>> ORDER 8+1*
PTDATA K!
RA A+1*, K!
>> RD DIVHD+4, DIVHD+9, DIVHD+11, COR+2, COR1+2
>> RM DIVHD+3, DIVHD+8, DIVHD+13, SRVHD+2
TT K!, SCAN+1*
TTNAME A+3*, K!, SCAN+1*
>> UL FOOT, FOOT+1
>> WARD 8+1*, 88
X K!, DIVHD+4*, DIVHD+5, DIVHD+6*, DIVHD+7*, DIVHD+8, DIVHD+9*, DIVHD+10, DIVHD+12*, DIVHD+13
, DIVHD+14!, SRVHD+1*, SRVHD+2, FOOT+2*, FOOT+3*
X1 K!, 8+1*
Y K!, DIVHD+11*, DIVHD+12, DIVHD+14!, CORR+3*, CORR+4*
Z DIVHD+10*, DIVHD+12, DIVHD+14!

Marked Items

Name Field # of Occurrence
$T(LEG+C FOOT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All