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

Package: Integrated Billing

Routine: IBCSC61


Information

IBCSC61 ;ALB/MJB - MCCR SCREEN UTILITY ;20 JUN 88 10:58

Source Information

Source file <IBCSC61.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 $$DRG^IBACSV  $$FT^IBCEF  ZERO^IBRXUTL  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
VA FileMan 1 COMMA^%DTC  

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

Package Total Caller Graph
Integrated Billing 3 IBCRBC3  IBCRBH1  IBCSC6  

Entry Points

Name Comments DBIA/ICR reference
REV
CHARGE
OFFSET
NAME(TYPE,ITEM) ; if rx or pros or DRG or unassociated return name of the item
  • ICR #3807
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    COMMA^%DTC REV+7, REV+10, OFFSETOFFSET+2
    $$DRG^IBACSV NAME+8
    $$FT^IBCEF REV+10
    ZERO^IBRXUTL NAME+3
    $$CPT^ICPTCOD REV+3, REV+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?4,"Rev. Code",?16,": "
    • Line Location: REV+0
    Function Call: WRITE
    • Prompt: DGRCD,$J("",32-$L(DGRCD)),X
    • Line Location: REV+8
    Function Call: WRITE
    • Prompt: ?60," ",$E($P(^DGCR(399.1,$P(IBREVC(I),"^",5),0),"^"),1,16)
    • Line Location: REV+9
    Function Call: WRITE
    • Prompt: !,?50,X
    • Line Location: REV+10
    Function Call: WRITE
    • Prompt: ?64,"(Non-Covered)"
    • Line Location: REV+10
    Function Call: WRITE
    • Prompt: X
    • Line Location: OFFSET+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399.1 - [#399.1] REV+9
    ^DGCR(399.2 - [#399.2] REV+2
    ^IBA(362.4 - [#362.4] NAME+3, NAME+4
    ^IBA(362.5 - [#362.5] NAME+7
    ^IBA(363.21 - [#363.21] NAME+9
    ^TMP($J NAME+4, NAME+5!

    Label References

    Name Line Occurrences
    $$NAME REV+1
    CHARGE OFFSET+2

    Naked Globals

    Name Field # of Occurrence
    ^(0 REV+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DGRCD REV+2*, REV+3*, REV+4*, REV+5*, REV+6*, REV+8
    >> I REVREV+1, REV+2, REV+3, REV+4, REV+6, REV+7, REV+9, REV+10, CHARGE*
    >> IB("U1" CHARGE+1, OFFSET
    >> IBCH CHARGE*, CHARGE+1*, OFFSET+2
    >> IBIFN REV+10
    IBNAME REV+1~*, REV+2, NAME+1~*, NAME+4*, NAME+7*, NAME+8*, NAME+9*, NAME+10
    IBOFFC OFFSET*, OFFSET+1, OFFSET+3!
    >> IBREVC REV+4, REV+10*
    >> IBREVC( REV+1, REV+2, REV+3, REV+4, REV+6, REV+7, REV+9, REV+10, CHARGE
    >> IBU REV+7
    >> IBUCH CHARGE*
    ITEM NAME~, NAME+2, NAME+3, NAME+4, NAME+7, NAME+8, NAME+9
    TYPE NAME~, NAME+2, NAME+7, NAME+8, NAME+9
    U REV+1, REV+3, REV+4, REV+6, REV+10, CHARGEOFFSET, NAME+3, NAME+4, NAME+7
    , NAME+8, NAME+9
    >> X REV+7*, REV+8, REV+10*, CHARGE+1*, OFFSET*, OFFSET+1, OFFSET+2*
    >> X1 CHARGE+1*
    >> X2 REV+7*, REV+10*, OFFSET*, OFFSET+2*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All