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 |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 4 ^IBNCPDP1  ($$TESTDATA,DATE,DEVICE,MODE)^IBNCPDPE  ($$BOCD,$$DAT,$$USR,CHKP,DISPUSR,SUBHDR)^IBNCPEV  $$EXMPFLDS^IBNCPEV1  
Pharmacy Data Management 2 DATA^PSS50  EN^PSSDI  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
E Claims Management Engine 1 ($$MULTPHRM,$$SELPHARM)^BPSUTIL  
Kernel 1 $$RJ^XLFSTR  

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

Package Total Caller Graph
Integrated Billing 3 IBNCPDPE  IBNCPEV  IBNCPEV1  

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

External References

Name Field # of Occurrence
$$MULTPHRM^BPSUTIL SETVARS+6
$$SELPHARM^BPSUTIL MULTIDIV+2
$$EXTERNAL^DILFD DSTAT+14
$$GET1^DIQ DSTAT+65, DSTAT+66, REOPEN+4
^IBNCPDP1 DSTAT+17, GETNOANS+3
$$TESTDATA^IBNCPDPE SETVARS+4
DATE^IBNCPDPE SETVARS+4
DEVICE^IBNCPDPE SETVARS+10
MODE^IBNCPDPE SETVARS+9
$$BOCD^IBNCPEV DSTAT+86
$$DAT^IBNCPEV DISPTITL+3, DISPTITL+4
$$USR^IBNCPEV DSTAT+99
CHKP^IBNCPEV DSTAT+11, DSTAT+19, DSTAT+25, DSTAT+33, DSTAT+35, DSTAT+36, DSTAT+41, DSTAT+45, DSTAT+50, DSTAT+61
, DSTAT+62, DSTAT+70, DSTAT+74, DSTAT+79, DSTAT+84, DSTAT+87, DSTAT+90, DSTAT+98, REOPEN+1, REOPEN+4
, REOPEN+5, REOPEN+6
DISPUSR^IBNCPEV REOPEN+7
SUBHDR^IBNCPEV REOPEN+2
$$EXMPFLDS^IBNCPEV1 GETNOANS+3
DATA^PSS50 DRUGNAM+3
EN^PSSDI DRUGAPI+9
$$RJ^XLFSTR GETRX+14

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBCNR(366.03 - [#366.03] PLANID+5, PLANID+7
^IBCNR(366.14 - [#366.14] GETRX+15, GETRX+17, GETRX+18, GETRX+19, GETDFN+2, GETDFN+4, GETDFN+6
^TMP($J DRUGNAM+2!, DRUGNAM+4, DRUGNAM+5!

Label References

Name Line Occurrences
$$CENTERIT DISPLDIV+11, DISPTITL+8
$$DRUGNAM DSTAT+25
$$EXMPFLDS DSTAT+17
$$MULTIDIV SETVARS+7
$$PLANID DSTAT+72
$$UNITDISP DSTAT+48, DSTAT+52
PLANIDX PLANID+4, PLANID+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC DRUGAPI+7~, DRUGAPI+8*, DRUGAPI+9
DIQ DRUGAPI+7~, DRUGAPI+8*, DRUGAPI+9
DIQ(0 DRUGAPI+8*
DRUGIEN DRUGAPI~, DRUGAPI+9, DRUGAPI+10
ECMELEN GETRX+10~, GETRX+12*, GETRX+13, GETRX+14
FLDNUM DRUGAPI~, DRUGAPI+9, DRUGAPI+10
IB1 GETDFN+1~, GETDFN+2*, GETDFN+3, GETDFN+4, GETDFN+6
IB1ST DSTAT+9~, DSTAT+10*, DSTAT+19*, DSTAT+20*, DSTAT+74*, DSTAT+75*, DSTAT+76*, DSTAT+77*, DSTAT+79*, DSTAT+81*
, DSTAT+82
IB2 GETDFN+1~, GETDFN+4*, GETDFN+5, GETDFN+6
IB36614 CHECKDIV~, CHECKDIV+1
IBANSW MULTIDIV+1~
IBARR DRUGAPI+7~
IBARR(50 DRUGAPI+10
IBBDT DISPTITL~, DISPTITL+1, DISPTITL+3, DISPTITL+4
IBCNT DISPLDIV+3~, DISPLDIV+5*, DISPLDIV+7, DISPLDIV+8*
IBD0 DSTAT~, DSTAT+29, DSTAT+40
IBD2 DSTAT~, DSTAT+25, DSTAT+46, DSTAT+47, DSTAT+48, DSTAT+51, DSTAT+52, DSTAT+54
IBD3 DSTAT~, DSTAT+53, DSTAT+99, REOPEN+4, REOPEN+5
IBD4 DSTAT~, DSTAT+17, DSTAT+23, GETNOANS~, GETNOANS+3
IBD7 DSTAT~, DSTAT+14, DSTAT+28, DSTAT+30, DSTAT+31, DSTAT+32, DSTAT+34, DSTAT+35, DSTAT+36, DSTAT+40
, DSTAT+67
IBDATE GETRX+10~, GETRX+15*, GETRX+16, GETRX+17, GETRX+18
IBDIVCNT MULTIDIV+1~
IBDIVS SETVARS+2*, SETVARS+7*, SETVARS+8*, CHECKDIV~, DISPTITL~, DISPTITL+1, DISPTITL+6, DISPTITL+7
IBDIVS( CHECKDIV+1
IBDIVS(0 SETVARS+7*, SETVARS+8*, DISPTITL+7
IBDIVSTR DISPLDIV+3~, DISPLDIV+4*, DISPLDIV+7*, DISPLDIV+9*, DISPLDIV+10*, DISPLDIV+11
IBDTL SETVARS+2*, DISPTITL~, DISPTITL+1, DISPTITL+5
IBDVS DISPLDIV~, DISPLDIV+1, DISPLDIV+2
IBDVS( DISPLDIV+6, DISPLDIV+9
IBECME SETVARS+2*, GETRX~, GETRX+20*
IBECMENO GETRX~, GETRX+13, GETRX+14*, GETRX+15, GETRX+17, GETRX+20
IBEDT DISPTITL~, DISPTITL+1, DISPTITL+4
IBEND GETRX~, GETRX+16
IBEXMP EXMPFLDS~, EXMPFLDS+1, EXMPFLDS+2, EXMPFLDS+3, EXMPFLDS+4, EXMPFLDS+5, EXMPFLDS+6, EXMPFLDS+7, EXMPFLDS+8
IBEXMPV DSTAT+9~, DSTAT+17*, DSTAT+18, DSTAT+20, GETNOANS+1~, GETNOANS+3*, GETNOANS+4
IBFOUND GETRX+10~, GETRX+11*, GETRX+12, GETRX+20*
IBIEN GETRX+10~, GETRX+18*, GETRX+19
IBINS DSTAT~
IBINS( DSTAT+57, DSTAT+59, DSTAT+71, DSTAT+80, DSTAT+85
IBLEFT CENTERIT+2~, CENTERIT+4*, CENTERIT+6
IBMAXLEN CENTERIT~, CENTERIT+1, CENTERIT+3, CENTERIT+4
IBMLTDV SETVARS+6~*, SETVARS+7, SETVARS+8
IBNO GETRX+10~, GETRX+17*, GETRX+19
IBNODE EXMPFLDS~, EXMPFLDS+1, EXMPFLDS+2, EXMPFLDS+3, EXMPFLDS+4, EXMPFLDS+5, EXMPFLDS+6, EXMPFLDS+7, EXMPFLDS+8
IBNXT DSTAT+9~, DSTAT+57*, DSTAT+61
>> IBPAGE SETVARS+2*
>> IBPAT SETVARS+2*
IBPSPHAR MULTIDIV~, MULTIDIV+2
IBQ SETVARS+2*, SETVARS+4, SETVARS+5, SETVARS+7*, SETVARS+9, SETVARS+10, DSTAT+11, DSTAT+17, DSTAT+19, DSTAT+21
, DSTAT+25, DSTAT+28, DSTAT+33, DSTAT+35, DSTAT+36, DSTAT+40, DSTAT+41, DSTAT+45, DSTAT+50, DSTAT+57
, DSTAT+61, DSTAT+62, DSTAT+70, DSTAT+74, DSTAT+79, DSTAT+84, DSTAT+87, DSTAT+90, DSTAT+96, DSTAT+98
, REOPEN+1, REOPEN+4, REOPEN+5, REOPEN+6, GETNOANS+1~, GETNOANS+2*
IBRET GETNOANS+1~, GETNOANS+2*, GETNOANS+4*, GETNOANS+5
IBRETV MULTIDIV+1~, MULTIDIV+2*, MULTIDIV+3, MULTIDIV+4
IBRX SETVARS+2*, GETDFN~, GETDFN+2, GETDFN+4
IBRXIEN GETRX+10~, GETRX+11*, GETRX+19*, GETRX+20, GETRX+22
IBSC DSTAT+9~, DSTAT+17*, DSTAT+20, GETNOANS+1~, GETNOANS+3*, GETNOANS+4
>> IBSCR SETVARS+2*
IBSP CENTERIT+2~, CENTERIT+5*, CENTERIT+6*, CENTERIT+7
IBST GETRX~, GETRX+15
IBSTR CENTERIT~, CENTERIT+1, CENTERIT+3*, CENTERIT+4, CENTERIT+7
IBT DSTAT+9~, DSTAT+17*, GETNOANS+1~, GETNOANS+3*
IBTITL DISPTITL+2~, DISPTITL+3*, DISPTITL+4*, DISPTITL+5*, DISPTITL+6*, DISPTITL+7*, DISPTITL+8
IBX DSTAT+9~, DSTAT+17*, DSTAT+57*, DSTAT+59, DSTAT+71, DSTAT+80, DSTAT+85, GETNOANS+1~, GETNOANS+3*
IBX1 DRUGNAM~, DRUGNAM+3, DRUGNAM+4
IBZ DISPLDIV+3~, DISPLDIV+5*, DISPLDIV+6*, DISPLDIV+9
PLANIEN DSTAT+58~, DSTAT+60*, DSTAT+65, DSTAT+66, PLANID+2~, PLANID+5*, PLANID+6, PLANID+7
PLID PLANID~, PLANID+3*, PLANID+4, PLANID+5, PLANIDX+1
PLNAME PLANID+2~, PLANID+3*, PLANID+7*, PLANIDX+1
QTY UNITDISP~, UNITDISP+1
TYP UNITDISP~, UNITDISP+1, UNITDISP+2*, UNITDISP+3
U SETVARS+8, GETRX+19, DSTAT+14, DSTAT+17, DSTAT+23, DSTAT+25, DSTAT+28, DSTAT+29, DSTAT+30, DSTAT+31
, DSTAT+32, DSTAT+34, DSTAT+35, DSTAT+36, DSTAT+40, DSTAT+46, DSTAT+47, DSTAT+48, DSTAT+51, DSTAT+52
, DSTAT+53, DSTAT+54, DSTAT+60, DSTAT+72, DSTAT+75, DSTAT+76, DSTAT+77, DSTAT+81, DSTAT+82, DSTAT+86
, DSTAT+88, DSTAT+89, DSTAT+91, DSTAT+92, DSTAT+93, DSTAT+99, PLANID+7, EXMPFLDS+1, EXMPFLDS+2, EXMPFLDS+3
, EXMPFLDS+4, EXMPFLDS+5, EXMPFLDS+6, EXMPFLDS+7, EXMPFLDS+8, GETDFN+6, REOPEN+4, REOPEN+5, DISPLDIV+9, DISPTITL+7
, GETNOANS+3
X DRUGNAM+1~, DRUGNAM+4*, DRUGNAM+6
Y DSTAT+58~, DSTAT+59*, DSTAT+60, DSTAT+75, DSTAT+76, DSTAT+77, DSTAT+80*, DSTAT+81, DSTAT+82, DSTAT+85*
, DSTAT+86, DSTAT+88, DSTAT+89, DSTAT+91, DSTAT+92, DSTAT+93
Y3 DSTAT+58~, DSTAT+71*, DSTAT+72

Marked Items

Name Field # of Occurrence
$T(EXEMPT+IBX^IBNCPDP1 DSTAT+17, GETNOANS+3
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 |  Local Variables |  Marked Items  | All