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
;
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 ---[H[J[2J[HHLEVMNU 1393 printed Dec 13, 2024@01:57:45 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 ;
+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
