Routine: ACRFIRSF

Package	Total	Call Graph
Commitment Register	3	$$ARMSDIR^ACRFSYS PAUSE^ACRFWARN (CLOSE,OPEN)^ACRFZISH
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIR

Package

Total

Call Graph

$$ARMSDIR^ACRFSYS PAUSE^ACRFWARN (CLOSE,OPEN)^ACRFZISH

^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: " please wait... " Line Location: EN+9
Function Call: WRITE	Prompt: !!,"No data found" Line Location: EN+12
Function Call: WRITE	Prompt: ! Line Location: YEAR+4
Function Call: WRITE	Prompt: ! Line Location: UNIX+21
Function Call: WRITE	Prompt: !!,"Records have been put into UNIX file /usr/spool/afsdata/"_ACRFILE Line Location: UNIX+22
Function Call: WRITE	Prompt: !!,"Records have been put into file "_ACRPATH_ACRFILE Line Location: UNIX+23
Function Call: WRITE	Prompt: """" Line Location: WRITE+2
Function Call: WRITE	Prompt: X Line Location: WRITE+3
Function Call: WRITE	Prompt: """" Line Location: WRITE+4
Function Call: WRITE	Prompt: "," Line Location: WRITE+5
Function Call: WRITE	Prompt: !,"CANNOT OPEN FILE "_ZISH1_ZISH2 Line Location: HFS+9
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Routine Call	DIR Line Location: YEAR+9 FILE+8

Name	Line Occurrences (* Changed, ! Killed)
^ACR1099V - [#9002198.2]	GET+16, GET+17
^ACR1099V("C"	GET+5
^AUTTVNDR - [#9999999.11]	GET+7, GET+8, GET+9
^DIC(5 - [#5]	GET+14
^TMP("ACRF"	EN+11, EN+14!, GET+19*, UNIX+7, UNIX+15, UNIX+17

Name	Field # of Occurrence
%DEV	UNIX+6~, UNIX+10, UNIX+11, UNIX+13, HFS~, HFS+11*
ACRADD1	GET+3~, GET+10*, GET+19
ACRADD2	GET+3~, GET+11*, GET+19
ACRCITY	GET+3~, GET+12*, GET+19
ACRCNT	GET+3~, GET+4, GET+6, GET+19, UNIX+6~, UNIX+14, UNIX+16
ACRDATA	GET+3~, GET+9, GET+10, GET+11, GET+12, GET+13, GET+15, UNIX+6~, UNIX+17, UNIX+18 , UNIX+19
ACREIN	GET+3~, GET+8*, GET+19
ACRFILE	EN+2~, EN+7, EN+8, EN+13, UNIX~, UNIX+10, UNIX+23, FILE~, FILE+4, FILE+10 , HFS~
ACRNAME	GET+3~, GET+7*, GET+19
ACROUT	UNIX+6~, UNIX+11*, UNIX+12, HFS~
ACRPATH	UNIX+6~, UNIX+8*, UNIX+9, UNIX+10, UNIX+23
ACRSTATE	GET+3~, GET+13, GET+14, GET+19
ACRTYP	GET+3~, GET+16*, GET+19
ACRVND	GET+3~, GET+4, GET+5, GET+7, GET+8, GET+9, GET+16, GET+17
ACRYR	EN+2~, EN+5, EN+6, EN+10, YEAR~, YEAR+5, YEAR+11, GET~, GET+5, GET+17 , GET+19
ACRYTD	GET+3~, GET+17, GET+18, GET+19
ACRZIP	GET+3~, GET+15*, GET+19
DIR	YEAR+3~, FILE+3~
DIR("?"	FILE+7*
DIR("A"	YEAR+7, FILE+6
DIR("B"	YEAR+8*
DIR(0	YEAR+6, FILE+5
DIRUT	YEAR+3~, YEAR+10, FILE+3~, FILE+9
DT	YEAR+8
DTOUT	YEAR+3~, YEAR+10, FILE+3~, FILE+9
DUOUT	YEAR+3~, YEAR+10, FILE+3~, FILE+9
I	UNIX+6~, UNIX+14, UNIX+15, UNIX+17, TXT+2~, TXT+3*
IO	HFS+11
J	UNIX+6~, UNIX+18*, UNIX+19
U	GET+7, GET+8, GET+10, GET+11, GET+12, GET+13, GET+14, GET+15, GET+16, GET+17 , GET+19, UNIX+18, UNIX+19
X	YEAR+3~, UNIX+6~, UNIX+19, UNIX+20, WRITE~, WRITE+3, FILE+3~, TXT+2~, TXT+3
Y	YEAR+3~, YEAR+11, FILE+3~, FILE+10

Name	Comments	DBIA/ICR reference
EN	;EP -- MAIN ENTRY POINT
UNIX(ACRFILE)
HFS(ACROUT,%DEV,ACRFILE)
GET(ACRYR)
WRITE(X)	;----- FORMAT AND WRITE DATA TO UNIX FILE
YEAR(ACRYR)
TXT	;----- PRINT OPTION TEXT
FILE(ACRFILE)
DESC	;----- WHAT THIS ROUTINE DOES

Information