Routine: DPTDZALP

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD
VA Fileman	2	Y^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
ZIS
ERR
PRN
DRIVER	; entry point for taskman
START	;
TSKMN	;
XIT	;
HEAD1	;
PROC	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS
^%ZTLOAD	TSKMN+5
Y^DIQ	PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will contain an alphabetical listing of all of the patients in the",!,"Duplicate Record file.",! Line Location: START+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+0
Function Call: WRITE	Prompt: Y,?40,"MERGE DIRECTION: " Line Location: PRN+5
Function Call: WRITE	Prompt: Y Line Location: PRN+5
Function Call: WRITE	Prompt: Y,?40,"DATE FOUND: " Line Location: PRN+6
Function Call: WRITE	Prompt: Y Line Location: PRN+6
Function Call: WRITE	Prompt: Y,?40,"DATE RESOLVED: " Line Location: PRN+7
Function Call: WRITE	Prompt: Y Line Location: PRN+7
Function Call: WRITE	Prompt: Y,?40,"WHO VERIFIED: " Line Location: PRN+8
Function Call: WRITE	Prompt: Y Line Location: PRN+8
Function Call: WRITE	Prompt: Y,?40,"DC POTENTIAL DUPE THRESHOLD %: " Line Location: PRN+9
Function Call: WRITE	Prompt: Y Line Location: PRN+9
Function Call: WRITE	Prompt: Y,?40,"DC DUPE MATCH PERCENTILE: " Line Location: PRN+10
Function Call: WRITE	Prompt: Y Line Location: PRN+10
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: "",?3,$P(^DIC(4,DUZ(2),0),U,1)," ",DPTDZALP("DT"),?70,"Page ",DPTDZALP("PG"),?78,"",! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?10,"ALPHABETICAL LISTING OF PATIENTS IN DUPLICATE RECORD FILE",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: X,! Line Location: HEAD1+4
Routine Call	DIR Line Location: HEAD+1
Routine Call	%ZIS Line Location: ZIS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	PRN+11!
^DD("DD"	PROC+4
^DD(15	PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10
^DIC(4 - [#4]	HEAD1+2
^DPT - [#2]	PROC+2, PRN+4
^TMP("DPTDZALP"	DRIVER+1!, PROC+2*, PRN+1, PRN+2
^VA(15 - [#15]	PROC+1, PROC+2, PRN+4, PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10

Label References

Name	Line Occurrences
HEAD	PRN, PRN+3
HEAD1	HEAD
TSKMN	ZIS+2
XIT	ZIS+1, PRN+12, TSKMN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %IS	ZIS*
>> C	PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10
DIR	XIT+2!, HEAD+1!
DIR(0	HEAD+1*
DIRUT	XIT+2!
DPTDZALP	XIT+1!
DPTDZALP("DT"	PROC+4*, HEAD1+2
DPTDZALP("PG"	PRN, HEAD, HEAD1+1, HEAD1+2
DPTDZALP("QUIT"	PRN+1, PRN+3, HEAD+1*
DPTDZALP("X"	PROC+1, PROC+2, PRN+1, PRN+2, PRN+4
DPTDZALP("Y"	PRN+2*, PRN+4, PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10
DT	PROC+4
DTOUT	XIT+2!, HEAD+1
DUOUT	XIT+2!
DUZ(2	HEAD1+2
IO	PROC+3, HEAD+1, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+2
IO(0	HEAD+1
IOF	HEAD1+1
IOM	TSKMN+3
ION	TSKMN+1
IOP	ZIS!
IOSL	PRN+3, TSKMN+3
IOST	HEAD+1, TSKMN+1
>> POP	ZIS+1
U	PROC+2, PRN+4, PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10, HEAD1+2
X	XIT+2!, HEAD1+4*
Y	PROC+4, PRN+5, PRN+6, PRN+7, PRN+8, PRN+9, PRN+10*, XIT+2!, HEAD+1
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
ZTQUEUED	ZIS!
>> ZTRTN	TSKMN+5*
>> ZTSAVE("*"	TSKMN+4*
ZTSK	ZIS!, PRN+11

Customize PDF page

Package: Registration

Routine: DPTDZALP

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: