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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$ABS^XLFMTH  
E Claims Management Engine 3 $$SELMULTI^BPSOPR  $$SELPHARM^BPSRPT3  (GETSEC,GETTRI)^BPSRPT9A  
VA FileMan 2 EN^DDIOL  ^DIR  

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

Package Total Caller Graph
E Claims Management Engine 2 BPS COB RPT SECONDARY CLAIMS  BPS POTENTIAL CLAIMS RPT DUAL  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+5
^%ZISC RUN+9
^%ZTLOAD DEV+5
$$SELMULTI^BPSOPR SELELIG+7
$$SELPHARM^BPSRPT3 EN+10
GETSEC^BPSRPT9A RUN+2
GETTRI^BPSRPT9A RUN+3
EN^DDIOL EN+5, EN+7, GETSORT+6
^DIR GETSORT+14, GETSORT+26, GETSORT+38, ASKCRON+5, SELDATE+3, SELDATE+11, HDR+4
$$FMTE^XLFDT PRNTTRI+17, PRNTSEC+17, HDR+8
$$ABS^XLFMTH PRNTTRI+17, PRNTSEC+17

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+17
Function Call: WRITE
  • Prompt: !," Division: ",SSRT
  • Line Location: PRNTSEC+19
Function Call: WRITE
  • Prompt: !," Division: ",TSRT
  • Line Location: PRNTSEC+21
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+26
Function Call: WRITE
  • Prompt: !,?43,$P(INSDATA,U),?55,$E($P(INSDATA,U,2),1,13),?69,$P(INSDATA,U,3)
  • Line Location: PRNTSEC+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTSEC+41
Function Call: WRITE
  • Prompt: !,"Bill# ""(P) Rej"" indicates a rejected/closed primary ECME claim"
  • Line Location: PRNTSEC+42
Function Call: WRITE
  • Prompt: !,"COB ""-"" indicates a blank COB field in the pt. ins. policy"
  • Line Location: PRNTSEC+43
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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
Routine Call
  • DIR
  • Line Location:
    • GETSORT+14
    • GETSORT+26
    • GETSORT+38
    • ASKCRON+5
    • SELDATE+3
    • SELDATE+11
    • HDR+4

Label References

