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

Package: Fee Basis

Routine: FBAAUTL4


Information

FBAAUTL4 ;AISC/CMR,dmk,WCIOFO/SAB-UTILITY ROUTINE ; 8/21/12 3:39pm

Source Information

Source file <FBAAUTL4.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA FileMan 2 MSG^DIALOG  (FILE,UPDATE)^DIE  
Fee Basis 1 $$PRCTL^FBAAFSF  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Fee Basis 35 FBAACCB  FBAACO  FBAACO0  FBAACO1  FBAACO3  FBAACO4  FBAACR  FBAAFS  
FBAALU  FBAAMP  FBAAMST  FBAAPAY  FBAAPCS  FBAAPET  FBAAPET1  FBAAPH  
FBAAPIN  FBAASLP  FBAAUTL  FBAAUTL7  FBAAV0  FBAAVLU  FBAAVP  FBAAVS  
FBCHPET  FBCKDIS  FBFHLD3  FBPAID2  FBPAY2  FBPCR2  FBPHON1  FBUCLET2  
^FBAA(161.7  ^FBAA(162.1  ^FBAAI  

Entry Points

Name Comments DBIA/ICR reference
CPT(X,Y,FBSRVDT) ;return external format of CPT code
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription
    MOD(X,Y,FBSRVDT) ;return external format of modifier
    CPTDATA(W,X,Y,Z) ;get internal value of CPT
    ; input
    ; W = IEN of PATIENT in file 162
    ; X = IEN of VENDOR multiple in file 162
    ; Y = IEN of INITIAL TREATMENT DATE multiple in file 162
    ; Z = IEN of SERVICE PROVIDED multiple in file 162
    ; returns
    ; value of SERVICE PROVIDED (internal)
    MODDATA(W,X,Y,Z) ;get internal values of CPT Modifier
    ; input
    ; W = IEN of PATIENT in file 162
    ; X = IEN of VENDOR multiple in file 162
    ; Y = IEN of INITIAL TREATMENT DATE multiple in file 162
    ; Z = IEN of SERVICE PROVIDED multiple in file 162
    ; output
    ; FBMODA( array of CPT MODIFIERs
    ; FBMODA(#)=CPT MODIFIER (internal value)
    ; where # is the IEN for an entry in the CPT MODIFIER multiple
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription
    APS(FBJ,FBK,FBL,FBM) ; amount paid symbol
    ; input
    ; FBJ = IEN of PATIENT in file 162
    ; FBK = IEN of VENDOR multiple in file 162
    ; FBL = IEN of INITIAL TREATMENT DATE multiple in file 162
    ; FBM = IEN of SERVICE PROVIDED multiple in file 162
    ; returns symbol
    ; where value is M (Mill Bill emergency care - 38 U.S.C. 1725)
    ; R (RBRVS fee schedule amount)
    ; F (VA fee schedule amount)
    ; C (contracted service amount)
    ; U (usual & customary - claimed)
    ; null if no amount paid
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription
    CHKBI(X,Y) ;called to determine if batch number or invoice number
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription
    MODL(FBAN,FBFLAG) ;return sorted list given array of modifiers
    ; Input
    ; FBAN - closed root of array containing modifiers
    ; the data must be in nodes descendent from this root.
    ; The subscripts of the nodes below FBAN must be
    ; positive numbers. The CPT MODIFIER internal value
    ; must be the first piece in these nodes or in the
    ; 0-node descendent from these nodes.
    ; i.e.
    ; ARRAY(number)=CPT MODIFIER (internal value)
    ; OR
    ; ARRAY(number,0)=CPT MODIFIER (internal value)
    ; FBFLAG - (optional) flag, E or I, default I
    ; I to return internal values of modifiers
    ; E to return external values of modifiers
    ; Returns string of sorted modifiers (e.g. "1,3,7")
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription
    REPMOD(FBJ,FBK,FBL,FBM) ; Replace CPT Modifier(s) in payment
    ; input
    ; FBJ = IEN of PATIENT in file 162
    ; FBK = IEN of VENDOR multiple in file 162
    ; FBL = IEN of INITIAL TREATMENT DATE multiple in file 162
    ; FBM = IEN of SERVICE PROVIDED multiple in file 162
    ; FBMODA( array of modifiers
    ; where FBMODA(number)=CPT Modifier (internal)
  • ICR #5091
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    MSG^DIALOG REPMOD+17, REPMOD+23
    FILE^DIE REPMOD+17
    UPDATE^DIE REPMOD+23
    $$PRCTL^FBAAFSF APS+30
    $$CPT^ICPTCOD CPT+7
    $$MOD^ICPTMOD MOD+7, MODL+31

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: =
    • Line Location: CPTDATA+2
    Function Call: WRITE
    • Prompt: =
    • Line Location: MODDATA+2
    Routine Call
    • DIALOG
    • Line Location:
      • REPMOD+17
      • REPMOD+23
    Routine Call
    • DIE
    • Line Location:
      • REPMOD+17
    Routine Call
    • DIE
    • Line Location:
      • REPMOD+23

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.7 - [#161.7] CHKBI+8
    ^FBAA(161.82 - [#161.82] APS+22
    ^FBAA(162.1 - [#162.1] CHKBI+9
    ^FBAAC - [#162] CPTDATA+10, MODDATA+13, MODDATA+14, APS+15, APS+16, APS+29, REPMOD+13, REPMOD+15
    ^FBAAC("C" CHKBI+9
    ^FBAAI("B" CHKBI+9

    Label References

    Name Line Occurrences
    $$CPT APS+27
    $$MODL APS+28

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    FBAN MODL~, MODL+22, MODL+25, MODL+27, MODL+28
    FBAP APS+13~, APS+17*, APS+18, APS+24, APS+30
    >> FBCPT APS+27*, APS+30
    >> FBDOS APS+29*, APS+30
    FBFDA REPMOD+9~, REPMOD+14!, REPMOD+21!
    FBFDA( REPMOD+16*, REPMOD+22*
    FBFLAG MODL~, MODL+19*, MODL+29
    FBI MODDATA+12~, MODDATA+13*, MODDATA+14, MODDATA+16, MODL+17~, MODL+25*, MODL+27, MODL+28, REPMOD+9~, REPMOD+14*
    , REPMOD+15*, REPMOD+16, REPMOD+21*, REPMOD+22
    FBIENS REPMOD+9~, REPMOD+10*, REPMOD+16, REPMOD+22
    FBJ APS~, APS+15, APS+16, APS+28, APS+29, REPMOD~, REPMOD+10, REPMOD+13, REPMOD+15
    FBK APS~, APS+15, APS+16, APS+28, APS+29, REPMOD~, REPMOD+10, REPMOD+13, REPMOD+15
    FBL APS~, APS+15, APS+16, APS+28, APS+29, REPMOD~, REPMOD+10, REPMOD+13, REPMOD+15
    FBM APS~, APS+15, APS+16, APS+28, REPMOD~, REPMOD+10, REPMOD+13, REPMOD+15
    FBMOD MODDATA+12~, MODDATA+14*, MODDATA+15, MODDATA+16
    FBMODA MODDATA+10!
    FBMODA( MODDATA+16*, REPMOD+21, REPMOD+22
    FBMODA(0 REPMOD+20
    >> FBMODL APS+28*, APS+30
    FBRET APS+13~, APS+14*, APS+22*, APS+24*, APS+26, APS+30*, APS+32*, APS+34*, APS+35, MODL+17~
    , MODL+18*, MODL+37*, MODL+40*, MODL+43
    FBSORT MODL+17~
    FBSORT( MODL+34*, MODL+37
    FBSRVDT CPT~, CPT+7, MOD~, MOD+7
    FBX MODL+17~, MODL+27*, MODL+28*, MODL+31*, MODL+32*, MODL+33*, MODL+34, MODL+37*
    FBY0 APS+13~, APS+15*, APS+17, APS+22, APS+27
    FBY2 APS+13~, APS+16*, APS+24, APS+26, APS+32
    FBZERO MODL+17~, MODL+22*, MODL+27
    U CPT+8, MOD+8, CPTDATA+10, MODDATA+14, APS+17, APS+22, APS+24, APS+26, APS+27, APS+29
    , APS+32, MODL+27, MODL+28, MODL+32
    W CPTDATA~, CPTDATA+9, CPTDATA+10, MODDATA~, MODDATA+11, MODDATA+13, MODDATA+14
    X CPT~, CPT+5, CPT+7, MOD~, MOD+5, MOD+7, CPTDATA~, CPTDATA+9, CPTDATA+10, MODDATA~
    , MODDATA+11, MODDATA+13, MODDATA+14, CHKBI~, CHKBI+7, CHKBI+8, CHKBI+9
    Y CPT~, CPT+8, MOD~, MOD+8, CPTDATA~, CPTDATA+9, CPTDATA+10, MODDATA~, MODDATA+11, MODDATA+13
    , MODDATA+14, CHKBI~, CHKBI+8, CHKBI+9
    Z CPT+6~, CPT+7*, CPT+8, MOD+6~, MOD+7*, MOD+8, CPTDATA~, CPTDATA+9, CPTDATA+10, MODDATA~
    , MODDATA+11, MODDATA+13, MODDATA+14
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All