- KMPRSS ;OAK/RAK - Resource Usage Monitor Status ;1/30/13 08:31
- ;;2.0;CAPACITY MANAGEMENT - RUM;**1,2**;May 28, 2003;Build 12
- ;
- STAT ;--display rum environment
- ;
- D DISPLAY^KMPDSS1("R^RUM")
- ;
- Q
- ;
- START ; Start Resource Usage Monitor collection
- N CHECK,DA,DIE,DIR,DR,X,Y
- ; check environment
- D ENVCHECK^KMPRUTL1(.CHECK,1)
- ; if RUM does not support this operating system then quit.
- I (+CHECK)=100 W !! D ENVOUTPT^KMPRUTL1(CHECK,1,1) H 1 Q
- I +$G(^%ZTSCH("LOGRSRC")) W !!,?10,"The Resource Usage Monitor is already running.",! H 1 Q
- W ! K DIR S DIR(0)="Y",DIR("B")="YES"
- S DIR("?")="Answer YES to start collecting Resource Usage Monitor data"
- S DIR("A")="Do you want to start Resource Usage Monitor collection"
- D ^DIR Q:$D(DTOUT)!$D(DUOUT)
- I Y D
- .S DIE=8989.3,DA=1,DR="300///YES" D ^DIE
- .W !!,?10,"Resource Usage Monitor collection is started.",!
- .D ENVCHECK^KMPRUTL1(.CHECK,1)
- .; if background driver not scheduled to run then start it up
- .D:(+CHECK=200) QUEBKG^KMPRUTL1
- E W !!,?10,"Resource Usage Monitor collection is NOT started.",!
- H 1
- Q
- ;
- STOP ; Stop Resource Usage Monitor collection
- N DA,DIE,DIR,DR,DTOUT,DUOUT,X,Y
- I '+$G(^%ZTSCH("LOGRSRC")) W !!,?10,"The Resource Usage Monitor is already stopped.",! H 1 Q
- W ! K DIR S DIR(0)="Y",DIR("B")="YES"
- S DIR("?")="Answer YES to stop collecting Resource Usage Monitor data"
- S DIR("A")="Do you want to stop Resource Usage Monitor collection"
- D ^DIR Q:$D(DTOUT)!$D(DUOUT)
- I Y D
- .S DIE=8989.3,DA=1,DR="300///NO" D ^DIE
- .W !!,?10,"Resource Usage Monitor collection is stopped.",!
- E W !!,?10,"Resource Usage Monitor collection is NOT stopped.",!
- H 1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPRSS 1676 printed Mar 13, 2025@20:46:23 Page 2
- +1 ;;2.0;CAPACITY MANAGEMENT - RUM;**1,2**;May 28, 2003;Build 12
- +2 ;
- STAT ;--display rum environment
- +1 ;
- +2 DO DISPLAY^KMPDSS1("R^RUM")
- +3 ;
- +4 QUIT
- +5 ;
- START ; Start Resource Usage Monitor collection
- +1 NEW CHECK,DA,DIE,DIR,DR,X,Y
- +2 ; check environment
- +3 DO ENVCHECK^KMPRUTL1(.CHECK,1)
- +4 ; if RUM does not support this operating system then quit.
- +5 IF (+CHECK)=100
- WRITE !!
- DO ENVOUTPT^KMPRUTL1(CHECK,1,1)
- HANG 1
- QUIT
- +6 IF +$GET(^%ZTSCH("LOGRSRC"))
- WRITE !!,?10,"The Resource Usage Monitor is already running.",!
- HANG 1
- QUIT
- +7 WRITE !
- KILL DIR
- SET DIR(0)="Y"
- SET DIR("B")="YES"
- +8 SET DIR("?")="Answer YES to start collecting Resource Usage Monitor data"
- +9 SET DIR("A")="Do you want to start Resource Usage Monitor collection"
- +10 DO ^DIR
- if $DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +11 IF Y
- Begin DoDot:1
- +12 SET DIE=8989.3
- SET DA=1
- SET DR="300///YES"
- DO ^DIE
- +13 WRITE !!,?10,"Resource Usage Monitor collection is started.",!
- +14 DO ENVCHECK^KMPRUTL1(.CHECK,1)
- +15 ; if background driver not scheduled to run then start it up
- +16 if (+CHECK=200)
- DO QUEBKG^KMPRUTL1
- End DoDot:1
- +17 IF '$TEST
- WRITE !!,?10,"Resource Usage Monitor collection is NOT started.",!
- +18 HANG 1
- +19 QUIT
- +20 ;
- STOP ; Stop Resource Usage Monitor collection
- +1 NEW DA,DIE,DIR,DR,DTOUT,DUOUT,X,Y
- +2 IF '+$GET(^%ZTSCH("LOGRSRC"))
- WRITE !!,?10,"The Resource Usage Monitor is already stopped.",!
- HANG 1
- QUIT
- +3 WRITE !
- KILL DIR
- SET DIR(0)="Y"
- SET DIR("B")="YES"
- +4 SET DIR("?")="Answer YES to stop collecting Resource Usage Monitor data"
- +5 SET DIR("A")="Do you want to stop Resource Usage Monitor collection"
- +6 DO ^DIR
- if $DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +7 IF Y
- Begin DoDot:1
- +8 SET DIE=8989.3
- SET DA=1
- SET DR="300///NO"
- DO ^DIE
- +9 WRITE !!,?10,"Resource Usage Monitor collection is stopped.",!
- End DoDot:1
- +10 IF '$TEST
- WRITE !!,?10,"Resource Usage Monitor collection is NOT stopped.",!
- +11 HANG 1
- +12 QUIT
