| [641] | 1 | XBTRK ;IHS/ASDST/GTH - GET SITE PACKAGE INFO ; [ 10/29/2002 7:42 AM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 5 | ;
|
|---|
| 6 | ; Thanks to Don Jackson and Carlos Cordova for the original routine.
|
|---|
| 7 | ; June 6, 2001.
|
|---|
| 8 | ;
|
|---|
| 9 | ; This routine counts the number of patched routines in each namespace
|
|---|
| 10 | ; in each entry in the PACKAGE file, and, if run in foreground, only
|
|---|
| 11 | ; delivers a mail message with the results to all local programmers.
|
|---|
| 12 | ;
|
|---|
| 13 | ; If Q'd thru option "XB PACKAGE TRACKING", in addition to the mail
|
|---|
| 14 | ; message getting generated, a file is sent to the system id(s)
|
|---|
| 15 | ; specified on the 2nd page of the TaskMan option scheduling function,
|
|---|
| 16 | ; with the id(s) set into variable XBSYSID(n), where "n" is a numeric
|
|---|
| 17 | ; subscript.
|
|---|
| 18 | ;
|
|---|
| 19 | ; The option, "XB PACKAGE TRACKING", is recommended to run every 30
|
|---|
| 20 | ; days, and is atch'd to the Site Manager's menu, "XUSITEMGR", as a
|
|---|
| 21 | ; protection against deletion by the Kernel's dangling-option cleanup
|
|---|
| 22 | ; process.
|
|---|
| 23 | ;
|
|---|
| 24 | ; The format of the data global transmitted to the System(s) is:
|
|---|
| 25 | ; CV^namespace^name^version^#routines^patch
|
|---|
| 26 | ; where "CV" means "Current Version" on that machine. If the
|
|---|
| 27 | ; first piece is "PV", the info on that node means the the version
|
|---|
| 28 | ; of the routines was a "Previous Version". This assumes there are
|
|---|
| 29 | ; no 'future' versions.
|
|---|
| 30 | ;
|
|---|
| 31 | START ;EP - From TaskMan.
|
|---|
| 32 | ;
|
|---|
| 33 | 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 !
|
|---|
| 34 | . D ^XBKVAR
|
|---|
| 35 | . S ^UTILITY($J,"XBTRK")=""
|
|---|
| 36 | . D EN^XBRPTL
|
|---|
| 37 | .Q
|
|---|
| 38 | ;
|
|---|
| 39 | KILL ^XBPKDATA ; KILL of unsubscripted work global.
|
|---|
| 40 | KILL ^TMP("XBTRK",$J),^TMP("XBTRK XMD",$J)
|
|---|
| 41 | ;
|
|---|
| 42 | ; Process every entry in the PACKAGE file that has a PREFIX value.
|
|---|
| 43 | ;
|
|---|
| 44 | NEW XBI,XBN
|
|---|
| 45 | S XBI=0
|
|---|
| 46 | F S XBI=$O(^DIC(9.4,XBI)) Q:'XBI D
|
|---|
| 47 | . S XBN=$P($G(^DIC(9.4,XBI,0)),U,2)
|
|---|
