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 |  FileMan Files Accessed Via FileMan Db Call
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>

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: Retired
    • 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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.7 - [#161.7] Classic Fileman Calls
    ^FBAAI - [#162.5] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call