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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Fee Basis 2 $$RR^FBUTL4  $$CLESSR^FBUTL4A  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Fee Basis 15 FBAACO3  FBAAEPI  FBAAFA  FBAAMP1  FBAAPET  FBAAPP0  FBCHEP1  FBCHFA  
FBCHPET  FBCHRR  FBFHLD3  FBFHLD5  FBFHLD9  FBNHEDPA  FBRXFA  

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

    External References

    Name Field # of Occurrence
    ^DIC ASKADJ+95
    ^DIR ASKADJ+33, ASKADJ+46, ASKADJ+105
    $$RR^FBUTL4 ASKADJ+72
    $$CLESSR^FBUTL4A EXIT+2

    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
    Routine Call
    • DIC
    • Line Location:
      • ASKADJ+95
    Routine Call
    • DIR
    • Line Location:
      • ASKADJ+33
      • ASKADJ+46
      • ASKADJ+105

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FB(161.91 - [#161.91] ASKADJ+5, ASKADJ+13, ASKADJ+25, ASKADJ+45, ASKADJ+85, ASKADJ+86, ASKADJ+87, ADJL+31
    ^FB(161.92 - [#161.92] ASKADJ+15, ASKADJ+82, ASKADJ+83, ASKADJ+88, ASKADJ+89, ASKADJ+93, ADJL+32
    ^FB(161.93 - [#161.93] ASKADJ+79, ASKADJ+80, ASKADJ+81

    Label References

    Name Line Occurrences
    ASKADJ ASKADJ+36, VAL+10
    DEL ASKADJ+48, ASKADJ+96, ASKADJ+105
    EXIT DBG+10, ASKADJ+26, ASKADJ+36
    VAL XEXIT+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> AGI ASKADJ+80*, ASKADJ+81, ASKADJ+86*, ASKADJ+87
    CLESSR ADJ~, EXIT+2
    DIC ASKADJ+92*, ASKADJ+98!
    DIC("A" ASKADJ+92*
    DIC("B" ASKADJ+93*
    DIC("S" ASKADJ+94*
    DIC(0 ASKADJ+92*
    DIR DBG+2~, ASKADJ+33!, ASKADJ+46!, ASKADJ+105!
    DIR("?" ASKADJ+30*, ASKADJ+31*, ASKADJ+32*
    DIR("A" ASKADJ+28*
    DIR("B" ASKADJ+45*, ASKADJ+104*
    DIR("S" ASKADJ+29*
    DIR(0 ASKADJ+27*, ASKADJ+44*, ASKADJ+101*
    DIRUT DBG+2~, ASKADJ+43, ASKADJ+105
    DT DBG+5
    DTOUT DBG+2~, ASKADJ+26, ASKADJ+46, ASKADJ+96
    DUOUT DBG+2~, ASKADJ+26, ASKADJ+46, ASKADJ+96
    FBADJ ADJ~, DBG+8!, DBG+13*, DBG+15, EXIT+2, XEXIT+4!, ADJL~
    FBADJ( DBG+15, DBG+17, ASKADJ+11, ASKADJ+13, ASKADJ+15, ASKADJ+17, ASKADJ+24, ASKADJ+39, ASKADJ+40, ASKADJ+54
    ASKADJ+55, ASKADJ+58*, ASKADJ+67*, ASKADJ+93, ASKADJ+97*, ASKADJ+104, ASKADJ+106, ASKADJ+107*, DEL+1, DEL+3!
    , ADJL+25, ADJL+27, ADJL+28, ADJL+29
    FBADJ(" " ASKADJ+66
    FBADJ(0 ASKADJ+10, ASKADJ+23
    FBADJ(1 ASKADJ+4, ASKADJ+5
    FBADJA ADJL+20~, ADJL+29*, ADJL+33
    FBADJAE ADJL+20~, ADJL+33*, ADJL+35
    FBADJD ADJ~, DBG+13
    FBADJG ADJL+20~, ADJL+28*, ADJL+32
    FBADJGE ADJL+20~, ADJL+32*, ADJL+35
    FBADJL ADJLR~, ADJLR+10, ADJLA~, ADJLA+10
    FBADJR DBG+1~, ASKADJ+22~, ASKADJ+24*, ASKADJ+25, ASKADJ+37*, ASKADJ+40, ASKADJ+43, ASKADJ+45, ASKADJ+49*, ASKADJ+51*
    ASKADJ+52, ASKADJ+54, ASKADJ+55*, ASKADJ+56, ASKADJ+58, ASKADJ+61, ASKADJ+63*, ASKADJ+67, ASKADJ+72, ASKADJ+76
    ASKADJ+77, ASKADJ+78, ASKADJ+85, ASKADJ+86, ASKADJ+87, DEL+3, DEL+4*, ADJL+27*, ADJL+31
    FBADJRE ADJL+20~, ADJL+31*, ADJL+35, ADJLR+7~, ADJLR+10*, ADJLA+7~, ADJLA+10*
    FBADJS ADJL+21~
    FBADJS( ADJL+35*, ADJL+38, ADJL+39
    FBARJR ADJL+20~
    FBCAS DBG+1~, DBG+14*, DBG+17*, ASKADJ+36, ASKADJ+104, ASKADJ+106*, VAL+2, VAL+4, VAL+5, XEXIT+3
    , DEL+1*
    FBCNT DBG+1~, DBG+14*, DBG+16*, ASKADJ+8, ASKADJ+21, ASKADJ+36, ASKADJ+62, ASKADJ+67*, VAL+7, DEL+2*
    FBCORES DBG+2~, ASKADJ+3*, ASKADJ+5*
    FBDT ADJ~, DBG+5*, ASKADJ+72
    FBEDIT DBG+1~, ASKADJ+39*, ASKADJ+40*, ASKADJ+41, ASKADJ+43, ASKADJ+48, ASKADJ+55, ASKADJ+58, ASKADJ+61, ASKADJ+66*
    ASKADJ+67, ASKADJ+93, ASKADJ+96, ASKADJ+97, ASKADJ+104, ASKADJ+105, ASKADJ+106, ASKADJ+107
    FBERR DBG+1~, VAL+1*, VAL+3*, VAL+8*, VAL+10
    FBI DBG+1~, DBG+15*, DBG+17, ASKADJ+11*, ASKADJ+13, ASKADJ+15, ASKADJ+17, ASKADJ+22~, ASKADJ+23*, ASKADJ+24
    ASKADJ+39*, ASKADJ+40, ASKADJ+54*, ASKADJ+55, DEL~, DEL+1, DEL+3, ADJL+21~, ADJL+25*, ADJL+27
    , ADJL+28, ADJL+29, ADJL+35, ADJL+38*, ADJL+39, ADJLR+8~, ADJLR+10*, ADJLA+8~, ADJLA+10*
    FBMAX ADJ~, DBG+4*, ASKADJ+8, ASKADJ+21, ASKADJ+36, ASKADJ+46, ASKADJ+62, ASKADJ+64, VAL+7, VAL+9
    EXIT+2
    FBNEW DBG+1~, ASKADJ+41*, ASKADJ+96, ASKADJ+105
    FBNOOUT ADJ~, DBG+6*, XEXIT+3
    FBRET DBG+1~, DBG+3*, ASKADJ+26*, ASKADJ+36, ASKADJ+46*, XEXIT+3*, XEXIT+4, XEXIT+6, ADJL+19~, ADJL+22*
    , ADJL+39*, ADJL+41*, ADJL+43, ADJLR+7~, ADJLR+9*, ADJLR+10*, ADJLR+12*, ADJLR+14, ADJLA+7~, ADJLA+9*
    , ADJLA+10*, ADJLA+12*, ADJLA+14
    FBRRMK ADJ~, ASKADJ+71, ASKADJ+72, EXIT+2
    FBRRMK( ASKADJ+52!, ASKADJ+76, ASKADJ+77, ASKADJ+78, DEL+3!
    FBRRMKD DBG+1~, ASKADJ+71*, ASKADJ+72
    FBTAS ADJ~, DBG+7*, DBG+10, ASKADJ+36, ASKADJ+104, VAL+2, VAL+4, VAL+6, XEXIT+3
    FBXX DBG+2~, ASKADJ+72*, EXIT+2*
    >> GCD ASKADJ+83*, ASKADJ+84, ASKADJ+89*, ASKADJ+90
    >> GIEN ASKADJ+81*, ASKADJ+82, ASKADJ+83, ASKADJ+87*, ASKADJ+88, ASKADJ+89
    >> GRPS ASKADJ+75*, ASKADJ+84*, ASKADJ+85, ASKADJ+90*
    >> I ASKADJ+77*, ASKADJ+78
    >> RRIEN ASKADJ+78*, ASKADJ+79, ASKADJ+80, ASKADJ+81
    U DBG+17, ASKADJ+5, ASKADJ+13, ASKADJ+15, ASKADJ+17, ASKADJ+24, ASKADJ+25, ASKADJ+40, ASKADJ+45, ASKADJ+55
    ASKADJ+58, ASKADJ+67, ASKADJ+81, ASKADJ+83, ASKADJ+87, ASKADJ+89, ASKADJ+93, ASKADJ+97, ASKADJ+104, ASKADJ+106
    ASKADJ+107, DEL+1, ADJL+27, ADJL+28, ADJL+29, ADJL+31, ADJL+32, ADJL+35, ADJLR+10, ADJLA+10
    X DBG+2~, ASKADJ+47
    Y DBG+2~, ASKADJ+25*, ASKADJ+36, ASKADJ+37, ASKADJ+51, ASKADJ+52, ASKADJ+96, ASKADJ+97, ASKADJ+106, ASKADJ+107
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All