Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRDSHOW.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRDSHOW.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRDSHOW.m	(revision 636)
@@ -1,4 +1,4 @@
-XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;01/30/2008
- ;;7.3;TOOLKIT;**23,49,78,112**;Apr 25, 1995;Build 1
+XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;02/11/2004  08:56
+ ;;7.3;TOOLKIT;**23,49,78**;Apr 25, 1995
  ;;
 SHOW(FILE,REC1,REC2,FLDS,REVIEW) ;
@@ -49,7 +49,5 @@
  . . . S XN=$P(DDVAL,U)
  . . . S XDRA=0
- . . . I X1'=""&(X2'=""),X1'=X2 D
- . . . . I FILE=2,((FLD=991.01)!(FLD=991.02)) Q  ;jds restrict ICN overwrites for MPI 
- . . . . S X0=$S($D(FLDS(FLD)):"||||",1:"****"),NDIFFS=NDIFFS+1,DIFFS(NDIFFS)=FLD,XDRA=1 I REVIEW S NLIN=NLIN-1
+ . . . I X1'=""&(X2'=""),X1'=X2 S X0=$S($D(FLDS(FLD)):"||||",1:"****"),NDIFFS=NDIFFS+1,DIFFS(NDIFFS)=FLD,XDRA=1 I REVIEW S NLIN=NLIN-1
  . . . I 'REVIEW!XDRA D
  . . . . W ! S NLIN=NLIN-1
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMKPCF.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMKPCF.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMKPCF.m	(revision 636)
@@ -1,4 +1,4 @@
-XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR;
- ;;7.3;TOOLKIT;**98,106**; Apr 25, 1995;Build 1
+XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR; [8/9/05 9:23am]
+ ;;7.3;TOOLKIT;**98**; Apr 25, 1995
  ;
  ; computed fields
@@ -8,8 +8,7 @@
  ;   patches may be involved.  If a test patch, null the pointer, like nothing is there.
  S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
- S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
+ S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X=""
  S X=$P($G(^XPD(9.7,+X,1)),U,3)
- I X="" Q
- S Y=X D DD^%DT S X=$P(Y,"@") K Y
+ S X=$E(X,1,7)
  Q
  ;
@@ -70,10 +69,2 @@
  K XTBX1,XTBZ,NIGHT,XTBCMPDT,ZTSK,ZTIO,ZTRTN,ZTSAVE
  Q
- ;
-INSDATE ;Print out Installed Date
- N X,X1
- S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
- S X1=$P($G(^XPD(9.9,D0,0)),U,11) I X1>0 W $$FMTE^XLFDT(X1,"2Z") Q
- S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
- S X=$P($G(^XPD(9.7,+X,1)),U,3) W $$FMTE^XLFDT($P(X,"."),"2Z")
- Q
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMSTA2.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMSTA2.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMSTA2.m	(revision 636)
@@ -1,4 +1,4 @@
-XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE;
- ;;7.3;TOOLKIT;**98,100,106**; Apr 25, 1995;Build 1
+XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE; [1/4/06 9:33am]
+ ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4
  ;
  S IOP="HOME" D ^%ZIS K IOP
@@ -39,5 +39,5 @@
  ..I XTBINSDT]"" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
  ..I XTBINSDT="" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
- ..S Y=XTBINSDT X ^DD("DD") I Y'="" S XTBINSDT=$P(Y,",",1)_","_$E($P(Y,",",2),2,5) ;set date format "MON DD,YYYY"
+ ..S Y=XTBINSDT X ^DD("DD") S XTBINSDT=Y
  ..S Y=XTBCPLDT X ^DD("DD") S XTBCPLDX=Y
  ..S Y=XTBRELDT X ^DD("DD") S XTBRELDT=Y
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT01.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT01.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT01.m	(revision 636)
@@ -1,3 +1,3 @@
-XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (FILE 200, MARGIN=80)
+XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (FILE 200, MARGIN=80)
  G BEGIN
 N W !
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT011.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT011.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT011.m	(revision 636)
@@ -1,3 +1,3 @@
-XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (continued)
+XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (continued)
  G BEGIN
 N W !
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT03.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT03.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT03.m	(revision 636)
@@ -1,3 +1,3 @@
-XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; 10/15/04
+XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; 01/30/05
  ; 
  N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT031.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT031.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT031.m	(revision 636)
@@ -1,3 +1,3 @@
-XUCT031 ; COMPILED XREF FOR FILE #3.081 ; 10/15/04
+XUCT031 ; COMPILED XREF FOR FILE #3.081 ; 01/30/05
  ; 
  S DIKZK=2
Index: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT032.m
===================================================================
--- FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT032.m	(revision 631)
+++ FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT032.m	(revision 636)
@@ -1,3 +1,3 @@
-XUCT032 ; COMPILED XREF FOR FILE #3.081 ; 10/15/04
+XUCT032 ; COMPILED XREF FOR FILE #3.081 ; 01/30/05
  ; 
  S DIKZK=1
