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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACRFIV43

Package: Commitment Register

Routine: ACRFIV43


Information

ACRFIV43 ;IHS/OIRM/DSD/AEF,MRS - ARMS TO 1166 PAYMENT INTERFACE; [ 03/18/2005 9:41 AM ]

Source Information

Source file <ACRFIV43.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Commitment Register 3 DIR^ACRFDIC  HOME^ACRFMENU  $$DOL^ACRFUTL  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Commitment Register 3 ACRFIV4  ACRFIV41  ACRFIV42  

Entry Points

Name Comments DBIA/ICR reference
PAY(ACRIVPAY,ACRIVT,ACRTERMS,ACRT) ;EP;TO DISPLAY PAYMENT SUMMARY
; Called from ACRFIV4, ACRFIV42, LOCAL/DISCOUNT
DISLOST ;LOST DISCOUNT
INITD ;LOCAL ENTRY TO INITIALIZE LOCAL VARIABLES
WRT3 ;LOCAL ENTRY
WRT2 ;LOCAL ENTRY
WRT(ACRT,ACRRATE,ACRTERMS,ACRIVTF,ACRIVT,ACRIVDC,ACRP)
INT ;LOCAL ENTRY ; Interest penalty
DISPC ; LOCAL ENTRY ;Discount taken w/percentage
OBJCNT(ACRIVPAY) ;EP; EXTRINSIC FUNCTION TO RETURN NUMBER OF OCC'S
PAYD(ACRIVPAY,ACRIVT,ACRTERMS,ACRT) ;EP;TO DISPLAY PAYMENT SUMMARY
; Called from ACRFIV4, ACRFIV42, LOCAL/DISCOUNT
INIT ;LOCAL ENTRY TO INITIALIZE LOCAL VARIABLES
DISAMT ;LOCAL ENTRY ;Discount taken w/$dollar amt
LOST(ACRTERMS,ACRIVTF,ACRIVT) ;LOCAL ENTRY ;Discount lost
TERMS(ACRTERMS) ;LOCAL;TO PROCESS DISCOUNT LOST, INTEREST PENALTY AND DISCOUNT TAKEN
; ALLOWS FOR BOTH DISCOUNT LOST AND INTEREST PENALTY
CORRECT(ACRDT,ACRPCNT,ACRIVDC,ACRTERMS,ACRIVTF)

External References

Name Field # of Occurrence
DIR^ACRFDIC CORRECT+8
HOME^ACRFMENU PAY+18
$$DOL^ACRFUTL DISPC+7, DISAMT+8, INT+5, LOST+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CORRECT+7
Function Call: WRITE
  • Prompt: !!?10
  • Line Location: WRT2+2
Function Call: WRITE
  • Prompt: @ACRON
  • Line Location: WRT2+3
Function Call: WRITE
  • Prompt: "***** NOTE *****"
  • Line Location: WRT2+4
Function Call: WRITE
  • Prompt: @ACROF
  • Line Location: WRT2+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT2+6
Function Call: WRITE
  • Prompt: !!?10,ACRTXT1
  • Line Location: WRT2+8
Function Call: WRITE
  • Prompt: @ACRON
  • Line Location: WRT2+9
Function Call: WRITE
  • Prompt: ACRTXT2
  • Line Location: WRT2+10
Function Call: WRITE
  • Prompt: @ACROF
  • Line Location: WRT2+11
Function Call: WRITE
  • Prompt: ACRTXT3
  • Line Location: WRT2+12
Function Call: WRITE
  • Prompt: !?10,"Amount of payment due...: "
  • Line Location: WRT3+1
Function Call: WRITE
  • Prompt: @ACRON
  • Line Location: WRT3+2
Function Call: WRITE
  • Prompt: $J($FN(ACRIVT,"P,",2),14)
  • Line Location: WRT3+3
Function Call: WRITE
  • Prompt: @ACROF
  • Line Location: WRT3+4
Function Call: WRITE
  • Prompt: !?10,"Payment to be made......: "
  • Line Location: WRT3+15
Function Call: WRITE
  • Prompt: @ACRON
  • Line Location: WRT3+16
Function Call: WRITE
  • Prompt: $J($FN(ACRIVTF,"P,",2),14)
  • Line Location: WRT3+17
Function Call: WRITE
  • Prompt: @ACROF
  • Line Location: WRT3+18

Label References

Name Line Occurrences
$$LOST TERMS+6
$$OBJCNT PAYD+18
$$WRT TERMS+10, TERMS+13
INIT PAY+19
INITD PAYD+19
TERMS PAY+20, PAYD+20
WRT2 TERMS+7, TERMS+11, TERMS+14
WRT3 PAY+21, PAYD+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A WRT+9~, WRT+10*, DISPC+6, DISAMT+5, INT+4
ACRAMT WRT+9~, WRT+12*, DISPC+7*, DISPC+9, DISPC+10, DISAMT+3, DISAMT+7, DISAMT+8*, DISAMT+9, INT+5*
, INT+7, INT+8, LOST+1~, LOST+2*, LOST+4, LOST+8*, LOST+9*, LOST+10, LOST+13
ACRCANDA PAY+17~, INIT+1*, INIT+2*, INIT+4, INIT+5, PAYD+17~, INITD+1*, INITD+2*, INITD+4, INITD+5
>> ACRDAYS WRT+11*, DISPC+3, INT+4
ACRDCNT INIT+1*, INIT+6*, PAYD+17~, PAYD+18*
ACRDT CORRECT~, CORRECT+3!, CORRECT+10*
ACRIVDC CORRECT~, CORRECT+12!, TERMS+10, TERMS+13, WRT3+10, WRT3+13, WRT~, DISPC+10*, DISAMT+9*
ACRIVPAY PAY~, PAYD~, PAYD+18, OBJCNT~
ACRIVPAY( INIT+2, INIT+4, INIT+5, INITD+2, INITD+4, INITD+5, OBJCNT+3, OBJCNT+5
ACRIVT PAY~, INIT+1*, INIT+5*, TERMS+6, TERMS+10, TERMS+13, WRT3+3, WRT~, DISPC+9, DISAMT+7
, INT+7, INT+9, LOST~, LOST+8, LOST+11, PAYD~, INITD+1*, INITD+5*
ACRIVTF CORRECT~, CORRECT+12!, INIT+5*, TERMS+6, TERMS+10, TERMS+13, WRT3+17, WRT~, DISPC+8, DISPC+9*
, DISPC+11, DISAMT+6, DISAMT+7*, DISAMT+10, INT+6, INT+7*, LOST~, LOST+12, INITD+5*
ACRJ OBJCNT+1~, OBJCNT+2*, OBJCNT+5*, OBJCNT+6
ACROBJDA PAY+17~, INIT+3*, INIT+4*, INIT+5, PAYD+17~, INITD+3*, INITD+4*, INITD+5
>> ACROF WRT2+5, WRT2+11, WRT3+4, WRT3+9, WRT3+14, WRT3+18
>> ACRON PAY+18, WRT2+3, WRT2+9, WRT3+2, WRT3+7, WRT3+12, WRT3+16
ACRP CORRECT+12!, TERMS+10, TERMS+13, WRT3+5, WRT3+8, WRT~, INT+8*
ACRPCNT CORRECT~, CORRECT+12!, TERMS+3*, TERMS+10, TERMS+13
ACRRATE WRT~, WRT+13*, DISPC+2, LOST+3*, LOST+5, LOST+7, LOST+8
ACRT PAY~, TERMS+2*, TERMS+3, TERMS+5, TERMS+9, TERMS+10, TERMS+13, WRT~, DISPC+1, DISAMT+1
, INT+1, DISLOST+1, PAYD~
ACRTDIS PAYD+17~
ACRTERMS CORRECT~, PAY~, PAY+20, TERMS~, TERMS+2, TERMS+6, TERMS+10, TERMS+13, WRT~, WRT+11
, WRT+12, WRT+13, DISPC+8*, DISPC+11*, DISAMT+6*, DISAMT+10*, INT+6*, INT+8*, INT+9*, LOST~
, LOST+2, LOST+3, LOST+10*, LOST+11*, LOST+12*, PAYD~, PAYD+20
ACRTXT PAY+17~, TERMS+6*, TERMS+10*, TERMS+13*, WRT2+1, WRT+9~, DISPC+1, DISPC+6*, DISAMT+1, DISAMT+5*
, INT+1, INT+4*, DISLOST+1, DISLOST+2*, DISLOST+3*, DISLOST+4, LOST+1~, LOST+14*, LOST+15, PAYD+17~
ACRTXT1 PAY+17~, WRT2+1*, WRT2+8, WRT+9~, DISPC+2*, DISPC+6, DISAMT+2*, DISAMT+5, INT+2*, INT+4
, LOST+1~, LOST+4*, LOST+6*, LOST+7*, LOST+14, PAYD+17~
ACRTXT2 PAY+17~, WRT2+1*, WRT2+10, WRT+9~, DISPC+3*, DISPC+6, DISAMT+3*, DISAMT+5, LOST+1~, LOST+13*
, LOST+14, PAYD+17~
ACRTXT3 PAY+17~, WRT2+1*, WRT2+12, WRT+9~, DISPC+4*, DISPC+6, INT+3*, INT+4, LOST+1~, PAYD+17~
ACRTXT4 PAY+17~, WRT2+7
ACRX OBJCNT+1~, OBJCNT+2*, OBJCNT+3*, OBJCNT+5
ACRY OBJCNT+1~, OBJCNT+4*, OBJCNT+5*
>> DIR("A" CORRECT+5*
>> DIR("B" CORRECT+6*
>> DIR(0 CORRECT+4*
U TERMS+2, WRT2+1, WRT+11, WRT+12, WRT+13, DISPC+6, DISPC+8, DISPC+11, DISAMT+5, DISAMT+6
, DISAMT+10, INT+4, INT+6, INT+8, INT+9, LOST+2, LOST+3, LOST+10, LOST+11, LOST+12
, LOST+14
>> Y CORRECT+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All