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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FBAASCB0

Package: Fee Basis

Routine: FBAASCB0


Information

FBAASCB0 ;AISC/DMK - POST 1358 FOR INPATIENT 7078'S ;4/2/2012

Source Information

Source file <FBAASCB0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 NOW^%DTC  FILE^DICN  ^DIE  
Fee Basis 2 ($$SSN,GETNXB)^FBAAUTL  $$NAME^FBCHREQ2  
IFCAP 2 EN3^PRCS58  ^PRCS58CC  

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

Package Total Caller Graph
Fee Basis 2 FBAARD3  FBAASCB  

Entry Points

Name Comments DBIA/ICR reference
KILL
GET78
INPOST ;PRCSX=INTERNAL DAILY REF #^INTERNAL DATE/TIME^AMT OF PAYMENT^COMMENTS^COMPLETE FLAG
INTER() ;get internal entry number from file 424
  • ICR #5444
    • Status: Pending
    • Usage: Controlled Subscription
    NEWBT ;open new batch for cnh line items unable to post to 1358
    RESETBT ;reset original batch total $ set new batch totals
    GETAP ; FB*3.5*116 build array of invoices in batch
    UC ; accumulate amount of unauthorized inpatient claims for later posting

    External References

    Name Field # of Occurrence
    NOW^%DTC INPOST+10
    FILE^DICN NEWBT+3
    ^DIE FBAASCB0+10
    $$SSN^FBAAUTL GET78+5, INPOST+12
    GETNXB^FBAAUTL NEWBT+1
    $$NAME^FBCHREQ2 GET78+5, INPOST+12
    EN3^PRCS58 INPOST+9
    ^PRCS58CC INPOST+12

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,*7,"No invoices found for this batch. Unable to release.",!
    • Line Location: FBAASCB0+4
    Function Call: WRITE
    • Prompt: !!,"Invoice #: "_FBII_" totals $0.00"
    • Line Location: FBAASCB0+15
    Function Call: WRITE
    • Prompt: $C(7),!!?2,"Batch cannot be released when zero dollar invoices exist."
    • Line Location: FBAASCB0+16
    Function Call: WRITE
    • Prompt: !?2,"Invoices must be corrected or removed from the batch."
    • Line Location: FBAASCB0+17
    Function Call: WRITE
    • Prompt: !,*7,"No associated 7078 for invoice ",FBII,". Unable to release batch.",!
    • Line Location: GET78+0
    Function Call: WRITE
    • Prompt: !!,$$NAME^FBCHREQ2(DFN)," ",$$SSN^FBAAUTL(DFN),!,*7,"Unable to locate reference number on 1358. Run Post Commitments for",!,"Obligation option."
    • Line Location: GET78+5
    Function Call: WRITE
    • Prompt: !,*7,"Unable to locate reference number on 1358.",!
    • Line Location: INPOST+8
    Function Call: WRITE
    • Prompt: !!,*7,"1358 not available for posting!",!
    • Line Location: INPOST+9
    Function Call: WRITE
    • Prompt: !!,$$NAME^FBCHREQ2(DFN)," (",$$SSN^FBAAUTL(DFN,1),")",!,*7,$P(Y,"^",2),!
    • Line Location: INPOST+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: NEWBT+1
    Function Call: WRITE
    • Prompt: !!,*7,"A new batch, number ",$P(^FBAA(161.7,FBBN,0),U),", was opened for invoices unable to post to 1358.",!,"Adjust 1358 and take action on new batch.",!
    • Line Location: RESETBT+3
    Routine Call
    • DIE
    • Line Location:
      • FBAASCB0+10

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.7 - [#161.7] Classic Fileman Calls
    ^FBAAI - [#162.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FB7078 - [#162.4] GET78, GET78+1
    ^FBAA(161.7 - [#161.7] RESETBT+1, RESETBT+2*, RESETBT+3
    ^FBAAI - [#162.5] FBAASCB0+6, FBAASCB0+8, FBAASCB0+11
    ^FBAAI("AC" FBAASCB0+4, FBAASCB0+6
    ^PRC(424 - [#424] INTER+4, INTER+5, INTER+6
    ^TMP($J FBAASCB0+3!, FBAASCB0+8!, FBAASCB0+9, KILL!, GET78+6*

    Label References

    Name Line Occurrences
    $$INTER GET78+4, GET78+5, INPOST+8, INPOST+11
    GET78 FBAASCB0+6, FBAASCB0+8
    GETAP FBAASCB0+6
    INPOST GET78+4
    KILL FBAASCB0+7
    NEWBT FBAASCB0+9
    RESETBT FBAASCB0+12
    UC FBAASCB0+6

    Naked Globals

    Name Field # of Occurrence
    ^( INTER+4, INTER+5, INTER+6
    ^(0 FBAASCB0+6, GET78+1, RESETBT+1*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % INPOST+11
    DA FBAASCB0+10*!
    DD NEWBT+3!
    >> DFN GET78+1*, GET78+5, INPOST+12, INTER+4, INTER+5
    DIC NEWBT+2*, NEWBT+3!
    DIC("DR" NEWBT+2*
    DIC(0 NEWBT+2*
    DIE FBAASCB0+10*!
    DLAYGO NEWBT+2*, NEWBT+3!
    DO NEWBT+3!
    DR FBAASCB0+10*!
    FBAAMT FBAASCB0+6*, FBAASCB0+8*, FBAASCB0+9*, FBAASCB0+11*, KILL!, INPOST+11, RESETBT+1, RESETBT+2, GETAP+2, UC+1
    >> FBAAOB INPOST+9
    >> FBAAON INTER+4, INTER+5
    >> FBAARA UC+1*
    FBBN KILL!, NEWBT+2, NEWBT+3*, RESETBT+1, RESETBT+3
    FBCNH KILL!, GET78+5, GET78+6, INTER+4, INTER+5, INTER+6, GETAP+1
    >> FBCOMM INPOST+11
    FBERR FBAASCB0+3!, FBAASCB0+4*, FBAASCB0+6, FBAASCB0+7*, FBAASCB0+8!, FBAASCB0+18*, GET78*, GET78+5*, GET78+6!, INPOST+8*
    , INPOST+9*, INPOST+12*
    FBI78 KILL!, GET78+1*, INTER+6
    FBII FBAASCB0+6*, FBAASCB0+8*, FBAASCB0+9*, FBAASCB0+10, FBAASCB0+11, FBAASCB0+15*, KILL!, GET78, GET78+6, GETAP+3
    FBII78 FBAASCB0+6*, FBAASCB0+8*, KILL!, GET78, GET78+1, INTER+4, INTER+5
    FBINTOT FBAASCB0+3*, FBAASCB0+7, FBAASCB0+9*, FBAASCB0+11*, KILL!, RESETBT+1, RESETBT+2
    >> FBINV FBAASCB0+14
    >> FBINV( FBAASCB0+15, GETAP+3*
    FBMM FBAASCB0+6*, FBAASCB0+8*, KILL!, INTER+5
    >> FBN FBAASCB0+4, FBAASCB0+6, RESETBT+2
    FBRJC FBAASCB0+3*, FBAASCB0+7, FBAASCB0+8*, FBAASCB0+9, FBAASCB0+12, KILL!, GET78+6*
    FBSTN KILL!, NEWBT+1*
    >> FZ FBAASCB0+3, GET78+1, NEWBT+1, RESETBT+2*
    >> PRCS("TYPE" INPOST+9*
    >> PRCS("X" INPOST+9*
    PRCSX KILL!, INPOST+11*
    U FBAASCB0+3, FBAASCB0+6, FBAASCB0+8, FBAASCB0+11, NEWBT+1, RESETBT+1, RESETBT+2, RESETBT+3
    X FBAASCB0+8*!, NEWBT+2*, RESETBT+1*!
    >> Y INPOST+9, INPOST+12, NEWBT+3
    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 |  Naked Globals |  Local Variables |  All