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

Package: Integrated Billing

Routine: IBNCPEV


Information

IBNCPEV ;DALOI/SS - NCPDP BILLING EVENTS REPORT ;5/22/08 14:27

Source Information

Source file <IBNCPEV.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 6 $$HPD^IBCNHUT1  $$REASON^IBNCPDPU  ($$CHECKDIV,$$DISPLDIV,$$DISPTITL,$$DRUGAPI,$$DRUGNAM,$$GETNOANS,$$GETRX,$$UNITDISP,DSTAT,REOPEN,SETVARS)^IBNCPEV1  $$RXWMC^IBNCPRR  $$RXAPI1^IBNCPUT1  $$DAT1^IBOUTL  
Kernel 1 ^%ZISC  
Outpatient Pharmacy 1 RX^PSO52API  
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: 4

Package Total Caller Graph
Integrated Billing 4 IB ECME BILLING EVENTS  IBNCPDPE  IBNCPDR5  IBNCPEV1  

Entry Points

Name Comments DBIA/ICR reference
RPT ;
START ;
SETTMP
PRINT ; scratch global exists and has data
; begin the report printing. Entry point into this routine from BPSVRX.
; DBIA #5712 defines this entry point for ECME.
  • ICR #5712
    • Status: Active
    • Usage: Private
    STAT(X,RES,CR,IBIFN) ;provides STATUS information
    DBILL ; BILL section
    ; input params IBD*, IBZ, IBINS*
    DREJ ; reject section
    DCLO ; close
    DSUB ; submit
    DREL ; release
    DREV ; reverse
    BCANC ; bill cancellation generated by auto-reversal (duplicate bill)
    CLRS ;
    HDR ;header
    ULINE(X) ;line
    CHKP ;Check for EOP
    DAT(X,Y)
    TIM(X)
    USR(X) ;
    PAT(DFN) ;
    BILL(BN) ;
    ARBILL(BN) ;
    DRUG(IBDFN,IBRX) ;
    EVNT(X) ;Translate codes
    BOCD(X) ;Basis of Cost Determination
    PAUSE ;
    SUBHDR ; display ECME#, Date of Service, and Release Date/Time (if it exists)
    ; used by many event displays
    DISPUSR ;
    RXNUM(IBRX) ;

    External References

    Name Field # of Occurrence
    ^%ZISC RPT+6
    $$GET1^DIQ START+25, PRINT+37, DBILL+30, DREJ+4, DSUB+9, DREV+10
    $$HPD^IBCNHUT1 DSUB+8, DREV+9
    $$REASON^IBNCPDPU CLRS+5
    $$CHECKDIV^IBNCPEV1 START+22
    $$DISPLDIV^IBNCPEV1 HDR+3
    $$DISPTITL^IBNCPEV1 HDR+2
    $$DRUGAPI^IBNCPEV1 DBILL+6
    $$DRUGNAM^IBNCPEV1 DRUG+8
    $$GETNOANS^IBNCPEV1 STAT+6
    $$GETRX^IBNCPEV1 START+13
    $$UNITDISP^IBNCPEV1 DBILL+11, DBILL+15
    DSTAT^IBNCPEV1 PRINT+47
    REOPEN^IBNCPEV1 PRINT+45
    SETVARS^IBNCPEV1 RPT+3
    $$RXWMC^IBNCPRR START+38
    $$RXAPI1^IBNCPUT1 RXNUM+1
    $$DAT1^IBOUTL DAT, TIM+1
    RX^PSO52API DRUG+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Cancelled"
    • Line Location: RPT+7
    Function Call: WRITE
    • Prompt: !!,"No data found for the specified date range and ECME #"
    • Line Location: START+13
    Function Call: WRITE
    • Prompt: !!,"No data found for the specified input criteria"
    • Line Location: SETTMP+2
    Function Call: WRITE
    • Prompt: !,"End of report, press RETURN to continue."
    • Line Location: PRINT+49
    Function Call: WRITE
    • Prompt: !?10,"ERROR: ",$P(IBZ,U,8)
    • Line Location: DBILL+3
    Function Call: WRITE
    • Prompt: !?10,"DRUG:",$$DRUGAPI^IBNCPEV1(+$P(IBD2,U,4),.01)
    • Line Location: DBILL+6
    Function Call: WRITE
    • Prompt: !?10,"NDC:",$S($P(IBD2,U,5):$P(IBD2,U,5),1:"No")
    • Line Location: DBILL+9
    Function Call: WRITE
    • Prompt: ", NCPDP QTY:",$S($P(IBD2,U,14):$P(IBD2,U,14),1:"No")
    • Line Location: DBILL+10
    Function Call: WRITE
    • Prompt: $$UNITDISP^IBNCPEV1($P(IBD2,U,14),$P(IBD2,U,15))
    • Line Location: DBILL+11
    Function Call: WRITE
    • Prompt: !?10,"BILLED QTY:",$S($P(IBD2,U,8):$P(IBD2,U,8),1:"No")
    • Line Location: DBILL+14
    Function Call: WRITE
    • Prompt: $$UNITDISP^IBNCPEV1($P(IBD2,U,8),$P(IBD2,U,13))
    • Line Location: DBILL+15
    Function Call: WRITE
    • Prompt: ", DAYS SUPPLY:",$S($P(IBD2,U,9):$P(IBD2,U,9),1:"No")
    • Line Location: DBILL+16
    Function Call: WRITE
    • Prompt: !,?10,"GROSS AMT DUE:",$J($P(IBD3,U,2),0,2),", "
    • Line Location: DBILL+18
    Function Call: WRITE
    • Prompt: "TOTAL AMT PAID:",$J($P(IBD3,U,5),0,2)
    • Line Location: DBILL+19
    Function Call: WRITE
    • Prompt: !?10,"INGREDIENT COST PAID:",$S($L($P(IBD3,U,12)):$J($P(IBD3,U,12),0,2),1:"No")
    • Line Location: DBILL+23
    Function Call: WRITE
    • Prompt: ", DISPENSING FEE PAID:",$S($L($P(IBD3,U,13)):$J($P(IBD3,U,13),0,2),1:"No")
    • Line Location: DBILL+24
    Function Call: WRITE
    • Prompt: !?10,"PATIENT RESP (INS):",$S($L($P(IBD3,U,14)):$FN(-$P(IBD3,U,14),"P",2),1:"No")
    • Line Location: DBILL+26
    Function Call: WRITE
    • Prompt: !?10,"PLAN:",$$GET1^DIQ(355.3,+$P(IBD3,U,3)_",",2.01),", INSURANCE: ",$$GET1^DIQ(355.3,+$P(IBD3,U,3)_",",.01)
    • Line Location: DBILL+30
    Function Call: WRITE
    • Prompt: !?10,"PLAN:",$$GET1^DIQ(355.3,+$P(IBD3,U,3)_",",2.01),", INSURANCE: ",$$GET1^DIQ(355.3,+$P(IBD3,U,3)_",",.01)
    • Line Location: DREJ+4
    Function Call: WRITE
    • Prompt: !?10,"PAYER RESPONSE: ",$P(IBD1,U,6)
    • Line Location: DSUB+4
    Function Call: WRITE
    • Prompt: !?10,"PAYER RESPONSE: ",$P(IBD1,U,6)
    • Line Location: DREV+5
    Function Call: WRITE
    • Prompt: !?10,"REVERSAL REASON:",$P(IBD1,U,7)
    • Line Location: DREV+14
    Function Call: WRITE
    • Prompt: !?10,"SYSTEM FOUND DUPLICATE BILL WHILE PROCESSING CLAIM"
    • Line Location: BCANC+2
    Function Call: WRITE
    • Prompt: !?10,TX,":",$$REASON^IBNCPDPU($P(IBD3,U,7))
    • Line Location: CLRS+5
    Function Call: WRITE
    • Prompt: ", ",PP
    • Condition for execution: $P(IBD3,U,8)
    • Line Location: CLRS+5
    Function Call: WRITE
    • Prompt: ", ",RC
    • Condition for execution: $P(IBD3,U,9)
    • Line Location: CLRS+5
    Function Call: WRITE
    • Prompt: !?10,"COMMENT:",$P(IBD3,U,6)
    • Line Location: CLRS+7
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: ?72,"PAGE ",IBPAGE
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !,$$DISPTITL^IBNCPEV1(IBBDT,IBEDT,IBDTL,.IBDIVS)
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !?15
    • Line Location: HDR+4
    Function Call: WRITE
    • Prompt: "SINGLE PRESCRIPTION - ",$$RXNUM(IBRX)," "
    • Line Location: HDR+5
    Function Call: WRITE
    • Prompt: "SINGLE PATIENT - ",$P($G(^DPT(IBPAT,0)),U)," "
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: "SINGLE ECME # - ",IBECME
    • Line Location: HDR+7
    Function Call: WRITE
    • Prompt: "ECME BILLABLE RX "
    • Line Location: HDR+8
    Function Call: WRITE
    • Prompt: "NON ECME BILLABLE RX "
    • Line Location: HDR+9
    Function Call: WRITE
    • Prompt: $S(IBM3="M":"MAIL",IBM3="C":"CMOP",1:"WINDOW")_" PRESCRIPTIONS ONLY"
    • Line Location: HDR+10
    Function Call: WRITE
    • Prompt: !,?4," RX# FILL DATE PATIENT NAME",?55,"DRUG"
    • Line Location: HDR+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+12
    Function Call: WRITE
    • Prompt: "="
    • Line Location: HDR+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: ULINE+2
    Function Call: WRITE
    • Prompt: $G(X,"-")
    • Line Location: ULINE+2
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !?10,"ECME#:",$P(IBD1,U,3),", DOS:",$$DAT($P(IBD2,U,6))
    • Line Location: SUBHDR+2
    Function Call: WRITE
    • Prompt: ", RELEASE DATE:",$$TIM($P(IBD2,U,7))
    • Line Location: SUBHDR+3
    Function Call: WRITE
    • Prompt: !?10,"USER:",$$USR(+$P(IBD3,U,10))
    • Line Location: DISPUSR+1

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] BILL+1
    ^DPT - [#2] HDR+6, PAT+1
    ^IBA(355.3 - [#355.3] DSUB+8, DREV+9
    ^IBCNR(366.14 - [#366.14] START+5, START+7, START+17, START+18, START+19, START+20, START+26, PRINT+14, PRINT+16, PRINT+17
    PRINT+18, PRINT+19, PRINT+20, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27
    ^PRCA(430 - [#430] ARBILL+1
    ^TMP($J START+9, DRUG+3!, DRUG+5, DRUG+6!
    ^VA(200 - [#200] USR+1

    Label References

    Name Line Occurrences
    $$BILL STAT+7, STAT+10, STAT+12
    $$DAT PRINT+32, SUBHDR+2
    $$DRUG PRINT+33
    $$EVNT PRINT+38
    $$PAT PRINT+33
    $$RXNUM START+37, PRINT+32, HDR+5
    $$STAT PRINT+38
    $$TIM PRINT+38, SUBHDR+3
    $$USR DISPUSR+1
    BCANC PRINT+48
    CHKP PRINT+31, PRINT+36, DBILL+3, DBILL+4, DBILL+6, DBILL+8, DBILL+13, DBILL+20, DBILL+25, DBILL+27
    DBILL+31, DREJ+1, DREJ+4, DREJ+6, DSUB+2, DSUB+4, DSUB+7, DSUB+10, DREV+2, DREV+5
    DREV+8, DREV+12, BCANC+1, BCANC+3, CLRS+5, CLRS+7, ULINE+1
    CLRS DREJ+5, DREV+11
    DBILL PRINT+40
    DCLO PRINT+44
    DISPUSR DBILL+32, DREJ+7, DSUB+11, DREV+13, BCANC+4
    DREJ PRINT+41, DCLO+1, DREL+1
    DREL PRINT+46
    DREV PRINT+42
    DSUB PRINT+43
    HDR PRINT+6, CHKP+2
    PAUSE CHKP+2
    SETTMP START+35
    START RPT+5
    SUBHDR DBILL+5, DREJ+2, DSUB+3, DREV+3
    ULINE PRINT+30

    Naked Globals

    Name Field # of Occurrence
    ^(0 USR+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BN BILL~, BILL+1, ARBILL~, ARBILL+1
    CR STAT~, STAT+11
    DFN PAT~, PAT+1
    DTIME PRINT+49, PAUSE+1
    I HDR+12~*, ULINE+2~*
    IB1ST START+1~, PRINT+9*, PRINT+29, PRINT+34*
    IBBDT RPT+1~, START+5, HDR+2
    IBD1 PRINT+12~, PRINT+16*, DSUB+4, DREV+4*, DREV+5, DREV+14, SUBHDR+2
    IBD2 PRINT+12~, PRINT+17*, PRINT+32, PRINT+47, DBILL+6, DBILL+9, DBILL+10, DBILL+11, DBILL+14, DBILL+15
    DBILL+16, SUBHDR+2, SUBHDR+3
    IBD3 PRINT+12~, PRINT+18*, PRINT+38, PRINT+47, DBILL+3, DBILL+18, DBILL+19, DBILL+23, DBILL+24, DBILL+26
    DBILL+30, DREJ+4, DSUB+7, DSUB+8, DSUB+9, DREV+8, DREV+9, DREV+10, CLRS+5, CLRS+7
    DISPUSR+1
    IBD4 PRINT+12~, PRINT+19*, PRINT+47, STAT+6
    IBD7 PRINT+12~, PRINT+20*, PRINT+47
    IBDFN START+15~, START+23*, START+24, START+29, DRUG~, DRUG+1, DRUG+4, DRUG+5
    IBDIVS RPT+1~, START+22, HDR+2, HDR+3
    IBDTIEN START+15~, START+18*, START+19, START+20, START+25, START+26, START+35, SETTMP
    IBDTL RPT+1~, PRINT+39, HDR+2
    IBECME RPT+2~, START+13, HDR+7
    IBEDT RPT+1~, START+7, HDR+2
    IBEVNT START+15~, START+25*, START+30, START+31, START+32, PRINT+37*, PRINT+38, PRINT+40, PRINT+41, PRINT+42
    PRINT+43, PRINT+44, PRINT+45, PRINT+46, PRINT+47, PRINT+48
    IBFN START+1~, PRINT+8*, PRINT+10, PRINT+11, PRINT+32
    IBFROM START+1~, START+5*, START+13, START+16
    IBHP DSUB+1~, DSUB+8*, DSUB+9, DREV+1~, DREV+9*, DREV+10
    IBI START+1~, START+16*, START+17*, START+18, PRINT+10*, PRINT+11, PRINT+14, PRINT+16, PRINT+17, PRINT+18
    PRINT+19, PRINT+20, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+37
    IBIFN STAT~, STAT+7, STAT+9, STAT+10
    IBIN DSUB+1~, DSUB+8*, DSUB+9, DREV+1~, DREV+9*, DREV+10
    IBINS PRINT+12~, PRINT+47
    IBINS( PRINT+24*, PRINT+25*, PRINT+26*, PRINT+27*
    IBM1 RPT+1~, HDR+5, HDR+6, HDR+7, HDR+10
    IBM2 RPT+1~, START+30, START+31, START+32, HDR+8, HDR+9
    IBM3 RPT+1~, START+38, HDR+10
    IBN START+1~, START+19*, START+20, START+25, START+26, START+35, SETTMPPRINT+11*, PRINT+14, PRINT+16
    PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+37
    IBNB START+1~, START+3*, STAT+3
    IBNDX START+1~, START+3*
    IBNL STAT+1~, STAT+2*, STAT+4
    IBNUM START+1~, PRINT+5*, PRINT+30*, PRINT+32
    IBP4 START+15~
    IBPAGE RPT+1~, HDR+1*
    IBPAT RPT+1~, START+29, HDR+6
    IBQ RPT+1~, RPT+4, RPT+7, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+29, PRINT+30, PRINT+31
    PRINT+36, PRINT+49, DBILL+3, DBILL+4, DBILL+6, DBILL+8, DBILL+13, DBILL+20, DBILL+25, DBILL+27
    DBILL+31, DREJ+1, DREJ+4, DREJ+5, DREJ+6, DSUB+2, DSUB+7, DSUB+10, DREV+2, DREV+8
    DREV+11, DREV+12, BCANC+1, BCANC+3, CLRS+5, CLRS+7, ULINE+1, CHKP+2, PAUSE+1*
    IBRX RPT+1~, START+13*, START+36, HDR+5, DRUG~, DRUG+4, DRUG+5, RXNUM~, RXNUM+1
    IBRX1 START+1~, PRINT+7*, PRINT+8, PRINT+10, PRINT+11, PRINT+32, PRINT+33
    IBRXIEN START+15~, START+27*, START+28*, START+35*, START+36, START+37, START+38, SETTMP
    IBSC START+1~, START+3*, START+30, START+31, START+32, PRINT+47, STAT+1~, STAT+2*, STAT+3, STAT+4
    , STAT+5, STAT+6, EVNT+7
    IBSCR RPT+1~, PRINT+49, CHKP+2
    IBT TIM~, TIM+1*, TIM+2*, TIM+3*, TIM+4
    IBTO START+1~, START+7*, START+13, START+17
    IBY PRINT+12~, PRINT+21*, PRINT+23*, PRINT+24, PRINT+25, PRINT+26, PRINT+27
    IBZ PRINT+12~, PRINT+14*, PRINT+33, PRINT+38, PRINT+47, DBILL+3
    IBZ0 START+15~, START+20*, START+22, START+23, START+30, START+32
    IBZ1 START+15~
    IBZ2 START+15~, START+26*, START+27, START+28, SETTMP
    IND PRINT+35~*, PRINT+38
    IO PRINT+6, PAUSE+2
    IO(0 PAUSE+1
    IOF HDR+1
    IOSL CHKP+2
    PP CLRS+1~, CLRS+3*, CLRS+5
    RC CLRS+1~, CLRS+4*, CLRS+5
    REF START+1~, START+9*, START+11, SETTMPSETTMP+2, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+50
    RES STAT~, STAT+3*, STAT+4*, STAT+5, STAT+6, STAT+7, STAT+8, STAT+9, STAT+11, STAT+12
    , STAT+13
    TX CLRS+1~, CLRS+2*, CLRS+5, CLRS+6*
    U START+22, START+23, START+27, START+28, START+30, START+32, SETTMPPRINT+32, PRINT+33, PRINT+38
    , STAT+5, STAT+6, STAT+8, STAT+9, STAT+12, STAT+13, DBILL+3, DBILL+6, DBILL+9, DBILL+10
    DBILL+11, DBILL+14, DBILL+15, DBILL+16, DBILL+18, DBILL+19, DBILL+23, DBILL+24, DBILL+26, DBILL+30
    DREJ+4, DSUB+4, DSUB+7, DSUB+8, DSUB+9, DREV+4, DREV+5, DREV+8, DREV+9, DREV+10
    DREV+14, CLRS+5, CLRS+7, HDR+6, USR+1, SUBHDR+2, SUBHDR+3, DISPUSR+1
    X START+1~, PRINT+49*, STAT~, STAT+3, STAT+4, STAT+5, STAT+6, STAT+7, STAT+8, STAT+9
    , STAT+10, STAT+11, STAT+12, ULINE~, ULINE+2, DAT~, TIM~, TIM+1, USR~, USR+1
    , USR+2, EVNT~, EVNT+1, EVNT+2, EVNT+3, EVNT+4, EVNT+5, EVNT+6, EVNT+7, EVNT+8
    , BOCD~, BOCD+1, BOCD+2, BOCD+3, BOCD+4, PAUSE+1~*
    X1 DRUG+2~, DRUG+5*, DRUG+7, DRUG+8
    Y RPT+1~, CHKP+1~, DAT~
    Z START+1~
    Z1 START+1~
    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