Routine: ACRFIV11

Package	Total	Call Graph
Commitment Register	8	$$EN^ACRFACH (DIE,FILE,IX1)^ACRFDIC (BCHECK,SEQNO)^ACRFIV12 ($$17,EN)^ACRFIV13 BAL^ACRFODOC $$DOL^ACRFUTL $$OBJDA^ACRFUTL1 PAUSE^ACRFWARN
VA Fileman	1	^DIE

Package	Total	Caller Graph
Commitment Register	5	ACRFIV12 ACRFPAY ACRFPRC3 ACRFRR11 ACRFTA

Entry Points

Name	Comments	DBIA/ICR reference
UPDIS	;LOCAL ENTRY; CREATE ENTRY IN FMS DOCUMENT FILE AT ,70 NODE (DISCOUNT)
1166	;EP;TO CREATE 1166 RECORD IN 1166 PROGRAM
S11661	;----- PUT PAYMENT IN BATCH
DP(ACRTMP2,ACRTMP3,ACRSEQNO)	;LOCAL ENTRY ; CREATE ENTRY IN FMS PAYMENT DISCOUNT/PENALTIES FILE ; ENTERS WITH ACRTMP2=AMOUNT OF DISCOUNT, DISCOUNT LOST, INTEREST ; ACRTMP3 1= DISCOUNT TAKEN ; 2= DISCOUNT LOST ; 3= INTEREST PENALTY
11661	;LOCAL ENTRY;
FIN(ACRDOC,ACRBATNO,ACRMSG)	; CLOSING MESSAGE ;NEW SUB-ROUTINE ACR2.117.01 IM17097
PAY	;LOCAL ENTRY; CREATE ENTRY IN ARMS APPROVALS FOR PAYMENT FILE
MORE(ACROLDOB)	;Now look for needed extra sets for discount or penalties
UPDT(Y,ACRFYDA,ACRODDA,ACRTCODE,ACR17)	;
SS(ACRX,ACRY,ACROBJDA)	;LOCAL ENTRY; ENTER INTEREST PAYMENT INTO FMS SUPPLIES & SERVICES ; ENTERS WITH ACRX = KEY WORD = "INTEREST PAYMENT" ; OR = "DISCOUNT TAKEN" ; OR = "DISCOUNT LOST" ; ACRY = AMOUNT ; ACROBJDA = OBJECT CLASS CODE IEN
SET(ACRA,ACRB,ACRC,ACRD,ACRE)
GETODOC(D)	;LOCAL ENTRY
N1166	;EP; NON-ARMS/AIRLINE ENTRY POINT ;ACR2.117.01 IM17097
EXIT	;EP;CALLED BY ACRFPAY TO INIT VARIABLES
SETACH(ACRCANDA,ACROBJDA,ACRTCODE,ACRP,ACRSEQNO)	;LOCAL ENTRY
ODOC	;LOCAL ENTRY; UPDATE OPEN DOCUMENT RECORD
NEWSEQ(ACRFYDA,ACRBATDA,ACRDOCDA)	;LOCAL ENTRY

External References

