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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRERRTR

Package: IHS Changes To Lab

Routine: BLRERRTR


Information

BLRERRTR ; IHS/MSC/MKK - IHS Lab ERRor Trap Report ; September 2, 2011

Source Information

Source file <BLRERRTR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$FMTE,$$FMTH,$$HTE)^XLFDT  ($$CJ,$$TRIM)^XLFSTR  
IHS Changes To Lab 1 (ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRFM,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 ^XBFMK  
Lab Service 1 B^LRU  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DETAILED ; EP - Report
SETMENU ; EP -- Main Menu
PEP ; EP
EEP ; EP -- Ersatz Entry Point
LNODVINI ; EP - Lab Only - No Date - Report Variables Initialization
DETLINER ; EP - Output line of data
LDETVINI ; EP - Lab Only - Detailed Report Variables Initialization
HEADONE(HD1) ; EP -- Asks if user wants only 1 header line
LABDET ; EP - Lab Only Detailed Report
LNODATES ; EP - Lab Only - No Date Report
OPENIO ; EP
REPTMENU ; EP - Reports Sub-Menu
NODLINER ; EP - Output line of data
DRINITVS() ; EP - Initialize variables
LDETLINR ; EP - Lab only - Output line of data
COMPDATE ; EP - Compilation of data
STORERRS ; EP - Store Errors into ^TMP global
COMPILE ; EP - Compilation of data
RSETMENU ; EP
INITVARS ; EP - Initialize variables
CSETMENU ; EP
ISDATA() ; EP - Report Data Exists
EP ; EP
COMPMENU ; EP - Compilation Sub-Menu
DETVINIT ; EP - Report Variables Initialization
LNODLINR ; EP - Output line of data
NODVINIT ; EP - Report Variables Initialization
NODATES ; EP - No Date Report

External References

Name Field # of Occurrence
^%ZIS OPENIO+5, LNODVINI+22
^%ZISC DETAILED+17, NODATES+16, LABDET+17, LNODATES+16
ADDTMENU^BLRGMENU SETMENU+3, SETMENU+4, CSETMENU+3, CSETMENU+4, RSETMENU+3, RSETMENU+4, RSETMENU+5, RSETMENU+6
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU COMPILE+6, COMPDATE+6, DRINITVS+5, OPENIO+1, LNODVINI+13
HEADERPG^BLRGMENU DETLINER+1, NODLINER+1, LDETLINR+1, LNODLINR+1
MENUDRFM^BLRGMENU EP+6, COMPMENU+7, REPTMENU+7
PRESSKEY^BLRGMENU COMPILE+16, COMPDATE+13, DRINITVS+10, DETAILED+21, ISDATA+4, NODATES+20, LABDET+21, LNODATES+20
^DIR HEADONE+5
B^LRU DRINITVS+6
^XBFMK HEADONE+1
$$FMTE^XLFDT DRINITVS+12
$$FMTH^XLFDT DRINITVS+14, DRINITVS+15
$$HTE^XLFDT DETVINIT+6, DETVINIT+7, DETLINER+10, NODVINIT+6, NODVINIT+7, LDETVINI+6, LDETVINI+7, LDETLINR+10, LNODVINI+6, LNODVINI+7
$$CJ^XLFSTR COMPMENU+6, REPTMENU+6, DRINITVS+12, LDETVINI+10, LNODVINI+10
$$TRIM^XLFSTR STORERRS+11, STORERRS+15, DETLINER+6, NODLINER+6, LDETLINR+6, LNODLINR+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: COMPILE+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: STORERRS+4
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>74
  • Line Location: STORERRS+4
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: COMPDATE+7
Function Call: WRITE
  • Prompt: !,?4,"Invalid/No Date Range Entered. Compilation Ends.",!
  • Line Location: DRINITVS+9
Function Call: WRITE
  • Prompt: !,?4,"No Data Exists. Need to compile first."
  • Line Location: ISDATA+3
Function Call: WRITE
  • Prompt: $E($$TRIM^XLFSTR(PACKAGE,"LR"," "),1,27)
  • Line Location: DETLINER+6
Function Call: WRITE
  • Prompt: ?29,$E(ROUTINE,1,8)
  • Line Location: DETLINER+7
Function Call: WRITE
  • Prompt: ?39,$E(ERROR,1,13)
  • Line Location: DETLINER+8
Function Call: WRITE
  • Prompt: ?54,$E(LINETAG,1,11)
  • Line Location: DETLINER+9
Function Call: WRITE
  • Prompt: ?67,$$HTE^XLFDT(HDT,"2DZ")
  • Line Location: DETLINER+10
Function Call: WRITE
  • Prompt: ?77,$J(ERRTOT,3)
  • Line Location: DETLINER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DETLINER+12
Function Call: WRITE
  • Prompt: !
  • Line Location: OPENIO+3
Function Call: WRITE
  • Prompt: $E($$TRIM^XLFSTR(PACKAGE,"LR"," "),1,28)
  • Line Location: NODLINER+6
Function Call: WRITE
  • Prompt: ?29,ROUTINE
  • Line Location: NODLINER+7
Function Call: WRITE
  • Prompt: ?39,ERROR
  • Line Location: NODLINER+8
Function Call: WRITE
  • Prompt: ?54,LINETAG
  • Line Location: NODLINER+9
Function Call: WRITE
  • Prompt: ?74,$J(ERRTOT,6)
  • Line Location: NODLINER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NODLINER+11
Function Call: WRITE
  • Prompt: $E($$TRIM^XLFSTR(PACKAGE,"LR"," "),1,27)
  • Line Location: LDETLINR+6
Function Call: WRITE
  • Prompt: ?29,ROUTINE
  • Line Location: LDETLINR+7
Function Call: WRITE
  • Prompt: ?39,ERROR
  • Line Location: LDETLINR+8
Function Call: WRITE
  • Prompt: ?54,LINETAG
  • Line Location: LDETLINR+9
Function Call: WRITE
  • Prompt: ?67,$$HTE^XLFDT(HDT,"2DZ")
  • Line Location: LDETLINR+10
Function Call: WRITE
  • Prompt: ?77,$J(ERRTOT,3)
  • Line Location: LDETLINR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LDETLINR+12
Function Call: WRITE
  • Prompt: $E($$TRIM^XLFSTR(PACKAGE,"LR"," "),1,28)
  • Line Location: LNODLINR+6
Function Call: WRITE
  • Prompt: ?29,ROUTINE
  • Line Location: LNODLINR+7
Function Call: WRITE
  • Prompt: ?39,ERROR
  • Line Location: LNODLINR+8
Function Call: WRITE
  • Prompt: ?54,LINETAG
  • Line Location: LNODLINR+9
Function Call: WRITE
  • Prompt: ?74,$J(ERRTOT,6)
  • Line Location: LNODLINR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LNODLINR+11
Routine Call
  • DIR
  • Line Location:
    • HEADONE+5
Routine Call
  • %ZIS
  • Line Location:
    • OPENIO+5
    • LNODVINI+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTER(1 - [#3.075] COMPILE+11, STORERRS+2, STORERRS+3, COMPDATE+10
^DIC(9.4 - [#9.4] STORERRS+18, STORERRS+19
^ROUTINE( STORERRS+15
^TMP("BLRERRTR" EP+10!, COMPILE+9!, COMPILE+12*, COMPILE+13*, STORERRS+24*, STORERRS+25*, STORERRS+29*, STORERRS+30*, DRINITVS+17!, DRINITVS+18*
, DRINITVS+19*, DETAILED+8, DETAILED+9, DETAILED+10, DETAILED+11, DETAILED+12, ISDATA+1, DETVINIT+6, DETVINIT+7, DETLINER+3
, NODATES+8, NODATES+9, NODATES+10, NODATES+11, NODVINIT+6, NODVINIT+7, NODLINER+3, LABDET+8, LABDET+9, LABDET+10
, LABDET+11, LABDET+12, LDETVINI+6, LDETVINI+7, LDETLINR+3, LNODATES+8, LNODATES+9, LNODATES+10, LNODATES+11, LNODVINI+6
, LNODVINI+7, LNODLINR+3

Label References

Name Line Occurrences
$$DRINITVS COMPDATE+4
$$ISDATA DETAILED+4, NODATES+4, LABDET+4, LNODATES+4
CSETMENU COMPMENU+3
DETLINER DETAILED+13
DETVINIT DETAILED+6
HEADONE OPENIO+2, LNODVINI+14
INITVARS COMPILE+4
LDETLINR LABDET+13
LDETVINI LABDET+6
LNODLINR LNODATES+12
LNODVINI LNODATES+6
NODLINER NODATES+12
NODVINIT NODATES+6
OPENIO DETVINIT+11, NODVINIT+11, LDETVINI+12
RSETMENU REPTMENU+3
SETMENU EP+3
STORERRS COMPILE+14, COMPDATE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT DETVINIT+1~, DETVINIT+6*, DETVINIT+9, NODVINIT+1~, NODVINIT+6*, NODVINIT+9, LDETVINI+1~, LDETVINI+6*, LDETVINI+9, LNODVINI+1~
, LNODVINI+6*, LNODVINI+9
BLRMMENU EP+1~, COMPMENU+1~, REPTMENU+1~
BLRVERN EP+1~, SETMENU+1*, COMPMENU+1~, CSETMENU+1*, REPTMENU+1~, RSETMENU+1*
>> DIR("A" HEADONE+2*
>> DIR("B" HEADONE+3*
>> DIR(0 HEADONE+4*
ENDDT DETVINIT+1~, DETVINIT+7*, DETVINIT+9, NODVINIT+1~, NODVINIT+7*, NODVINIT+9, LDETVINI+1~, LDETVINI+7*, LDETVINI+9, LNODVINI+1~
, LNODVINI+7*, LNODVINI+9
ERRDATE COMPILE+1~, COMPDATE+1~, DETAILED+1~, NODATES+1~, LABDET+1~, LNODATES+1~
ERRDNUM COMPILE+1~, INITVARS+1*, STORERRS+1*, STORERRS+2*, STORERRS+3, COMPDATE+1~, DRINITVS+1*, DETAILED+1~, NODATES+1~, LABDET+1~
, LNODATES+1~
ERROR COMPILE+1~, STORERRS+7*, STORERRS+24, STORERRS+25, STORERRS+29, STORERRS+30, COMPDATE+1~, DETAILED+1~, DETAILED+10*, DETAILED+11
, DETAILED+12, DETVINIT+23*, DETLINER+3, DETLINER+8, OPENIO+12*, NODATES+1~, NODATES+9*, NODATES+10, NODATES+11, NODLINER+3
, NODLINER+8, LABDET+1~, LABDET+10*, LABDET+11, LABDET+12, LDETVINI+23*, LDETLINR+3, LDETLINR+8, LNODATES+1~, LNODATES+9*
, LNODATES+10, LNODATES+11, LNODVINI+29*, LNODLINR+3, LNODLINR+8
ERRTOT DETAILED+1~, DETLINER+3*, DETLINER+4, DETLINER+11, NODATES+1~, NODLINER+3*, NODLINER+4, NODLINER+10, LABDET+1~, LDETLINR+3*
, LDETLINR+4, LDETLINR+11, LNODATES+1~, LNODLINR+3*, LNODLINR+4, LNODLINR+10
HD1 COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETLINER+1, OPENIO+2, HEADONE~, HEADONE+6*, NODATES+2~, NODLINER+1, LABDET+2~
, LDETLINR+1, LNODATES+2~, LNODVINI+14, LNODLINR+1
HDT COMPILE+1~, COMPILE+11*, COMPILE+12, COMPILE+13, INITVARS+1*, STORERRS+2, STORERRS+3, STORERRS+25, STORERRS+30, COMPDATE+1~
, COMPDATE+9*, COMPDATE+10*, DRINITVS+1*, DETAILED+1~, DETAILED+8*, DETAILED+9, DETAILED+10, DETAILED+11, DETAILED+12, DETVINIT+23*
, DETLINER+3, DETLINER+10, OPENIO+11*, NODATES+1~, LABDET+1~, LABDET+8*, LABDET+9, LABDET+10, LABDET+11, LABDET+12
, LDETVINI+23*, LDETLINR+3, LDETLINR+10, LNODATES+1~, LNODVINI+28*
HEADER COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETVINIT+3!, NODATES+2~, NODVINIT+3!, LABDET+2~, LDETVINI+3!, LNODATES+2~, LNODVINI+3!
HEADER(1 INITVARS+2*, DRINITVS+2*, DETVINIT+4*, NODVINIT+4*, LDETVINI+4*, LNODVINI+4*
HEADER(2 INITVARS+3*, DRINITVS+3*, DETVINIT+9*, NODVINIT+9*, LDETVINI+9*, LNODVINI+9*
HEADER(3 DRINITVS+12*, DETVINIT+13*, NODVINIT+13*, LDETVINI+10*, LNODVINI+10*
HEADER(4 DETVINIT+14*, DETVINIT+15*, NODVINIT+14*, NODVINIT+15*, NODVINIT+16*, NODVINIT+17*, NODVINIT+18*, LDETVINI+14*, LDETVINI+15*, LNODVINI+11*
HEADER(5 DETVINIT+16*, DETVINIT+17*, DETVINIT+18*, DETVINIT+19*, DETVINIT+20*, DETVINIT+21*, LDETVINI+16*, LDETVINI+17*, LDETVINI+18*, LDETVINI+19*
, LDETVINI+20*, LDETVINI+21*, LNODVINI+16*, LNODVINI+17*, LNODVINI+18*, LNODVINI+19*, LNODVINI+20*
IO OPENIO+6, LNODVINI+23
IOM COMPMENU+6, REPTMENU+6, DRINITVS+12, LDETVINI+10, LNODVINI+10
IOSL OPENIO+8, LNODVINI+24
LINES COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETLINER+1, DETLINER+13*, OPENIO+9*, NODATES+2~, NODLINER+1, NODLINER+12*, LABDET+2~
, LDETLINR+1, LDETLINR+13*, LNODATES+2~, LNODVINI+25*, LNODLINR+1, LNODLINR+12*
LINETAG COMPILE+1~, STORERRS+9*, STORERRS+10*, STORERRS+24, STORERRS+25, STORERRS+29, STORERRS+30, COMPDATE+1~, DETAILED+1~, DETAILED+11*
, DETAILED+12, DETVINIT+23*, DETLINER+3, DETLINER+9, OPENIO+12*, NODATES+1~, NODATES+10*, NODATES+11, NODLINER+3, NODLINER+9
, LABDET+1~, LABDET+11*, LABDET+12, LDETVINI+23*, LDETLINR+3, LDETLINR+9, LNODATES+1~, LNODATES+10*, LNODATES+11, LNODVINI+29*
, LNODLINR+3, LNODLINR+9
LRLDT COMPILE+1~, COMPDATE+1~, COMPDATE+10, DRINITVS+8, DRINITVS+12, DRINITVS+15*, DRINITVS+19, DETAILED+1~, NODATES+1~, LABDET+1~
, LNODATES+1~
LRSDT COMPILE+1~, COMPDATE+1~, COMPDATE+9, DRINITVS+8, DRINITVS+12, DRINITVS+14*, DRINITVS+18, DETAILED+1~, NODATES+1~, LABDET+1~
, LNODATES+1~
MAXLINES COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETLINER+1, OPENIO+8*, OPENIO+9, NODATES+2~, NODLINER+1, LABDET+2~, LDETLINR+1
, LNODATES+2~, LNODVINI+24*, LNODVINI+25, LNODLINR+1
MENU3 COMPMENU+1~, COMPMENU+6*, COMPMENU+7, REPTMENU+1~, REPTMENU+6*, REPTMENU+7
PACKAGE COMPILE+1~, STORERRS+15*, STORERRS+16, STORERRS+18, STORERRS+20*, STORERRS+21*, STORERRS+24, STORERRS+25, STORERRS+29, STORERRS+30
, COMPDATE+1~, DETAILED+1~, DETAILED+9*, DETAILED+10, DETAILED+11, DETAILED+12, DETVINIT+23*, DETLINER+3, DETLINER+6, OPENIO+12*
, NODATES+1~, NODATES+8*, NODATES+9, NODATES+10, NODATES+11, NODLINER+3, NODLINER+6, LABDET+1~, LABDET+9*, LABDET+10
, LABDET+11, LABDET+12, LDETVINI+23*, LDETLINR+3, LDETLINR+6, LNODATES+1~, LNODATES+8*, LNODATES+9, LNODATES+10, LNODATES+11
, LNODVINI+29*, LNODLINR+3, LNODLINR+6
PG COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETLINER+1, OPENIO+11*, NODATES+2~, NODLINER+1, LABDET+2~, LDETLINR+1, LNODATES+2~
, LNODVINI+28*, LNODLINR+1
PKGIEN COMPILE+1~, STORERRS+18*, STORERRS+19
PKGNAME COMPILE+1~, STORERRS+19*, STORERRS+20
QFLG COMPILE+2~, COMPDATE+2~, DETAILED+2~, DETAILED+8, DETAILED+9, DETAILED+10, DETAILED+11, DETAILED+12, DETAILED+15, DETAILED+19
, DETLINER+1, OPENIO+10*, NODATES+2~, NODATES+8, NODATES+9, NODATES+10, NODATES+11, NODATES+14, NODATES+18, NODLINER+1
, LABDET+2~, LABDET+8, LABDET+9, LABDET+10, LABDET+11, LABDET+12, LABDET+15, LABDET+19, LDETLINR+1, LNODATES+2~
, LNODATES+8, LNODATES+9, LNODATES+10, LNODATES+11, LNODATES+14, LNODATES+18, LNODVINI+26*, LNODLINR+1
ROUTINE COMPILE+1~, STORERRS+11*, STORERRS+12*, STORERRS+15, STORERRS+17, STORERRS+24, STORERRS+25, STORERRS+28, STORERRS+29, STORERRS+30
, COMPDATE+1~, DETAILED+1~, DETAILED+12*, DETVINIT+23*, DETLINER+3, DETLINER+7, OPENIO+12*, NODATES+1~, NODATES+11*, NODLINER+3
, NODLINER+7, LABDET+1~, LABDET+12*, LDETVINI+23*, LDETLINR+3, LDETLINR+7, LNODATES+1~, LNODATES+11*, LNODVINI+29*, LNODLINR+3
, LNODLINR+7
STR COMPILE+1~, STORERRS+3*, STORERRS+5, STORERRS+7, STORERRS+8*, STORERRS+9, STORERRS+11, COMPDATE+1~, DETAILED+1~, NODATES+1~
, LABDET+1~, LNODATES+1~
TOTAL DETAILED+1~, DETAILED+15, DETLINER+4*, OPENIO+11*, NODATES+1~, NODATES+14, NODLINER+4*, LABDET+1~, LABDET+15, LDETLINR+4*
, LNODATES+1~, LNODATES+14, LNODVINI+28*, LNODLINR+4*
>> Y HEADONE+6

Marked Items

Name Field # of Occurrence
$T( SETMENU+1, CSETMENU+1, RSETMENU+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All