Routine: LR258

Information

LR258 ;DALOI/RSH - LR*5.2*258 PATCH ENVIRONMENT CHECK ROUTINE

Source file <LR258.m>

Package	Total	Call Graph
Kernel	3	$$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL $$ACTIVE^XUSER
VA Fileman	2	^DIC ^DIR

Name	Comments	DBIA/ICR reference
LMI
EN	; Does not prevent loading of the transport global.
EXIT
CHECK

Name	Field # of Occurrence
^DIC	LMI+1
^DIR	EN+17
$$CJ^XLFSTR	EN+7, EN+11, EN+12, EN+13, EN+14, EN+19, CHECK, CHECK+1, CHECK+2, CHECK+5 , LMI+3, EXIT, EXIT+1
$$VERSION^XPDUTL	CHECK+4
BMES^XPDUTL	EN+7, EN+11, EN+12, EN+13, EN+14, EN+19, EXIT+1
$$ACTIVE^XUSER	CHECK+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+15
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Terminal Device is not defined",IOM),!! Line Location: CHECK+0
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",IOM),! Line Location: CHECK+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You are not a valid user on this system",IOM),! Line Location: CHECK+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You must have LAB V5.2 Installed",IOM),! Line Location: CHECK+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You must have Mail Group [ LMI ] defined.",IOM) Line Location: LMI+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Install Environment Check FAILED",IOM) Line Location: EXIT+0
Routine Call	DIC Line Location: LMI+1
Routine Call	DIR Line Location: EN+17

Name	Line Occurrences (* Changed, ! Killed)
^LAM(0	CHECK+4

Name	Line Occurrences
CHECK	EN+8
EXIT	EN+9

Name	Field # of Occurrence
DIC	EN+10~, LMI~, LMI+1*
DIC(0	LMI+1*
DIR	EN+10~, EN+17!
DIR("A"	EN+15*
DIR("B"	EN+16*
DIR(0	EN+15*
>> DIRUT	EN+18
DUZ	CHECK+1, CHECK+2
DUZ(0	CHECK+1
IOM	EN+11, EN+12, EN+13, EN+14, EN+19, CHECK, CHECK+1, CHECK+2, CHECK+5, LMI+3 , EXIT, EXIT+1
IOSL	CHECK
LN2	EXIT+2!
RN	EXIT+2!
U	CHECK, CHECK+2
VER	CHECK+3, CHECK+4, CHECK+5, EXIT+2!
X	LMI~, LMI+1*
>> XPDENV	EN+6
>> XPDIQ("XPZ1"	LMI+6*
>> XPDQUIT	EN+9, EN+20, CHECK, CHECK+1, CHECK+2, CHECK+5, LMI+4, LMI+5, EXIT, EXIT+1
Y	EN+18, LMI~, LMI+2