STANDARD DATA DICTIONARY #356.012 -- X12 278 SUBLUXATION LEVEL CODE FILE                                          9/29/25    PAGE 1
STORED IN ^IBT(356.012,  (28 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 subluxation level.  
 
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: SUBLUXATION LEVEL CODE #1 field (#7.07) of the HCS REVIEW TRANSMISSION File (#356.22) 
               SUBLUXATION LEVEL CODE #2 field (#7.08) 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.012,.01   CODE                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X
              LAST EDITED:      APR 16, 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.012^B 
                                1)= S ^IBT(356.012,"B",$E(X,1,30),DA)=""
                                2)= K ^IBT(356.012,"B",$E(X,1,30),DA)


356.012,.02   DESCRIPTION            0;2 FREE TEXT

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

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


356.012,.03   INACTIVE?              0;3 SET

                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      APR 16, 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):