STANDARD DATA DICTIONARY #776.4 -- HL7 MONITOR EVENT FILE 6/27/25 PAGE 1
STORED IN ^HLEV(776.4, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.6)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: TYPE (#.02)[R], ID (#.04)
CROSS
REFERENCED BY: DT/TM(B)
INDEXED BY: DT/TM (AC), ACTION STATUS (AD), SITE & TYPE & DT/TM (AE), DT/TM & TYPE & SITE & REVIEW STATUS & COUNT (AF), ACTION
STATUS & REVIEW STATUS & URGENT (AG), (AH), REVIEW STATUS (AI), DT/TM & TYPE (AJ), CREATE DT/TM (AK), ID (C), SITE &
TYPE & DT/TM & REVIEW STATUS (D)
776.4,.01 DT/TM 0;1 DATE (Required)
DATE/TIME OF OCCURENCE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 21, 2003
HELP-PROMPT: When exactly did the even occur?
DESCRIPTION:
The date and time the event occurred.
CROSS-REFERENCE: 776.4^B
1)= S ^HLEV(776.4,"B",$E(X,1,30),DA)=""
2)= K ^HLEV(776.4,"B",$E(X,1,30),DA)
There is only one entry in the HL Event Parameters file (#776.999). The entry's name is stored on
the Name field (#.01), which is cross-referenced in this B xref.
FIELD INDEX: AC (#350) MUMPS ACTION
Short Descr: This trigger sets the ID field.
Set Logic: D SETID^HLEMDD(DA)
Kill Logic: Q
X(1): DT/TM (776.4,.01) (forwards)
RECORD INDEXES: AE (#352), AF (#353), AJ (#357), D (#360)
776.4,.02 TYPE 0;2 POINTER TO HL7 MONITOR EVENT TYPE FILE (#776.3) (Required)
HL7 MONITOR EVENT TYPE
LAST EDITED: AUG 21, 2003
HELP-PROMPT: What type of event is this?
RECORD INDEXES: AE (#352), AF (#353), AJ (#357), D (#360)
776.4,.03 SITE 0;3 POINTER TO INSTITUTION FILE (#4) (Required)
SITE OF EVENT OCCURRENCE
LAST EDITED: JUL 23, 2003
HELP-PROMPT: Where did the event occur?
DESCRIPTION:
This is the location of the event.
RECORD INDEXES: AE (#352), AF (#353), D (#360)
776.4,.04 ID 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<5) X
LAST EDITED: JUL 14, 2003
HELP-PROMPT: Should begin with a prefix consisting of the station number followed by a hyphen.
DESCRIPTION:
This will uniquely identify the event across the entire VHA.
FIELD INDEX: C (#359) REGULAR IR LOOKUP & SORTING
Short Descr: Uniqueness Index for Key 'A' of File #776.4
Set Logic: S ^HLEV(776.4,"C",X,DA)=""
Kill Logic: K ^HLEV(776.4,"C",X,DA)
Whole Kill: K ^HLEV(776.4,"C")
X(1): ID (776.4,.04) (Subscr 1)
776.4,.05 ACTION STATUS 0;5 SET (Required)
'0' FOR ACTION NOT REQUIRED;
'1' FOR NOT YET INITIATED;
'2' FOR IN PROGRESS;
'3' FOR SUCCESS;
'4' FOR FAILURE;
LAST EDITED: JUL 22, 2003
HELP-PROMPT: What is the status of the action?
FIELD INDEX: AD (#351) MUMPS ACTION
Short Descr: Updates REVIEW STATUS if contingent on ACTION STATUS
Set Logic: D STATUS^HLEMDD($G(DA),$G(X2))
Kill Logic: Q
X(1): ACTION STATUS (776.4,.05) (forwards)
RECORD INDEXES: AG (#354)
776.4,.06 REVIEW STATUS 0;6 SET (Required)
'0' FOR NOT REQUIRED;
'1' FOR REQUIRED;
'2' FOR IF ACTION FAILS;
'3' FOR PENDING;
'4' FOR COMPLETED;
LAST EDITED: AUG 20, 2003
HELP-PROMPT: Is a review needed? Has it been completed? Enter the most appropriate status.
FIELD INDEX: AI (#356) MUMPS ACTION
Short Descr: If the review status changes to completed, sets the date and reviewer.
Set Logic: D CSTATUS^HLEMDD($G(DA),X2(1))
Kill Logic: Q
X(1): REVIEW STATUS (776.4,.06) (Subscr 1) (forwards)
RECORD INDEXES: AF (#353), AG (#354), D (#360)
776.4,.07 DT/TM REVIEWED 0;7 DATE
DATE/TIME REVIEWED
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 11, 2003
HELP-PROMPT: When was this event reviewed?
DESCRIPTION:
This documents when the event was manually reviewed. If never reviewed, the field is blank.
776.4,.08 REVIEWER 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 10, 2003
HELP-PROMPT: Who reviewed this event?
776.4,.09 DT/TM ACTION 0;9 DATE
DATE/TIME OF AUTOMATED ACTION
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 11, 2003
HELP-PROMPT: When was the autmated action executed?
776.4,.1 HL7 ID 0;10 FREE TEXT
HL7 MESSAGE ID
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 15, 2003
HELP-PROMPT: If the event is associated with a particular HL7 message, enter the unique HL7 Message ID.
776.4,.11 COUNT 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 23, 2003
HELP-PROMPT: For conglomerated events, enter the count of discrete events included in this event.
DESCRIPTION: This field pertains only to conglomerated events, that is, events that represent a count of
discrete events over some spefcific time period.
RECORD INDEXES: AF (#353)
776.4,.12 URGENT 0;12 SET
'0' FOR NO;
'1' FOR YES;
'2' FOR URGENT IF ACTION FAILS;
LAST EDITED: JUL 22, 2003
HELP-PROMPT: Is it urgent that this event be reviewed?
RECORD INDEXES: AG (#354)
776.4,.13 MESSAGE TYPE 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUL 22, 2003
HELP-PROMPT: Answer with the 3 character HL7 message type code.
776.4,.14 HL7 EVENT TYPE 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUL 22, 2003
HELP-PROMPT: Answer with the 3 character HL7 event type code
776.4,.15 LINK 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JUL 22, 2003
HELP-PROMPT: Answer with the name of the HL Logical Link over which the message was transmitted.
776.4,.16 SENDING APPLICATION 0;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
LAST EDITED: SEP 24, 2003
HELP-PROMPT: Answer with the name of the HL7 Application Parameter that represents the application that sent the
message.
776.4,.17 CREATE DT/TM 0;17 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 24, 2003
HELP-PROMPT: Enter the exact date and time that this record was created.
FIELD INDEX: AK (#358) MUMPS ACTION
Short Descr: Maintains a queue of events that should be sent to remote servers.
Description: The format of the cross-reference is:
^HLEV(776.4,"AK",,)=""
Only events that need to be sent to remote servers are placed on this cross-reference. The
cross-reference is created when $$EVENT^HLEM is called by an application, created within that call.
It is deleted by the background job that sends the event to the remote location.
Set Logic: Q
Kill Logic: Q
X(1): CREATE DT/TM (776.4,.17) (Subscr 1) (forwards)
776.4,1 NOTES 1;0 WORD-PROCESSING #776.41
LAST EDITED: JUL 10, 2003
HELP-PROMPT: Enter your comments and actions taken.
776.4,2 MAIL 2;0 Multiple #776.42
LAST EDITED: JUL 15, 2003
776.42,.01 MAIL 0;1 FREE TEXT (Multiply asked)
MAIL MESSAGE
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 25, 2003
HELP-PROMPT: This is a pointer to the Message file (#3.9) stored as free text.
CROSS-REFERENCE: 776.42^B
1)= S ^HLEV(776.4,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^HLEV(776.4,DA(1),2,"B",$E(X,1,30),DA)
776.4,3 APPLICATION DATA 3;0 Multiple #776.43
DESCRIPTION: This allows an application to store its own information relevant to resolving the event along with
the event.
776.43,.01 SUBSCRIPTED VARIABLE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>230!($L(X)<3) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Enter the name of the variable to save, including any subscripts.
DESCRIPTION: This is the name of the variable, which may or may not include subcripts. Examples are:
"DUZ" "ICN" "MYDATA(1)" "MYDATA(2)" "MYDATA(""PATIENTS"",33)"
CROSS-REFERENCE: 776.43^B
1)= S ^HLEV(776.4,DA(1),3,"B",$E(X,1,230),DA)=""
2)= K ^HLEV(776.4,DA(1),3,"B",$E(X,1,230),DA)
776.43,2 VALUE 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: JUL 10, 2003
HELP-PROMPT: What is the value? Enter a string 1-245 characters in length.
FILES POINTED TO FIELDS
HL7 MONITOR EVENT TYPE (#776.3) TYPE (#.02)
INSTITUTION (#4) SITE (#.03)
NEW PERSON (#200) REVIEWER (#.08)
File #776.4
Record Indexes:
AE (#352) RECORD REGULAR SORTING ONLY
Short Descr: Used for conglomerating events.
Set Logic: S ^HLEV(776.4,"AE",X(1),X(2),X(3),DA)=""
Set Cond: I $G(X(2)) S X=$P(^HLEV(776.3,X(2),0),"^",5)
Kill Logic: K ^HLEV(776.4,"AE",X(1),X(2),X(3),DA)
Whole Kill: K ^HLEV(776.4,"AE")
X(1): SITE (776.4,.03) (Subscr 1) (forwards)
X(2): TYPE (776.4,.02) (Subscr 2) (forwards)
X(3): DT/TM (776.4,.01) (Subscr 3) (forwards)
AF (#353) RECORD MUMPS ACTION
Short Descr: Collects statistics on events
Description: This x~ref mantains statistics on HL7 Monitor Events as they are created and as their review status changes.
Currenly, statistics maintained are as follows:
Total #of events created,in different time periods by site, event type, and time period in the format:
^HLEV(776.4,"AF",,,"RECEIVED","YEAR",)=count
^HLEV(776.4,"AF",,,"RECEIVED","YEAR",,"MONTH",)=count
^HLEV(776.4,"AF",,,"RECEIVED","YEAR",,"MONTH",,"DAY",,,"RECEIVED","YEAR",,"MONTH",,"DAY",)=count
Total # of events exisitng in various Review Status's by site, event type, and review status in this format:
^HLEV(776.4,"AF",,,)=count
Set Logic: D ADDSTAT^HLEMDD(X2(1),X1(3),X2(3),X2(2),X2(4),X2(5))
Kill Logic: D DELSTAT^HLEMDD(X1(3),X1(2),X1(4),X1(5))
Whole Kill: K ^HLEV(776.4,"AF")
X(1): DT/TM (776.4,.01) (forwards)
X(2): TYPE (776.4,.02) (forwards)
X(3): SITE (776.4,.03) (forwards)
X(4): REVIEW STATUS (776.4,.06) (forwards)
X(5): COUNT (776.4,.11) (forwards)
AG (#354) RECORD MUMPS ACTION
Short Descr: Triggers updates in the URGENT field.
Description: Triggers changes in the URGENT field as changes in the review status and action status occur.
Set Logic: D URGENCY^HLEMDD($G(DA),$G(X2(3)),$G(X2(1)),$G(X2(2)))
Kill Logic: Q
X(1): ACTION STATUS (776.4,.05) (Subscr 1) (forwards)
X(2): REVIEW STATUS (776.4,.06) (Subscr 2) (forwards)
X(3): URGENT (776.4,.12) (Subscr 3) (forwards)
AH (#355) RECORD MUMPS ACTION
Short Descr: Applications own index, option, for private use.
Description: This cross~reference will be used by applications to determine whether or not the event has already been
logged. It is optional. The application can pass in a list of parameters with which to build an index.
Latter, it can search that index via an API to determine if the event has already been logged.
Set Logic: Q
Kill Logic: D KILLAH^HLEMDD(.DA)
AJ (#357) RECORD MUMPS IR ACTION
Short Descr: Sets the purge date and time
Description: This index triggers the computation of the earliest purge date for this event record and sets it into the AJ
index. The format of the index is:
^HLEV(776.4,"AJ",,)=""
Set Logic: D SETPURGE^HLEMDD($G(DA),$G(X2(1)),$G(X2(2)))
Kill Logic: D DELPURGE^HLEMDD($G(DA),$G(X1(1)),$G(X1(2)))
Whole Kill: K ^HLEV(776.4,"AJ")
X(1): DT/TM (776.4,.01) (Subscr 1) (forwards)
X(2): TYPE (776.4,.02) (Subscr 2) (forwards)
D (#360) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Used for sorting events for reports and displays.
Description: This index will sort the HL7 Monitor Events as follows:
"D",,,,,)=""
Set Logic: S ^HLEV(776.4,"D",X(1),X(2),X(3),X(4),DA)=""
Kill Logic: K ^HLEV(776.4,"D",X(1),X(2),X(3),X(4),DA)
Whole Kill: K ^HLEV(776.4,"D")
X(1): SITE (776.4,.03) (Subscr 1) (forwards)
X(2): TYPE (776.4,.02) (Subscr 2) (forwards)
X(3): DT/TM (776.4,.01) (Subscr 3) (forwards)
X(4): REVIEW STATUS (776.4,.06) (Subscr 4) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):