STANDARD DATA DICTIONARY #356.006 -- X12 278 DIAGNOSIS TYPE FILE                                                  9/29/25    PAGE 1
STORED IN ^IBT(356.006,  (10 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all the corresponding X.12 codes for diagnosis types.  
 
Per VHA Directive 10-93-142, this file definition should not be modified.  


              DD ACCESS: @
              RD ACCESS: 
              WR ACCESS: 
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: 
IDENTIFIED BY: DESCRIPTION (#.02)

POINTED TO BY: CODE LIST QUALIFIER CODE field (#.02) of the HI SEGMENTS sub-field (#356.22107) of the HCS REVIEW TRANSMISSION File 
                   (#356.22) 
               DIAGNOSIS TYPE field (#.01) of the PATIENT DIAGNOSIS sub-field (#356.223) of the HCS REVIEW TRANSMISSION File 
                   (#356.22) 
               CODE LIST QUALIFIER CODE field (#.02) of the HI SEGMENTS sub-field (#356.2316) of the SERVICE LINE sub-field 
                   (#356.2216) of the HCS REVIEW TRANSMISSION File (#356.22) 
               

CROSS
REFERENCED BY: CODE(B)

INDEXED BY:    DESCRIPTION (C)


    LAST MODIFIED: SEP 2,2016@13:49:10

356.006,.01   CODE                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X
              LAST EDITED:      APR 08, 2014 
              HELP-PROMPT:      Answer must be 2-3 characters in length. 
              DESCRIPTION:
                                This is the code value sent in an X.12 message.  

              CROSS-REFERENCE:  356.006^B 
                                1)= S ^IBT(356.006,"B",$E(X,1,30),DA)=""
                                2)= K ^IBT(356.006,"B",$E(X,1,30),DA)


356.006,.02   DESCRIPTION            0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
              LAST EDITED:      MAR 30, 2015 
              HELP-PROMPT:      Answer must be 1-40 characters in length. 
              DESCRIPTION:
                                This describes the code value in more detail.  

              FIELD INDEX:      C (#439)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Convert to Upper Case for lookups
                    Set Logic:  S ^IBT(356.006,"C",$E(X,1,30),DA)=""
                   Kill Logic:  K ^IBT(356.006,"C",$E(X,1,30),DA)
                   Whole Kill:  K ^IBT(356.006,"C")
                         X(1):  DESCRIPTION  (356.006,.02)  (Subscr 1)  (Len 30)  (forwards)
                                  Transform (Storage):  S X=$$UP^XLFSTR($E(X,1,30))


356.006,.03   INACTIVE?              0;3 SET

                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      APR 08, 2014 
              HELP-PROMPT:      Set this to YES in order to deactivate the code. 
              DESCRIPTION:
                                This field will be marked inactive if a code is determined to no longer be used by X.12.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):