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

Package: E Claims Management Engine

Routine: BPSRPT4


Information

BPSRPT4 ;BHAM ISC/BEE - ECME REPORTS (CONT) ;14-FEB-05

Source Information

Source file <BPSRPT4.m>

Entry Points

Name Comments DBIA/ICR reference
SELRLNRL(DFLT)
SELRC(DFLT) ;
SELREJCD() ;
; Allow user to select a single or multiple REJECT CODEs.
BPSREJCD ;
SELAUREV(DFLT)
SELACREJ(DFLT)
SELCCR(DFLT) ;
SELCCRSN(DFLT) ;
BPSCCR ;
RCSEL(BPSARRAY) ;
; Prompts user to select one or more Reject Codes
CCRSEL(FIELD,FILE,BPSARRAY,DEFAULT) ;
; Provides selection of one or many Close Claim Reasons.
GETDIVS(BPLEN,BPPHARM)
GETREJ(REJ) ;
HEADLN1(BPRTYPE) ;
HEADLN2(BPRTYPE) ;
HEADLN3(BPTYP) ;
SELEXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
HEXC ; - 'Do you want to capture data...' prompt
EXMSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?2,"Selected:"
  • Line Location: RCSEL+27
Function Call: WRITE
  • Prompt: ?12,$P(BPSARRAY("B",X),U)," ",$P(BPSARRAY("B",X),U,2),!
  • Line Location: RCSEL+29
Function Call: WRITE
  • Prompt: !,?2,"Selected:"
  • Line Location: RCSEL+40
Function Call: WRITE
  • Prompt: ?12,$P(BPSARRAY("B",X),U,1)," ",$P(BPSARRAY("B",X),U,2),!
  • Line Location: RCSEL+41
Function Call: WRITE
  • Prompt: !,?2,"Selected:"
  • Line Location: CCRSEL+25
Function Call: WRITE
  • Prompt: ?12,BPSARRAY(X),!
  • Line Location: CCRSEL+26
Function Call: WRITE
  • Prompt: !,?2,"Selected:"
  • Line Location: CCRSEL+34
Function Call: WRITE
  • Prompt: ?12,BPSARRAY(X),!
  • Line Location: CCRSEL+35
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?27,"Pt.ID"
  • Line Location: HEADLN1+1
Function Call: WRITE
  • Prompt: ?35,"ELIG"
  • Line Location: HEADLN1+4
Function Call: WRITE
  • Prompt: ?40,"RX#"
  • Line Location: HEADLN1+5
Function Call: WRITE
  • Prompt: ?52,"REF/ECME#"
  • Line Location: HEADLN1+6
Function Call: WRITE
  • Prompt: ?73,"DATE"
  • Line Location: HEADLN1+7
Function Call: WRITE
  • Prompt: ?83,$J("$BILLED",10)
  • Line Location: HEADLN1+8
Function Call: WRITE
  • Prompt: ?102,$J("$INS RESPONSE",13)
  • Line Location: HEADLN1+9
Function Call: WRITE
  • Prompt: ?122,$J("$COLLECT",10)
  • Line Location: HEADLN1+10
Function Call: WRITE
  • Prompt: ?35,"ELIG"
  • Line Location: HEADLN1+13
Function Call: WRITE
  • Prompt: ?40,"RX#"
  • Line Location: HEADLN1+14
Function Call: WRITE
  • Prompt: ?52,"REF/ECME#"
  • Line Location: HEADLN1+15
Function Call: WRITE
  • Prompt: ?73,"DATE"
  • Line Location: HEADLN1+16
Function Call: WRITE
  • Prompt: ?83,"RELEASED ON"
  • Line Location: HEADLN1+17
Function Call: WRITE
  • Prompt: ?96,"RX INFO"
  • Line Location: HEADLN1+18
Function Call: WRITE
  • Prompt: ?114,"COB"
  • Line Location: HEADLN1+19
Function Call: WRITE
  • Prompt: ?121,"OPEN/CLOSED"
  • Line Location: HEADLN1+20
Function Call: WRITE
  • Prompt: ?35,"RX#"
  • Line Location: HEADLN1+23
Function Call: WRITE
  • Prompt: ?47,"REF/ECME#"
  • Line Location: HEADLN1+24
