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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBAAFS

Package: Fee Basis

Routine: FBAAFS


Information

FBAAFS ;WCIOFO/dmk,SAB-OUTPATIENT FEE SCHEDULE ; 10/31/12 3:04pm

Source Information

Source file <FBAAFS.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Fee Basis 6 POS^FBAACO1  $$GET^FBAAFS  $$PRCTL^FBAAFSF  ($$LASTCY,$$RBRVS,ZIP)^FBAAFSR  CPTM^FBAALU  $$MODL^FBAAUTL4  
VA FileMan 3 $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
CPT HCPCS Codes 2 $$CAT^ICPTAPIU  $$CPT^ICPTCOD  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Fee Basis 8 FBAA FEE SCHEDULE RATE  FBAACO  FBAACO0  FBAACO3  FBAAFS  FBAAFSF  FBAAFSR  FBAAMP  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP ; Entry point for option to get fee schedule amount
; without having to enter in a payment
LOOKUPX ; exit for lookup
GET(CPT,MODL,DOS,ZIP,FAC,TIME,FB1725) ; call to calculate Fee Schedule amount
; Input
; CPT - CPT/HCPCS code, external value, required
; MODL - list of optional CPT/HCPCS modifiers, external values
; delimited by commas
; DOS - date of service, fileman format, required
; ZIP - zip code, 5 digit, required
; FAC - facility flag, 0 or 1, required
; indicates if procedure was performed in facility (1)
; or non-facility (0)
; TIME - anesthesia time (minutes), reserved for future use
; FB1725 - Boolean, if Mill-Bill (1), or not Mill-Bill (0)
; Returns string
; dollar amount^schedule used^schedule year (only when RBRVS)
  • ICR #5087
    • Status: Active
    • Usage: Controlled Subscription
    ERR(MSG) ; add error message to array
    DERR ; display error messages
    ASKZIP(FBVEN,FBDOS) ;called from payment routines to ask user the
    ASKZIP1 ;
    ASKTIME ;called to ask time in minutes if the service provided
    ANES(CPT) ; call to determine if the CPT code has a major category
  • ICR #5087
    • Status: Active
    • Usage: Controlled Subscription
    FAC(POS) ; call to determine if the place of service is a facility
    ; Input
    ; POS - place of service, internal, pointer to #353.1
    ; Returns 0 or 1 or null
    ; = 0 if place of service is non-facility setting
    ; = 1 if place of service is facility setting
    ; = null value if type of setting could not be determined
  • ICR #5087
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    $$EXTERNAL^DILFD LOOKUP+38
    $$GET1^DIQ FAC+9
    ^DIR LOOKUP+8, LOOKUP+18, ASKZIP1+7, ASKZIP1+25, ASKTIME+5
    POS^FBAACO1 LOOKUP+29
    $$GET^FBAAFS LOOKUP+34
    $$PRCTL^FBAAFSF GET+40
    $$LASTCY^FBAAFSR ASKZIP1+14
    $$RBRVS^FBAAFSR GET+32
    ZIP^FBAAFSR ASKZIP1+15
    CPTM^FBAALU LOOKUP+12
    $$MODL^FBAAUTL4 LOOKUP+14
    $$CAT^ICPTAPIU ANES+8
    $$CPT^ICPTCOD ANES+7
    $$FMTE^XLFDT LOOKUP+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LOOKUP+3
    Function Call: WRITE
    • Prompt: !,"Note: Date is prior to VA implementation of RBRVS fee schedule (9/1/99).",!
    • Line Location: LOOKUP+10
    Function Call: WRITE
    • Prompt: $C(7),!,"Error: Can't determine if facility or non-facility setting"
    • Line Location: LOOKUP+31
    Function Call: WRITE
    • Prompt: !?5,"Amount to Pay: $ ",$P(FBRSLT,U)," from the "
    • Line Location: LOOKUP+36
    Function Call: WRITE
    • Prompt: !?5,"Unable to determine a FEE schedule amount.",!
    • Line Location: LOOKUP+40
    Function Call: WRITE
    • Prompt: !,FBERR(FBI)
    • Line Location: DERR+2
    Function Call: WRITE
    • Prompt: $C(7),!,"Warning: ",FBCY," GPCIs are not on file for this zip code."
    • Line Location: ASKZIP1+17
    Function Call: WRITE
    • Prompt: !,$C(7),"Time entry is required!",!
    • Line Location: ASKTIME+8
    Routine Call
    • DIR
    • Line Location:
      • LOOKUP+8
      • LOOKUP+18
      • ASKZIP1+7
      • ASKZIP1+25
      • ASKTIME+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    162.03 EXTERNAL^DILFD
    ^IBE(353.1 - [#353.1] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAAV - [#161.2] ASKZIP1+5

    Label References

    Name Line Occurrences
    $$FAC LOOKUP+30
    ASKTIME ASKTIME+7
    ASKZIP LOOKUP+22
    ASKZIP1 ASKZIP1+11
    DERR LOOKUP+41
    ERR GET+27, GET+28
    LOOKUP LOOKUP+43
    LOOKUPX LOOKUP+8, LOOKUP+12, LOOKUP+18, LOOKUP+22, LOOKUP+29, LOOKUP+31

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CODE FAC+7~, FAC+8*, FAC+9*, FAC+14, FAC+15
    CPT GET~, GET+19*, GET+27, GET+32, GET+40, ANES~, ANES+6*, ANES+7
    DIR LOOKUP+8!, LOOKUP+18!, LOOKUPX+1!, ASKZIP+10~, ASKZIP1+7!, ASKZIP1+25!, ASKTIME+5!
    DIR("?" ASKZIP1+20*, ASKZIP1+21*, ASKZIP1+22*, ASKZIP1+23*, ASKZIP1+24*
    DIR("A" LOOKUP+6*, LOOKUP+17*, ASKZIP1+18*
    DIR("B" LOOKUP+7*, ASKZIP1+6*, ASKZIP1+19*
    DIR(0 LOOKUP+6*, LOOKUP+17*, ASKZIP1+2*, ASKZIP1+18*, ASKTIME+5*
    DIROUT LOOKUPX+1!
    DIRUT LOOKUP+8, LOOKUPX+1!, ASKZIP+10~, ASKZIP1+7
    DOS GET~, GET+20*, GET+28, GET+32, GET+40
    DT LOOKUP+7
    DTOUT LOOKUP+18, LOOKUPX+1!, ASKZIP+10~, ASKTIME+5
    DUOUT LOOKUP+18, LOOKUPX+1!, ASKZIP+10~, ASKTIME+5
    FAC GET~, GET+22*, GET+32
    FB1725 GET~, GET+24*, GET+39
    FBAACP LOOKUPX+2!
    FBAAOUT LOOKUPX+2!, ASKZIP1+7*, ASKTIME+5*
    FBAMT GET+15~, GET+17*, GET+33*, GET+39, GET+40*, GET+41, GET+46
    FBCAT ANES+5~, ANES+7*, ANES+8
    FBCPT LOOKUP+13*, LOOKUP+34, LOOKUPX+2!
    FBCY ASKZIP+11~, ASKZIP1+12*, ASKZIP1+14*, ASKZIP1+15, ASKZIP1+17
    FBDATE LOOKUP+7, LOOKUP+9*, LOOKUP+10, LOOKUP+12, LOOKUP+22, LOOKUP+34, LOOKUPX+2!
    FBDOS ASKZIP~, ASKZIP1+11, ASKZIP1+12
    FBERR LOOKUP+41, LOOKUPX+2!, GET+15~, GET+18!, GET+31, GET+34!, GET+39, GET+42!, GET+45!, ERR+1*
    , ERR+2
    FBERR( ERR+2*, DERR+2
    FBFAC LOOKUP+30*, LOOKUP+31, LOOKUP+34, LOOKUPX+2!
    FBGOT LOOKUP+12, LOOKUPX+2!
    FBGPCIY0 ASKZIP+11~, ASKZIP1+16
    >> FBHCFA(30 LOOKUP+29, LOOKUP+30
    FBI DERR+1~, DERR+2*
    FBMCAT ANES+5~, ANES+8*, ANES+9
    FBMOD LOOKUPX+2!
    FBMODLE LOOKUP+14*, LOOKUP+34, LOOKUPX+2!
    FBMODS LOOKUPX+2!
    FBRSLT LOOKUP+34*, LOOKUP+35, LOOKUP+36, LOOKUP+37, LOOKUP+38, LOOKUP+39, LOOKUPX+3!
    FBSCH GET+15~, GET+17*, GET+33*, GET+41*, GET+46
    FBSCHYR GET+15~, GET+17*, GET+33*, GET+41*, GET+46
    >> FBTIME ASKTIME+4*, ASKTIME+6*, ASKTIME+7
    FBVEN LOOKUP+19*, LOOKUP+22, LOOKUPX+3!, ASKZIP~, ASKZIP1+4, ASKZIP1+5
    FBX LOOKUP+13, LOOKUPX+3!, GET+32*, GET+33
    FBZIP LOOKUP+22, LOOKUP+34, LOOKUPX+3!, ASKZIP1+1*, ASKZIP1+8*, ASKZIP1+15
    >> FCODE FAC+11*, FAC+14
    MODL GET~, GET+32, GET+40
    MSG ERR~, ERR+2
    >> NFCODE FAC+13*, FAC+15
    POS FAC~, FAC+9
    RET FAC+7~, FAC+8*, FAC+14*, FAC+15*, FAC+16
    TIME GET~, GET+23*, GET+32
    U LOOKUP+19, LOOKUP+35, LOOKUP+36, LOOKUP+37, LOOKUP+38, LOOKUP+39, GET+33, GET+46, ASKZIP1+5, ANES+7
    , ANES+8, FAC+14, FAC+15
    X LOOKUPX+1!, ASKZIP+10~, ASKZIP1+5*, ASKZIP1+6
    Y LOOKUP+9, LOOKUP+19, LOOKUPX+1!, ASKZIP+10~, ASKZIP1+8, ASKZIP1+11, ASKZIP1+16*, ASKTIME+6
    ZIP GET~, GET+21*, GET+32
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All