Routine: LEX2019

Information

LEX2019 ;ISA/FJF-Environment Check/Pre/Post Install;10-01-01

Source file <LEX2019.m>

Name	Comments	DBIA/ICR reference
ENV	; LEX2.019 Environment Check ; ; General
QUIT	; Quit Passed Environment Check
EXIT	; Exit Failed Environment Check
ABRT	; Abort Failed Environment Check, KILL the distribution
GBLS	; Check Write access on globals
RGBL(X)	; Look for require globals
RGNF	; Required global not found
CHK
CS	; Checksum for import global
VC(X,Y)	; Verify Checksum for import global
SY(X)	; Check System variables
UR(X)	; Check User variables
CPD(X)	; Check Current Patched Data is installed
CM	; Missing ^LEXM
CW	; Wrong ^LEXM
CU	; Unable to verify
CF	; Failed checksum
CO	; Obtain new global
CKO	; Kill and Obtain new global
ET(X)
ED	; Error Display
IMP	; Import names
NOTDEF(IEN)	; check to see if user is defined

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Environment is ok",! Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"I will now check the protection on ^LEX, ^LEXT and ^LEXM Globals. If you" Line Location: GBLS+1
Function Call: WRITE	Prompt: !,"get an ERROR, you will need to change the protection on these globals to" Line Location: GBLS+2
Function Call: WRITE	Prompt: !,"allow read/write as indicated for the appropriate M system:" Line Location: GBLS+3
Function Call: WRITE	Prompt: !!," SYSTEM PROTECTION FOR FILE ACCESS ATTRIBUTES" Line Location: GBLS+4
Function Call: WRITE	Prompt: !," ------ ---------- ----------------------------" Line Location: GBLS+5
Function Call: WRITE	Prompt: !," DSM RW System World Group UCI" Line Location: GBLS+6
Function Call: WRITE	Prompt: !," Open M RW Network Owner (default)" Line Location: GBLS+7
Function Call: WRITE	Prompt: !!,"Checking:" Line Location: GBLS+8
Function Call: WRITE	Prompt: " <",$P(LEXGL,"(",1)," not found>" Line Location: GBLS+10
Function Call: WRITE	Prompt: " ",$P(LEXGL,"(",1) Line Location: GBLS+11
Function Call: WRITE	Prompt: !!," OK",! Line Location: CHK+1
Function Call: WRITE	Prompt: !!,"Running checksum routine on the ^LEXM import global, please wait" Line Location: CS+2
Function Call: WRITE	Prompt: ! Line Location: CS+7
Function Call: WRITE	Prompt: " ok",! Condition for execution: LEXVER>0 Line Location: CS+7
Function Call: WRITE	Prompt: !,LEXE(LEXI) Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: ED+2