Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^EDP(230.1

Package: Emergency Department Integration Software

Global: ^EDP(230.1


Information

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

Description

Directly Accessed By Routines, Total: 15

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

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Emergency Department Integration Software 3 EDPARPT    EDPARPT1    EDPLOGA    

Pointer To FileMan Files, Total: 6

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.123.23.3]    
Kernel 1 NEW PERSON(#200)[.03.072.0743.53.63.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.

External References

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)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EDP(230.1 - [#230.1] IXADFSL+1*, IXADFKL+1!, IXADFKEIC+1!, IXADRSL+1*, IXADRKL+1!, IXADRKEIC+1!, IXCSL+1*, IXCKL+1!, IXCKEIC+1!, .01(XREF 1S)
.01(XREF 1K), .0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(3 .0701(XREF 1S), .0701(XREF 1K), .0701(XREF 2S), .0701(XREF 2K)

Local Variables

Legend:

>> 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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All