STANDARD DATA DICTIONARY #356.01 -- X12 278 PATIENT STATUS FILE                                                   9/29/25    PAGE 1
STORED IN ^IBT(356.01,  (19 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 patient status.  
 
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: PATIENT STATUS field (#7.03) of the HCS REVIEW TRANSMISSION File (#356.22) 
               

CROSS
REFERENCED BY: CODE(B), CODE(C)

INDEXED BY:    DESCRIPTION (D)


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

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

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

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

              CROSS-REFERENCE:  356.01^C^MUMPS 
                                1)= S ^IBT(356.01,"C"," "_$E(X,1,30),DA)=""
                                2)= K ^IBT(356.01,"C"," "_$E(X,1,30),DA)


356.01,.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:      D (#443)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Convert to Upper Case for lookups
                    Set Logic:  S ^IBT(356.01,"D",$E(X,1,30),DA)=""
                   Kill Logic:  K ^IBT(356.01,"D",$E(X,1,30),DA)
                   Whole Kill:  K ^IBT(356.01,"D")
                         X(1):  DESCRIPTION  (356.01,.02)  (Subscr 1)  (Len 30)  (forwards)
                                  Transform (Storage):  S X=$$UP^XLFSTR($E(X,1,30))


356.01,.03    INACTIVE?              0;3 SET

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