Changeset 636 for FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIL.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIL.m (modified) (2 diffs)

FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIL.m

@@ -1 @@
-XPDIL ;SFISC/RSD - load Distribution Global ;05/17/2006
+XPDIL ;SFISC/RSD - load Distribution Global ;10/10/06  17:00
  ;;8.0;KERNEL;**15,44,58,68,108,422**;Jul 10, 1995;Build 2
  ;This routine has the changes made for patch 345 but was released as 422 to fix a read HFS problem
@@ -41 +41 @@
  I '$G(XPDAUTO) D HOME^%ZIS
  I $G(XPDAUTO) S IO(0)=XPDDEV
+ S:$D(AAQFILE) DIR("B")=AAQFILE ;L33 used only by XPDZPAT
+ S:$D(AAQFILE) DIR("B")=AAQFILE ;L33 used only by XPDZPAT - line added for VOE
  S DIR(0)="F^3:75",DIR("A")="Enter a Host File",DIR("?")="Enter a filename and/or path to input Distribution."
  ;p345-rename AND* to XPD*