Routine: DGPMGLP

Information

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

Source file <DGPMGLP.m>

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

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

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