| [613] | 1 | KMPRPG02 ;OAK/RAK - RUM Data by Date for Single Node ;11/19/04 10:32
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;-- entry point.
|
|---|
| 5 | ;
|
|---|
| 6 | N DATES,DIR,ELEMENT,I,IORVOFF,IORVON,LHTIME,NODE,OPTIONS,OUT,TMP,X,Y
|
|---|
| 7 | ;
|
|---|
| 8 | ; temporary global storage for stats.
|
|---|
| 9 | S TMP=$NA(^TMP("KMPR HR STATS",$J))
|
|---|
| 10 | S OUT=0
|
|---|
| 11 | F D Q:OUT
|
|---|
| 12 | .D HDR^KMPDUTL4(" RUM Data by Date for Single Node ") W !!
|
|---|
| 13 | .D GRPHMSG^KMPRUTL
|
|---|
| 14 | .; select element for display.
|
|---|
| 15 | .D ELEMENT^KMPRUTL(.Y) I 'Y S OUT=1 Q
|
|---|
| 16 | .S ELEMENT=Y_"^"_Y(0)
|
|---|
| 17 | .; get date range.
|
|---|
| 18 | .D RUMDATES^KMPRUTL(.DATES) Q:'DATES
|
|---|
| 19 | .; set up set-of-codes with nodes.
|
|---|
| 20 | .K DIR S DIR(0)="SO^",DIR("A")="Select Node"
|
|---|
| 21 | .S I=0,X=""
|
|---|
| 22 | .F S X=$O(^KMPR(8971.1,"ANODE",X)) Q:X="" D
|
|---|
| 23 | ..S I=I+1,DIR(0)=DIR(0)_I_":"_X_";"
|
|---|
| 24 | .D ^DIR I 'Y S OUT=1 Q
|
|---|
| 25 | .K NODE S NODE(Y(0))=""
|
|---|
| 26 | .S OPTIONS="DGV"
|
|---|
| 27 | .K @TMP
|
|---|
| 28 | .W !!?3,"compiling data for: "
|
|---|
| 29 | .; get data - display graph - cleanup.
|
|---|
| 30 | .D DATA,GRAPH,EXIT
|
|---|
| 31 | .K @TMP
|
|---|
| 32 | ;
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | DATA ;-- compile rum stats per node for selected element.
|
|---|
| 36 | Q:$G(TMP)=""
|
|---|
| 37 | Q:'$G(ELEMENT)
|
|---|
| 38 | Q:'$G(DATES)
|
|---|
| 39 | Q:'$D(NODE)=""
|
|---|
| 40 | ;
|
|---|
| 41 | N DOTS,I,J,KMPRAR
|
|---|
| 42 | ;
|
|---|
| 43 | ; determine if dots should be printed to screen while gathering data.
|
|---|
| 44 | S DOTS=$S($E(IOST,1,2)="C-":0,1:1)
|
|---|
| 45 | ; get RUM data.
|
|---|
| 46 | D ELEMDATA^KMPRUTL2(+ELEMENT,$P(DATES,U),$P(DATES,U,2),.NODE,"KMPRAR",DOTS)
|
|---|
| 47 | Q:'$D(KMPRAR)
|
|---|
| 48 | ;
|
|---|
| 49 | ; format data into TMP array.
|
|---|
| 50 | S I=""
|
|---|
| 51 | F S I=$O(KMPRAR(I)) Q:I="" S J=0 D
|
|---|
| 52 | .F S J=$O(KMPRAR(I,J)) Q:J="" D
|
|---|
| 53 | ..S $P(@TMP@(J,0),U)=$$FMTE^DILIBF(J,2)
|
|---|
| 54 | ..S $P(@TMP@(J,0),U,2)=KMPRAR(I,J)
|
|---|
| 55 | ;
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | GRAPH ;-- display data in graph.
|
|---|
| 59 | Q:$G(TMP)=""
|
|---|
| 60 | Q:'$G(ELEMENT)
|
|---|
| 61 | ;
|
|---|
| 62 | N NODE1,TITLES
|
|---|
| 63 | S NODE1=$O(NODE(""))
|
|---|
| 64 | ; graph titles.
|
|---|
| 65 | S $P(TITLES,U)="RUM Data by Date for Node '"_NODE1_"'"
|
|---|
| 66 | S $P(TITLES,U,2)="From "_$P($G(DATES),U,3)_" to "_$P($G(DATES),U,4)
|
|---|
| 67 | S $P(TITLES,U,3)=$P(ELEMENT,U,2)_"/per "_$S(+ELEMENT=1!(+ELEMENT=7):"occurrence",1:"sec")
|
|---|
| 68 | S $P(TITLES,U,4)="Date"
|
|---|
| 69 | ; call graphics routine.
|
|---|
| 70 | D EN^KMPDUG(TMP,TITLES,$G(OPTIONS))
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
| 73 | EXIT ;
|
|---|
| 74 | D ^%ZISC
|
|---|
| 75 | Q
|
|---|
