HLEVX.m

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

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