%ZOSVKSD ;OAK/KAK/RAK/JML - ZOSVKSD - Calculate Disk Capacity ;10/1/2020
;;8.0;KERNEL;**121,197,268,456,568,670,740**;3/1/2018;Build 6
;
; This routine will help to calculate disk capacity for
; Cache system platforms by looking up volume set table information
;
EN(SITENUM,SESSNUM,OS) ;-- called by routine SYS+2^KMPSLK
;--------------------------------------------------------------------
; SITENUM = Station number of site
; SESSNUM = SAGG session number
; VOLS = Array containing names of monitored volumes
; OS = Type of M platform (CVMS, CWINNT)
;
; Returns ^XTMP("KMPS",SITENUM,SESSNUM,"@VOL",vol_name) = vol_size
;--------------------------------------------------------------------
;
Q:'$G(SITENUM)
Q:$G(SESSNUM)=""
Q:$G(OS)=""
;
D ALLOS
;
Q
;
ALLOS ; Using InterSystems APIs. Designed to work on all OS's
N KMPRNS,KMPSARR,KMPSDIR,KMPSRNS,KMPSTNS,KMPSPTR
;
; KMPS*2.0*1 -- now monitoring all volume sets
;
S KMPSDIR="",KMPSARR=""
S KMPRNS=$NAMESPACE,$NAMESPACE="%SYS"
F S KMPSDIR=$O(^SYS("UCI",KMPSDIR)) Q:KMPSDIR="" D
.Q:$G(^SYS("UCI",KMPSDIR))]""
.; get TOTAL BLOCKS for directory
.S KMPSPTR=##class(SYS.Database).%OpenId(KMPSDIR)
.; quit if not mounted
.Q:KMPSPTR.Mounted'=1
.;
.S KMPSARR("KMPS",SITENUM,SESSNUM,"@VOL",KMPSDIR)=KMPSPTR.Blocks
S $NAMESPACE=KMPRNS
S KMPSDIR=""
F S KMPSDIR=$O(KMPSARR("KMPS",SITENUM,SESSNUM,"@VOL",KMPSDIR)) Q:KMPSDIR="" D
.S ^XTMP("KMPS",SITENUM,SESSNUM,"@VOL",KMPSDIR)=KMPSARR("KMPS",SITENUM,SESSNUM,"@VOL",KMPSDIR)
Q
;
KMPVVSTM(KMPVDATA) ; Get storage metrics for Vista Storage Monitor (VSTM) within VistA System Monitor (VSM)
N KMPRNS,KMPVTNS,KMPVDIR,KMPVDB,KMPVMAX,KMPVSIZE,KMPVBSIZ,KMPVBPM,KMPVSTAT,KMPVFMB
N KMPVFBLK,KMPVSYSD,KMPVESIZ,KMPVFLAG,KMPVRSET,KMPVDFSP
N KMPDBERR,KMPVLN,KMPVTEXT
S U="^"
; get current namespace, switch to %SYS
S KMPRNS=$NAMESPACE,$NAMESPACE="%SYS"
S KMPVDIR=""
S KMPVTNS=$ZU(5,"%SYS")
F S KMPVDIR=$O(^SYS("UCI",KMPVDIR)) Q:KMPVDIR="" D
.Q:$G(^SYS("UCI",KMPVDIR))]""
.S KMPVDB=##class(SYS.Database).%OpenId(KMPVDIR)
.I KMPVDB="" S KMPDBERR(KMPVDIR)="" Q
.S KMPVMAX=KMPVDB.MaxSize,KMPVSIZE=KMPVDB.Size
.S KMPVBSIZ=KMPVDB.BlockSize,KMPVBPM=KMPVDB.BlocksPerMap
.S KMPVSTAT=KMPVDB.GetFreeSpace(KMPVDIR,.KMPVFMB,.KMPVFBLK)
.S KMPVSYSD=KMPVDB.IsSystemDB(KMPVDIR),KMPVESIZ=KMPVDB.ExpansionSize
.; MaxSize(MB)^Current Size(MB)^Block Size(int)^Bocks per Map(int)^Free space(MB)^
.; Free Space(int-Blocks)^System Dir(bool)^Expansion size
.S KMPVDATA(KMPVDIR)=KMPVMAX_U_KMPVSIZE_U_KMPVBSIZ_U_KMPVBPM_U_KMPVFMB_U_KMPVFBLK_U_KMPVSYSD_U_KMPVESIZ
; Execute FreeSpace Query to add Directory Free Space
S KMPVFLAG="*"
S KMPVRSET=##class(%Library.ResultSet).%New("SYS.Database:FreeSpace")
D KMPVRSET.Execute(KMPVFLAG,0)
While (KMPVRSET.Next()) {
I (KMPVRSET.Data("Available")["Dismounted") continue
S KMPVDFSP=KMPVRSET.Data("DiskFreeSpace"),KMPVDIR=KMPVRSET.Data("Directory")
I $D(KMPVDATA(KMPVDIR)) S $P(KMPVDATA(KMPVDIR),"^",9)=KMPVDFSP
}
D KMPVRSET.Close()
; Switch back to production namespace
S $NAMESPACE=KMPRNS
; Send email if directory doesn't exist
I $D(KMPDBERR) D
.S KMPVTEXT("SUBJECT")="VSM CONFIG: Missing Directory"
.S KMPVDIR="",KMPVLN=1
.F S KMPVDIR=$O(KMPDBERR(KMPVDIR)) Q:KMPVDIR="" D
..S KMPVTEXT(KMPVLN)="Directory: "_KMPVDIR,KMPVLN=KMPVLN+1
.D INFOMSG^KMPUTLW(.KMPVTEXT)
Q
;
KMPVVTCM(KMPVDATA) ; Get Cache metrics for Vista Timed Collection Monitor (VTCM) within VistA System Monitor (VSM)
N U,KMPRNS,KMPVTNS
S U="^"
; get current namespace, switch to %SYS
S KMPRNS=$NAMESPACE,$NAMESPACE="%SYS"
;
S KMPVDATA("KMPVDASH")=##class(SYS.Stats.Dashboard).Sample()
S KMPVDATA("KMPVROUT")=##class(SYS.Stats.Routine).Sample()
S KMPVDATA("KMPVSMH")=##class(%SYSTEM.Config.SharedMemoryHeap).GetUsageSummary()
S KMPVDATA("KMPVMEM")=##class(%SYSTEM.Config.SharedMemoryHeap).FreeCount()
;
; Return to 'from' namespace
S $NAMESPACE=KMPRNS
Q
;
BLKCOL(KMPVRET) ;
; ** Non interactive subset of Intersystems' ^BLKCOL routine - includes parts of BLKCOL and RUNERR line tags
;
N KMPRNS,KMPVTNS,KMPVSEC,KMPVWAIT,KMPVDET,KMPVCOL,KMPVTO,KMPVCNT,KMPVINFO
; get current namespace, switch to %SYS
S KMPRNS=$NAMESPACE,$NAMESPACE="%SYS"
S KMPVSEC=10,KMPVWAIT=10,KMPVDET=2,KMPVRET=""
;
S $ZTRAP="RUNERR"
L +^SYS("BLKCOL"):5 E Q
K ^||BLKCOL
S KMPVCOL=0,KMPVTO=$ZH+KMPVSEC
F KMPVCNT=1:1:1000 D
.S KMPVINFO=$ZU(190,17)
.I KMPVINFO]"" S KMPVCOL=KMPVCOL+1
.H KMPVWAIT/1000
S KMPVRET=KMPVCNT_","_KMPVCOL
L -^SYS("BLKCOL")
; Return to 'from' namespace
S $NAMESPACE=KMPRNS
Q
RUNERR ; Trap errors
S $ZTRAP=""
L -^SYS("BLKCOL")
; Return to 'from' namespace
S $NAMESPACE=KMPRNS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSVKSD 4790 printed Oct 16, 2024@18:16:26 Page 2
%ZOSVKSD ;OAK/KAK/RAK/JML - ZOSVKSD - Calculate Disk Capacity ;10/1/2020
+1 ;;8.0;KERNEL;**121,197,268,456,568,670,740**;3/1/2018;Build 6
+2 ;
+3 ; This routine will help to calculate disk capacity for
+4 ; Cache system platforms by looking up volume set table information
+5 ;
EN(SITENUM,SESSNUM,OS) ;-- called by routine SYS+2^KMPSLK
+1 ;--------------------------------------------------------------------
+2 ; SITENUM = Station number of site
+3 ; SESSNUM = SAGG session number
+4 ; VOLS = Array containing names of monitored volumes
+5 ; OS = Type of M platform (CVMS, CWINNT)
+6 ;
+7 ; Returns ^XTMP("KMPS",SITENUM,SESSNUM,"@VOL",vol_name) = vol_size
+8 ;--------------------------------------------------------------------
+9 ;
+10 if '$GET(SITENUM)
QUIT
+11 if $GET(SESSNUM)=""
QUIT
+12 if $GET(OS)=""
QUIT
+13 ;
+14 DO ALLOS
+15 ;
+16 QUIT
+17 ;
ALLOS ; Using InterSystems APIs. Designed to work on all OS's
+1 NEW KMPRNS,KMPSARR,KMPSDIR,KMPSRNS,KMPSTNS,KMPSPTR
+2 ;
+3 ; KMPS*2.0*1 -- now monitoring all volume sets
+4 ;
+5 SET KMPSDIR=""
SET KMPSARR=""
+6
*** ERROR ***
SET KMPRNS=$NAMESPACE
