HLEVX ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
;
; All official event code for the VistA HL7 package will be included
; in the LIST subroutine below (for internal team use.)
;
CTRL D LIST
F QUIT:($Y+3)>IOSL W !
S X=$$BTE^HLCSMON("Press RETURN to exit... ")
Q
;
LIST N I,T W @IOF,$$CJ^XLFSTR("Official VistA HL7 Event Monitor Code",IOM),!,$$REPEAT^XLFSTR("=",IOM) F I=1:1 S T=$T(LIST+I) Q:T'[";;" S T=$P(T,";;",2,99) W !,$P(T,U,1,2),?18,$P(T,U,3)
;;
;;The "monitors" that are officially included in the VistA HL7 package are
;;listed below.
;;
;;Routine Monitor-Name
;;==============================================================================
;;SYSTEM^HLEVX001^EVENT MONITOR
;;CHK870^HLEVX000^STUB 870 SEARCH & MORE
;;CHKXREF^HLEVX002^XREF CHECK - FILE 772 & 773
Q
;
EOR ;HLEVX - VistA HL7 Event Monitor Code ;5/30/03 15:25
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEVX 952 printed Sep 23, 2025@19:34:09 Page 2
HLEVX ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
+2 ;
+3 ; All official event code for the VistA HL7 package will be included
+4 ; in the LIST subroutine below (for internal team use.)
+5 ;
CTRL DO LIST
+1 FOR
if ($Y+3)>IOSL
QUIT
WRITE !
+2 SET X=$$BTE^HLCSMON("Press RETURN to exit... ")
+3 QUIT
+4 ;
LIST NEW I,T
WRITE @IOF,$$CJ^XLFSTR("Official VistA HL7 Event Monitor Code",IOM),!,$$REPEAT^XLFSTR("=",IOM)
FOR I=1:1
SET T=$TEXT(LIST+I)
if T'[";;"
QUIT
SET T=$PIECE(T,";;",2,99)
WRITE !,$PIECE(T,U,1,2),?18,$PIECE(T,U,3)
+1 ;;
+2 ;;The "monitors" that are officially included in the VistA HL7 package are
+3 ;;listed below.
+4 ;;
+5 ;;Routine Monitor-Name
+6 ;;==============================================================================
+7 ;;SYSTEM^HLEVX001^EVENT MONITOR
+8 ;;CHK870^HLEVX000^STUB 870 SEARCH & MORE
+9 ;;CHKXREF^HLEVX002^XREF CHECK - FILE 772 & 773
+10 QUIT
+11 ;
EOR ;HLEVX - VistA HL7 Event Monitor Code ;5/30/03 15:25
