Sub-Field: 101.02

Parent File	Name	Number	Package
PROTOCOL(#101)	SYNONYM	101.02	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYNONYM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<1) X` LAST EDITED: `OCT 31, 1991` HELP-PROMPT: `Enter a synonym for this protocol (1-65 characters)` CROSS-REFERENCE: `101.02^B` `1)= S ^ORD(101,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^ORD(101,DA(1),2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `101^B^MNEMONIC` `1)= S:'$D(^ORD(101,"B",$E(X,1,30),DA(1),DA)) ^(DA)=1` `2)= I $D(^ORD(101,"B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)` CROSS-REFERENCE: `101^K2^MUMPS` `1)= D K21^XQORDD1` `2)= D K22^XQORDD1` CROSS-REFERENCE: `101.02^AM1V1^MUMPS` `1)= D REDOM^XQORD101` `2)= D REDOM^XQORD101` `Updates timestamps on menus containing this item.`

SYNONYM

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<1) X
LAST EDITED: OCT 31, 1991
HELP-PROMPT: Enter a synonym for this protocol (1-65 characters)
CROSS-REFERENCE: 101.02^B
1)= S ^ORD(101,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^ORD(101,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 101^B^MNEMONIC
1)= S:'$D(^ORD(101,"B",$E(X,1,30),DA(1),DA)) ^(DA)=1
2)= I $D(^ORD(101,"B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)
CROSS-REFERENCE: 101^K2^MUMPS
1)= D K21^XQORDD1
2)= D K22^XQORDD1
CROSS-REFERENCE: 101.02^AM1V1^MUMPS
1)= D REDOM^XQORD101
2)= D REDOM^XQORD101
Updates timestamps on menus containing this item.