Routine: BLRERRTR

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRERRTR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items