VA FileMan V. 22 Key and Index Tutorial
[<-- Back to Lesson 11]   [Tutorial File Entries -->]

Data Dictionary

Standard Data Dictionary Listing of the Test File

The following is a standard data dictionary listing of the test file. In this listing, the name of the test file is ZZINDIVIDUAL, with file number 662nnn, stored in global root ^DIZ(662nnn).

STANDARD DATA DICTIONARY #662nnn -- ZZINDIVIDUAL FILE           10/3/00  PAGE 1
STORED IN ^DIZ(662nnn,  (13 ENTRIES)   SITE: XXX   UCI: XXX,YYY
 
DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-------------------------------------------------------------------------------
 
 
              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
 
 
CROSS
REFERENCED BY: NAME(B)
 
   CREATED ON: OCT 3,2000 by USER,TEST
 
662nnn,.01    NAME                   0;1 FREE TEXT (Required)
 
              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      Answer must be 3-30 characters in length.
              CROSS-REFERENCE:  662nnn^B
                                1)= S ^DIZ(662nnn,"B",$E(X,1,30),DA)=""
                                2)= K ^DIZ(662nnn,"B",$E(X,1,30),DA)
 
 
662nnn,.02    SSN                    0;2 FREE TEXT
 
              INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
              HELP-PROMPT:      Answer must be 9 characters in length.
 
662nnn,.03    DOB                    0;3 DATE
 
              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
 
662nnn,2      EMAIL                  2;0 Multiple #662nnn.02
 
 
662nnn.02,.01   EMAIL NAME             0;1 FREE TEXT (Multiply asked)
 
                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
                HELP-PROMPT:      Answer must be 1-20 characters in length.
                CROSS-REFERENCE:  662nnn.02^B
                                1)= S ^DIZ(662nnn,DA(1),2,"B",$E(X,1,30),DA)=""
                                2)= K ^DIZ(662nnn,DA(1),2,"B",$E(X,1,30),DA)
 
 
662nnn.02,1     EMAIL DOMAIN         0;2 FREE TEXT
 
                INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
                HELP-PROMPT:    Answer must be 1-20 characters in length.
 
 
 
662nnn,3.1    AREA CODE              3;1 NUMBER
 
              INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<100)!(X?.E1"."1N.N) X
              HELP-PROMPT:      Type a Number between 100 and 999, 0 Decimal
                                Digits
 
662nnn,3.2    LOCAL NUMBER           3;2 FREE TEXT
 
              INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8)!'(X?3N1"-"4N) X
              HELP-PROMPT:      Answer must be 8 characters in length.
 
662nnn,3.3    PHONE NUMBER           3;3 FREE TEXT
 
              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
              HELP-PROMPT:      Answer must be 1-15 characters in length.
 
662nnn,3.4    OLD PHONE NUMBER       3;4 FREE TEXT
 
              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
              HELP-PROMPT:      Answer must be 1-15 characters in length.
 
662nnn,4.1    DATE CREATED           4;1 DATE
 
              INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X

Click to go to lessons: [Intro] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11]

 


Reviewed/Updated: March 20, 2007