Function Call: WRITE
  • Prompt: ?68,"DATE"
  • Line Location: HEADLN1+25
Function Call: WRITE
  • Prompt: ?100,$J("$BILLED",10)
  • Line Location: HEADLN1+26
Function Call: WRITE
  • Prompt: ?119,$J("$INS RESPONSE",13)
  • Line Location: HEADLN1+27
Function Call: WRITE
  • Prompt: ?35,"RX#"
  • Line Location: HEADLN1+30
Function Call: WRITE
  • Prompt: ?47,"REF/ECME#"
  • Line Location: HEADLN1+31
Function Call: WRITE
  • Prompt: ?65,"COMPLETED"
  • Line Location: HEADLN1+32
Function Call: WRITE
  • Prompt: ?83,"TRANS TYPE"
  • Line Location: HEADLN1+33
Function Call: WRITE
  • Prompt: ?100,"PAYER RESPONSE"
  • Line Location: HEADLN1+34
Function Call: WRITE
  • Prompt: ?125,"COB"
  • Line Location: HEADLN1+35
Function Call: WRITE
  • Prompt: !,?33,$J("AMOUNT",17)
  • Line Location: HEADLN1+38
Function Call: WRITE
  • Prompt: ?51,$J("RETURNED",17)
  • Line Location: HEADLN1+39
Function Call: WRITE
  • Prompt: ?69,$J("RETURNED",17)
  • Line Location: HEADLN1+40
Function Call: WRITE
  • Prompt: ?87,$J("AMOUNT",17)
  • Line Location: HEADLN1+41
Function Call: WRITE
  • Prompt: ?35,"ELIG"
  • Line Location: HEADLN1+44
Function Call: WRITE
  • Prompt: ?40,"RX#"
  • Line Location: HEADLN1+45
Function Call: WRITE
  • Prompt: ?52,"REF/ECME#"
  • Line Location: HEADLN1+46
Function Call: WRITE
  • Prompt: ?70,"RX INFO"
  • Line Location: HEADLN1+47
Function Call: WRITE
  • Prompt: ?89,"DRUG"
  • Line Location: HEADLN1+48
Function Call: WRITE
  • Prompt: ?118,"NDC"
  • Line Location: HEADLN1+49
Function Call: WRITE
  • Prompt: ?35,"RX#"
  • Line Location: HEADLN1+52
Function Call: WRITE
  • Prompt: ?47,"REF/ECME#"
  • Line Location: HEADLN1+53
Function Call: WRITE
  • Prompt: ?68,"DATE"
  • Line Location: HEADLN1+54
Function Call: WRITE
  • Prompt: ?78,$J("$BILLED",10)
  • Line Location: HEADLN1+55
Function Call: WRITE
  • Prompt: ?97,$J("$INS RESPONSE",13)
  • Line Location: HEADLN1+56
Function Call: WRITE
  • Prompt: ?122,$J("$COLLECT",10)
  • Line Location: HEADLN1+57
Function Call: WRITE
  • Prompt: ?35,"ELIG"
  • Line Location: HEADLN1+60
Function Call: WRITE
  • Prompt: ?40,"RX#"
  • Line Location: HEADLN1+61
Function Call: WRITE
  • Prompt: ?52,"REF"
  • Line Location: HEADLN1+62
Function Call: WRITE
  • Prompt: ?64,"DATE"
  • Line Location: HEADLN1+63
Function Call: WRITE
  • Prompt: ?84,$J("$DRUG COST",10)
  • Line Location: HEADLN1+64
Function Call: WRITE
  • Prompt: ?35,"ELIG"
  • Line Location: HEADLN1+67
Function Call: WRITE
  • Prompt: ?45,"REF/ECME#"
  • Line Location: HEADLN1+68
Function Call: WRITE
  • Prompt: ?65,"DATE"
  • Line Location: HEADLN1+69
Function Call: WRITE
  • Prompt: ?77,$J("$BILLED",10)
  • Line Location: HEADLN1+70
Function Call: WRITE
  • Prompt: ?90,$J("$INS RESPONSE",13)
  • Line Location: HEADLN1+71
Function Call: WRITE
  • Prompt: ?106,$J("$COLLECT",10)
  • Line Location: HEADLN1+72
Function Call: WRITE
  • Prompt: ?118,$J("Pt.RESP(INS)",12)
  • Line Location: HEADLN1+73
Function Call: WRITE
  • Prompt: !,?4,"DRUG"
  • Line Location: HEADLN2+2
Function Call: WRITE
  • Prompt: ?36,"NDC"
  • Line Location: HEADLN2+3
Function Call: WRITE
  • Prompt: ?47,"RELEASED ON"
  • Line Location: HEADLN2+4
Function Call: WRITE
  • Prompt: ?68,"RX INFO"
  • Line Location: HEADLN2+5
Function Call: WRITE
  • Prompt: ?92,"COB"
  • Line Location: HEADLN2+6
Function Call: WRITE
  • Prompt: ?120,"BILL#",?129,"COB"
  • Line Location: HEADLN2+7
Function Call: WRITE
  • Prompt: !,?3,"CARDHOLD.ID"
  • Line Location: HEADLN2+10
Function Call: WRITE
  • Prompt: ?26,"GROUP ID"
  • Line Location: HEADLN2+11
Function Call: WRITE
  • Prompt: ?41,$J("$BILLED",10)
  • Line Location: HEADLN2+12
Function Call: WRITE
  • Prompt: ?54,"QTY"
  • Line Location: HEADLN2+13
Function Call: WRITE
  • Prompt: ?61,"NDC#"
  • Line Location: HEADLN2+14
Function Call: WRITE
  • Prompt: ?82,"PRESCRIBER ID"
  • Line Location: HEADLN2+15
Function Call: WRITE
  • Prompt: ?98,"NAME"
  • Line Location: HEADLN2+16
Function Call: WRITE
  • Prompt: !,?4,"DRUG"
  • Line Location: HEADLN2+19
Function Call: WRITE
  • Prompt: ?43,"NDC"
  • Line Location: HEADLN2+20
Function Call: WRITE
  • Prompt: ?68,"RX INFO"
  • Line Location: HEADLN2+21
Function Call: WRITE
  • Prompt: ?88,"COB"
  • Line Location: HEADLN2+22
Function Call: WRITE
  • Prompt: ?96,"ELIG"
  • Line Location: HEADLN2+23
Function Call: WRITE
  • Prompt: !,?4,"DRUG"
  • Line Location: HEADLN2+26
Function Call: WRITE
  • Prompt: ?32,"NDC"
  • Line Location: HEADLN2+27
Function Call: WRITE
  • Prompt: ?47,"RX INFO"
  • Line Location: HEADLN2+28
Function Call: WRITE
  • Prompt: ?69,"INSURANCE"
  • Line Location: HEADLN2+29
Function Call: WRITE
  • Prompt: ?112,"ELAP TIME IN SECONDS"
  • Line Location: HEADLN2+30
Function Call: WRITE
  • Prompt: !,?3,"CARDHOLD.ID"
  • Line Location: HEADLN2+42
Function Call: WRITE
  • Prompt: ?27,"GROUP ID"
  • Line Location: HEADLN2+43
Function Call: WRITE
  • Prompt: ?46,"CLOSE DATE/TIME"
  • Line Location: HEADLN2+44
Function Call: WRITE
  • Prompt: ?65,"CLOSED BY"
  • Line Location: HEADLN2+45
Function Call: WRITE
  • Prompt: ?93,"CLOSE REASON"
  • Line Location: HEADLN2+46
Function Call: WRITE
  • Prompt: ?126,"COB"
  • Line Location: HEADLN2+47
Function Call: WRITE
  • Prompt: !,?2,"DRUG"
  • Line Location: HEADLN2+50
Function Call: WRITE
  • Prompt: ?38,"RX INFO"
  • Line Location: HEADLN2+51
Function Call: WRITE
  • Prompt: ?54,"INS GROUP#"
  • Line Location: HEADLN2+52
Function Call: WRITE
  • Prompt: ?72,"INS GROUP NAME"
  • Line Location: HEADLN2+53
Function Call: WRITE
  • Prompt: ?125,"BILL#"
  • Line Location: HEADLN2+54
Function Call: WRITE
  • Prompt: !,?4,"DRUG"
  • Line Location: HEADLN2+57
Function Call: WRITE
  • Prompt: ?36,"NDC"
  • Line Location: HEADLN2+58
