Routine: ACRFIV41

Information

ACRFIV41 ;IHS/OIRM/DSD/THL,AEF - ARMS TO 1166 PAYMENT INTERFACE; [ 04/21/2005 7:53 AM ]

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Commitment Register	6	DIR^ACRFDIC $$IRATE^ACRFIV41 DCAN^ACRFIV42 (CORRECT,PAY)^ACRFIV43 $$DASH^ACRFMENU PAUSE^ACRFWARN
VA Fileman	1	(,C,DW)^%DTC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Commitment Register	3	ACRFIV12 ACRFIV4 ACRFIV41

Entry Points

Name	Comments	DBIA/ICR reference
EN
LOST	;EP;INDICATE THE PERCENT OF DISCOUNT LOST ; Moved to ACRFIV42 ;ACR2.116.06 IM15505
PAYDATE	;EP;CALCULATE PAYMENT DATE
GATHER	;GATHER ALL DATA
IRATE(ACRPAYDA)	;EP;CALCULATE APPLICABLE INTEREST RATE
EN1
PAYDUE	;EP;TO SELECT PAYMENT DUE DATE
EXIT
PD1	;FOR NON-ARMS DOCUMENTS
INTEREST	;EP;INDICATE INTEREST PAYMENT DUE
LATEPAY(ACRIVT,ACRPEN,ACRIRATE)	;EP;TO CALCULATE THE LATE PAYMENT INTEREST CHARGE
PAYON
PAY	;EP;TO DISPLAY PAYMENT SUMMARY ; Moved to ACRFIV43 ;ACR2.116.06 IM15505

External References

