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

KMPDSSS.m

Go to the documentation of this file. 
  1. KMPDSSS ;OAK/RAK/JML - CP Status - SAGG ;5/1/07  15:07
  1.  ;;3.0;Capacity Management Tools;**3**;Jan 22, 2009;Build 42
  1.  ;
  1.  ;
  1. FORMAT(KMPDLN) ;-format text for dislay
  1.  ;-----------------------------------------------------------------------------
  1.  ; KMPDLN.... return number of lines - called by reference
  1.  ;-----------------------------------------------------------------------------
  1.  ;
  1.  Q:$G(KMPDNMSP)=""
  1.  ;
  1.  N LN,X S LN=0 K TMP
  1.  ;
  1.  ; if no kmpsutl routine
  1.  S X="KMPSUTL" X ^%ZOSF("TEST") I '$T D  Q
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"The SAGG Package is not installed!")
  1.  ;
  1.  ; status
  1.  D STATUS
  1.  ;
  1.  ; option data
  1.  D OPT^KMPDSSD("KMPS SAGG REPORT")
  1.  ;
  1.  ; bacground data
  1.  D BKGRND
  1.  ;
  1.  ; file data
  1.  D FILES
  1.  ;
  1.  ; routine version check
  1.  D ROUCHK^KMPDSSD1("S")
  1.  ;
  1.  ; node/cpu data
  1.  D CPU^KMPDSSD1
  1.  ;
  1.  ; mail group member
  1.  D MGRP^KMPDSSD1
  1.  ;
  1.  ; legend
  1.  D LEGEND
  1.  ;
  1.  S KMPDLN=LN
  1.  ;
  1.  Q
  1.  ;
  1. BKGRND ;- background
  1.  ;
  1.  N CURSTAT,LOC,OPT,PLTFRM,PROD,SITENUM,STAT,TEXT,VOL,VOLDA
  1.  ;
  1.  S SITENUM=$P($$SITE^VASITE(),U,3) Q:'SITENUM
  1.  S OPT="KMPS SAGG REPORT",STAT=$$TSKSTAT^KMPSUTL1(OPT),CURSTAT=$$CURSTAT^KMPDUTL1(STAT)
  1.  ;
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   Temporary collection global.")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   ^XTMP(""KMPS"")............... "_$S('$D(^XTMP("KMPS",SITENUM,0)):"NOT ",1:"")_"Present")
  1.  ;
  1.  S PLTFRM=$$MPLTF^KMPDUTL1,PROD=$P(^%ZOSF("PROD"),",")
  1.  I PLTFRM="DSM" D
  1.  .S LOC=$G(^KMPS(8970.1,1,0))
  1.  .S TEXT="   Global Location............ "
  1.  .S TEXT=TEXT_$S($P(LOC,U,3)="":PROD,1:$P(LOC,U,3))_","_$S($P(LOC,U,2)="":"UNKNOWN",1:$P(LOC,U,2))
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,TEXT)
  1.  ;
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  ;  SAGG now collects on all volumes.  Legacy code in case needed in future
  1.  D SET^VALM10(LN,"   SAGG Project will collect metrics on ALL volumes")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  ;D SET^VALM10(LN,"   SAGG Project collection routines will monitor the following:")
  1.  ;S LN=LN+1
  1.  ;D SET^VALM10(LN,"")
  1.  ;S (TEXT,VOL)=""
  1.  ;F  S VOL=$O(^KMPS(8970.1,1,1,"B",VOL)) Q:VOL=""  D
  1.  ;.S VOLDA=$O(^KMPS(8970.1,1,1,"B",VOL,0))
  1.  ;.S LOC=$P(^KMPS(8970.1,1,1,VOLDA,0),U,2)
  1.  ;.S:LOC="" LOC=PROD
  1.  ;.S TEXT=$J(" ",10)_VOL,LN=LN+1
  1.  ;.D SET^VALM10(LN,TEXT)
  1.  ;
  1.  I '+CURSTAT&$D(^XTMP("KMPS","START")) D 
  1.  .S LN=LN+1 D SET^VALM10(LN,"") S LN=LN+1 D SET^VALM10(LN,"")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   SAGG Project collection routines are still running on:")
  1.  .S (TEXT,VOL)=""
  1.  .F  S VOL=$O(^XTMP("KMPS","START",VOL)) Q:VOL=""  D
  1.  ..S TEXT=$J(" ",10)_VOL,LN=LN+1
  1.  ..D SET^VALM10(LN,TEXT)
  1.  ;
  1.  ; check for any reported errors
  1.  I $D(^XTMP("KMPS","ERROR")) D 
  1.  .S LN=LN+1 D SET^VALM10(LN,"") S LN=LN+1 D SET^VALM10(LN,"")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   SAGG Project collection routines have recorded an error on")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   the following Volume Set(s):")
  1.  .S LN=LN+1 D SET^VALM10(LN,"")
  1.  .S (TEXT,VOL)=""
  1.  .F  S VOL=$O(^XTMP("KMPS","ERROR",VOL)) Q:VOL=""  D
  1.  ..S TEXT=$J(" ",10)_VOL,LN=LN+1
  1.  ..D SET^VALM10(LN,TEXT) S TEXT=""
  1.  ;
  1.  ; check to see if SAGG was told to stop or has reported errors
  1.  I (+CURSTAT)>3 D 
  1.  .I +CURSTAT=4 D
  1.  ..S LN=LN+1
  1.  ..D SET^VALM10(LN,"   SAGG has been running over a day. Use ^%S"_$S(PLTFRM="DSM":"Y",1:"S")_" and check to see if")
  1.  ..S LN=LN+1
  1.  ..D SET^VALM10(LN,"   the KMPSGE routine is still running.")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   NOTE:  Any incomplete data that has been collected will be")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   deleted automatically the next time that SAGG runs.")
  1.  .I $D(^XTMP("KMPS","ERROR")) S LN=LN+1 D SET^VALM10(LN,"            First determine the cause of any volume set errors.")
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"            Reschedule SAGG to collect global data if necessary.")
  1.  ;
  1.  Q
  1.  ;
  1. FILES ;-- file data
  1.  ;
  1.  N TEXT,X
  1.  ;
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,$J(" ",35)_" # of") ;     Oldest     Recent")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   File"_$J(" ",28)_"Entries") ;    Date       Date")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   -------------------------       -------") ;   -------   -------")
  1.  ; file name
  1.  S TEXT="   8970.1-SAGG PROJECT"
  1.  ; number of entries
  1.  S TEXT=TEXT_$J(" ",35-$L(TEXT))_$J($FN($P($G(^KMPS(8970.1,0)),U,4),",",0),7)
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,TEXT)
  1.  ;
  1.  Q
  1.  ;
  1. LEGEND ;-- display full package name
  1.  ;
  1.  S LN=LN+1 D SET^VALM10(LN,"")
  1.  S LN=LN+1 D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   SAGG = Statistical Analysis of Global Growth")
  1.  ;
  1.  Q
  1.  ;
  1. STATUS ;-- current status
  1.  ;
  1.  N CURSTAT,DOW,OPT,SESSNUM,SITNUM,STAT,STRTDT
  1.  ;
  1.  S SITNUM=$P($$SITE^VASITE(),U,3) Q:'SITNUM
  1.  S OPT="KMPS SAGG REPORT",STAT=$$TSKSTAT^KMPSUTL1(OPT),CURSTAT=$$CURSTAT^KMPDUTL1(STAT)
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"   Current Status.............. "_$P(CURSTAT,U,2))
  1.  I $D(^XTMP("KMPS",SITNUM,0)) D
  1.  .S SESSNUM=^XTMP("KMPS",SITNUM,0),STRTDT=$P(SESSNUM,U,4),SESSNUM=+SESSNUM
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   Session Number.............. "_SESSNUM)
  1.  .S DOW=$$DOW^XLFDT(STRTDT)
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,"   Start Date.................. "_$$FMTE^XLFDT(STRTDT,"P")_" ("_DOW_")")
  1.  ;
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  ;
  1.  Q