Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEXXGI2

Package: Lexicon Utility

Routine: LEXXGI2


Information

LEXXGI2 ;ISL/KER - Global Import (Protocol/Checksum/Misc) ;04/21/2014

Source Information

Source file <LEXXGI2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ($$FMDIFF,$$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  EN^XQOR  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lexicon Utility 2 LEXXGI  LEXXGI3  

Entry Points

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

External References

Name Field # of Occurrence
^DIWP WP+3
$$FMDIFF^XLFDT ELAP+1
$$FMTE^XLFDT EDT+1
$$NOW^XLFDT NOTIFY+16, HACK+1
BMES^XPDUTL PB+1
MES^XPDUTL BL+1, TL+1
EN^XQOR NOTIFY+15

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEXM VC+1, SCHG+2, SCHG+4, KLEXM+1!, KALL+3!
^LEXM(0 NOTIFY+16*, NOTIFY+18, CS+1, CS+3, VC+1, VC+3, KALL+4!
^LEXM(80 SCHG+6
^LEXM(80.1 SCHG+6
^LEXM(81 SCHG+6
^LEXM(81.2 SCHG+6
^LEXM(81.3 SCHG+6
^ORD(101 - [#101] NOTIFY+15
^UTILITY($J WP+1!, WP+4, WP+5, WP+6!

Label References

Name Line Occurrences
$$EDT NOTIFY+21, NOTIFY+24, NOTIFY+27
$$LO MIX+2
$$TRIM NOTIFY+10, WP+5
$$UP MIX+2
$$VC CS+3
BL NOTIFY+18, NOTIFY+30, NOTIFY+31
PB NF+1, IG+1
SALL SCHG+7
SCPT SALL+1
SICD SALL+1
SLEX SALL+1, SICD+1, SCPT+2
TL NOTIFY+18, NOTIFY+30, NOTIFY+31, NF+2, IG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC KALL+2!
DICR KALL+2!
DILOCKTM KALL+2!
DIW KALL+2!, WP+1~, CLR+1!
DIWF WP+1~, WP+3*, CLR+1!
DIWI WP+1~, CLR+1!
DIWL WP+1~, WP+3*, CLR+1!
DIWR WP+1~, CLR+1!
DIWT WP+1~, CLR+1!
DIWTC WP+1~, CLR+1!
DIWX WP+1~, WP+3~, CLR+1!
DN WP+1~, WP+3~, CLR+1!
DTOUT WP+3~, CLR+1!
DUOUT WP+3~, CLR+1!
LEX KLEXM+1~*, KALL+3~*, WP~, WP+4!, CLR+1!, EDT~, EDT+1*, EDT+2
LEX( WP+2, WP+3, WP+5*
LEX1 NOTIFY+6~, ELAP~, ELAP+1, ELAP+2*, CLR+2!
LEX2 NOTIFY+6~, ELAP~, ELAP+1, CLR+2!
LEX3 NOTIFY+6~, CLR+2!
LEXB KALL+1!
LEXBUILD KALL+1!
LEXC VC+1~, VC+3*, VC+4, CLR+2!
LEXCD KALL+1!
>> LEXCHG SCHG+1*, SCHG+6*
LEXCHK CS+1~*, CS+3, VC+1~, VC+2*, VC+8, CLR+2!
LEXCNT VC+1~, VC+2*, VC+5*, VC+6*, CLR+2!
LEXCT WP+1~, WP+4*, WP+5*, CLR+2!
LEXD VC+1~, VC+7*, CLR+2!
LEXE ED+2!, CLR+2!
LEXE( ET+1*, ED+1
LEXE(0 ET+1*
LEXED NOTIFY+20~, NOTIFY+21*, NOTIFY+23~, NOTIFY+24*, NOTIFY+26~, NOTIFY+27*, CLR+2!
LEXF NOTIFY+6~, NOTIFY+9*, NOTIFY+10*, NOTIFY+11, NOTIFY+12*, NOTIFY+13*, NOTIFY+14, CLR+3!
LEXFI UPCHG+1, SCHG+1~, SCHG+2~*, SCHG+3, SCHG+4, CLR+3!
LEXFY KALL+1!
LEXGCS VC+1~, VC+3*, VC+7*, VC+8, CLR+3!
LEXI NOTIFY+6~, ET+1~*, ED+1~*, MIX+1~, MIX+2*, WP+1~, WP+4*, WP+5, CLR+3!
LEXID UPCHG+1~*, UPCHG+2, SCHG+1~, SCHG+3*, SCHG+4, CLR+3!
LEXIGHF KALL+1!
LEXL NOTIFY+6~, NOTIFY+14*, VC+1~, VC+2*, VC+6, CLR+3!
LEXLAST KALL+1!
LEXLC VC+1~, VC+2*, VC+6*, CLR+3!
LEXLEN WP+1~, WP+2*, WP+3, CLR+3!
LEXLREV KALL+1!
LEXN NOTIFY+6~, VC+1~, VC+3*, VC+4*, VC+5, VC+7, CLR+3!
LEXNC VC+1~, VC+3*, VC+7*, VC+8, CLR+3!
LEXNDS CS+1~, CS+3*, VC+1~, VC+2*, VC+8, CLR+4!
>> LEXNOPRO NOTIFY+3
LEXP NOTIFY+6~, NOTIFY+15*, VC+1~, VC+7*, CLR+4!
LEXPC NOTIFY+6~*, NOTIFY+21*, NOTIFY+24*, NOTIFY+27*, NOTIFY+29*, NOTIFY+30, CLR+4!
LEXPROC NOTIFY+18!, CLR+4!
LEXPROC( NOTIFY+21*, NOTIFY+24*, NOTIFY+27*, NOTIFY+29, NOTIFY+30
LEXPROC(" " NOTIFY+28
LEXPROC(1 NOTIFY+28*
LEXPTYPE KALL+1!
LEXQTR KALL+1!
LEXREQP KALL+1!
LEXS VC+1~, VC+2*, VC+3*, VC+6, CLR+4!
LEXSCHG NOTIFY+15, SCHG+1!, CLR+4!
LEXSCHG( UPCHG+2*, SCHG+4*
LEXSCHG("757" SLEX+1*
LEXSCHG("757.001" SLEX+1*
LEXSCHG("757.01" SLEX+2*
LEXSCHG("757.02" SLEX+2*
LEXSCHG("757.1" SLEX+3*
LEXSCHG("80" SICD+1*
LEXSCHG("80.1" SICD+1*
LEXSCHG("81" SCPT+1*
LEXSCHG("81.1" SCPT+1*
LEXSCHG("81.2" SCPT+2*
LEXSCHG("81.3" SCPT+2*
LEXSCHG("B" SCHG+4*, SICD+1*, SCPT+1*, SCPT+2*, SLEX+1*, SLEX+2*, SLEX+3*
LEXSCHG("C" SCHG+4*, SCHG+5, SCHG+7, SICD+1*, SCPT+1*, SCPT+2*, SLEX+1*, SLEX+2*, SLEX+3*
LEXSCHG("CPT" NOTIFY+3, NOTIFY+4*, NOTIFY+5*, NOTIFY+7, NOTIFY+9, NOTIFY+16, NOTIFY+17, NOTIFY+25, NOTIFY+27
LEXSCHG("D" SCHG+5*, SCHG+6, SCHG+7*
LEXSCHG("ICD" NOTIFY+3, NOTIFY+4*, NOTIFY+5*, NOTIFY+7, NOTIFY+9, NOTIFY+16, NOTIFY+17, NOTIFY+22, NOTIFY+24
LEXSCHG("LEX" NOTIFY+3, NOTIFY+4*, NOTIFY+5, NOTIFY+9, NOTIFY+16, NOTIFY+19, NOTIFY+21
LEXSCHG(0 SCHG+6*, SCHG+7
LEXSTR KALL+1!
LEXT VC+1~, VC+7*, MIX+1~*, MIX+2*, MIX+3*, MIX+4*, CLR+4!
LEXTI WP+1~, WP+2*, WP+3, CLR+4!
LEXU NOTIFY+6~, NOTIFY+14*, NOTIFY+17*, NOTIFY+18, CLR+4!
LEXUP NOTIFY+6~*, NOTIFY+7*, NOTIFY+8*, NOTIFY+31, CLR+5!
LEXVER CS+1~, CS+3*, CS+4, CS+5, CS+6, CS+7, CS+8, CLR+5!
X NOTIFY+6~, NOTIFY+15*, NOTIFY+20~*, NOTIFY+21*, NOTIFY+23~*, NOTIFY+24*, NOTIFY+26~*, NOTIFY+27*, NOTIFY+30*, NOTIFY+31*
, VC~, VC+2, BL+1~*, PB~, PB+1*, TL~, TL+1*, HACK~, HACK+1*, ELAP+1~*
, ELAP+2*, ET~, ET+1, MIX~, MIX+1*, MIX+2, MIX+4*, MIX+5, UP~, UP+1
, LO~, LO+1, WP~, WP+2, WP+3~*, WP+5~*, CLR+5!, TRIM~, TRIM+1*, TRIM+2*
, TRIM+3*, TRIM+4
XMDUN KALL+2!
XMZ KALL+2!
>> XPDNM BL+1, PB+1, TL+1
Y VC~, VC+2, CLR+5!
ZTSK KALL+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All