Routine: ACRFSS4

Package	Total	Call Graph
Commitment Register	9	(DIE,DIK,DIR)^ACRFDIC APPROVE^ACRFSCHK (ADD,DELETE,EDIT)^ACRFSS41 DISPLAY^ACRFSS42 ^ACRFSS5 EXITSS4^ACRFSSA TA^ACRFSSA1 $$REQTP^ACRFSSU (CHECK,CHECKCC,PAUSE)^ACRFWARN
VA Fileman	1	YN^DICN

Package

Total

Call Graph

(DIE,DIK,DIR)^ACRFDIC APPROVE^ACRFSCHK (ADD,DELETE,EDIT)^ACRFSS41 DISPLAY^ACRFSS42 ^ACRFSS5 EXITSS4^ACRFSSA TA^ACRFSSA1 $$REQTP^ACRFSSU
(CHECK,CHECKCC,PAUSE)^ACRFWARN

YN^DICN

Package	Total	Caller Graph
Commitment Register	3	ACRFEA4 ACRFSS3 ACRPTV

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
TAXI	;EP;TO ENTER THE ROUNDTRIP TAXI FARE FROM HOME TO AIRPORT
EN
DEPART	;EP;TO INDICATE IF THIS IS THE DEPART DATE
CME	;INDICATE MAXIMUM AMOUNT FOR CONTINUING EDUCATION
ATM	;CALCULATE ATM SERVICE CHARGE
EN1
EXIT
RECEIPTS	;EP;TO DETERMINE IF RECEIPTS ARE REQUIRED FOR PROCESSING THIS

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+39
Function Call: WRITE	Prompt: ! Line Location: ATM+5
Function Call: WRITE	Prompt: !!,$S(Y<(DT+1):"Did",1:"Will")," you " Line Location: DEPART+9
Function Call: WRITE	Prompt: " your home or permanent duty station" Line Location: DEPART+13
Function Call: WRITE	Prompt: !,"on ",Y Line Location: DEPART+14
Function Call: WRITE	Prompt: ! Line Location: DEPART+19
Function Call: WRITE	Prompt: !!,"Enter the average ROUNDTRIP taxi fare from the traveler's home" Line Location: TAXI+7
Function Call: WRITE	Prompt: !,"to the nearest airport" Line Location: TAXI+8
Function Call: WRITE	Prompt: ! Line Location: TAXI+9
Function Call: WRITE	Prompt: !!,"Are RECEIPTS required" Line Location: RECEIPTS+2
Function Call: WRITE	Prompt: !!,"(For Continuing Education Travel/Training ONLY" Line Location: CME+1
Function Call: WRITE	Prompt: !," enter MAXIMUM government contribution.)" Line Location: CME+2
Function Call: WRITE	Prompt: ! Line Location: CME+6

Name	Line Occurrences (* Changed, ! Killed)
^ACRAL("E"	EN1+35
^ACRAU - [#9002185.3]	TAXI+6
^ACRDOC - [#9002196]	EN+3, EN1+13, EN1+14, EN1+24, EN1+26, ATM+1, ATM+12, TAXI+2, RECEIPTS+5
^ACROBL - [#9002189]	ATM+7
^ACRSS - [#9002193]	EN1+6
^ACRSS("J"	EN1+6
^ACRTV - [#9002193.5]	DEPART+1, DEPART+3
^DD("DD"	DEPART+10

Name	Field # of Occurrence
%	DEPART+15~, DEPART+16*, DEPART+18
>> ACR4P	ATM+12, ATM+13, ATM+14*
>> ACRAAT	DEPART+5*
>> ACRATM	ATM+7, ATM+10
ACRCHANG	EN+4!
>> ACRDFR	DEPART+4*
>> ACRDOCDA	EN+3, EN1+6, EN1+9, EN1+13, EN1+14, EN1+24, EN1+26, EN1+27, EN1+32, EN1+35 , ATM+1, ATM+2, ATM+7, ATM+8, ATM+12, TAXI+2, RECEIPTS+3, RECEIPTS+5, CME+3
>> ACRFIRST	EN1+13*
ACRJ	EN~, EN1+15
>> ACRLAST	EN1+14*
>> ACROUT	EN+2, EN1+1, EN1+8, EN1+12, EN1+19, EN1+21
>> ACRPRT	EN+3, EN1+2, EN1+26
ACRQUIT	EN+2, EN1+1, EN1+2, EN1+3, EN1+20!, EN1+21!, EN1+22!, EN1+35, EN1+41
>> ACRREF	EN+3, EN1+7, ATM+4, ATM+7
>> ACRREV	EN+3, EN1+3, EN1+26
ACRSCHK	EN+4*!
ACRY	EN~
>> ACRYN	DEPART+6, DEPART+7, DEPART+11, DEPART+12, DEPART+18*
DA	EN1+27, EN1+32, ATM+2, ATM+8, DEPART+1, DEPART+3, TAXI+1~, TAXI+2, TAXI+5, TAXI+6 , TAXI+10, RECEIPTS+3, CME+3*
>> DIE	EN1+28, ATM+3, ATM+9, TAXI+3, RECEIPTS+4, CME+4
>> DIK	EN1+33*
>> DIR("A"	EN1+17, EN1+37
>> DIR("B"	EN1+38*
>> DIR(0	EN1+16, EN1+36
>> DR	EN1+29, ATM+4, ATM+10, TAXI+4, RECEIPTS+5, CME+5
DT	DEPART+9
U	EN+3, EN1+6, EN1+13, EN1+14, EN1+24, EN1+26, ATM+1, ATM+7, ATM+12, DEPART+4 , DEPART+5, DEPART+6, DEPART+7, DEPART+8, TAXI+2, TAXI+6, RECEIPTS+5
X	EN1+4~, EN1+5, EN1+6
Y	EN1+4~, EN1+5, EN1+6, EN1+7, EN1+9, EN1+11, EN1+20, EN1+21, EN1+22, EN1+41 , DEPART+2~, DEPART+3, DEPART+4, DEPART+5, DEPART+6, DEPART+7, DEPART+8, DEPART+9, DEPART+14

Information