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)