Sub-Field: 860.71

Parent File	Name	Number	Package
ORDER CHECK PATIENT RULE EVENT(#860.7)	RULE EVENT	860.71	Order Entry Results Reporting

Details

Field #	Name	Loc	Type	Details
.01	RULE	0;1	POINTER TO ORDER CHECK RULE FILE (#860.2)	ORDER CHECK RULE(#860.2) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `DEC 04, 1995` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `860.71^B` `1)= S ^OCXD(860.7,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^OCXD(860.7,DA(1),1,"B",$E(X,1,30),DA)`
.02	TIMESTAMP	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 11, 1997` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` CROSS-REFERENCE: `860.7^AT` `1)= D SET^OCXOSCR3($E(X,1,30),DA(1),DA)` `2)= K ^OCXD(860.7,"AT",$E(X,1,30),DA(1),DA)`
.03	ORDER NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 11, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.04	RESULT MESSAGE TEXT	M;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `OCT 08, 1997` HELP-PROMPT: `Answer must be 1-100 characters in length.`
2	RELATION	1;0	Multiple #860.712	860.712