Routine: DGPMGLP1

Information

DGPMGLP1 ;ALB/LM - G&L PRINT ROUTINE; 8 NOV 90

Name	Comments	DBIA/ICR reference
A
Q
TTHD	; Transaction Type
TTHD1
TT
FMHD	; Facility Movement
FM
TWO
PRINT2
TWOQ
CONT
PRINT2A
THREE
PRINT3
THREEQQ
VAR	; CPZ=Column Placement ; CT=Count of patients ; SC=Second Column starting point ; TC=Third Column starting point ; PO=Print Order

Name	Line Occurrences
Function Call: WRITE	Prompt: !?RM-($L(TTNAME))\2,TTNAME Line Location: TTHD1+1
Function Call: WRITE	Prompt: " " Line Location: TTHD1+2
Function Call: WRITE	Prompt: !?RM-($L(FMNAME))\2,FMNAME Line Location: FMHD+2
Function Call: WRITE	Prompt: " " Line Location: FMHD+4
Function Call: WRITE	Prompt: UL Line Location: FMHD+5
Function Call: WRITE	Prompt: !,$P(PTDATA(PO),"^") Line Location: PRINT2A+0
Function Call: WRITE	Prompt: ?68,$P(PTDATA(PO),"^") Line Location: PRINT2A+1
Function Call: WRITE	Prompt: ! Line Location: PRINT2A+1
Function Call: WRITE	Prompt: ! Condition for execution: PO#CPZ=1!($P(PTDATA(PO),"^",2)) Line Location: PRINT3+0
Function Call: WRITE	Prompt: ?88 Condition for execution: PO#CPZ=2&('$P(PTDATA(PO),"^",2)) ?44 W:PO#CPZ=0&('$P(PTDATA(PO),"^",2)) Line Location: PRINT3+0
Function Call: WRITE	Prompt: $P(PTDATA(PO),"^") Line Location: PRINT3+0