- KMPRUTL ;OAK/KAK/RAK - Resource Usage Monitor Utilities ;9/1/2015
- ;;2.0;CAPACITY MANAGEMENT - RUM;**1,2,4**;May 28, 2003;Build 41
- ;
- GRPHMSG ;-- graph message.
- N TXT
- S TXT(1)="This option displays data in a graphical format. Please make"
- S TXT(2)="note that this output is intended for comparison/trends only,"
- S TXT(3)="and should not be used for detailed analysis."
- S TXT(1,"F")="!?9",TXT(2,"F")="!?9",TXT(3,"F")="!?9"
- D EN^DDIOL(.TXT)
- Q
- ;
- ID(KMPRIEN) ;-- display - called from ^DD(8971.1,0,"ID","W")
- ;-----------------------------------------------------------------------
- ; KMPRIEN... Ien for file #8971.1 (RESOURCE USAGE MONITOR).
- ;-----------------------------------------------------------------------
- Q:'$G(KMPRIEN)
- Q:'$D(^KMPR(8971.1,+KMPRIEN,0))
- N DATA,TXT
- S DATA=$G(^KMPR(8971.1,+KMPRIEN,0))
- ; sent to cm national database.
- S TXT(1)=$S($P(DATA,U,2):"sent",1:"not sent")
- S TXT(1)=TXT(1)_$J(" ",10-$L(TXT(1)))
- ; node.
- S TXT(1)=TXT(1)_$P(DATA,U,3)
- S TXT(1)=TXT(1)_$J(" ",22-$L(TXT(1)))
- ; option.
- I $P(DATA,U,4)]"" S TXT(1)=TXT(1)_"option: "_$P(DATA,U,4)
- ; rpc.
- E I $P(DATA,U,7)]"" S TXT(1)=TXT(1)_" rpc: "_$P(DATA,U,7)
- S TXT(1,"F")="?16"
- ; if protocol
- I $P(DATA,U,5)'="" D
- .S TXT(2)="protocol: "_$E($P(DATA,U,5),1,40) ;_" (protocol)"
- .S TXT(2,"F")="!?"_$S($G(DDSDIW):40,1:42)
- ; display TXT() array.
- D EN^DDIOL(.TXT)
- Q
- ;
- NODEARRY(KMPRARRY) ;-- put nodes into array.
- ;-----------------------------------------------------------------------
- ; KMPRARRY.. Array to contain nodes in format:
- ; KMPRARRY(NODENAME)=""
- ;-----------------------------------------------------------------------
- ;
- K @KMPRARRY
- ;
- N NODE S NODE=""
- F S NODE=$O(^KMPR(8971.1,"ANODE",NODE)) Q:NODE="" S @KMPRARRY@(NODE)=""
- Q
- ;
- RUMDATES(KMPRDATE) ;-- get RUM date ranges from file 8971.1
- ;---------------------------------------------------------------------
- ; KMPRDATE... Return value (access by reference) in format:
- ; StartDate^EndDate^ExtStartDate^ExtEndDate
- ; 2981101^2981104^Nov 1, 1998^Nov 4, 1998
- ;---------------------------------------------------------------------
- ;
- S KMPRDATE=""
- N END,START
- ; determine start date from file 8971.1
- S START=$O(^KMPR(8971.1,"B",0))
- ; determine end date from file 8971.1
- S END=$O(^KMPR(8971.1,"B","A"),-1)
- D DATERNG^KMPRUTL1(.KMPRDATE,START,END)
- ;
- Q
- ;
- VERSION() ;-- extrinsic - return current version
- ;
- Q $P($T(+2^KMPRUTL),";",3)_"^"_$P($T(+2^KMPRUTL),";",5)
- ;
- ELEARRY(KMPRARRY) ;-- set elements data into KMPRARRY.
- ;-----------------------------------------------------------------------
- ; KMPRARRY... Array to contain elements data.
- ; Format: ElementName^DataPiece
- ; KMPRARRY(1)=CPU Time^1
- ; KMPRARRY(2)=Elapsed Time^7
- ; KMPRARRY(...)=...
- ;-----------------------------------------------------------------------
- ;
- Q:$G(KMPRARRY)=""
- ;
- N DATA,I
- F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
- .S DATA=$T(ELEMENTS+I)
- .S @KMPRARRY@(I)=$P(DATA,";",3)_"^"_$P(DATA,";",4)
- Q
- ;
- ELEMENT(KMPUVAR) ;-- select RUM data element.
- ; Output Variable:
- ; KMPUVAR = Number of Data Piece
- ; = '^' if DTOUT or DUOUT
- ; KMPUVAR(0) = Set of Code's Verbiage
- ;
- N DIR,DTOUT,DUOUT,I,X,Y
- S KMPUVAR=""
- S DIR(0)="SXO^"
- F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
- .S DIR(0)=DIR(0)_I_":"_$P($T(ELEMENTS+I),";",3)_";"
- S DIR("A")="Enter Key Data Element for Searching RUM Data"
- D ^DIR I $D(DTOUT)!$D(DUOUT)!(Y="") S KMPUVAR="^",KMPUVAR(0)="" Q
- S KMPUVAR=$TR(Y,"12345678^","17562348^"),KMPUVAR(0)=Y(0)
- Q
- ;
- ELEMENTS ;-- ;;Element Name;data piece in file 8971.1
- ;;CPU Time;1
- ;;Elapsed Time;7
- ;;M Commands;5
- ;;GLO References;6
- ;;DIO References;2
- ;;BIO References;3
- ;;Page Faults;4
- ;;Occurrences;8
- ;;
- PTCHINFO ; -- patch information: routine name ^ current version ^ current patch(es)
- ;;KMPRBD01^2.0^**1,2**
- ;;KMPRBD02^2.0^**2**
- ;;KMPRBD03^2.0^
- ;;KMPRBD04^2.0^**2**
- ;;KMPRBD05^2.0^**2**
- ;;KMPRP1^2.0^**1**
- ;;KMPRP2^2.0^**1**
- ;;KMPRPG01^2.0^**1**
- ;;KMPRPG02^2.0^**1**
- ;;KMPRPN03^2.0^**1**
- ;;KMPRPOST^2.0^**2**
- ;;KMPRSS^2.0^**1,2**
- ;;KMPRUTL^2.0^**1,2,4**
- ;;KMPRUTL1^2.0^**1,2**
- ;;KMPRUTL2^2.0^
- ;;KMPRUTL3^2.0^
- ;;%ZOSVKR^8.0^**90,94,107,122,143,186,550,568**
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPRUTL 4417 printed Jan 18, 2025@02:42:59 Page 2
- KMPRUTL ;OAK/KAK/RAK - Resource Usage Monitor Utilities ;9/1/2015
- +1 ;;2.0;CAPACITY MANAGEMENT - RUM;**1,2,4**;May 28, 2003;Build 41
- +2 ;
- GRPHMSG ;-- graph message.
- +1 NEW TXT
- +2 SET TXT(1)="This option displays data in a graphical format. Please make"
- +3 SET TXT(2)="note that this output is intended for comparison/trends only,"
- +4 SET TXT(3)="and should not be used for detailed analysis."
- +5 SET TXT(1,"F")="!?9"
- SET TXT(2,"F")="!?9"
- SET TXT(3,"F")="!?9"
- +6 DO EN^DDIOL(.TXT)
- +7 QUIT
- +8 ;
- ID(KMPRIEN) ;-- display - called from ^DD(8971.1,0,"ID","W")
- +1 ;-----------------------------------------------------------------------
- +2 ; KMPRIEN... Ien for file #8971.1 (RESOURCE USAGE MONITOR).
- +3 ;-----------------------------------------------------------------------
- +4 if '$GET(KMPRIEN)
- QUIT
- +5 if '$DATA(^KMPR(8971.1,+KMPRIEN,0))
- QUIT
- +6 NEW DATA,TXT
- +7 SET DATA=$GET(^KMPR(8971.1,+KMPRIEN,0))
- +8 ; sent to cm national database.
- +9 SET TXT(1)=$SELECT($PIECE(DATA,U,2):"sent",1:"not sent")
- +10 SET TXT(1)=TXT(1)_$JUSTIFY(" ",10-$LENGTH(TXT(1)))
- +11 ; node.
- +12 SET TXT(1)=TXT(1)_$PIECE(DATA,U,3)
- +13 SET TXT(1)=TXT(1)_$JUSTIFY(" ",22-$LENGTH(TXT(1)))
- +14 ; option.
- +15 IF $PIECE(DATA,U,4)]""
- SET TXT(1)=TXT(1)_"option: "_$PIECE(DATA,U,4)
- +16 ; rpc.
- +17 IF '$TEST
- IF $PIECE(DATA,U,7)]""
- SET TXT(1)=TXT(1)_" rpc: "_$PIECE(DATA,U,7)
- +18 SET TXT(1,"F")="?16"
- +19 ; if protocol
- +20 IF $PIECE(DATA,U,5)'=""
- Begin DoDot:1
- +21 ;_" (protocol)"
- SET TXT(2)="protocol: "_$EXTRACT($PIECE(DATA,U,5),1,40)
- +22 SET TXT(2,"F")="!?"_$SELECT($GET(DDSDIW):40,1:42)
- End DoDot:1
- +23 ; display TXT() array.
- +24 DO EN^DDIOL(.TXT)
- +25 QUIT
- +26 ;
- NODEARRY(KMPRARRY) ;-- put nodes into array.
- +1 ;-----------------------------------------------------------------------
- +2 ; KMPRARRY.. Array to contain nodes in format:
- +3 ; KMPRARRY(NODENAME)=""
- +4 ;-----------------------------------------------------------------------
- +5 ;
- +6 KILL @KMPRARRY
- +7 ;
- +8 NEW NODE
- SET NODE=""
- +9 FOR
- SET NODE=$ORDER(^KMPR(8971.1,"ANODE",NODE))
- if NODE=""
- QUIT
- SET @KMPRARRY@(NODE)=""
- +10 QUIT
- +11 ;
- RUMDATES(KMPRDATE) ;-- get RUM date ranges from file 8971.1
- +1 ;---------------------------------------------------------------------
- +2 ; KMPRDATE... Return value (access by reference) in format:
- +3 ; StartDate^EndDate^ExtStartDate^ExtEndDate
- +4 ; 2981101^2981104^Nov 1, 1998^Nov 4, 1998
- +5 ;---------------------------------------------------------------------
- +6 ;
- +7 SET KMPRDATE=""
- +8 NEW END,START
- +9 ; determine start date from file 8971.1
- +10 SET START=$ORDER(^KMPR(8971.1,"B",0))
- +11 ; determine end date from file 8971.1
- +12 SET END=$ORDER(^KMPR(8971.1,"B","A"),-1)
- +13 DO DATERNG^KMPRUTL1(.KMPRDATE,START,END)
- +14 ;
- +15 QUIT
- +16 ;
- VERSION() ;-- extrinsic - return current version
- +1 ;
- +2 QUIT $PIECE($TEXT(+2^KMPRUTL),";",3)_"^"_$PIECE($TEXT(+2^KMPRUTL),";",5)
- +3 ;
- ELEARRY(KMPRARRY) ;-- set elements data into KMPRARRY.
- +1 ;-----------------------------------------------------------------------
- +2 ; KMPRARRY... Array to contain elements data.
- +3 ; Format: ElementName^DataPiece
- +4 ; KMPRARRY(1)=CPU Time^1
- +5 ; KMPRARRY(2)=Elapsed Time^7
- +6 ; KMPRARRY(...)=...
- +7 ;-----------------------------------------------------------------------
- +8 ;
- +9 if $GET(KMPRARRY)=""
- QUIT
- +10 ;
- +11 NEW DATA,I
- +12 FOR I=1:1
- if $PIECE($TEXT(ELEMENTS+I),";",3)=""
- QUIT
- Begin DoDot:1
- +13 SET DATA=$TEXT(ELEMENTS+I)
- +14 SET @KMPRARRY@(I)=$PIECE(DATA,";",3)_"^"_$PIECE(DATA,";",4)
- End DoDot:1
- +15 QUIT
- +16 ;
- ELEMENT(KMPUVAR) ;-- select RUM data element.
- +1 ; Output Variable:
- +2 ; KMPUVAR = Number of Data Piece
- +3 ; = '^' if DTOUT or DUOUT
- +4 ; KMPUVAR(0) = Set of Code's Verbiage
- +5 ;
- +6 NEW DIR,DTOUT,DUOUT,I,X,Y
- +7 SET KMPUVAR=""
- +8 SET DIR(0)="SXO^"
- +9 FOR I=1:1
- if $PIECE($TEXT(ELEMENTS+I),";",3)=""
- QUIT
- Begin DoDot:1
- +10 SET DIR(0)=DIR(0)_I_":"_$PIECE($TEXT(ELEMENTS+I),";",3)_";"
- End DoDot:1
- +11 SET DIR("A")="Enter Key Data Element for Searching RUM Data"
- +12 DO ^DIR
- IF $DATA(DTOUT)!$DATA(DUOUT)!(Y="")
- SET KMPUVAR="^"
- SET KMPUVAR(0)=""
- QUIT
- +13 SET KMPUVAR=$TRANSLATE(Y,"12345678^","17562348^")
- SET KMPUVAR(0)=Y(0)
- +14 QUIT
- +15 ;
- ELEMENTS ;-- ;;Element Name;data piece in file 8971.1
- +1 ;;CPU Time;1
- +2 ;;Elapsed Time;7
- +3 ;;M Commands;5
- +4 ;;GLO References;6
- +5 ;;DIO References;2
- +6 ;;BIO References;3
- +7 ;;Page Faults;4
- +8 ;;Occurrences;8
- +9 ;;
- PTCHINFO ; -- patch information: routine name ^ current version ^ current patch(es)
- +1 ;;KMPRBD01^2.0^**1,2**
- +2 ;;KMPRBD02^2.0^**2**
- +3 ;;KMPRBD03^2.0^
- +4 ;;KMPRBD04^2.0^**2**
- +5 ;;KMPRBD05^2.0^**2**
- +6 ;;KMPRP1^2.0^**1**
- +7 ;;KMPRP2^2.0^**1**
- +8 ;;KMPRPG01^2.0^**1**
- +9 ;;KMPRPG02^2.0^**1**
- +10 ;;KMPRPN03^2.0^**1**
- +11 ;;KMPRPOST^2.0^**2**
- +12 ;;KMPRSS^2.0^**1,2**
- +13 ;;KMPRUTL^2.0^**1,2,4**
- +14 ;;KMPRUTL1^2.0^**1,2**
- +15 ;;KMPRUTL2^2.0^
- +16 ;;KMPRUTL3^2.0^
- +17 ;;%ZOSVKR^8.0^**90,94,107,122,143,186,550,568**
- +18 ;;