Sub-Field: 860.111

Parent File	Name	Number	Package
860.11	ELEMENT DATA	860.111	Order Entry Results Reporting

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATA FIELD	0;1	POINTER TO ORDER CHECK DATA FIELD FILE (#860.4)	ORDER CHECK DATA FIELD(#860.4) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `JAN 11, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `860.111^B` 1)= S ^OCXD(860.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^OCXD(860.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.02	FREE TEXT DATA FIELD NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `MAR 27, 1996` HELP-PROMPT: `Answer must be 1-100 characters in length.`
1	DATA VALUE	1;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `FEB 15, 1996` HELP-PROMPT: `Answer must be 1-240 characters in length.` CROSS-REFERENCE: `860.111^C` 1)= S ^OCXD(860.1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)="" 2)= K ^OCXD(860.1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)

DATA FIELD

0;1

POINTER TO ORDER CHECK DATA FIELD FILE (#860.4)

CROSS-REFERENCE: 860.111^B

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

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

FREE TEXT DATA FIELD NAME

0;2

FREE TEXT

DATA VALUE

1;E1,240

FREE TEXT

CROSS-REFERENCE: 860.111^C

1)= S ^OCXD(860.1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)=""

2)= K ^OCXD(860.1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)