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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: BPSPRRX

Package: E Claims Management Engine

Routine: BPSPRRX


Information

BPSPRRX ;ALB/SS - ePharmacy secondary billing ;12-DEC-08

Source Information

Source file <BPSPRRX.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
E Claims Management Engine 9 $$RELDATE^BPSBCKJ  $$IEN59^BPSOSRX  ($$SUBMCLM,DISPBILL)^BPSPRRX2  $$PROMPTS^BPSPRRX3  $$PRIMARY^BPSPRRX4  ($$FINDECLM,$$SECNOPRM,$$SELCOB,DISPECLM)^BPSPRRX5  ($$PRIMDATA,$$RXREFIL,$$SECDATA)^BPSPRRX6  $$CLOSED02^BPSSCR03  
($$DOSDATE,$$YESNO)^BPSSCRRS  
Integrated Billing 3 $$INSUR^IBBAPI  EN1^IBNCPDPI  ($$BILINF,$$RXBILL)^IBNCPUT3  
Outpatient Pharmacy 1 (DIC,DIQ)^PSODI  

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

Package Total Caller Graph
E Claims Management Engine 2 BPS COB PROCESS SECOND TRICARE  BPSPRRX5  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
PRI4RXRF(BPS52,BPSRF,BPSDOS,BPSDFN) ;
SEC4RXRF(BPS52,BPSRF,BPSDOS,BPSDFN) ;
DISPLMES(BPSZ,BPSPSEQ) ;
SECONDRY(BPSRX,BPSRF,BPSDOS,BPS399,BPDISPPR) ;
PROMPTRX() ;
; Prompts for RX# and gets confirmation
SECINSCK(DFN,DOS) ;
; secondary insurance check
; check to see if patient has at least one ePharmacy secondary insurance policy
; function value = 1 if there is one, 0 otherwise
SECINX ;

External References

Name Field # of Occurrence
$$RELDATE^BPSBCKJ EN1+45
$$IEN59^BPSOSRX EN1+34
$$SUBMCLM^BPSPRRX2 SECONDRY+115
DISPBILL^BPSPRRX2 PRI4RXRF+27, SECONDRY+41, SECONDRY+70
$$PROMPTS^BPSPRRX3 SECONDRY+100
$$PRIMARY^BPSPRRX4 PRI4RXRF+30
$$FINDECLM^BPSPRRX5 EN1+49, PRI4RXRF+3, SECONDRY+45
$$SECNOPRM^BPSPRRX5 SEC4RXRF+7
$$SELCOB^BPSPRRX5 EN1+28
DISPECLM^BPSPRRX5 PRI4RXRF+8, SECONDRY+50
$$PRIMDATA^BPSPRRX6 SECONDRY+90
$$RXREFIL^BPSPRRX6 EN1+12
$$SECDATA^BPSPRRX6 SECONDRY+94
$$CLOSED02^BPSSCR03 EN1+35, EN1+51
$$DOSDATE^BPSSCRRS EN1+15
$$YESNO^BPSSCRRS PRI4RXRF+10, PRI4RXRF+29, SECONDRY+52, SECONDRY+82, SECONDRY+104, PROMPTRX+20
$$INSUR^IBBAPI EN1+18, SECINSCK+8
EN1^IBNCPDPI SECONDRY+83
$$BILINF^IBNCPUT3 SECONDRY+30
$$RXBILL^IBNCPUT3 PRI4RXRF+16, SEC4RXRF+4, SEC4RXRF+17, SECONDRY+59
DIC^PSODI PROMPTRX+10
DIQ^PSODI PROMPTRX+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Unable to find an ECME billable insurance policy within the"
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: !,"date of service for this RX/Fill. The patient insurance policy"
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !,"must have a valid ePharmacy Group Plan associated with it."
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !!,"You must correct this in order to continue.",!
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+32
Function Call: WRITE
  • Prompt: !!,"A ",BPSEQ," claim exists that is closed and cannot be Resubmitted.",!,"Please reopen the closed ",BPSEQ," claim to resubmit."
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: !,"The secondary claim cannot be Submitted unless the primary is either payable",!,"or closed. Please resubmit or close the primary claim first."
  • Line Location: EN1+52
Function Call: WRITE
  • Prompt: !!,"There is an existing rejected/reversed e-claim for the RX/refill."
  • Line Location: PRI4RXRF+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI4RXRF+28
Function Call: WRITE
  • Prompt: !!,$P(BPSZ,U,2),!
  • Line Location: DISPLMES+14
