KMPRPG02.m

KMPRPG02 ;OAK/RAK - RUM Data by Date for Single Node ;11/19/04  10:32

 ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003

 ;

EN ;-- entry point.

 ;

 N DATES,DIR,ELEMENT,I,IORVOFF,IORVON,LHTIME,NODE,OPTIONS,OUT,TMP,X,Y

 ;

 ; temporary global storage for stats.

 S TMP=$NA(^TMP("KMPR HR STATS",$J))

 S OUT=0

 F  D  Q:OUT

 .D HDR^KMPDUTL4(" RUM Data by Date for Single Node ") W !!

 .D GRPHMSG^KMPRUTL

 .; select element for display.

 .D ELEMENT^KMPRUTL(.Y) I 'Y S OUT=1 Q

 .S ELEMENT=Y_"^"_Y(0)

 .; get date range.

 .D RUMDATES^KMPRUTL(.DATES) Q:'DATES

 .; set up set-of-codes with nodes.

 .K DIR S DIR(0)="SO^",DIR("A")="Select Node"

 .S I=0,X=""

 .F  S X=$O(^KMPR(8971.1,"ANODE",X)) Q:X=""  D 

 ..S I=I+1,DIR(0)=DIR(0)_I_":"_X_";"

 .D ^DIR I 'Y S OUT=1 Q

 .K NODE S NODE(Y(0))=""

 .S OPTIONS="DGV"

 .K @TMP

 .W !!?3,"compiling data for: "

 .; get data - display graph - cleanup.

 .D DATA,GRAPH,EXIT

 .K @TMP

 ;

 Q

 ;

DATA ;-- compile rum stats per node for selected element.

 Q:$G(TMP)=""

 Q:'$G(ELEMENT)

 Q:'$G(DATES)

 Q:'$D(NODE)=""

 ;

 N DOTS,I,J,KMPRAR

 ;

 ; determine if dots should be printed to screen while gathering data.

 S DOTS=$S($E(IOST,1,2)="C-":0,1:1)

 ; get RUM data.

 D ELEMDATA^KMPRUTL2(+ELEMENT,$P(DATES,U),$P(DATES,U,2),.NODE,"KMPRAR",DOTS)

 Q:'$D(KMPRAR)

 ;

 ; format data into TMP array.

 S I=""

 F  S I=$O(KMPRAR(I)) Q:I=""  S J=0 D 

 .F  S J=$O(KMPRAR(I,J)) Q:J=""  D 

 ..S $P(@TMP@(J,0),U)=$$FMTE^DILIBF(J,2)

 ..S $P(@TMP@(J,0),U,2)=KMPRAR(I,J)

 ;

 Q

 ;

GRAPH ;-- display data in graph.

 Q:$G(TMP)=""

 Q:'$G(ELEMENT)

 ;

 N NODE1,TITLES

 S NODE1=$O(NODE(""))

 ; graph titles.

 S $P(TITLES,U)="RUM Data by Date for Node '"_NODE1_"'"

 S $P(TITLES,U,2)="From "_$P($G(DATES),U,3)_" to "_$P($G(DATES),U,4)

 S $P(TITLES,U,3)=$P(ELEMENT,U,2)_"/per "_$S(+ELEMENT=1!(+ELEMENT=7):"occurrence",1:"sec")

 S $P(TITLES,U,4)="Date"

 ; call graphics routine.

 D EN^KMPDUG(TMP,TITLES,$G(OPTIONS))

 Q

 ;

EXIT ;

 D ^%ZISC

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---KMPRPG02   2005     printed  Apr 23, 2025@17:56:07                                                                                                                                                                                                    Page 2

KMPRPG02  ;OAK/RAK - RUM Data by Date for Single Node ;11/19/04  10:32

 +1       ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003

 +2       ;

