Routine: ACRFBPA

Package	Total	Call Graph
Commitment Register	4	(DIC,DIR)^ACRFDIC $$LASTBPA^ACRFNEW1 PAUSE^ACRFWARN ^ACRFZIS
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Commitment Register	2	ACRFEA1 ACRFEA21

Entry Points

Name	Comments	DBIA/ICR reference
CALLIM	;EP;TO DETERMINE IF CALL AMOUNT EXCEEDS BPA PER CALL LIMIT
P	;
CHOOSE	;EP;
BS	;EP;TO PRINT BPA SUMMARY
BPASUM	;EP;TO SUMMARIZE TOTAL DOLLARS OBLIGATED AGAINST A BPA
PH

External References

Name	Field # of Occurrence
C^%DTC	CHOOSE+42
DIC^ACRFDIC	CHOOSE+9
DIR^ACRFDIC	CHOOSE+38, CHOOSE+48, BPASUM+12
$$LASTBPA^ACRFNEW1	CHOOSE+11
PAUSE^ACRFWARN	CHOOSE+13, CHOOSE+28, BS+33, BS+50, P+2
^ACRFZIS	BPASUM+17
^XBKVAR	BPASUM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+8
Function Call: WRITE	Prompt: 7,7,!!?10,"ALL CALL NUMBERS FOR THIS BPA HAVE BEEN USED!" Line Location: CHOOSE+12
Function Call: WRITE	Prompt: !!,"Please hold for a moment while I determine the" Line Location: CHOOSE+32
Function Call: WRITE	Prompt: !,"total amount charged against this BPA to date." Line Location: CHOOSE+33
Function Call: WRITE	Prompt: ! Line Location: BPASUM+11
Function Call: WRITE	Prompt: !!?10,"TOTAL DOLLARS COMMITTED AND OBLIGATED AGAINST BPA: ",ACRDOC Line Location: BS+19
Function Call: WRITE	Prompt: !?10,"------------------------------------------------------------------" Line Location: BS+20
Function Call: WRITE	Prompt: !?10,"TOTAL SET ASIDE:" Line Location: BS+21
Function Call: WRITE	Prompt: ?27,"TOTAL COMMITTED:" Line Location: BS+22
Function Call: WRITE	Prompt: ?44,"TOTAL OBLIGATED:" Line Location: BS+23
Function Call: WRITE	Prompt: ?62,"TOTAL SPENT" Line Location: BS+24
Function Call: WRITE	Prompt: !?10,"---------------" Line Location: BS+25
Function Call: WRITE	Prompt: ?27,"---------------" Line Location: BS+26
Function Call: WRITE	Prompt: ?44,"---------------" Line Location: BS+27
Function Call: WRITE	Prompt: ?62,"--------------" Line Location: BS+28
Function Call: WRITE	Prompt: !?10,$J($FN(ACRBPAA,"P,",2),14) Line Location: BS+29
Function Call: WRITE	Prompt: ?27,$J($FN(ACRREQ,"P,",2),14) Line Location: BS+30
Function Call: WRITE	Prompt: ?44,$J($FN(ACROBL,"P,",2),14) Line Location: BS+31
Function Call: WRITE	Prompt: ?62,$J($FN(ACRSPT,"P,",2),14) Line Location: BS+32
Function Call: WRITE	Prompt: ?55,ACRDOCX Line Location: BS+48
Function Call: WRITE	Prompt: @IOF Line Location: BS+51
Function Call: WRITE	Prompt: !!?4,"ID.",?10,"CALL" Line Location: PH+0
Function Call: WRITE	Prompt: !?4,"NO." Line Location: PH+1
Function Call: WRITE	Prompt: ?10,"NO." Line Location: PH+2
Function Call: WRITE	Prompt: ?15,"REQUISITION NO." Line Location: PH+3
Function Call: WRITE	Prompt: ?35,"PURCHASE ORDER #" Line Location: PH+4
Function Call: WRITE	Prompt: ?55,"OBLIGATION DOC #" Line Location: PH+5
Function Call: WRITE	Prompt: !?4,"----- ---- ------------------" Line Location: PH+6
Function Call: WRITE	Prompt: ?35,"----------------" Line Location: PH+7
Function Call: WRITE	Prompt: ?55,"----------------" Line Location: PH+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRDOC - [#9002196]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDHR - [#9002189.1]	BS+43
^ACRDHR("E"	BS+42
^ACRDOC - [#9002196]	CHOOSE+16, CHOOSE+17, CHOOSE+18, CHOOSE+26, BS+13, BS+16, BS+17, CALLIM+1, CALLIM+2
^ACRDOC("BPA"	BS+5
^ACROBL - [#9002189]	BS+7
^ACRSS - [#9002193]	BS+9, CALLIM+6
^ACRSS("J"	BS+5, BS+9, CALLIM+6
^DD("DD"	CHOOSE+44
^TMP("ACRF"	BS+2!, BS+15*, BS+34, BS+37, BS+39, BS+40, BS+52!, P+1

Label References

Name	Line Occurrences
BS	CHOOSE+34
CHOOSE	BPASUM+3
P	BS+49
PH	BS+35, P+4

Naked Globals

Name	Field # of Occurrence
^("DT"	BS+9, CALLIM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	BS+36, BS+37, BS+39, BS+40, BS+45, P+1, CALLIM+4~, CALLIM+5, CALLIM+6
ACRBPA	CHOOSE+1!, CHOOSE+15, CHOOSE+26, BPASUM+4, BPASUM+5, BPASUM+6, BS+5, BS+16, BS+17, CALLIM+1 , CALLIM+2*, CALLIM+7
ACRBPA0	CHOOSE+16*, CHOOSE+20, CHOOSE+22, CHOOSE+25, CHOOSE+30!
>> ACRBPAA	BS+16*, BS+29
>> ACRBPAFO	CHOOSE+24*
ACRBPAPA	CHOOSE+18*, CHOOSE+21, CHOOSE+30!
ACRBPAPO	CHOOSE+17*, CHOOSE+19, CHOOSE+23, CHOOSE+24, CHOOSE+30!
>> ACRBPAPS	CHOOSE+21*
ACRBPASM	CHOOSE+31, BPASUM+2*, BS+4!
>> ACRBPASP	CHOOSE+22*
>> ACRBPATO	CHOOSE+23*
>> ACRBPATX	CHOOSE+20*
>> ACRBPAV	CHOOSE+19*
ACRDOC	CHOOSE+1!, BPASUM+14, BS+12, BS+17, BS+19
>> ACRDOCDA	BPASUM+6, BS+3, BS+5, BS+7, BS+9, BS+13, BS+15, BS+41, BS+42, CALLIM+1 , CALLIM+6
>> ACRDOCX	BS+42, BS+43, BS+48
>> ACRJ	BS+3, BS+6, BS+15, BS+38, BS+39, BS+40, P+1
>> ACROBL	BS+3, BS+11, BS+31
>> ACROD	CHOOSE+40*
>> ACROUT	CHOOSE+39, CHOOSE+49, BPASUM+13
>> ACRPONUM	CHOOSE+25*
ACRQUIT	CHOOSE+10, CHOOSE+14, CHOOSE+29, CHOOSE+39, CHOOSE+49, BPASUM+13, BS+37, BS+39, CALLIM+3!, CALLIM+7
>> ACRREQ	BS+3, BS+10, BS+30
>> ACRRQDD	CHOOSE+50*
>> ACRRTN	BPASUM+15*
>> ACRSPT	BS+3, BS+7, BS+32
>> ACRSSDA	BS+8, BS+9
>> ACRSSDT	BS+9*, BS+10, BS+11
ACRSUM	CALLIM+4~, CALLIM+5, CALLIM+6, CALLIM+7
>> D	CHOOSE+7*
DATA	BS+1~, BS+13, BS+14, BS+15, BS+40, BS+41, BS+44, BS+46, BS+47, BS+48
DIC	CHOOSE+1!, CHOOSE+2*
DIC("A"	CHOOSE+4*
DIC("S"	CHOOSE+5, CHOOSE+6
DIC(0	CHOOSE+3*
>> DIR("?"	BPASUM+10*
>> DIR("A"	CHOOSE+36, CHOOSE+47, BPASUM+8*
>> DIR("B"	CHOOSE+37, CHOOSE+45, BPASUM+9*
>> DIR(0	CHOOSE+35, CHOOSE+46, BPASUM+7*
IOF	BS+18, BS+51, P+3
IOSL	P+1
IOST	BS+18
U	CHOOSE+19, CHOOSE+20, CHOOSE+21, CHOOSE+22, CHOOSE+23, CHOOSE+24, CHOOSE+25, CHOOSE+26, BS+7, BS+10 , BS+11, BS+14, BS+15, BS+16, BS+17, BS+41, BS+43, BS+44, BS+46, BS+47 , BS+48, CALLIM+1, CALLIM+2, CALLIM+6
>> X	CHOOSE+43
>> X1	CHOOSE+40*
>> X2	CHOOSE+41*
>> Y	CHOOSE+10, CHOOSE+11, CHOOSE+15, CHOOSE+16, CHOOSE+17, CHOOSE+18, CHOOSE+39, CHOOSE+40, CHOOSE+43*, CHOOSE+45 , CHOOSE+49, CHOOSE+50, BPASUM+14
>> ZTDESC	BPASUM+16*

Customize PDF page

Package: Commitment Register

Routine: ACRFBPA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: