Sub-Field: 9.4014

Parent File	Name	Number	Package
PACKAGE(#9.4)	ADDITIONAL PREFIXES	9.4014	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ADDITIONAL PREFIXES	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2)!'(X?1U1.3UN) X I $D(X) N %,%1,%2 S %="^DIC(9.4)" F %1="C","C2" S %2=$O(@%@(%1,X,0)) I %2>0,%2-DA(1) K X Q` LAST EDITED: `JUN 02, 1999` HELP-PROMPT: `Answer must be 2-4 uppercase characters in length.` DESCRIPTION: This multiple is to record additional PREFIXs that a package may have. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9.4014^B` 1)= S ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA)="" 2)= K ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9.4^C2^MUMPS` 1)= S ^DIC(9.4,"C2",X,DA(1),DA)=1 2)= K ^DIC(9.4,"C2",X,DA(1),DA) 3)= Keep This X-ref sets the additional PREFIX into the "C" index so the standard lookup will find the pachage with the PREFIX.

ADDITIONAL PREFIXES

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>4!($L(X)<2)!'(X?1U1.3UN) X I $D(X) N %,%1,%2 S %="^DIC(9.4)" F %1="C","C2" S %2=$O(@%@(%1,X,0)) I %2>0,%2-DA(1) K X Q
LAST EDITED: JUN 02, 1999
HELP-PROMPT: Answer must be 2-4 uppercase characters in length.

DESCRIPTION:

This multiple is to record additional PREFIXs that a package may have.

CROSS-REFERENCE: 9.4014^B

1)= S ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA)=""

2)= K ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 9.4^C2^MUMPS

1)= S ^DIC(9.4,"C2",X,DA(1),DA)=1

2)= K ^DIC(9.4,"C2",X,DA(1),DA)

3)= Keep

This X-ref sets the additional PREFIX into the "C" index so the standard lookup will find the pachage with the PREFIX.