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
|