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 |  Marked Items  | All
Print Page as PDF
Routine: BPSPRRX6

Package: E Claims Management Engine

Routine: BPSPRRX6


Information

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

Source Information

Source file <BPSPRRX6.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
E Claims Management Engine 7 ($$ANFF,$$DFF2EXT)^BPSECFM  LOG^BPSOSL  ($$IEN59,$$STATUS)^BPSOSRX  $$PAYABLE^BPSOSRX5  $$SELREFIL^BPSPRRX5  $$PROMPT^BPSSCRCV  ($$FILLFLDS,$$INSITEM,$$PAYBLPRI)^BPSUTIL2  
Outpatient Pharmacy 2 RX^PSO52API  $$RXFLDT^PSOBPSUT  

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

Package Total Caller Graph
E Claims Management Engine 6 BPSNCPDP  BPSOSIY  BPSPRRX  BPSPRRX3  BPSPRRX5  BPSRES  

Entry Points

Name Comments DBIA/ICR reference
RXINFO(BPSRX) ;
RXREFIL(BPS52,BPSDFN,BPSRXNO) ;
; Prompt for the fill# and do the rest
SECBIL59(MOREDATA,IEN59) ;
; Populate secondary billing fields in BPS TRANSACTION
; MOREDATA array filed into 9002313.59
SECDATA(RX,FILL,BPSPLAN,BPSPRDAT,BPSRTYPE) ;
PRIMDATA(RX,FILL,COBARRAY) ;
; Build COB data from primary claim and response
; This is called by PRO option (BPSPRRX, BPSPRRX5) and Resubmit with Edits (BPSRES)
;
; Input:
; RX - Prescription IEN
; FILL - Fill Number
; COBARRAY - Array that will be build, passed by reference
; Return:
; 0 = Invalid data (transactions, claim, or response is missing)
; 1 = Valid data
GETOPAP(BPSRESP,BPSDAT) ;
; Get the Other Payer Amount Paid values and qualifiers
; Input:
; BPSRESP = IEN of BPS RESPONSE file
; BPSDAT(N) = Array of Other Payer fields (passed by reference)
; [1] Patient Pay Amount
; [2] Qualifier
; [3] Other Payer Patient Responsibility Amount
GETPDIEN(CODE) ;
; Get the Other Payer Amount Paid Qualifier IEN for BPS NCPCP OTHER
; PAYER AMOUNT PAID QUAL file
GETRJCOD(BPRESP,BPARR) ;
; Get the first five reject codes w/o getting duplicates
; Input:
; BPSRESP = IEN of BPS RESPONSE file
; BPSARR1 = Array of Reject Codes

External References

