Routine: ACRFFF5

Package	Total	Call Graph
Commitment Register	4	$$ARMSDIR^ACRFSYS $$SLDATE^ACRFUTL $$NAME2^ACRFUTL1 PAUSE^ACRFWARN
Kernel	3	HOME^%ZIS ^%ZISC OPEN^%ZISH
VA Fileman	2	^%DT ^DIR
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
CAN(ACRDOCDA)
HFS(ACROUT,%FILE,ACRFILE)
CITY(X)	;----- RETURNS EXTERNAL ARMS PER DIEM CITY, STATE
UNIX(ACRFILE)
TITLE(X)	;----- RETURNS TRAINING COURSE TITLE
STAT(ACRDOCDA)
TVLT(X)	;----- RETURNS EXTERNAL TRAVEL TO CITY, STATE
ODSA(X)	;----- RETURNS OFFICIAL DUTY STATION AREA
GET(ACRDATES)
SER(X)	;----- RETURNS SERIES OF TRAVELER
FILE(ACRFILE)
TXT	;----- PRINT OPTION TEXT
PAYPLAN(X)	;----- RETURNS PAY PLAN OF TRAVELER
BEG(X)	;----- RETURNS TRAINING BEGIN DATE
EN	;EP -- MAIN ENTRY POINT
DT(X)	;----- RETURNS FM DATE
AMTS(ACRDOCDA)
DOCNO(X)	;----- RETURNS DOCUMENT NUMBER
ODS(X)	;----- RETURNS OFFICIAL DUTY STATION
TVLF(X)	;----- RETURNS EXTERNAL TRAVEL FROM CITY, STATE
DESC	;----- ROUTINE DESCRIPTION
END(X)	;----- RETURNS TRAINING END DATE
SEX(X)	;----- RETURNS GENDER
NAME(ACRDOCDA)
HRS(X)	;----- RETURNS TRAINING HOURS (DUTY)
DLOOP	;----- DATE LOOP
WRITE(X)	;
DATES(ACRDATES)
GRADE(X)	;----- RETURNS GRADE OF TRAVELER
ONE(ACRDOCDA)

External References

