| [613] | 1 | KMPRUTL ;OAK/KAK/RAK - Resource Usage Monitor Utilities ;11/19/04 10:32
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
|
|---|
| 3 | ;
|
|---|
| 4 | GRPHMSG ;-- graph message.
|
|---|
| 5 | N TXT
|
|---|
| 6 | S TXT(1)="This option displays data in a graphical format. Please make"
|
|---|
| 7 | S TXT(2)="note that this output is intended for comparison/trends only,"
|
|---|
| 8 | S TXT(3)="and should not be used for detailed analysis."
|
|---|
| 9 | S TXT(1,"F")="!?9",TXT(2,"F")="!?9",TXT(3,"F")="!?9"
|
|---|
| 10 | D EN^DDIOL(.TXT)
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | ID(KMPRIEN) ;-- display - called from ^DD(8971.1,0,"ID","W")
|
|---|
| 14 | ;-----------------------------------------------------------------------
|
|---|
| 15 | ; KMPRIEN... Ien for file #8971.1 (RESOURCE USAGE MONITOR).
|
|---|
| 16 | ;-----------------------------------------------------------------------
|
|---|
| 17 | Q:'$G(KMPRIEN)
|
|---|
| 18 | Q:'$D(^KMPR(8971.1,+KMPRIEN,0))
|
|---|
| 19 | N DATA,TXT
|
|---|
| 20 | S DATA=$G(^KMPR(8971.1,+KMPRIEN,0))
|
|---|
| 21 | ; sent to cm national database.
|
|---|
| 22 | S TXT(1)=$S($P(DATA,U,2):"sent",1:"not sent")
|
|---|
| 23 | S TXT(1)=TXT(1)_$J(" ",10-$L(TXT(1)))
|
|---|
| 24 | ; node.
|
|---|
| 25 | S TXT(1)=TXT(1)_$P(DATA,U,3)
|
|---|
| 26 | S TXT(1)=TXT(1)_$J(" ",22-$L(TXT(1)))
|
|---|
| 27 | ; option.
|
|---|
| 28 | I $P(DATA,U,4)]"" S TXT(1)=TXT(1)_"option: "_$P(DATA,U,4)
|
|---|
| 29 | ; rpc.
|
|---|
| 30 | E I $P(DATA,U,7)]"" S TXT(1)=TXT(1)_" rpc: "_$P(DATA,U,7)
|
|---|
| 31 | S TXT(1,"F")="?16"
|
|---|
| 32 | ; if protocol
|
|---|
| 33 | I $P(DATA,U,5)'="" D
|
|---|
| 34 | .S TXT(2)="protocol: "_$E($P(DATA,U,5),1,40) ;_" (protocol)"
|
|---|
| 35 | .S TXT(2,"F")="!?"_$S($G(DDSDIW):40,1:42)
|
|---|
| 36 | ; display TXT() array.
|
|---|
| 37 | D EN^DDIOL(.TXT)
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | NODEARRY(KMPRARRY) ;-- put nodes into array.
|
|---|
| 41 | ;-----------------------------------------------------------------------
|
|---|
| 42 | ; KMPRARRY.. Array to contain nodes in format:
|
|---|
| 43 | ; KMPRARRY(NODENAME)=""
|
|---|
| 44 | ;-----------------------------------------------------------------------
|
|---|
| 45 | ;
|
|---|
| 46 | K @KMPRARRY
|
|---|
| 47 | ;
|
|---|
| 48 | N NODE S NODE=""
|
|---|
| 49 | F S NODE=$O(^KMPR(8971.1,"ANODE",NODE)) Q:NODE="" S @KMPRARRY@(NODE)=""
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | RUMDATES(KMPRDATE) ;-- get RUM date ranges from file 8971.1
|
|---|
| 53 | ;---------------------------------------------------------------------
|
|---|
| 54 | ; KMPRDATE... Return value (access by reference) in format:
|
|---|
| 55 | ; StartDate^EndDate^ExtStartDate^ExtEndDate
|
|---|
| 56 | ; 2981101^2981104^Nov 1, 1998^Nov 4, 1998
|
|---|
| 57 | ;---------------------------------------------------------------------
|
|---|
| 58 | ;
|
|---|
| 59 | S KMPRDATE=""
|
|---|
| 60 | N END,START
|
|---|
| 61 | ; determine start date from file 8971.1
|
|---|
| 62 | S START=$O(^KMPR(8971.1,"B",0))
|
|---|
| 63 | ; determine end date from file 8971.1
|
|---|
| 64 | S END=$O(^KMPR(8971.1,"B","A"),-1)
|
|---|
| 65 | D DATERNG^KMPRUTL1(.KMPRDATE,START,END)
|
|---|
| 66 | ;
|
|---|
| 67 | Q
|
|---|
| 68 | ;
|
|---|
| 69 | VERSION() ;-- extrinsic - return current version
|
|---|
| 70 | ;
|
|---|
| 71 | Q $P($T(+2^KMPRUTL),";",3)_"^"_$P($T(+2^KMPRUTL),";",5)
|
|---|
| 72 | ;
|
|---|
| 73 | ELEARRY(KMPRARRY) ;-- set elements data into KMPRARRY.
|
|---|
| 74 | ;-----------------------------------------------------------------------
|
|---|
| 75 | ; KMPRARRY... Array to contain elements data.
|
|---|
| 76 | ; Format: ElementName^DataPiece
|
|---|
| 77 | ; KMPRARRY(1)=CPU Time^1
|
|---|
| 78 | ; KMPRARRY(2)=Elapsed Time^7
|
|---|
| 79 | ; KMPRARRY(...)=...
|
|---|
| 80 | ;-----------------------------------------------------------------------
|
|---|
| 81 | ;
|
|---|
| 82 | Q:$G(KMPRARRY)=""
|
|---|
| 83 | ;
|
|---|
| 84 | N DATA,I
|
|---|
| 85 | F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
|
|---|
| 86 | .S DATA=$T(ELEMENTS+I)
|
|---|
| 87 | .S @KMPRARRY@(I)=$P(DATA,";",3)_"^"_$P(DATA,";",4)
|
|---|
| 88 | Q
|
|---|
| 89 | ;
|
|---|
| 90 | ELEMENT(KMPUVAR) ;-- select RUM data element.
|
|---|
| 91 | ; Output Variable:
|
|---|
| 92 | ; KMPUVAR = Number of Data Piece
|
|---|
| 93 | ; = '^' if DTOUT or DUOUT
|
|---|
| 94 | ; KMPUVAR(0) = Set of Code's Verbiage
|
|---|
| 95 | ;
|
|---|
| 96 | N DIR,DTOUT,DUOUT,I,X,Y
|
|---|
| 97 | S KMPUVAR=""
|
|---|
| 98 | S DIR(0)="SXO^"
|
|---|
| 99 | F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
|
|---|
| 100 | .S DIR(0)=DIR(0)_I_":"_$P($T(ELEMENTS+I),";",3)_";"
|
|---|
| 101 | S DIR("A")="Enter Key Data Element for Searching RUM Data"
|
|---|
| 102 | D ^DIR I $D(DTOUT)!$D(DUOUT)!(Y="") S KMPUVAR="^",KMPUVAR(0)="" Q
|
|---|
| 103 | S KMPUVAR=$TR(Y,"12345678^","17562348^"),KMPUVAR(0)=Y(0)
|
|---|
| 104 | Q
|
|---|
| 105 | ;
|
|---|
| 106 | ELEMENTS ;-- ;;Element Name;data piece in file 8971.1
|
|---|
| 107 | ;;CPU Time;1
|
|---|
| 108 | ;;Elapsed Time;7
|
|---|
| 109 | ;;M Commands;5
|
|---|
| 110 | ;;GLO References;6
|
|---|
| 111 | ;;DIO References;2
|
|---|
| 112 | ;;BIO References;3
|
|---|
| 113 | ;;Page Faults;4
|
|---|
| 114 | ;;Occurrences;8
|
|---|
| 115 | ;;
|
|---|
| 116 | PTCHINFO ; -- patch information: routine name ^ current version ^ current patch(es)
|
|---|
| 117 | ;;KMPRBD01^2.0^**1**
|
|---|
| 118 | ;;KMPRBD02^2.0^
|
|---|
| 119 | ;;KMPRBD03^2.0^
|
|---|
| 120 | ;;KMPRP1^2.0^**1**
|
|---|
| 121 | ;;KMPRP2^2.0^**1**
|
|---|
| 122 | ;;KMPRPG01^2.0^**1**
|
|---|
| 123 | ;;KMPRPG02^2.0^**1**
|
|---|
| 124 | ;;KMPRPN03^2.0^**1**
|
|---|
| 125 | ;;KMPRPOST^2.0^**1**
|
|---|
| 126 | ;;KMPRSS^2.0^**1**
|
|---|
| 127 | ;;KMPRSSA^2.0^**1**
|
|---|
| 128 | ;;KMPRSSB^2.0^**1**
|
|---|
| 129 | ;;KMPRUTL^2.0^**1**
|
|---|
| 130 | ;;KMPRUTL1^2.0^**1**
|
|---|
| 131 | ;;KMPRUTL2^2.0^
|
|---|
| 132 | ;;KMPRUTL3^2.0^
|
|---|
| 133 | ;;%ZOSVKR^8.0^**90,94,107,122,143,186**
|
|---|
| 134 | ;;
|
|---|
