STANDARD DATA DICTIONARY #230.1 -- ED LOG HISTORY FILE 6/27/25 PAGE 1
STORED IN ^EDP(230.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a history of changes to key fields in the ED LOG file. When a record is first created in the ED LOG file, and
each time that record is updated, a record is also created in this file that contains the values of the fields that actually
changed. This gives a thorough history of what was changed when and by whom. A major purpose to the Emergency Department Tracking
System is to measure how long it takes to do things. By keeping this history file, with all the time stamps, it is possible to
generate a variety of reports. These include information such as wait times, lengths of visit, number of delayed visits, etc.
The fields in this file correspond to the identically named fields in the ED LOG file (230). For more detail in the field
description, please refer to the matching field in the ED LOG file.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: LOG ENTRY(B)
INDEXED BY: LOG ENTRY & TIME (ADF), LOG ENTRY & TIME (ADR), LOG ENTRY & TIME (C)
230.1,.01 LOG ENTRY 0;1 POINTER TO ED LOG FILE (#230) (Required)
LAST EDITED: OCT 16, 2008
HELP-PROMPT: Select ED LOG entry.
DESCRIPTION: This references an entry in the ED LOG file. Entries in this file record modifications to entries
in the ED LOG file.
CROSS-REFERENCE: 230.1^B
1)= S ^EDP(230.1,"B",$E(X,1,30),DA)=""
2)= K ^EDP(230.1,"B",$E(X,1,30),DA)
RECORD INDEXES: ADF (#868), ADR (#869), C (#870)
230.1,.02 TIME 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 2008
HELP-PROMPT: Enter time of modification.
DESCRIPTION:
This is the time that the log record was modified.
RECORD INDEXES: ADF (#868), ADR (#869), C (#870)
230.1,.03 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: SEP 12, 2008
HELP-PROMPT: Select the person responsible for this update.
DESCRIPTION:
This is the person who updated the log.
230.1,.04 PATIENT NAME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
If updated, this is the updated value of the patient name.
230.1,.05 PATIENT SSN* 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 05, 2008
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
If updated, this is the updated value of the patient social security number.
TECHNICAL DESCR: The social security number was recorded in the class 3 product in the case that a patient without a
DFN came to the emergency room. It is not currently used, but is here for compatibility with the
class 3 version.
230.1,.06 PATIENT ID 0;6 POINTER TO PATIENT FILE (#2)
LAST EDITED: MAR 05, 2008
HELP-PROMPT: Select the patient.
DESCRIPTION:
If updated, this is the updated value of the patient DFN.
230.1,.07 COMPLAINT 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
If updated, this is the updated value of the complaint.
230.1,.0701 CLOSED 3;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 21, 2012
CROSS-REFERENCE: ^^TRIGGER^230.1^.071
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EDP(230.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,10),X=X S
DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^EDP(230.1,DIV(0),3)),DIV=X S $P(^(3),U,10)=DIV,DIH=2
30.1,DIG=.071 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EDP(230.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,10),X=X S
DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^EDP(230.1,DIV(0),3)),DIV=X S $P(^(3),U,10)=DIV,DIH=230
.1,DIG=.071 D ^DICR
CREATE VALUE)= S X=$$NOW^XLFDT()
DELETE VALUE)= S X=$$NOW^XLFDT
FIELD)= CLOSED DATE/TIME
CROSS-REFERENCE: ^^TRIGGER^230.1^.072
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EDP(230.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,11),X=X S
DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^EDP(230.1,DIV(0),3)),DIV=X S $P(^(3),U,11)=DIV,DIH=230.1,D
IG=.072 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EDP(230.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,11),X=X S
DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^EDP(230.1,DIV(0),3)),DIV=X S $P(^(3),U,11)=DIV,DIH=230.1,D
IG=.072 D ^DICR
CREATE VALUE)= S X=$G(DUZ)
DELETE VALUE)= S X=$G(DUZ)
FIELD)= CLOSED BY
230.1,.071 CLOSED DATE/TIME 3;10 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 25, 2011
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CLOSED field of the ED LOG HISTORY File
230.1,.072 CLOSED BY 3;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 25, 2011
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CLOSED field of the ED LOG HISTORY File
230.1,.073 REMOVED IN ERROR 3;12 SET
'1' FOR YES;
LAST EDITED: OCT 25, 2011
230.1,.074 RESTORED BY 3;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 25, 2011
230.1,.075 RESTORED DATE/TIME 3;14 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 25, 2011
230.1,.08 TIME IN 0;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Enter the arrival time of the patient.
DESCRIPTION:
If updated, this is the updated value of the arrival time of the patient.
230.1,.09 TIME OUT 0;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Enter the departure time.
DESCRIPTION:
If updated, this is the updated value of the departure time of the patient.
230.1,.1 ARRIVAL MODE 0;10 POINTER TO TRACKING CODE FILE (#233.1)
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Enter the source of the patient visit.
DESCRIPTION: If updated, this is the updated value of the source of the patient visit (came from nursing home,
hospital ward, walk-in).
230.1,.11 DISPOSITION 0;11 POINTER TO TRACKING CODE FILE (#233.1)
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Enter the disposition.
DESCRIPTION:
If updated, this is the updated value of the disposition.
230.1,.12 DELAY 0;12 POINTER TO TRACKING CODE FILE (#233.1)
LAST EDITED: NOV 23, 2007
HELP-PROMPT: Enter the delay reason.
DESCRIPTION:
If updated, this is the updated value of the delay reason.
230.1,.14 CLINIC 0;14 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: DEC 15, 2008
HELP-PROMPT: Select a clinic.
DESCRIPTION:
If updated, this is the updated value of the clinic.
230.1,2 COMPLAINT (LONG) 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>220!($L(X)<1) X
LAST EDITED: NOV 29, 2007
HELP-PROMPT: Answer must be 1-220 characters in length.
DESCRIPTION: If updated, this is the updated value of the long complaint (the optional complaint that may be
longer than the display board allows).
230.1,3.2 STATUS 3;2 POINTER TO TRACKING CODE FILE (#233.1)
LAST EDITED: NOV 29, 2007
HELP-PROMPT: Select a status.
DESCRIPTION:
If updated, this is the updated value of the status.
230.1,3.3 ACUITY 3;3 POINTER TO TRACKING CODE FILE (#233.1)
LAST EDITED: NOV 29, 2007
HELP-PROMPT: Select an acuity level.
DESCRIPTION:
If updated, this is the updated value of the acuity.
230.1,3.4 LOC 3;4 POINTER TO TRACKING ROOM-BED FILE (#231.8)
LAST EDITED: NOV 29, 2007
HELP-PROMPT: Select a room/area
DESCRIPTION:
If updated, this is the updated value of the room / area.
230.1,3.5 MD ASSIGNED 3;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 05, 2008
HELP-PROMPT: Select a provider.
DESCRIPTION:
If updated, this is the updated provider.
230.1,3.6 NURSE ASSIGNED 3;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 05, 2008
HELP-PROMPT: Select a nurse.
DESCRIPTION:
If updated, this is the updated nurse.
230.1,3.7 RESIDENT ASSIGNED 3;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 05, 2008
HELP-PROMPT: Select a resident.
DESCRIPTION:
If updated, this is the updated resident.
230.1,3.8 COMMENT 3;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 29, 2007
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
If updated, this is the updated comment.
230.1,9.1 MODIFIED FIELDS 9;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>100!($L(X)<1) X
LAST EDITED: APR 11, 2008
HELP-PROMPT: Answer must be 1-100 characters in length.
DESCRIPTION: This lists the fields that were modified in the corresponding ED LOG record at the time of this
update. The list contains the field numbers and is semi-colon delimited.
FILES POINTED TO FIELDS
ED LOG (#230) LOG ENTRY (#.01)
HOSPITAL LOCATION (#44) CLINIC (#.14)
NEW PERSON (#200) ENTERED BY (#.03)
CLOSED BY (#.072)
RESTORED BY (#.074)
MD ASSIGNED (#3.5)
NURSE ASSIGNED (#3.6)
RESIDENT ASSIGNED (#3.7)
PATIENT (#2) PATIENT ID (#.06)
TRACKING CODE (#233.1) ARRIVAL MODE (#.1)
DISPOSITION (#.11)
DELAY (#.12)
STATUS (#3.2)
ACUITY (#3.3)
TRACKING ROOM-BED (#231.8) LOC (#3.4)
File #230.1
Record Indexes:
ADF (#868) RECORD REGULAR IR SORTING ONLY
Short Descr: Log History by time (LOG, TIME, IEN)
Description: This cross reference provides, for a single emergency department log record (entry in the ED LOG file) a
forward chronological list of updates to the record.
The storage transform S X=+X ensures that numeric collation is used for all entries in the cross reference.
Set Logic: S ^EDP(230.1,"ADF",X(1),X(2),DA)=""
Kill Logic: K ^EDP(230.1,"ADF",X(1),X(2),DA)
Whole Kill: K ^EDP(230.1,"ADF")
X(1): LOG ENTRY (230.1,.01) (Subscr 1) (forwards)
X(2): TIME (230.1,.02) (Subscr 2) (forwards)
Transform (Storage): S X=+X
ADR (#869) RECORD REGULAR IR SORTING ONLY
Short Descr: Log History by inverse time (LOG, INVTIME, IEN)
Description: This cross reference provides, for a single emergency department log record (entry in the ED LOG file) a
reverse chronological list of updates to the record.
Since the display board is refreshed frequently, this cross reference helps that happen as fast as possible.
It allows forward $O to be used to search back in time. This is generally a faster operation than reverse $O
on most M systems.
Set Logic: S ^EDP(230.1,"ADR",X(1),X(2),DA)=""
Kill Logic: K ^EDP(230.1,"ADR",X(1),X(2),DA)
Whole Kill: K ^EDP(230.1,"ADR")
X(1): LOG ENTRY (230.1,.01) (Subscr 1) (forwards)
X(2): TIME (230.1,.02) (Subscr 2) (forwards)
Transform (Storage): S X=9999999-X
C (#870) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Indexes changes for a log entry by inverse time.
Set Logic: S ^EDP(230.1,"C",X(1),X(2),DA)=""
Kill Logic: K ^EDP(230.1,"C",X(1),X(2),DA)
Whole Kill: K ^EDP(230.1,"C")
X(1): LOG ENTRY (230.1,.01) (Subscr 1) (forwards)
X(2): TIME (230.1,.02) (Subscr 2) (forwards)
Transform (Storage): S X=9999999-X
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):