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

Package: E Claims Management Engine

Routine: BPSPRRX3


Information

BPSPRRX3 ;ALB/SS - ePharmacy secondary billing ;16-DEC-08

Source Information

Source file <BPSPRRX3.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
E Claims Management Engine 8 $$TRANREJ^BPSECFM  $$IEN59^BPSOSRX  $$SELECTPL^BPSPRRX1  $$RATETYPE^BPSPRRX2  $$GETRTP59^BPSPRRX5  $$GETPDIEN^BPSPRRX6  $$YESNO^BPSSCRRS  $$RXAPI1^BPSUTIL1  
Integrated Billing 2 $$INSUR^IBBAPI  $$PLANEPS^IBNCPDPU  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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
E Claims Management Engine 3 BPSPRRX  BPSPRRX5  BPSRES  

Entry Points

Name Comments DBIA/ICR reference
PROMPTS(RX,FILL,DOS,BPSPRARR) ;
END ;
ASKPAID(BPSSET,BPSQUAL,BPSAMT,BPCNT,BPSPAID) ;
ASK1
DISPSEC(BPSPRARR) ;
; Validate and Display the current secondary insurance information and prompt to edit.
; Input:
; BPSPRARR - Array of COB data, passed by reference
PROMPT(ZERONODE,PRMTMSG,DFLTVAL,BPSHLP) ;
GETCDLST(VERSION) ; Returns a list of codes by field/version for use in PROMPTS
PAYSHTV(BPSPLAN) ;Get the Billing Payer Sheet version for this plan
; BPSPLAN = IEN to GROUP INSURANCE PLAN file #355.3
SET308(BPSSET) ;
SET308C8 ;set of codes for 308-C8
; set of codes

External References

Name Field # of Occurrence
$$TRANREJ^BPSECFM DISPSEC+41
$$IEN59^BPSOSRX PROMPTS+28, PROMPTS+48
$$SELECTPL^BPSPRRX1 PROMPTS+68
$$RATETYPE^BPSPRRX2 PROMPTS+78
$$GETRTP59^BPSPRRX5 PROMPTS+49
$$GETPDIEN^BPSPRRX6 ASK1+12
$$YESNO^BPSSCRRS PROMPTS+63
$$RXAPI1^BPSUTIL1 PROMPTS+32
$$GET1^DIQ PROMPTS+127, DISPSEC+20, DISPSEC+32
^DIR PROMPT+11
$$INSUR^IBBAPI PROMPTS+36
$$PLANEPS^IBNCPDPU PAYSHTV+4
$$FMTE^XLFDT PROMPTS+97, DISPSEC+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTS+61
Function Call: WRITE
  • Prompt: !,"Required secondary claim information is missing. Enter all required information",!
  • Line Location: PROMPTS+62
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTS+66
Function Call: WRITE
  • Prompt: !,"Must select a Secondary insurance plan."
  • Line Location: PROMPTS+70
Function Call: WRITE
  • Prompt: !,"Maximum of 5 OTHER PAYER REJECT CODES reached."
  • Line Location: PROMPTS+155
Function Call: WRITE
  • Prompt: !,"Maximum of 5 OTHER PAYER REJECT CODES reached."
  • Line Location: PROMPTS+159
Function Call: WRITE
  • Prompt: !,"No Paid Amounts or Reject Codes entered"
  • Line Location: PROMPTS+166
Function Call: WRITE
  • Prompt: !," Maximum of 9 OTHER PAYER AMOUNT PAID reached."
  • Line Location: ASKPAID+2
Function Call: WRITE
  • Prompt: !," Qualifier '08' cannot be entered with other qualifiers"
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !," $",$FN(RETV2,",",2)," has been added to amount $",$FN(BPSPRA,",",2)," for Qualifier ",RETV1
  • Line Location: ASK1+10
Function Call: WRITE
  • Prompt: !!,"Data for Secondary Claim"
  • Line Location: DISPSEC+17
Function Call: WRITE
  • Prompt: !,"------------------------"
  • Line Location: DISPSEC+18
Function Call: WRITE
  • Prompt: !,"Insurance: "_$G(BPSPRARR("INS NAME"))_" COB: "_BPSCOB
  • Line Location: DISPSEC+19
Function Call: WRITE
  • Prompt: !,"Rate Type: "_$$GET1^DIQ(399.3,$G(BPSPRARR("RTYPE"))_",",.01,,,,)
  • Line Location: DISPSEC+20
Function Call: WRITE
  • Prompt: !,"Other Coverage Code: "_BPSCOV
  • Line Location: DISPSEC+21
Function Call: WRITE
  • Prompt: !,"Other Payer Coverage Type: 01 (PRIMARY)"
  • Line Location: DISPSEC+22
Function Call: WRITE
  • Prompt: !,"Other Payer ID Qualifier: 03 (BANK INFORMATION NUMBER (BIN))"
  • Line Location: DISPSEC+23
Function Call: WRITE
  • Prompt: !,"Other Payer ID: "_$P($G(BPSPRARR("OTHER PAYER",BPSPIEN,0)),U,4)
  • Line Location: DISPSEC+24
Function Call: WRITE
  • Prompt: !,"Other Payer Date: "_$$FMTE^XLFDT($P($G(BPSPRARR("OTHER PAYER",BPSPIEN,0)),U,5))
  • Line Location: DISPSEC+25
Function Call: WRITE
  • Prompt: !,"Other Payer Reconciliation ID: "_$P($G(BPSPRARR("OTHER PAYER",BPSPIEN,0)),U,11)
  • Line Location: DISPSEC+26
Function Call: WRITE
  • Prompt: !,"Other Payer Paid Qualifier: "_$$GET1^DIQ(9002313.2,$P(DATA,U,2),.01)_" ("_$$GET1^DIQ(9002313.2,$P(DATA,U,2),.02)_")"
  • Line Location: DISPSEC+32
Function Call: WRITE
  • Prompt: !,"Other Payer Amount Paid: $"_$FN($P(DATA,U,1),",",2)
  • Line Location: DISPSEC+33
Function Call: WRITE
  • Prompt: !,"Other Payer Patient Resp Amount Qualifier: 06 (AMT REPORTED BY PRIOR PAYER)"
  • Line Location: DISPSEC+35
Function Call: WRITE
  • Prompt: !,"Other Payer Patient Resp Amount: $"_$FN($P(DATA,U,3),",",2)
  • Line Location: DISPSEC+36
Function Call: WRITE
  • Prompt: !,"Other Payer Reject Code: "_$$TRANREJ^BPSECFM($G(BPSPRARR("OTHER PAYER",BPSPIEN,"R",BPX,0)))
  • Line Location: DISPSEC+41
Routine Call
  • DIR
  • Line Location:
    • PROMPT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399.3 - [#399.3] GET1^DIQ
^BPS(9002313.2 - [#9002313.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPS(9002313.2 - [#9002313.2] GETCDLST+5, GETCDLST+6, GETCDLST+7, GETCDLST+8
^BPSF(9002313.92 - [#9002313.92] PAYSHTV+8
^BPST - [#9002313.59] PROMPTS+31

Label References

Name Line Occurrences
$$ASKPAID PROMPTS+129, PROMPTS+131
$$GETCDLST PROMPTS+124
$$PAYSHTV PROMPTS+73
$$PROMPT PROMPTS+85, PROMPTS+91, PROMPTS+97, PROMPTS+103, PROMPTS+112, PROMPTS+152, PROMPTS+156, ASK1ASK1+3
ASK1 ASK1+2
DISPSEC PROMPTS+53
END PROMPTS+63
SET308 PROMPTS+84

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY GETCDLST+1~
ARRAY( GETCDLST+8*, GETCDLST+9, GETCDLST+10
BPCNT PROMPTS+18~, PROMPTS+122*, PROMPTS+129, PROMPTS+131, PROMPTS+149*, PROMPTS+150, PROMPTS+154*, PROMPTS+155, PROMPTS+156, PROMPTS+157*
, PROMPTS+158, PROMPTS+159, ASKPAID~, ASKPAID+2, ASK1+11*, ASK1+12
BPQ PROMPTS+17~, PROMPTS+22*, PROMPTS+39*, PROMPTS+40, PROMPTS+44*, PROMPTS+55*, PROMPTS+56*, PROMPTS+57*, PROMPTS+58*, PROMPTS+62
, PROMPTS+63*, PROMPTS+122*, PROMPTS+125, PROMPTS+129*, PROMPTS+131*
BPQUIT PROMPT+5~
BPRATTYP PROMPTS+19~, PROMPTS+78*, PROMPTS+79, PROMPTS+80
BPSAMT PROMPTS+128*, PROMPTS+129, ASKPAID~, ASK1+3
BPSBPSH PAYSHTV+2~, PAYSHTV+6*, PAYSHTV+7, PAYSHTV+8
BPSCD GETCDLST+1~, GETCDLST+5*, GETCDLST+6, GETCDLST+7, GETCDLST+8
BPSCOB DISPSEC+5~, DISPSEC+8*, DISPSEC+19
BPSCOV DISPSEC+5~, DISPSEC+11*, DISPSEC+12*, DISPSEC+13*, DISPSEC+14*, DISPSEC+21
BPSDFLT PROMPTS+17~, PROMPTS+90*, PROMPTS+91, PROMPTS+96*, PROMPTS+97, PROMPTS+102*, PROMPTS+103, PROMPTS+109*, PROMPTS+110*, PROMPTS+111*
, PROMPTS+112, PROMPTS+151*, PROMPTS+152
BPSFIEN PROMPTS+19~
BPSHLP PROMPT~, PROMPT+9
BPSINS PROMPTS+20~, PROMPTS+36
BPSINS("IBBAPI" PROMPTS+40, PROMPTS+41, PROMPTS+42, PROMPTS+43
BPSOK GETCDLST+1~, GETCDLST+6*, GETCDLST+7*, GETCDLST+8
BPSPAID PROMPTS+18~, PROMPTS+121!, PROMPTS+129, PROMPTS+131, ASKPAID~
BPSPAID(1 PROMPTS+134, PROMPTS+135, PROMPTS+136, ASK1+7, ASK1+8, ASK1+9*, ASK1+12*
BPSPAID(2 ASK1+2, ASK1+6, ASK1+13*
BPSPDRJ PROMPTS+19~, PROMPTS+112*, PROMPTS+113, PROMPTS+116, PROMPTS+143
BPSPIEN PROMPTS+18~, PROMPTS+25*, PROMPTS+57, PROMPTS+58, PROMPTS+90, PROMPTS+93, PROMPTS+96, PROMPTS+99, PROMPTS+102, PROMPTS+105
, PROMPTS+110, PROMPTS+111, PROMPTS+118, PROMPTS+119, PROMPTS+125, PROMPTS+126, PROMPTS+128, PROMPTS+133, PROMPTS+135, PROMPTS+139
, PROMPTS+145, PROMPTS+146, PROMPTS+150, PROMPTS+151, PROMPTS+160, PROMPTS+161, PROMPTS+163, PROMPTS+166, PROMPTS+169, PROMPTS+172
, PROMPTS+175, DISPSEC+5~, DISPSEC+8*, DISPSEC+24, DISPSEC+25, DISPSEC+26, DISPSEC+29, DISPSEC+30, DISPSEC+31, DISPSEC+39
, DISPSEC+40, DISPSEC+41
BPSPLAN PROMPTS+17~, PROMPTS+68*, PROMPTS+69, PROMPTS+71, PROMPTS+73, PAYSHTV~, PAYSHTV+4
BPSPLNSL PROMPTS+19~, PROMPTS+68
BPSPLNSL(1 PROMPTS+72
BPSPLNSL(7 PROMPTS+70
BPSPRA ASKPAID+1~, ASK1+9*, ASK1+10
BPSPRARR PROMPTS~, PROMPTS+53, DISPSEC~
BPSPRARR("308-C8" PROMPTS+56, PROMPTS+83*, PROMPTS+85, PROMPTS+87*, PROMPTS+177*, PROMPTS+178*, DISPSEC+11
BPSPRARR("INS NAME" , PROMPTS+39*, PROMPTS+43*, PROMPTS+72*, DISPSEC+19
BPSPRARR("OTH ER PAYER" , PROMPTS+57, PROMPTS+58, PROMPTS+90, PROMPTS+93*, PROMPTS+96, PROMPTS+99*, PROMPTS+102, PROMPTS+105*, PROMPTS+110
, PROMPTS+111, PROMPTS+118!, PROMPTS+119*, PROMPTS+125, PROMPTS+126, PROMPTS+128, PROMPTS+133!, PROMPTS+135*, PROMPTS+139*, PROMPTS+145!
, PROMPTS+146*, PROMPTS+150, PROMPTS+151, PROMPTS+160!, PROMPTS+161*, PROMPTS+163*, PROMPTS+166, PROMPTS+169*, PROMPTS+172*, PROMPTS+175
, DISPSEC+24, DISPSEC+25, DISPSEC+26, DISPSEC+29, DISPSEC+30, DISPSEC+31, DISPSEC+39, DISPSEC+40, DISPSEC+41
BPSPRARR("PLAN" PROMPTS+39*, PROMPTS+42*, PROMPTS+56, PROMPTS+68, PROMPTS+71*
BPSPRARR("PRI OR PAYMENT" , PROMPTS+175, PROMPTS+176*
BPSPRARR("RTYPE" PROMPTS+49*, PROMPTS+50*, PROMPTS+56, PROMPTS+78, PROMPTS+80*, DISPSEC+20
BPSPSARR PROMPTS+19~
BPSPSH PAYSHTV+2~, PAYSHTV+4*, PAYSHTV+6
BPSPSHV PROMPTS+19~, PROMPTS+73*, PROMPTS+124
BPSQ PROMPTS+17~, PROMPTS+22*, PROMPTS+57, PROMPTS+67, PROMPTS+69*, PROMPTS+74*, PROMPTS+75, ASKPAID+1~*, ASK1+7, ASK1+9*
BPSQUAL PROMPTS+126*, PROMPTS+127*, PROMPTS+129, ASKPAID~, ASK1
BPSRET PROMPTS+20~, PROMPTS+36*
BPSRJ PROMPTS+18~, PROMPTS+148!
BPSRJ( PROMPTS+154*, PROMPTS+158*, PROMPTS+161
BPSSET PROMPTS+17~, PROMPTS+18~, PROMPTS+84*, PROMPTS+85, PROMPTS+108*, PROMPTS+112, PROMPTS+124*, PROMPTS+129, PROMPTS+131, ASKPAID~
ASK1, GETCDLST+1~, GETCDLST+4*, GETCDLST+10*, GETCDLST+11, SET308~, SET308+3*
BPSV GETCDLST+1~, GETCDLST+6*, GETCDLST+7
BPSX ASKPAID+1~, ASK1+7*, ASK1+8, ASK1+9
BPX PROMPTS+17~, PROMPTS+39*, PROMPTS+40*, PROMPTS+41, PROMPTS+42, PROMPTS+43, PROMPTS+57*, PROMPTS+122*, PROMPTS+125*, PROMPTS+126
, PROMPTS+128, PROMPTS+134*, PROMPTS+135, PROMPTS+136, PROMPTS+149*, PROMPTS+150*, PROMPTS+151, PROMPTS+161*, DISPSEC+5~, DISPSEC+30*
, DISPSEC+31, DISPSEC+40*, DISPSEC+41, SET308+1~, SET308+2*
BPX1 PROMPTS+19~, PROMPTS+125*, PROMPTS+134*, PROMPTS+139, PROMPTS+150*, PROMPTS+161*, PROMPTS+163
BPZ SET308+1~, SET308+2*, SET308+3
CSUB GETCDLST+1~
DATA DISPSEC+5~, DISPSEC+31*, DISPSEC+32, DISPSEC+33, DISPSEC+34, DISPSEC+36
DFLTVAL PROMPT~, PROMPT+10
DFN PROMPTS+17~, PROMPTS+31*, PROMPTS+32*, PROMPTS+33, PROMPTS+36, PROMPTS+68
DIR PROMPT+6~
DIR("?" PROMPT+9*
DIR("A" PROMPT+8*
DIR("B" PROMPT+10*
DIR(0 PROMPT+7*
DIROUT PROMPT+5~, PROMPT+12
DOS PROMPTS~, PROMPTS+14, PROMPTS+36, PROMPTS+68
DTOUT PROMPT+5~, PROMPT+12
DUOUT PROMPT+5~, PROMPT+12
FILL PROMPTS~, PROMPTS+13, PROMPTS+28, PROMPTS+48
IEN59PR PROMPTS+17~, PROMPTS+28*, PROMPTS+31
IEN59SEC PROMPTS+20~, PROMPTS+48*, PROMPTS+49
PRMTMSG PROMPT~, PROMPT+8
RETV PROMPTS+18~, PROMPTS+85*, PROMPTS+86, PROMPTS+87, PROMPTS+91*, PROMPTS+92, PROMPTS+93, PROMPTS+97*, PROMPTS+98, PROMPTS+99
, PROMPTS+103*, PROMPTS+104, PROMPTS+105, PROMPTS+152*, PROMPTS+153, PROMPTS+154, PROMPTS+156*, PROMPTS+158
RETV1 ASKPAID+1~, ASK1*, ASK1+1, ASK1+2, ASK1+6, ASK1+8, ASK1+10, ASK1+12, ASK1+13, ASK1+14
RETV2 ASKPAID+1~, ASK1+3*, ASK1+4, ASK1+9, ASK1+10, ASK1+12
RX PROMPTS~, PROMPTS+12, PROMPTS+28, PROMPTS+32, PROMPTS+48
TOTAL PROMPTS+18~, PROMPTS+122*, PROMPTS+136*, PROMPTS+176, PROMPTS+177
U PROMPTS+31, PROMPTS+41, PROMPTS+42, PROMPTS+43, PROMPTS+57, PROMPTS+70, PROMPTS+72, PROMPTS+85, PROMPTS+90, PROMPTS+91
, PROMPTS+93, PROMPTS+96, PROMPTS+97, PROMPTS+99, PROMPTS+102, PROMPTS+103, PROMPTS+105, PROMPTS+112, PROMPTS+119, PROMPTS+126
, PROMPTS+128, PROMPTS+139, PROMPTS+146, PROMPTS+154, PROMPTS+158, PROMPTS+163, PROMPTS+169, PROMPTS+172, ASK1ASK1+3
ASK1+8, ASK1+9, ASK1+12, DISPSEC+24, DISPSEC+25, DISPSEC+26, DISPSEC+32, DISPSEC+33, DISPSEC+34, DISPSEC+36
, GETCDLST+7, GETCDLST+8, GETCDLST+10, PAYSHTV+8, SET308+3
VERSION GETCDLST~, GETCDLST+2*, GETCDLST+3*, GETCDLST+7
VSUB GETCDLST+1~
X GETCDLST+1~, GETCDLST+9*, GETCDLST+10
Y PROMPT+5~, PROMPT+12, PROMPT+13
ZERONODE PROMPT~, PROMPT+7

Marked Items

Name Field # of Occurrence
$T(SET308C8+BPX SET308+2
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