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

Package: E Claims Management Engine

Routine: BPSRCRI


Information

BPSRCRI ;BHAM ISC/NSS - ECME REPORTS ;08-FEB-07

Source Information

Source file <BPSRCRI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  $$ROOT^DILFD  ($$GET1,EN,GETS)^DIQ  

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

Package Total Caller Graph
E Claims Management Engine 1 BPS RPT CLAIMS RESPONSE  

Entry Points

Name Comments DBIA/ICR reference
EN ; Routine entry point
BPIEN(BPCFILE) ; User is prompted for input, cross-ref "B" lookup
DEVICE() ;
RUNRPT ;
BPFLDS ; Build BPLARR array of data
PRNTRPT ; Output the reports
PRTTRANS ; Print transaction file report
PRT02
PRT03 ; Response file output
CHKP(BPLINES) ;
PAUSE ;
PAUSE2 ;
EXIT ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
HOME^%ZIS DEVICE+17
^%ZISC PRNTRPT+21
^%ZTLOAD DEVICE+15
^DIC BPIEN+5
$$ROOT^DILFD BPIEN+2, PRT02+3, PRT03+4
$$GET1^DIQ BPFLDS+21, BPFLDS+32
EN^DIQ PRT02+5, PRT03+5
GETS^DIQ BPFLDS+22, BPFLDS+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"ECME Claims-Response Inquiry Report",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Note: This report contains three separate sections - transaction data, claims"
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !," data, and response data. There will be a page break/form feed after"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !," each section regardless of the page length specified in the device input.",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNTRPT+3
Function Call: WRITE
  • Prompt: "ECME Claims-Response Inquiry Report"
  • Line Location: PRNTRPT+5
Function Call: WRITE
  • Prompt: ?48,"Print Date: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)
  • Line Location: PRNTRPT+6
Function Call: WRITE
  • Prompt: !,"VA CLAIM ID: "_BPVAX,!
  • Line Location: PRNTRPT+7
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: PRNTRPT+9
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: PRNTRPT+13
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: PRNTRPT+18
Function Call: WRITE
  • Prompt: !,"BPS TRANSACTION/BPS LOG OF TRANSACTION DATA: ",!
  • Line Location: PRTTRANS+1
Function Call: WRITE
  • Prompt: !,"NO TRANSACTION MATCHES FOUND",!!
  • Line Location: PRTTRANS+2
Function Call: WRITE
  • Prompt: !,BPLARR(BPX)
  • Line Location: PRTTRANS+8
Function Call: WRITE
  • Prompt: ?40,BPLARR(BPX)
  • Line Location: PRTTRANS+9
Function Call: WRITE
  • Prompt: !,BPLARR(BPX)
  • Line Location: PRTTRANS+10
Function Call: WRITE
  • Prompt: !,"BPS CLAIMS FILE DATA: "
  • Line Location: PRT02+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT02+4
Function Call: WRITE
  • Prompt: !!,"BPS RESPONSE FILE DATA: ",!
  • Line Location: PRT03+1
