Routine: DGPMGLP

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

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

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

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

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

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

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!

Name	Field # of Occurrence
$T(LEG+C	FOOT+3