Name Field # of Occurrence
$$ANFF^BPSECFM PRIMDATA+58
$$DFF2EXT^BPSECFM PRIMDATA+34, GETOPAP+14, GETOPAP+20, GETOPAP+25, GETOPAP+32, GETOPAP+34, GETOPAP+36, GETOPAP+51, GETOPAP+64
LOG^BPSOSL SECBIL59+7, SECBIL59+8, SECBIL59+18, SECBIL59+22, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28, SECBIL59+29, SECBIL59+30
, SECBIL59+31, SECBIL59+42, SECBIL59+46, SECBIL59+51, SECBIL59+62
$$IEN59^BPSOSRX SECDATA+25, PRIMDATA+18
$$STATUS^BPSOSRX PRIMDATA+30
$$PAYABLE^BPSOSRX5 PRIMDATA+34
$$SELREFIL^BPSPRRX5 RXREFIL+14
$$PROMPT^BPSSCRCV RXINFO+11
$$FILLFLDS^BPSUTIL2 SECBIL59+7, SECBIL59+8, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28, SECBIL59+29, SECBIL59+30, SECBIL59+31, SECBIL59+45
, SECBIL59+50
$$INSITEM^BPSUTIL2 SECBIL59+21, SECBIL59+41, SECBIL59+61
$$PAYBLPRI^BPSUTIL2 SECDATA+28
RX^PSO52API RXINFO+14, RXREFIL+5
$$RXFLDT^PSOBPSUT RXREFIL+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Incorrect RX# or patient name entered.",!
  • Line Location: RXINFO+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPS(9002313.2 - [#9002313.2] GETPDIEN+4
^BPSC - [#9002313.02] PRIMDATA+24, PRIMDATA+43
^BPSR - [#9002313.03] PRIMDATA+27, PRIMDATA+34, PRIMDATA+47, PRIMDATA+58, GETOPAP+10, GETOPAP+14, GETOPAP+20, GETOPAP+25, GETOPAP+32, GETOPAP+34
, GETOPAP+36, GETOPAP+47, GETOPAP+48, GETOPAP+51, GETOPAP+64, GETRJCOD+7, GETRJCOD+13, GETRJCOD+14
^BPST - [#9002313.59] SECDATA+32, SECDATA+33, SECDATA+34, SECDATA+37, SECDATA+38, SECDATA+43, SECDATA+44, SECDATA+47, SECDATA+48, SECDATA+52
, SECDATA+53, PRIMDATA+19, PRIMDATA+22, PRIMDATA+25
^TMP($J RXINFO+13!, RXINFO+15, RXINFO+17, RXINFO+18!, RXREFIL+4!, RXREFIL+6, RXREFIL+8, RXREFIL+9

Label References

Name Line Occurrences
$$GETPDIEN GETOPAP+60, GETOPAP+66
GETOPAP PRIMDATA+63
GETRJCOD PRIMDATA+69

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMTIEN SECBIL59+4~, SECBIL59+34*, SECBIL59+35, SECBIL59+41, SECBIL59+45, SECBIL59+50
APDIEN SECDATA+41~, SECDATA+47*, SECDATA+48
BIN PRIMDATA+14~, PRIMDATA+42*, PRIMDATA+43*, PRIMDATA+55
BPARR PRIMDATA+63~, PRIMDATA+69~, GETRJCOD~
BPARR( PRIMDATA+64, PRIMDATA+70, GETRJCOD+17*
BPBILL SECDATA+20~, SECDATA+28*, SECDATA+29
BPCOB SECBIL59+3~
BPIEN1 SECBIL59+4~, SECBIL59+41*, SECBIL59+42
BPIEN2 SECBIL59+4~, SECBIL59+61*, SECBIL59+62
BPORRFDT RXREFIL+3~, RXREFIL+12*, RXREFIL+13
BPPOS GETRJCOD+8~, GETRJCOD+12*, GETRJCOD+13, GETRJCOD+14
BPQ SECBIL59+4~, SECBIL59+11*, SECBIL59+12, SECBIL59+18*, SECBIL59+22*, SECBIL59+25*, SECBIL59+26*, SECBIL59+27*, SECBIL59+28*, SECBIL59+29*
, SECBIL59+30*, SECBIL59+31*, SECBIL59+34, SECBIL59+42*, SECBIL59+46*, SECBIL59+51*, SECBIL59+57, SECBIL59+62*
BPRCNT GETRJCOD+8~, GETRJCOD+12*, GETRJCOD+13, GETRJCOD+17*
BPRESP GETRJCOD~, GETRJCOD+6, GETRJCOD+7, GETRJCOD+13, GETRJCOD+14
BPRJ GETRJCOD+8~, GETRJCOD+12*, GETRJCOD+13*, GETRJCOD+14
BPRJCOD GETRJCOD+8~, GETRJCOD+14*, GETRJCOD+15, GETRJCOD+17
BPS505 GETOPAP+11~, GETOPAP+64*, GETOPAP+66
BPS509 GETOPAP+11~, GETOPAP+14*, GETOPAP+17*, GETOPAP+29*, GETOPAP+44*, GETOPAP+57*, GETOPAP+62*, GETOPAP+66
BPS52 RXINFO+9~, RXREFIL~, RXREFIL+5, RXREFIL+6, RXREFIL+8, RXREFIL+9, RXREFIL+12
BPS521 GETOPAP+11~, GETOPAP+25*, GETOPAP+26*, GETOPAP+27, GETOPAP+29
BPS523 GETOPAP+11~, GETOPAP+36*, GETOPAP+37*, GETOPAP+40
BPS558 GETOPAP+11~, GETOPAP+34*, GETOPAP+35*, GETOPAP+40
BPS559 GETOPAP+11~, GETOPAP+32*, GETOPAP+33*, GETOPAP+40
BPS562 GETOPAP+11~, GETOPAP+20*, GETOPAP+21*, GETOPAP+22
BPS563 GETOPAP+11~, GETOPAP+47*, GETOPAP+48, GETOPAP+51
BPSAMNT GETOPAP+11~, GETOPAP+51*, GETOPAP+53*, GETOPAP+54, GETOPAP+55, GETOPAP+57
BPSARR RXREFIL+3~, RXREFIL+14
BPSARR( RXREFIL+10*
BPSARR(0 RXREFIL+13*
BPSCLM PRIMDATA+14~, PRIMDATA+22*, PRIMDATA+23, PRIMDATA+24, PRIMDATA+43
BPSDAT GETOPAP~
BPSDAT( GETOPAP+22*, GETOPAP+27*, GETOPAP+42*, GETOPAP+60*, GETOPAP+66*
BPSDFN RXINFO+9~, RXINFO+11*, RXINFO+12, RXINFO+14, RXINFO+15, RXINFO+17, RXREFIL~, RXREFIL+5, RXREFIL+6, RXREFIL+8
, RXREFIL+9
BPSELCTD RXREFIL+3~, RXREFIL+14*, RXREFIL+15, RXREFIL+16
BPSIEN PRIMDATA+14~
BPSOAP GETOPAP+11~, GETOPAP+58
BPSOAP( GETOPAP+54*, GETOPAP+55*, GETOPAP+59, GETOPAP+60
BPSOPDT PRIMDATA+14~, PRIMDATA+46*, PRIMDATA+47*, PRIMDATA+55
BPSPIEN PRIMDATA+14~, PRIMDATA+50*, PRIMDATA+51, PRIMDATA+55, PRIMDATA+59, PRIMDATA+64, PRIMDATA+65, PRIMDATA+70, PRIMDATA+71
BPSPLAN SECDATA~, SECDATA+32*
BPSPRDAT SECDATA~
BPSPRDAT("308-C8" SECDATA+38*
BPSPRDAT("337-4C" SECDATA+37*
BPSPRDAT("OTH ER PAYER" , SECDATA+42!, SECDATA+44*, SECDATA+48*, SECDATA+53*
BPSPRDAT("PRI MARY BILL" , SECDATA+29*, OR PAYMENT" , SECDATA+34*
BPSQUAL GETOPAP+11~, GETOPAP+48*, GETOPAP+50, GETOPAP+54, GETOPAP+55, GETOPAP+57
BPSRECID PRIMDATA+15~, PRIMDATA+58*, PRIMDATA+59
BPSRESP PRIMDATA+14~, PRIMDATA+25*, PRIMDATA+26, PRIMDATA+27, PRIMDATA+34, PRIMDATA+47, PRIMDATA+58, PRIMDATA+63, PRIMDATA+69, GETOPAP~
, GETOPAP+9, GETOPAP+10, GETOPAP+14, GETOPAP+20, GETOPAP+25, GETOPAP+32, GETOPAP+34, GETOPAP+36, GETOPAP+47, GETOPAP+48
, GETOPAP+51, GETOPAP+64
BPSRET RXINFO+9~, RXINFO+17*, RXINFO+19
BPSRETV RXREFIL+3~
BPSRF RXREFIL+3~, RXREFIL+7*, RXREFIL+8*, RXREFIL+9, RXREFIL+10
BPSRTYPE SECDATA~, SECDATA+33*
BPSRX RXINFO~, RXINFO+14
BPSRXNO RXREFIL~, RXREFIL+14
BPSSTAT PRIMDATA+14~, PRIMDATA+30*, PRIMDATA+34, PRIMDATA+38, PRIMDATA+62, PRIMDATA+68
BPSTAX GETOPAP+11~, GETOPAP+40*, GETOPAP+41*, GETOPAP+42, GETOPAP+44
BPSTIME SECBIL59+3~
BPSVAL RXREFIL+3~, RXREFIL+9*, RXREFIL+10
BPSX GETOPAP+11~, GETOPAP+59*, GETOPAP+60
BPTYPE SECBIL59+3~
BPX PRIMDATA+14~, PRIMDATA+63~, PRIMDATA+64*, PRIMDATA+69~, PRIMDATA+70*
BPZ SECBIL59+4~, SECBIL59+16*, SECBIL59+17*
BPZ1 SECBIL59+4~, SECBIL59+16*, SECBIL59+18, SECBIL59+29
BPZ2 SECBIL59+4~, SECBIL59+17*, SECBIL59+18, SECBIL59+30
BPZ5914 SECBIL59+4~, SECBIL59+21*, SECBIL59+22
CNT PRIMDATA+14~, PRIMDATA+64*, PRIMDATA+65, PRIMDATA+70*, PRIMDATA+71, GETOPAP+11~, GETOPAP+12*, GETOPAP+22*, GETOPAP+27*, GETOPAP+42*
, GETOPAP+60*, GETOPAP+66*
COBARRAY PRIMDATA~
COBARRAY("308-C8" PRIMDATA+37*, PRIMDATA+38*, PRIMDATA+39*
COBARRAY("337-4C" PRIMDATA+51*
COBARRAY("OTH ER PAYER" , PRIMDATA+54!, PRIMDATA+55*, PRIMDATA+59*, PRIMDATA+64*, PRIMDATA+65*, PRIMDATA+70*, PRIMDATA+71*
COBARRAY("PRI OR PAYMENT" , PRIMDATA+33*, PRIMDATA+34*, PRIMDATA+37, PRIMDATA+62
COBPIEN SECDATA+41~, SECDATA+43*, SECDATA+44, SECDATA+47, SECDATA+48, SECDATA+52, SECDATA+53
CODE GETPDIEN~, GETPDIEN+3, GETPDIEN+4
FILL SECDATA~, SECDATA+22, SECDATA+25, PRIMDATA~, PRIMDATA+13, PRIMDATA+18, PRIMDATA+30
IEN59 SECBIL59~, SECBIL59+5, SECBIL59+7, SECBIL59+8, SECBIL59+18, SECBIL59+21, SECBIL59+22, SECBIL59+25, SECBIL59+26, SECBIL59+27
, SECBIL59+28, SECBIL59+29, SECBIL59+30, SECBIL59+31, SECBIL59+41, SECBIL59+42, SECBIL59+45, SECBIL59+46, SECBIL59+50, SECBIL59+51
, SECBIL59+61, SECBIL59+62
IEN59PR PRIMDATA+14~, PRIMDATA+18*, PRIMDATA+19, PRIMDATA+22, PRIMDATA+25
IEN59SEC SECDATA+20~, SECDATA+25*, SECDATA+28, SECDATA+32, SECDATA+33, SECDATA+34, SECDATA+37, SECDATA+38, SECDATA+43, SECDATA+44
, SECDATA+47, SECDATA+48, SECDATA+52, SECDATA+53
MOREDATA SECBIL59~
MOREDATA("308-C8" SECBIL59+8
MOREDATA("337-4C" SECBIL59+7
MOREDATA("OTH ER PAYER" , SECBIL59+12, SECBIL59+13, SECBIL59+16, SECBIL59+17, SECBIL59+34, SECBIL59+35, SECBIL59+57, SECBIL59+58
OPAMT SECBIL59+4~, SECBIL59+35*, SECBIL59+36, SECBIL59+37, SECBIL59+38*, SECBIL59+41
OPAPQ SECBIL59+4~, SECBIL59+36*, SECBIL59+45
OPAYD SECBIL59+4~, SECBIL59+13*, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28, SECBIL59+31
OPPRA SECBIL59+4~, SECBIL59+37*, SECBIL59+50
OPREJ SECBIL59+4~, SECBIL59+58*, SECBIL59+61
PIEN SECBIL59+4~, SECBIL59+12*, SECBIL59+13, SECBIL59+16, SECBIL59+17, SECBIL59+21, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28
, SECBIL59+29, SECBIL59+30, SECBIL59+31, SECBIL59+34, SECBIL59+35, SECBIL59+41, SECBIL59+45, SECBIL59+50, SECBIL59+57, SECBIL59+58
, SECBIL59+61
REJIEN SECBIL59+4~, SECBIL59+57*, SECBIL59+58, SECBIL59+61, SECDATA+41~, SECDATA+52*, SECDATA+53
RX SECDATA~, SECDATA+21, SECDATA+25, PRIMDATA~, PRIMDATA+12, PRIMDATA+18, PRIMDATA+30
U RXINFO+17, RXREFIL+10, RXREFIL+13, RXREFIL+14, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28, SECBIL59+31, SECBIL59+36
, SECBIL59+37, SECBIL59+58, SECBIL59+61, SECDATA+32, SECDATA+33, SECDATA+34, SECDATA+37, SECDATA+38, PRIMDATA+22, PRIMDATA+25
, PRIMDATA+30, PRIMDATA+34, PRIMDATA+43, PRIMDATA+47, PRIMDATA+58, PRIMDATA+65, PRIMDATA+71, GETOPAP+14, GETOPAP+20, GETOPAP+22
, GETOPAP+25, GETOPAP+27, GETOPAP+32, GETOPAP+34, GETOPAP+36, GETOPAP+42, GETOPAP+48, GETOPAP+51, GETOPAP+60, GETOPAP+64
, GETOPAP+66, GETRJCOD+14

Marked Items

Name Field # of Occurrence
$T( SECBIL59+7, SECBIL59+8, SECBIL59+18, SECBIL59+22, SECBIL59+25, SECBIL59+26, SECBIL59+27, SECBIL59+28, SECBIL59+29, SECBIL59+30
, SECBIL59+31, SECBIL59+42, SECBIL59+46, SECBIL59+51, SECBIL59+62
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All