Routine: AZHZCLN

Package	Total	Call Graph
IHS Patient Registration	4	HDR^AG ^AGFACE ^AGSEENLY ^AGVAR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ^XUP
Local Area Programs	4	(,AZHZPG,INIT,PRT,SET)^AZHZCL (DOIT2,EXIT,INIT,OTH)^AZHZCL1 ^AZHZCLAG PUNC^AZHZCLN
VA Fileman	3	%XY^%RCR DT^DICRW ^DIR

Package

Total

Call Graph

HDR^AG ^AGFACE ^AGSEENLY ^AGVAR

^%ZIS ^%ZISC ^%ZTLOAD ^XUP

(,AZHZPG,INIT,PRT,SET)^AZHZCL (DOIT2,EXIT,INIT,OTH)^AZHZCL1 ^AZHZCLAG PUNC^AZHZCLN

%XY^%RCR DT^DICRW ^DIR

Package	Total	Caller Graph
Local Area Programs	3	AZHZCL AZHZCL1 AZHZCLN

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EXIT
DEQUE	;ENTRY POINT FOR DEQUE
ALL	; perform steps 1-5
DQALL	;ENTRY POINT FOR TASKING
PUNC	;EP
DQPPRT	;ENTRY POINT FOR TASKING
23
RES	;ENTRY POINT restore Compiled Edits Global
DUZ
INIT
S	;
PUNPRT	;ENTRY POINT to print names that had punctuation "()&/" removed
QUE	;ENTRY POINT from the INIT^AZHZCL1
FAC	; FACE SHEET PRINT
AZHZPG
EPUN
SAV	;ENTRY POINT save Compiled Edits Global
VIEW	; VIEW ANY PATIENT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Please use the Numbers",! Line Location: DUZ+6
Function Call: WRITE	Prompt: !,"SAVING IMAGE",! Line Location: SAV+1
Function Call: WRITE	Prompt: *7,"<< ERROR .. ^AZHZSAV does not exist ! >>",! Line Location: RES+1
Function Call: WRITE	Prompt: *7,!,"<NO Compiled Edits Global Present>",! Line Location: PUNPRT+3
Function Call: WRITE	Prompt: 7,!,"< Sorry ",^AZHZTEMP," needs to be completed first >",!,7 Line Location: PUNPRT+4
Function Call: WRITE	Prompt: !,*7,"< SCAN must be completed first > ",! Line Location: PUNPRT+5
Function Call: WRITE	Prompt: !,"THERE ARE ",^AZHZTEMP("P",0)," PATIENTS TO PRINT",!,"STARTING AT " Line Location: DQPPRT+4
Function Call: WRITE	Prompt: ! Line Location: DQPPRT+4
Function Call: WRITE	Prompt: !," Patient Name : DFN",!," Old Data to be Corrected : New Data Corrections ",!! Line Location: DQPPRT+5
Function Call: WRITE	Prompt: !,"This will automatically process steps 1-5 and then exit" Line Location: ALL+1
Function Call: WRITE	Prompt: !,"It is advised that a printer type device be selected",! Line Location: ALL+2
Function Call: WRITE	Prompt: !,"Tasked with number : ",ZTSK,! Line Location: QUE+5
Routine Call	DIR Line Location: DUZ+4
Routine Call	%ZIS Line Location: S+1 DEQUE+2

Name	Line Occurrences (* Changed, ! Killed)
^AZHZSAV	SAV+1, RES+1
^AZHZTEMP	RES+2!, RES+3*, PUNPRT+3, PUNPRT+4, 23+1
^AZHZTEMP("A"	DUZ+2, PUNPRT+5
^AZHZTEMP("P"	DQPPRT+2, DQPPRT+3*, DQPPRT+4, 23

Name	Line Occurrences
@(	DUZ+9, DEQUE+3
ALL	DUZ+7
AZHZPG	23+1
EXIT	DUZ+11, PUNPRT+4, PUNPRT+5, EPUN, ALL+5, ALL+6
INIT	PUNPRT+7
S	DUZ+6, DUZ+10

Name	Field # of Occurrence
>> %X	SAV+1, RES+3
>> %Y	SAV+1, RES+3
>> %ZIS("IOPAR"	DEQUE+2*
>> AGOPT	FAC+1
>> AUPNLK("ALL"	VIEW+1, VIEW+2!, FAC+1, FAC+2!
>> AZHZ("IOPAR"	QUE+4*, DEQUE+2
>> AZHZCC	DQPPRT+2*, DQPPRT+3
>> AZHZHDR	PUNPRT+6*
>> AZHZHIT	PUNPRT+6*, 23+1
AZHZIOP	S+2!, DUZ+11!, ALL+3!, ALL+4, ALL+5!, ALL+6!, DQALL+2!, QUE+3
AZHZMEN	DUZ+4*, DUZ+10, DUZ+11!, ALL+5!, ALL+6!, DQALL+2!
>> AZHZN	23+2*
>> AZHZRTN	PUNPRT+6, ALL+3, QUE+2, DEQUE+3
>> AZHZSET	PUNPRT+6*
>> DFN	DQPPRT+2, DQPPRT+3, 23*, 23+1
>> DFOUT	DUZ+8, PUNPRT+1, PUNPRT+2, PUNPRT+7, DQPPRT+1, ALL+5
>> DIR("B"	DUZ+2, DUZ+3
>> DIR(0	DUZ+1*
>> DTOUT	DUZ+5
>> DUOUT	DUZ+8, PUNPRT+1, PUNPRT+2, PUNPRT+7, DQPPRT+1, ALL+5
DUZ	DUZ
IO	23+1
IOM	ALL+4, QUE+3
ION	ALL+4, QUE+3, QUE+4, DEQUE+2
>> IOP	S+1, DEQUE+2
>> IOPAR	QUE+4
IOSL	ALL+4, QUE+3
IOST	ALL+4, QUE+3
>> POP	ALL+5
>> X	DUZ+2, DUZ+4, DUZ+6, DUZ+7, DUZ+9, FAC+1
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("AZHZ*"	QUE+2*
ZTSK	ALL+3!, ALL+6, QUE+5

Information