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.` DESCRIPTION: This is the name of the set. 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

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))