STANDARD DATA DICTIONARY #53.3 -- ACTIVITY LOG REASON FILE                                                        9/29/25    PAGE 1
STORED IN ^PS(53.3,  (90 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                       (VERSION 5.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
  A table of explanations for activities on Unit Dose orders.  



POINTED TO BY: ACTION field (#2) of the ACTIVITY LOG sub-field (#53.1119) of the NON-VERIFIED ORDERS File (#53.1) 
               ACTION field (#2) of the ACTIVITY LOG sub-field (#55.09) of the UNIT DOSE sub-field (#55.06) of the PHARMACY PATIENT 
                   File (#55) 
               

CROSS
REFERENCED BY: OLD CODE(C)



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

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
              LAST EDITED:      MAR 16, 1987 
              HELP-PROMPT:      Answer must be 1-60 characters in length. 
              DESCRIPTION:
                                  This is the reason for an activity that has taken placed on a verified Unit Dose order.  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^
              GROUP:            PSJU
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


53.3,1        OLD CODE               0;2 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
              LAST EDITED:      DEC 18, 1986 
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
              DESCRIPTION:
                                  This is previous code used to look-up an entry in this file.  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^
              GROUP:            PSJU
              CROSS-REFERENCE:  53.3^C 
                                1)= S ^PS(53.3,"C",$E(X,1,30),DA)=""
                                2)= K ^PS(53.3,"C",$E(X,1,30),DA)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):