Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
    INSQ
    PRE(DFN,IBINDT) ; -- is pre-certification required for patient
    PREQ
    UR(DFN,IBINDT) ; -- is ur required for patient
    URQ
    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
    CHKQ
    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
    ACTIVEQ
    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
    DDQ
    ALLACT ; -- return active insurance zeroth nodes in ibdd(ins co,entry in mult)
    ALLACTQ
    HDR
    D1
    ALL(DFN,VAR,ACT,ADT,SOP) ; -- find all insurance data on a patient
  • ICR #10145
    • Status: Retired
    • Usage: Supported
    ALLQ
    ALLWNR(DFN,VAR,ADT) ; Returns 'all active and MEDICARE WNR'
    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
    INDEM(X) ; -- is this an indemnity plan
    ; -- input zeroth node if insurance type field
    INDEMQ
    INSTYP(DFN,DATE) ; -- return type of insurance policy for patient
  • ICR #10145
    • Status: Retired
    • Usage: Supported
    INSTYPQ
    COB(POL) ; -- find policy with high coordination of benefits

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call