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

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IB OUTPUT FULL INQ BY BILL NO  IB PATIENT BILLING INQUIRY  IBOLK1  

Entry Points

Name Comments DBIA/ICR reference
END1
ENB ; -entry point for AR to print brief profile for IB actions for
  • ICR #126
    • Status: Active
    • Usage: Private
    EN ; -Entry to display IB Action data for an AR Bill number
  • ICR #6753
    • Status: Active
    • Usage: Private
    END
    HDR
    ENF ; -entry point for AR to print full profile for IB actions for
  • ICR #126
    • Status: Active
    • Usage: Private
    HDR1
    BRIEF
    DEV
    ENQ
    PAUSE
    LINE ; -find data for one line, write line, accumulate totals
    TOTAL

    External References

    Name Field # of Occurrence
    COMMA^%DTC LINE+8, TOTAL
    NOW^%DTC EN+6
    ^%ZIS DEV
    HOME^%ZIS DEV+1
    ^%ZISC END+5
    ^%ZTLOAD DEV+1
    ^DIC %+4
    DT^DIQ LINE+5
    ^DIR PAUSE+2
    DISP^IBARXEU HDR1+2
    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+9
    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: !
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: LINE+3
    Function Call: WRITE
    • Prompt: ?69,X
    • Line Location: LINE+8
    Function Call: WRITE
    • Prompt: !,?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,$P(IBND,"^",10),0)):$P(^(0),"^"),1:"UNKNOWN")
    • Line Location: LINE+10
    Function Call: WRITE
    • Prompt: @IOF,*13
    • Line Location: HDR1+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR1+2
    Function Call: WRITE
    • Prompt: !,IBLINE
    • Line Location: HDR1+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+1
    Routine Call
    • DIC
    • Line Location:
      • %+4
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+2
    Routine Call
    • %ZIS
    • Line Location:
      • DEV

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    % %+6, DEV+1, DEV+10, DEV+11
    BRIEF BRIEF+1
    EN DEV+10
    END DEV, ENQ
    END1 %+4, 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+10
    ^(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+2, END+4!
    DIC %+4*!
    DIC("A" %+4*
    DIC(0 %+4*
    DIR PAUSE+2!
    DIR(0 PAUSE+2*
    DIRUT PAUSE+2!
    DN END+4!, ENB+7!
    DT HDR1+2
    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+7*, LINE+8, LINE+9, END+4!, ENB+7!
    IBFULL BRIEF+7*, EN+9, LINE+3, HDR1+3, END1!, ENF+4*, ENB+4*, ENB+7!
    IBHDT EN+6*, HDR1+1, END+4!
    IBI EN+8*, END+4!
    IBIFN %+5*, %+6, BRIEF+8, DEV+3, DEV+5, DEV+10, END+4!
    IBIL %+4*, %+5, %+6, EN+5, EN+8, HDR1+1, END+4!
    IBJ PAUSE+1*, END+4!
    IBLINE HDR1+4*!, END+4!
    IBN EN+5*, EN+8*, LINE+2, HDR, END+4!, ENB+6*, ENB+7!
    IBNAME HDR*, HDR1+1, END+4!
    IBND LINE+2*, LINE+3, LINE+4, LINE+6, LINE+7, LINE+10, HDR*, END+4!, ENB+7!
    IBND1 LINE+2*, LINE+5, END+4!, ENB+7!
    IBPAG EN+6*, HDR1*, HDR1+1, 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+7, LINE+10, END+4!, ENB+7!
    IBTOTL EN+6*, LINE+9*, TOTAL, END+4!, ENB+4*, ENB+7!
    IBTRAN LINE+1, ENB+5*, ENB+6, ENB+7!
    IBTYP LINE+4*, LINE+6, END+4!, ENB+7!
    IO DEV+7
    IO("Q" DEV+1!
    IOF HDR1
    IOM HDR1+4
    IOSL LINE+1, PAUSE+1
    IOST HDR1, PAUSE
    >> POP DEV
    VA END+4!
    VADM END+4!
    VAERR END+4!
    X BRIEF*, BRIEF+1, BRIEF+7, LINE+3*, LINE+8*, TOTAL*, TOTAL+1, END+4!, ENB+5, ENB+7!
    >> X1 LINE+3*
    X2 LINE+3*, LINE+8*, TOTAL*, END+4!, ENB+7!
    X3 LINE+8*, TOTAL*, END+4!, ENB+7!
    Y %+4, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All