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

Package: Integrated Billing

Routine: IBNCPEV1


Information

IBNCPEV1 ;DALOI/SS - NCPDP BILLING EVENTS REPORT ;21-MAR-2006

Source Information

Source file <IBNCPEV1.m>

Entry Points

Name Comments DBIA/ICR reference
SETVARS ;
GETRX(IBECMENO,IBST,IBEND,IBECME) ; get ien of file 52 from #366.14
; input -
; IBECMENO = ECME # input from the user (with or without leading zeros)
; IBST = start date (FM format)
; IBEND = end date (FM format)
; output - function value: returns internal entry number of file #52 for the earliest date within the date range
; IBECME - output variable pass by reference. Returns the external version of the ECME# with leading zeros
DSTAT(IBD0,IBD2,IBD3,IBD4,IBINS,IBD7) ; finish event/IB Billing Determination event
UNITDISP(QTY,TYP) ; display type of units
PLANID(PLID) ; display Pharmacy plan ID and the name
; Input: PLID - the external plan ID as found in (366.03,.01). Stored for this report as (366.1412,.303).
PLANIDX ;
EXMPFLDS(IBEXMP,IBNODE) ;
GETDFN(IBRX) ;
DRUGNAM(IBX1) ;
DRUGAPI(DRUGIEN,FLDNUM) ;
REOPEN ;
MULTIDIV(IBPSPHAR) ;
CHECKDIV(IB36614,IBDIVS) ;
DISPLDIV(IBDVS) ;
DISPTITL(IBBDT,IBEDT,IBDTL,IBDIVS) ;
CENTERIT(IBSTR,IBMAXLEN) ;
GETNOANS(IBD4) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"ELIGIBILITY: "
  • Line Location: DSTAT+13
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(366.141,7.05,,$P(IBD7,U,5))
  • Line Location: DSTAT+14
Function Call: WRITE
  • Prompt: !?10,"EI/SC INDICATORS: "
  • Line Location: DSTAT+16
Function Call: WRITE
  • Prompt: "overridden by the user"
  • Line Location: DSTAT+18
Function Call: WRITE
  • Prompt: ","
  • Line Location: DSTAT+19
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DSTAT+19
Function Call: WRITE
  • Prompt: " ",IBSC,":",$S(IBEXMPV=1:"Yes",IBEXMPV=0:"No",IBEXMPV=2:"No Answer",1:"?")
  • Line Location: DSTAT+20
Function Call: WRITE
  • Prompt: !?10,"ACTIVE DUTY: Yes"
  • Line Location: DSTAT+23
Function Call: WRITE
  • Prompt: !?10,"DRUG:",$$DRUGNAM(+$P(IBD2,U,4))
  • Line Location: DSTAT+25
Function Call: WRITE
  • Prompt: !?10,"DRUG ECME BILLABLE: ",$S($P(IBD7,U,6):"Yes",1:"No")
  • Line Location: DSTAT+34
Function Call: WRITE
  • Prompt: !?10,"DRUG ECME BILLABLE (TRICARE): ",$S($P(IBD7,U,7):"Yes",1:"No")
  • Line Location: DSTAT+35
Function Call: WRITE
  • Prompt: !?10,"DRUG ECME BILLABLE (CHAMPVA): ",$S($P(IBD7,U,8):"Yes",1:"No")
  • Line Location: DSTAT+36
Function Call: WRITE
  • Prompt: !?10,"SENSITIVE DIAGNOSIS DRUG: Yes"
  • Line Location: DSTAT+42
Function Call: WRITE
  • Prompt: !?10,"NDC:",$S($P(IBD2,U,5):$P(IBD2,U,5),1:"No")
  • Line Location: DSTAT+46
Function Call: WRITE
  • Prompt: ", NCPDP QTY:",$S($P(IBD2,U,14):$P(IBD2,U,14),1:"No")
  • Line Location: DSTAT+47
Function Call: WRITE
  • Prompt: $$UNITDISP($P(IBD2,U,14),$P(IBD2,U,15))
  • Line Location: DSTAT+48
Function Call: WRITE
  • Prompt: !?10,"BILLED QTY:",$S($P(IBD2,U,8):$P(IBD2,U,8),1:"No")
  • Line Location: DSTAT+51
Function Call: WRITE
  • Prompt: $$UNITDISP($P(IBD2,U,8),$P(IBD2,U,13))
  • Line Location: DSTAT+52
Function Call: WRITE
  • Prompt: ", UNIT COST:",$S($P(IBD3,U,4):$P(IBD3,U,4),1:"No")
  • Line Location: DSTAT+53
Function Call: WRITE
  • Prompt: ", DEA:",$P(IBD2,U,10)
  • Line Location: DSTAT+54
Function Call: WRITE
  • Prompt: "@@@@"
  • Line Location: DSTAT+60
Function Call: WRITE
  • Prompt: !?10,"-----------"
  • Line Location: DSTAT+61
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DSTAT+62
Function Call: WRITE
  • Prompt: "PLAN:",$$GET1^DIQ(355.3,PLANIEN_",",2.01)
  • Line Location: DSTAT+65
Function Call: WRITE
  • Prompt: ", INSURANCE:",$$GET1^DIQ(355.3,PLANIEN_",",.01,"E")
  • Line Location: DSTAT+66
Function Call: WRITE
  • Prompt: ", COB:",$S(+IBD7=2:"S",1:"P")
  • Line Location: DSTAT+67
Function Call: WRITE
  • Prompt: !?10,"PHARMACY PLAN:",$S($L($P(Y3,U,3)):$$PLANID($P(Y3,U,3)),1:"N/A")
  • Line Location: DSTAT+72
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DSTAT+74
Function Call: WRITE
  • Prompt: "BIN:",$P(Y,U,3)
  • Line Location: DSTAT+75
Function Call: WRITE
  • Prompt: "PCN:",$P(Y,U,4)
  • Line Location: DSTAT+76
Function Call: WRITE
  • Prompt: "PAYER SHEET B1:",$P(Y,U,5)
  • Line Location: DSTAT+77
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DSTAT+79
Function Call: WRITE
  • Prompt: "PAYER SHEET B2:",$P(Y,U,4)
  • Line Location: DSTAT+81
Function Call: WRITE
  • Prompt: "PAYER SHEET B3:",$P(Y,U,5)
  • Line Location: DSTAT+82
Function Call: WRITE
  • Prompt: !?10,"BASIS OF COST DETERM:",$S($L($P(Y,U,2)):$$BOCD^IBNCPEV($P(Y,U,2)),1:"N/A")
  • Line Location: DSTAT+86
Function Call: WRITE
  • Prompt: !?10,"DISPENSING FEE:",$S($L($P(Y,U,1)):$J($P(Y,U,1),0,2),1:"N/A")
  • Line Location: DSTAT+88
Function Call: WRITE
  • Prompt: ", ADMIN FEE:",$S($L($P(Y,U,5)):$J($P(Y,U,5),0,2),1:"N/A")
  • Line Location: DSTAT+89
Function Call: WRITE
  • Prompt: !?10,"INGREDIENT COST:",$S($L($P(Y,U,6)):$J($P(Y,U,6),0,2),1:"N/A")
  • Line Location: DSTAT+91
Function Call: WRITE
  • Prompt: ", U&C CHARGE:",$S($L($P(Y,U,7)):$J($P(Y,U,7),0,2),1:"N/A")
  • Line Location: DSTAT+92
Function Call: WRITE
  • Prompt: ", GROSS AMT DUE:",$S($L($P(Y,U,4)):$J($P(Y,U,4),0,2),1:"N/A")
  • Line Location: DSTAT+93
Function Call: WRITE
  • Prompt: !?10,"USER:",$$USR^IBNCPEV(+$P(IBD3,U,10))
  • Line Location: DSTAT+99
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,"E")
  • Line Location: REOPEN+4
Function Call: WRITE
  • Prompt: !?10,"REOPEN COMMENTS:",$P(IBD3,U,6)
  • Line Location: REOPEN+5

FileMan Files Accessed Via FileMan Db Call

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