Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACRFIV41

Package: Commitment Register

Routine: ACRFIV41


Information

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

Source Information

Source file <ACRFIV41.m>

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 ;ACR*2.1*16.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 ;ACR*2.1*16.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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All