Function Call: WRITE
  • Prompt: !,"NO RESPONSE FILE DATA FOUND",!!
  • Line Location: PRT03+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIC
  • Line Location:
    • BPIEN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSR - [#9002313.03] ROOT^DILFD
^BPSTL - [#9002313.57] GET1^DIQ
9002313.57902 GETS^DIQ
^BPST - [#9002313.59] GET1^DIQ
9002313.59902 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPS(9002313.56 - [#9002313.56] BPFLDS+42
^BPST - [#9002313.59] BPFLDS+14, BPFLDS+18, BPFLDS+19, BPFLDS+20
^BPST("AE" BPFLDS+4
^BPST("AER" BPFLDS+8
^BPSTL - [#9002313.57] BPFLDS+27, BPFLDS+29, BPFLDS+30, BPFLDS+31
^BPSTL("AE" BPFLDS+4
^BPSTL("AER" BPFLDS+8

Label References

Name Line Occurrences
$$BPIEN EN+7
$$DEVICE EN+12
BPFLDS RUNRPT+2
CHKP PRNTRPT+4, PRTTRANS+7
EXIT EN+8, EN+12
PAUSE PRNTRPT+10, PRNTRPT+14, CHKP+3
PAUSE2 PRNTRPT+19
PRNTRPT RUNRPT+3
PRT02 PRNTRPT+12
PRT03 PRNTRPT+16
PRTTRANS PRNTRPT+8
RUNRPT EN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, DEVICE+3*
BP02 EN+1~, EN+7*, EN+8, EN+9*, BPFLDS+4, BPFLDS+8, BPFLDS+14, BPFLDS+27, BPFLDS+44, PRT02+3
BP03 EN+1~, BPFLDS+2*, BPFLDS+19*, BPFLDS+20*, BPFLDS+30*, BPFLDS+31*, BPFLDS+45, PRT03+2, PRT03+4
BP57 RUNRPT+1~, BPFLDS+13*, BPFLDS+27*, BPFLDS+28*, BPFLDS+29, BPFLDS+30, BPFLDS+31, BPFLDS+32, BPFLDS+33, BPFLDS+34
, BPFLDS+35, BPFLDS+37
BP59 RUNRPT+1~, BPFLDS+13*, BPFLDS+14*, BPFLDS+15*, BPFLDS+17, BPFLDS+18, BPFLDS+19, BPFLDS+20, BPFLDS+21, BPFLDS+22
, BPFLDS+23, BPFLDS+24, BPFLDS+26, BPFLDS+29*, BPFLDS+37, BPFLDS+39
BP902 BPFLDS+1~
BP902( BPFLDS+23, BPFLDS+24, BPFLDS+34, BPFLDS+35
BPCFILE EN+1~, EN+2*, EN+7, BPIEN~, BPIEN+2, PRT02+3
BPL0 BPFLDS+1~, BPFLDS+18*, BPFLDS+29*, BPFLDS+40
BPL1 BPFLDS+1~, BPFLDS+18*, BPFLDS+29*, BPFLDS+41, BPFLDS+43
BPLARR RUNRPT+1~
BPLARR( PRTTRANS+6, PRTTRANS+8, PRTTRANS+9, PRTTRANS+10
BPLARR(1 BPFLDS+39*
BPLARR(10 BPFLDS+7*, BPFLDS+10*, BPFLDS+45*
BPLARR(2 BPFLDS+40*
BPLARR(3 BPFLDS+42*
BPLARR(4 BPFLDS+21*, BPFLDS+32*
BPLARR(5 BPFLDS+43*
BPLARR(7 BPFLDS+23*, BPFLDS+34*
BPLARR(8 BPFLDS+24*, BPFLDS+35*
BPLARR(9 BPFLDS+6*, BPFLDS+11*, BPFLDS+44*
BPLINES CHKP~, CHKP+1*, CHKP+2*, CHKP+3
BPQ EN+1~, DEVICE+1~, DEVICE+2*, DEVICE+10*, DEVICE+19, RUNRPT+1~, PRNTRPT+1~, PRNTRPT+2*, PRNTRPT+4, PRNTRPT+10
, PRNTRPT+11, PRNTRPT+14, PRNTRPT+15, PRNTRPT+17, PRNTRPT+19, PRTTRANS+6, PRTTRANS+7, PRT02+6*, PRT03+6*, CHKP+3
, PAUSE+5*
BPSCR EN+1~, DEVICE+9*, PRNTRPT+9, PRNTRPT+13, PRNTRPT+18, CHKP+2, CHKP+3
BPVAX EN+1~, EN+9*, PRNTRPT+7
BPX EN+1~, BPFLDS+2*, BPFLDS+5*, BPFLDS+8, BPFLDS+9*, BPFLDS+12, BPFLDS+14, BPFLDS+19, BPFLDS+20, BPFLDS+27
, BPFLDS+30, BPFLDS+31, BPFLDS+41*, BPFLDS+42, PRTTRANS+2, PRTTRANS+5~, PRTTRANS+6*, PRTTRANS+8, PRTTRANS+9, PRTTRANS+10
DA PRT02+2~, PRT02+3*, PRT03+3~, PRT03+4*
DIC BPIEN+1~, BPIEN+2*, PRT02+2~, PRT02+3*, PRT03+3~, PRT03+4*
DIC("A" BPIEN+3*
DIC(0 BPIEN+4*
DIQ PRT02+2~, PRT03+3~
DIROUT BPIEN+1~, BPIEN+6
DIRUT PRT02+2~, PRT03+3~
DR PRT02+2~, PRT03+3~
DT PRNTRPT+6
DTIME PAUSE+3, PAUSE2+3
DTOUT BPIEN+1~, BPIEN+6, PRT02+2~, PRT02+6, PRT03+3~, PRT03+6
DUOUT BPIEN+1~, BPIEN+6, PRT02+6, PRT03+6
IO DEVICE+18, PAUSE+6, PAUSE2+4
IO("Q" DEVICE+10
IO(0 PAUSE+2, PAUSE2+2
IOF EN+3, PRNTRPT+3, PRNTRPT+9, PRNTRPT+13, PRNTRPT+18, PRT02+4
ION DEVICE+12
IOSL CHKP+3
IOST DEVICE+9
POP DEVICE+1~, DEVICE+8
U EN+9, BPFLDS+19, BPFLDS+20, BPFLDS+29, BPFLDS+30, BPFLDS+31, BPFLDS+40, BPFLDS+41, BPFLDS+43
X PAUSE+1~, PAUSE+3*, PAUSE+4*, PAUSE+5, PAUSE2+1~, PAUSE2+3*
Y BPIEN+1~, BPIEN+6, BPIEN+7
ZTDESC DEVICE+1~, DEVICE+14*
ZTIO DEVICE+1~, DEVICE+12*
ZTQUEUED EN+1~, PRNTRPT+20
ZTREQ PRNTRPT+1~, PRNTRPT+20*
ZTRTN DEVICE+1~, DEVICE+11*
ZTSAVE DEVICE+1~
ZTSAVE("*" DEVICE+13*
ZTSK DEVICE+1~, DEVICE+16
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  | All