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

XTPMSTAT.m

Go to the documentation of this file.
  1. XTPMSTAT ;OAK/BP - PRINT PATCH STATISTICS BY REPORT GROUP; 2/7/06
  1. ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4
  1. ;
  1. S IOP="HOME" D ^%ZIS K IOP
  1. EN W @IOF,"Patch Monitor Statistics",!!!
  1. W "Please select the REPORTING GROUP. You may select as many groups as you",!
  1. W "wish for each report. Each group will be reported in a separate section.",!!!
  1. K TMP("XTBGRP"),TMP("XTBPKG")
  1. N DIC,DA S DIC(0)="AEQM",DIC="^XPD(9.95," D ^DIC S DA(1)=+Y
  1. I DA(1)>0 N DIC S DIC(0)="AEQM",DIC="^XPD(9.95,DA(1),2," F D ^DIC Q:Y<0 DO
  1. .I $D(TMP("XTBGRP",$P(Y,U,2))) W $C(7),". . . You already have that one" Q
  1. .S TMP("XTBGRP",$P(Y,U,2))=+Y
  1. G:X[U EXIT
  1. G:'$D(TMP("XTBGRP")) EXIT
  1. W !!,"Do you want a new form/screen between REPORTING GROUPS" S %=1 D YN^DICN S XTBPGF=%
  1. ;
  1. DATE W ! S %DT="AEP"
  1. S %DT("A")="Enter BEGINNING Compliance date: " D ^%DT G:Y<0 EXIT S XTBBDT=Y X ^DD("DD") S XTBBDT1=Y
  1. S %DT="AE",%DT("A")=" and ENDING Compliance date: " D ^%DT G:Y<0 EXIT S XTBEDT=Y X ^DD("DD") S XTBEDT1=Y
  1. I XTBEDT<XTBBDT W !!,$C(7),"Starting date is later than ending date.",!! H 2 G DATE
  1. ;
  1. DEV W !! S %ZIS="AEQ" D ^%ZIS G:POP EXIT
  1. I $D(IO("Q")) S ZTIO=ION,ZTRTN="SORT^XTPMSTAT",ZTSAVE("XTB*")="",ZTSAVE("TMP*")="",ZTDESC="Patch Monitor Statistics" D ^%ZTLOAD D HOME^%ZIS
  1. I $D(ZTSK) W !,"Queued as task #",ZTSK H 2 G EXIT
  1. ;
  1. ; sort patches by compliance date
  1. SORT U IO F XTBCPLDT=(XTBBDT-.0001):0 S XTBCPLDT=$O(^XPD(9.9,"D",XTBCPLDT)) Q:XTBCPLDT=""!(XTBCPLDT>XTBEDT) DO
  1. .F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,"D",XTBCPLDT,XTBDA)) Q:XTBDA="" DO
  1. ..S XTBDTA=$G(^XPD(9.9,XTBDA,0)) Q:XTBDTA=""
  1. ..S XTBPTNAM=$P(XTBDTA,U,1),XTBNMSP=$P($P(XTBDTA,U,4)," - ",1) Q:XTBNMSP="" ;parent package missing in file
  1. ..S XTBRELDT=$P(XTBDTA,U,2),XTBPRIOR=$P(XTBDTA,U,3)
  1. ..S TMP("XTBPKG",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)=XTBRELDT_U_XTBPRIOR
  1. PRINT ; read and print sorted groups
  1. S Y=DT X ^DD("DD") S XTBCURDT=Y
  1. K XTBLINE S $P(XTBLINE,"-",(IOM-2))="-"
  1. S PG=0,XTBGRP="",XTBGRP=$O(TMP("XTBGRP",XTBGRP)) G:XTBGRP="" EXIT D HDR ; first header
  1. S (XTBGRP,XTBNMSP,XTBPTNAM,XTBOLDNM,XTBOLGRP)="",(XTBTPTCH,XTBTLATE)=0
  1. F S XTBGRP=$O(TMP("XTBGRP",XTBGRP)) Q:XTBGRP="" S XTBGPDA=TMP("XTBGRP",XTBGRP) DO Q:$D(XTBOUT)
  1. .; read param file for monitored groups
  1. .F S XTBNMSP=$O(^XPD(9.95,1,2,XTBGPDA,1,"B",XTBNMSP)) Q:XTBNMSP="" I $D(TMP("XTBPKG",XTBNMSP)) DO Q:$D(XTBOUT)
  1. ..; read sorted namespaces
  1. ..F XTBCPLDT=0:0 S XTBCPLDT=$O(TMP("XTBPKG",XTBNMSP,XTBCPLDT)) Q:XTBCPLDT="" F S XTBPTNAM=$O(TMP("XTBPKG",XTBNMSP,XTBCPLDT,XTBPTNAM)) Q:XTBPTNAM="" DO Q:$D(XTBOUT)
  1. ...F XTBDA=0:0 S XTBDA=$O(TMP("XTBPKG",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)) Q:XTBDA="" DO Q:$D(XTBOUT)
  1. ....S XTBTPTCH=XTBTPTCH+1
  1. ....S XTBDTA=TMP("XTBPKG",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)
  1. ....S XTBRELDT=$P(XTBDTA,U),XTBPRIOR=$P(XTBDTA,U,2)
  1. ....S XTBRCVDT=$P($G(^XPD(9.9,XTBDA,0)),U,2)
  1. ....S XTBPTYPE=$P($G(^XPD(9.9,XTBDA,0)),U,10)
  1. ....I +XTBPTYPE=0 S D0=XTBDA D ^XTPMKPCF S XTBINSDT=X K D0
  1. ....I +XTBPTYPE=1 S XTBINSDT=$P($G(^XPD(9.9,XTBDA,0)),U,11)
  1. ....I XTBINSDT]"" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
  1. ....I XTBINSDT="" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
  1. ....S XTBGRPHD="Report group: "_XTBGRP
  1. ....I XTBOLGRP="",PG=1 W XTBGRPHD,!!
  1. ....I XTBOLDNM'="",XTBNMSP'=XTBOLDNM W !
  1. ....I XTBOLDNM'="",XTBGRP'=XTBOLGRP,XTBPGF=1 D:IOST?1"C-".E PAUSE Q:$D(XTBOUT) D HDR W XTBGRPHD,!!
  1. ....I XTBOLDNM'="",XTBGRP'=XTBOLGRP,XTBPGF=0 W !,XTBGRPHD,!!
  1. ....I $Y>(IOSL-6),IOST?1"C-".E D PAUSE Q:$D(XTBOUT) D HDR I XTBGRP'=XTBOLGRP W XTBGRPHD,!!
  1. ....S Y=XTBINSDT X ^DD("DD") S XTBINSDT=Y
  1. ....S Y=XTBCPLDT X ^DD("DD") S XTBCPLDX=Y
  1. ....S Y=XTBRELDT X ^DD("DD") S XTBRELDT=Y
  1. ....S XTBPRIOR=$S(XTBPRIOR="m":"Mandatory",XTBPRIOR="e":"Emergency",1:"Unknown")
  1. ....W XTBCPLDX,?14,XTBPTNAM,?27,XTBRELDT,?41,XTBINSDT,?55,XTBPRIOR
  1. ....I XTBDAYLT>0 W ?67,$J(XTBDAYLT,3,0)_$S(XTBDAYLT>1:" days",1:" day") S XTBTLATE=XTBTLATE+1
  1. ....W ! S XTBOLDNM=XTBNMSP,XTBOLGRP=XTBGRP
  1. ....I $Y>(IOSL-6),IOST?1"C-".E D PAUSE Q:$D(XTBOUT)
  1. ....I $Y>(IOSL-6) D HDR I XTBGRP'=XTBOLGRP W XTBGRPHD,!!
  1. G:$D(XTBOUT) EXIT
  1. I $Y>(IOSL-6),IOST?1"C-".E D HDR
  1. W !!?6,"Totals patches received for date range: ",XTBTPTCH,!
  1. W "Total patches installed past compliance date: ",XTBTLATE,!!
  1. S XTBDIVOK=0 I XTBTPTCH>0 S XTBDIVOK=1
  1. W ?25,"Delinquent patch % : ",$S(XTBDIVOK=1:$J((XTBTLATE/XTBTPTCH*100),6,2),1:0)_" %",!
  1. W ?25," Compliance % : ",$S(XTBDIVOK=1:$J(100-(XTBTLATE/XTBTPTCH*100),6,2),1:0)," %",!
  1. I IOST?1"C-".E K XTBANS W !!,"Press ENTER to end " R XTBANS:DTIME
  1. ;
  1. EXIT I IOST?1"C-".E W @IOF,!
  1. D ^%ZISC
  1. K %,%DT,%ZIS,XTBNMSP,XTBANS,XTBBDT,XTBBDT1,XTBCPLDT,XTBCPLDX,XTBDA,XTBEDT,XTBEDT1,XTBDAYLT,TMP
  1. K XTBGRPDA,XTBGRP,XTBINSDT,XTBLINE,XTBNMSP,XTBOLDNM,XTBNMSP,XTBPTNAM,XTBPTYPE,XTBDTA,XTBGPDA
  1. K XTBRCVDT,XTBTLATE,XTBTPTCH,D0,DIC,PG,POP,X,X1,X2,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,%T,%Y,XTBGRPHD
  1. K TMP("XTBGRP"),TMP("XTBPKG"),XTBOUT,XTBPGF,XTBOLGRP,ZTSK,XTBRELDT,XTBPRIOR,XTBCURDT,XTBDIVOK
  1. Q
  1. ;
  1. HDR S PG=PG+1 I IOST?1"P-".E,PG>1 W @IOF
  1. I IOST?1"C-".E W @IOF
  1. W XTBCURDT S X="Patch Statistical Report for "_^DD("SITE")
  1. W ?(IOM-$L(X)\2),X,?(IOM-12),"Page: ",PG,!
  1. S X="Date range: "_XTBBDT1_" to "_XTBEDT1 W ?(IOM-$L(X)\2),X,!
  1. W !,"Compliance",?14,"Patch",?27,"Release",?41,"Install",?67,"# Days",!
  1. W "Date",?14,"Number",?27,"Date",?41,"Date",?55,"Priority",?67,"Delinquent",!,XTBLINE,!
  1. Q
  1. ;
  1. PAUSE Q:IOST'?1"C-".E
  1. K XTBANS,XTBOUT W !!,"Press ENTER to continue or '^' to end " R XTBANS:DTIME
  1. I XTBANS[U!('$T) S (XTBNMSP,XTBPTNAM,XTBCPLDT,XTBDA)="ZZZZZZ",XTBOUT=1
  1. Q