Function Call: WRITE
  • Prompt: ?47,"RELEASED ON"
  • Line Location: HEADLN2+59
Function Call: WRITE
  • Prompt: ?62,"RX INFO"
  • Line Location: HEADLN2+60
Function Call: WRITE
  • Prompt: ?75,"NON-BILLABLE STATUS"
  • Line Location: HEADLN2+61
Function Call: WRITE
  • Prompt: !,?4,"DRUG"
  • Line Location: HEADLN2+64
Function Call: WRITE
  • Prompt: ?36,"NDC"
  • Line Location: HEADLN2+65
Function Call: WRITE
  • Prompt: ?47,"RELEASED ON"
  • Line Location: HEADLN2+66
Function Call: WRITE
  • Prompt: ?68,"RX INFO"
  • Line Location: HEADLN2+67
Function Call: WRITE
  • Prompt: ?94,"BILL#"
  • Line Location: HEADLN2+68
Function Call: WRITE
  • Prompt: ?112,"COB"
  • Line Location: HEADLN2+69
Function Call: WRITE
  • Prompt: ?119,"STATUS"
  • Line Location: HEADLN2+70
Function Call: WRITE
  • Prompt: !,?6,"RELEASED ON"
  • Line Location: HEADLN3+2
Function Call: WRITE
  • Prompt: ?22,"REVERSAL METHOD/RETURN STATUS/REASON"
  • Line Location: HEADLN3+3
Function Call: WRITE
  • Prompt: !,?4,"$PROVIDER NETWORK"
  • Line Location: HEADLN3+6
Function Call: WRITE
  • Prompt: ?23,"$BRAND DRUG"
  • Line Location: HEADLN3+7
Function Call: WRITE
  • Prompt: ?38,"$NON-PREF FORM"
  • Line Location: HEADLN3+8
Function Call: WRITE
  • Prompt: ?56,"$BRAND NON-PREF FORM"
  • Line Location: HEADLN3+9
Function Call: WRITE
  • Prompt: ?81,"$COVERAGE GAP"
  • Line Location: HEADLN3+10
Function Call: WRITE
  • Prompt: ?96,"$HEALTH ASST"
  • Line Location: HEADLN3+11
Function Call: WRITE
  • Prompt: ?111,"$SPEND ACCT REMAINING"
  • Line Location: HEADLN3+12
Function Call: WRITE
  • Prompt: !!,"Data fields VA Ingredient Cost, VA Dispensing Fee, Ingredient Cost Paid,",!
  • Line Location: SELEXCEL+5
Function Call: WRITE
  • Prompt: "Dispensing Fee Paid and Patient Responsibility (INS) will only be included",!
  • Line Location: SELEXCEL+6
Function Call: WRITE
  • Prompt: "when the report is captured for an Excel document. All additional data fields",!
  • Line Location: SELEXCEL+7
Function Call: WRITE
  • Prompt: "may not be present for all reports."
  • Line Location: SELEXCEL+8
Function Call: WRITE
  • Prompt: !!,"Data field for billed amount will only be included when the report is captured",!
  • Line Location: SELEXCEL+10
Function Call: WRITE
  • Prompt: "for an Excel document. All additional data fields may not be present for all",!
  • Line Location: SELEXCEL+11
Function Call: WRITE
  • Prompt: "reports."
  • Line Location: SELEXCEL+12
Function Call: WRITE
  • Prompt: !!,"Data fields VA Ingredient Cost, VA Dispensing Fee, Ingredient Cost Paid",!
  • Line Location: SELEXCEL+14
Function Call: WRITE
  • Prompt: "and Dispensing Fee Paid will only be included when the report is captured",!
  • Line Location: SELEXCEL+15
Function Call: WRITE
  • Prompt: "for an Excel document. All additional data fields may not be present for all",!
  • Line Location: SELEXCEL+16
Function Call: WRITE
  • Prompt: "reports."
  • Line Location: SELEXCEL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEXCEL+19
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: HEXC+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: HEXC+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: HEXC+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: HEXC+4
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXMSG+10
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: EXMSG+11
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: EXMSG+12
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+13
Function Call: WRITE
  • Prompt: !?5," please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSF(9002313.93 - [#9002313.93] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call