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

Package: Integrated Billing

Routine: IBCNS1


Information

IBCNS1 ;ALB/AAS - INSURANCE MANAGEMENT SUPPORTED FUNCTIONS ;22-JULY-91

Source Information

Source file <IBCNS1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 3 $$GRP^IBCNS  $$MCRWNR^IBEFUNC  $$DAT1^IBOUTL  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 103

Package Total Caller Graph
Integrated Billing 96 IB20PT81  IB20PT88  IB20PT8A  IB20PT8B  IBACUS  IBAMTV3  IBATLM0  IBATLM3A  
IBATOP  IBBFAPI  IBCEF21  IBCEMMR  IBCEOB01  IBCNBAR  IBCNBLL  IBCNBLP1  
IBCNEDE2  IBCNEDE3  IBCNEDST  IBCNEQU  IBCNERTC  IBCNRDV  IBCNS  IBCNS2  
IBCNS3  IBCNSBL  IBCNSBL2  IBCNSC3  IBCNSJ  IBCNSM  IBCNSM2  IBCNSM31  
IBCNSM5  IBCNSMM  IBCNSMR7  IBCNSOK1  IBCNSP  IBCNSP2  IBCNSU3  IBCNSU31  
IBCOC1  IBCOIVM1  IBCOMA1  IBCOMC1  IBCONS1  IBCONS2  IBCOPP2  IBCSC3  
IBCU5  IBCU82  IBCVA0  IBFBNP1  IBFBWL2  IBFBWL5  IBJD1  IBJDF11  
IBJDF51  IBJDF61  IBJDI5  IBJDI6  IBJDI7  IBJDU1  IBJTEA  IBJTU31  
IBNCPDPU  IBNCPDS1  IBNCPNB  IBOHLD2  IBOHLS1  IBOVOP1  IBRFN2  IBRFN4  
IBT QUICK EDIT  IBTOAT1  IBTOBI1  IBTOSA  IBTOSUM  IBTOUA  IBTOUR1  IBTRC3  
IBTRC4  IBTRH2A  IBTRHDE  IBTRKR  IBTRKR0  IBTRKR2  IBTRKR3  IBTRKR41  
IBTRKR5  IBTRKRBA  IBTRKRBD  IBTRKRBR  IBTUBO3  IBTUBOA  IBTUTL  IBTUTL1  
Automated Information Collection System 2 IBDFN6  IBDFOSG1  
Registration 2 VAFHLFNC  VAFHLZPD  
DSS Extracts 1 ECXSETUP  
Health Summary 1 GMTSDEM2  
Order Entry Results Reporting 1 ORDV07  

Entry Points