Function Call: WRITE
  • Prompt: !!,"Cannot submit e-claim:",!," ",$P(BPSZ,U,2),!
  • Line Location: DISPLMES+15
Function Call: WRITE
  • Prompt: !,"Select another plan - the plan selected has been used for primary billing",!!
  • Line Location: DISPLMES+17
Function Call: WRITE
  • Prompt: !,"Cannot submit secondary claim:",!," ",$P(BPSZ,U,2),!
  • Line Location: DISPLMES+18
Function Call: WRITE
  • Prompt: !,"Cannot submit primary claim:",!," ",$P(BPSZ,U,2),!
  • Line Location: DISPLMES+20
Function Call: WRITE
  • Prompt: !,"Primary bill:"
  • Line Location: SECONDRY+40
Function Call: WRITE
  • Prompt: !
  • Line Location: SECONDRY+42
Function Call: WRITE
  • Prompt: !!,"There is an existing rejected/reversed secondary e-claim(s) for the RX/refill."
  • Line Location: SECONDRY+51
Function Call: WRITE
  • Prompt: !
  • Line Location: SECONDRY+71
Function Call: WRITE
  • Prompt: !!,"Unable to find a secondary insurance policy which is e-Pharmacy billable."
  • Line Location: SECONDRY+77
Function Call: WRITE
  • Prompt: !,"You must correct this in order to continue.",!
  • Line Location: SECONDRY+78
Function Call: WRITE
  • Prompt: !
  • Line Location: SECONDRY+103
Function Call: WRITE
  • Prompt: !!,$P(BPSRET,U,2),!
  • Line Location: SECONDRY+116
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTRX+10
Function Call: WRITE
  • Prompt: !!,?1,"Patient",?25,"RX#",?37,"Drug Name",?63,"RX Status"
  • Line Location: PROMPTRX+18
