Routine: LEXXGI2

Information

LEXXGI2 ;ISL/KER - Global Import (Protocol/Checksum/Misc) ;05/23/2017

Source file <LEXXGI2.m>

Name	Comments	DBIA/ICR reference
NOTIFY	; Notify by Protocol - LEXICAL SERVICES UPDATE ; Uses LEXSCHG() from the Post-Install ; Sets ^LEXM(0,"PRO")=$$NOW^XLFDT
UPCHG	;
SCHG	; Change Array LEXSCHG (Some or all, but never nothing)
SALL	; Set All (ICD/CPT/Lexicon)
SICD	; Set ICD
SCPT	; Set CPT
SLEX	; Set Lexicon
CS	; Checksum for import global
VC(X,Y)	; Verify Checksum for import global
NF	; Import Global Not Found
IG	; Invalid Import Global
BL	; Blank Line
PB(X)	; Preceeding Blank Line
TL(X)	; Text Line
HACK(X)	; Time
ELAP(LEX1,LEX2)	; Elapsed Time
KLEXM	; Subscripted Kill of ^LEXM - files only
KALL	; Subscripted Kill of ^LEXM - all
ET(X)	; Save Text
ED	; Display Text
MIX(X)	; Mixed Case
UP(X)	; Uppercase
LO(X)	; Lowercase
CLR	; Clear
EDT(LEX)	; External Date
TRIM(X)	; Trim Spaces

Name	Line Occurrences
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+3
Function Call: WRITE	Prompt: !!," Import global ^LEXM is missing. Please obtain a copy of ^LEXM before",!," continuing." Line Location: CS+5
Function Call: WRITE	Prompt: !," Unable to verify checksum for import global ^LEXM (possibly corrupt)" Line Location: CS+7
Function Call: WRITE	Prompt: !," Import global ^LEXM failed checksum" Line Location: CS+8
Function Call: WRITE	Prompt: !!," Please KILL the existing import global ^LEXM from your system and" Line Location: CS+9
Function Call: WRITE	Prompt: !," obtain a new copy of ^LEXM before continuing with the installation." Line Location: CS+10
Function Call: WRITE	Prompt: ! Condition for execution: +($O(^LEXM(0)))>0 Line Location: VC+3
Function Call: WRITE	Prompt: " " Line Location: VC+3
Function Call: WRITE	Prompt: !,LEXE(LEXI) Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: ED+2