Routine: ACRFFF2

Package	Total	Call Graph
Commitment Register	5	$$ARMSDIR^ACRFSYS ($$DOL,$$SLDATE)^ACRFUTL $$FYFUN^ACRFUTL1 PAUSE^ACRFWARN (CLOSE,HFS)^ACRFZISH
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	^XBKVAR
Kernel	1	HOME^%ZIS

Entry Points

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+5
$$ARMSDIR^ACRFSYS	HFS+4
$$DOL^ACRFUTL	ITEMS+51
$$SLDATE^ACRFUTL	ITEMS+48
$$FYFUN^ACRFUTL1	ITEMS+16
PAUSE^ACRFWARN	EN+27, EN+35
CLOSE^ACRFZISH	UNIX+22
HFS^ACRFZISH	HFS+8
^DIC	LOC+5
^DIR	DLOOP+7, DLOOP+12, OCC+6, FILE+10
^XBKVAR	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " please wait..." Line Location: EN+21
Function Call: WRITE	Prompt: !!,"No data found" Line Location: EN+26
Function Call: WRITE	Prompt: ! Line Location: UNIX+18
Function Call: WRITE	Prompt: !!,ACRCNT_" Records have been put into UNIX file /usr/spool/afsdata/"_ACRFILE Line Location: UNIX+19
Function Call: WRITE	Prompt: !!,ACRCNT_" Records have been put into file "_ACRDIR_ACRFILE Line Location: UNIX+21
Function Call: WRITE	Prompt: """" Line Location: WRITE+4
Function Call: WRITE	Prompt: Y Line Location: WRITE+5
Function Call: WRITE	Prompt: """" Line Location: WRITE+6
Function Call: WRITE	Prompt: "," Line Location: WRITE+7
Function Call: WRITE	Prompt: ! Line Location: DLOOP+3
Function Call: WRITE	Prompt: *7,!?5,"ENDING DATE cannot be less than BEGINNING DATE" Line Location: DLOOP+17
Function Call: WRITE	Prompt: "CANNOT OPEN FILE "_ZISH1_ZISH2 Line Location: FILE+23
Function Call: WRITE	Prompt: !,X Line Location: TXT+2
Routine Call	%ZIS Line Location: EN+5
Routine Call	DIC Line Location: LOC+5
Routine Call	DIR Line Location: DLOOP+7 DLOOP+12 OCC+6 FILE+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLCOD - [#9999999.66]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	GET+11, ITEMS+39, ITEMS+44
^ACRDOC("DT"	GET+8
^ACRDOC("S"	GET+10
^ACRITEM - [#9002195]	ITEMS+38
^ACRLOCB - [#9002188]	GET+17, ITEMS+17
^ACRSS - [#9002193]	ITEMS+6, ITEMS+19, ITEMS+26, ITEMS+32, ITEMS+37
^ACRSS("C"	ITEMS+5
^ACRUI - [#9002190.6]	ITEMS+30
^AUTTCAN - [#9999999.57]	ITEMS+14
^AUTTDOCR - [#9999999.63]	GET+14
^AUTTOBJC - [#9999999.59]	ITEMS+10
^AUTTPRG - [#9999999.62]	ITEMS+18
^AUTTVNDR - [#9999999.11]	ITEMS+45
^TMP("ACR"	EN+25, EN+31!, GET+4!, ITEMS+53*, UNIX+5, UNIX+12, UNIX+14, UNIX+15

Label References

Name	Line Occurrences
DATE	EN+9
DLOOP	DLOOP+16
FILE	EN+18
GET	EN+23
HFS	UNIX+7
ITEMS	GET+19
LOC	EN+15
OCC	EN+12
TXT	EN+7
UNIX	EN+29
WRITE	UNIX+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%FILE	UNIX+4~, UNIX+7, UNIX+9, HFS~, HFS+8, HFS+9
ACRBEG	GET+3~, GET+5, GET+7, DLOOP+2~, DLOOP+10, DLOOP+16, DLOOP+18
ACRCAN	ITEMS+3~, ITEMS+13, ITEMS+14, ITEMS+52
ACRCNT	UNIX+4~, UNIX+10, UNIX+16, UNIX+21
ACRCOST	ITEMS+3~, ITEMS+31*, ITEMS+51
ACRDATA	GET+3~, GET+11, GET+12, GET+13, GET+16, ITEMS+3~, ITEMS+6, ITEMS+7, ITEMS+8, ITEMS+13 , ITEMS+15, ITEMS+19, ITEMS+20, ITEMS+21, ITEMS+22, ITEMS+23, ITEMS+24, ITEMS+25, ITEMS+26, ITEMS+27* , ITEMS+28, ITEMS+29, ITEMS+31, ITEMS+32, ITEMS+33, ITEMS+34, ITEMS+35, ITEMS+39, ITEMS+40, ITEMS+41 , ITEMS+42, ITEMS+43, ITEMS+48, ITEMS+49, ITEMS+50, ITEMS+51, ITEMS+52*, ITEMS+53
ACRDATE	GET+3~, GET+7, GET+8, GET+10, GET+19, ITEMS~, ITEMS+48
ACRDATES	EN+2~, EN+9, EN+10, EN+23, GET~, GET+5, GET+6, DATE~, DLOOP+18*
ACRDEPT	ITEMS+3~, ITEMS+15, ITEMS+16, ITEMS+17, ITEMS+18*, ITEMS+52
ACRDESC1	ITEMS+3~, ITEMS+21*, ITEMS+49
ACRDESC2	ITEMS+3~, ITEMS+22*, ITEMS+50
ACRDESC3	ITEMS+3~, ITEMS+23*, ITEMS+50
ACRDESC4	ITEMS+3~, ITEMS+24*, ITEMS+50
ACRDESC5	ITEMS+3~, ITEMS+25*, ITEMS+50
ACRDIR	UNIX+4~, UNIX+7, UNIX+21, HFS~, HFS+4*, HFS+5, HFS+8
ACRDOCDA	GET+3~, GET+9, GET+10, GET+11, GET+19, ITEMS~, ITEMS+5, ITEMS+39, ITEMS+44, ITEMS+53 , UNIX+4~, UNIX+11, UNIX+12, UNIX+14, UNIX+15
ACRDOCNO	ITEMS+3~, ITEMS+41*, ITEMS+48
ACREND	GET+3~, GET+6, GET+8, DLOOP+2~, DLOOP+15, DLOOP+16, DLOOP+18
ACRFILE	EN+2~, EN+18, EN+19, EN+29, UNIX~, UNIX+7, UNIX+21, FILE~, FILE+4, FILE+12 , HFS~, HFS+6
ACRFY	ITEMS+3~, ITEMS+16*, ITEMS+52
ACRID	ITEMS+3~, ITEMS+43*, ITEMS+48
ACRITMDA	ITEMS+3~, ITEMS+4, ITEMS+5, ITEMS+6, ITEMS+19, ITEMS+26, ITEMS+32, ITEMS+37, ITEMS+53, UNIX+4~ , UNIX+13, UNIX+14, UNIX+15
ACRLOC	EN+2~, EN+15, EN+16, EN+23, GET~, GET+18, LOC~, LOC+8*
>> ACRLOCDA	GET+16, GET+17, GET+18
ACRNSN	ITEMS+3~, ITEMS+35, ITEMS+36, ITEMS+37, ITEMS+38*, ITEMS+49
ACROCC	EN+2~, EN+12, EN+13, EN+23, GET~, GET+19, ITEMS~, ITEMS+11, ITEMS+12, OCC~ , OCC+8*
ACROCCC	ITEMS+3~, ITEMS+10*, ITEMS+11, ITEMS+12, ITEMS+52
ACROCCDA	ITEMS+3~, ITEMS+8*, ITEMS+9, ITEMS+10
ACRORDNO	ITEMS+3~, ITEMS+34*, ITEMS+49
ACROUT	EN+2~, UNIX+4~, UNIX+7, UNIX+8, HFS~, HFS+9*
ACRPO	ITEMS+3~, ITEMS+42*, ITEMS+48
ACRQTY	ITEMS+3~, ITEMS+28*, ITEMS+51
ACRREF	GET+3~, GET+13, GET+14, GET+15
ACRUI	ITEMS+3~, ITEMS+29, ITEMS+30, ITEMS+51
ACRVEND	ITEMS+3~, ITEMS+44, ITEMS+45, ITEMS+49
>> DIC	LOC+3*
>> DIC(0	LOC+4*
DIR	DLOOP+2~, FILE+3~
DIR("?"	DLOOP+6, OCC+5, FILE+9*
DIR("A"	DLOOP+5, DLOOP+11, OCC+4, FILE+7
DIR(0	DLOOP+4, OCC+3, FILE+5*
DIRUT	DLOOP+2~, DLOOP+8, DLOOP+13, OCC+7, FILE+3~, FILE+11
DTOUT	DLOOP+2~, DLOOP+8, DLOOP+13, OCC+7, LOC+6, FILE+3~, FILE+11
DUOUT	DLOOP+2~, DLOOP+8, DLOOP+13, OCC+7, LOC+6, FILE+3~, FILE+11
>> I	WRITE+2, WRITE+3, TXT+2
U	GET+5, GET+6, GET+12, GET+13, GET+14, GET+16, GET+17, ITEMS+8, ITEMS+10, ITEMS+13 , ITEMS+14, ITEMS+15, ITEMS+17, ITEMS+18, ITEMS+21, ITEMS+22, ITEMS+23, ITEMS+24, ITEMS+25, ITEMS+28 , ITEMS+29, ITEMS+30, ITEMS+31, ITEMS+34, ITEMS+35, ITEMS+37, ITEMS+38, ITEMS+41, ITEMS+42, ITEMS+43 , ITEMS+44, ITEMS+45, ITEMS+48, ITEMS+49, ITEMS+50, ITEMS+51, ITEMS+52, WRITE+2, WRITE+3, DLOOP+18
X	UNIX+4~, UNIX+15, UNIX+17, WRITE~, WRITE+2, WRITE+3, DLOOP+2~, FILE+3~, HFS+3~, TXT+2
Y	WRITE+3*, WRITE+5, DLOOP+2~, DLOOP+9, DLOOP+10, DLOOP+14, DLOOP+15, OCC+8, LOC+7, LOC+8 , FILE+3~, FILE+12, HFS+3~
ZISH2	HFS+3~, HFS+6*, HFS+8
ZISH3	HFS+3~, HFS+7*, HFS+8

Marked Items

Name	Comments	DBIA/ICR reference
OCC(ACROCC)
EN	;EP -- MAIN ENTRY POINT
DATE(ACRDATES)
UNIX(ACRFILE)
ITEMS(ACRDOCDA,ACROCC,ACRDATE)
GET(ACRDATES,ACROCC,ACRLOC)
DLOOP	;----- DATE LOOP
HFS(ACROUT,%FILE,ACRDIR,ACRFILE)
WRITE(X)	;----- FORMAT AND WRITE DATA TO FLAT FILE ;ACR2.113.06 IM14144
LOC(ACRLOC)
TXT	;----- PRINT OPTION TEXT
FILE(ACRFILE)
DESC	;----- ROUTINE DESCRIPTION

Customize PDF page

Package: Commitment Register

Routine: ACRFFF2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items