Global: ^LEXT(757.2

FileMan FileNo	FileMan Filename	Package
757.2	SUBSET DEFINITIONS	Lexicon Utility

Package	Total	Routines
Lexicon Utility	50	DEFAULTS BY USER LEX10TAX LEX2039 LEX2039P LEX2040P LEX2049P LEX2103P LEXA LEXABC LEXAM LEXASC LEXDCC LEXDCX LEXDD1 LEXDD2 LEXDD4 LEXDDSD LEXDDSP LEXDDTV LEXDFL LEXDFN LEXDFN2 LEXDM2 LEXDM4 LEXDMGT LEXDSV LEXDVO LEXDVOS LEXHLP LEXINF2 LEXINF3 LEXLK2 LEXNDX2 LEXQSC LEXQVSE LEXRXF LEXRXS2 LEXSC3 LEXSET4 LEXSET5 LEXU LINKAGES ^LEX(757.21 ^LEXT(757.2 LEXSET LEXSET2 LEXTRAN LEXU5 LEXXGI LEXXGP3
Kernel	1	FILE

Package	Total	Routines
Lexicon Utility	4	LEXDM4 LEXHLP LEXRXS2 LEXSET4

Package	Total	FileMan Files
Lexicon Utility	2	SNOMED CT HIERARCHY(#757.018)[#757.181(.01)] SUBSETS(#757.21)[1]

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[#757.201(.01)]
Lexicon Utility	1	SHORTCUT CONTEXT(#757.41)[17, #757.201(4)]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 24, 1996` HELP-PROMPT: `Descriptive title must be 3-35 characters in length.` DESCRIPTION: `Vocabulary subset name (i.e., "Nursing", "Social Work").` CROSS-REFERENCE: `757.2^B` `1)= S ^LEXT(757.2,"B",$E(X,1,30),DA)=""` `2)= K ^LEXT(757.2,"B",$E(X,1,30),DA)` `^LEXT(757.2,"B",NAME,IEN) - where NAME is the subset Name (.01) and IEN is the Internal Entry Number of the Subset Definition file #757.02 where the subset name is located.` CROSS-REFERENCE: `757.2^C^MUMPS` `1)= S ^LEXT(757.2,"C",$E($$UP^XLFSTR(X),1,63),DA)=""` `2)= K ^LEXT(757.2,"C",$E($$UP^XLFSTR(X),1,63),DA)` `^LEXT(757.2,"C",NAME,IEN) - where NAME is an extended 63 character uppercase subset Name (.01) and IEN is the Internal Entry Number of the Subset Definition file #757.2 where the subset name is located.` CROSS-REFERENCE: `757.2^D^MUMPS` `1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^LEXT(757.2,"D",I,DA)="",^LEXT(757.2,"D",$$UP^XLFSTR(I),DA)="",^LEXT(757.2,"D",$$LOW^XLFSTR(I),DA)=""` `2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEXT(757.2,"D",I,DA),^LEXT(757.2,"D",$$UP^XLFSTR(I),DA),^LEXT(757.2,"D",$$LOW^XLFSTR(I),DA)` `^LEXT(757.2,"D",WORD,IEN) - This is a word index on the Subset name where WORD is a single uppercase/lowercase word parsed from the name and IEN is the Internal Entry Number where this word is located.`
1	SHORT TITLE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3U) X` LAST EDITED: `APR 25, 1996` HELP-PROMPT: `Short Title (index mnemonic) must be 3 characters in length.` DESCRIPTION: `Three character uppercase mnemonic representing the vocabulary subset. This short title, when appended with the letter "A" (i.e. "A"_"NUR" to "ANUR") becomes the name of the index to be used by the look-up utility.` CROSS-REFERENCE: `757.2^AA` `1)= S ^LEXT(757.2,"AA",$E(X,1,30),DA)=""` `2)= K ^LEXT(757.2,"AA",$E(X,1,30),DA)` `^LEXT(757.2,"AA",ST,IEN) - where ST is the Short Title (1) of a subset and IEN is the Internal Entry Number in the Subset Definition file #757.2 where the Short Title is located. The Short Title when when appended with a` `leading "A" becomes the name of the index to use during look-up (i.e., NUR becomes "ANUR" for the Nursing subset index).`
2	GLOBAL REFERENCE	1;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<4) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Global Reference (less ^) must be 4-40 characters in length, i.e., LEX(757,` DESCRIPTION: `Global root of the file containing the vocabulary subset.`
3	HELP ROUTINE ENTRY POINT	2;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `APR 25, 1996` HELP-PROMPT: `Help Routine Entry Point must be 1-8 characters in length, i.e., XTLK` DESCRIPTION: `Contains the help routine's entry point (provided a separate help routine has been written to support the vocabulary subset and the entry point of this routine is other than the first line).`
4	HELP ROUTINE	2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Help Routine must be 3-8 characters in length, i.e., LEXHLP` DESCRIPTION: `Contains the name of the help routine (provided a separate help routine was written). This help routine will be used by the look-up utility.`
5	DISPLAY ROUTINE ENTRY POINT	3;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `APR 25, 1996` HELP-PROMPT: `Display Routine Entry Point must be 1-8 characters in length, i.e., XTLK` DESCRIPTION: `Contains the display routine's entry point (provided a separate display routine has been written to support the vocabulary subset and the entry point of this routine is other than the first line).`
6	DISPLAY ROUTINE	3;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Display Routine must be 3-8 characters in length, i.e., LEXPRNT` DESCRIPTION: `Contains the name of the display routine (provided a separate display routine was written). This display routine will be used by the look-up utility.`
7	DISPLAY CODES	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Display Code String must be 3-100 characters in length, i.e., ICD/NAN/NIC` DESCRIPTION: `This field contains a string of classification/coding systems (separated by slashes) to be displayed during look-up (i.e., "ICD/CPT/DSM/NAN"). This string will not override the user's preferred code display stored in` `^LEXT(757.2,D0,200,DUZ,2)`
8	APPLICATION MNEMONIC	5;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) I '+($$APPS^LEXHLP(X)) K X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Application Mnemonic must be 3 characters in length, and cannot be the same as the Short Title (index identifier at field 1).` DESCRIPTION: `Unique 3 character mnemonic representing either the application using the Lexicon or if an application has more than one set of defaults, it will represent the applications preference. For example, PL1 - Problem List` `Provider entry, PL2 - Problem List ICD only. This field is populated by DB Integration Agreement only` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `757.2^AB^MUMPS` `1)= D SAPP^LEXNDX2` `2)= D KAPP^LEXNDX2` `^LEXT(757.2,"AB",AN,IEN) - where AN is the Application Mnemonic and IEN is the Internal Entry Number of the Subset Definition file where the Application Mnemonic is located. This is an index of only those subsets which` `define an application. (Note: Subsets which define a vocabulary are indexed at "AA")`
9	APPLICATION INDEX	5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Application Index must be 3 characters in length.` DESCRIPTION: `This is the index which the application will use during look-up. This index must be contained in the global defined in the Global Reference (#2). This index name will be appended with a leading "A" to create the index` `name (i.e., "A"_NUR to "ANUR" to use the Nursing Index). This field is populated by DB Integration Agreement only.`
10	APPLICATION FILTER	6;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Application Filter is Standard MUMPS code.` DESCRIPTION: `This is the filter to be used by the application during look-up. It is in the format of a valid IF statement without an action to perform when the condition is true. This field is populated by DB Integration Agreement` `only.` `WRITE AUTHORITY: @`
11	APPLICATION DISPLAY CODES	7;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>210!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Application Display Codes must be 3-210 characters in length, i.e., "ICD/CPT"` DESCRIPTION: `This is a string of source abbreviations (separated by slashes) of the source code to display for an application during look-up. For example:` `ICD/CPT/DSM` `will display ICD-9, CPT-4 and DSM-3R codes with the term during look-up` `This field is populated by DB Integration Agreement only.`
12	APPLICATION USER DEFAULTS	5;3	SET	'1' FOR USER DEFAULTS ALLOWED; '0' FOR USER DEFAULTS ARE NOT ALLOWED; LAST EDITED: `APR 01, 1996` DESCRIPTION: `This is a flag indicating whether an application allows users to specify defaults in field 200 of this file.`
13	APPLICATION FILE NUMBER	5;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."9N.N) X` LAST EDITED: `OCT 16, 1995` HELP-PROMPT: `Type a Number between 1 and 9999999999, 8 Decimal Digits` DESCRIPTION: `This is the file number from the application where the pointer to the Expressions file (#757.01) will be stored.` CROSS-REFERENCE: `757.2^ADEF^MUMPS` `1)= S:+($P($G(^LEXT(757.2,DA,5)),U,3))>0 ^LEXT(757.2,"ADEF",X,DA)=""` `2)= K ^LEXT(757.2,"ADEF",X,DA)` `^LEXT(757.2,"ADEF",FI,IEN) - where FI is the Application File ID (13) and IEN is the Internal Entry Number of the Subset Definition file #757.2 where the Application File ID is located. This index node is only set if` `Application User Default flag (12) is set to 1, and provides an index of only those applications who allow user defaults to be defined at the application level.` CROSS-REFERENCE: `757.2^APPS` `1)= S ^LEXT(757.2,"APPS",$E(X,1,30),DA)=""` `2)= K ^LEXT(757.2,"APPS",$E(X,1,30),DA)` `^LEXT(757.2,"APPS",FI,IEN) - where FI is the Application File ID (13) and IEN is the Internal Entry Number of the Subset Definition file #757.2 where the Application File ID is located. This provides an index of all` `applications defined in this file (with or without user defined defaults).`
14	APPLICATION NAMESPACE	5;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Application Namespace must be 2-4 characters in length.` DESCRIPTION: `This is the unique namespace prefix assigned to the package/application which is defined in this file. It is used to extract application level defaults (filter/display/vocabulary).` EXECUTABLE HELP: `Q` CROSS-REFERENCE: `757.2^AN` `1)= S ^LEXT(757.2,"AN",$E(X,1,30),DA)=""` `2)= K ^LEXT(757.2,"AN",$E(X,1,30),DA)` `^LEXT(757.2,"AN",AN,IEN) - where AN is an Application Namespace and IEN is the Internal Entry Number of the Subset Definition file #757.2 where the Application Namespace is located. This index is used in both setting user` `defaults and setting up the special variables for Lexicon look-up.`
15	UNRESOLVED NARRATIVES	5;6	SET	'1' FOR Use Unresolved Narratives; '0' FOR Do not use Unresolved Narratives; LAST EDITED: `APR 01, 1996` DESCRIPTION: `The Lexicon has the ability to capture user narratives which result in unsuccessful searches. These "Unresolved Narratives" are returned to developers for consideration in future releases of the Lexicon. This flag` `indicates whether an application will use the unresolved feature of the Lexicon.`
16	OVERRIDE USER DEFAULTS	5;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 01, 1996` DESCRIPTION: `Boolean flag for application definition to indicate if the application defaults are to override the defaults set by the user.`
17	SHORTCUT CONTEXT	5;8	POINTER TO SHORTCUT CONTEXT FILE (#757.41)	SHORTCUT CONTEXT(#757.41) LAST EDITED: `FEB 11, 1995` DESCRIPTION: `This points to the context describing the set of shortcuts to use during searches of the Lexicon.`
18	USER MODIFIERS	5;9	SET	'1' FOR USE MODIFIERS; '0' FOR DO NOT USE MODIFIERS; LAST EDITED: `JUL 05, 1997` DESCRIPTION: `Some vocabularies have modifiers. This field is a flag indicating to the lookup whether these modifiers should be accessed during the search.`
100	DESCRIPTION	100;0	WORD-PROCESSING #757.22	DESCRIPTION: `Contains a description of the general make-up of the vocabulary/subset.` LAST EDITED: `JAN 24, 1995` DESCRIPTION: `Contains a description of the general make-up of the vocabulary/subset, and may be used for help in special look-up in this file.`
200	DEFAULTS BY USER	200;0	POINTER Multiple #757.201	757.201 DESCRIPTION: `This multiple contains user defaults for the search filter, display and the vocabulary for a limited number of applications.`

NAME: Lexicon	NAME: Nursing	NAME: Social Work	NAME: Problem List	NAME: Int'l Class Dis/Diag (ICD)	NAME: Immunologic	NAME: Dental	NAME: Nursing Interventions
NAME: ICD-9 Diagnosis	NAME: CPT Procedures	NAME: Mental Health (DSM)	NAME: ICD, CPT and DSM Terminology	NAME: Pharmacy (drug/form)	NAME: CPT/HCPCS Procedures	NAME: Brest Imaging Rpt Data Sys BI-RADS	NAME: ICD-10 Diagnosis
NAME: ICD-10 Procedures	NAME: Encounter Forms	NAME: Encounters Dx (ICD-9)	NAME: Encounters Dx (ICD-10)	NAME: Clinical Reminders Taxonomy	NAME: Title 38 Service Connected	NAME: Service Connected Disabilities	NAME: DSS ICD-9 Diagnosis
NAME: DSS ICD-9 Procedures	NAME: DSS ICD-10 Diagnosis	NAME: DSS ICD-10 Procedures	NAME: DSS CPT/HCPCS Procedures	NAME: ICD-10-CM Preferred Terms	NAME: qualifier value	NAME: finding	NAME: disorder
NAME: body structure	NAME: substance	NAME: physical object	NAME: organism	NAME: physical force	NAME: cell structure	NAME: event	NAME: product
NAME: procedure	NAME: specimen	NAME: attribute	NAME: cell	NAME: morphologic abnormality	NAME: context-dependent category	NAME: environment	NAME: ethnic group
NAME: life style	NAME: observable entity	NAME: occupation	NAME: person	NAME: regime/therapy	NAME: religion/philosophy	NAME: SNOMED RT+CTV3	NAME: administrative concept
NAME: assessment scale	NAME: environment/location	NAME: geographic location	NAME: inactive concept	NAME: namespace concept	NAME: navigational concept	NAME: social concept	NAME: special concept
NAME: staging scale	NAME: tumor staging	NAME: SNOMED CT	NAME: PL Standard	NAME: Clinical Findings	NAME: Function	NAME: record artifact	NAME: situation
NAME: Linkage Concept	NAME: Racial Group	NAME: Link Assertion	NAME: disposition	NAME: unit of presentation	NAME: metadata	NAME: number	NAME: medicinal product
NAME: medicinal product form	NAME: clinical drug	NAME: basic dose form	NAME: state of matter	NAME: transformation	NAME: intended site	NAME: release characteristic	NAME: dose form
NAME: administration method	NAME: role	NAME: supplier	NAME: product name	NAME: virtual clinical drug	NAME: core metadata concept

Name	Field # of Occurrence
^DIM	10+1
$$APPS^LEXHLP	8+1
KAPP^LEXNDX2	8(XREF 1K)
SAPP^LEXNDX2	8(XREF 1S)
$$CPTONE^LEXU	10(IEN:13)
$$ICDONE^LEXU	10(IEN:12)
$$ONE^LEXU	10(IEN:21), 10(IEN:22), 10(IEN:26)
$$PRF^LEXU	10(IEN:50)
$$SC^LEXU	10(IEN:4), 10(IEN:24), 10(IEN:7000001), 10(IEN:7000002)
$$SO^LEXU	10(IEN:5), 10(IEN:11), 10(IEN:14), 10(IEN:15), 10(IEN:17), 10(IEN:20), 10(IEN:25), 10(IEN:29), 10(IEN:40), 10(IEN:41) , 10(IEN:42), 10(IEN:43), 10(IEN:44), 10(IEN:7000001), 10(IEN:7000002), 10(IEN:7000038), 10(IEN:7000039)
$$SRC^LEXU	10(IEN:16)
$$LOW^XLFSTR	.01(XREF 3S), .01(XREF 3K)
$$UP^XLFSTR	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K)

Name	Line Occurrences (* Changed, ! Killed)
^DD("KWIC"	.01(XREF 3S)
^LEXT(757.2 - [#757.2]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 13(XREF 1S), 13(XREF 1K) , 13(XREF 2S), 13(XREF 2K), 14(XREF 1S), 14(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.01(XREF 3S), .01(XREF 3K)
>> %1	.01(XREF 3S), .01(XREF 3K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 13(XREF 1S), 13(XREF 1K) , 13(XREF 2S), 13(XREF 2K), 14(XREF 1S), 14(XREF 1K)
>> I	.01(XREF 3S), .01(XREF 3K)
>> LEXVDT	10(IEN:4), 10(IEN:5), 10(IEN:11), 10(IEN:12), 10(IEN:13), 10(IEN:14), 10(IEN:15), 10(IEN:17), 10(IEN:20), 10(IEN:21) , 10(IEN:22), 10(IEN:24), 10(IEN:25), 10(IEN:26), 10(IEN:29), 10(IEN:40), 10(IEN:41), 10(IEN:42), 10(IEN:43), 10(IEN:44) , 10(IEN:50), 10(IEN:7000001), 10(IEN:7000002), 10(IEN:7000038), 10(IEN:7000039)
U	13(XREF 1S)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1!, 1(XREF 1S), 1(XREF 1K) , 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 11+1! , 13+1!, 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 14+1!, 14(XREF 1S), 14(XREF 1K)
>> Y	10(IEN:4), 10(IEN:5), 10(IEN:11), 10(IEN:12), 10(IEN:13), 10(IEN:14), 10(IEN:15), 10(IEN:16), 10(IEN:17), 10(IEN:20) , 10(IEN:21), 10(IEN:22), 10(IEN:24), 10(IEN:25), 10(IEN:26), 10(IEN:29), 10(IEN:40), 10(IEN:41), 10(IEN:42), 10(IEN:43) , 10(IEN:44), 10(IEN:50), 10(IEN:7000001), 10(IEN:7000002), 10(IEN:7000038), 10(IEN:7000039)

Customize PDF page

Package: Lexicon Utility

Global: ^LEXT(757.2

Information

Description

Directly Accessed By Routines, Total: 53

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 21

Found Entries, Total: 94

ICR, Total: 1

External References

Global Variables Directly Accessed

Local Variables

Legend: