Sub-Field: 9002195.099

Parent File	Name	Number	Package
ARMS STANDARD ITEM(#9002195)	SEE ALSO	9002195.099	Commitment Register

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SEE ALSO	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Enter additional names used for this item. CROSS-REFERENCE: `9002195.099^B` 1)= S ^ACRITEM(DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^ACRITEM(DA(1),2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002195^D^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^ACRITEM("D",I,DA(1),DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ACRITEM("D",I,DA(1),DA)

SEE ALSO

0;1

FREE TEXT

DESCRIPTION:

Enter additional names used for this item.

CROSS-REFERENCE: 9002195.099^B

1)= S ^ACRITEM(DA(1),2,"B",$E(X,1,30),DA)=""

2)= K ^ACRITEM(DA(1),2,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 9002195^D^KWIC

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^ACRITEM("D",I,DA(1),DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ACRITEM("D",I,DA(1),DA)