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

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

Accessed By FileMan Db Calls, Total: 14

Pointer To FileMan Files, Total: 3

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	EXPRESSION	0;1	POINTER TO EXPRESSIONS FILE (#757.01)	**********************REQUIRED FIELD********************** EXPRESSIONS(#757.01) LAST EDITED: `MAY 12, 2016` HELP-PROMPT: `Enter the expression (2-240 characters) for the code.` 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: `NOV 21, 2016` 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^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: `APR 15, 2016` HELP-PROMPT: `Enter the coding system (source) for the code.` 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 character 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 determine 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)= N SAB 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)` `^LEX(757.02,"AVA",CODE,MCIEN,SAB,IEN) - where CODE is the Classification Code from field 1, MCIEN is a pointer to Major Concept Map file (#757), 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.`
3	MAJOR CONCEPT	0;4	POINTER TO MAJOR CONCEPT MAP FILE (#757)	**********************REQUIRED FIELD********************** MAJOR CONCEPT MAP(#757) LAST EDITED: `SEP 30, 2015` HELP-PROMPT: `Enter the major concept (2-240 characters) for the code.` DESCRIPTION: `Pointer 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: `SEP 30, 2015` HELP-PROMPT: `Enter 1 if this is the preferred term for the code.` 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.`
6	PRIMARY FLAG	0;7	SET	**********************REQUIRED FIELD********************** '0' FOR SUPPLEMENTAL CODE; '1' FOR PRIMARY CODE; LAST EDITED: `SEP 30, 2015` HELP-PROMPT: `Enter 1 if this code is the primary code for the expression.` 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: `SEP 30, 2015` 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

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