Routine: ACRFDUP

Package	Total	Call Graph
Commitment Register	7	EN1^ACRFAUTO (DIC,DIR,FILE,IX,IX1)^ACRFDIC CHOOSE^ACRFDTP4 SETDOC^ACRFEA1 DISPLAY^ACRFSS5 $$NAME2^ACRFUTL1 PAUSE^ACRFWARN
VA Fileman	2	%XY^%RCR FILE^DICN

Entry Points

External References

Name	Field # of Occurrence
%XY^%RCR	B+12
EN1^ACRFAUTO	EN2+12
DIC^ACRFDIC	TRAVELER+4, DOC+5
DIR^ACRFDIC	SURE+13, BOIL+15, AL+12
FILE^ACRFDIC	B+8
IX^ACRFDIC	DEPT+8
IX1^ACRFDIC	B+15
CHOOSE^ACRFDTP4	DEPT+1
SETDOC^ACRFEA1	DOC+10
DISPLAY^ACRFSS5	AL+4
$$NAME2^ACRFUTL1	TRAVELER+11
PAUSE^ACRFWARN	EN2+18
FILE^DICN	A+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+0
Function Call: WRITE	Prompt: !?20,"DOCUMENT DUPLICATION UTILITY" Line Location: EN1+1
Function Call: WRITE	Prompt: !! Line Location: EN2+0
Function Call: WRITE	Prompt: !!,"The new document is now being created. You can use the 'ER' function" Line Location: EN2+13
Function Call: WRITE	Prompt: !,"to access and edit it under DEPARTMENT ACCOUNT ID NO.: ",ACRTDDA Line Location: EN2+14
Function Call: WRITE	Prompt: !!,"You have chosen to duplicate DOCUMENT NO.: ",ACRDOC Line Location: SURE+0
Function Call: WRITE	Prompt: !,"You have chosen to create the" Line Location: SURE+3
Function Call: WRITE	Prompt: !,"NEW DOCUMENT in DEPARTMENT ACCOUNT ID NO.: ",ACRLBDA Line Location: SURE+4
Function Call: WRITE	Prompt: ?$X+2,ACRDNAM Line Location: SURE+5
Function Call: WRITE	Prompt: !?43,"FY: ",ACRFY Line Location: SURE+6
Function Call: WRITE	Prompt: ?$X+2,"CAN: ",ACRCAN Line Location: SURE+7
Function Call: WRITE	Prompt: !! Line Location: SURE+12
Function Call: WRITE	Prompt: !!! Line Location: DOC+4
Function Call: WRITE	Prompt: !!,"The following BOILER PLATE statements are on file for this document." Line Location: BOIL+3
Function Call: WRITE	Prompt: !!?10,"NO.",?15,"Type of Boiler Plate" Line Location: BOIL+4
Function Call: WRITE	Prompt: !?10,"---",?15,"------------------------------" Line Location: BOIL+5
Function Call: WRITE	Prompt: ! Line Location: BOIL+14
Function Call: WRITE	Prompt: !!,"The following AIRLINE RESERVATIONS are on file for this document." Line Location: AL+3
Function Call: WRITE	Prompt: ! Line Location: AL+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRAU - [#9002185.3]	Classic Fileman Calls
^ACRLOCB - [#9002188]	Classic Fileman Calls
^ACRAL - [#9002193.7]	Classic Fileman Calls
^ACRDOC - [#9002196]	Classic Fileman Calls
^ACRDOCBP - [#9002197.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRAL - [#9002193.7]	A+11, A+16
^ACRAL("E"	AL+1, AL+6
^ACRBP - [#9002197.2]	BOIL+11
^ACRDOC - [#9002196]	DOC+8
^ACRDOCBP - [#9002197.3]	BOIL+10, B+3
^ACRDOCBP("C"	BOIL+1, BOIL+7
^ACRLOCB - [#9002188]	SETDEP+3, SETDEP+5, SETDEP+6
^AUTTCAN - [#9999999.57]	SETDEP+14
^AUTTDOCR - [#9999999.63]	DOC+14
^AUTTDOCR("B"	EN2+11
^AUTTPRG - [#9999999.62]	SETDEP+13
^VA(200 - [#200]	TRAVELER+7

Label References

Name	Line Occurrences
A	EN2+17
AL	EN2+5
B	EN2+16
BOIL	EN2+4
DEPT	EN2+2
DOC	EN1+2
EN1	EN+1
EN2	EN1+5
SURE	EN2+7
TRAVELER	EN2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	B+10*
>> %Y	B+11*
>> ACRALWDA	SETDEP+10, SETDEP+11
>> ACRAPPDA	SETDEP+9*
ACRBOIL	EN2+15, EN2+17, BOIL+17, BOIL+18, B+1, B+16!, AL+14, AL+15, A~, A+9
ACRBOIL(	BOIL+18, B+1, B+2, AL+15, A+9, A+10
ACRBPDA	B+9*, B+11, B+13, B+16!
>> ACRCAN	SETDEP+14*, SURE+7
>> ACRCANDA	SETDEP+8*, SETDEP+14
>> ACRD	DEPT+6
ACRDATA	A+8~, A+16*, A+18
>> ACRDIC	DEPT*
>> ACRDIC("A"	DEPT+4
>> ACRDIC(0	DEPT+5
ACRDNAM	EXIT!, SETDEP+13*, SURE+5
>> ACRDOC	SURE
>> ACRDOCDA	DOC+9*, BOIL+1, BOIL+7, AL+1, AL+6
>> ACRDPTDA	SETDEP+12*, SETDEP+13
ACRDUPJ	EN1+4, EN1+6!, TRAVELER+2, TRAVELER+3, SURE+15
>> ACRFDNO	DEPT+10*, SETDEP+2
>> ACRFY	SETDEP+7*, SURE+6
>> ACRLBDA	DEPT+10*, SETDEP+1, SETDEP+3, SETDEP+5, SETDEP+6, SURE+4
ACRNOT	EXIT!, EN2+9*
ACROBL2	EN2+17, B+7, A~, A+15
>> ACROUT	EN2+3, EN2+6, DEPT+2
ACRQUIT	EN+1, EXIT!, EN1+3, EN1+5, EN1+6!, EN2+1, EN2+3, EN2+6, EN2+8, DEPT+2 , DEPT+9, SETDEP+1, SETDEP+2, SETDEP+3, TRAVELER+5, TRAVELER+6, TRAVELER+7, SURE+14, DOC+6, DOC+7 , DOC+8, DOC+11, BOIL+16!, AL+13!
>> ACRREF	EN2+1, EN2+4, EN2+5, EN2+10, EN2+11, EN2+16, EN2+17, TRAVELER+2, SURE+1, SURE+2 , DOC+12, DOC+13, DOC+14
>> ACRREFDA	EN2+11*, DOC+11, DOC+14
>> ACRREFX	DOC+14*
ACRTDA	EXIT!, TRAVELER+8*
ACRTDDA	EXIT!, EN2+14, DEPT+10*
ACRTNAM	EXIT!, TRAVELER+13*, SURE+2
ACRX	BOIL+18, B~, B+1, B+2, B+3, B+10, AL+15, A+8~, A+9, A+10 , A+11, A+16
>> ACRY	BOIL+16, BOIL+17, AL+13, AL+14
>> ACRZDA	DEPT+10*
>> D	DEPT+6*
>> DA	B+13*
DD	A+8~
DIC	DEPT+3, TRAVELER, DOC, B+5, A+8~, A+13*
DIC("A"	DEPT+4, TRAVELER+2, TRAVELER+3, DOC+2
DIC("DR"	DEPT+6, B+7, A+15, A+18
DIC("S"	DEPT+7, DOC+3
DIC(0	DEPT+5, TRAVELER+1, DOC+1, B+6, A+14*
>> DIK	B+14*
>> DIR("A"	SURE+9, SURE+10, BOIL+13, AL+10
>> DIR("B"	SURE+11*
>> DIR(0	SURE+8, BOIL+12, AL+9*
DO	A+8~
FLD	A+8~, A+17*, A+18
IOF	EN1
J	BOIL+2~, BOIL+8, BOIL+9, BOIL+11, BOIL+12, BOIL+18, B+1, AL+2~, AL+7, AL+8 , AL+9, AL+15, A+8~, A+9
J(	BOIL+9, BOIL+18, AL+8, AL+15
U	EN2+1, EN2+4, EN2+5, EN2+10, EN2+16, EN2+17, SETDEP+8, SETDEP+9, SETDEP+10, SETDEP+11 , SETDEP+12, SETDEP+13, SETDEP+14, SURE+1, DOC+13, DOC+14, BOIL+11, A+18
X	SETDEP+4~, SETDEP+5, SETDEP+9, SETDEP+10, SETDEP+11, SETDEP+12, TRAVELER+9~, TRAVELER+11, TRAVELER+12, TRAVELER+13 , BOIL+2~, BOIL+6, BOIL+7, BOIL+9, BOIL+10, B+3, B+4, AL+2~, AL+5, AL+6 , AL+8, A+8~, A+11*, A+12
Y	DEPT+9, DEPT+10, SETDEP+4~, SETDEP+6, SETDEP+7, SETDEP+8, TRAVELER+6, TRAVELER+7, TRAVELER+8, TRAVELER+11 , SURE+14, DOC+7, DOC+8, DOC+9, BOIL+2~, BOIL+10, BOIL+11, B+9, AL+2~

Customize PDF page

Package: Commitment Register

Routine: ACRFDUP

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:

Name	Comments	DBIA/ICR reference
A(ACRBOIL,ACROBL2)	;
EN	;EP;TO DUPLICATE A DOCUMENT
DEPT
DOC
SETDEP	;EP;TO SET DEPARTMENT ACCOUNT INFORMATION
AL	;DETERMINE IF AIRLINE RESERVATIONS SHOULD BE DUPLICATED
EN1
EN2
SURE
EXIT
TRAVELER
B
BOIL	;DETERMINE IF BOILER PLATE STATEMENTS SHOULD BE DUPLICATED