Routine: ACRFFS

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

Package	Total	Caller Graph
Commitment Register	2	ACRFEA4 ACRFQ

Entry Points

External References

Name	Field # of Occurrence
^%DTC	DOC1+41
H^%DTC	DOC1+32, DOC1+35
SETDOC^ACRFEA1	DOC
$$DASH^ACRFMENU	L, L1
^ACRFPAPV	SS+4
^ACRFPSS	SS+5
SETSS^ACRFSSA	S1
$$NAME2^ACRFUTL1	DOC1+16
PAUSE^ACRFWARN	S1+10, S1+11, HEAD+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SS+3
Function Call: WRITE	Prompt: @IOF Line Location: S1+10
Function Call: WRITE	Prompt: @IOF Line Location: S1+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: "ARMS REF: ",$P($G(ACRDOC0),U,6),"/",ACRDOCDA Line Location: HEAD+3
Function Call: WRITE	Prompt: ?16,"DOCUMENT IDENTIFICATION" Line Location: HEAD+4
Function Call: WRITE	Prompt: ?50,"PAGE ",ACRPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: ?70,"STANDARD FORM 344" Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"1. \|2. \|3. \|DOCUMENT NUMBER \|13.\|14-15. \|16.\|17. \|18. \|19. \|20. \|21. \|" Line Location: HEAD+8
Function Call: WRITE	Prompt: !," \| \| M \|9-10. \|11. \| D \| SUPPLE \| S \| \|DIST \| \| PRI \| RQD \|" Line Location: HEAD+10
Function Call: WRITE	Prompt: !," DOC.\| ROUT\| & \| REQUISI \| \| E \| MENTARY\| I \| \|RIBU \|PRO \| OR \| DEL \|" Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"IDEN \| IDEN\| S \| TIONER \| DATE \| M \| ADDRESS\| G \|FUND \|TION \|JECT \| ITY \|DATE \|" Line Location: HEAD+14
Function Call: WRITE	Prompt: !," 1-3 \| 4-6 \| 7 \| 30-35 \| 36-39\| 44\| 45-50 \| 51\|52-53\|54-56\|57-59\|60-61\|62-64\|" Line Location: HEAD+15
Function Call: WRITE	Prompt: !," " Line Location: HEAD+20
Function Call: WRITE	Prompt: $S(ACRFSID]"":ACRFSID,1:"***")," \| " Line Location: HEAD+21
Function Call: WRITE	Prompt: $S(ACRRTID]"":ACRRTID,1:"***")," \| A \| " Line Location: HEAD+22
Function Call: WRITE	Prompt: $S(ACRFLRQ]"":ACRFLRQ,1:"******")," \| " Line Location: HEAD+23
Function Call: WRITE	Prompt: $S(ACRJDATE]"":ACRJDATE,1:"****")," \| \| " Line Location: HEAD+24
Function Call: WRITE	Prompt: $S(ACRFINRQ]"":ACRFINRQ,1:"******")," \| " Line Location: HEAD+25
Function Call: WRITE	Prompt: $S(ACRSIG]"":ACRSIG,1:"*")," \| " Line Location: HEAD+26
Function Call: WRITE	Prompt: $S(ACRFUND]"":ACRFUND,1:"**")," \| \| \| " Line Location: HEAD+27
Function Call: WRITE	Prompt: $S(ACRPRIOR]"":ACRPRIOR,1:"**")," \| " Line Location: HEAD+28
Function Call: WRITE	Prompt: $S(ACRRDATE]"":ACRRDATE,1:"***")," \|" Line Location: HEAD+29
Function Call: WRITE	Prompt: !?30,"REQUISITION DATA" Line Location: HEAD+34
Function Call: WRITE	Prompt: !," STOCK NUMBER \|6. \|7. \|8. \|12. \|14-15. \|16.\|18. \|19. \|22. \|" Line Location: HEAD+36
Function Call: WRITE	Prompt: !,"--------------------\| \|UNIT \| \| SER \|SUPPLE-\| S \|DIST \| \| \|" Line Location: HEAD+37
Function Call: WRITE	Prompt: !,"4. \|5. \| ADD-\| OF \| QUAN- \| IAL \|MENTARY\| I \|RIBU \|PRO- \| AD- \|" Line Location: HEAD+38
Function Call: WRITE	Prompt: !," FSC \| NSN \| TNL \|ISSUE\| TITY \| NO. \|ADDRESS\| G \|TION \|JECT \|VICE \|" Line Location: HEAD+39
Function Call: WRITE	Prompt: !," 8-11 \| 12-20 \|21-22\|23-24\| 25-29 \|40-43\| 45-50 \| 51\|54-56\|57-59\|65-66\|" Line Location: HEAD+41
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: L+0
Function Call: WRITE	Prompt: $$DASH^ACRFMENU(132) Line Location: L1+0
Function Call: WRITE	Prompt: !,"-----\|-----\|---\|---------\|------\|---\|--------\|---\|-----\|-----\|-----\|-----\|-----\|" Line Location: L2+0
Function Call: WRITE	Prompt: !?1,$E(ACRNSN,1,4)," \| ",$E(ACRNSN,6,17) Line Location: L4+0
Function Call: WRITE	Prompt: ?20,"\| \| ",$S(ACRUI]"":ACRUI,1:"**")," \| ",ACRRQD," \| ",ACRSN,"\| \| \| \| \| \|",$J(ACRUC,9) Line Location: L4+1
Function Call: WRITE	Prompt: ?$X+1,$E(ACRSSDC1,1,28) Line Location: L4+2
Function Call: WRITE	Prompt: ?120,$J($FN(ACRRQD*ACRUC,"P",2),10) Line Location: L4+3
Function Call: WRITE	Prompt: !?81,$P(ACRSSDT,U,22) Line Location: L4+4
Function Call: WRITE	Prompt: !,"------\|-------------\|-----\|-----\|-------\|-----\|-------\|---\|-----\|-----\|-----\|----------------------------------------------------" Line Location: L3+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDEPT - [#9002188.1]	DOC1+20
^ACRDOC - [#9002196]	DOC1+2, DOC1+3, DOC1+14, HEAD+17, HEAD+18
^ACRFSCD - [#9002193.4]	DOC1+21, DOC1+27
^ACRFSDI - [#9002193.41]	DOC1+10
^ACRFSRI - [#9002193.43]	DOC1+8
^ACRLOCB - [#9002188]	DOC1+19
^ACRPO - [#9002199.4]	DOC1+25
^ACRSS - [#9002193]	EN1+4
^ACRSS("J"	EN1+4, SS+1, S1+10, S1+11, S1+12

Label References

Name	Line Occurrences
DOC	EN1+1
EN1	EN+1
HEAD	EN1+5, SS+3, S1+12
L1	HEAD+7, HEAD+31, HEAD+35, HEAD+42
L2	HEAD+19
L3	HEAD+40
L4	S1+9
S1	SS+1
SS	EN1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Commitment Register

Routine: ACRFFS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HEAD	;PRINT HEADER DATA
EN
SS
DOC
S1
DOC1	;EP;TO SET FEDSTRIP VARIABLES
L
EN1	;
L4
EXIT
L3
L1
L2