Global: ^LEX(757.07

Information

FileMan FileNo	FileMan Filename	Package
757.07	TOKENS	Lexicon Utility

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.

Package	Total	Routines
Lexicon Utility	1	LEXQWA

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TOKEN	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
1	ORDER	1;0	Multiple #757.0701	757.0701 DESCRIPTION: `This is a series of rules in the order they will be applied.` IDENTIFIED BY: `EXAMPLE(#.03), COMMENT/MEANING(#.04)`

TOKEN

0;1

FREE TEXT

************************REQUIRED FIELD************************

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)

ORDER

1;0

Multiple #757.0701