Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: KMPRUTL

KMPRUTL.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. GRPHMSG ;-- graph message.
  1. N TXT
  1. S TXT(1)="This option displays data in a graphical format. Please make"
  1. S TXT(2)="note that this output is intended for comparison/trends only,"
  1. S TXT(3)="and should not be used for detailed analysis."
  1. S TXT(1,"F")="!?9",TXT(2,"F")="!?9",TXT(3,"F")="!?9"
  1. D EN^DDIOL(.TXT)
  1. Q
  1. ;
  1. ID(KMPRIEN) ;-- display - called from ^DD(8971.1,0,"ID","W")
  1. ;-----------------------------------------------------------------------
  1. ; KMPRIEN... Ien for file #8971.1 (RESOURCE USAGE MONITOR).
  1. ;-----------------------------------------------------------------------
  1. Q:'$G(KMPRIEN)
  1. Q:'$D(^KMPR(8971.1,+KMPRIEN,0))
  1. N DATA,TXT
  1. S DATA=$G(^KMPR(8971.1,+KMPRIEN,0))
  1. ; sent to cm national database.
  1. S TXT(1)=$S($P(DATA,U,2):"sent",1:"not sent")
  1. S TXT(1)=TXT(1)_$J(" ",10-$L(TXT(1)))
  1. ; node.
  1. S TXT(1)=TXT(1)_$P(DATA,U,3)
  1. S TXT(1)=TXT(1)_$J(" ",22-$L(TXT(1)))
  1. ; option.
  1. I $P(DATA,U,4)]"" S TXT(1)=TXT(1)_"option: "_$P(DATA,U,4)
  1. ; rpc.
  1. E I $P(DATA,U,7)]"" S TXT(1)=TXT(1)_" rpc: "_$P(DATA,U,7)
  1. S TXT(1,"F")="?16"
  1. ; if protocol
  1. I $P(DATA,U,5)'="" D
  1. .S TXT(2)="protocol: "_$E($P(DATA,U,5),1,40) ;_" (protocol)"
  1. .S TXT(2,"F")="!?"_$S($G(DDSDIW):40,1:42)
  1. ; display TXT() array.
  1. D EN^DDIOL(.TXT)
  1. Q
  1. ;
  1. NODEARRY(KMPRARRY) ;-- put nodes into array.
  1. ;-----------------------------------------------------------------------
  1. ; KMPRARRY.. Array to contain nodes in format:
  1. ; KMPRARRY(NODENAME)=""
  1. ;-----------------------------------------------------------------------
  1. ;
  1. K @KMPRARRY
  1. ;
  1. N NODE S NODE=""
  1. F S NODE=$O(^KMPR(8971.1,"ANODE",NODE)) Q:NODE="" S @KMPRARRY@(NODE)=""
  1. Q
  1. ;
  1. RUMDATES(KMPRDATE) ;-- get RUM date ranges from file 8971.1
  1. ;---------------------------------------------------------------------
  1. ; KMPRDATE... Return value (access by reference) in format:
  1. ; StartDate^EndDate^ExtStartDate^ExtEndDate
  1. ; 2981101^2981104^Nov 1, 1998^Nov 4, 1998
  1. ;---------------------------------------------------------------------
  1. ;
  1. S KMPRDATE=""
  1. N END,START
  1. ; determine start date from file 8971.1
  1. S START=$O(^KMPR(8971.1,"B",0))
  1. ; determine end date from file 8971.1
  1. S END=$O(^KMPR(8971.1,"B","A"),-1)
  1. D DATERNG^KMPRUTL1(.KMPRDATE,START,END)
  1. ;
  1. Q
  1. ;
  1. VERSION() ;-- extrinsic - return current version
  1. ;
  1. Q $P($T(+2^KMPRUTL),";",3)_"^"_$P($T(+2^KMPRUTL),";",5)
  1. ;
  1. ELEARRY(KMPRARRY) ;-- set elements data into KMPRARRY.
  1. ;-----------------------------------------------------------------------
  1. ; KMPRARRY... Array to contain elements data.
  1. ; Format: ElementName^DataPiece
  1. ; KMPRARRY(1)=CPU Time^1
  1. ; KMPRARRY(2)=Elapsed Time^7
  1. ; KMPRARRY(...)=...
  1. ;-----------------------------------------------------------------------
  1. ;
  1. Q:$G(KMPRARRY)=""
  1. ;
  1. N DATA,I
  1. F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
  1. .S DATA=$T(ELEMENTS+I)
  1. .S @KMPRARRY@(I)=$P(DATA,";",3)_"^"_$P(DATA,";",4)
  1. Q
  1. ;
  1. ELEMENT(KMPUVAR) ;-- select RUM data element.
  1. ; Output Variable:
  1. ; KMPUVAR = Number of Data Piece
  1. ; = '^' if DTOUT or DUOUT
  1. ; KMPUVAR(0) = Set of Code's Verbiage
  1. ;
  1. N DIR,DTOUT,DUOUT,I,X,Y
  1. S KMPUVAR=""
  1. S DIR(0)="SXO^"
  1. F I=1:1 Q:$P($T(ELEMENTS+I),";",3)="" D
  1. .S DIR(0)=DIR(0)_I_":"_$P($T(ELEMENTS+I),";",3)_";"
  1. S DIR("A")="Enter Key Data Element for Searching RUM Data"
  1. D ^DIR I $D(DTOUT)!$D(DUOUT)!(Y="") S KMPUVAR="^",KMPUVAR(0)="" Q
  1. S KMPUVAR=$TR(Y,"12345678^","17562348^"),KMPUVAR(0)=Y(0)
  1. Q
  1. ;
  1. ELEMENTS ;-- ;;Element Name;data piece in file 8971.1
  1. ;;CPU Time;1
  1. ;;Elapsed Time;7
  1. ;;M Commands;5
  1. ;;GLO References;6
  1. ;;DIO References;2
  1. ;;BIO References;3
  1. ;;Page Faults;4
  1. ;;Occurrences;8
  1. ;;
  1. PTCHINFO ; -- patch information: routine name ^ current version ^ current patch(es)
  1. ;;KMPRBD01^2.0^**1,2**
  1. ;;KMPRBD02^2.0^**2**
  1. ;;KMPRBD03^2.0^
  1. ;;KMPRBD04^2.0^**2**
  1. ;;KMPRBD05^2.0^**2**
  1. ;;KMPRP1^2.0^**1**
  1. ;;KMPRP2^2.0^**1**
  1. ;;KMPRPG01^2.0^**1**
  1. ;;KMPRPG02^2.0^**1**
  1. ;;KMPRPN03^2.0^**1**
  1. ;;KMPRPOST^2.0^**2**
  1. ;;KMPRSS^2.0^**1,2**
  1. ;;KMPRUTL^2.0^**1,2,4**
  1. ;;KMPRUTL1^2.0^**1,2**
  1. ;;KMPRUTL2^2.0^
  1. ;;KMPRUTL3^2.0^
  1. ;;%ZOSVKR^8.0^**90,94,107,122,143,186,550,568**
  1. ;;