Global: ^LEX(757.07

FileMan FileNo	FileMan Filename	Package
757.07	TOKENS	Lexicon Utility

FileMan FileNo

FileMan Filename

Package

757.07

TOKENS

Lexicon Utility

Description

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	7	LEXNDX9 LEXQWA LEXQWS LEXXMC LINKAGES ORDER ^LEX(757.07

Package

Total

Routines

Lexicon Utility

LEXNDX9 LEXQWA LEXQWS LEXXMC LINKAGES ORDER ^LEX(757.07

Package	Total	Routines
Lexicon Utility	1	LEXQWA

Package

Total

Routines

Lexicon Utility

LEXQWA

Fields, Total: 2

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)`

.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)

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)

Name	Field # of Occurrence
KAED^LEXNDX9	IXAEDKL+1
KD^LEXNDX9	IXDKL+1
SAED^LEXNDX9	IXAEDSL+1
SD^LEXNDX9	IXDSL+1
$$UP^XLFSTR	IXABBRSL+1, IXABBRKL+1, IXBP1TS+1, IXBP1TL+1

Name

Field # of Occurrence

IXAEDKL+1

IXDKL+1

IXAEDSL+1

IXDSL+1

IXABBRSL+1, IXABBRKL+1, IXBP1TS+1, IXBP1TL+1

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757.07 - [#757.07]	IXABBRSL+1, IXABBRKL+1!, IXABBRKEIC+1!, IXAEDKEIC+1!, IXBSL+1, IXBKL+1!, IXBKEIC+1!, IXDKEIC+1!

Name

Line Occurrences (* Changed, ! Killed)

^LEX(757.07 - [#757.07]

IXABBRSL+1*, IXABBRKL+1!, IXABBRKEIC+1!, IXAEDKEIC+1!, IXBSL+1*, IXBKL+1!, IXBKEIC+1!, IXDKEIC+1!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	IXABBRSL+1, IXABBRKL+1, IXAEDSL+1, IXAEDKL+1, IXBSL+1, IXBKL+1, IXDSL+1, IXDKL+1
>> DA(1	IXABBRSL+1, IXABBRKL+1
X	IXABBRSCC+1, IXAEDSCC+1, IXBSL+1, IXBKL+1, IXBP1TS+1, IXBP1TL+1, IXDSCC+1*, .01+1!
X(1	IXABBRSL+1, IXABBRKL+1, IXAEDSL+1, IXAEDSCC+1, IXAEDKL+1, IXDSL+1, IXDSCC+1, IXDKL+1
X(2	IXABBRSCC+1, IXAEDSL+1, IXAEDSCC+1, IXAEDKL+1
X(3	IXABBRSL+1, IXAEDSCC+1

Customize PDF page

Package: Lexicon Utility

Global: ^LEX(757.07

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 1

Fields, Total: 2

External References

Global Variables Directly Accessed

Local Variables

Legend: