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

KMPRPG01.m

Go to the documentation of this file.
  1. KMPRPG01 ;OAK/RAK - RUM Data for All Nodes (Graph) ;11/19/04 08:58
  1. ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
  1. ;
  1. EN ;-- entry point.
  1. ;
  1. N DATES,DIR,ELEMENT,I,LHTIME,OPTIONS,OUT,TMP,X,Y
  1. ;
  1. ; temporary global storage for stats.
  1. S TMP=$NA(^TMP("KMPR HR STATS",$J))
  1. S OUT=0
  1. F D Q:OUT
  1. .D HDR^KMPDUTL4(" Data for All Nodes (Graph) ") W !!
  1. .D GRPHMSG^KMPRUTL
  1. .; select element for display.
  1. .D ELEMENT^KMPRUTL(.Y) I 'Y S OUT=1 Q
  1. .S ELEMENT=Y_"^"_Y(0)
  1. .; get date range.
  1. .D RUMDATES^KMPRUTL(.DATES) Q:'DATES
  1. .; determine number of nodes.
  1. .S I=0,X=""
  1. .F S X=$O(^KMPR(8971.1,"ANODE",X)) Q:X="" S I=I+1
  1. .S OPTIONS="G" S:I<8 OPTIONS=OPTIONS_"D"
  1. .K @TMP
  1. .W !!?3,"compiling data for: "
  1. .; get data - display graph - cleanup.
  1. .D DATA,GRAPH,EXIT
  1. .K @TMP
  1. ;
  1. Q
  1. ;
  1. DATA ;-- compile rum stats per node for selected element.
  1. Q:$G(TMP)=""
  1. Q:'$G(ELEMENT)
  1. Q:'$G(DATES)
  1. ;
  1. N DAYS,DOTS,I,J,KMPRAR,NODES
  1. ;
  1. ; determine if dots should be printed to screen while gathering data.
  1. S DOTS=$S($E(IOST,1,2)="C-":0,1:1)
  1. ; set nodes into NODES() array.
  1. D NODEARRY^KMPRUTL("NODES") Q:'$D(NODES)
  1. ; get RUM data.
  1. D ELEMDATA^KMPRUTL2(+ELEMENT,$P(DATES,U),$P(DATES,U,2),.NODES,"KMPRAR",DOTS)
  1. Q:'$D(KMPRAR)
  1. ;
  1. ; format data into TMP array.
  1. S I="",DAYS=$$FMDIFF^XLFDT($P(DATES,U,2),$P(DATES,U))+1
  1. F S I=$O(KMPRAR(I)) Q:I="" S J=0 D
  1. .F S J=$O(KMPRAR(I,J)) Q:J="" D
  1. ..S $P(@TMP@(I,0),U)=I
  1. ..S $P(@TMP@(I,0),U,2)=$P(@TMP@(I,0),U,2)+KMPRAR(I,J)
  1. .S $P(@TMP@(I,0),U,2)=$FN($P(@TMP@(I,0),U,2)/DAYS,"",2)
  1. ;
  1. Q
  1. ;
  1. GRAPH ;-- display data in graph.
  1. Q:$G(TMP)=""
  1. Q:'$G(ELEMENT)
  1. ;
  1. N TITLES
  1. ; graph titles.
  1. S $P(TITLES,U)="RUM Data for All Nodes"
  1. S $P(TITLES,U,2)="From "_$P($G(DATES),U,3)_" to "_$P($G(DATES),U,4)
  1. S $P(TITLES,U,3)=$P(ELEMENT,U,2)_"/per "_$S(+ELEMENT=1!(+ELEMENT=7):"occurrence",1:"sec")
  1. S $P(TITLES,U,4)="Node"
  1. ; call graphics routine.
  1. D EN^KMPDUG(TMP,TITLES,$G(OPTIONS))
  1. Q
  1. ;
  1. EXIT ;
  1. D ^%ZISC
  1. Q