source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_RUM-KMPR/KMPRSS.m@ 1042

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1KMPRSS ;OAK/RAK - Resource Usage Monitor Status ;11/19/04 10:32
2 ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
3 ;
4STAT ;--display rum environment
5 ;
6 D EN^KMPRSSB
7 ;
8 Q
9 ;
10START ; Start Resource Usage Monitor collection
11 N CHECK,DA,DIE,DIR,DR,X,Y
12 ; check environment
13 D ENVCHECK^KMPRUTL1(.CHECK,1)
14 ; if RUM does not support this operating system then quit.
15 I (+CHECK)=100 W !! D ENVOUTPT^KMPRUTL1(CHECK,1,1) H 1 Q
16 I +$G(^%ZTSCH("LOGRSRC")) W !!,?10,"The Resource Usage Monitor is already running.",! H 1 Q
17 W ! K DIR S DIR(0)="Y",DIR("B")="YES"
18 S DIR("?")="Answer YES to start collecting Resource Usage Monitor data"
19 S DIR("A")="Do you want to start Resource Usage Monitor collection"
20 D ^DIR Q:$D(DTOUT)!$D(DUOUT)
21 I Y D
22 .S DIE=8989.3,DA=1,DR="300///YES" D ^DIE
23 .W !!,?10,"Resource Usage Monitor collection is started.",!
24 .D ENVCHECK^KMPRUTL1(.CHECK,1)
25 .; if background driver not scheduled to run then start it up
26 .D:(+CHECK=200) QUEBKG^KMPRUTL1
27 E W !!,?10,"Resource Usage Monitor collection is NOT started.",!
28 H 1
29 Q
30 ;
31STOP ; Stop Resource Usage Monitor collection
32 N DA,DIE,DIR,DR,DTOUT,DUOUT,X,Y
33 I '+$G(^%ZTSCH("LOGRSRC")) W !!,?10,"The Resource Usage Monitor is already stopped.",! H 1 Q
34 W ! K DIR S DIR(0)="Y",DIR("B")="YES"
35 S DIR("?")="Answer YES to stop collecting Resource Usage Monitor data"
36 S DIR("A")="Do you want to stop Resource Usage Monitor collection"
37 D ^DIR Q:$D(DTOUT)!$D(DUOUT)
38 I Y D
39 .S DIE=8989.3,DA=1,DR="300///NO" D ^DIE
40 .W !!,?10,"Resource Usage Monitor collection is stopped.",!
41 E W !!,?10,"Resource Usage Monitor collection is NOT stopped.",!
42 H 1
43 Q
Note: See TracBrowser for help on using the repository browser.