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

Package: Integrated Billing

Routine: IBOLK


Information

IBOLK ;ALB/AAS - INTEGRATED BILLING - DISPLAY BY BILL NUMBER ;6-MAR-91

Source Information

Source file <IBOLK.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 5 DISP^IBARXEU  (Q,VIEW)^IBCNQ  $$PT^IBEFUNC  ^IBOLK1  $$DAT2^IBOUTL  
VA FileMan 4 (COMMA,NOW)^%DTC  ^DIC  DT^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

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
Accounts Receivable 4 PRCAATR  PRCAPRO  RCRCACP  RCRCAT1  
Integrated Billing 3 IB OUTPUT FULL INQ BY BILL NO  IB PATIENT BILLING INQUIRY  IBOLK1  
Outpatient Pharmacy 1 PSOCPF2  

Entry Points

Name Comments DBIA/ICR reference
BRIEF
DEV
EN ; -Entry to display IB Action data for an AR Bill number
; -Input IBIL = external form of bill number, ie 500-K10001
; IBFULL = 1 for full profile logic, 0 for brief description
  • ICR #6753
    • Status: Active
    • Usage: Private
    ENQ
    LINE ; -find data for one line, write line, accumulate totals
    HDR
    HDR1
    TOTAL
    PAUSE
    END1
    END
    ENF ; -entry point for AR to print full profile for IB actions for
    ; an ar transaction number.
    ; -input x = ar transaction number ($p(^ib(ibn,0),u,12)
  • ICR #126
    • Status: Active
    • Usage: Private
    ENB ; -entry point for AR to print brief profile for IB actions for
    ; an ar transaction number.
    ; -input x = ar transaction number
  • ICR #126
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    COMMA^%DTC LINE+14, TOTAL
    NOW^%DTC EN+6
    ^%ZIS DEV
    HOME^%ZIS DEV+1
    ^%ZISC END+5
    ^%ZTLOAD DEV+1
    ^DIC %+5
    DT^DIQ LINE+5
    ^DIR PAUSE+2
    DISP^IBARXEU HDR1+3
    Q^IBCNQ DEV+11
    VIEW^IBCNQ DEV+11
    $$PT^IBEFUNC HDR
    ^IBOLK1 EN+9
    $$DAT2^IBOUTL EN+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Billing has no Record of this Charge ID.",!
    • Line Location: IBOLK+13
    Function Call: READ
    • Formatting: !
    • Prompt: "(B)rief or (F)ull Inquiry: B// "
    • Variable: X
    • Timeout: DTIME
    • Line Location: BRIEF+0
    Function Call: WRITE
    • Prompt: !!?5,"Enter: '<CR>' - To select the Brief Inquiry."
    • Line Location: BRIEF+2
    Function Call: WRITE
    • Prompt: !?12,"'F' - To select the Full Inquiry. This option will"
    • Line Location: BRIEF+3
    Function Call: WRITE
    • Prompt: !?23,"include the Address Inquiry, and more detailed"
    • Line Location: BRIEF+4
    Function Call: WRITE
    • Prompt: !?23,"information for Pharmacy Co-Pay bills."
    • Line Location: BRIEF+5
    Function Call: WRITE
    • Prompt: !?12,"'^' - To quit this option.",!
    • Line Location: BRIEF+6
    Function Call: WRITE
    • Prompt: $S("Bb"[X:" BRIEF",1:" FULL")
    • Line Location: BRIEF+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: LINE+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: LINE+5
    Function Call: WRITE
    • Prompt: ?15,$E($P(IBTYP,"^"),1,20)
    • Line Location: LINE+8
    Function Call: WRITE
    • Prompt: ?37,$E($P(IBND,"^",8),1,20)
    • Line Location: LINE+10
    Function Call: WRITE
    • Prompt: ?60,$J($P(IBND,"^",6),5)
    • Line Location: LINE+12
    Function Call: WRITE
    • Prompt: ?69,X
    • Line Location: LINE+14
    Function Call: WRITE
    • Prompt: !,?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,$P(IBND,"^",10),0)):$P(^(0),"^"),1:"UNKNOWN")
    • Line Location: LINE+16
    Function Call: WRITE
    • Prompt: @IOF,*13
    • Line Location: HDR1+0
    Function Call: WRITE
    • Prompt: $E($P(IBNAME,"^"),1,20)," ",$P(IBNAME,"^",2),?36,IBIL,?51,IBHDT,?72,"PAGE: ",IBPAG
    • Line Location: HDR1+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR1+3
    Function Call: WRITE
    • Prompt: !,IBLINE
    • Line Location: HDR1+5
    Function Call: WRITE
    • Prompt: !?67,"------------"
    • Line Location: TOTAL+0
    Function Call: WRITE
    • Prompt: !,?67,X
    • Line Location: TOTAL+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: END+0
    Routine Call
    • DIC
    • Line Location:
      • %+5
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+2
    Routine Call
    • %ZIS
    • Line Location:
      • DEV
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCA(430 - [#430] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] %+8
    ^IB - [#350] EN+5, EN+8, LINE+2, HDR
    ^IB("ABIL" %+9, EN+5, EN+8
    ^IB("AT" ENB+6
    ^IBE(350.1 - [#350.1] LINE+3, LINE+4
    ^IBE(350.3 - [#350.3] LINE+16

    Label References

    Name Line Occurrences
    % %+9, DEV+1, DEV+10, DEV+11
    BRIEF BRIEF+1
    EN DEV+10
    END DEV, ENQ
    END1 %+5, BRIEF, DEV+11
    ENQ EN+5
    HDR EN+6
    HDR1 LINE+1
    LINE EN+8, ENB+6
    PAUSE EN+9, LINE+1
    TOTAL EN+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 LINE+16
    ^(1 LINE+2
    ^(30 LINE+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % EN+6
    >> %ZIS DEV*
    >> %ZIS("A" DEV*
    D0 END+4!, ENB+7!
    DFN HDR*, HDR1+3, END+4!
    DIC %+5*!
    DIC("A" %+5*
    DIC(0 %+5*
    DIR PAUSE+2!
    DIR(0 PAUSE+2*
    DIRUT PAUSE+2!
    DN END+4!, ENB+7!
    DPTNOFZY %+4~*
    DT HDR1+3
    DTIME BRIEF
    DTOUT PAUSE+2!, END+4!
    DUOUT PAUSE+2!, END+4!
    I DEV+5*, END+4!
    IB END+4!
    IBAC BRIEF+8*, END+4!
    IBCHRG LINE+13*, LINE+14, LINE+15, END+4!, ENB+7!
    IBFULL BRIEF+7*, EN+9, LINE+3, HDR1+4, END1!, ENF+4*, ENB+4*, ENB+7!
    IBHDT EN+6*, HDR1+2, END+4!
    IBI EN+8*, END+4!
    IBIFN %+8*, %+9, BRIEF+8, DEV+3, DEV+5, DEV+10, END+4!
    IBIL %+5*, %+8, %+9, EN+5, EN+8, HDR1+2, END+4!
    IBJ PAUSE+1*, END+4!
    IBLINE HDR1+5*!, END+4!
    IBN EN+5*, EN+8*, LINE+2, HDR, END+4!, ENB+6*, ENB+7!
    IBNAME HDR*, HDR1+2, END+4!
    IBND LINE+2*, LINE+3, LINE+4, LINE+10, LINE+12, LINE+13, LINE+16, HDR*, END+4!, ENB+7!
    IBND1 LINE+2*, LINE+5, END+4!, ENB+7!
    IBPAG EN+6*, HDR1*, HDR1+2, END+4!, ENB+4*, ENB+7!
    IBQUIT BRIEF+8*, EN+6*, EN+8, EN+9, LINE+1, PAUSE+2*, END+4!, ENB+4*, ENB+7!
    IBSEQNO LINE+4*, LINE+13, LINE+16, END+4!, ENB+7!
    IBTOTL EN+6*, LINE+15*, TOTAL, END+4!, ENB+4*, ENB+7!
    IBTRAN LINE+1, ENB+5*, ENB+6, ENB+7!
    IBTYP LINE+4*, LINE+7*, LINE+8, LINE+10, END+4!, ENB+7!
    IO DEV+7
    IO("Q" DEV+1!
    IOF HDR1
    IOM HDR1+5
    IOSL LINE+1, PAUSE+1
    IOST HDR1, PAUSE
    >> POP DEV
    U LINE+10
    VA END+4!
    VADM END+4!
    VAERR END+4!
    X BRIEF*, BRIEF+1, BRIEF+7, LINE+3*, LINE+14*, TOTAL*, TOTAL+1, END+4!, ENB+5, ENB+7!
    >> X1 LINE+3*
    X2 LINE+3*, LINE+14*, TOTAL*, END+4!, ENB+7!
    X3 LINE+14*, TOTAL*, END+4!, ENB+7!
    Y %+5, LINE+5*, END+4!, ENB+7!
    >> ZTDESC DEV+2*
    >> ZTQUEUED END+3
    >> ZTREQ END+3*
    >> ZTRTN DEV+3*
    >> ZTSAVE( DEV+5*
    >> ZTSAVE("IBFULL" DEV+4*
    >> ZTSAVE("IBIFN" DEV+4*
    >> ZTSAVE("IBIL" DEV+4*
    ZTSK END+4!
    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