Name	Field # of Occurrence
^%DTC	PD1+11, PAYON+13
C^%DTC	PD1+17, PAYDUE+9, PAYDUE+18
DW^%DTC	PAYDUE+14, PAYON+10
DIR^ACRFDIC	PAYDUE+4, PAYON+5
$$IRATE^ACRFIV41	INTEREST+4
DCAN^ACRFIV42	INTEREST+25
CORRECT^ACRFIV43	INTEREST+23
PAY^ACRFIV43	INTEREST+15
$$DASH^ACRFMENU	EN1+3
PAUSE^ACRFWARN	EN1+7, INTEREST+19, PAYDATE+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"BATCH YEAR: ",$S($E($G(ACRPAYDA),1,3)]"":$E($G(ACRPAYDA),1,3)+1700,1:"") Line Location: EN1+1
Function Call: WRITE	Prompt: !,"BATCH NO..: ",$G(ACRBATNO) Line Location: EN1+2
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: EN1+3
Function Call: WRITE	Prompt: !,"DOC YEAR: ",$G(ACRDOCYR) Line Location: EN1+4
Function Call: WRITE	Prompt: ?40,"FY OF FUNDS: ",$G(ACRFYFUN) Line Location: EN1+5
Function Call: WRITE	Prompt: !,"DOC NO..: ",$G(ACRDOC) Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"Payment will be made ",ACRPEN," days late" Line Location: INTEREST+3
Function Call: WRITE	Prompt: !,"At the current daily interest rate of ",ACRIRATE Line Location: INTEREST+5
Function Call: WRITE	Prompt: " are " Line Location: PAYDATE+9
Function Call: WRITE	Prompt: " is " Line Location: PAYDATE+10
Function Call: WRITE	Prompt: " they are " Line Location: PAYDATE+13
Function Call: WRITE	Prompt: " it is " Line Location: PAYDATE+14
Function Call: WRITE	Prompt: !!,"Receiving Report done on: " Line Location: PD1+2
Function Call: WRITE	Prompt: Y Line Location: PD1+5
Function Call: WRITE	Prompt: !,"Invoice received on.....: " Line Location: PD1+6
Function Call: WRITE	Prompt: Y Line Location: PD1+9
Function Call: WRITE	Prompt: !!,"Payment CANNOT be made prior to TODAY." Line Location: PAYON+7
Function Call: WRITE	Prompt: 7,7,!!,"You cannot schedule a payment to be made on a ",X,! Line Location: PAYON+11
Function Call: WRITE	Prompt: !!,"Payment will be scheduled " Line Location: PAYON+16
Function Call: WRITE	Prompt: @ACRON Line Location: PAYON+17
Function Call: WRITE	Prompt: "the same day" Line Location: PAYON+18
Function Call: WRITE	Prompt: $TR(ACRPEN,"-","")," days ",$S(ACRPEN<0:" before",1:"after") Line Location: PAYON+19
Function Call: WRITE	Prompt: @ACROF Line Location: PAYON+20
Function Call: WRITE	Prompt: " the payment is due" Line Location: PAYON+21

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	GATHER+2, PAYDATE+2, PAYDATE+3
^ACRLOCB - [#9002188]	GATHER+4
^ACRSYS(1	IRATE+2, IRATE+4, IRATE+5
^DD("DD"	PD1+4, PD1+8, PD1+19, PAYON+1

Name	Line Occurrences
$$LATEPAY	INTEREST+6
EN1	EN
GATHER	EN1
PAYDUE	PD1+1
PAYON	PAYON+7, PAYON+11
PD1	PAYDATE+1

Name	Field # of Occurrence
^(0	GATHER+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACRBATNO	EN1+2, GATHER+1*
ACRDATE	EXIT!, PD1+13, PD1+14
>> ACRDOC	EN1+6, GATHER+2*, GATHER+3
>> ACRDOC0	GATHER+4
>> ACRDOCDA	ACRFIV41+4, GATHER+2, PAYDATE+1, PAYDATE+2, PAYDATE+3
>> ACRDOCYR	EN1+4, GATHER+3*
ACRDT	INTEREST+2!, INTEREST+23, INTEREST+24
>> ACRFYFUN	EN1+5, GATHER+4*
ACRIRATE	LATEPAY~, LATEPAY+3, LATEPAY+6, INTEREST+4*, INTEREST+5, INTEREST+6, INTEREST+10, INTEREST+24!
ACRIVDAT	EXIT!, PAYDATE+2*, PAYDATE+4, PAYDATE+6, PAYDATE+7, PAYDATE+9, PAYDATE+13, PD1+1, PD1+7, PD1+10
>> ACRIVDC	INTEREST+23
>> ACRIVDIS	INTEREST+25
>> ACRIVPAY	INTEREST+15
ACRIVT	LATEPAY~, LATEPAY+1, LATEPAY+6, INTEREST+6, INTEREST+15
>> ACRIVTF	INTEREST+23
>> ACROF	PAYON+20
>> ACRON	PAYON+17
ACROUT	INTEREST+1, INTEREST+16, INTEREST+20!
ACRP	INTEREST+6*, INTEREST+10, INTEREST+24!
ACRPAY	EXIT!
ACRPAYDA	EN1+1, IRATE~, IRATE+1, IRATE+2, INTEREST+4, PAYON+8*, PAYON+12
>> ACRPAYDU	PAYDUE+6*, PAYDUE+7, PAYON+12
ACRPCNT	INTEREST+23, INTEREST+24!
ACRPEN	LATEPAY~, LATEPAY+2, LATEPAY+6, INTEREST+3, INTEREST+6, INTEREST+10, PAYON+14*, PAYON+18, PAYON+19
ACRPPEN	INTEREST+2!
ACRQUIT	INTEREST+1, INTEREST+2!, INTEREST+21, INTEREST+24!, INTEREST+26!, PAYDATE+17, PAYDUE+5!, PAYON+6!, PAYON+15!
>> ACRREF	GATHER+3
ACRRRDAT	EXIT!, PAYDATE+3*, PAYDATE+4, PAYDATE+7, PAYDATE+8, PAYDATE+9, PAYDATE+13, PD1+1, PD1+3, PD1+10 , PD1+13
ACRT	INTEREST+2!, INTEREST+13*, INTEREST+14, INTEREST+15, INTEREST+20!, INTEREST+25
ACRTERMS	INTEREST+2!, INTEREST+10, INTEREST+11, INTEREST+12, INTEREST+14, INTEREST+15, INTEREST+17, INTEREST+18, INTEREST+20!, INTEREST+24! , INTEREST+25
ACRTYPE	EXIT!, INTEREST+2!
>> DIR("A"	PAYDUE+2, PAYDUE+3, PAYON+3*
>> DIR("B"	PD1+20, PAYON+4
>> DIR(0	PAYDUE+1, PAYON+2
DT	PAYON, PAYON+7
U	GATHER+2, GATHER+4, IRATE+5, INTEREST+10, INTEREST+11, INTEREST+12, INTEREST+14, PAYDATE+2, PAYDATE+3
X	LATEPAY+4~, IRATE+2, IRATE+3, IRATE+4, IRATE+5, IRATE+6, PD1+14, PD1+18, PAYDUE+10, PAYDUE+11* , PAYDUE+12, PAYDUE+13, PAYDUE+15, PAYDUE+17, PAYDUE+19, PAYON+9, PAYON+11, PAYON+14
>> X1	PD1+10, PD1+13, PD1+14, PD1+15, PAYDUE+7, PAYDUE+16, PAYON+12
>> X2	PD1+10, PD1+16, PAYDUE+8, PAYDUE+17, PAYON+12*
Y	LATEPAY+4~, LATEPAY+6, LATEPAY+7, LATEPAY+8, LATEPAY+9, PD1+3, PD1+5, PD1+7, PD1+9, PD1+18 , PD1+20, PAYDUE+5, PAYDUE+6, PAYON*, PAYON+4, PAYON+6, PAYON+7, PAYON+8, PAYON+9
Z	LATEPAY+4~, PAYDUE+13, PAYDUE+16, PAYDUE+19, PAYON

Customize PDF page

Package: Commitment Register

Routine: ACRFIV41

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: