source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEVMNU.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1HLEVMNU ;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 ;
4INIT ;
5 ;
6CTRL ;
7 D HEADER
8 D M
9 D ASK I 'A7UOK QUIT ;->
10 D XEC
11 D BT QUIT:'A7UOK ;->
12 G CTRL ;->
13 ;
14BT ;
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 ;
24HEADER ;
25 W @IOF,$$CJ^XLFSTR("HL7 Event Monitor Utilities for Programmer",IOM)
26 W !,$$REPEAT^XLFSTR("=",80)
27 QUIT
28 ;
29M 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 ;
41ASK ;
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 ;
52XEC ;
53 S X=A7UMENU(+A7UOPT) X X
54 QUIT
55 ;
56EOR ;HLEVMNU - Event Monitor VistA HL7 PROGRAMMER Menu ;5/16/03 14:42
Note: See TracBrowser for help on using the repository browser.