Routine: ACRFDRCL

Package	Total	Call Graph
Commitment Register	3	AREA^ACRFAS (DIK,DIR,FILE)^ACRFDIC DISPLAY^ACRFTXTP
VA Fileman	1	WAIT^DICD

Entry Points

External References

Name	Field # of Occurrence
AREA^ACRFAS	EN+1
DIK^ACRFDIC	S2+2
DIR^ACRFDIC	SELECT+7, SET+3
FILE^ACRFDIC	S3+5, NEWSU+12
DISPLAY^ACRFTXTP	SELECT+2
WAIT^DICD	NEWSU+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELECT+6
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !!?9,"APPROVAL SEQUENCE FOR: ",@ACRON,ACRREFC,@ACROF Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !!,"NO. SEQ" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?9,"APPROVAL CATEGORY" Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?40,"NO. SEQ" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ?49,"APPROVAL CATEGORY" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,"--- --- -------------------------" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ?40,"--- --- -------------------------" Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,$J(ACRJ,2),") " Line Location: DISP1+3
Function Call: WRITE	Prompt: ?5,ACRSEQ Line Location: DISP1+4
Function Call: WRITE	Prompt: ?9,ACRNAM Line Location: DISP1+5
Function Call: WRITE	Prompt: ?40,$J(ACRJJ,2),") " Line Location: DISP1+13
Function Call: WRITE	Prompt: ?45,ACRSEQ Line Location: DISP1+14
Function Call: WRITE	Prompt: ?49,ACRNAM Line Location: DISP1+15
Function Call: WRITE	Prompt: ! Line Location: SET+2
Function Call: WRITE	Prompt: 7,7 Line Location: NEWSU+1
Function Call: WRITE	Prompt: !!,"There don't appear to be any signature sequences on file for this Area Setup." Line Location: NEWSU+2
Function Call: WRITE	Prompt: !,"Signature sequences from the primary system will now be duplicte." Line Location: NEWSU+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRDOCA - [#9002197]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRAPVT - [#9002190.5]	DISPLAY+12, DISP1+2, DISP1+12
^ACRAPVT("C"	DISPLAY+11
^ACRDOCA - [#9002197]	DD1+4, SET+19, NEWSU+7
^ACRDOCA("AC"	EN+3, DD1+4
^ACRDOCA("B"	SET+19
^ACRSYS - [#9002199.2]	SELECT
^ACRTXTYP - [#9002194]	SELECT+11
^AUTTAREA - [#9999999.21]	SELECT

Label References

Name	Line Occurrences
DD1	DISPLAY+18
DISP1	DISPLAY+21
DISPLAY	LOCATION
EN	ACRTT+2
EN1	EN+4
LOCATION	EN1
NEWSU	EN+3
S2	SET+19
S3	SET+21
SELECT	EN1
SET	LOCATION, SET+10

Naked Globals

Name	Field # of Occurrence
^(	DD1+4
^(0	DD1+4, NEWSU+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACRADA	EN+2, EN+3, SELECT, DD1+4, SET+19, S3+3, NEWSU+11
ACRAPDA	DISPLAY+22!, DD1+3, DD1+4, DISP1, DISP1+2, DISP1+10*, DISP1+12, SET+22!
ACRCAT	EXIT!, SELECT+10*, DISPLAY+11
ACRCNT	SET+12*, SET+17!
>> ACRDA	NEWSU+6, NEWSU+7
ACRDATA	EXIT!, DISPLAY+10!, SET+22!
ACRDATA(	DISPLAY+21, DD1+2, DD1+3, DD1+4, DD1+7, DD1+8!, DD1+11, DD1+13, DD1+14!, DISP1 , DISP1+1, DISP1+7, DISP1+8, DISP1+10, DISP1+11, DISP1+16, SET+14, SET+15, D1, S1+1 , S1+2
ACRDATA(100	DISPLAY+13, DISPLAY+15, DISPLAY+16*
ACRDATA1	EXIT!, DD1+4, SET+22!
ACRDATA1(	DD1+5, SET+15, SET+16, SET+21, S1+2*, S3+2, S3+3, S3+4
ACRI	EXIT!, SET+5*, SET+6
ACRJ	EXIT!, SELECT+4, DISPLAY+11, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17, DISPLAY+19, DISPLAY+21, DD1 , DD1+2, DD1+3, DD1+5, DD1+7, DD1+8, DD1+10, DD1+11, DD1+13, DD1+14, DISP1 , DISP1+1, DISP1+3, DISP1+7, DISP1+8, DISP1+9, SET+13, SET+14, SET+16, D1, D1+1 , S1, S1+1
ACRJJ	EXIT!, DISP1+9*, DISP1+10, DISP1+11, DISP1+13, DISP1+16
ACRJJJ	EXIT!
ACRMAX	EXIT!, DISPLAY+14, DISPLAY+20, DD1+1, DD1+9, DD1+12, DD1+13, D1+1
ACRNAM	DISP1+2, DISP1+5, DISP1+6!, DISP1+12, DISP1+15!
>> ACROF	DISPLAY+1
>> ACRON	DISPLAY+1
ACRORDR	EXIT!, DISPLAY+12*, DISPLAY+13
>> ACROUT	EN+4, SELECT+8, LOCATION, SET+4
ACRQUIT	EN+2, EN+4, EXIT!, EN1, SELECT+8, LOCATION, LOCATION+1!, SET+4
>> ACRRCDA	SELECT+9*, DISPLAY+13, DISPLAY+15, DISPLAY+16, DD1+4, SET+19, D1
ACRREFC	EXIT!, SELECT+11*, DISPLAY+1, SET+1
ACRSEQ	DISPLAY+22!, DD1+4, DD1+5, DD1+6, DD1+7, DD1+9, DISP1+1, DISP1+4, DISP1+11, DISP1+14
>> ACRSEQX	DD1+4*
ACRSET	EXIT!, SELECT+1, DISPLAY+14, DISPLAY+17, SET, D1+1
ACRTT	EXIT!, ACRTT+1*, ACRTT+3!
ACRTX	EXIT!
ACRTX(	SELECT+9, SELECT+10
ACRTXNAM	EXIT!
ACRX	DISPLAY+22!, SET+6, SET+7, SET+11, SET+12, SET+13, SET+16, SET+17!, SET+18, SET+19 , SET+20, SET+21, SET+22!, S1, S2, S3+2, S3+3, S3+4
ACRXDRCL	SELECT*, SELECT+3!
ACRXX	SET+13, SET+14, SET+15, SET+16, SET+17!, S1, S1+1, S1+2
ACRY	DISPLAY+8~, DISPLAY+9, DISPLAY+11, DISPLAY+12, DISPLAY+13, D1
>> DA	SELECT+9, SELECT+11, S2
>> DIC	S3, NEWSU+9
>> DIC("DR"	S3+3, S3+4, NEWSU+11*
>> DIC(0	EN, S3+1, NEWSU+10*
>> DIK	S2+1*
>> DIR("A"	SELECT+5, SET+1
>> DIR(0	SELECT+4, SET
IOF	DISPLAY
U	SELECT, SELECT+10, SELECT+11, DISPLAY+12, DISPLAY+13, DISPLAY+15, DISPLAY+16, DD1+3, DD1+4, DD1+5 , DISP1, DISP1+1, DISP1+2, DISP1+10, DISP1+11, DISP1+12, SET+14, SET+16, SET+19, D1 , S3+3, S3+4, NEWSU+7, NEWSU+11
>> X	SELECT+9, SELECT+10, SET+5, SET+6, S3+2, NEWSU+8
Y	NEWSU+5~, NEWSU+7*, NEWSU+8, NEWSU+11
Y(0	SET+11

Customize PDF page

Package: Commitment Register

Routine: ACRFDRCL

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
NEWSU	;COPY APPROVALS FROM EACRDAISTING PATTERN
S3
S2
DD1
EN1
SET
EXIT
LOCATION
ACRTT	;EP;
DISP1
S1
DISPLAY
SELECT
D1