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

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) ;

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