Name	Field # of Occurrence
$$EN^ACRFACH	SETACH+5
DIE^ACRFDIC	UPDIS+19
FILE^ACRFDIC	NEWSEQ+14, PAY+9, DP+16, ODOC+22, SS+27, UPDIS+8
IX1^ACRFDIC	SET+12, PAY+17
BCHECK^ACRFIV12	11661+17
SEQNO^ACRFIV12	NEWSEQ+3
$$17^ACRFIV13	SETACH+7
EN^ACRFIV13	S11661+9
BAL^ACRFODOC	UPDT+9
$$DOL^ACRFUTL	ODOC+17, UPDT+7
$$OBJDA^ACRFUTL1	MORE+7
PAUSE^ACRFWARN	FIN+7
^DIE	UPDT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Document No. ",ACRDOC Line Location: FIN+1
Function Call: WRITE	Prompt: !,ACRMSG Line Location: FIN+2
Routine Call	DIE Line Location: UPDT+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRSS - [#9002193]	Classic Fileman Calls
^ACRPAY - [#9002194.2]	Classic Fileman Calls
^ACRDP - [#9002194.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRPAY - [#9002194.2]	PAY+12, PAY+13, PAY+14, PAY+15
^ACRSYS(1	11661+7, N1166+10
^AFSLAFP - [#9002325]	NEWSEQ+12, NEWSEQ+13, SET+1, SET+2, SET+3, SET+4, SET+5, SET+15
^AFSLAFP(0	11661+10
^AFSLODOC(	ODOC+11, ODOC+12*, GETODOC+3
^AFSLODOC("B"	ODOC+2
^DD(9002196	UPDIS+5

Label References

Name	Line Occurrences
$$GETODOC	ODOC+7
$$NEWSEQ	S11661+2, SETACH+3
11661	1166+5
DP	MORE+15, MORE+20
FIN	11661+9, 11661+12, 11661+15, N1166+3, N1166+21, S11661+6
MORE	N1166+18
ODOC	SET+16
PAY	S11661+13, SETACH+15
S11661	N1166+17
SET	S11661+11, SETACH+16
SETACH	MORE+19
SS	MORE+14, MORE+18
UPDIS	MORE+13
UPDT	ODOC+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	1166+1, EXIT+1!, EXIT+8
ACR17	ODOC+24, UPDT~, UPDT+7
>> ACR50	PAY+7
>> ACR51	PAY+8
>> ACR58	ODOC+18
ACRA	1166+3~, S11661+9, S11661+11, SETACH+8, SETACH+9, SETACH+10, SETACH+11, SETACH+16, SET~, SET+1 , SET+7
ACRAMT	UPDIS+2~, UPDIS+11*, UPDIS+17
ACRB	1166+3~, S11661+9, S11661+11, SETACH+12*, SETACH+16, SET~, SET+2, PAY+13
ACRBATDA	N1166+1, N1166+3, S11661+2, SETACH+3, NEWSEQ~, NEWSEQ+3, NEWSEQ+7, NEWSEQ+8, NEWSEQ+12, NEWSEQ+13 , SET+1, SET+2, SET+3, SET+4, SET+5, SET+9
ACRBATNO	N1166+21, S11661+5, S11661+6, FIN~, FIN+3, FIN+4, FIN+5, ODOC+15
ACRBEG	EXIT+7!, SET+6!
>> ACRBTYP	N1166+10
ACRC	1166+3~, S11661+9, S11661+11, SETACH+13*, SETACH+16, SET~, SET+3, PAY+14
ACRCANDA	1166+3~, N1166+5, N1166+6, N1166+8, N1166+11, N1166+12, N1166+13, N1166+14, N1166+15, MORE+19 , SETACH~, SS+13
ACRD	1166+3~, S11661+9, S11661+11, SETACH+16, SET~, SET+4, PAY+15
>> ACRDFYDA	ODOC+2*, ODOC+3, ODOC+5, ODOC+24, GETODOC+3
ACRDOC	EXIT+2!, 11661+6*, 11661+9, 11661+12, 11661+15, N1166+3, N1166+21, S11661+6, FIN~, FIN+1 , SETACH+5, ODOC+6
ACRDOC2	EXIT+2!
ACRDOCDA	S11661+2, SETACH+3, SETACH+5, SETACH+15, NEWSEQ~, NEWSEQ+11, PAY+4, DP+9, SS+6, SS+10 , SS+11, SS+15, SS+17, UPDIS+1, UPDIS+3
ACRDOCX	ODOC+1~, ODOC+6*, ODOC+7
ACRDT	EXIT+2!, SET+7*, PAY+12
ACRDTDA	EXIT+2!
ACRE	1166+3~, S11661+9, S11661+11, SETACH+14*, SETACH+16, SET~, SET+5
ACREND	EXIT+1!, SET+6!
>> ACRFY	SET+15*
ACRFYDA	S11661+2, SETACH+3, NEWSEQ~, NEWSEQ+3, NEWSEQ+6, NEWSEQ+8, NEWSEQ+12, NEWSEQ+13, SET+1, SET+2 , SET+3, SET+4, SET+5, SET+8, SET+15, UPDT~, UPDT+4, UPDT+9
ACRFYFUN	EXIT+2!, ODOC+2
ACRGTA	EXIT+2!
ACRINT	1166+3~, N1166+15*
ACRINV	EXIT+2!
ACRIP	EXIT+2!
ACRIVACP	EXIT+2!
ACRIVACT	EXIT+3!
ACRIVD	EXIT+3!
ACRIVDAT	EXIT+3!
ACRIVDC	EXIT+1!, N1166+14*
ACRIVDIS	EXIT+1!, EXIT+3!
ACRIVDIS(	N1166+12, N1166+13, N1166+14, N1166+15
ACRIVIT	EXIT+3!
ACRIVP	MORE+1~, MORE+9*, MORE+12, MORE+14, MORE+18
ACRIVPAY	EXIT+1!, 11661+13
ACRIVPAY(	N1166+6, N1166+8, N1166+11
ACRIVPT	MORE+1~, MORE+10*, MORE+15, MORE+20
ACRIVT	EXIT+3!
ACRIVTF	EXIT+3!, N1166+11, N1166+13, N1166+16, SETACH+2*, ODOC+17
ACRIVTX	EXIT+4!
ACRIVUP	EXIT+4!
ACRLBDA	EXIT+4!, SS+14
ACRLBDT	EXIT+1!
ACRMAX	EXIT+4!
ACRMSG	1166+3~, 11661+8, 11661+9, 11661+11, 11661+12, 11661+14, 11661+15, N1166+2, N1166+3, N1166+21 , S11661+5*, S11661+6, FIN~, FIN+2
ACRNOTES	EXIT+4!
ACROBJ	MORE+1~, MORE+5*, MORE+7
ACROBJDA	1166+3~, N1166+7, N1166+8, N1166+10, N1166+11, N1166+12, N1166+13, N1166+14, N1166+15, N1166+18 , MORE+1~, MORE+7, MORE+8, MORE+14, MORE+18, MORE+19, SETACH~, SETACH+9, SS~, SS+12
ACRODDA	ODOC+9*, ODOC+24, UPDT~, UPDT+5, UPDT+9
ACROLDOB	MORE~, MORE+8
ACRP	MORE+1~, MORE+2, MORE+3, MORE+14, MORE+15, MORE+18, MORE+19, MORE+20, SETACH~, SETACH+7 , SETACH+10, SETACH+12, SETACH+14
>> ACRPAYDA	PAY+1, DP+11, ODOC+16
ACRPCENT	UPDIS+2~, UPDIS+10*, UPDIS+14
ACRPCNT	EXIT+4!
ACRPDA	EXIT+4!, PAY+11*, DP+10
>> ACRPDFOR	ODOC+19
ACRPEN	EXIT+4!
ACRPODA	EXIT+4!
>> ACRQUIT	FIN+2*
ACRRCD	EXIT+5!
ACRRDATE	EXIT+5!
>> ACRREF	SETACH+5
>> ACRRR0	UPDIS+12
ACRRRDA	EXIT+5!
ACRRRDAT	EXIT+5!
ACRRRDT	EXIT+5!
ACRRRNUM	UPDIS+2~, UPDIS+12*, UPDIS+16
>> ACRSEQDA	S11661+7, SETACH+6, SET+1, SET+2, SET+3, SET+4, SET+5, SET+10
ACRSEQNO	S11661+2, S11661+4, S11661+7, MORE+15, MORE+19, MORE+20, SETACH~, SETACH+3, SETACH+4, SETACH+6 , SETACH+8, NEWSEQ+2, NEWSEQ+3, NEWSEQ+4, NEWSEQ+5, NEWSEQ+15, NEWSEQ+16, DP~, DP+6, ODOC+4 , ODOC+21
ACRSS0	EXIT+5!
ACRSSACP	EXIT+5!
ACRSSACT	EXIT+5!
ACRSSDA	EXIT+6!
ACRSSDSC	EXIT+6!
ACRSSDT	EXIT+6!
ACRSSIT	EXIT+6!
ACRSSMAX	EXIT+6!
ACRSSNMS	EXIT+6!
ACRSSNO	EXIT+6!
ACRSST	EXIT+6!
ACRSSUP	EXIT+7!
ACRT	1166+4!, MORE+6*, MORE+9, MORE+10, FIN+2!
ACRTADD	1166+3~
ACRTCODE	EXIT+7!, MORE+1~, MORE+4*, MORE+19, SETACH~, SETACH+5, SETACH+11, ODOC+24, UPDT~, UPDT+7
ACRTERMS	EXIT+7!, N1166+18, MORE+2, MORE+3, MORE+4, MORE+5, MORE+6, SETACH+5, SETACH+17, UPDIS+7 , UPDIS+10, UPDIS+11
ACRTMP	DP+9, DP+10, DP+11, DP+12, DP+13, DP+14, DP+15, UPDIS+2~, UPDIS+14, UPDIS+15 , UPDIS+16, UPDIS+17, UPDIS+18
ACRTMP2	DP~, DP+14
ACRTMP3	DP~, DP+13
ACRTXDA	EXIT+7!
ACRUC	EXIT+7!
ACRV11	EXIT+7!
ACRV13	EXIT+7!
ACRVDA	EXIT+1!
ACRX	MORE+1~, SETACH+5*, SETACH+13, SS~, SS+18
ACRX2	MORE+1~
ACRY	SS~, SS+21, SS+22, SS+25, SS+26
D	GETODOC~, GETODOC+3, GETODOC+4!
DA	SET+10, PAY+11, UPDT+3~, UPDT+5, UPDIS+2~, UPDIS+13
DA(1	NEWSEQ+7, SET+9, SET+11, ODOC+7, ODOC+8, ODOC+9, ODOC+11, ODOC+12, ODOC+13, UPDT+4 , UPDT+6, UPDIS+3*, UPDIS+4
DA(2	NEWSEQ+6, SET+8, SET+11, ODOC+5*, ODOC+11, ODOC+12, ODOC+13
>> DIC	NEWSEQ+8, PAY+2, DP+7, ODOC+13, SS+8, UPDIS+4
>> DIC("DR"	NEWSEQ+10, NEWSEQ+11, PAY+4, PAY+5, PAY+6, PAY+7, PAY+8, DP+15, ODOC+15, ODOC+16 , ODOC+17, ODOC+18, ODOC+19, ODOC+20, ODOC+21, SS+10, SS+11, SS+12, SS+13, SS+14 , SS+15, SS+16, SS+17, SS+18, SS+19, SS+20, SS+21, SS+22, SS+23, SS+24 , SS+25, SS+26
>> DIC("P"	UPDIS+5*
>> DIC(0	NEWSEQ+9, PAY+3, DP+8, ODOC+14, SS+9, UPDIS+6
DIE	UPDT+3~, UPDT+6, UPDIS+4
>> DIK	SET+11, PAY+16
DR	UPDT+3~, UPDT+7, UPDIS+18
DT	PAY+1, PAY+6, UPDT+7
DUZ	NEWSEQ+10, PAY+5, DP+12
U	11661+7, N1166+10, N1166+18, MORE+2, MORE+4, MORE+5, MORE+6, SETACH+8, SETACH+9, SETACH+10 , SETACH+11, SETACH+12, SETACH+13, SETACH+14, SET+15, PAY+12, UPDIS+5, UPDIS+10, UPDIS+11, UPDIS+12
X	NEWSEQ+5, PAY+1, DP+6, ODOC+4, UPDT+3~, GETODOC+1~, GETODOC+2, GETODOC+3, SS+7, UPDIS+7
Y	NEWSEQ+15, PAY+10, PAY+11, PAY+12, PAY+13, PAY+14, PAY+15, ODOC+24, UPDT~, GETODOC+1~ , GETODOC+3*, GETODOC+5, UPDIS+9, UPDIS+13
Z	GETODOC+1~

Customize PDF page

Package: Commitment Register

Routine: ACRFIV11

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: