STANDARD DATA DICTIONARY #391.72 -- ADT/HL7 EVENT REASON FILE 9/29/25 PAGE 1
STORED IN ^VAT(391.72, (3 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the event reason codes for admission, discharge and transfer (ADT) Health Level Seven (HL7) events.
IDENTIFIED BY: HL7 APPLICATION PARAMETER (#.02)[R], HL7 EVENT TYPE (#.03)[R]
POINTED TO BY: ADT/HL7 EVENT REASON field (#.07) of the TREATING FACILITY LIST File (#391.91)
CROSS
REFERENCED BY: EVENT REASON CODE(B), HL7 APPLICATION PARAMETER(C), HL7 EVENT TYPE(D)
INDEXED BY: EVENT REASON CODE & HL7 APPLICATION PARAMETER & HL7 EVENT TYPE (AA)
391.72,.01 EVENT REASON CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3AN) X
LAST EDITED: NOV 03, 1999
HELP-PROMPT: Code must be 1-3 alpha/numeric characters in length.
DESCRIPTION:
This is the coded value for the event reason.
TECHNICAL DESCR: This is a free-text field, one to three alpha/numeric characters in length. These codes will not be
able to be deleted through conventional FileMan practice.
DELETE TEST: 1,0)= I 1 D EN^DDIOL(" Event Reason codes cannot be deleted! ")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 391.72^B
1)= S ^VAT(391.72,"B",$E(X,1,30),DA)=""
2)= K ^VAT(391.72,"B",$E(X,1,30),DA)
RECORD INDEXES: AA (#11)
391.72,.02 HL7 APPLICATION PARAMETER 0;2 POINTER TO HL7 APPLICATION PARAMETER FILE (#771) (Required)
LAST EDITED: NOV 02, 1999
HELP-PROMPT: Enter the Application Parameter associated with this event reason.
DESCRIPTION:
This field allows different HL7 Application Parameters to be linked to the same event reason.
CROSS-REFERENCE: 391.72^C
1)= S ^VAT(391.72,"C",$E(X,1,30),DA)=""
2)= K ^VAT(391.72,"C",$E(X,1,30),DA)
RECORD INDEXES: AA (#11)
391.72,.03 HL7 EVENT TYPE 0;3 POINTER TO HL7 EVENT TYPE CODE FILE (#779.001) (Required)
INPUT TRANSFORM: S DIC("S")="I $E($P(^(0),""^""))=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 02, 1999
HELP-PROMPT: Enter the appropriate event type code for this event reason.
DESCRIPTION:
This field links an event type (ADT) to a specific event reason.
SCREEN: S DIC("S")="I $E($P(^(0),""^""))=""A"""
EXPLANATION: Only ADT event types are selectable.
CROSS-REFERENCE: 391.72^D
1)= S ^VAT(391.72,"D",$E(X,1,30),DA)=""
2)= K ^VAT(391.72,"D",$E(X,1,30),DA)
RECORD INDEXES: AA (#11)
391.72,.04 SHORT DESCRIPTION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: NOV 01, 1999
HELP-PROMPT: Description must be 1-40 characters in length.
DESCRIPTION:
This is the text that the user will see on reports and displays.
391.72,50 DESCRIPTION DESC;0 WORD-PROCESSING #391.721
DESCRIPTION: This is the full-length description of the event reason code. This text will not be displayed to
the user.
LAST EDITED: NOV 01, 1999
HELP-PROMPT: Enter a full length description of the event reason code.
DESCRIPTION: This is the full-length description of the event reason code. This text will not be displayed to
the user.
FILES POINTED TO FIELDS
HL7 APPLICATION PARAMETER
(#771) HL7 APPLICATION PARAMETER (#.02)
HL7 EVENT TYPE CODE (#779.001) HL7 EVENT TYPE (#.03)
File #391.72
Record Indexes:
AA (#11) RECORD REGULAR IR SORTING ONLY
Short Descr: Compound cross-reference that links the keys of this file.
Description: This is a compound, regular cross-reference. It identifies Event Reason Code, HL7 Application Parameter and
HL7 Event Type as the primary keys on this file.
Set Logic: S ^VAT(391.72,"AA",$E(X(1),1,3),$E(X(2),1,7),$E(X(3),1,7),DA)=""
Kill Logic: K ^VAT(391.72,"AA",$E(X(1),1,3),$E(X(2),1,7),$E(X(3),1,7),DA)
Whole Kill: K ^VAT(391.72,"AA")
X(1): EVENT REASON CODE (391.72,.01) (Subscr 1) (Len 3) (forwards)
X(2): HL7 APPLICATION PARAMETER (391.72,.02) (Subscr 2) (Len 7) (forwards)
X(3): HL7 EVENT TYPE (391.72,.03) (Subscr 3) (Len 7) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):