STANDARD DATA DICTIONARY #757.02 -- CODES FILE 3/24/25 PAGE 1 STORED IN ^LEX(757.02, (840310 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains classification codes from multiple classification systems (i.e., ICD, CPT, DSM, SNOMED, Title 38, NANDA, NIC, COSTAR, COSTART, CRISP, etc.). DD ACCESS: @ RD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ AUDIT ACCESS: @ IDENTIFIED BY: CODE (#1)[R], CLASSIFICATION SOURCE (#2)[R], PREFERENCE FLAG (#4), PRIMARY FLAG (#6)[R] CROSS REFERENCED BY: ACTIVATION STATUS(A10), CODE(ACT1), ACTIVATION EFFECTIVE DATE(ACT2), ACTIVATION STATUS(ACT3), MAJOR CONCEPT(AMC), CODE(APCODE1), PREFERENCE FLAG(APCODE2), CLASSIFICATION SOURCE(ASRC), ACTIVATION EFFECTIVE DATE(AUPD), CLASSIFICATION SOURCE(AVA), EXPRESSION(B), CODE(CODE) LAST MODIFIED: JUL 27,2017@12:22:34 757.02,.01 EXPRESSION 0;1 POINTER TO EXPRESSIONS FILE (#757.01) (Required) 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. 757.02,1 CODE 0;2 FREE TEXT (Required) 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. 757.02,2 CLASSIFICATION SOURCE 0;3 POINTER TO CODING SYSTEMS FILE (#757.03) (Required) 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^SC C^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(^LE X(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. 757.02,3 MAJOR CONCEPT 0;4 POINTER TO MAJOR CONCEPT MAP FILE (#757) (Required) 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. 757.02,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. 757.02,6 PRIMARY FLAG 0;7 SET (Required) '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. 757.02,8 ACTIVATION STATUS 4;0 DATE Multiple #757.28 (Add New Entry without Asking) DESCRIPTION: This is a listing of the activation history for a code. 757.28,.01 ACTIVATION EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 30, 2015 HELP-PROMPT: Enter a date (no range limit) DESCRIPTION: This is the date that a code either became active or inactive. CROSS-REFERENCE: 757.28^B 1)= S ^LEX(757.02,DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^LEX(757.02,DA(1),4,"B",$E(X,1,30),DA) CROSS-REFERENCE: 757.02^ACT2^MUMPS 1)= D SAHD^LEXNDX8 2)= D KAHD^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^AUPD^MUMPS 1)= D SAUPD^LEXNDX8 2)= D KAUPD^LEXNDX8 ^LEX(757.02,"AUPD",SAB,DATE,IEN) - Where SAB is a three character source abbreviation, date is the date the code became either active or inactive, and IEN is the internal entry number where this update occurred. This is used to track updates to the file by coding system. 757.28,1 ACTIVATION STATUS 0;2 SET '0' FOR INACTIVE; '1' FOR ACTIVE; LAST EDITED: SEP 30, 2015 HELP-PROMPT: Enter 0 for Inactive or 1 for Active. DESCRIPTION: This is the activation status, 1 indicates the code is active and 0 indicates the code is inactive. CROSS-REFERENCE: 757.02^ACT3^MUMPS 1)= D SAHS^LEXNDX8 2)= D KAHS^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^A10^MUMPS 1)= D S10^LEXNDX8 2)= D K10^LEXNDX8 ^LEX(757.02,IDX,CODE,DATE,STA,IEN,HIS) - Where IDX is the cross-reference ("ADX" for ICD-10 Diagnosis and "APR" for ICD-10 Procedures), CODE is the classification code, STA is the status (either 1 for active or 0 for inactive), 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. 757.02,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. FILES POINTED TO FIELDS CODING SYSTEMS (#757.03) CLASSIFICATION SOURCE (#2) EXPRESSIONS (#757.01) EXPRESSION (#.01) MAJOR CONCEPT MAP (#757) MAJOR CONCEPT (#3) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):