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

Package: E Claims Management Engine

Routine: BPSPRRX3


Information

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

Source Information

Source file <BPSPRRX3.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399.3 - [#399.3] GET1^DIQ
^BPS(9002313.2 - [#9002313.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call