Name	Field # of Occurrence
^%DT	DT+6
HOME^%ZIS	EN+5
^%ZISC	EN+27, UNIX+16
OPEN^%ZISH	HFS+9
$$ARMSDIR^ACRFSYS	HFS+6
$$SLDATE^ACRFUTL	BEG+7, END+7
$$NAME2^ACRFUTL1	NAME+7
PAUSE^ACRFWARN	EN+21, EN+29
^DIR	DLOOP+7, DLOOP+13, FILE+8
^XBKVAR	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " please wait..." Line Location: EN+15
Function Call: WRITE	Prompt: !!,"No data found" Line Location: EN+20
Function Call: WRITE	Prompt: ! Line Location: UNIX+14
Function Call: WRITE	Prompt: !!,ACRCNT_" Records have been put into file "_ACRFILE Line Location: UNIX+15
Function Call: WRITE	Prompt: """" Line Location: WRITE+7
Function Call: WRITE	Prompt: Y Line Location: WRITE+8
Function Call: WRITE	Prompt: """" Line Location: WRITE+9
Function Call: WRITE	Prompt: "," Line Location: WRITE+10
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+18
Function Call: WRITE	Prompt: "CANNOT OPEN FILE "_ZISH2_ZISH3 Line Location: HFS+11
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Routine Call	%ZIS Line Location: EN+5
Routine Call	DIR Line Location: DLOOP+7 DLOOP+13 FILE+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRAU - [#9002185.3]	ODS+6, ODSA+6, PAYPLAN+6, GRADE+6, SER+6
^ACRCAN - [#9002186.5]	CAN+6
^ACRDOC - [#9002196]	GET+10, ONE+12, ONE+13, ONE+16, CAN+5, NAME+5, AMTS+6, DOCNO+6, TVLF+6, TVLT+6 , TVLT+7, BEG+6, END+6, TITLE+6, HRS+6
^ACRDOC("REF"	GET+9
^ACROBL - [#9002189]	STAT+4
^ACRPD - [#9002193.9]	CITY+6
^ACRSS - [#9002193]	AMTS+10, AMTS+12, AMTS+14
^ACRSS("C"	AMTS+9
^AUTTAREA - [#9999999.21]	ODSA+8
^AUTTCAN - [#9999999.57]	CAN+7
^AUTTDOCR("B"	GET+7
^AUTTLOC - [#9999999.06]	ODS+7, ODSA+7
^DIC(4 - [#4]	ODS+8
^DIC(5 - [#5]	CITY+9
^TMP("ACR"	EN+19, GET+5!, ONE+39, ONE+40, ONE+45, ONE+46, ONE+47, ONE+48, ONE+51, ONE+53 , ONE+54, ONE+56, ONE+66, UNIX+4, UNIX+10, UNIX+11, AMTS+16
^VA(200 - [#200]	SEX+6

Label References

Name	Line Occurrences
$$BEG	ONE+34
$$CAN	ONE+25
$$CITY	TVLF+7, TVLT+8
$$DOCNO	ONE+11
$$DT	ONE+57, ONE+58
$$END	ONE+35
$$GRADE	ONE+32
$$HRS	ONE+37
$$NAME	ONE+27
$$ODS	ONE+28
$$ODSA	ONE+29
$$PAYPLAN	ONE+31
$$SER	ONE+33
$$SEX	ONE+30
$$STAT	ONE+49
$$TITLE	ONE+36
$$TVLF	ONE+43
$$TVLT	ONE+44
AMTS	ONE+19, ONE+20
DATES	EN+9
DLOOP	DLOOP+17
FILE	EN+12
GET	EN+17
HFS	UNIX+5
ONE	GET+13
TXT	EN+7
UNIX	EN+23
WRITE	UNIX+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DT+5*
%FILE	UNIX+3~, UNIX+5, UNIX+7, HFS~, HFS+13*
ACRAMT	AMTS+4~, AMTS+13, AMTS+15, AMTS+16
>> ACRATT	ONE+12*, ONE+28, ONE+29, ONE+30, ONE+31, ONE+32, ONE+33
ACRBEG	DLOOP+2~, DLOOP+10*, DLOOP+17, DLOOP+19
ACRCNT	UNIX+3~, UNIX+8, UNIX+12, UNIX+15
ACRD0	AMTS+4~, AMTS+8, AMTS+9, AMTS+10, AMTS+12, AMTS+14
ACRDATA	GET+3~, GET+10, GET+11, GET+12, AMTS+4~, AMTS+12, AMTS+13, AMTS+15
ACRDATES	EN+2~, EN+9, EN+10, EN+17, GET~, GET+11, GET+12, DATES~, DLOOP+19*
ACRDOCDA	GET+3~, GET+8, GET+9, GET+10, GET+13, ONE~, ONE+11, ONE+12, ONE+13, ONE+19 , ONE+25, ONE+27, ONE+34, ONE+35, ONE+36, ONE+37, ONE+49, UNIX+3~, UNIX+9, UNIX+10 , UNIX+11, CAN~, CAN+5, NAME~, NAME+5, AMTS~, AMTS+6, AMTS+9, STAT~, STAT+4
ACRDOCNO	GET+3~, ONE+9~, ONE+11, ONE+26, ONE+38, ONE+39, ONE+40, ONE+51, ONE+53, ONE+54 , ONE+56, ONE+66, AMTS+4~, AMTS+6, AMTS+7, AMTS+16
ACREND	DLOOP+2~, DLOOP+16*, DLOOP+17, DLOOP+19
ACRFILE	EN+2~, EN+12, EN+13, EN+23, UNIX~, UNIX+5, UNIX+15, FILE~, FILE+4, FILE+10 , HFS~, HFS+7
ACRKW	AMTS+4~, AMTS+10*, AMTS+11, AMTS+16
ACROUT	UNIX+3~, UNIX+5, UNIX+6, HFS~, HFS+12*
ACRREF	GET+3~, GET+7*, GET+9
ACRTODA	ONE+9~, ONE+13*, ONE+15, ONE+16, ONE+20, ONE+43, ONE+44
ACRTONO	GET+3~, ONE+9~, ONE+14, ONE+16, ONE+41, ONE+42, ONE+45, ONE+46, ONE+47, ONE+48
DIR	DLOOP+2~, FILE+3~
DIR("?"	DLOOP+6, DLOOP+12, FILE+7*
DIR("A"	DLOOP+5, DLOOP+11, FILE+6*
DIR(0	DLOOP+4, FILE+5
DIRUT	DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
DTOUT	DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
DUOUT	DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
I	WRITE+3~, WRITE+5, WRITE+6, TXT+2~, TXT+3
IO	HFS+13
POP	HFS+3~, HFS+10
U	GET+11, GET+12, ONE+12, ONE+13, ONE+16, ONE+25, ONE+26, ONE+27, ONE+28, ONE+29 , ONE+30, ONE+31, ONE+32, ONE+33, ONE+34, ONE+35, ONE+36, ONE+37, ONE+39, ONE+40 , ONE+42, ONE+43, ONE+44, ONE+45, ONE+46, ONE+47, ONE+48, ONE+49, ONE+57, ONE+58 , ONE+59, ONE+60, ONE+61, ONE+62, ONE+63, ONE+64, WRITE+5, WRITE+6, DLOOP+19, CAN+5 , CAN+6, CAN+7, NAME+5, AMTS+6, AMTS+10, AMTS+13, AMTS+14, AMTS+15, STAT+4, DOCNO+6 , TVLF+6, TVLT+7, CITY+7, CITY+8, CITY+9, ODS+6, ODS+7, ODS+8, ODSA+6, ODSA+7 , ODSA+8, SEX+6, PAYPLAN+7, GRADE+7, SER+6, BEG+6, END+6, TITLE+6, HRS+6
X	UNIX+3~, UNIX+11, UNIX+13, WRITE~, WRITE+5, WRITE+6, DLOOP+2~, FILE+3~, HFS+3~, AMTS+4~ , TXT+2~, TXT+3, DT~, DOCNO~, DOCNO+6, TVLF~, TVLF+6, TVLT~, TVLT+6, TVLT+7 , CITY~, CITY+6, CITY+7, CITY+8, CITY+9, CITY+10, ODS~, ODS+6, ODSA~, ODSA+6 , SEX~, SEX+6, PAYPLAN~, PAYPLAN+6, PAYPLAN+7, GRADE~, GRADE+6*, GRADE+7, SER~, SER+6 , BEG~, BEG+6, END~, END+6, TITLE~, TITLE+6, HRS~, HRS+6
Y	ONE+56, ONE+57, ONE+58, ONE+59, ONE+60, ONE+61, ONE+62, ONE+63, ONE+64, ONE+66 , WRITE+3~, WRITE+6, WRITE+8, DLOOP+2~, DLOOP+9, DLOOP+10, DLOOP+15, DLOOP+16, FILE+3~, FILE+10 , HFS+3~, CAN+3~, CAN+4, CAN+5, CAN+6, CAN+7, CAN+8, NAME+3~, NAME+4, NAME+5 , NAME+7, NAME+8, STAT+3~, STAT+4, STAT+5, STAT+6, DT+4~, DT+7, DOCNO+4~, DOCNO+5 , DOCNO+6, DOCNO+7, TVLF+4~, TVLF+5, TVLF+7, TVLF+8, TVLT+4~, TVLT+5, TVLT+8, TVLT+9 , CITY+4~, CITY+5, CITY+7, CITY+10, CITY+11, ODS+4~, ODS+5, ODS+6, ODS+7, ODS+8 , ODS+9, ODSA+4~, ODSA+5, ODSA+6, ODSA+7, ODSA+8, ODSA+9, SEX+4~, SEX+5, SEX+6 , SEX+7, PAYPLAN+4~, PAYPLAN+5, PAYPLAN+7, PAYPLAN+8, GRADE+4~, GRADE+5, GRADE+7, GRADE+8, SER+4~ , SER+5, SER+6, SER+7, BEG+4~, BEG+5, BEG+6, BEG+7, BEG+8, END+4~, END+5 , END+6, END+7, END+8, TITLE+4~, TITLE+5, TITLE+6, TITLE+7, HRS+4~, HRS+5, HRS+6 , HRS+7
Z	ONE+9~, ONE+25, ONE+26, ONE+27, ONE+28, ONE+29, ONE+30, ONE+31, ONE+32, ONE+33* , ONE+34, ONE+35, ONE+36, ONE+37, ONE+39, ONE+40, ONE+42, ONE+43, ONE+44, ONE+45 , ONE+46, ONE+47, ONE+48, ONE+49, ONE+51, ONE+54, ONE+57, ONE+58, ONE+59, ONE+60 , ONE+61, ONE+62, ONE+63, ONE+64, TVLF+4~, TVLF+6, TVLF+7, TVLT+4~, TVLT+6, TVLT+7* , TVLT+8
ZISH1	HFS+3~, HFS+4*, HFS+9
ZISH2	HFS+3~, HFS+6*, HFS+9, HFS+11
ZISH3	HFS+3~, HFS+7*, HFS+9, HFS+11
ZISH4	HFS+3~, HFS+8*, HFS+9

Customize PDF page

Package: Commitment Register

Routine: ACRFFF5

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items