EN        ;-- entry point.

 +1       ;

 +2        NEW DATES,DIR,ELEMENT,I,IORVOFF,IORVON,LHTIME,NODE,OPTIONS,OUT,TMP,X,Y

 +3       ;

 +4       ; temporary global storage for stats.

 +5        SET TMP=$NAME(^TMP("KMPR HR STATS",$JOB))

 +6        SET OUT=0

 +7        FOR 

               Begin DoDot:1

 +8                DO HDR^KMPDUTL4(" RUM Data by Date for Single Node ")

                   WRITE !!

 +9                DO GRPHMSG^KMPRUTL

 +10      ; select element for display.

 +11               DO ELEMENT^KMPRUTL(.Y)

                   IF 'Y

                       SET OUT=1

                       QUIT 

 +12               SET ELEMENT=Y_"^"_Y(0)

 +13      ; get date range.

 +14               DO RUMDATES^KMPRUTL(.DATES)

                   if 'DATES

                       QUIT 

 +15      ; set up set-of-codes with nodes.

 +16               KILL DIR

                   SET DIR(0)="SO^"

                   SET DIR("A")="Select Node"

 +17               SET I=0

                   SET X=""

 +18               FOR 

                       SET X=$ORDER(^KMPR(8971.1,"ANODE",X))

                       if X=""

                           QUIT 

                       Begin DoDot:2

 +19                       SET I=I+1

                           SET DIR(0)=DIR(0)_I_":"_X_";"

                       End DoDot:2

 +20               DO ^DIR

                   IF 'Y

                       SET OUT=1

                       QUIT 

 +21               KILL NODE

                   SET NODE(Y(0))=""

 +22               SET OPTIONS="DGV"

 +23               KILL @TMP

 +24               WRITE !!?3,"compiling data for: "

 +25      ; get data - display graph - cleanup.

 +26               DO DATA

                   DO GRAPH

                   DO EXIT

 +27               KILL @TMP

               End DoDot:1

               if OUT

                   QUIT 

 +28      ;

 +29       QUIT 

 +30      ;

DATA      ;-- compile rum stats per node for selected element.

 +1        if $GET(TMP)=""

               QUIT 

 +2        if '$GET(ELEMENT)

               QUIT 

 +3        if '$GET(DATES)

               QUIT 

 +4        if '$DATA(NODE)=""

               QUIT 

 +5       ;

 +6        NEW DOTS,I,J,KMPRAR

 +7       ;

 +8       ; determine if dots should be printed to screen while gathering data.

 +9        SET DOTS=$SELECT($EXTRACT(IOST,1,2)="C-":0,1:1)

 +10      ; get RUM data.

 +11       DO ELEMDATA^KMPRUTL2(+ELEMENT,$PIECE(DATES,U),$PIECE(DATES,U,2),.NODE,"KMPRAR",DOTS)

 +12       if '$DATA(KMPRAR)

               QUIT 

 +13      ;

 +14      ; format data into TMP array.

 +15       SET I=""

 +16       FOR 

               SET I=$ORDER(KMPRAR(I))

               if I=""

                   QUIT 

               SET J=0

               Begin DoDot:1

 +17               FOR 

                       SET J=$ORDER(KMPRAR(I,J))

                       if J=""

                           QUIT 

                       Begin DoDot:2

 +18                       SET $PIECE(@TMP@(J,0),U)=$$FMTE^DILIBF(J,2)

 +19                       SET $PIECE(@TMP@(J,0),U,2)=KMPRAR(I,J)

                       End DoDot:2

               End DoDot:1

 +20      ;

 +21       QUIT 

 +22      ;

GRAPH     ;-- display data in graph.

 +1        if $GET(TMP)=""

               QUIT 

 +2        if '$GET(ELEMENT)

               QUIT 

 +3       ;

 +4        NEW NODE1,TITLES

 +5        SET NODE1=$ORDER(NODE(""))

 +6       ; graph titles.

 +7        SET $PIECE(TITLES,U)="RUM Data by Date for Node '"_NODE1_"'"

 +8        SET $PIECE(TITLES,U,2)="From "_$PIECE($GET(DATES),U,3)_" to "_$PIECE($GET(DATES),U,4)

 +9        SET $PIECE(TITLES,U,3)=$PIECE(ELEMENT,U,2)_"/per "_$SELECT(+ELEMENT=1!(+ELEMENT=7):"occurrence",1:"sec")

 +10       SET $PIECE(TITLES,U,4)="Date"

 +11      ; call graphics routine.

 +12       DO EN^KMPDUG(TMP,TITLES,$GET(OPTIONS))

 +13       QUIT 

 +14      ;

EXIT      ;

 +1        DO ^%ZISC

 +2        QUIT