Routine: LR140P

Package	Total	Call Graph
Lab Service	2	IO^LRWU LRGLIN^LRX
Kernel	1	($$CJ,$$RJ)^XLFSTR
VA Fileman	1	^DIR

Package

Total

Call Graph

Lab Service

IO^LRWU LRGLIN^LRX

Kernel

($$CJ,$$RJ)^XLFSTR

VA Fileman

^DIR

Package	Total	Caller Graph
Lab Service	1	LR REVIEW DATA NAMES

Package

Total

Caller Graph

Lab Service

LR REVIEW DATA NAMES

Name	Comments	DBIA/ICR reference
CONTROL	;
HEAD	;
LOOK	;
ADVICE	;
PRINT	;
INIT	;
DONE	;
DEVICE	;
QUE	;
CHKPG	;
DQ1	;

Name	Field # of Occurrence
^DIR	CHKPG+2
IO^LRWU	QUE+5
LRGLIN^LRX	ADVICE+3, ADVICE+12
$$CJ^XLFSTR	HEAD+3
$$RJ^XLFSTR	HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"I'M EXAMINING YOUR DATA NAMES" Line Location: CONTROL+1
Function Call: WRITE	Prompt: @IOF Line Location: CONTROL+3
Function Call: WRITE	Prompt: !!,"Now, lets print a list of the BIG'ns.",!! Line Location: CONTROL+4
Function Call: WRITE	Prompt: "::" Line Location: LOOK+7
Function Call: WRITE	Prompt: ?8,"Review the test set-up of the OFFENDING test(s) and consider" Line Location: ADVICE+4
Function Call: WRITE	Prompt: !,?8,"one or more of the following recommendations:" Line Location: ADVICE+5
Function Call: WRITE	Prompt: !,?5,"1. Reduce the length of the test name." Line Location: ADVICE+6
Function Call: WRITE	Prompt: !,?5,"2. Reduce the length of the test result through the" Line Location: ADVICE+7
Function Call: WRITE	Prompt: !,?5," [Modify an existing data name] option." Line Location: ADVICE+8
Function Call: WRITE	Prompt: !,?5,"3. If the result is lengthy free text consider replacing the" Line Location: ADVICE+9
Function Call: WRITE	Prompt: !,?5," old CH subscript test with a new test in a different" Line Location: ADVICE+10
Function Call: WRITE	Prompt: !,?5," subscript area,...to SP for example.",! Line Location: ADVICE+11
Function Call: WRITE	Prompt: !,LRIEN,"=",LRNODE,! Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: $$RJ^XLFSTR("Page "_LRPAGE,IOM),! Line Location: HEAD+2
Function Call: WRITE	Prompt: $$CJ^XLFSTR("List of Data Names greater than 50 characters.",IOM),! Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF Line Location: CHKPG+3
Routine Call	DIR Line Location: CHKPG+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRBIGD"	INIT+1!, LOOK+5*, PRINT+7

Name	Line Occurrences
ADVICE	HEAD+4
CHKPG	PRINT+8
DEVICE	CONTROL+5
HEAD	PRINT+4, CHKPG+6
LOOK	CONTROL+2

Name	Field # of Occurrence
^(	PRINT+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
DIR	INIT+2!, CHKPG+2!
DIR(0	CHKPG+2*
>> DTOUT	CHKPG+4
>> DUOUT	CHKPG+4
IO	PRINT+3, PRINT+6
IOF	CONTROL+3, HEAD+1, CHKPG+3
IOM	HEAD+2, HEAD+3
IOSL	CHKPG+2, CHKPG+6
IOST	LOOK+7, CHKPG+2, CHKPG+6
LRCNT	DONE+2!, LOOK+2, LOOK+6
LRIEN	DONE+2!, PRINT+5, PRINT+7, PRINT+9
LRNODE	DONE+2!, PRINT+7*, PRINT+9
>> LRPAGE	PRINT+1, HEAD+2, CHKPG+6
LRQ	DONE+2!, LOOK+3, LOOK+4, LOOK+5
OK	DONE+2!, DEVICE+1, PRINT+2, CHKPG+1, CHKPG+4*, CHKPG+5
>> ZTDESC	QUE+3*
>> ZTRTN	QUE+2*
>> ZTSAVE("LR*"	QUE+1*
>> ZTSAVE("^TMP(""LRBIGD"""	QUE+4*

Customize PDF page

Package: Lab Service

Routine: LR140P

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: