Sub-Field: 9999999.681

Information

Parent File	Name	Number	Package
DIAGNOSTIC PROCEDURE RESULT(#9999999.68)	AKA	9999999.681	Utility Tables

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AKA	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: `NOV 19, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9999999.681^B` 1)= S ^AUTTDXPR(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AUTTDXPR(DA(1),1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9999999.68^B^MNEMONIC` 1)= S:'$D(^AUTTDXPR("B",$E(X,1,30),DA(1),DA)) ^(DA)=1 2)= I $D(^AUTTDXPR("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)

AKA

0;1

FREE TEXT

CROSS-REFERENCE: 9999999.681^B

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

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

CROSS-REFERENCE: 9999999.68^B^MNEMONIC

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

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