| 1 | HLEVMNU ;O-OIFO/LJA - Event Monitor VistA HL7 PROGRAMMER Menu ;02/04/2004 14:42
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | INIT ;
|
|---|
| 5 | ;
|
|---|
| 6 | CTRL ;
|
|---|
| 7 | D HEADER
|
|---|
| 8 | D M
|
|---|
| 9 | D ASK I 'A7UOK QUIT ;->
|
|---|
| 10 | D XEC
|
|---|
| 11 | D BT QUIT:'A7UOK ;->
|
|---|
| 12 | G CTRL ;->
|
|---|
| 13 | ;
|
|---|
| 14 | BT ;
|
|---|
| 15 | W !
|
|---|
| 16 | S A7UOK=0
|
|---|
| 17 | N DIR
|
|---|
| 18 | S DIR(0)="EA",DIR("A")="Press RETURN to continue, or '^' to exit... "
|
|---|
| 19 | D ^DIR
|
|---|
| 20 | QUIT:+Y'=1 ;->
|
|---|
| 21 | S A7UOK=1
|
|---|
| 22 | QUIT
|
|---|
| 23 | ;
|
|---|
| 24 | HEADER ;
|
|---|
| 25 | W @IOF,$$CJ^XLFSTR("HL7 Event Monitor Utilities for Programmer",IOM)
|
|---|
| 26 | W !,$$REPEAT^XLFSTR("=",80)
|
|---|
| 27 | QUIT
|
|---|
| 28 | ;
|
|---|
| 29 | 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,"~")
|
|---|
| 30 | ;;Kill all *RUNTIME* Event Monitoring data~D REMOVALL^HLEVUTIL
|
|---|
| 31 | ;;Start queued master job now~D MSTNOW^HLEVMST0
|
|---|
| 32 | ;;Queued master job (if no master job queued)~D STARTJOB^HLEVMST
|
|---|
| 33 | ;;Test previously run server request~D TEST^HLEVSRV1
|
|---|
| 34 | ;;Create $QUERY search strings~D QUERYSTR^HLEVSRV2
|
|---|
| 35 | ;;Set/delete debug tags~D DEBUGSET^HLEVAPI2
|
|---|
| 36 | ;;Run M code repetitively~D START^HLEVUTI2
|
|---|
| 37 | ;;Show M code repetitive jobs~D SHOW^HLEVUTI2
|
|---|
| 38 | ;;Test monitor~D TEST^HLEVUTI1
|
|---|
| 39 | QUIT
|
|---|
| 40 | ;
|
|---|
| 41 | ASK ;
|
|---|
| 42 | W !
|
|---|
| 43 | S A7UOK=0
|
|---|
| 44 | N DIR
|
|---|
| 45 | S DIR(0)="NO^1:"_(+I-1),DIR("A")="Select option"
|
|---|
| 46 | D ^DIR
|
|---|
| 47 | QUIT:'$D(A7UMENU(+Y)) ;->
|
|---|
| 48 | S A7UOPT=+Y
|
|---|
| 49 | S A7UOK=1
|
|---|
| 50 | QUIT
|
|---|
| 51 | ;
|
|---|
| 52 | XEC ;
|
|---|
| 53 | S X=A7UMENU(+A7UOPT) X X
|
|---|
| 54 | QUIT
|
|---|
| 55 | ;
|
|---|
| 56 | EOR ;HLEVMNU - Event Monitor VistA HL7 PROGRAMMER Menu ;5/16/03 14:42
|
|---|
