Routine: ACRFIV42

Package	Total	Call Graph
Commitment Register	4	DIR^ACRFDIC DT^ACRFDT ($$OBJCNT,CORRECT,PAY)^ACRFIV43 PAUSE^ACRFWARN

Package	Total	Caller Graph
Commitment Register	2	ACRFIV4 ACRFIV41

Entry Points

Name	Comments	DBIA/ICR reference
PERCNT(ACRAMT,ACRA,ACRATE,ACRTOT)
DISCOUNT(ACRTERMS,ACRDT,ACROUT,ACRQUIT,ACRIVPAY)	;EP;DISCOUNT TERMS
C1(ACRORG,ACRIVDIS,ACRCANDA,ACROBJDA,ACRT,ACRPC,ACRP)
DAMT	;SELECT DISCOUNT DOLLAR AMOUNT
DCAN(ACRTERMS,ACRT,ACRIVDIS)	;DETERMINE WHICH OCC/SET SEPARATE DISCOUNT AMOUNTS PER OCC
KILL	; KILL VARIABLES IF NOT CORRECT
DTSEL	;EP;SELECT TERMS APPLICABLE TO THIS PAYMENT
LOST(ACRTERMS)	;EP;INDICATE THE PERCENT OF DISCOUNT LOST
DISC

External References

Name	Field # of Occurrence
DIR^ACRFDIC	LOST+8, LOST+17, DTSEL+5, DAMT+4
DT^ACRFDT	DTSEL+8
$$OBJCNT^ACRFIV43	DCAN+3
CORRECT^ACRFIV43	LOST+27, DISC+9
PAY^ACRFIV43	LOST+26, DISC+8
PAUSE^ACRFWARN	LOST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"The Discount Lost option is not available at this time" Line Location: LOST+2
Function Call: WRITE	Prompt: ! Line Location: LOST+7
Function Call: WRITE	Prompt: ! Line Location: DAMT+3

Label References

Name	Line Occurrences
$$PERCNT	DCAN+12
C1	DCAN+14
DAMT	DTSEL+17
DCAN	DISC+7
DISC	DISC+10
DTSEL	DISC+2
KILL	LOST+28, DISC+6, DISC+11, DTSEL+12, DTSEL+24
LOST	LOST+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	DCAN+1~, DCAN+8, DCAN+12, DCAN+14, PERCNT+7~, PERCNT+11, PERCNT+12, PERCNT+13, PERCNT+14
ACRA	DCAN+1~, DCAN+9*, DCAN+12, PERCNT~, PERCNT+8, PERCNT+9
ACRAMT	PERCNT~, PERCNT+11
ACRATE	DCAN+10, DCAN+12, PERCNT~, PERCNT+9, PERCNT+10*, PERCNT+11
ACRC	DCAN+1~, DCAN+2, DCAN+5, DCAN+7, DCAN+8, DCAN+14
ACRCANDA	C1~, C1+10, C1+11, C1+12, C1+16, C1+17, C1+18, C1+20, C1+21, C1+22
ACRDCNT	DCAN+1~, DCAN+3*, DCAN+4
ACRDT	LOST+27, LOST+28, DISCOUNT~, DISC!, DISC+9, DISC+10
>> ACRDTDA	DTSEL+10, DTSEL+13, DTSEL+14, DAMT+5
>> ACRIVDC	LOST+27, DISC+9
ACRIVDIS	DISC+7, DCAN~, DCAN+14, C1~, KILL+2!
ACRIVDIS(	C1+10, C1+11, C1+12, C1+16, C1+17, C1+18, C1+20, C1+21, C1+22*
ACRIVPAY	LOST+26, DISCOUNT~, DISC+8, DCAN+3
ACRIVPAY(	DCAN+5, DCAN+7, DCAN+8
>> ACRIVT	LOST+26, DISC+8
>> ACRIVTF	LOST+27, DISC+9, DTSEL+20
ACRJ	DCAN+1~, DCAN+2*
ACRO	DCAN+1~, DCAN+6, DCAN+7, DCAN+8, DCAN+14
ACROBJDA	C1~, C1+10, C1+11, C1+16, C1+17, C1+20, C1+21
ACRORG	C1~, C1+10
ACROUT	LOST+9, DISCOUNT~
ACRP	C1~, C1+12, C1+16, C1+17, C1+18
ACRPC	DCAN+1~, DCAN+12*, DCAN+13, DCAN+14, C1~, C1+10, C1+11, C1+20, C1+21, C1+22
>> ACRPCNT	LOST+27, DISC+9
>> ACRPCTOT	DCAN+2, DCAN+13, DCAN+14, DCAN+15
ACRQUIT	DISCOUNT~, DISC!, DISC+3, DISC+12!, DISC+13!, DTSEL+6, DTSEL+10, DTSEL+25, DAMT+5, KILL+3!
ACRT	LOST+12, LOST+20, LOST+25, LOST+26, DISC!, DISC+7, DISC+8, DTSEL+15, DTSEL+21, DAMT+9 , DCAN~, DCAN+14, C1~, C1+9, C1+15, C1+19, KILL+4*
ACRTERMS	LOST~, LOST+11, LOST+13, LOST+19, LOST+21, LOST+23!, LOST+25, LOST+26, LOST+27, LOST+29 , DISCOUNT~, DISC!, DISC+4, DISC+7, DISC+8, DTSEL+13, DTSEL+14, DTSEL+18, DTSEL+19, DTSEL+20 , DTSEL+21, DAMT+6!, DAMT+8, DCAN~, DCAN+9, DCAN+10, DCAN+11, DCAN+15*, KILL+1!
ACRTOT	DCAN+11*, DCAN+12, PERCNT~, PERCNT+9
ACRTYPE	DISC!, DTSEL+1*
>> DIR("A"	LOST+6, LOST+15, DTSEL+4, DAMT+2
>> DIR(0	LOST+5, LOST+14, DTSEL+2, DTSEL+3, DAMT+1*
J	DISC+1~
U	LOST+11, LOST+19, LOST+25, LOST+29, DTSEL+13, DTSEL+14, DTSEL+19, DTSEL+20, DTSEL+21, DAMT+8 , DCAN+9, DCAN+10, DCAN+11, DCAN+15
X	DISC+1~
Y	LOST+10, LOST+11, LOST+18, LOST+19, DISC+1~, DTSEL+6, DTSEL+7*, DTSEL+17, DTSEL+23, DAMT+8
Z	DISC+1~

Customize PDF page

Package: Commitment Register

Routine: ACRFIV42

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: