HLEVMNU.m

HLEVMNU ;O-OIFO/LJA - Event Monitor VistA HL7 PROGRAMMER Menu ;02/04/2004 14:42

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995

 ;

INIT ;

 ;

CTRL ;

 D HEADER

 D M

 D ASK I 'A7UOK QUIT  ;->

 D XEC

 D BT QUIT:'A7UOK  ;->

 G CTRL ;->

 ;

BT ;

 W !

 S A7UOK=0

 N DIR

 S DIR(0)="EA",DIR("A")="Press RETURN to continue, or '^' to exit... "

 D ^DIR

 QUIT:+Y'=1  ;->

 S A7UOK=1

 QUIT

 ;

HEADER ;

 W @IOF,$$CJ^XLFSTR("HL7 Event Monitor Utilities for Programmer",IOM)

 W !,$$REPEAT^XLFSTR("=",80)

 QUIT

 ;

M KILL A7UMENU F I=1:1 S T=$T(M+I) QUIT:T'[";;"  S T=$P(T,";;",2,99),A7UMENU(I)=$P(T,"~",2,99) W !,$J(I,2),". ",$P(T,"~")

 ;;Kill all *RUNTIME* Event Monitoring data~D REMOVALL^HLEVUTIL

 ;;Start queued master job now~D MSTNOW^HLEVMST0

 ;;Queued master job (if no master job queued)~D STARTJOB^HLEVMST

 ;;Test previously run server request~D TEST^HLEVSRV1

 ;;Create $QUERY search strings~D QUERYSTR^HLEVSRV2

 ;;Set/delete debug tags~D DEBUGSET^HLEVAPI2

 ;;Run M code repetitively~D START^HLEVUTI2

 ;;Show M code repetitive jobs~D SHOW^HLEVUTI2

 ;;Test monitor~D TEST^HLEVUTI1

 QUIT

 ;

ASK ;

 W !

 S A7UOK=0

 N DIR

 S DIR(0)="NO^1:"_(+I-1),DIR("A")="Select option"

 D ^DIR

 QUIT:'$D(A7UMENU(+Y))  ;->

 S A7UOPT=+Y

 S A7UOK=1

 QUIT

 ;

XEC ;

 S X=A7UMENU(+A7UOPT) X X

 QUIT

 ;

EOR ;HLEVMNU - Event Monitor VistA HL7 PROGRAMMER Menu ;5/16/03 14:42

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLEVMNU   1393     printed  Feb 18, 2025@23:24:10                                                                                                                                                                                                     Page 2

HLEVMNU   ;O-OIFO/LJA - Event Monitor VistA HL7 PROGRAMMER Menu ;02/04/2004 14:42

 +1       ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995

 +2       ;

INIT      ;

 +1       ;

CTRL      ;

 +1        DO HEADER

 +2        DO M

 +3       ;->

           DO ASK

           IF 'A7UOK

               QUIT 

 +4        DO XEC

 +5       ;->

           DO BT

           if 'A7UOK

               QUIT 

 +6       ;->

           GOTO CTRL

 +7       ;

BT        ;

 +1        WRITE !

 +2        SET A7UOK=0

 +3        NEW DIR

 +4        SET DIR(0)="EA"

           SET DIR("A")="Press RETURN to continue, or '^' to exit... "

 +5        DO ^DIR

 +6       ;->

           if +Y'=1

               QUIT 

 +7        SET A7UOK=1

 +8        QUIT 

 +9       ;

HEADER    ;

 +1        WRITE @IOF,$$CJ^XLFSTR("HL7 Event Monitor Utilities for Programmer",IOM)

 +2        WRITE !,$$REPEAT^XLFSTR("=",80)

 +3        QUIT 

 +4       ;

M          KILL A7UMENU

           FOR I=1:1

               SET T=$TEXT(M+I)

               if T'[";;"

                   QUIT 

               SET T=$PIECE(T,";;",2,99)

               SET A7UMENU(I)=$PIECE(T,"~",2,99)

               WRITE !,$JUSTIFY(I,2),". ",$PIECE(T,"~")

 +1       ;;Kill all *RUNTIME* Event Monitoring data~D REMOVALL^HLEVUTIL

 +2       ;;Start queued master job now~D MSTNOW^HLEVMST0

 +3       ;;Queued master job (if no master job queued)~D STARTJOB^HLEVMST

 +4       ;;Test previously run server request~D TEST^HLEVSRV1

 +5       ;;Create $QUERY search strings~D QUERYSTR^HLEVSRV2

 +6       ;;Set/delete debug tags~D DEBUGSET^HLEVAPI2

 +7       ;;Run M code repetitively~D START^HLEVUTI2

 +8       ;;Show M code repetitive jobs~D SHOW^HLEVUTI2

 +9       ;;Test monitor~D TEST^HLEVUTI1

 +10       QUIT 

 +11      ;

ASK       ;

 +1        WRITE !

 +2        SET A7UOK=0

 +3        NEW DIR

 +4        SET DIR(0)="NO^1:"_(+I-1)

           SET DIR("A")="Select option"

 +5        DO ^DIR

 +6       ;->

           if '$DATA(A7UMENU(+Y))

               QUIT 

 +7        SET A7UOPT=+Y

 +8        SET A7UOK=1

 +9        QUIT 

 +10      ;

XEC       ;

 +1        SET X=A7UMENU(+A7UOPT)

           XECUTE X

 +2        QUIT 

 +3       ;

EOR       ;HLEVMNU - Event Monitor VistA HL7 PROGRAMMER Menu ;5/16/03 14:42