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