| 1 | KMPRSS ;OAK/RAK - Resource Usage Monitor Status ;11/19/04 10:32
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
|
|---|
| 3 | ;
|
|---|
| 4 | STAT ;--display rum environment
|
|---|
| 5 | ;
|
|---|
| 6 | D EN^KMPRSSB
|
|---|
| 7 | ;
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | START ; 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 | ;
|
|---|
| 31 | STOP ; 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
|
|---|
