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

Package: Integrated Billing

Routine: IBCNS


Information

IBCNS ;ALB/AAS - IS INSURANCE ACTIVE ; 22-JULY-91

Source Information

Source file <IBCNS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 4 $$BUFFER^IBCNBU1  ($$ZND,ALL)^IBCNS1  ($$PLCOV,RIDERS)^IBCNSU3  $$DAT1^IBOUTL  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Integrated Billing 25 IBCA  IBCNEQU  IBCNS1  IBCNS2  IBCNS3  IBCNSA  IBCNSBL1  IBCNSD  
IBCNSM  IBCNSM3  IBCNSM5  IBCNSMM  IBCNSP2  IBCSC3  IBCSCH  IBJDI41  
IBOEMP1  IBRUTL  IBTOAT1  IBTOBI1  IBTRC2  IBTRCD0  IBTRD  ^DGCR(399  
^IBA(355.7  

Entry Points

Name Comments DBIA/ICR reference
CHK ;
CHKQ ;
DD ; - called from input transform and x-refs for field 101,102,103
; - input requires da=internal entry number in 399
; - outputs IBdd(ins co.) array
; patch 80 - Companies that Will Not Reimburse should be included so they can be added to the bill
DDQ
DISP ; -Display all insurance company information
; -input DFN
  • ICR #10146
    • Status: Retired
    • Usage: Supported
    DISPDT ; Entrypoint if IBDTIN is to be used to display coverage
    DISPQ
    OLDISP ; -Display all insurance company information
    ; -input DFN
    OLDISPQ
    HDR ; -- print standard header
    HDR1(CHAR,LENG) ; -- print header, specify character
    D1 ; If IBDTIN is defined, this date is used for displaying insurance
    ; coverage if plan does not provide not full coverage for all categories
    GRP(IBCPOL) ; -- return group name/group policy
    ; input: IBCPOL = pointer to entry in 355.3
    ; output: group name or group number, if both group NUMBER
    ; if neither 'Individual PLAN'
  • ICR #10146
    • Status: Retired
    • Usage: Supported
    GRPQ ;
    D2EXT ; display Conditional Coverage Comments and Riders (DFN,IBINS,X required)

    External References

    Name Field # of Occurrence
    HOME^%ZIS DISPDT+1, OLDISP+3
    $$GET1^DIQ GRP+13, GRP+14, GRP+15
    $$BUFFER^IBCNBU1 DISPQ+1
    $$ZND^IBCNS1 %+3
    ALL^IBCNS1 DISPDT+3
    $$PLCOV^IBCNSU3 D1+15, D2EXT+3
    RIDERS^IBCNSU3 D2EXT+7
    $$DAT1^IBOUTL D1+11
    $$FMTE^XLFDT DISPQ

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !," No Insurance Information"
    • Line Location: DISPDT+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISPQ+0
    Function Call: WRITE
    • Prompt: !,?16,"*** Verification of No Coverage ",$$FMTE^XLFDT(X)," ***"
    • Line Location: DISPQ+0
    Function Call: WRITE
    • Prompt: !,?17,"*** Patient has Insurance Buffer entries ***"
    • Line Location: DISPQ+1
    Function Call: WRITE
    • Prompt: !," No Insurance Information"
    • Line Location: OLDISP+9
    Function Call: WRITE
    • Prompt: !?(1+OFF),X
    • Line Location: HDR1+4
    Function Call: WRITE
    • Prompt: !?(1+OFF),$S($D(^DIC(36,+IBINS,0)):$E($P(^(0),"^",1),1,10),1:"UNKNOWN")
    • Line Location: D1+4
    Function Call: WRITE
    • Prompt: ?(14+OFF),X
    • Line Location: D1+6
    Function Call: WRITE
    • Prompt: ?(17+OFF),$E($P(IBINS,"^",2),1,16)
    • Line Location: D1+7
    Function Call: WRITE
    • Prompt: ?(35+OFF),$E($$GRP($P(IBINS,"^",18)),1,10)
    • Line Location: D1+9
    Function Call: WRITE
    • Prompt: ?(47+OFF),$S(X="v":"SELF",X="s":"SPOUSE",1:"OTHER")
    • Line Location: D1+10
    Function Call: WRITE
    • Prompt: ?(55+OFF),$$DAT1^IBOUTL($P(IBINS,"^",8)),?(65+OFF+$S(OFF:1,1:0)),$$DAT1^IBOUTL($P(IBINS,"^",4))
    • Line Location: D1+11
    Function Call: WRITE
    • Prompt: ?74,"*WNR*"
    • Line Location: D1+13
    Function Call: WRITE
    • Prompt: ?74,X
    • Line Location: D1+17
    Function Call: WRITE
    • Prompt: !,?17,IBY,?47,ARR(IBX)
    • Line Location: D2EXT+5
    Function Call: WRITE
    • Prompt: !,?17,IBY,?35,ARR(IBX)
    • Line Location: D2EXT+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: D2EXT+9
    Routine Call
    • %ZIS
    • Line Location:
      • DISPDT+1
      • OLDISP+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(355.3 - [#355.3] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] DD+4
    ^DIC(36 - [#36] CHK+4, D1+4, D1+13
    ^DPT - [#2] %+3
    ^IBA(354 - [#354] DISPQ
    ^IBA(355.3 - [#355.3] CHK+7
    ^IBE(355.31 - [#355.31] D1+15, D2EXT+3

    Label References

    Name Line Occurrences
    $$GRP D1+9
    % DD+5
    CHK %+3
    CHKQ CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+9
    D1 DISPDT+8, OLDISP+11, OLDISP+12
    D2EXT DISPDT+8
    DISPQ DISPDT+6, OLDISP+9
    HDR DISPDT+5, OLDISP+8
    HDR1 HDR+1
    IBCNS OLDISP+5

    Naked Globals

    Name Field # of Occurrence
    ^("U" DD+4
    ^(0 CHK+4, D1+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARR D2EXT+1~, D2EXT+3, D2EXT+7!
    ARR( D2EXT+5, D2EXT+8
    CAT D1+2~, D1+14*, D1+15, D1+16, D2EXT+1~, D2EXT+2*, D2EXT+3, D2EXT+4
    CHAR HDR1~, HDR1+4
    >> DA DD+4
    DFN %+3, DD+4~*, DISPDT+1, DISPDT+3, DISPQ, DISPQ+1, OLDISP+3, D2EXT+7
    DT CHK+3, DD+4
    IBCDFN D2EXT+1~*, D2EXT+7
    >> IBCOVEXT DISPDT+8
    IBCPOL GRP~, GRP+13, GRP+14, GRP+15
    IBDD %!, OLDISP+9, OLDISPQ!
    IBDD( CHK+11*, CHKQ+2, OLDISP+11
    IBDDI %!, OLDISP+9, OLDISPQ!
    IBDDI( CHKQ+2*, OLDISP+12
    IBDTIN DISP+3~, OLDISP+7~, HDR+1, HDR1+2, D1+3, D1+15, D2EXT+3
    IBINDT CHK+3, DD+4*, DDQ!
    IBINS %*, CHK+11*, DISPDT+2~, DISPDT+6, DISPDT+8*, OLDISP+11*, OLDISP+12*, D1+2, D1+4, D1+5
    , D1+7, D1+9, D1+10, D1+11, D1+13, D1+15, D2EXT+3
    IBINS( DISPDT+8
    IBOUTP CHK+3, DD+4*, DDQ!, OLDISP+5*
    IBWNR CHK+9, DD+4~*
    IBX DISPDT+2~, OLDISPQ!, D2EXT+1~, D2EXT+5*, D2EXT+8*
    IBY D2EXT+1~, D2EXT+4*, D2EXT+5*, D2EXT+8*
    IBZ D2EXT+1~*, D2EXT+5*, D2EXT+8*, D2EXT+9
    IOF DISPDT+1, OLDISP+3
    IOM HDR+1
    J %~, %+3*
    LENG HDR1~, HDR1+4
    OFF HDR1+1~, HDR1+2*, HDR1+3, HDR1+4, D1+2~, D1+3*, D1+4, D1+6, D1+7, D1+9
    , D1+10, D1+11, D1+12
    U D1+5, D1+13
    X %~, %+3*, CHK+4, CHK+5, CHK+6, CHK+7, CHK+11, CHKQ+2, CHKQ+9!, DISPDT+2~
    , DISPDT+8*, DISPQ*, OLDISP+11*, OLDISP+12*, HDR1+4*, D1+2~, D1+5*, D1+6, D1+10*, D1+14*
    , D1+16*, D1+17*, D2EXT+1~
    X1 CHK+4*, CHK+8, CHK+9, CHKQ+9!
    Y CHKQ+9!, D1+2~, D1+15*, D1+16, GRP+12~, GRP+13*, GRP+14*, GRP+15*, GRPQ+1, D2EXT+1~
    , D2EXT+3*, D2EXT+5
    Z CHK+3*, CHK+5, CHK+6, CHKQ+9!, D1+2~, D1+16*
    Z1 CHK+3*, CHK+11, CHKQ+2, CHKQ+9!
    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