Global: ^EDP(230.1

FileMan FileNo	FileMan Filename	Package
230.1	ED LOG HISTORY	Emergency Department Integration Software

Package	Total	Routines
Emergency Department Integration Software	16	EDPARPT EDPARPT1 EDPBDL EDPCONV EDPLOGA EDPLOGH EDPQDB EDPQPP EDPRPT EDPRPT13 EDPRPT2 EDPRPT7 EDPYPST ^EDP(230.1 ^EDP(234 EDPRPT7C

Package	Total	Routines
Emergency Department Integration Software	3	EDPARPT EDPARPT1 EDPLOGA

Package	Total	FileMan Files
Emergency Department Integration Software	3	ED LOG(#230)[.01] TRACKING ROOM-BED(#231.8)[3.4] TRACKING CODE(#233.1)[.1, .11, .12, 3.2, 3.3]
Kernel	1	NEW PERSON(#200)[.03, .072, .074, 3.5, 3.6, 3.7]
Registration	1	PATIENT(#2)[.06]
Scheduling	1	HOSPITAL LOCATION(#44)[.14]

Fields, Total: 28

Field #	Name	Loc	Type	Details
.01	LOG ENTRY	0;1	POINTER TO ED LOG FILE (#230)	**********************REQUIRED FIELD********************** ED LOG(#230) 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)`
.02	TIME	0;2	DATE	**********************REQUIRED FIELD********************** 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)`
.03	ENTERED BY	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 12, 2008` HELP-PROMPT: `Select the person responsible for this update.` DESCRIPTION: `This is the person who updated the log.`
.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.`
.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.`
.06	PATIENT ID	0;6	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `MAR 05, 2008` HELP-PROMPT: `Select the patient.` DESCRIPTION: `If updated, this is the updated value of the patient DFN.`
.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.`
.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=230.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,DIG=.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,DIG=.072 D ^DICR` `CREATE VALUE)= S X=$G(DUZ)` `DELETE VALUE)= S X=$G(DUZ)` `FIELD)= CLOSED BY`
.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`
.072	CLOSED BY	3;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 25, 2011` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the CLOSED field of the ED LOG HISTORY File`
.073	REMOVED IN ERROR	3;12	SET	'1' FOR YES; LAST EDITED: `OCT 25, 2011`
.074	RESTORED BY	3;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 25, 2011`
.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`
.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.`
.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.`
.1	ARRIVAL MODE	0;10	POINTER TO TRACKING CODE FILE (#233.1)	TRACKING CODE(#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).`
.11	DISPOSITION	0;11	POINTER TO TRACKING CODE FILE (#233.1)	TRACKING CODE(#233.1) LAST EDITED: `NOV 23, 2007` HELP-PROMPT: `Enter the disposition.` DESCRIPTION: `If updated, this is the updated value of the disposition.`
.12	DELAY	0;12	POINTER TO TRACKING CODE FILE (#233.1)	TRACKING CODE(#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.`
.14	CLINIC	0;14	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `DEC 15, 2008` HELP-PROMPT: `Select a clinic.` DESCRIPTION: `If updated, this is the updated value of the clinic.`
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).`
3.2	STATUS	3;2	POINTER TO TRACKING CODE FILE (#233.1)	TRACKING CODE(#233.1) LAST EDITED: `NOV 29, 2007` HELP-PROMPT: `Select a status.` DESCRIPTION: `If updated, this is the updated value of the status.`
3.3	ACUITY	3;3	POINTER TO TRACKING CODE FILE (#233.1)	TRACKING CODE(#233.1) LAST EDITED: `NOV 29, 2007` HELP-PROMPT: `Select an acuity level.` DESCRIPTION: `If updated, this is the updated value of the acuity.`
3.4	LOC	3;4	POINTER TO TRACKING ROOM-BED FILE (#231.8)	TRACKING ROOM-BED(#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.`
3.5	MD ASSIGNED	3;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 05, 2008` HELP-PROMPT: `Select a provider.` DESCRIPTION: `If updated, this is the updated provider.`
3.6	NURSE ASSIGNED	3;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 05, 2008` HELP-PROMPT: `Select a nurse.` DESCRIPTION: `If updated, this is the updated nurse.`
3.7	RESIDENT ASSIGNED	3;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 05, 2008` HELP-PROMPT: `Select a resident.` DESCRIPTION: `If updated, this is the updated resident.`
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.`
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.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .071+1, .075+1, .08+1, .09+1*
>> D0	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
>> DA	IXADFSL+1, IXADFKL+1, IXADRSL+1, IXADRKL+1, IXCSL+1, IXCKL+1, .01(XREF 1S), .01(XREF 1K), .0701(XREF 1S), .0701(XREF 1K) , .0701(XREF 2S), .0701(XREF 2K)
>> DIG	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
>> DIH	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
>> DIU	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
DIV	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
DIV(0	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
DUZ	.0701(XREF 2S), .0701(XREF 2K)
U	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
X	IXADFP2TS+1, IXADRP2TS+1, IXCP2TS+1, .01(XREF 1S), .01(XREF 1K), .02+1!, .04+1!, .05+1!, .07+1!, .0701(XREF 1S) , .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K), .071+1!, .075+1!, .08+1!, .09+1!, 2+1!, 3.8+1!, 9.1+1!
X(1	IXADFSL+1, IXADFKL+1, IXADRSL+1, IXADRKL+1, IXCSL+1, IXCKL+1
X(2	IXADFSL+1, IXADFKL+1, IXADRSL+1, IXADRKL+1, IXCSL+1, IXCKL+1
Y	.02+1, .0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K), .071+1, .075+1, .08+1, .09+1
Y(1	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)

Customize PDF page

Package: Emergency Department Integration Software

Global: ^EDP(230.1

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 6

Fields, Total: 28

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.02+1, .071+1, .075+1, .08+1, .09+1
^DICR	.0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)
$$NOW^XLFDT	.0701(XREF 1S), .0701(XREF 1K)