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

Package: Integrated Billing

Routine: IBCNS


Information

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

Source Information

Source file <IBCNS.m>

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)

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(355.3 - [#355.3] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call