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