Routine: BLRLAHGU

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT ($$CJ,$$LJ,$$TRIM)^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Lab	1	(EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	^XBFMK
Lab Service	1	B^LRU

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRMIAUT

Package

Total

Caller Graph

IHS Changes To Lab

BLRMIAUT

Entry Points

Name	Comments	DBIA/ICR reference
REPORTB()	; EP - Breakout data
ACCFILEL	; EP ; NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
SETLBRVS(TWO)	; EP - Set the BLRVERN & BLRVERN2 variables
ONGO(NOGO)	; EP - Continue?
PEP	; EP
EEP	; Ersatz EP
GETLWRKL()	; EP - Get the LOAD/WORK list
REPORTL	; EP - Line of data
REPORTI()	; EP - Initialization of variables
REPORT	; EP - Report on UIDs for a Specific LOAD/WORK LIST
GETAUTOI()	; EP - Get the AUTO INSTRUMENT
GETUID(LRSDT,LRLDT)	; EP ; The following code reads the ^LAH global for the LOAD/WORK LIST "tied" to ; the selected AUTO INSTRUMENT and creates the necessary string to setup ; the D ^DIR call to "select from a list"

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	GETUID+49, GETAUTOI+2, GETLWRKL+2
HEADERPG^BLRGMENU	REPORTL+3
PRESSKEY^BLRGMENU	GETUID+30, GETUID+54, REPORT+9, GETAUTOI+9, GETAUTOI+19, GETLWRKL+10
$$GET1^DIQ	GETUID+17, GETUID+20, REPORTB+10, REPORTB+11, REPORTB+12, REPORTB+13, GETAUTOI+15, GETAUTOI+16
^DIR	GETUID+51, ONGO+5, GETAUTOI+6, GETLWRKL+7
B^LRU	ACCFILEL+7
^XBFMK	GETUID+35, ONGO+1, GETAUTOI+4, GETLWRKL+5
$$FMTE^XLFDT	GETUID+29, REPORTB+12, REPORTB+13
$$CJ^XLFSTR	REPORTI+3, GETAUTOI+23
$$LJ^XLFSTR	GETUID+23
$$TRIM^XLFSTR	GETUID+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"No Entries for Date Range ",$$FMTE^XLFDT(LRSDT,"5DZ")," thru ",$$FMTE^XLFDT(LRLDT,"5DZ") Line Location: GETUID+29
Function Call: WRITE	Prompt: !,?4,"No/Invalid Entry. Routine Ends." Line Location: GETUID+53
Function Call: WRITE	Prompt: ?5,ENTRY Line Location: REPORTL+5
Function Call: WRITE	Prompt: ?14,LRUID Line Location: REPORTL+6
Function Call: WRITE	Prompt: ?27,LRAS Line Location: REPORTL+7
Function Call: WRITE	Prompt: ?47,ORDERNUM Line Location: REPORTL+8
Function Call: WRITE	Prompt: ?57,DATEORD Line Location: REPORTL+9
Function Call: WRITE	Prompt: ?69,DRAWDATE Line Location: REPORTL+10
Function Call: WRITE	Prompt: ! Line Location: REPORTL+11
Function Call: WRITE	Prompt: !,?4,"No/Invalid Entry. Routine Ends." Line Location: GETAUTOI+8
Function Call: WRITE	Prompt: !,?4,"No LOAD/WORK LIST associated with ",LRAUTON,". Routine Ends." Line Location: GETAUTOI+18
Function Call: WRITE	Prompt: !,?4,"No/Invalid Entry. Routine Ends." Line Location: GETLWRKL+9
Routine Call	DIR Line Location: GETUID+51 ONGO+5 GETAUTOI+6 GETLWRKL+7

FileNo	Call Tags
^LAB(62.4 - [#62.4]	GET1^DIQ
68.02	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAH(	GETUID+9, GETUID+10, REPORT+7, REPORTB+1
^LRO(68 - [#68]	GETUID+13, REPORTB+4

Name	Line Occurrences
$$GETAUTOI	ACCFILEL+10, REPORT+4
$$GETLWRKL	GETAUTOI+12
$$REPORTB	REPORTL+1
$$REPORTI	REPORT+5
GETUID	ACCFILEL+15
REPORTL	REPORT+7
SETLBRVS	ACCFILEL+5, REPORT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BELOW	GETUID+5~, GETUID+39, GETUID+42, GETUID+43, GETUID+44
>> BLRVERN	SETLBRVS+1*
>> BLRVERN2	SETLBRVS+2*
CNT	GETUID+5~, GETUID+8, GETUID+21, GETUID+22, GETUID+23, GETUID+24, GETUID+25, GETUID+26, GETUID+40, GETUID+41* , GETUID+42, GETUID+43, GETUID+44, REPORTI+12, REPORTL+13
>> DATEORD	REPORTL+9, REPORTB+12*
>> DILOCKTM	REPORT+1
>> DIR("A"	GETUID+47, ONGO+3
>> DIR("B"	ONGO+4*
>> DIR("L"	GETUID+37, GETUID+38, GETUID+42, GETUID+43, GETUID+46*
>> DIR(0	GETUID+36, ONGO+2, GETAUTOI+5, GETLWRKL+6
>> DIRUT	GETUID+52, GETAUTOI+7, GETLWRKL+8
DIRZERO	GETUID+5~, GETUID+7, GETUID+22, GETUID+26*, GETUID+36
DIRZERO(	GETUID+23*, GETUID+41, GETUID+43
>> DISYS	REPORT+1
DRAWDATE	GETUID+5~, GETUID+17, GETUID+18, REPORTL+10, REPORTB+13
DT	REPORT+1
DTIME	REPORT+1
DUZ	REPORT+1
ENTRY	GETUID+5~, GETUID+8, GETUID+9, GETUID+10, GETUID+24, REPORT+7, REPORTI+12, REPORTL+5, REPORTB+1
HEADER	REPORTI+1!
HEADER(1	REPORTI+2, GETAUTOI+1, GETAUTOI+21!, GETAUTOI+22, GETLWRKL+1
HEADER(2	REPORTI+3, GETAUTOI+23, GETLWRKL+13*
HEADER(3	REPORTI+4*
HEADER(4	REPORTI+5, REPORTI+6, REPORTI+7, REPORTI+8, REPORTI+9, REPORTI+10
IENSTR	GETUID+5~, GETUID+16, GETUID+17, GETUID+20, REPORTB+8, REPORTB+10, REPORTB+11, REPORTB+12, REPORTB+13
IO	REPORT+1
>> IOBS	REPORT+1
IOF	REPORT+1
IOM	REPORT+1, REPORTI+3, GETAUTOI+23
ION	REPORT+1
>> IOS	REPORT+1
IOSL	REPORT+1
IOST	REPORT+1
>> IOT	REPORT+1
>> IOXY	REPORT+1
>> LINES	REPORTI+13, REPORTL+3, REPORTL+12
>> LRAA	GETUID+13, GETUID+14, GETUID+16, GETUID+24, GETUID+59, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAD	GETUID+13, GETUID+14, GETUID+16, GETUID+24, GETUID+59, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAN	GETUID+13, GETUID+14, GETUID+16, GETUID+24, GETUID+59, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAS	GETUID+20, GETUID+23, REPORTL+7, REPORTB+11
>> LRAUTO	GETAUTOI+11*, GETAUTOI+15, GETAUTOI+16
>> LRAUTON	REPORTI+2, GETAUTOI+11*, GETAUTOI+18, GETAUTOI+22
>> LREND	GETUID+31, GETUID+55
>> LRIFN	GETUID+59*
LRLDT	ACCFILEL+8, ACCFILEL+15, GETUID~, GETUID+18, GETUID+29
>> LRLL	ACCFILEL+3, GETUID+9, GETUID+10, REPORT+7, REPORTB+1, GETAUTOI+15, GETAUTOI+17, GETLWRKL+12*
>> LRLLNAME	REPORTI+3, GETAUTOI+16, GETAUTOI+23, GETLWRKL+12, GETLWRKL+13
LRSDT	ACCFILEL+8, ACCFILEL+15, GETUID~, GETUID+18, GETUID+29
LRUID	GETUID+5~, GETUID+10, GETUID+11, GETUID+13, GETUID+22, GETUID+23, GETUID+24, GETUID+34!, GETUID+58, REPORTL+6 , REPORTB+1*, REPORTB+2, REPORTB+4
LUIDINDX	GETUID+5~, GETUID+28
LUIDINDX(	GETUID+24*, GETUID+57
>> MAXLINES	REPORTI+13*, REPORTL+3
NOGO	ACCFILEL+13, ACCFILEL+14, ONGO~, ONGO+6
NUMCOL	GETUID+5~, GETUID+33*, GETUID+42, GETUID+43, GETUID+44
>> ORDERNUM	REPORTL+8, REPORTB+10*
>> PG	REPORTI+12*, REPORTL+3
>> QFLG	REPORT+7, REPORTI+14*, REPORTL+3
STR	GETUID+5~, GETUID+57*, GETUID+58, GETUID+59
TWO	SETLBRVS~, SETLBRVS+2
U	GETUID+24, GETUID+59, REPORT+1, GETAUTOI+11, GETLWRKL+12
>> X	GETUID+13, REPORTB+4
>> XPARSYS	REPORT+1
>> XQXFLG	REPORT+1
>> Y	GETUID+52, GETUID+57, ONGO+6, GETAUTOI+7, GETAUTOI+11, GETLWRKL+8, GETLWRKL+12

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLAHGU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items