Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LEX2019

Package: Lexicon Utility

Routine: LEX2019


Information

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

Source Information

Source file <LEX2019.m>

Entry Points

Name Comments DBIA/ICR reference
ENV ; LEX*2.0*19 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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls