Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: FBUTL4A

Package: Fee Basis

Routine: FBUTL4A


Information

FBUTL4A ;WOIFO/SAB-FEE BASIS UTILITY ;7/6/2003

Source Information

Source file <FBUTL4A.m>

Entry Points

Name Comments DBIA/ICR reference
CLESSR(FBADJ,AMAX,FBRRMK) ; CARCless RARCs
; Input:
; FBADJ -> required, array of Adjustment Reasons
; AMAX -> required, maximum allowed number of adjustment reasons
; FBRRMK -> required, array of remittance remarks
RR(FBRRMK,FBMAX,FBDT,FBRRMKD) ; Prompt for CARCless Remittance Remarks
ASKRR ; multiple prompts for CARCless RARCs
EXIT ;
DEL(FBI) ; delete remark from list
TSTCR ;
RRL(FBRRMK) ; build list of remittance remarks extrinsic function
; Input
; FBRRMK- required, array passed by reference
; array of remittance remarks
; format
; FBRRMK(#)=FBRRMKC
; where
; # = integer number greater than 0
; FBRRMKC = remittance remark (internal value file 162.93)
; Result
; string containing sorted list (by external code) of remarks
; format
; FBRRMKCE 1, FBRRMKCE 2
; where
; FBRRMKCE = remittance remark code (external value)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Current list of Remittance Remarks (CARCless RARCs): "
  • Line Location: ASKRR+4
Function Call: WRITE
  • Prompt: "none"
  • Line Location: ASKRR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKRR+8
Function Call: WRITE
  • Prompt: !,$C(7)," Change was not accepted because the new value is already on the list."
  • Line Location: ASKRR+43
Function Call: WRITE
  • Prompt: !!,$C(7),"ERROR: A new reason would exceed maximum number (",FBMAX,") allowed for this invoice."
  • Line Location: ASKRR+52
Function Call: WRITE
  • Prompt: !," If necessary, a code on the current list can be selected and changed."
  • Line Location: ASKRR+53
Function Call: WRITE
  • Prompt: !!,$C(7),"ERROR: Maximum number of remittance remark codes (",FBMAX,") have been exceeded."
  • Line Location: ASKRR+59
Function Call: WRITE
  • Prompt: " (deleted)"
  • Line Location: DEL+4
Info |  Source |  Entry Points |  Interaction Calls