Name Comments DBIA/ICR reference
HDR
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
CHKQ
URQ
INSQ
INSTYPQ
ALLWNR(DFN,VAR,ADT) ; Returns 'all active and MEDICARE WNR'
INDEMQ
UR(DFN,IBINDT) ; -- is ur required for patient
ALLQ
CHK(X,Z,Y) ; -- check one entry for active
; -- Input X = Zeroth node of entry in insurance multiple (2.312)
; Z = date to check
; Y = 2 if want will not reimburse
; = 3 if want will not reimburse AND indemnity plans
; = 4 if want will not reimburse, but only if it's
; MEDICARE
; -- Output 1 = Insurance Active
; 0 = Inactive
ACTIVE(IBCIFN) ; -- is this company active for this patient for this date
; -- called from input transform and x-refs for fields 101,102,103
; -- input
COB(POL) ; -- find policy with high coordination of benefits
INSURED(DFN,IBINDT) ; -- Is patient insured
; --Input DFN = patient
; IBINDT = (optional) date insured (default = today)
; -- Output = 0 - not insured
; = 1 - insured
  • ICR #10145
    • Status: Retired
    • Usage: Supported
    DDQ
    ACTIVEQ
    PRE(DFN,IBINDT) ; -- is pre-certification required for patient
    ZND(DFN,NODE,ZNDFILE) ; -- Pull zeroth node from Patient's Insurance Type
    ; subfile. This function returns the zeroth node of the Insurance Type
    ; subfile of the Patient file, i.e. ^DPT(DFN,.312,NODE,0). Both DFN
    ; and NODE must be passed in. Pieces 3 (Group Number) and 15 (Group
    ; Name) will be pulled from file# 355.3, Group Insurance Plan, based
    ; on the Group Plan field on the zeroth node (piece 18). If the
    ; ZNDFILE/399 flag is not set to '399', then the Subscriber ID and Name
    ; of Insured will be overwritten with the values in the new HIPAA-
    ; compliant fields, which are on the seven node.
    ZNDQ
    ALLACTQ
    ALL(DFN,VAR,ACT,ADT,SOP) ; -- find all insurance data on a patient
  • ICR #10145
    • Status: Retired
    • Usage: Supported
    INDEM(X) ; -- is this an indemnity plan
    ; -- input zeroth node if insurance type field
    PREQ
    ALLACT ; -- return active insurance zeroth nodes in ibdd(ins co,entry in mult)
    INSTYP(DFN,DATE) ; -- return type of insurance policy for patient
  • ICR #10145
    • Status: Retired
    • Usage: Supported
    D1

    External References

    Name Field # of Occurrence
    $$GET1^DIQ ALL+42, ZND+29, ZND+30, ZND+32, ZND+33
    $$GRP^IBCNS D1+3
    $$MCRWNR^IBEFUNC CHK+19, ALL+47
    $$DAT1^IBOUTL D1+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?4,"Insurance Co.",?22,"Policy #",?40,"Group",?52,"Holder",?60,"Effective",?70,"Expires"
    • Line Location: HDR+0
    Function Call: WRITE
    • Prompt: !?4,X
    • Line Location: HDR+0
    Function Call: WRITE
    • Prompt: !?4,$S($D(^DIC(36,+IBINS,0)):$E($P(^(0),"^",1),1,16),1:"UNKNOWN")
    • Line Location: D1+1
    Function Call: WRITE
    • Prompt: ?22,$E($P(IBINS,"^",2),1,16)
    • Line Location: D1+2
    Function Call: WRITE
    • Prompt: ?40,$E($$GRP^IBCNS($P(IBINS,"^",18)),1,10)
    • Line Location: D1+3
    Function Call: WRITE
    • Prompt: ?52,$S(X="v":"SELF",X="s":"SPOUSE",1:"OTHER")
    • Line Location: D1+4
    Function Call: WRITE
    • Prompt: ?60,$$DAT1^IBOUTL($P(IBINS,"^",8)),?70,$$DAT1^IBOUTL($P(IBINS,"^",4))
    • Line Location: D1+5

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] ACTIVE+4, DD+3
    ^DIC(36 - [#36] CHK+13, D1+1, INDEM+4
    ^DPT - [#2] INSURED+9, PRE+4, UR+4, ALLACT+3, ALL+29, ALL+30, ALL+33, ALL+34, ALL+35, ALL+36
    , ALL+37, ALL+38, ALL+39, ZND+21
    ^IBA(355.3 - [#355.3] PRE+4, UR+4, CHK+16, ALL+40, INDEM+5
    ^IBE(355.1 - [#355.1] INDEM+6, INSTYP+30

    Label References

    Name Line Occurrences
    $$CHK INSURED+9, PRE+4, UR+4, ALLACT+3, ALL+30
    $$COB INSTYP+28
    $$INDEM CHK+12
    $$ZND ALL+32
    ALL ALLWNR+1, INSTYP+25
    ALLACT DD+4
    CHKQ CHK+12, CHK+13, CHK+14, CHK+15, CHK+16, CHK+17, CHK+18, CHK+19
    INDEMQ INDEM+4, INDEM+6
    INSQ INSURED+7
    INSTYPQ INSTYP+23, INSTYP+26
    ZNDQ ZND+20, ZND+31

    Naked Globals

    Name Field # of Occurrence
    ^( INSURED+9, PRE+4, UR+4, ALLACT+3, ALL+29
    ^("U" ACTIVE+4, DD+3
    ^(0 D1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT ALL~, ALL+27, ALL+30
    ACTIVE ACTIVE+3~, ACTIVEQ
    ADT ALL~, ALL+27*, ALL+30, ALLWNR~, ALLWNR+1
    COB ALL+44~, ALL+45*, ALL+48*, ALL+49*, ALL+50, COB+1~, COB+5*, COB+6
    >> DA ACTIVE+4, DD+3
    DATE INSTYP~, INSTYP+24*, INSTYP+25
    DFN INSURED~, INSURED+7, INSURED+9, PRE~, PRE+4, UR~, UR+4, ACTIVE+3~, ACTIVE+4*, DD+3~*
    , ALLACT+3, ALL~, ALL+29, ALL+30, ALL+32, ALL+33, ALL+34, ALL+35, ALL+36, ALL+37
    , ALL+38, ALL+39, ALLWNR~, ALLWNR+1, ZND~, ZND+20, ZND+21, ZND+28, INSTYP~, INSTYP+23
    , INSTYP+25
    DT INSURED+8, PRE+3, UR+3, ACTIVE+4, DD+3, ALL+27, INSTYP+24
    I COB+1~, COB+4*, COB+5, COB+7, COB+8
    IBC COB+1~, COB+3*, COB+7*, COB+8*, COB+9
    IBCIFN ACTIVE~
    IBCOB COB+1~, COB+7*, COB+8*
    IBCPOL INSTYP+21~, INSTYP+27*, INSTYP+28*, INSTYP+30
    IBCTP INDEM+2~, INDEM+5*, INDEM+6
    >> IBDD ALLACT+2*
    >> IBDD( ALLACT+3*
    IBIENS ALL+26~, ALL+39*, ALL+40, ALL+42, ZND+18~, ZND+28*, ZND+29, ZND+30, ZND+31*, ZND+32
    , ZND+33
    IBINDEM INDEM+2~, INDEM+3*, INDEM+7*, INDEMQ
    IBINDT INSURED~, INSURED+8*, INSURED+9, PRE~, PRE+3*, PRE+4, UR~, UR+3*, UR+4, ACTIVE+3~
    , ACTIVE+4*, DD+3*, DDQ!, ALLACT+3
    IBINS INSURED+6~*, INSURED+9*, INSQ, D1, D1+1, D1+2, D1+3, D1+4, D1+5
    IBMRA ALL+26~, ALL+28*, ALL+48*, ALL+49, ALL+53
    IBPRE PRE+1~, PRE+2*, PRE+4*, PREQ, UR+1~
    IBSP ALL+26~, ALL+28*, ALL+46*, ALL+53
    >> IBUR UR+2*, UR+4*, URQ
    IOM HDR
    J INSURED+6~*, INSURED+9*, PRE+1~, PRE+2*, PRE+4*, UR+1~, UR+2*, UR+4*
    NODE ZND~, ZND+20, ZND+21, ZND+28
    POL INSTYP+21~, INSTYP+28, COB~
    POL( INSTYP+30, COB+4, COB+5
    POL(0 INSTYP+26, INSTYP+27, INSTYP+28
    SOP ALL~, ALL+43, ALL+53
    TYPE INSTYP+21~, INSTYP+22*, INSTYP+30*, INSTYP+31*, INSTYPQ
    U ALL+42, ALL+45, ALL+46, ALL+56, ZND+29, ZND+30, ZND+31, ZND+32, ZND+33
    VAR ALL~, ALL+31, ALL+32, ALL+33, ALL+34, ALL+35, ALL+36, ALL+37, ALL+38, ALL+40
    , ALL+42*, ALL+45, ALL+46, ALL+47, ALL+50, ALL+55, ALL+56, ALLWNR~, ALLWNR+1
    WHO ALL+44~, ALL+46*, ALL+49, COB+1~, COB+5*, COB+6
    X INSURED+6~, INSURED+9*, PRE+1~, PRE+4*, UR+1~, UR+4*, CHK~, CHK+12, CHK+13, CHK+14
    , CHK+15, CHK+16, CHK+19, ALLACT+1~, ALLACT+3*, HDR*, D1~, D1+4*, ALL+26~, ALL+27*
    , ALL+29*, ALL+30, ALL+32, ALL+33, ALL+34, ALL+35, ALL+36, ALL+37, ALL+38, ALL+39
    , ALL+40, ALL+42, ALL+45, ALL+46, ALL+47, ALL+50, ALL+55*, ALL+56*, ZND+18~, ZND+19*
    , ZND+21*, ZND+29*, ZND+30*, ZND+31, ZND+32*, ZND+33*, ZNDQ, INDEM~, INDEM+4, INDEM+5
    , COB+1~, COB+6*, COB+7, COB+8
    X1 CHK+10~, CHK+13*, CHK+17, CHK+18, CHK+19, ALLACT+1~, ALLACT+2*, ALLACT+3*
    Y PRE+1~, UR+1~, CHK~, CHK+11*, CHK+12, CHK+18, CHK+19
    Z CHK~, CHK+14, CHK+15
    Z1 CHK+10~, CHK+11*, CHK+20*, CHKQ
    ZNDFILE ZND~, ZND+27
    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