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)