STANDARD DATA DICTIONARY #.6 -- DD AUDIT FILE                                                                     9/29/25    PAGE 1
STORED IN ^DDA(   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                                        (VERSION 22.2)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores an audit trail of changes made to data dictionaries.  


              DD ACCESS: ^
              WR ACCESS: ^
             DEL ACCESS: ^
           LAYGO ACCESS: ^
IDENTIFIED BY: DATE UPDATED (#.03)[R], USER (#.04)[R]

CROSS
REFERENCED BY: FIELD NUMBER(B), DATE UPDATED(D), USER(E)



.6,.001       NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
              HELP-PROMPT:      A whole number greater than 1. 

.6,.01        FIELD NUMBER           0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
              CROSS-REFERENCE:  .6^B 
                                1)= S ^DDA(DDA,"B",$E(X,1,30),DA)=""
                                2)= K ^DDA(DDA,"B",$E(X,1,30),DA)


.6,.02        TYPE                   0;2 SET (Required)

                                'E' FOR EDIT; 
                                'N' FOR NEW; 
                                'D' FOR DELETE; 

.6,.03        DATE UPDATED           0;3 DATE (Required)

              INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
              CROSS-REFERENCE:  .6^D 
                                1)= S ^DDA(DDA,"D",$E(X,1,30),DA)=""
                                2)= K ^DDA(DDA,"D",$E(X,1,30),DA)


.6,.04        USER                   0;4 POINTER TO NEW PERSON FILE (#200) (Required)

              CROSS-REFERENCE:  .6^E 
                                1)= S ^DDA(DDA,"E",$E(X,1,30),DA)=""
                                2)= K ^DDA(DDA,"E",$E(X,1,30),DA)


.6,.05        ATTRIBUTE NAME         0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>75!($L(X)<1) X
              HELP-PROMPT:      Answer must be 1-75 characters in length. 

.6,.06        ATTRIBUTE NUMBER       0;6 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
              HELP-PROMPT:      Answer must be 1-30 characters in length. 

.6,.07        FILE NUMBER            0;7 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
              HELP-PROMPT:      Answer must be 1-15 characters in length. 

.6,1          OLD VALUE              1;E1,245 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X

.6,1.1        OLD VALUE(S)           1.1;0   WORD-PROCESSING #.601   (NOWRAP)





.6,2          NEW VALUE              2;E1,245 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X

.6,2.1        NEW VALUE(S)           2.1;0   WORD-PROCESSING #.602   (NOWRAP)






      FILES POINTED TO                      FIELDS

NEW PERSON (#200)                 USER (#.04)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):
DIAUTL                        MAR 21, 2003@12:38  USER #1    

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):