Function Call: WRITE
  • Prompt: !,?1,$E(BPSPTNM,1,23),?25,$E(BPSRXN,1,11),?37,$E(BPSDRUG,1,25),?63,$E(BPSRXST,1,16),!
  • Line Location: PROMPTRX+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPST - [#9002313.59] EN1+35, EN1+51

Label References

Name Line Occurrences
$$PRI4RXRF EN1+41
$$PROMPTRX EN1+7
$$SEC4RXRF EN1+54
$$SECINSCK SECONDRY+75, SECONDRY+87
$$SECONDRY SEC4RXRF+21
DISPLMES EN1+41, EN1+45, EN1+54
SECINX SECINSCK+7, SECINSCK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BP2NDBIL SECONDRY+23~, SECONDRY+56, SECONDRY+59*, SECONDRY+60
BP59 EN1+2~, EN1+34*, EN1+35
BPDISPPR SECONDRY~, SECONDRY+39, SECONDRY+66
BPNEWCLM PRI4RXRF+1~, PRI4RXRF+6*, PRI4RXRF+7, PRI4RXRF+10*, PRI4RXRF+30
BPPAYSEQ EN1+1~, EN1+28*, EN1+29, EN1+30, EN1+34, EN1+36, EN1+41, EN1+45, EN1+46, SECONDRY+23~
, SECONDRY+34*, SECONDRY+41
BPPSEQ PRI4RXRF+22~, PRI4RXRF+25*, PRI4RXRF+27, SECONDRY+64~, SECONDRY+69*, SECONDRY+70
BPQLOOP2 EN1+2~, EN1+25*, EN1+27, EN1+29*, EN1+38*, EN1+41*, EN1+45*, EN1+46, EN1+50, EN1+53*
EN1+54*
BPRATTYP SECONDRY+23~
BPRESUBM PRI4RXRF+1~, SECONDRY+24~, SECONDRY+27*, SECONDRY+52*, SECONDRY+53, SECONDRY+94, SECONDRY+111, SECONDRY+112
BPRET PROMPTRX+6~, PROMPTRX+8*
BPRTTP59 SECONDRY+24~, SECONDRY+94
BPS399 EN1+1~, PRI4RXRF+19~, PRI4RXRF+20*, PRI4RXRF+21*, PRI4RXRF+24, PRI4RXRF+27, SEC4RXRF+1~, SEC4RXRF+10*, SEC4RXRF+13*, SEC4RXRF+21
, SECONDRY~, SECONDRY+30, SECONDRY+57~, SECONDRY+61*, SECONDRY+63*, SECONDRY+68, SECONDRY+70, SECONDRY+97
BPS52 EN1+1~, EN1+10*, EN1+12, EN1+15, EN1+34, EN1+41, EN1+45, EN1+49, EN1+54, PRI4RXRF~
, PRI4RXRF+3, PRI4RXRF+16, PRI4RXRF+27, PRI4RXRF+30, SEC4RXRF~, SEC4RXRF+4, SEC4RXRF+7, SEC4RXRF+17, SEC4RXRF+21
BPSARR PRI4RXRF+1~, PRI4RXRF+16, SEC4RXRF+1~, SEC4RXRF+4, SEC4RXRF+16!, SEC4RXRF+17, SECONDRY+24~, SECONDRY+57~, SECONDRY+59
BPSARR( PRI4RXRF+17, PRI4RXRF+21, PRI4RXRF+24, PRI4RXRF+27, SEC4RXRF+18, SECONDRY+63, SECONDRY+68, SECONDRY+70
BPSARR(999999999 SEC4RXRF+13
BPSBINFO SECONDRY+23~, SECONDRY+30
BPSBINFO("AR STATUS" , SECONDRY+41
BPSBINFO("BIL L #" , SECONDRY+41
BPSBINFO("INS IEN" , SECONDRY+36,  NAME" , SECONDRY+41
BPSCNT PRI4RXRF+19~, PRI4RXRF+20*, PRI4RXRF+23*, PRI4RXRF+26, PRI4RXRF+27, SECONDRY+57~, SECONDRY+62*, SECONDRY+65*, SECONDRY+67, SECONDRY+70
BPSDFN EN1+1~, EN1+10*, EN1+12, EN1+18, EN1+41, EN1+54, PRI4RXRF~, PRI4RXRF+30, SEC4RXRF~, SEC4RXRF+7
, SECONDRY+23~, SECONDRY+33*, SECONDRY+75, SECONDRY+83, SECONDRY+87, PROMPTRX+6~, PROMPTRX+14*, PROMPTRX+20
BPSDIC PROMPTRX+6~, PROMPTRX+8*, PROMPTRX+10
BPSDIC(0 PROMPTRX+9*
BPSDOS EN1+1~, EN1+15*, EN1+18, EN1+41, EN1+54, PRI4RXRF~, PRI4RXRF+30, SEC4RXRF~, SEC4RXRF+7, SEC4RXRF+21
, SECONDRY~, SECONDRY+75, SECONDRY+87, SECONDRY+100, SECONDRY+115
BPSDRUG PROMPTRX+6~, PROMPTRX+16*, PROMPTRX+19
BPSECLM PRI4RXRF+1~, PRI4RXRF+3*, PRI4RXRF+4, PRI4RXRF+5, PRI4RXRF+7, PRI4RXRF+8, PRI4RXRF+30, SECONDRY+23~, SECONDRY+45*, SECONDRY+46
, SECONDRY+47, SECONDRY+49, SECONDRY+50
BPSECOND SECONDRY+24~, SECONDRY+90, SECONDRY+94, SECONDRY+100, SECONDRY+115
BPSECOND("INS NAME" , SECONDRY+104
BPSECOND("NEW COB DATA" , SECONDRY+108*
BPSECOND("PLAN" SECONDRY+115
BPSECOND("PRI MARY BILL" , SECONDRY+97*
BPSECOND("RTYPE" SECONDRY+115
BPSELIG EN1+2~
BPSEQ EN1+2~, EN1+36*, EN1+37
BPSINIEN SECONDRY+23~, SECONDRY+36*
BPSINS EN1+2~, EN1+18, SECINSCK+5~, SECINSCK+8, SECINSCK+9
BPSINS("IBBAPI" SECINSCK+10, SECINSCK+11
BPSPCLS EN1+2~, EN1+49*, EN1+50, EN1+51
BPSPL59 SECONDRY+24~, SECONDRY+94
BPSPLAN SECONDRY+24~
BPSPLNSL SECONDRY+24~
BPSPSEQ DISPLMES~, DISPLMES+15, DISPLMES+16, DISPLMES+19
BPSPTNM PROMPTRX+6~, PROMPTRX+15*, PROMPTRX+19
BPSQ PRI4RXRF+1~, PRI4RXRF+14*, PRI4RXRF+18, PRI4RXRF+29*, SECONDRY+23~, SECONDRY+48*, SECONDRY+49, SECONDRY+53*
BPSQLOOP EN1+1~, EN1+3*, EN1+5, EN1+9*, EN1+13*, EN1+18*, EN1+29*, EN1+41*, EN1+45*, EN1+54*
BPSRET EN1+1~, EN1+4*, EN1+41*, EN1+45, EN1+54*, PRI4RXRF+22~, PRI4RXRF+24*, PRI4RXRF+25, SEC4RXRF+1~, SEC4RXRF+4*
, SEC4RXRF+7, SEC4RXRF+10, SEC4RXRF+17*, SEC4RXRF+18, SECONDRY+23~, SECONDRY+30*, SECONDRY+31, SECONDRY+33, SECONDRY+34, SECONDRY+35
, SECONDRY+68*, SECONDRY+69, SECONDRY+90*, SECONDRY+94, SECONDRY+115*, SECONDRY+116, SECONDRY+117, SECINSCK+5~, SECINSCK+8*
BPSRF EN1+1~, EN1+14*, EN1+15, EN1+34, EN1+41, EN1+45, EN1+49, EN1+54, PRI4RXRF~, PRI4RXRF+3
, PRI4RXRF+16, PRI4RXRF+27, PRI4RXRF+30, SEC4RXRF~, SEC4RXRF+4, SEC4RXRF+7, SEC4RXRF+17, SEC4RXRF+21, SECONDRY~, SECONDRY+41
, SECONDRY+45, SECONDRY+59, SECONDRY+70, SECONDRY+90, SECONDRY+94, SECONDRY+100, SECONDRY+115
BPSRX SECONDRY~, SECONDRY+41, SECONDRY+45, SECONDRY+59, SECONDRY+70, SECONDRY+90, SECONDRY+94, SECONDRY+100, SECONDRY+115, PROMPTRX+6~
, PROMPTRX+12*, PROMPTRX+20
BPSRXCOB SECONDRY+23~, SECONDRY+35*
BPSRXD PROMPTRX+6~
BPSRXD(52 PROMPTRX+14, PROMPTRX+15, PROMPTRX+16, PROMPTRX+17
BPSRXN EN1+1~, EN1+10*, EN1+12, PROMPTRX+6~, PROMPTRX+12*, PROMPTRX+19, PROMPTRX+20
BPSRXST PROMPTRX+6~, PROMPTRX+17*, PROMPTRX+19
BPSWHERE SECONDRY+24~, SECONDRY+111*, SECONDRY+112*, SECONDRY+115
BPSZ EN1+1~, EN1+7*, EN1+8, EN1+9, EN1+10, EN1+12*, EN1+13, EN1+14, PRI4RXRF+16*, PRI4RXRF+17
, PRI4RXRF+18, DISPLMES~, DISPLMES+13, DISPLMES+14, DISPLMES+15, DISPLMES+17, DISPLMES+18, DISPLMES+20
BPX SECINSCK+5~, SECINSCK+10*, SECINSCK+11
BPY SECONDRY+23~, SECONDRY+82*, SECONDRY+83, SECONDRY+84
BPYDEF SECONDRY+24~, SECONDRY+74*, SECONDRY+76*, SECONDRY+82
DA PROMPTRX+7~, PROMPTRX+12*, PROMPTRX+13, PROMPTRX+14, PROMPTRX+15, PROMPTRX+16, PROMPTRX+17
DFN SECINSCK~, SECINSCK+7, SECINSCK+8
DIC PROMPTRX+7~, PROMPTRX+8*, PROMPTRX+13
DIQ PROMPTRX+7~, PROMPTRX+12*, PROMPTRX+13
DIQ(0 PROMPTRX+12*
DOS SECINSCK~, SECINSCK+7, SECINSCK+8
DR PROMPTRX+7~, PROMPTRX+12*, PROMPTRX+13
DTOUT PROMPTRX+7~, PROMPTRX+11
DUOUT PROMPTRX+7~, PROMPTRX+11
OK SECINSCK+5~, SECINSCK+6*, SECINSCK+10, SECINSCK+11*, SECINX+1
U EN1+10, EN1+35, EN1+50, EN1+51, PRI4RXRF+8, PRI4RXRF+17, PRI4RXRF+18, PRI4RXRF+24, PRI4RXRF+27, SEC4RXRF+10
, SEC4RXRF+18, DISPLMES+14, DISPLMES+15, DISPLMES+18, DISPLMES+20, SECONDRY+31, SECONDRY+33, SECONDRY+34, SECONDRY+35, SECONDRY+50
, SECONDRY+56, SECONDRY+68, SECONDRY+69, SECONDRY+70, SECONDRY+116, PROMPTRX+12, PROMPTRX+20, SECINSCK+11
X PROMPTRX+7~, PROMPTRX+8*, PROMPTRX+10
Y PROMPTRX+7~, PROMPTRX+11, PROMPTRX+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All