STANDARD DATA DICTIONARY #757.07 -- TOKENS FILE 3/24/25 PAGE 1
STORED IN ^LEX(757.07, (6013 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains tokens (and abbreviations) that may require special handling when displaying on the screen. A token is a short
string of text parsed from longer string by using delimiters (i.e., punctuation and special characters) and either has meaning by
itself or is an abbreviation with meaning. For tokens that can be displayed in multiple ways, rules are included to determine how
the token is to be displayed.
Example Displayed as Comment
PH pH Not as PH or Ph or ph
IGA IgA Not as IGA or Iga
COPD COPD Not as Copd or copd
OR OR Used with an operating room
OR or Not used with an operating room
S X="CASE CHECK FOR; PH IGA COPD OPERATING ROOM OR"
$$TITLE^XLFSTR(X) Case Check For; Ph Iga Copd Operating Room Or
$$MIX^LEXXMC(X) Case Check for; pH IgA COPD Operating Room OR
By placing the rules for case in a global, the rules can be easily changed in data only quarterly patches.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
INDEXED BY: EXAMPLE & ABBREVIATION & COMMENT/MEANING (ABBR), EXAMPLE & COMMENT/MEANING & ABBREVIATION (AED), TOKEN (B),
COMMENT/MEANING (D)
LAST MODIFIED: JUL 27,2017@12:22:34
757.07,.01 TOKEN 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!("~!@#$%^&()_+-={}|[]\;':,.""/<>?"[$E(X,1)) X
LAST EDITED: AUG 20, 2015
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is an abbreviation or token that may have special considerations for lookup or case
determinations.
FIELD INDEX: B (#1461) REGULAR IR LOOKUP & SORTING
Short Descr: New B Index
Description: ^LEX(757.07,"B",TOK,IEN) - Where TOK is the Token and IEN is the Internal Entry Number in file
#757.07 where the Token is stored.
Set Logic: S ^LEX(757.07,"B",$E(X,1,30),DA)=""
Kill Logic: K ^LEX(757.07,"B",$E(X,1,30),DA)
Whole Kill: K ^LEX(757.07,"B")
X(1): TOKEN (757.07,.01) (Subscr 1) (Len 30) (forwards)
Lookup Prompt: Enter a token
Transform (Storage): S X=$$UP^XLFSTR(X)
Transform (Lookup): S X=$$UP^XLFSTR(X)
757.07,1 ORDER 1;0 Multiple #757.0701
DESCRIPTION:
This is a series of rules in the order they will be applied.
IDENTIFIED BY: EXAMPLE(#.03), COMMENT/MEANING(#.04)
757.0701,.01 ORDER 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: OCT 26, 2015
HELP-PROMPT: Type a number between 1 and 100, no decimal digits.
DESCRIPTION:
This is a number indicating the order in which the rules are applied.
CROSS-REFERENCE: 757.0701^B
1)= S ^LEX(757.07,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.07,DA(1),1,"B",$E(X,1,30),DA)
^LEX(757.07,IEN1,1,"B",ORD,IEN2) - Where ORD is the order in which the rule will be applied, IEN2
is the Internal Entry Number in the ORDER Sub-File 757.71 where the Order is stored and IEN1 is
the Internal Entry Number in the TOKEN file 757.71 where the ordered rules are stored.
757.0701,.02 CASE 0;2 SET
'U' FOR UPPERCASE;
'L' FOR lower case;
'M' FOR Mixed Case;
'S' FOR sPecial Case;
LAST EDITED: OCT 26, 2015
HELP-PROMPT: Enter the Case to use (Upper, Lower, Mixed or Special)
DESCRIPTION: This is the case that the token should be displayed in based on the rule if one exist.
U UPPERCASE COPD/HSRD/NASH
L lower case must/that/with
M Mixed Case Br/Jct/Hexa
S Special case IgE/pH/pO2/rDNA
757.0701,.03 EXAMPLE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: DEC 11, 2015
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is an example of the token in the appropriate case.
RECORD INDEXES: ABBR (#1459) (WHOLE FILE #757.07), AED (#1460) (WHOLE FILE #757.07)
757.0701,.04 COMMENT/MEANING 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<2) X
LAST EDITED: DEC 11, 2015
HELP-PROMPT: Answer must be 2-200 characters in length.
DESCRIPTION: This is a short comment describing the token. If the token is an abbreviation this field will
contain the meaning for the abbreviation.
RECORD INDEXES: ABBR (#1459) (WHOLE FILE #757.07), AED (#1460) (WHOLE FILE #757.07), D (#1462) (WHOLE FILE
#757.07)
757.0701,.05 ABBREVIATION 0;5 SET
'1' FOR Abbreviation;
'0' FOR Not an Abbreviation;
LAST EDITED: DEC 11, 2015
HELP-PROMPT: Enter 1 (abbreviation) or 0 (not an abbreviation).
DESCRIPTION: This is a Boolean flag to indicate if the token is an abbreviation or NOT an abbreviation:
1 Token is an abbreviation
0 Token is NOT an abbreviation
RECORD INDEXES: ABBR (#1459) (WHOLE FILE #757.07), AED (#1460) (WHOLE FILE #757.07)
757.0701,1 TERM RULE 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: OCT 26, 2015
HELP-PROMPT: Enter Standard MUMPS code (1 to 245 characters)
DESCRIPTION: This is a rule that applies to the term and is expressed in the format of a MUMPS IF statement
returning a truth value.
Example:
Token AS
Order 1
Case Upper Case
Example as
Comment American Samoa
Term Rule I X["SAMOA"
The rule checks to see if the term X contains the word SAMOA. If so, the token AS will be in
uppercase.
WRITE AUTHORITY: @
757.0701,2 PREVIOUS WORD RULE 2;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: OCT 26, 2015
HELP-PROMPT: Enter Standard MUMPS code (1 to 245 characters)
DESCRIPTION: This is a rule that applies to the word that precedes the token in the term and is expressed in
the format of a MUMPS IF statement returning a truth value.
Token CM
Order 2
Case Lower Case
Example cm
Comment Centimeter
Previous Word Rule
I X?1N.N!(X?1N.N1"."1N.N)!(X="SQ")
The rule checks to see if the previous word X is numeric or equal to "SQ." If so, the token CM
will be in lower case (sq cm).
WRITE AUTHORITY: @
757.0701,3 NEXT WORD RULE 3;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: OCT 26, 2015
HELP-PROMPT: Enter Standard MUMPS code (1 to 245 characters)
DESCRIPTION: This is a rule that applies to the word that follows the token in the term and is expressed in
the format of a MUMPS IF statement returning a truth value.
Token GREATER
Order 1
Case Lower
Example greater
Comment
Next Word Rule I X["THAN"
The rule checks to see if the next word X in the string is "THAN." If so, then the token GREATER
will be in lower case ("greater than").
WRITE AUTHORITY: @
Subfile #757.0701
Record Indexes:
ABBR (#1459) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#757.07)
Short Descr: Abbreviation Index
Description: ^LEX(757.07,"ABBR",ABR,IEN1,IEN2) - Where ABR is an Abbreviation, IEN1 is the entry in the ORDER subfile
757.0701 where the abbreviation is stored and IEN2 is the Internal Entry Number in the TOKEN file #757.07 where
the Abbreviation's rule order is stored.
Set Logic: S ^LEX(757.07,"ABBR",$$UP^XLFSTR($E(X(1),1,30)),DA(1),DA)=$G(X(3))
Set Cond: S X=+($G(X(2)))
Kill Logic: K ^LEX(757.07,"ABBR",$$UP^XLFSTR($E(X(1),1,30)),DA(1),DA)
Whole Kill: K ^LEX(757.07,"ABBR")
X(1): EXAMPLE (757.0701,.03) (Subscr 1) (Len 30) (forwards)
X(2): ABBREVIATION (757.0701,.05) (Subscr 2) (forwards)
X(3): COMMENT/MEANING (757.0701,.04) (Len 200) (forwards)
AED (#1460) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#757.07)
Short Descr: "AED" Example Description Index
Description: ^LEX(757.07,"AED",TOK,MEAN,IEN1,IEN2) - Where TOK is the Token, MEAN is the meaning for the Token taken from
the COMMENT field, IEN2 is the Internal Entry Number in the ORDER Sub-File 757.0701 where the Comment is stored
and IEN1 is the Internal Entry Number in the TOKEN file 757.07 where the ordered rules are stored.
Set Logic: D SAED^LEXNDX9(X(1),X(2),.DA)
Set Cond: S X=$S(X(3)>0&($L(X(1))>0)&($L(X(2))>0):1,1:0)
Kill Logic: D KAED^LEXNDX9(X(1),X(2),.DA)
Whole Kill: K ^LEX(757.07,"AED")
X(1): EXAMPLE (757.0701,.03) (Subscr 1) (Len 30) (forwards)
X(2): COMMENT/MEANING (757.0701,.04) (Subscr 2) (Len 200) (forwards)
X(3): ABBREVIATION (757.0701,.05) (Len 1) (forwards)
D (#1462) RECORD MUMPS IR LOOKUP & SORTING WHOLE FILE (#757.07)
Short Descr: "D" KWIC Index
Description: ^LEX(757.07,"D",WORD,IEN1,IEN2) - Where WORD is a parsed word (KWIC) from a rule's COMMENT field, IEN2 is the
Internal Entry Number in the ORDER Sub-File 757.0701 where the Comment is stored and IEN1 is the Internal Entry
Number in the TOKEN file 757.07 where the ordered rules are stored. This index is used to assist lookup.
Set Logic: D SD^LEXNDX9($G(X(1)),.DA)
Set Cond: S X=$S($L($G(X(1))):1,1:0)
Kill Logic: D KD^LEXNDX9($G(X(1)),.DA)
Whole Kill: K ^LEX(757.07,"D")
X(1): COMMENT/MEANING (757.0701,.04) (Len 200) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):