STANDARD DATA DICTIONARY #860.1 -- ORDER CHECK PATIENT ACTIVE DATA FILE 3/24/25 PAGE 1
STORED IN ^OCXD(860.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file temoprarily holds patient data that is used to
trigger rules.
This file is only edited by the compiled inferencing routine.
POINTED TO BY: NAME field (#.01) of the ORDER CHECK PATIENT RULE EVENT File (#860.7)
CROSS
REFERENCED BY: PATIENT(B), RULE(TIME)
860.1,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: DEC 04, 1995
DESCRIPTION:
Pointer to the Patient (2) file. Points to the patient that this data belongs to.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.1^B
1)= S ^OCXD(860.1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.1,"B",$E(X,1,30),DA)
860.1,.02 TIMESTAMP TIME;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAR 05, 1996
HELP-PROMPT: Answer must be 1-20 characters in length.
860.1,1 ACTIVE ELEMENT 1;0 Multiple #860.11
LAST EDITED: JAN 11, 1996
DESCRIPTION:
This is the list of Elements that have become TRUE for
this patient.
860.11,.01 TIMESTAMP 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: FEB 14, 1996
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.11^B
1)= S ^OCXD(860.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.1,DA(1),1,"B",$E(X,1,30),DA)
860.11,.02 ELEMENT 0;2 POINTER TO ORDER CHECK ELEMENT FILE (#860.3)
LAST EDITED: FEB 15, 1996
CROSS-REFERENCE: 860.11^C
1)= S ^OCXD(860.1,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^OCXD(860.1,DA(1),1,"C",$E(X,1,30),DA)
860.11,.03 MESSAGE LOG NUMBER 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 08, 1995
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
This is the internal entry number in ^OCXD(861, used
for error tracking and to keep the Order checker from
sending multiple duplicate notifications per HL7 message.
860.11,1 ELEMENT DATA 1;0 POINTER Multiple #860.111
LAST EDITED: JAN 11, 1996
DESCRIPTION:
This is a list of data fields and values that were 'captured'
when this element was found to be TRUE.
860.111,.01 DATA FIELD 0;1 POINTER TO ORDER CHECK DATA FIELD FILE (#860.4) (Multiply asked)
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)
860.111,.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.
860.111,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)
860.1,2 SCHEDULED EVENT 2;0 DATE Multiple #860.12
860.12,.01 SCHEDULED EVENT 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: DEC 04, 1996
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.12^B
1)= S ^OCXD(860.1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.1,DA(1),2,"B",$E(X,1,30),DA)
860.12,1 RULE 1;0 POINTER Multiple #860.121
LAST EDITED: DEC 04, 1996
860.121,.01 RULE 0;1 POINTER TO ORDER CHECK RULE FILE (#860.2) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 04, 1996
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 860.121^B
1)= S ^OCXD(860.1,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^OCXD(860.1,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 860.1^TIME
1)= S ^OCXD(860.1,"TIME",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^OCXD(860.1,"TIME",$E(X,1,30),DA(2),DA(1),DA)
FILES POINTED TO FIELDS
ORDER CHECK DATA FIELD (#860.4) ELEMENT DATA:DATA FIELD (#.01)
ORDER CHECK ELEMENT (#860.3) ACTIVE ELEMENT:ELEMENT (#.02)
ORDER CHECK RULE (#860.2) RULE:RULE (#.01)
PATIENT (#2) PATIENT (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):