Routine: ACRFPUTL

Package	Total	Call Graph
Commitment Register	3	DIR^ACRFDIC PAUSE^ACRFWARN ^ACRFZIS
VA Fileman	1	EN1^DIP

Entry Points

External References

Name	Field # of Occurrence
DIR^ACRFDIC	VENDOR+9, CHOICE+5, CHOICE+12
PAUSE^ACRFWARN	V1+28
^ACRFZIS	ZIS1
EN1^DIP	PRINT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VENDOR+8
Function Call: WRITE	Prompt: ! Line Location: CHOICE+4
Function Call: WRITE	Prompt: !!," Choose one or more sort criterion:" Line Location: DISPLAY+0
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: @IOF Line Location: V11+0
Function Call: WRITE	Prompt: !?20,"IHS ARMS CONTRACTOR LISTING" Line Location: V11+0
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: V11+1
Function Call: WRITE	Prompt: ! Line Location: V11+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRCC(	V1+12
^ACRF(	V1+6, V1+7, V1+8, V1+9
^ACRF("O"	V1+3, V1+5
^ACRFC(	V1+13
^DIC(5 - [#5]	V1+24, V1+26

Label References

Name	Line Occurrences
CHOICE	VENDOR+12
DISPLAY	CHOICE
EXIT	VENDOR+12
LOOP	CHOICE+8
V11	V1+1, V1+29
ZIS	LOOP+11

Naked Globals

Name	Field # of Occurrence
^(0	V1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!, V1+2, V1+3, V1+5
ACRBY	EXIT!, LOOP+8*, PRINT+4
>> ACRCC	V1+10, V1+12, V1+14
>> ACRDA	V1+4, V1+5, V1+6, V1+7, V1+8, V1+9
ACRDATA	EXIT!, LOOP+2, LOOP+3, LOOP+4, LOOP+5, DISPLAY+3, DISPLAY+4, DISPLAY+5
ACRDATA(	LOOP+2, DISPLAY+5*, DISPLAY+6, DISPLAY+7
ACRDIC	EXIT!, VENDOR+2*, PRINT+1
>> ACRDT	V1+7*, V1+16, V1+17, V1+18, V1+20, V1+21, V1+22, V1+23, V1+24, V1+25 , V1+26
>> ACRENT	V1+14, V1+15, V1+19
>> ACRFC	V1+11, V1+13, V1+14
>> ACRFLDS	VENDOR+3, CHOICE+14, PRINT+2
ACRFR	EXIT!, LOOP+9*, PRINT+5
ACRI	EXIT!, CHOICE+1, LOOP+1, LOOP+2, DISPLAY+2, DISPLAY+5, DISPLAY+6, DISPLAY+7
>> ACRIHS1	V1+9*, V1+10, V1+11
>> ACROUT	VENDOR+10, CHOICE+13, V1+3
ACRQUIT	EXIT!, VENDOR+10, CHOICE+6, CHOICE+13, DISPLAY+2, DISPLAY+4, DISPLAY+8!, V1+3
>> ACRRTN	ZIS*
ACRTO	EXIT!, LOOP+10*, PRINT+6
ACRTYPE	EXIT!, VENDOR+1*, CHOICE+8
ACRX	EXIT!, VENDOR+4, CHOICE+7, LOOP+1, LOOP+2, LOOP+6*, LOOP+7
ACRY	EXIT!
BY	EXIT!, LOOP, LOOP+3, LOOP+8, PRINT+4*
DA	EXIT!
DIC	EXIT!, PRINT+1*
>> DIOEND	PRINT+3*
>> DIR("A"	VENDOR+6, CHOICE+2, CHOICE+10*
>> DIR("B"	VENDOR+7, CHOICE+3, CHOICE+11*
>> DIR(0	VENDOR+5, CHOICE+1, CHOICE+9*
>> DIS(0	VENDOR+11, PRINT+7
DR	EXIT!
FLDS	EXIT!, PRINT+2*
FR	EXIT!, LOOP, LOOP+4, LOOP+9, PRINT+5*
IOF	V11
ION	PRINT
IOP	PRINT*, PRINT+9!
IOSL	V1+27
IOST	V1+28
TO	EXIT!, LOOP, LOOP+5, LOOP+10, PRINT+6*
U	CHOICE+6, LOOP+3, LOOP+4, LOOP+5, DISPLAY+6, DISPLAY+7, V1+6, V1+11, V1+12, V1+13 , V1+16, V1+17, V1+18, V1+20, V1+21, V1+22, V1+23, V1+24, V1+25, V1+26
>> X	CHOICE+6
>> Y	VENDOR+11, CHOICE+7, CHOICE+14
>> ZTDESC	ZIS+1*

Marked Items

Customize PDF page

Package: Commitment Register

Routine: ACRFPUTL

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
VENDOR	;EP;TO PRINT VENDOR LISTINGS
ZIS
G	;;
ZIS1
V11
CHOICE
V1	;
EXIT
V	;;
PRINT
DISPLAY
LOOP