KMPRUTL2 ;OAK/RAK - RUM Data for All Nodes (Graph) ;5/28/03 09:15
;;2.0;CAPACITY MANAGEMENT - RUM;;May 28, 2003
;
ELEMDATA(KMPRELMT,KMPRST,KMPREN,KMPRNODE,KMPRARRY,KMPRQIET) ;-- elements
; compile rum element stats.
;-----------------------------------------------------------------------
; KMPRELMT... Element. This represents the ^piece of where the
; element data is located in file 8971.1.
; Example: 5 would be piece 5 of node 1 - M COMMANDS (PT)
; or piece 5 of node 2 - M COMMANDS (NP)
; KMPRST..... Start date in internal fileman format.
; KMPREN..... End date in internal fileman format.
; KMPRNODE... Array (passed by reference) containing name of nodes to
; process in format: KMPRNODE("NODENAME")=""
; KMPRARRY... Array (passed by value) that will contain results of
; search in format:
; KMPRARRY(KMPRNODE,DATE)=element/per second
; where DATE will be in internal filemat format.
; KMPRQIET... Output date/dots during search.
; 0 - not quiet.
; 1 - quiet.
;-----------------------------------------------------------------------
;
Q:'$G(KMPRELMT)
Q:'$G(KMPRST)
Q:'$G(KMPREN)
Q:'$D(KMPRNODE)
Q:$G(KMPRARRY)=""
S KMPRQIET=+$G(KMPRQIET)
;
K @KMPRARRY
;
N DATE,DATA,DCOUNT,END,IEN,NODE,OCCURR,OPTION,START
;
; DATE.... Current date being processed.
; END..... Ending date.
; NODE.... Computer node.
; OCCURR.. # of Occurrences
; OPTION.. Option name.
; START... Starting date.
;
S END=KMPREN,START=KMPRST
S DATE=START-.1,OCCURR=0
F S DATE=$O(^KMPR(8971.1,"B",DATE)) Q:'DATE!(DATE>END) D
.I 'KMPRQIET W:$X>68 !?23 W $$FMTE^XLFDT(DATE,5),"."
.S IEN=0
.F S IEN=$O(^KMPR(8971.1,"B",DATE,IEN)) Q:'IEN D
..I 'KMPRQIET&('(IEN#1000)) W:$X>78 !?23 W "."
..Q:'$D(^KMPR(8971.1,IEN,0)) S DATA(0)=^(0),DATA(1)=$G(^(1)),DATA(2)=$G(^(2))
..S NODE=$P(DATA(0),U,3) Q:NODE=""
..Q:'$D(KMPRNODE(NODE))
..S @KMPRARRY@(NODE,DATE)=$G(@KMPRARRY@(NODE,DATE))+$P(DATA(1),U,+KMPRELMT)
..S @KMPRARRY@(NODE,DATE)=$G(@KMPRARRY@(NODE,DATE))+$P(DATA(2),U,+KMPRELMT)
..; count occurrences.
..S OCCURR=OCCURR+$P(DATA(1),U,8)+$P(DATA(2),U,8)
;
; calculate element per second or per occurrence.
S NODE=""
F S NODE=$O(@KMPRARRY@(NODE)) Q:NODE="" S DATE="" D
.F S DATE=$O(@KMPRARRY@(NODE,DATE)) Q:'DATE D
..; elements 1 and 7 are per Occurrence.
..I KMPRELMT=1!(KMPRELMT=7) D
...S @KMPRARRY@(NODE,DATE)=$FN(@KMPRARRY@(NODE,DATE)/(OCCURR),"",2)
..; all other elements are per second.
..E S @KMPRARRY@(NODE,DATE)=$FN(@KMPRARRY@(NODE,DATE)/(24*3600),"",2)
;
Q
;
PKGDATA(KMPRPKG,KMPRSTR,KMPREND,KMPRARRY,KMPRQIET) ;-- package data.
;-----------------------------------------------------------------------
; KMPRPKG... Package name (case sensitive, free text).
; KMPRSTR... Start date in internal fileman format.
; KMPREND... End date in internal fileman format.
; KMPRARRY.. Array to hold data (by value).
; KMPRQIET.. Output date/dots during search.
; 0 - not quiet.
; 1 - quiet.
;-----------------------------------------------------------------------
;
Q:$G(KMPRPKG)=""!($G(KMPRPKG)="^")
Q:'$G(KMPRSTR)
Q:'$G(KMPREND)
Q:$G(KMPRARRY)=""
S KMPRQIET=+$G(KMPRQIET)
;
N DATE,DESIG,HL7,I,IEN,NODE,OPTION,PROTOCOL,RPC,TOTALS,TYP
;
S DATE=KMPRSTR-.1
F S DATE=$O(^KMPR(8971.1,"B",DATE)) Q:'DATE!(DATE>KMPREND) S IEN=0 D
.I 'KMPRQIET W:$X>68 !?23 W $$FMTE^XLFDT(DATE,5),"."
.F S IEN=$O(^KMPR(8971.1,"B",DATE,IEN)) Q:'IEN D
..I 'KMPRQIET&('(IEN#1000)) W:$X>78 !?23 W "."
..Q:'$D(^KMPR(8971.1,IEN,0)) S DATA(0)=^(0),DATA(1)=$G(^(1)),DATA(2)=$G(^(2))
..S NODE=$P(DATA(0),U,3) S:NODE="" NODE="N/A"
..S OPTION=$P(DATA(0),U,4) S:OPTION="" OPTION="N/A"
..S PROTOCOL=$P(DATA(0),U,5)
..S RPC=$P(DATA(0),U,7)
..S HL7=$P(DATA(0),U,9)
..; rum designation: 1 - TASKMAN
..; 2 - USER
..; 3 - BROKER
..; 4 - HL7
..; 5 OTHER
..S DESIG=$P(DATA(0),U,8)
..;
..; TYP: KMPRPKG. options within namespace
..; HL7..... hl7 within namespace.
..; RPC..... rpc within namespace
..; PRTCL... protocol within namespace
..; TASK.... tasked option within namespace
..; OTH..... all other options/protocols
..;
..S TYP="OTH"
..; if option is in namespace.
..I $E(OPTION,1,$L(KMPRPKG))=KMPRPKG S TYP=KMPRPKG
..; if option in namespace and protocol was called.
..I TYP=KMPRPKG I PROTOCOL]"" S TYP="PRTCL"
..; if option in namespace and tasked.
..I TYP=KMPRPKG&(DESIG=1)&($E(OPTION,1,$L(KMPRPKG))=KMPRPKG) S TYP="TASK"
..; if broker and in namespace.
..I DESIG=3&($E(RPC,1,$L(KMPRPKG))=KMPRPKG) S TYP="RPC"
..; if hl7 and in namespace.
..I DESIG=4&($E(HL7,1,$L(KMPRPKG))=KMPRPKG) S TYP="HL7"
..; get current totals (if any).
..S TOTALS=$G(@KMPRARRY@(NODE,TYP))
..; add prime time and non-prime time totals
..F I=1:1:8 D
...S $P(@KMPRARRY@(NODE,TYP),U,I)=$P($G(@KMPRARRY@(NODE,TYP)),U,I)+$P(DATA(1),U,I)
...S $P(@KMPRARRY@(NODE,TYP),U,I)=$P($G(@KMPRARRY@(NODE,TYP)),U,I)+$P(DATA(2),U,I)
...S $P(@KMPRARRY@(NODE,"TOTALS"),U,I)=$P($G(@KMPRARRY@(NODE,"TOTALS")),U,I)+$P(DATA(1),U,I)
...S $P(@KMPRARRY@(NODE,"TOTALS"),U,I)=$P($G(@KMPRARRY@(NODE,"TOTALS")),U,I)+$P(DATA(2),U,I)
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPRUTL2 5432 printed Apr 09, 2024@20:47:01 Page 2
KMPRUTL2 ;OAK/RAK - RUM Data for All Nodes (Graph) ;5/28/03 09:15
+1 ;;2.0;CAPACITY MANAGEMENT - RUM;;May 28, 2003
+2 ;
ELEMDATA(KMPRELMT,KMPRST,KMPREN,KMPRNODE,KMPRARRY,KMPRQIET) ;-- elements
+1 ; compile rum element stats.
+2 ;-----------------------------------------------------------------------
+3 ; KMPRELMT... Element. This represents the ^piece of where the
+4 ; element data is located in file 8971.1.
+5 ; Example: 5 would be piece 5 of node 1 - M COMMANDS (PT)
+6 ; or piece 5 of node 2 - M COMMANDS (NP)
+7 ; KMPRST..... Start date in internal fileman format.
+8 ; KMPREN..... End date in internal fileman format.
+9 ; KMPRNODE... Array (passed by reference) containing name of nodes to
+10 ; process in format: KMPRNODE("NODENAME")=""
+11 ; KMPRARRY... Array (passed by value) that will contain results of
+12 ; search in format:
+13 ; KMPRARRY(KMPRNODE,DATE)=element/per second
+14 ; where DATE will be in internal filemat format.
+15 ; KMPRQIET... Output date/dots during search.
+16 ; 0 - not quiet.
+17 ; 1 - quiet.
+18 ;-----------------------------------------------------------------------
+19 ;
+20 if '$GET(KMPRELMT)
QUIT
+21 if '$GET(KMPRST)
QUIT
+22 if '$GET(KMPREN)
QUIT
+23 if '$DATA(KMPRNODE)
QUIT
+24 if $GET(KMPRARRY)=""
QUIT
+25 SET KMPRQIET=+$GET(KMPRQIET)
+26 ;
+27 KILL @KMPRARRY
+28 ;
+29 NEW DATE,DATA,DCOUNT,END,IEN,NODE,OCCURR,OPTION,START
+30 ;
+31 ; DATE.... Current date being processed.
+32 ; END..... Ending date.
+33 ; NODE.... Computer node.
+34 ; OCCURR.. # of Occurrences
+35 ; OPTION.. Option name.
+36 ; START... Starting date.
+37 ;
+38 SET END=KMPREN
SET START=KMPRST
+39 SET DATE=START-.1
SET OCCURR=0
+40 FOR
SET DATE=$ORDER(^KMPR(8971.1,"B",DATE))
if 'DATE!(DATE>END)
QUIT
Begin DoDot:1
+41 IF 'KMPRQIET
if $X>68
WRITE !?23
WRITE $$FMTE^XLFDT(DATE,5),"."
+42 SET IEN=0
+43 FOR
SET IEN=$ORDER(^KMPR(8971.1,"B",DATE,IEN))
if 'IEN
QUIT
Begin DoDot:2
+44 IF 'KMPRQIET&('(IEN#1000))
if $X>78
WRITE !?23
WRITE "."
+45 if '$DATA(^KMPR(8971.1,IEN,0))
QUIT
SET DATA(0)=^(0)
SET DATA(1)=$GET(^(1))
SET DATA(2)=$GET(^(2))
+46 SET NODE=$PIECE(DATA(0),U,3)
if NODE=""
QUIT
+47 if '$DATA(KMPRNODE(NODE))
QUIT
+48 SET @KMPRARRY@(NODE,DATE)=$GET(@KMPRARRY@(NODE,DATE))+$PIECE(DATA(1),U,+KMPRELMT)
+49 SET @KMPRARRY@(NODE,DATE)=$GET(@KMPRARRY@(NODE,DATE))+$PIECE(DATA(2),U,+KMPRELMT)
+50 ; count occurrences.
+51 SET OCCURR=OCCURR+$PIECE(DATA(1),U,8)+$PIECE(DATA(2),U,8)
End DoDot:2
End DoDot:1
+52 ;
+53 ; calculate element per second or per occurrence.
+54 SET NODE=""
+55 FOR
SET NODE=$ORDER(@KMPRARRY@(NODE))
if NODE=""
QUIT
SET DATE=""
Begin DoDot:1
+56 FOR
SET DATE=$ORDER(@KMPRARRY@(NODE,DATE))
if 'DATE
QUIT
Begin DoDot:2
+57 ; elements 1 and 7 are per Occurrence.
+58 IF KMPRELMT=1!(KMPRELMT=7)
Begin DoDot:3
+59 SET @KMPRARRY@(NODE,DATE)=$FNUMBER(@KMPRARRY@(NODE,DATE)/(OCCURR),"",2)
End DoDot:3
+60 ; all other elements are per second.
+61 IF '$TEST
SET @KMPRARRY@(NODE,DATE)=$FNUMBER(@KMPRARRY@(NODE,DATE)/(24*3600),"",2)
End DoDot:2
End DoDot:1
+62 ;
+63 QUIT
+64 ;
PKGDATA(KMPRPKG,KMPRSTR,KMPREND,KMPRARRY,KMPRQIET) ;-- package data.
+1 ;-----------------------------------------------------------------------
+2 ; KMPRPKG... Package name (case sensitive, free text).
+3 ; KMPRSTR... Start date in internal fileman format.
+4 ; KMPREND... End date in internal fileman format.
+5 ; KMPRARRY.. Array to hold data (by value).
+6 ; KMPRQIET.. Output date/dots during search.
+7 ; 0 - not quiet.
+8 ; 1 - quiet.
+9 ;-----------------------------------------------------------------------
+10 ;
+11 if $GET(KMPRPKG)=""!($GET(KMPRPKG)="^")
QUIT
+12 if '$GET(KMPRSTR)
QUIT
+13 if '$GET(KMPREND)
QUIT
+14 if $GET(KMPRARRY)=""
QUIT
+15 SET KMPRQIET=+$GET(KMPRQIET)
+16 ;
+17 NEW DATE,DESIG,HL7,I,IEN,NODE,OPTION,PROTOCOL,RPC,TOTALS,TYP
+18 ;
+19 SET DATE=KMPRSTR-.1
+20 FOR
SET DATE=$ORDER(^KMPR(8971.1,"B",DATE))
if 'DATE!(DATE>KMPREND)
QUIT
SET IEN=0
Begin DoDot:1
+21 IF 'KMPRQIET
if $X>68
WRITE !?23
WRITE $$FMTE^XLFDT(DATE,5),"."
+22 FOR
SET IEN=$ORDER(^KMPR(8971.1,"B",DATE,IEN))
if 'IEN
QUIT
Begin DoDot:2
+23 IF 'KMPRQIET&('(IEN#1000))
if $X>78
WRITE !?23
WRITE "."
+24 if '$DATA(^KMPR(8971.1,IEN,0))
QUIT
SET DATA(0)=^(0)
SET DATA(1)=$GET(^(1))
SET DATA(2)=$GET(^(2))
+25 SET NODE=$PIECE(DATA(0),U,3)
if NODE=""
SET NODE="N/A"
+26 SET OPTION=$PIECE(DATA(0),U,4)
if OPTION=""
SET OPTION="N/A"
+27 SET PROTOCOL=$PIECE(DATA(0),U,5)
+28 SET RPC=$PIECE(DATA(0),U,7)
+29 SET HL7=$PIECE(DATA(0),U,9)
+30 ; rum designation: 1 - TASKMAN
+31 ; 2 - USER
+32 ; 3 - BROKER
+33 ; 4 - HL7
+34 ; 5 OTHER
+35 SET DESIG=$PIECE(DATA(0),U,8)
+36 ;
+37 ; TYP: KMPRPKG. options within namespace
+38 ; HL7..... hl7 within namespace.
+39 ; RPC..... rpc within namespace
+40 ; PRTCL... protocol within namespace
+41 ; TASK.... tasked option within namespace
+42 ; OTH..... all other options/protocols
+43 ;
+44 SET TYP="OTH"
+45 ; if option is in namespace.
+46 IF $EXTRACT(OPTION,1,$LENGTH(KMPRPKG))=KMPRPKG
SET TYP=KMPRPKG
+47 ; if option in namespace and protocol was called.
+48 IF TYP=KMPRPKG
IF PROTOCOL]""
SET TYP="PRTCL"
+49 ; if option in namespace and tasked.
+50 IF TYP=KMPRPKG&(DESIG=1)&($EXTRACT(OPTION,1,$LENGTH(KMPRPKG))=KMPRPKG)
SET TYP="TASK"
+51 ; if broker and in namespace.
+52 IF DESIG=3&($EXTRACT(RPC,1,$LENGTH(KMPRPKG))=KMPRPKG)
SET TYP="RPC"
+53 ; if hl7 and in namespace.
+54 IF DESIG=4&($EXTRACT(HL7,1,$LENGTH(KMPRPKG))=KMPRPKG)
SET TYP="HL7"
+55 ; get current totals (if any).
+56 SET TOTALS=$GET(@KMPRARRY@(NODE,TYP))
+57 ; add prime time and non-prime time totals
+58 FOR I=1:1:8
Begin DoDot:3
+59 SET $PIECE(@KMPRARRY@(NODE,TYP),U,I)=$PIECE($GET(@KMPRARRY@(NODE,TYP)),U,I)+$PIECE(DATA(1),U,I)
+60 SET $PIECE(@KMPRARRY@(NODE,TYP),U,I)=$PIECE($GET(@KMPRARRY@(NODE,TYP)),U,I)+$PIECE(DATA(2),U,I)
+61 SET $PIECE(@KMPRARRY@(NODE,"TOTALS"),U,I)=$PIECE($GET(@KMPRARRY@(NODE,"TOTALS")),U,I)+$PIECE(DATA(1),U,I)
+62 SET $PIECE(@KMPRARRY@(NODE,"TOTALS"),U,I)=$PIECE($GET(@KMPRARRY@(NODE,"TOTALS")),U,I)+$PIECE(DATA(2),U,I)
End DoDot:3
End DoDot:2
End DoDot:1
+63 ;
+64 QUIT
