KMPRSS.m

KMPRSS ;SFISC/KAK/RAK - Resource Usage Monitor Status ;3/28/00  08:55

 ;;1.0;CAPACITY MANAGEMENT - RUM;**1,2**;Dec 09, 1998

 ;

STAT ; Status of Resource Usage Monitor collection

 N CHECK,KMPRX,X,Y

 ; check environment

 D ENVCHECK^KMPRUTL1(.CHECK,1)

 ; if RUM turned on but background job not queued ask user if they want

 ; to queue it at this time.

 D:(+CHECK)=200 ENVCHECK^KMPRUTL1(.CHECK)

 W @IOF,!!,?25,"Resource Usage Monitor Status"

 S X="Version "_$P($$VERSION^KMPRUTL,U)

 W !,?(80-$L(X)\2),X,!

 ; patches

 S X=$P($$VERSION^KMPRUTL,U,2)

 W:X]"" ?(80-$L(X)\2),X,!

 W !,?5,"The Resource Usage Monitor is currently "

 I +$G(^%ZTSCH("LOGRSRC")) W "running."

 E  W "stopped."

 W !

 I '$D(^DIC(19,"B","KMPR BACKGROUND DRIVER")) D 

 .W !," The 'RUM Background Driver' option [KMPR BACKGROUND DRIVER] is missing !",*7,!

 E  D

 .S KMPRX=$O(^DIC(19,"B","KMPR BACKGROUND DRIVER",0))

 .S KMPRX=+$O(^DIC(19.2,"B",KMPRX,0))

 .I 'KMPRX W !?5,"The 'RUM Background Driver' [KMPR BACKGROUND DRIVER] is not scheduled",!?5,"to run!",! Q

 .S KMPRX=$G(^DIC(19.2,KMPRX,0))

 .S $P(KMPRX,U,2)=$$FMTE^XLFDT($P(KMPRX,U,2))

 .W !,?5,"The 'RUM Background Driver' [KMPR BACKGROUND DRIVER]"

 .W !?5,"is QUEUED TO RUN AT ",$P(KMPRX,U,2)

 .W !,?5,"with a RESCHEDULING FREQUENCY of '",$P(KMPRX,U,6),"'."

 W !!,?5,"The temporary collection global (i.e., 'XTMP(""KMPR"")') is",$S('$D(^XTMP("KMPR")):" not",1:"")," present",!,?5,"on your system.",!

 W !!,"Press <RETURN> to continue: " R X:DTIME

 ;

 Q

 ;

START ; Start Resource Usage Monitor collection

 N CHECK

 ; 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 G:$D(DTOUT)!$D(DUOUT) END

 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 G END

 ;

STOP ; Stop Resource Usage Monitor collection

 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 G:$D(DTOUT)!$D(DUOUT) END

 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

 ;

END ;

 K DA,DIE,DIR,DR,DTOUT,DUOUT,X,Y

 Q

KMPRSS    ;SFISC/KAK/RAK - Resource Usage Monitor Status ;3/28/00  08:55

 +1       ;;1.0;CAPACITY MANAGEMENT - RUM;**1,2**;Dec 09, 1998

 +2       ;

STAT      ; Status of Resource Usage Monitor collection

 +1        NEW CHECK,KMPRX,X,Y

 +2       ; check environment

 +3        DO ENVCHECK^KMPRUTL1(.CHECK,1)

 +4       ; if RUM turned on but background job not queued ask user if they want

 +5       ; to queue it at this time.

 +6        IF (+CHECK)=200

               DO ENVCHECK^KMPRUTL1(.CHECK)

 +7        WRITE @IOF,!!,?25,"Resource Usage Monitor Status"

 +8        SET X="Version "_$PIECE($$VERSION^KMPRUTL,U)

 +9        WRITE !,?(80-$LENGTH(X)\2),X,!

 +10      ; patches

 +11       SET X=$PIECE($$VERSION^KMPRUTL,U,2)

 +12       IF X]""

               WRITE ?(80-$LENGTH(X)\2),X,!

 +13       WRITE !,?5,"The Resource Usage Monitor is currently "

 +14       IF +$GET(^%ZTSCH("LOGRSRC"))

               WRITE "running."

 +15      IF '$TEST

               WRITE "stopped."

 +16       WRITE !

 +17       IF '$DATA(^DIC(19,"B","KMPR BACKGROUND DRIVER"))

               Begin DoDot:1

 +18               WRITE !," The 'RUM Background Driver' option [KMPR BACKGROUND DRIVER] is missing !",*7,!

               End DoDot:1

 +19      IF '$TEST

               Begin DoDot:1

 +20               SET KMPRX=$ORDER(^DIC(19,"B","KMPR BACKGROUND DRIVER",0))

 +21               SET KMPRX=+$ORDER(^DIC(19.2,"B",KMPRX,0))

 +22               IF 'KMPRX

                       WRITE !?5,"The 'RUM Background Driver' [KMPR BACKGROUND DRIVER] is not scheduled",!?5,"to run!",!

                       QUIT 

 +23               SET KMPRX=$GET(^DIC(19.2,KMPRX,0))

 +24               SET $PIECE(KMPRX,U,2)=$$FMTE^XLFDT($PIECE(KMPRX,U,2))

 +25               WRITE !,?5,"The 'RUM Background Driver' [KMPR BACKGROUND DRIVER]"

 +26               WRITE !?5,"is QUEUED TO RUN AT ",$PIECE(KMPRX,U,2)

 +27               WRITE !,?5,"with a RESCHEDULING FREQUENCY of '",$PIECE(KMPRX,U,6),"'."

               End DoDot:1

 +28       WRITE !!,?5,"The temporary collection global (i.e., 'XTMP(""KMPR"")') is",$SELECT('$DATA(^XTMP("KMPR")):" not",1:"")," present",!,?5,"on your system.",!

 +29       WRITE !!,"Press <RETURN> to continue: "

           READ X:DTIME

 +30      ;

 +31       QUIT 

 +32      ;

START     ; Start Resource Usage Monitor collection

 +1        NEW CHECK

 +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)

               GOTO END

 +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

           GOTO END

 +19      ;

STOP      ; Stop Resource Usage Monitor collection

 +1        IF '+$GET(^%ZTSCH("LOGRSRC"))

               WRITE !!,?10,"The Resource Usage Monitor is already stopped.",!

               HANG 1

               QUIT 

 +2        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="YES"

 +3        SET DIR("?")="Answer YES to stop collecting Resource Usage Monitor data"

 +4        SET DIR("A")="Do you want to stop Resource Usage Monitor collection"

 +5        DO ^DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               GOTO END

 +6        IF Y

               Begin DoDot:1

 +7                SET DIE=8989.3

                   SET DA=1

                   SET DR="300///NO"

                   DO ^DIE

 +8                WRITE !!,?10,"Resource Usage Monitor collection is stopped.",!

               End DoDot:1

 +9       IF '$TEST

               WRITE !!,?10,"Resource Usage Monitor collection is NOT stopped.",!

 +10       HANG 1

 +11      ;

END       ;

 +1        KILL DA,DIE,DIR,DR,DTOUT,DUOUT,X,Y

 +2        QUIT