Sub-Field: 200.04

Parent File	Name	Number	Package
NEW PERSON(#200)	ALIAS	200.04	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ALIAS	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<2)!(X'?2U.UP) X` LAST EDITED: `DEC 10, 1991` HELP-PROMPT: `Answer must be 2-35 uppercase characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.04^B` 1)= S ^VA(200,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `200^BB` 1)= S ^VA(200,"BB",$E(X,1,30),DA(1),DA)="" 2)= K ^VA(200,"BB",$E(X,1,30),DA(1),DA)

ALIAS

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<2)!(X'?2U.UP) X
LAST EDITED: DEC 10, 1991
HELP-PROMPT: Answer must be 2-35 uppercase characters in length.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 200.04^B

1)= S ^VA(200,DA(1),3,"B",$E(X,1,30),DA)=""

2)= K ^VA(200,DA(1),3,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 200^BB

1)= S ^VA(200,"BB",$E(X,1,30),DA(1),DA)=""

2)= K ^VA(200,"BB",$E(X,1,30),DA(1),DA)