Sub-Field: 9009073.03

Parent File	Name	Number	Package
QMAN EXPORT FORMAT(#9009073)	EXCLUDED	9009073.03	PCC Medical Query

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DELETE START	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 07, 1989` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `9009073.03^B` 1)= S ^AMQQ(3,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^AMQQ(3,DA(1),3,"B",$E(X,1,30),DA)
1	DELETE END	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `9009073^AD^MUMPS` 1)= S ^AMQQ(3,"DELETE",.1,$P(^AMQQ(3,DA(1),0),U),$P(^AMQQ(3,DA(1),3,DA,0),U),X)="" 2)= K ^AMQQ(3,"DELETE",.1,$P(^AMQQ(3,DA(1),0),U),$P(^AMQQ(3,DA(1),3,DA,0),U),X)

DELETE START

0;1

FREE TEXT

CROSS-REFERENCE: 9009073.03^B

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

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

DELETE END

0;2

FREE TEXT

CROSS-REFERENCE: 9009073^AD^MUMPS

1)= S ^AMQQ(3,"DELETE",.1,$P(^AMQQ(3,DA(1),0),U),$P(^AMQQ(3,DA(1),3,DA,0),U),X)=""

2)= K ^AMQQ(3,"DELETE",.1,$P(^AMQQ(3,DA(1),0),U),$P(^AMQQ(3,DA(1),3,DA,0),U),X)