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: ^HLEV(776.4

Package: Health Level Seven

Global: ^HLEV(776.4


Information

FileMan FileNo FileMan Filename Package
776.4 HL7 MONITOR EVENT Health Level Seven

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Health Level Seven 14 APPLICATION DATA    HLEM DISPLAY APPLICATION DATA    HLEMDD    HLEME    HLEME1    HLEMEP    HLEMRCV    HLEMSA
HLEMSE    HLEMSL    HLEMSND    HLEVAPI2    MAIL    ^HLEV(776.4    
Kernel 1 ^ORD(101    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Health Level Seven 3 HLEMSE    HLEMSL    HLEMST    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.03]    NEW PERSON(#200)[.08]    
Health Level Seven 1 HL7 MONITOR EVENT TYPE(#776.3)[.02]    

Fields, Total: 20

Field # Name Loc Type Details
.01 DT/TM 0;1 DATE
************************REQUIRED FIELD************************

  • 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)
.02 TYPE 0;2 POINTER TO HL7 MONITOR EVENT TYPE FILE (#776.3)
************************REQUIRED FIELD************************
HL7 MONITOR EVENT TYPE(#776.3)

  • LAST EDITED:  AUG 21, 2003
  • HELP-PROMPT:  What type of event is this?
  • RECORD INDEXES:  AE (#352), AF (#353), AJ (#357), D (#360)
.03 SITE 0;3 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • 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)
.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)
.05 ACTION STATUS 0;5 SET
************************REQUIRED FIELD************************
  • '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)
.06 REVIEW STATUS 0;6 SET
************************REQUIRED FIELD************************
  • '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)
.07 DT/TM REVIEWED 0;7 DATE

  • 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.
.08 REVIEWER 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 10, 2003
  • HELP-PROMPT:  Who reviewed this event?
.09 DT/TM ACTION 0;9 DATE

  • 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?
.1 HL7 ID 0;10 FREE TEXT

  • 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.
.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)
.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)
.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.
.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
.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.
.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.
.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)
1 NOTES 1;0 WORD-PROCESSING #776.41

  • LAST EDITED:  JUL 10, 2003
  • HELP-PROMPT:  Enter your comments and actions taken.
2 MAIL 2;0 Multiple #776.42 776.42

  • LAST EDITED:  JUL 15, 2003
3 APPLICATION DATA 3;0 Multiple #776.43 776.43

  • DESCRIPTION:  
    This allows an application to store its own information relevant to resolving the event along with the event.

Found Entries, Total: 2

DT/TM: 2026-06-18 17:50:08    DT/TM: 2026-06-18 17:50:08    

External References

Name Field # of Occurrence
^%DT .01+1, .07+1, .09+1, .17+1
Y^DIQ ID.02+1
ADDSTAT^HLEMDD IXAFSL+1
CSTATUS^HLEMDD IXAISL+1
DELPURGE^HLEMDD IXAJKL+1
DELSTAT^HLEMDD IXAFKL+1
KILLAH^HLEMDD IXAHKL+1
SETID^HLEMDD IXACSL+1
SETPURGE^HLEMDD IXAJSL+1
STATUS^HLEMDD IXADSL+1
URGENCY^HLEMDD IXAGSL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(776.3 ID.02+1
^HLEV(776.3 - [#776.3] ID.02+1, IXAESCC+1
^HLEV(776.4 - [#776.4] IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!, IXAFKEIC+1!, IXAJKEIC+1!, IXCSL+1*, IXCKL+1!, IXCKEIC+1!, IXDSL+1*, IXDKL+1!
, IXDKEIC+1!, .01(XREF 1S), .01(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.04+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .07+1*, .09+1*, .17+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA IXACSL+1, IXADSL+1, IXAESL+1, IXAEKL+1, IXAGSL+1, IXAHKL+1, IXAISL+1, IXAJSL+1, IXAJKL+1, IXCSL+1
, IXCKL+1, IXDSL+1, IXDKL+1, .01(XREF 1S), .01(XREF 1K)
>> DIC ID.02+1
U ID.02+1, ID.04+1
X IXAESCC+1*, IXCSL+1, IXCKL+1, .01+1*!, .01(XREF 1S), .01(XREF 1K), .04+1!, .07+1*!, .09+1*!, .1+1!
, .11+1!, .13+1!, .14+1!, .15+1!, .16+1!, .17+1*!
X(1 IXAESL+1, IXAEKL+1, IXDSL+1, IXDKL+1
X(2 IXAESL+1, IXAESCC+1, IXAEKL+1, IXDSL+1, IXDKL+1
X(3 IXAESL+1, IXAEKL+1, IXDSL+1, IXDKL+1
X(4 IXDSL+1, IXDKL+1
>> X1(1 IXAJKL+1
>> X1(2 IXAFKL+1, IXAJKL+1
>> X1(3 IXAFSL+1, IXAFKL+1
>> X1(4 IXAFKL+1
>> X1(5 IXAFKL+1
>> X2 IXADSL+1
>> X2(1 IXAFSL+1, IXAGSL+1, IXAISL+1, IXAJSL+1
>> X2(2 IXAFSL+1, IXAGSL+1, IXAJSL+1
>> X2(3 IXAFSL+1, IXAGSL+1
>> X2(4 IXAFSL+1
>> X2(5 IXAFSL+1
>> Y ID.02+1*, .01+1, .07+1, .09+1, .17+1
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