Routine: ACRF3542

Package	Total	Call Graph
Commitment Register	9	SETDOC^ACRFEA1 $$DASH^ACRFMENU ^ACRFPAPV ^ACRFPSS SETSS^ACRFSSA $$EXPDN^ACRFUTL $$NAME2^ACRFUTL1 PAUSE^ACRFWARN ^ACRPDA
VA Fileman	1	(,H)^%DTC

Package	Total	Caller Graph
Commitment Register	1	ACRFQ

Entry Points

External References

Name	Field # of Occurrence
^%DTC	DOC1+39
H^%DTC	DOC1+31, DOC1+33
SETDOC^ACRFEA1	DOC
$$DASH^ACRFMENU	L
^ACRFPAPV	SS+10
^ACRFPSS	SS+11
SETSS^ACRFSSA	S1
$$EXPDN^ACRFUTL	HEAD+20
$$NAME2^ACRFUTL1	DOC1+15, DISP+5
PAUSE^ACRFWARN	SS+7, S1+12, DISP+16
^ACRPDA	COMADD+5, COMADD+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?48,"\|7. ESTIMATED TOTAL\|",$J($FN(ACRSSTOT,"P",2),12) Line Location: SS+2
Function Call: WRITE	Prompt: !,"8. REMARKS:" Line Location: SS+4
Function Call: WRITE	Prompt: ! Line Location: SS+5
Function Call: WRITE	Prompt: @IOF Line Location: SS+8
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: L+0
Function Call: WRITE	Prompt: !,ACRI Line Location: L4+0
Function Call: WRITE	Prompt: ?3,"\|",ACRNSN Line Location: L4+1
Function Call: WRITE	Prompt: ?11,"\|",$E(ACRSSDC1,1,28) Line Location: L4+2
Function Call: WRITE	Prompt: ?42,"\|",ACRUI Line Location: L4+3
Function Call: WRITE	Prompt: ?48,"\|",ACRRQD Line Location: L4+4
Function Call: WRITE	Prompt: ?54,"\|",$J($FN(ACRUC,"P",2),12) Line Location: L4+5
Function Call: WRITE	Prompt: ?67,"\|",$J($FN(ACRRQD*ACRUC,"P",2),12) Line Location: L4+6
Function Call: WRITE	Prompt: !,"---\|-------\|------------------------------\|-----\|-----\|------------\|------------" Line Location: L3+0
Function Call: WRITE	Prompt: !,"10a. " Line Location: DISP+2
Function Call: WRITE	Prompt: !,"11 CUSTOMER ADDRESS" Line Location: DISP+9
Function Call: WRITE	Prompt: !,"12. ACTIVITY ADDRESS CODE" Line Location: DISP+11
Function Call: WRITE	Prompt: !?5,ACRFLRQ Line Location: DISP+12
Function Call: WRITE	Prompt: !,"13. AGENCY ACCESS CODE" Line Location: DISP+13
Function Call: WRITE	Prompt: !?5 Line Location: DISP+14
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: "ARMS REF: ",$P(^ACRDOC(ACRDOCDA,0),U,6),"/",ACRDOCDA Line Location: HEAD+4
Function Call: WRITE	Prompt: ?20,"CUSTOMER SUPPLY CENTER ORDER" Line Location: HEAD+5
Function Call: WRITE	Prompt: ?60,"DATE: " Line Location: HEAD+6
Function Call: WRITE	Prompt: Y Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"If limited quantities are used, local reproduction is authorized. Otherwise" Line Location: HEAD+11
Function Call: WRITE	Prompt: !,"obtain supplies from the National Forms and Publications Center." Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"FOR CSC USE ONLY" Line Location: HEAD+14
Function Call: WRITE	Prompt: ! Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"DOCUMENT #: ",$P(^ACRDOC(ACRDOCDA,0),U)," (",$P(^(0),U,2),")" Line Location: HEAD+18
Function Call: WRITE	Prompt: ?I,"\|" Line Location: HEAD+19
Function Call: WRITE	Prompt: !?4,"DHHS #: ",$$EXPDN^ACRFUTL(ACRDOCDA) Line Location: HEAD+20
Function Call: WRITE	Prompt: ?42,"\| UNIT" Line Location: HEAD+21
Function Call: WRITE	Prompt: ?48,"\| 4." Line Location: HEAD+22
Function Call: WRITE	Prompt: ?54,"\| 5." Line Location: HEAD+23
Function Call: WRITE	Prompt: ?67,"\|6. EXTENDED" Line Location: HEAD+24
Function Call: WRITE	Prompt: !,"------------------------------------------\| OF" Line Location: HEAD+25
Function Call: WRITE	Prompt: ?48,"\| QUAN" Line Location: HEAD+26
Function Call: WRITE	Prompt: ?54,"\| UNIT" Line Location: HEAD+27
Function Call: WRITE	Prompt: ?67,"\| PRICE" Line Location: HEAD+28
Function Call: WRITE	Prompt: !,"1. ITEM #" Line Location: HEAD+29
Function Call: WRITE	Prompt: ?11,"\| 2. ITEM DESCRIPTION" Line Location: HEAD+30
Function Call: WRITE	Prompt: ?42,"\|ISSUE" Line Location: HEAD+31
Function Call: WRITE	Prompt: ?48,"\| TITY" Line Location: HEAD+32
Function Call: WRITE	Prompt: ?54,"\| PRICE " Line Location: HEAD+33
Function Call: WRITE	Prompt: ?67,"\| ESTIMATED" Line Location: HEAD+34
Function Call: WRITE	Prompt: !?3,"ORDERED BY: ",$P(^AUTTPRG(ACRDPTDA,0),U) Line Location: COMADD+6
Function Call: WRITE	Prompt: !?3,"SHIP TO...:" Line Location: COMADD+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDEPT - [#9002188.1]	DOC1+19
^ACRDOC - [#9002196]	DOC1+2, DOC1+12, DOC1+13, DISP+8, DISP+15, HEAD+4, HEAD+16, HEAD+18, COMADD+2
^ACRFSCD - [#9002193.4]	DOC1+20, DOC1+26
^ACRLOCB - [#9002188]	DOC1+18
^ACRPO - [#9002199.4]	DOC1+24, DOC1+25
^ACRSS - [#9002193]	EN1+4
^ACRSS("J"	EN1+3, SS+1, S1+11, S1+14
^AUTTPRG - [#9999999.62]	DOC1+23, COMADD+6
^DD("DD"	HEAD+8

Label References

Name	Line Occurrences
COMADD	DISP+10
DISP	SS+12
DOC	EN1
EN1	EN+1
HEAD	EN1+5, SS+8, S1+16
L	SS+3, SS+6, HEAD+2, HEAD+10, HEAD+13, HEAD+17, HEAD+35
L4	S1+10
S1	SS+1
SS	EN1+5

Naked Globals

Name	Field # of Occurrence
^(0	HEAD+18
^(18	DISP+15, HEAD+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	DOC1+32, DOC1+34
ACR	EXIT!
>> ACR3542	EN*
>> ACRDOC0	DOC1+17, DOC1+37, DOC1+38, DOC1+40
>> ACRDOCDA	EN1+3, SS+1, S1+11, S1+14, DOC1+2, DOC1+12, DOC1+13, DISP+8, DISP+15, HEAD+4 , HEAD+16, HEAD+18, HEAD+20, COMADD+2
>> ACRDOCDT	DOC1+10
>> ACRDOCPO	DOC1+28
>> ACRDPTDA	DOC1+18*, DOC1+19, DOC1+23, COMADD+3, COMADD+4, COMADD+6
ACRFINDA	DOC1+1!, DOC1+8, DOC1+25, DOC1+26
>> ACRFINRQ	DOC1+27*
>> ACRFL	DOC1+20, DOC1+21, DOC1+22, DOC1+26, DOC1+27
ACRFLDA	DOC1+1!, DOC1+5, DOC1+19, DOC1+20
>> ACRFLRQ	DOC1+21*, DISP+12
>> ACRFS	DOC1+2*, DOC1+4, DOC1+5, DOC1+6, DOC1+7, DOC1+8, DOC1+9
>> ACRFSID	DOC1+7*
>> ACRFUND	DOC1+22*
>> ACRFY	DOC1+32*, DOC1+34
ACRI	EN1+3, SS+1, DOC1+3~, DOC1+4*, L4
>> ACRJ	S1+8, S1+9
>> ACRJDATE	DOC1+40*
>> ACRLBDA	DOC1+17*, DOC1+18
>> ACRNSN	S1+1, S1+3, S1+4, S1+5, S1+6*, L4+1
>> ACROUT	SS+1
>> ACRPODA	DOC1+23*, DOC1+24, DOC1+25
>> ACRPOFON	DOC1+24*
>> ACRPRIOR	DOC1+11*
>> ACRPURA	DOC1+16*
>> ACRQUIT	EN1+1, SS+1, DOC1+4*
>> ACRRA	DOC1+13*, DISP+3, DISP+5
>> ACRRDATE	DOC1+28, DOC1+29, DOC1+32, DOC1+36
>> ACRREFX	SS+9*
>> ACRRQD	S1+8*, L4+4, L4+6
>> ACRRTID	DOC1+6*
>> ACRSIG	DOC1+9*
>> ACRSN	S1+7, S1+9
>> ACRSS0	S1+7
>> ACRSSDA	EN1+2, EN1+3, EN1+4, SS, SS+1, S1+11, S1+14
>> ACRSSDC1	S1+2*, S1+3, L4+2
>> ACRSSDSC	S1+2
>> ACRSSNMS	S1+1
>> ACRSSTOT	EN1+2, EN1+4, SS+2
ACRST	COMADD+1~, COMADD+2*, COMADD+3, COMADD+8
>> ACRUC	L4+5, L4+6
>> ACRUI	L4+3
>> D0	COMADD+4, COMADD+8
DIP	DISP+1~
DT	DOC1+30, HEAD+7
DXS	DISP+1~
>> I	HEAD+19*
IOF	SS+8, S1+13, S1+15, HEAD+1
IOSL	SS+8, S1+11, S1+14
IOST	SS+8, S1+14, HEAD+4
U	EN1+4, S1+1, S1+2, S1+7, DOC1+4, DOC1+5, DOC1+6, DOC1+7, DOC1+8, DOC1+9 , DOC1+10, DOC1+13, DOC1+17, DOC1+18, DOC1+19, DOC1+21, DOC1+22, DOC1+23, DOC1+24, DOC1+25 , DOC1+27, DOC1+28, DOC1+37, DOC1+38, DOC1+40, DISP+8, DISP+15, HEAD+4, HEAD+16, HEAD+18 , COMADD+6
>> X	DOC1+10, DOC1+11, DOC1+12, DOC1+15, DOC1+16, DOC1+30, DOC1+32, DOC1+34, DOC1+35, DOC1+36 , DISP+5, DISP+6*, DISP+7
>> X1	DOC1+37*
>> X2	DOC1+38*
>> Y	HEAD+7*, HEAD+9

Customize PDF page

Package: Commitment Register

Routine: ACRF3542

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP	;TO DISPLAY CUSTOMER ADDRESS
HEAD	;PRINT FORM HEADER
EN
SS
DOC
S1
DOC1	;EP;TO SET FEDSTRIP VARIABLES
L
COMADD	;EP;TO PRINT CUSTOMER ADDRESS AND SHIP TO ADDRESS
EN1
L4
EXIT
L3