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
Print Page as PDF
Routine: BPSRPT9

Package: E Claims Management Engine

Routine: BPSRPT9


Information

BPSRPT9 ;BHAM ISC/BNT - ECME REPORTS ;19-SEPT-08

Source Information

Source file <BPSRPT9.m>

Entry Points

Name Comments DBIA/ICR reference
EN(BPRTYPE) ;
RUN ; Process Report - runs in the background or foreground
PRNTTRI(BPARR) ;
PRNTSEC(BPARR) ;
PRNTSECE(BPARR) ;
GETSORT(BPRTYPE)
ASKCRON() ;
SRTORD(Y) ;
SELDATE() ;
DEV(BPR,BPRTYPE,BPSEXCEL) ;
RPTNAME(BPRTYPE) ;
HDR(BPRTYPE) ;
; BPG is assumed for page #
SELELIG(BPELIG1) ;Select Eligibility Types
SELEXCEL() ; Select whether to capture data for Excel report.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No potential claims available for date range"
  • Line Location: PRNTTRI+10
Function Call: WRITE
  • Prompt: !!,PSRTID,$S($P($P(BPSORT,U),":")="S":$$FMTE^XLFDT($$ABS^XLFMTH(PSRT),"2D"),1:PSRT)
  • Line Location: PRNTTRI+17
Function Call: WRITE
  • Prompt: !," Division: ",SSRT
  • Line Location: PRNTTRI+19
Function Call: WRITE
  • Prompt: !," Division: ",TSRT
  • Line Location: PRNTTRI+21
Function Call: WRITE
  • Prompt: !,RX,?10,FILL,?13,FILLDT,?22,$E(PATNAME,1,15),?38,$P(DATA,U,6),?44,COB,?47,ELIG,?52,PAYER,?69,$P(BPARR(PSRT,SSRT,TSRT,CNT,"INS",INSC),U,3)
  • Line Location: PRNTTRI+32
Function Call: WRITE
  • Prompt: !,?47,ELIG
  • Line Location: PRNTTRI+35
Function Call: WRITE
  • Prompt: !!?5,"No potential secondary Rx claims available for date range"
  • Line Location: PRNTSEC+10
Function Call: WRITE
  • Prompt: !!,PSRTID,$S($P($P(BPSORT,U),":")="S":$$FMTE^XLFDT($$ABS^XLFMTH(PSRT),"2D"),1:PSRT)
  • Line Location: PRNTSEC+19
Function Call: WRITE
  • Prompt: !," Division: ",SSRT
  • Line Location: PRNTSEC+21
Function Call: WRITE
  • Prompt: !," Division: ",TSRT
  • Line Location: PRNTSEC+23
Function Call: WRITE
  • Prompt: !,$P(DATA,U,2),?11,$P(DATA,U,3),?21,$P(DATA,U,4),?26,$E($P(DATA,U,6),1,10),?37,$P(DATA,U,9),?43,$P(DATA,U,7),?46,$P(DATA,U,5),?55,$E($P(DATA,U,8),1,13),?69,$P(DATA,U,10)
  • Line Location: PRNTSEC+28
Function Call: WRITE
  • Prompt: !,?43,$P(INSDATA,U),?55,$E($P(INSDATA,U,2),1,13),?69,$P(INSDATA,U,3)
  • Line Location: PRNTSEC+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTSEC+43
Function Call: WRITE
  • Prompt: !,"Bill# ""(P) Rej"" indicates a rejected/closed primary ECME claim"
  • Line Location: PRNTSEC+44
Function Call: WRITE
  • Prompt: !,"COB ""-"" indicates a blank COB field in the pt. ins. policy"
  • Line Location: PRNTSEC+45
Function Call: WRITE
  • Prompt: !,"Division^Bill#^RX#^Fill^Patient^PatID^COB^Date^Payers^HPID/OEID"
  • Line Location: PRNTSECE+2
Function Call: WRITE
  • Prompt: !,@BPSAR
  • Line Location: PRNTSECE+7
Function Call: WRITE
  • Prompt: !,"Bill# ""(P) Rej"" indicates a rejected/closed primary ECME claim"
  • Line Location: PRNTSECE+8
Function Call: WRITE
  • Prompt: !,"COB ""-"" indicates a blank COB field in the pt. ins. policy"
  • Line Location: PRNTSECE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDATE+3
Function Call: WRITE
  • Prompt: !,"QUEUED TASK #",ZTSK
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $$RPTNAME(BPRTYPE)," ",$$FMTE^XLFDT($P(BPDT,U),"2D")," - ",$$FMTE^XLFDT($P(BPDT,U,2),"2D"),?IOM-10," Page: ",BPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Selected Divisions: "
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: $P(BPPHARM(X),U,2),"; "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: "CHAMPVA"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: "; "
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "TRICARE"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"Sorted By: "_$P($P(BPSORT,U),":",2)_" "_$P($P(BPSORT,U,2),":",2)_" "_$P($P(BPSORT,U,3),":",2)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"'*' indicates the HPID/OEID failed validation checks"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"Bill#",?11,"RX#",?21,"Fill",?26,"Patient",?36,"PatID",?42,"COB",?46,"Date",?55,"Payers",?69,"HPID/OEID",!
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !,"RX#",?9,"Fill",?14,"Date",?22,"Patient",?37,"PatID",?43,"COB",?47,"Elig",?53,"Payers",?69,"HPID/OEID",!
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEXCEL+4
Info |  Source |  Entry Points |  Interaction Calls