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: FBUTL2

Package: Fee Basis

Routine: FBUTL2


Information

FBUTL2 ;WOIFO/SAB-FEE BASIS UTILITY ;7/1/2003

Source Information

Source file <FBUTL2.m>

Entry Points

Name Comments DBIA/ICR reference
ADJ(FBTAS,FBADJ,FBMAX,FBDT,FBADJD,FBNOOUT,FBRRMK,CLESSR) ; Prompt for adjustments
DBG ;
ASKADJ ; multiply prompt for adjustments
VAL ; validate
EXIT ;
XEXIT ;
; if time-out or uparrow and total amount not covered then check if
; exit is allowed by the calling routine. (not allowed during edit)
DEL(FBI) ; delete adjustment reason from list
ADJL(FBADJ) ; build list of adjustments extrinsic function
; Input
; FBADJ - required, array passed by reference
; array adjustments
; format
; FBADJ(#)=FBADJR^FBADJG^FBADJA
; where
; # = integer number greater than 0
; FBADJR = adjustment reason (internal value file 162.91)
; FBADJG = adjustment group (inernal value file 162.92)
; FBADJA = adjustment amount (dollar value)
; Result
; string containing sorted list (by external reason) of adjustments
; format
; FBADJRE 1^FBADJGE 1^FBADJAE 1^FBADJRE 2^FBADJGE 2^FBADJAE 2
; where
; FBADJRE = adjustment reason (external value)
; FBADJGE = adjustment group (external value)
; FBADJAE = adjustment amount (with cents)
  • ICR #5120
    • Status: Retired
    • Usage: Controlled Subscription
    ADJLR(FBADJL) ; build list of adjustment reasons extrinsic function
    ; Input
    ; FBADJL - required, string containing sorted list
    ; (by external reason) of adjustments (see $$ADJL result)
    ; Result
    ; sting of adjustment reasons delimited by commas
    ADJLA(FBADJL) ; build list of adjustment amounts extrinsic function
    ; Input
    ; FBADJL - required, string containing sorted list
    ; (by external reason) of adjustments (see $$ADJL result)
    ; Result
    ; sting of adjustment reasons delimited by commas

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Current list of Adjustments: "
    • Line Location: ASKADJ+9
    Function Call: WRITE
    • Prompt: "none"
    • Line Location: ASKADJ+10
    Function Call: WRITE
    • Prompt: ?30,"Code: "
    • Line Location: ASKADJ+12
    Function Call: WRITE
    • Prompt: ?44,"Group: "
    • Line Location: ASKADJ+14
    Function Call: WRITE
    • Prompt: ?56,"Amount: "
    • Line Location: ASKADJ+16
    Function Call: WRITE
    • Prompt: "$",$FN($P(FBADJ(FBI),U,3),"",2),!
    • Line Location: ASKADJ+17
    Function Call: WRITE
    • Prompt: " (deleted)"
    • Line Location: ASKADJ+50
    Function Call: WRITE
    • Prompt: !,$C(7)," Change was not accepted because the new value is already on the list."
    • Line Location: ASKADJ+55
    Function Call: WRITE
    • Prompt: !,$C(7),"ERROR: A new reason would exceed maximum number (",FBMAX,") allowed for this invoice."
    • Line Location: ASKADJ+64
    Function Call: WRITE
    • Prompt: !," Select a reason code on the current list instead."
    • Line Location: ASKADJ+65
    Function Call: WRITE
    • Prompt: !,$C(7),"ERROR: Must account for $",$FN(FBTAS-FBCAS,"",2)," more to cover the total amount suspended."
    • Line Location: VAL+4
    Function Call: WRITE
    • Prompt: !," The current sum of adjustments is $",$FN(FBCAS,"",2),"."
    • Line Location: VAL+5
    Function Call: WRITE
    • Prompt: !," The total amount suspended is $",$FN(FBTAS,"",2),"."
    • Line Location: VAL+6
    Function Call: WRITE
    • Prompt: !,$C(7),"ERROR: Maximum number of adjustment reasons (",FBMAX,") have been exceeded."
    • Line Location: VAL+9
    Function Call: WRITE
    • Prompt: " (reason deleted)"
    • Line Location: DEL+5
    Info |  Source |  Entry Points |  Interaction Calls