Name Line Occurrences
$$ASKCRON GETSORT+18, GETSORT+30, GETSORT+42
$$GETSORT EN+19
$$RPTNAME DEV+4, HDR+8
$$SELDATE EN+16
$$SELELIG EN+12
$$SRTORD GETSORT+22, GETSORT+34
@( DEV+6
DEV EN+21
HDR PRNTTRI+9, PRNTTRI+14, PRNTTRI+30, PRNTSEC+9, PRNTSEC+14, PRNTSEC+24, PRNTSEC+32, PRNTSEC+40
PRNTSEC RUN+7
PRNTTRI RUN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~, DEV+2*
BPARR EN+1~, PRNTTRI~, PRNTTRI+8, PRNTSEC~, PRNTSEC+8
BPARR( PRNTTRI+15, PRNTTRI+18, PRNTTRI+20, PRNTTRI+22, PRNTTRI+23, PRNTTRI+25, PRNTTRI+27, PRNTTRI+29, PRNTTRI+32, PRNTTRI+33
, PRNTSEC+15, PRNTSEC+18, PRNTSEC+20, PRNTSEC+22, PRNTSEC+23, PRNTSEC+30, PRNTSEC+31
BPCRON EN+2~, GETSORT+2*, GETSORT+18*, GETSORT+30*, GETSORT+42*
BPDIV HDR+3~
BPDIVS EN+2~
BPDT EN+2~, EN+16*, RUN+2, RUN+3, HDR+8
BPELIG1 EN+2~, EN+12, HDR+14, SELELIG~, SELELIG+7
BPELIG1("C" HDR+15, HDR+16
BPELIG1("T" HDR+16, HDR+17
BPG PRNTTRI+1~, PRNTTRI+5*, PRNTSEC+1~, PRNTSEC+5*, HDR+4, HDR+5*, HDR+8
BPINS EN+1~
BPPHARM EN+2~, HDR+10, HDR+11
BPPHARM( HDR+11
BPQUIT PRNTTRI+1~, PRNTTRI+5*, PRNTTRI+15, PRNTTRI+18, PRNTTRI+20, PRNTTRI+22, PRNTTRI+30, PRNTSEC+1~, PRNTSEC+5*, PRNTSEC+15
, PRNTSEC+18, PRNTSEC+20, PRNTSEC+22, PRNTSEC+24, PRNTSEC+30, PRNTSEC+32, PRNTSEC+37, PRNTSEC+40, HDR+2, HDR+4*
BPR DEV~, DEV+4, DEV+6
BPREJCD EN+1~
BPRLNRL EN+1~
BPRPTARR RUN+1~, RUN+2, RUN+3, RUN+6, RUN+7
BPRPTNAM EN+1~
BPRTBCK EN+1~
BPRTYPE EN~, EN+5, EN+12, EN+19, EN+21, RUN+2, RUN+3, RUN+6, RUN+7, PRNTTRI+9
, PRNTTRI+14, PRNTTRI+30, PRNTSEC+9, PRNTSEC+14, PRNTSEC+24, PRNTSEC+32, PRNTSEC+40, GETSORT~, GETSORT+4, GETSORT+8
, GETSORT+16, GETSORT+17, GETSORT+28, GETSORT+29, GETSORT+40, GETSORT+41, SRTORD+5, SRTORD+7, DEV~, DEV+4
, RPTNAME~, RPTNAME+2, HDR~, HDR+8, HDR+12, HDR+22, HDR+26
BPS1 EN+2~, GETSORT~, GETSORT+3*, GETSORT+7, GETSORT+16, GETSORT+17, GETSORT+28, GETSORT+29, GETSORT+40, GETSORT+41
, SRTORD+1*, SRTORD+6
BPS2 EN+2~, GETSORT~, GETSORT+3*, GETSORT+7, GETSORT+16, GETSORT+17, GETSORT+28, GETSORT+29, GETSORT+40, GETSORT+41
, SRTORD+2*, SRTORD+6
BPS3 EN+2~, GETSORT~, GETSORT+3*, GETSORT+7, GETSORT+16, GETSORT+17, GETSORT+28, GETSORT+29, GETSORT+40, GETSORT+41
, SRTORD+3*, SRTORD+6
BPS4 EN+2~, GETSORT~, GETSORT+3*, GETSORT+7, GETSORT+16, GETSORT+17, GETSORT+28, GETSORT+29, GETSORT+40, GETSORT+41
, SRTORD+4*, SRTORD+6
BPS5 EN+2~, GETSORT~, GETSORT+4*, GETSORT+8, GETSORT+17, GETSORT+29, GETSORT+41, SRTORD+5*, SRTORD+7
BPSCR EN+1~
BPSEL EN+2~, GETSORT~, GETSORT+7*, GETSORT+8*, GETSORT+10, GETSORT+22*, GETSORT+23, GETSORT+34*, GETSORT+35, SRTORD+6*
, SRTORD+7*, SRTORD+8
BPSIBDT SELDATE+1~
BPSORT EN+2~, PRNTTRI+3, PRNTTRI+4, PRNTTRI+16, PRNTTRI+17, PRNTSEC+3, PRNTSEC+4, PRNTSEC+16, PRNTSEC+17, GETSORT+2*
, GETSORT+16*, GETSORT+17*, GETSORT+22, GETSORT+28*, GETSORT+29*, GETSORT+34, GETSORT+40*, GETSORT+41*, HDR+18
BPSUMDET EN+1~
CNT PRNTTRI+1~, PRNTTRI+5*, PRNTTRI+22*, PRNTTRI+23, PRNTTRI+25, PRNTTRI+27, PRNTTRI+29, PRNTTRI+32, PRNTTRI+33, PRNTSEC+1~
, PRNTSEC+22*, PRNTSEC+23, PRNTSEC+30, PRNTSEC+31
COB PRNTTRI+1~, PRNTTRI+26*, PRNTTRI+32
CODE EN+1~
DATA PRNTTRI+1~, PRNTTRI+23*, PRNTTRI+24, PRNTTRI+32, PRNTSEC+1~, PRNTSEC+23*, PRNTSEC+26, PRNTSEC+29
DIR GETSORT~, GETSORT+14!, GETSORT+21~, GETSORT+26!, GETSORT+33~, GETSORT+38!, ASKCRON+1~, ASKCRON+5!, SELDATE+1~, HDR+3~
, HDR+4!, SELELIG+1~, SELELIG+7
DIR("?" GETSORT+11*, GETSORT+24*, GETSORT+37*
DIR("A" GETSORT+12*, GETSORT+25*, GETSORT+36*, ASKCRON+3*, SELDATE+2*, SELDATE+10*, SELELIG+4*
DIR("B" GETSORT+13*, ASKCRON+4*, SELDATE+10*, SELELIG+5*
DIR(0 GETSORT+10*, GETSORT+23*, GETSORT+35*, ASKCRON+2*, SELDATE+2*, SELDATE+10*, HDR+4*, SELELIG+3*
DIRUT GETSORT~, GETSORT+21~, GETSORT+33~, ASKCRON+1~, ASKCRON+6, SELDATE+1~, HDR+4!
DT PRNTTRI+13, PRNTTRI+18, PRNTTRI+20, PRNTSEC+13, PRNTSEC+18, PRNTSEC+20
DTOUT GETSORT~, GETSORT+15, GETSORT+21~, GETSORT+27, GETSORT+33~, GETSORT+39, ASKCRON+1~, ASKCRON+6, SELDATE+1~, SELDATE+6
, SELDATE+14, HDR+4!
DUOUT GETSORT~, GETSORT+15, GETSORT+21~, GETSORT+27, GETSORT+33~, GETSORT+39, ASKCRON+1~, ASKCRON+6, SELDATE+1~, SELDATE+6
, SELDATE+14, HDR+4!
ELIG PRNTTRI+1~, PRNTTRI+27*, PRNTTRI+32, PRNTTRI+33*, PRNTTRI+35
FILL PRNTTRI+1~, PRNTTRI+24*, PRNTTRI+32
FILLDT PRNTTRI+1~, PRNTTRI+24*, PRNTTRI+32
INSC PRNTTRI+1~, PRNTTRI+25*, PRNTTRI+26, PRNTTRI+29, PRNTTRI+32, PRNTSEC+1~, PRNTSEC+30*, PRNTSEC+31
INSDATA PRNTSEC+1~, PRNTSEC+31*, PRNTSEC+34, PRNTSEC+35
IO RUN+5
IO("Q" DEV+3, DEV+5!
IOF HDR+6
IOM HDR+7, HDR+8, HDR+29
IOSL PRNTTRI+30, PRNTSEC+24, PRNTSEC+32, PRNTSEC+40
IOST HDR+4
LGFLG1 PRNTSEC+1~, PRNTSEC+29*, PRNTSEC+38, PRNTSEC+42
LGFLG2 PRNTSEC+1~, PRNTSEC+35*, PRNTSEC+38, PRNTSEC+43
PATNAME PRNTTRI+1~, PRNTTRI+24*, PRNTTRI+32
PAYER PRNTTRI+1~, PRNTTRI+29*, PRNTTRI+32, PRNTSEC+1~
POP DEV+1~, DEV+2
POS EN+1~
PSRT PRNTTRI+1~, PRNTTRI+13*, PRNTTRI+15*, PRNTTRI+17, PRNTTRI+18, PRNTTRI+20, PRNTTRI+22, PRNTTRI+23, PRNTTRI+25, PRNTTRI+27
, PRNTTRI+29, PRNTTRI+32, PRNTTRI+33, PRNTSEC+1~, PRNTSEC+13*, PRNTSEC+15*, PRNTSEC+17, PRNTSEC+18, PRNTSEC+20, PRNTSEC+22
, PRNTSEC+23, PRNTSEC+30, PRNTSEC+31
PSRTID PRNTTRI+1~, PRNTTRI+16*, PRNTTRI+17, PRNTSEC+1~, PRNTSEC+16*, PRNTSEC+17
RX PRNTTRI+1~, PRNTTRI+24*, PRNTTRI+32
SSRT PRNTTRI+1~, PRNTTRI+18*, PRNTTRI+19, PRNTTRI+20, PRNTTRI+22, PRNTTRI+23, PRNTTRI+25, PRNTTRI+27, PRNTTRI+29, PRNTTRI+32
, PRNTTRI+33, PRNTSEC+1~, PRNTSEC+18*, PRNTSEC+19, PRNTSEC+20, PRNTSEC+22, PRNTSEC+23, PRNTSEC+30, PRNTSEC+31
SSRTTYP PRNTTRI+2~, PRNTTRI+3*, PRNTTRI+19, PRNTSEC+2~, PRNTSEC+3*, PRNTSEC+19
STAT EN+1~
TSRT PRNTTRI+1~, PRNTTRI+20*, PRNTTRI+21, PRNTTRI+22, PRNTTRI+23, PRNTTRI+25, PRNTTRI+27, PRNTTRI+29, PRNTTRI+32, PRNTTRI+33
, PRNTSEC+1~, PRNTSEC+20*, PRNTSEC+21, PRNTSEC+22, PRNTSEC+23, PRNTSEC+30, PRNTSEC+31
TSRTTYP PRNTTRI+2~, PRNTTRI+4*, PRNTTRI+21, PRNTSEC+2~, PRNTSEC+4*, PRNTSEC+21
U PRNTTRI+3, PRNTTRI+4, PRNTTRI+16, PRNTTRI+17, PRNTTRI+24, PRNTTRI+27, PRNTTRI+29, PRNTTRI+32, PRNTTRI+33, PRNTSEC+3
, PRNTSEC+4, PRNTSEC+16, PRNTSEC+17, PRNTSEC+26, PRNTSEC+29, PRNTSEC+34, PRNTSEC+35, GETSORT+16, GETSORT+17, GETSORT+22
, GETSORT+28, GETSORT+29, GETSORT+34, GETSORT+40, GETSORT+41, SELDATE+9, SELDATE+17, HDR+8, HDR+11, HDR+18
VAL SELDATE+1~, SELDATE+2*, SELDATE+6*, SELDATE+8, SELDATE+9*, SELDATE+10, SELDATE+14*, SELDATE+17*, SELDATE+19
X EN+1~, EN+10*, EN+12*, GETSORT~, GETSORT+21~, GETSORT+33~, ASKCRON+1~, SELDATE+1~, SELDATE+6, SELDATE+14
, HDR+3~, HDR+7*, HDR+11*, HDR+29*, SELELIG+1~, SELELIG+7*, SELELIG+8
Y EN+1~, GETSORT~, GETSORT+16, GETSORT+17, GETSORT+18, GETSORT+21~, GETSORT+28, GETSORT+29, GETSORT+30, GETSORT+33~
, GETSORT+40, GETSORT+41, GETSORT+42, ASKCRON+1~, ASKCRON+7, SRTORD~, SRTORD+1, SRTORD+2, SRTORD+3, SRTORD+4
, SRTORD+5, SELDATE+1~, SELDATE+9, SELDATE+17, HDR+3~
ZTDESC DEV+1~, DEV+4*
>> ZTQUEUED RUN+10
>> ZTREQ RUN+10*
ZTRTN DEV+1~, DEV+4*
ZTSAVE DEV+1~
ZTSAVE("BP*" DEV+4*
ZTSK DEV+1~, DEV+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All