STANDARD DATA DICTIONARY #356.016 -- X12 278 OXYGEN DELIVERY SYSTEM CODE FILE                                     9/29/25    PAGE 1
STORED IN ^IBT(356.016,  (5 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 oxygen delivery systems.  
 
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: OXYGEN DELIVERY SYSTEM field (#9.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.016,.01   CODE                   0;1 FREE TEXT (Required)

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

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


356.016,.02   DESCRIPTION            0;2 FREE TEXT

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

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


356.016,.03   INACTIVE?              0;3 SET

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