STANDARD DATA DICTIONARY #405.5 -- MAS OUT-OF-SERVICE FILE                                                        6/27/25    PAGE 1
STORED IN ^DG(405.5,  (9 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                       (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the VACO-approved reasons a room-bed or ward may be placed out-of-service.  These entries must not be altered in
any way.  The internal entry numbers and the entries themselves have been added under the direction of MAS VACO and are the only
approved reasons for placing wards and beds out-of-service.  Altering of this data in any way can have severe and negative impacts
on the operations of many DHCP packages.  


              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @

POINTED TO BY: REASON field (#.02) of the OUT-OF-SERVICE DATE sub-field (#42.08) of the WARD LOCATION File (#42) 
               REASON field (#.02) of the OUT-OF-SERVICE DATE sub-field (#405.42) of the ROOM-BED File (#405.4) 
               

CROSS
REFERENCED BY: REASON(B)



405.5,.001    NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
              HELP-PROMPT:      Type a Number between 1 and 9, 0 Decimal Digits 
              DESCRIPTION:
                                This is the internal file number of the entry in the file.  It MUST NOT be altered.  


405.5,.01     REASON                 0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      ANSWER MUST BE 3-60 CHARACTERS IN LENGTH 
              DESCRIPTION:      This field contains the CO approved reasons a bed or ward may be placed out-of-service.  It must
                                not be altered in any way.  

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



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):