Sub-Field: 101.07

Parent File	Name	Number	Package
PROTOCOL(#101)	SET MEMBERSHIP	101.07	Kernel

Parent File

Name

Number

Package

SET MEMBERSHIP

101.07

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SET MEMBERSHIP	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X` LAST EDITED: `APR 01, 1991` HELP-PROMPT: `Answer must be 2-8 characters in length.` CROSS-REFERENCE: `101.07^B` `1)= S ^ORD(101,DA(1),101.07,"B",$E(X,1,30),DA)=""` `2)= K ^ORD(101,DA(1),101.07,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `101^S^MUMPS` `1)= I $L($P(^ORD(101,DA(1),0),"^",2)) S ^ORD(101,"S."_X,$P(^ORD(101,DA(1),0),"^",2),DA(1))=""` `2)= I $L($P(^ORD(101,DA(1),0),"^",2)) K ^ORD(101,"S."_X,$P(^ORD(101,DA(1),0),"^",2),DA(1))`

SET MEMBERSHIP

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X
LAST EDITED: APR 01, 1991
HELP-PROMPT: Answer must be 2-8 characters in length.
CROSS-REFERENCE: 101.07^B
1)= S ^ORD(101,DA(1),101.07,"B",$E(X,1,30),DA)=""
2)= K ^ORD(101,DA(1),101.07,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 101^S^MUMPS
1)= I $L($P(^ORD(101,DA(1),0),"^",2)) S ^ORD(101,"S."_X,$P(^ORD(101,DA(1),0),"^",2),DA(1))=""
2)= I $L($P(^ORD(101,DA(1),0),"^",2)) K ^ORD(101,"S."_X,$P(^ORD(101,DA(1),0),"^",2),DA(1))