STANDARD DATA DICTIONARY #860.7 -- ORDER CHECK PATIENT RULE EVENT FILE 9/29/25 PAGE 1
STORED IN ^OCXD(860.7, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a short term data archive that holds historical information
about triggered rules.
CROSS
REFERENCED BY: TIMESTAMP(AT), NAME(B)
860.7,.01 NAME 0;1 POINTER TO ORDER CHECK PATIENT ACTIVE DATA FILE (#860.1) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUL 17, 1995
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.7^B
1)= S ^OCXD(860.7,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.7,"B",$E(X,1,30),DA)
860.7,1 RULE EVENT 1;0 POINTER Multiple #860.71
DESCRIPTION:
The list of rules that have been triggered for this patient.
860.71,.01 RULE 0;1 POINTER TO ORDER CHECK RULE FILE (#860.2) (Multiply asked)
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)
860.71,.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)
860.71,.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.
860.71,.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.
860.71,2 RELATION 1;0 Multiple #860.712
860.712,.01 RELATION 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: DEC 04, 1995
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.712^B
1)= S ^OCXD(860.7,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.7,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
860.712,2 ELEMENTS 1;0 POINTER Multiple #860.7122
860.7122,.01 ELEMENTS 0;1 POINTER TO ORDER CHECK ELEMENT FILE (#860.3) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: DEC 04, 1995
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.7122^B
1)= S ^OCXD(860.7,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.7,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
860.7122,1 TIMESTAMP TIME;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1997
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
860.7122,2 MESSAGE LOG NUMBER LOG;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1997
HELP-PROMPT: Type a Number between 1 and 9999999, 0 Decimal Digits
860.7122,3 DATA FIELDS 1;0 POINTER Multiple #860.71223
860.71223,.01 DATA FIELD 0;1 POINTER TO ORDER CHECK DATA FIELD FILE (#860.4) (Multiply asked)
LAST EDITED: JAN 09, 1997
CROSS-REFERENCE: 860.71223^B
1)= S ^OCXD(860.7,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.7,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
860.71223,1 DATA VALUE VAL;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JAN 09, 1997
HELP-PROMPT: Answer must be 1-200 characters in length.
FILES POINTED TO FIELDS
ORDER CHECK DATA FIELD (#860.4) DATA FIELDS:DATA FIELD (#.01)
ORDER CHECK ELEMENT (#860.3) ELEMENTS:ELEMENTS (#.01)
ORDER CHECK PATIENT ACTIVE DAT
(#860.1) NAME (#.01)
ORDER CHECK RULE (#860.2) RULE EVENT:RULE (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):