Sub-Field: 9002086.251

Parent File	Name	Number	Package
BW MAMMOGRAPHY PROJECT RESPONSES(#9002086.25)	SYNONYM	9002086.251	Women's Health

Parent File

Name

Number

Package

SYNONYM

9002086.251

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYNONYM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($D(^BWMPRESP("B",X))) X I $D(X) K:(X'?.ANP)!($L(X)>50) X` LAST EDITED: `APR 03, 2003` HELP-PROMPT: `Answer must be 1-50 characters in length and not already exist.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002086.251^B` 1)= S ^BWMPRESP(DA(1),1,"B",$E(X,1,50),DA)="" 2)= K ^BWMPRESP(DA(1),1,"B",$E(X,1,50),DA) CROSS-REFERENCE: `9002086.25^B^MNEMONIC` 1)= S:'$D(^BWMPRESP("B",$E(X,1,50),DA(1),DA)) ^(DA)=1 2)= I $D(^BWMPRESP("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)

SYNONYM

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($D(^BWMPRESP("B",X))) X I $D(X) K:(X'?.ANP)!($L(X)>50) X
LAST EDITED: APR 03, 2003
HELP-PROMPT: Answer must be 1-50 characters in length and not already exist.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002086.251^B

1)= S ^BWMPRESP(DA(1),1,"B",$E(X,1,50),DA)=""

2)= K ^BWMPRESP(DA(1),1,"B",$E(X,1,50),DA)

CROSS-REFERENCE: 9002086.25^B^MNEMONIC

1)= S:'$D(^BWMPRESP("B",$E(X,1,50),DA(1),DA)) ^(DA)=1

2)= I $D(^BWMPRESP("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)