Routine: DGRPTP

Information

DGRPTP ;ALB/RMO - Print 10-10T Registration;06 JAN 1997 2:56 pm

Source file <DGRPTP.m>

Package	Total	Call Graph
Registration	3	EN^DGRPTP1 ($$FIRST,ENDREP)^DGUTL (CLOSE,ZIS)^DGUTQ
Kernel	1	^%ZTLOAD
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Registration	2	DGRPTI DGRPTP2

Name	Comments	DBIA/ICR reference
FT(DFN,DFN1,DGLNE,DGPGE)	;Print footer ; Input -- DFN Patient IEN ; DFN1 Disposition multiple IEN (optional) ; DGLNE Line format array ; DGPGE Page number ; Output -- None
SETUP(DFN,DGNAM,DGSSN,DGLNE,DGPGE)	;Set-up print variables ; Input -- DFN Patient IEN ; Output -- DGNAM Patient name ; DGSSN Patient ssn ; DGLNE Line format array ; DGPGE Page number
QUE(DFN,DFN1,DGIO)	;Queue 10-10T print ; Input -- DFN Patient IEN ; DFN1 Disposition multiple IEN (optional) ; DGIO Registration printer array ; Output -- None
Q
EN	;Entry point to print a 10-10T ; Input -- DFN Patient IEN ; DFN1 Disposition multiple IEN (optional) ; DGOPT Registration variable (optional) ; Output -- None
ENDEV(DFN,DFN1)	;Entry point to ask device before printing 10-10T ; Input -- DFN Patient IEN ; DFN1 Disposition multiple IEN (optional) ; Output -- None
HD(DGNAM,DGSSN,DGLNE)	;Print header ; Input -- DGNAM Patient name ; DGSSN Patient ssn ; DGLNE Line format array ; Output -- None

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,*7,"This output requires 132 column output to a PRINTER." Line Location: ENDEV+6
Function Call: WRITE	Prompt: !?5,"Output to SCREEN will be unreadable." Line Location: ENDEV+7
Function Call: WRITE	Prompt: @IOF,!,DGNAM,?116,DGSSN,!,DGLNE("DD") Line Location: HD+5
Function Call: WRITE	Prompt: !,DGLNE("DD") Line Location: FT+7
Function Call: WRITE	Prompt: !,"Reg Date/Time: ",Y Line Location: FT+9
Function Call: WRITE	Prompt: ?52,"PRINTED: ",Y Line Location: FT+10
Function Call: WRITE	Prompt: !!!!,"AUTOMATED VA FORM 10-10T",?120,"PAGE: ",DGPGE Line Location: FT+13

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FT+9, FT+10
^DPT - [#2]	SETUP+10, FT+8
^VA(200 - [#200]	FT+12

Name	Line Occurrences
Q	ENDEV+8, EN+8
SETUP	EN+7

Name	Field # of Occurrence
^(0	SETUP+10, FT+12

Name	Field # of Occurrence
%	QUE+5~, QUE+11, FT+6~, FT+10
DFN	QUE~, QUE+8, ENDEV~, EN+7, EN+9, SETUP~, SETUP+10, FT~, FT+8
DFN1	QUE~, QUE+6, QUE+9, ENDEV~, ENDEV+5, EN+9, FT~, FT+8
DGCLK	FT+6~, FT+11*, FT+12
DGDIS	FT+6~
DGDIS(0	FT+8*, FT+9, FT+11
DGIO	QUE~
DGIO(10	QUE+10
DGLNE	EN+5~, EN+7, EN+9, SETUP~, HD~, FT~
DGLNE("D"	SETUP+8, SETUP+9
DGLNE("DD"	SETUP+8, SETUP+9, HD+5, FT+7
DGLNE("UL"	SETUP+8, SETUP+9
DGLNE("ULC"	SETUP+7*, SETUP+9
DGNAM	EN+5~, EN+7, EN+9, SETUP~, SETUP+10*, HD~, HD+5
>> DGOPT	Q+1
DGPGE	EN+5~, EN+7, EN+9, SETUP~, SETUP+12*, FT~, FT+13
>> DGPGM	ENDEV+4*
DGSSN	EN+5~, EN+7, EN+9, SETUP~, SETUP+11*, HD~, HD+5
>> DGVAR	ENDEV+5*
IO	EN+6
IOF	HD+5
IOST	SETUP+7
>> POP	ENDEV+8
U	SETUP+10, FT+9, FT+11, FT+12
X	SETUP+6~, SETUP+10*, SETUP+11
Y	FT+6~, FT+9, FT+10
ZTDESC	QUE+5~, QUE+6*
>> ZTDTH	QUE+11*
ZTIO	QUE+5~, QUE+10*
ZTRTN	QUE+5~, QUE+7*
ZTSAVE	QUE+5~
ZTSAVE("DFN"	QUE+8*
ZTSAVE("DFN1"	QUE+9*
ZTSK	QUE+5~, QUE+13