Routine: LRWU5

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN IX1^DIK ^DIR
Lab Service	2	DISPLAY^LRWU6 DT^LRX

Package	Total	Caller Graph
Lab Service	1	LRWU5

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
CODES	;
END	;
MIN	;
MAX	;
DECIMAL	;
IHSDNBAD(DNSTR)	; EP - Check to make sure new DataName only contains valid characters
SITE	;
CHK2
CHK1
ACCESS	;
NUM	;
FREE	;
TEST	;
CHECK	;

External References

Name	Field # of Occurrence
^DIC	CHECK+3
YN^DICN	CHECK+5
IX1^DIK	TEST+9
^DIR	MIN+6, MAX+6, DECIMAL+6
DISPLAY^LRWU6	TEST+10
DT^LRX	BEGIN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"You do not have access to this option" Line Location: ACCESS+1
Function Call: WRITE	Prompt: !!,"This option will add a new data name to the lab package." Line Location: BEGIN+1
Function Call: READ	Prompt: "DATA NAME: " Formatting: ! Timeout: DTIME Variable: X Line Location: TEST+1
Function Call: READ	Timeout: DTIME Line Location: TEST+4
Function Call: WRITE	Prompt: !,"Enter 'N', 'S', 'F', or '^'" Line Location: TEST+4
Function Call: WRITE	Prompt: !,"Nothing has been added." Line Location: TEST+7
Function Call: WRITE	Prompt: !!,"'",LRNAME,"' added as a new data name" Line Location: TEST+10
Function Call: WRITE	Prompt: !!,"You must now add a new test in the LABORATORY TEST file and use",!,LRNAME," as the entry for the DATA NAME field." Line Location: TEST+10
Function Call: WRITE	Prompt: $C(7)," ??",!,"ANSWER MUST BE 2-30 CHARACTERS AND NOT CONTAIN '='" Line Location: CHECK+1
Function Call: WRITE	Prompt: $C(7),!,"This data name already exists" Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"ARE YOU ADDING ",LRNAME," (SUBFIELD # ",DA,") AS A NEW DATA NAME" Line Location: CHECK+5
Function Call: WRITE	Prompt: " Answer 'Y'es or 'N'o." Line Location: CHECK+5
Function Call: WRITE	Prompt: $C(7)," ??",!,"ANSWER MUST BE 2-30 CHARACTERS AND NOT CONTAIN '",BADCHAR,"'" Line Location: IHSDNBAD+13
Function Call: WRITE	Prompt: !,"Your site number is not defined, indicating that fileman was not ",!,"installed correctly. Contact your site manager!" Line Location: SITE+1
Function Call: READ	Prompt: "INTERNALLY-STORED CODE: // " Formatting: ! Timeout: DTIME Variable: X Line Location: CODES+1
Function Call: READ	Prompt: " WILL STAND FOR: // " Timeout: DTIME Variable: X Line Location: CODES+1
Function Call: WRITE	Prompt: !,": and ; not allowed ",$C(7) Line Location: CHK1+2
Function Call: WRITE	Prompt: !,": and ; not allowed ",$C(7) Line Location: CHK2+2
Function Call: WRITE	Prompt: !,"Too many codes* ",$C(7) Line Location: CHK2+3
Function Call: READ	Prompt: "Minimum length: " Formatting: ! Timeout: DTIME Variable: X Line Location: FREE+1
Function Call: WRITE	Prompt: " Enter a whole number from 1 to 20" Line Location: FREE+1
Function Call: READ	Prompt: "Maximum length: " Formatting: ! Timeout: DTIME Variable: X Line Location: FREE+5
Function Call: WRITE	Prompt: " Enter a whole number between ",Q3," to 50" Line Location: FREE+5
Routine Call	DIC Line Location: CHECK+3
Routine Call	DIR Line Location: MIN+6 MAX+6 DECIMAL+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(0	CHECK+1
^DD(63.04	TEST+8, CHECK+4, DECIMAL+10, CODES+3, FREE+8
^XMB(1 - [#4.3]	CHECK+4
^XUSEC("LRLIASON"	ACCESS+1

Label References

Name	Line Occurrences
$$IHSDNBAD	CHECK+2
@(	TEST+7
CHECK	TEST+1
CHK1	CODES+1
CHK2	CODES+1
SITE	CHECK+4
TEST	BEGIN+1

Naked Globals

Name	Field # of Occurrence
^("DT"	DECIMAL+10, CODES+3, FREE+8*
^("XUS"	CHECK+4
^(3	DECIMAL+10, CODES+3, FREE+8*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!, CHECK+5*, CHECK+6
BADCHAR	IHSDNBAD+1~, IHSDNBAD+3, IHSDNBAD+9, IHSDNBAD+13
CHAR	IHSDNBAD+1~, IHSDNBAD+5*, IHSDNBAD+7, IHSDNBAD+9
DA	END+1!, TEST+1, TEST+3, CHECK+4, CHECK+5, DECIMAL+10, CODES+3, FREE+8
DA(1	TEST+9*
DIC	END+1!, CHECK+3*
DIC(0	CHECK+3*
DIK	END+1!, TEST+9*
DIR	END+1!
DIR("?"	MIN+5, MAX+5, DECIMAL+5*
DIR("A"	MIN+3, MAX+3, DECIMAL+3*
DIR("B"	MAX+4, DECIMAL+4
DIR(0	MIN+2, MAX+2, DECIMAL+2*
DNSTR	IHSDNBAD~, IHSDNBAD+4, IHSDNBAD+5
DT	DECIMAL+10, CODES+3, FREE+8
DTDOUT	DECIMAL+1!
DTIME	BEGIN+1*, TEST+1, TEST+4, CODES+1, FREE+1, FREE+5
DTOUT	MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUOUT	MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUTOU	DECIMAL+1!
DUZ	ACCESS+1
I	END+1!, TEST+1, TEST+4, CHECK+4, CHECK+5, IHSDNBAD+1~, IHSDNBAD+4, IHSDNBAD+5, CODES+1, FREE+1* , FREE+5*
LMX	END+1!
LRDEC	END+1!
LREND	BEGIN+1, END+1!, TEST+1, TEST+2, SITE+2
LRI	END+1!
LRLO	END+1!
LRMIN	END+1!
LRNAME	END+1!, TEST+10, CHECK+3*, CHECK+5, DECIMAL+10, CODES+3, CHK2+3, FREE+8
LROK	END+1!, TEST+1, TEST+7, CHECK+1, CHECK+3, CHECK+4, CHECK+6, IHSDNBAD+14, SITE+2, MIN+7* , MAX+7, DECIMAL+7, CODES+2, FREE+2, FREE+6*
LROK1	END+1!, CODES+1, CHK1, CHK1+2, CHK2, CHK2+2, CHK2+3
LRPIECE	END+1!
LRSET	END+1!
LRTYPE	END+1!
OKAY	IHSDNBAD+1~, IHSDNBAD+3, IHSDNBAD+8, IHSDNBAD+11
Q1	END+1!, TEST+7*
Q2	END+1!, CODES+1, CODES+2, CODES+3, CHK2+2, CHK2+3*
Q3	END+1!, MIN+8, DECIMAL+10, CHK1+2, CHK1+3, CHK2+3, FREE+3, FREE+5, FREE+8
Q4	END+1!, MAX+8, DECIMAL+10, CHK2+3, FREE+7*, FREE+8
Q5	END+1!, DECIMAL+8*, DECIMAL+10
U	BEGIN+1*, TEST+1, TEST+3, TEST+4, TEST+5, TEST+8, CHECK+1, CHECK+4, CHK1, CHK2 , FREE+1, FREE+2, FREE+5, FREE+6
X	END+1!, TEST+1, TEST+3, TEST+4, TEST+5, TEST+7, CHECK+1, CHECK+2, CHECK+3, CODES+1* , CHK1, CHK1+2, CHK1+3, CHK2, CHK2+2, CHK2+3, FREE+1, FREE+2, FREE+3, FREE+5 , FREE+6, FREE+7
Y	END+1!, CHECK+3, MIN+8, MAX+7, MAX+8, DECIMAL+7, DECIMAL+8

Customize PDF page

Package: Lab Service

Routine: LRWU5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: