| [613] | 1 | KMPDSS ;OAK/RAK - CM Tools Status ;2/14/05 10:43
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT TOOLS;**3**;Mar 22, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;-entry point
|
|---|
| 5 | ;
|
|---|
| 6 | N DIR,OUT,X,Y
|
|---|
| 7 | ;
|
|---|
| 8 | S OUT=0
|
|---|
| 9 | F D Q:OUT
|
|---|
| 10 | .D HDR^KMPDUTL4(" Check Capacity Planning Environment ")
|
|---|
| 11 | .S DIR(0)="SO^H:HL7;R:RUM;S:SAGG;T:Timing"
|
|---|
| 12 | .W !! D ^DIR I Y=""!(Y="^") SET OUT=1 Q
|
|---|
| 13 | .D DISPLAY^KMPDSS1(Y_"^"_Y(0))
|
|---|
| 14 | ;
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | VERDSPL(KMPDPKG) ;--display routine version info
|
|---|
| 18 | ;-----------------------------------------------------------------------
|
|---|
| 19 | ; KMPDPKG... CM Package:
|
|---|
| 20 | ; "D" - CM Tools
|
|---|
| 21 | ; "R" - RUM
|
|---|
| 22 | ; "S" - SAGG
|
|---|
| 23 | ;-----------------------------------------------------------------------
|
|---|
| 24 | Q:$G(KMPDPKG)=""
|
|---|
| 25 | Q:KMPDPKG'="D"&(KMPDPKG'="R")&(KMPDPKG'="S")
|
|---|
| 26 | N I,X
|
|---|
| 27 | ; routine check
|
|---|
| 28 | D VERPTCH^KMPDUTL1(KMPDPKG,.X)
|
|---|
| 29 | W !?5,$S(KMPDPKG="D":"CM TOOLS",KMPDPKG="R":"RUM",1:"SAGG")
|
|---|
| 30 | W " routines",$$REPEAT^XLFSTR(".",28-$X),": "
|
|---|
| 31 | I '$P($G(X(0)),U,3) W "No Problems"
|
|---|
| 32 | E D
|
|---|
| 33 | .W !?20,"Current Version",?55,"Should be"
|
|---|
| 34 | .S I=0 F S I=$O(X(I)) Q:I="" I $P(X(I),U) D
|
|---|
| 35 | ..W !?3,I,?20,$P(X(I),U,4)
|
|---|
| 36 | ..W:$P(X(I),U,5)]"" " - ",$P(X(I),U,5)
|
|---|
| 37 | ..W ?55,$P(X(I),U,2)
|
|---|
| 38 | ..W:$P(X(I),U,3)]"" " - ",$P(X(I),U,3)
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | PRM ;-- edit parameters file
|
|---|
| 42 | ;
|
|---|
| 43 | N DDSFILE,DR,DA
|
|---|
| 44 | ;
|
|---|
| 45 | S DA=$O(^KMPD(8973,0)) Q:'DA
|
|---|
| 46 | S DDSFILE=8973,DR="[KMPD PARAMETERS EDIT]" D ^DDS
|
|---|
| 47 | ;
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | SST ;-- start/stop coversheet collection
|
|---|
| 51 | ; check for cprs patch
|
|---|
| 52 | I '$$PATCH^XPDUTL("OR*3.0*209") D Q
|
|---|
| 53 | .W !! D EN^DDIOL($C(7)_"*** Patch OR*3.0*209 must be installed for CPRS Timing data to be collected ***")
|
|---|
| 54 | ;
|
|---|
| 55 | N DIR,STAT,X,Y
|
|---|
| 56 | S STAT=$G(^KMPTMP("KMPD-CPRS"))
|
|---|
| 57 | W !!!,"Timing Collection is currently [ ",$S(STAT:"Running",1:"STOPPED")," ]",!
|
|---|
| 58 | S DIR(0)="YO",DIR("B")="N"
|
|---|
| 59 | S DIR("A")="Do you want to '"_$S(STAT:"Stop",1:"Start")_"' the collection"
|
|---|
| 60 | D ^DIR Q:'Y
|
|---|
| 61 | S ^KMPTMP("KMPD-CPRS")=$S(STAT:"",1:1)
|
|---|
| 62 | W !!,"Timing Collection has been [ ",$S(STAT:"STOPPED",1:"Started")," ]"
|
|---|
| 63 | Q
|
|---|
