Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^LEX(757.02

Package: Lexicon Utility

Global: ^LEX(757.02

Information

FileMan FileNo	FileMan Filename	Package
757.02	CODES	Lexicon Utility

Description

This file contains classification codes from multiple classification systems (i.e., ICD, CPT, DSM, SNOMED, Title 38, NANDA, NIC, COSTAR, COSTART, CRISP, etc.).

Directly Accessed By Routines, Total: 47

Package	Total	Routines
Lexicon Utility	45	LEX10CS LEX10CS2 LEX10CX2 LEX10CX3 LEX10CX5 LEX10DBC LEX10DBR LEX10DL LEX10DU LEX10DX LEX10PL LEX10PR LEX10TAX LEX2080A LEX2080P LEX2I03P LEXABC LEXAL LEXAR5 LEXASO LEXCODE LEXDCCC LEXDFSO LEXDFSS LEXLK2 LEXNDX8 LEXPRNT LEXQCP LEXQHL5 LEXQID2 LEXRXB LEXRXD LEXRXD2 LEXRXD3 LEXRXD4 LEXRXXM LEXSRC LEXSRC2 LEXTRAN LEXTRAN1 LEXU LEXU2 LEXU3 LEXU4 LEXXFQ

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Lexicon Utility	2	LEX2I03P LEXTRAN

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Lexicon Utility	3	MAJOR CONCEPT MAP(#757)[3] EXPRESSIONS(#757.01)[.01] CODING SYSTEMS(#757.03)[2]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	EXPRESSION	0;1	POINTER TO EXPRESSIONS FILE (#757.01)	**********************REQUIRED FIELD********************** EXPRESSIONS(#757.01) LAST EDITED: `NOV 24, 1993` HELP-PROMPT: DESCRIPTION: `Pointer to the expression in the Expression file #757.01 to which a classification code (i.e., ICD, CPT, DSM code) has been assigned. This pointer links the code to an expression. This expression can be a Major Concept,` a Synonym or a Lexical Variant of either the Major Concept or the Synonym. UNEDITABLE CROSS-REFERENCE: `757.02^B` 1)= S ^LEX(757.02,"B",$E(X,1,30),DA)="" 2)= K ^LEX(757.02,"B",$E(X,1,30),DA) ^LEX(757.02,"B",EXP,IEN) - where EXP is a pointer to the expression in the Expression file (#757.01) which has been assigned a classification code and IEN is the Internal Entry Number in the Codes file (#757.02) where this expression is located. This index is used to retrieve all codes associated with an expression.
1	CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAR 21, 2003` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: Classification Code as described by a controlled vocabulary (i.e., ICD, CPT, etc). CROSS-REFERENCE: `757.02^ACODE^MUMPS` 1)= Q:+$P($G(^LEX(757.02,DA,0)),U,6) S ^LEX(757.02,"ACODE",X_" ",DA)="" 2)= K ^LEX(757.02,"ACODE",X_" ",DA) ^LEX(757.02,"ACODE",CODE,IEN) - where CODE is a Classification Code (i.e., ICD code, CPT code, DSM code, etc) and IEN is the Internal Entry Number in the Codes file (#757.02) where this code is located. This is an index of all active codes contained in this file. CROSS-REFERENCE: `757.02^ACT1^MUMPS` 1)= D SAHC^LEXNDX8 2)= D KAHC^LEXNDX8 ^LEX(757.02,"ACT",CODE,STA,DATE,IEN,HIS) - Where CODE is the classification code, STA is the status (see below), DATE is the date the code was activated or inactivated, IEN is the internal entry number in the CODES file, and HIS is the entry number of the Activation Status multiple where this historical entry may be found. Values for Status: 0 = Code is Inactive 1 = Code is Active 2 = Code for the preferred term is Inactive 3 = Code for the preferred term is Active CROSS-REFERENCE: `757.02^CODE^MUMPS` 1)= S ^LEX(757.02,"CODE",X_" ",DA)="" 2)= K ^LEX(757.02,"CODE",X_" ",DA) ^LEX(757.02,"CODE",CODE,IEN) - Where CODE is a classification code (i.e. ICD code, CPT code, DSM code, etc) and IEN is the Internal Entry Number in the codes file (#757.02) where this code is located. This is an index of all codes contained in this file. CROSS-REFERENCE: `757.02^APCODE1^MUMPS` 1)= S:$L(X)&(+$P(^LEX(757.02,+DA,0),"^",5)>0) ^LEX(757.02,"APCODE",(X_" "),+DA)="" 2)= K:$L(X)&(+$P(^LEX(757.02,+DA,0),"^",5)>0) ^LEX(757.02,"APCODE",(X_" "),+DA) ^LEX(757.02,"APCODE",(CODE_" "),IEN) - Where CODE is a classification code and IEN is the internal entry number where the record pointing to the preferred term for the code is stored in file 757.02.
2	CLASSIFICATION SOURCE	0;3	POINTER TO CODING SYSTEMS FILE (#757.03)	**********************REQUIRED FIELD********************** CODING SYSTEMS(#757.03) LAST EDITED: `OCT 15, 2003` DESCRIPTION: Pointer to the classification system (ICD/CPT/DSM etc) described in the Coding Systems file (#757.03) from which the code (field 1) is derived. CROSS-REFERENCE: `757.02^ASRC^MUMPS` 1)= S ^LEX(757.02,"ASRC",$E(^LEX(757.03,X,0),1,3),DA)="" 2)= K ^LEX(757.02,"ASRC",$E(^LEX(757.03,X,0),1,3),DA) ^LEX(757.02,"ASRC",SAB,IEN) - where SAB is the three chracter mnemonic of the Source Abbreviation (i.e., ICD, CPT, etc) from the Coding Systems file #757.03 and IEN is the Internal Entry Number where this type of code can be located. This index is used extensively in filtering searches by type of code and used to determin the type of code selected. CROSS-REFERENCE: `757.02^AVA^MUMPS` 1)= N SAB S SAB=$E(^LEX(757.03,X,0),1,3) S:"^ICD^10D^ICP^10P^CPT^CPC^BIR^DS4^NAN^HHC^NIC^SNM^OMA^SCC^SCT^"[SAB ^LEX(757.02,"AVA",($P(^LEX(757.02,DA,0),U,2)_" "),$P(^LEX(757.02,DA,0),U),SAB,DA)="" 2)= S SAB=$E(^LEX(757.03,X,0),1,3) K ^LEX(757.02,"AVA",($P(^LEX(757.02,DA,0),U,2)_" "),$P(^LEX(757.02,DA,0),U),SAB,DA),SAB ^LEX(757.02,"AVA",CODE,SAB,IEN) - where CODE is the Classification Code from field 1, SAB is the three character mnemonic for the source abbreviation in the Coding Systems file #757.03 (i.e., ICD, CPT, etc) and IEN is the Internal Entry Number in the Codes file #757.02 where the code is located. This is an index of only those codes frequently used by the VA (Source Abbreviation SAB is ICD, CPT, DSM, NAN, NIC, OMA, or SNM).
3	MAJOR CONCEPT	0;4	POINTER TO MAJOR CONCEPT MAP FILE (#757)	**********************REQUIRED FIELD********************** MAJOR CONCEPT MAP(#757) LAST EDITED: `NOV 24, 1993` DESCRIPTION: `Pointer the the Major Concept in the Major Concept Map file #757 to which a classification code (i.e., ICD, CPT, DSM code) has been assigned. This pointer links the code to the Major Concept of the expression defined in` the .01 field (Expression). UNEDITABLE CROSS-REFERENCE: `757.02^AMC` 1)= S ^LEX(757.02,"AMC",$E(X,1,30),DA)="" 2)= K ^LEX(757.02,"AMC",$E(X,1,30),DA) ^LEX(757.02,"AMC",MC,IEN) - where MC is a pointer to the Major Concept Map file #757 and IEN is the Internal Entry Number of the Codes file #757.03 where this Major Concept pointer is located. Used to retrieve all codes associated with a Major Concept.
4	PREFERENCE FLAG	0;5	SET	'1' FOR PREFERRED TERM; '0' FOR OTHER THAN PREFERRED TERM; LAST EDITED: `MAR 21, 2003` DESCRIPTION: `Some codes within a coding system are linked to multiple terms. This flag indicates the preferred term of a code (within a classification system), providing a one-to-one relationship between codes and terms. This field` is only populated when a code is linked to multiple terms. CROSS-REFERENCE: `757.02^APCODE2^MUMPS` 1)= S:+X>0&($L($P($G(^LEX(757.02,+DA,0)),U,2))) ^LEX(757.02,"APCODE",($P($G(^LEX(757.02,+DA,0)),U,2)_" "),+DA)="" 2)= K:$L($P($G(^LEX(757.02,+DA,0)),U,2)) ^LEX(757.02,"APCODE",($P($G(^LEX(757.02,+DA,0)),U,2)_" "),+DA) ^LEX(757.02,"APCODE",(CODE_" "),IEN) - Where CODE is a classification code and IEN is the internal entry number where the record pointing to the preferred term for the code is stored in file 757.02.
5	DEACTIVATION FLAG	0;6	SET	'1' FOR DEACTIVATED CODE; LAST EDITED: `JUL 02, 1997` DESCRIPTION: This field indicates that a code formerly in use by the Lexicon has been deactivated and should not be used in lookups or displays. CROSS-REFERENCE: `757.02^ADC^MUMPS` 1)= S:X=1 ^LEX(757.02,"ADC",X,DA)="" 2)= K ^LEX(757.02,"ADC",X,DA) ^LEX(757.02,"ADC",1,IEN) - This is an index of all deactivated codes in the code file where IEN is the Internal Entry Number in the CODES file (757.02) where the deactivated code is located. CROSS-REFERENCE: `757.02^ADCODE^MUMPS` 1)= S:X=1 ^LEX(757.02,"ADCODE",($P($G(^LEX(757.02,DA,0)),U,2)_" "),DA)="" 2)= K ^LEX(757.02,"ADCODE",($P($G(^LEX(757.02,DA,0)),U,2)_" "),DA) ^LEX(757.02,"ADCODE",DC,IEN) - Where DC is a deactivated code and IEN is the internal entry number in the Codes file #757.02 where the deactivated code is located.
6	PRIMARY FLAG	0;7	SET	**********************REQUIRED FIELD********************** '0' FOR SUPPLEMENTAL CODE; '1' FOR PRIMARY CODE; LAST EDITED: `AUG 23, 1995` DESCRIPTION: `If an expression has multiple codes from the same classification system (i.e., ICD, CPT, etc) then one will be flagged as the primary code and the others will be flagged as supplemental. If there is only one code of a` specific classification system then it will be flagged as the primary code.
8	ACTIVATION STATUS	4;0	DATE Multiple #757.28	757.28 DESCRIPTION: This is a listing of the activation history for a code.
13	LEGACY CODE	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 27, 2006` HELP-PROMPT: `Answer must be 1-20 characters in length` DESCRIPTION: `This field stores a code that under a different version of the coding system represents the same concept as the code in the current coding system. E.g. SNOMED CT (the current SNOMED code system) code 123456789 might have a` SNOMED 2 (legacy code system) legacy code of F-12345.

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6837		EXPRESSION (.01). Access: Read w/Fileman CODE (1). Access: Read w/Fileman CLASSIFICATION SOURCE (2). Access: Read w/Fileman MAJOR CONCEPT (3). Access: Read w/Fileman PREFERENCE FLAG (4). Access: Read w/Fileman DEACTIVATION FLAG (5). Access: Read w/Fileman PRIMARY FLAG (6). Access: Read w/Fileman ACTIVATION EFFECTIVE DATE (.01). Access: Read w/Fileman ACTIVATION STATUS (1). Access: Read w/Fileman LEGACY CODE (13). Access: Read w/Fileman

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All