Routine: AZAXHRN

Package	Total	Call Graph
VA Fileman	4	^%DT FILE^DICN ^DIE ^DIR
Kernel	2	HOME^%ZIS ($$STATUS,CLOSE,OPEN)^%ZISH
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
FILES	;
CNT	;----- COUNT THE REUSED HRNS AT SAME SITE
EN	;EP -- MAIN ENTRY POINT - USER INTERACTIVE
CHK(OUT)	;
CNTDFN()	;
KILL	;
PF(TXT,ANS,OUT)	;
EN1	;EP -- NON-USER INTERACTIVE ENTRY POINT ; LOOPS THROUGH EACH FILE IN 'FILES' AND EXTRACTS THE DATA
NEXT()	;
PROC(FILE)	;
LOC(X)	;
EDIT(DA,DR)	;
READ(PATH,FILE,OUT)	;
ONE(AZAX,EXPDT,EXPFAC,FILE,CNT)	;
PNAME(X)	;
NEW()	;
DFN(X)	;

External References

Name	Field # of Occurrence
^%DT	CHK+10
HOME^%ZIS	EN+5, EN1+4
$$STATUS^%ZISH	READ+18
CLOSE^%ZISH	READ+23
OPEN^%ZISH	READ+8
FILE^DICN	NEW+9
^DIE	EDIT+6
^DIR	PF+13, CHK+21
^XBKVAR	EN+4, EN1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA FOUND" Line Location: EN+21
Function Call: WRITE	Prompt: !,"This does not appear to be a REGISTRATION EXPORT file... " Line Location: EN+24
Function Call: WRITE	Prompt: !,"UNABLE TO PROCEED!" Line Location: EN+25
Function Call: WRITE	Prompt: !,"Processing ^TMP global..." Line Location: PROC+5
Function Call: WRITE	Prompt: !,CNT," entries added to 'AZAX HRN HISTORICAL LOG' file" Line Location: PROC+15
Function Call: WRITE	Prompt: "." Line Location: ONE+27
Function Call: WRITE	Prompt: !,"UNABLE TO OPEN FILE '"_PATH_FILE_"'" Line Location: READ+10
Function Call: WRITE	Prompt: !,"Reading export file '",PATH_FILE,"'..." Line Location: READ+13
Function Call: WRITE	Prompt: "." Line Location: READ+22
Function Call: WRITE	Prompt: !,I," records added to ^TMP global" Line Location: READ+24
Function Call: WRITE	Prompt: ! Line Location: CHK+13
Function Call: WRITE	Prompt: !,"ASUFAC: "_FAC_" HRN: "_HRN_" = "_$G(^TMP("AZAX",$J,"CNT",FAC,HRN)) Line Location: CNT+27
Routine Call	%ZIS Line Location: EN+5 EN1+4
Routine Call	DIE Line Location: EDIT+6
Routine Call	DIR Line Location: PF+13 CHK+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC("C"	LOC+8
^AZAX(1991288	NEW+4, NEW+10, NEXT+5, NEXT+6, NEXT+7, NEXT+8, CHK+11, CNT+7, CNT+8, PNAME+6
^DIC(4 - [#4]	LOC+9
^DPT - [#2]	PNAME+7
^TMP("AZAX"	EN+20, EN+23, PROC+8, PROC+9, PROC+12, ONE+5, READ+5!, READ+20, READ+21, KILL+3! , CNTDFN+7, CNTDFN+8, CHK+7, EN1+19, EN1+20, CNT+4!, CNT+12, CNT+15, CNT+17, CNT+19 , CNT+20, CNT+23, CNT+25, CNT+26, CNT+27

Label References

Name	Line Occurrences
$$DFN	ONE+12
$$LOC	ONE+19
$$NEW	ONE+9
$$NEXT	NEW+5
CHK	EN+28
EDIT	ONE+24
KILL	EN+26, EN+33
ONE	PROC+13
PF	EN+9, EN+13
PROC	EN+31, EN1+22
READ	EN+17, EN1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	CHK+9*
ANS	EN+2~, EN+9, EN+11, EN+13, EN+15, PF~, PF+5, PF+16
ASUFAC	ONE+3~, ONE+15, ONE+18, ONE+19
AZAX	PROC+3~, PROC+11, PROC+12, PROC+13, ONE~, ONE+5
CNT	PROC+3~, PROC+7, PROC+13, PROC+15, ONE~, ONE+26, ONE+27, CNTDFN+3~, CNTDFN+5, CNTDFN+15 , CNTDFN+16
DA	ONE+3~, ONE+9*, ONE+10, ONE+24, EDIT~
DATA	ONE+3~, ONE+5*, ONE+6, ONE+7, ONE+12, ONE+13, ONE+14, ONE+15, ONE+16, ONE+17 , ONE+18
DD	NEW+3~
DFN	ONE+3~, ONE+12, CNTDFN+4!, CNTDFN+10, CNTDFN+11, CNTDFN+12, CNTDFN+13, CNTDFN+14, CNT+2~, CNT+9 , CNT+12, CNT+18, CNT+19
DFN(	CNTDFN+13, CNTDFN+14*
DIC	NEW+3~, NEW+6*
DIC(0	NEW+8*
DIE	EDIT+3~, EDIT+5*
DIR	PF+3~, CHK+3~
DIR("?"	PF+8, PF+11
DIR("A"	PF+12, CHK+15, CHK+16, CHK+17, CHK+18, CHK+19
DIR("B"	CHK+20*
DIR(0	PF+6, PF+10, CHK+14*
DIRUT	PF+3~, PF+14
DLAYGO	NEW+3~, NEW+7*
DO	NEW+3~
DR	ONE+3~, ONE+21, ONE+22, ONE+24, EDIT~
DTIME	READ+17
DTOUT	PF+3~, PF+14
DUOUT	PF+3~, PF+14
END	READ+3~, READ+6, READ+15, READ+18
EXPDT	PROC+3~, PROC+8*, PROC+13, ONE~
EXPFAC	PROC+3~, PROC+9*, PROC+13, ONE~
FAC	CNT+2~, CNT+11, CNT+12, CNT+14, CNT+15, CNT+17, CNT+19, CNT+20, CNT+22, CNT+23* , CNT+25, CNT+26, CNT+27
FILE	EN+2~, EN+15, EN+17, EN+31, PROC~, PROC+13, ONE~, READ~, READ+8, READ+10 , READ+13, EN1+11, EN1+12, EN1+13, EN1+17, EN1+22
HRN	ONE+3~, ONE+14, ONE+17, CNT+2~, CNT+10, CNT+12, CNT+16, CNT+17, CNT+19, CNT+20 , CNT+24, CNT+25*, CNT+26, CNT+27
I	READ+3~, READ+15, READ+20, READ+22, READ+24, EN1+7
IO	READ+16
J	READ+3~, READ+19*
LOC	ONE+3~, ONE+19*
OUT	EN+2~, EN+7, EN+9, EN+10, EN+13, EN+14, EN+17, EN+18, EN+28, EN+29 , PF~, PF+14, PF+15, READ~, READ+11, CHK~, CHK+5, CHK+22, EN1+5, EN1+7 , EN1+9*, EN1+10, EN1+17, EN1+18
PATH	EN+2~, EN+11, EN+17, READ~, READ+8, READ+10, READ+13, EN1+14, EN1+15, EN1+17
POP	READ+3~, READ+9
TXT	PF~, PF+7, PF+9, PF+12, EN1+8*, EN1+9, EN1+11, EN1+14
U	PROC+9, ONE+6, ONE+7, ONE+12, ONE+13, ONE+14, ONE+15, ONE+16, ONE+17, ONE+18 , LOC+9, NEXT+6, CNTDFN+9, CNTDFN+10, CNT+9, CNT+10, CNT+11, PNAME+6, PNAME+7
X	ONE+3~, EDIT+3~, DFN~, DFN+7, DFN+8, DFN+9, LOC~, LOC+7, LOC+8, NEW+3~ , NEW+5, PF+3~, READ+3~, READ+17, READ+19, READ+20, CNTDFN+3~, CNTDFN+6, CNTDFN+7, CNTDFN+8 , CHK+3~, CHK+7, CHK+8, CNT+2~, CNT+6, CNT+7, CNT+8, PNAME~, PNAME+6
Y	ONE+3~, EDIT+3~, DFN+5~, DFN+6, DFN+9, DFN+10, LOC+5~, LOC+6, LOC+8, LOC+9* , LOC+10, NEW+3~, NEW+11, NEXT+3~, NEXT+4, NEXT+6, NEXT+7, NEXT+8, NEXT+9, PF+3~ , PF+16, CNTDFN+3~, CNTDFN+8, CNTDFN+9, CNTDFN+10, CHK+3~, CHK+11, CHK+22, CNT+2~, CNT+8* , CNT+9, CNT+10, CNT+11, PNAME+4~, PNAME+5, PNAME+6, PNAME+7*, PNAME+8

Marked Items

Name	Field # of Occurrence
$T(FILES+I	EN1+8

Customize PDF page

Package: Local Area Programs

Routine: AZAXHRN

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items