48 lines
1.8 KiB
Mathematica
48 lines
1.8 KiB
Mathematica
XBTRK ;IHS/ASDST/GTH - GET SITE PACKAGE INFO ; [ 10/29/2002 7:42 AM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
;
|
|
; IHS/SET/GTH XB*3*9 10/29/2002
|
|
;
|
|
; Thanks to Don Jackson and Carlos Cordova for the original routine.
|
|
; June 6, 2001.
|
|
;
|
|
; This routine counts the number of patched routines in each namespace
|
|
; in each entry in the PACKAGE file, and, if run in foreground, only
|
|
; delivers a mail message with the results to all local programmers.
|
|
;
|
|
; If Q'd thru option "XB PACKAGE TRACKING", in addition to the mail
|
|
; message getting generated, a file is sent to the system id(s)
|
|
; specified on the 2nd page of the TaskMan option scheduling function,
|
|
; with the id(s) set into variable XBSYSID(n), where "n" is a numeric
|
|
; subscript.
|
|
;
|
|
; The option, "XB PACKAGE TRACKING", is recommended to run every 30
|
|
; days, and is atch'd to the Site Manager's menu, "XUSITEMGR", as a
|
|
; protection against deletion by the Kernel's dangling-option cleanup
|
|
; process.
|
|
;
|
|
; The format of the data global transmitted to the System(s) is:
|
|
; CV^namespace^name^version^#routines^patch
|
|
; where "CV" means "Current Version" on that machine. If the
|
|
; first piece is "PV", the info on that node means the the version
|
|
; of the routines was a "Previous Version". This assumes there are
|
|
; no 'future' versions.
|
|
;
|
|
START ;EP - From TaskMan.
|
|
;
|
|
I '$D(ZTQUEUED) D Q:'$$DIR^XBDIR("Y","Proceed","N",$S($G(DTIME):DTIME,1:300),"If you answer 'Y', we'll go ahead and run this") W !
|
|
. D ^XBKVAR
|
|
. S ^UTILITY($J,"XBTRK")=""
|
|
. D EN^XBRPTL
|
|
.Q
|
|
;
|
|
KILL ^XBPKDATA ; KILL of unsubscripted work global.
|
|
KILL ^TMP("XBTRK",$J),^TMP("XBTRK XMD",$J)
|
|
;
|
|
; Process every entry in the PACKAGE file that has a PREFIX value.
|
|
;
|
|
NEW XBI,XBN
|
|
S XBI=0
|
|
F S XBI=$O(^DIC(9.4,XBI)) Q:'XBI D
|
|
. S XBN=$P($G(^DIC(9.4,XBI,0)),U,2)
|