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/XUSCLEAN.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/XUSCLEAN.m (modified) (3 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/XUSCLEAN.m

@@ -1 @@
-XUSCLEAN ;SF/STAFF - CLEANUP BEFORE EXIT ;10/26/06  08:12
- ;;8.0;KERNEL;**13,59,165,353,434**;Jul 10, 1995;Build 6
+XUSCLEAN ;SF/STAFF - CLEANUP BEFORE EXIT ;05/26/2005  14:28
+ ;;8.0;KERNEL;**13,59,165,353**;Jul 10, 1995;Build 1
 H ;;Exit point for all R/S applications
  LOCK  ;Unlock any locks
@@ -19 +19 @@
 H2 ;No talking after this point
  D C,XUTL
- ;un-comment the following line if you want FM space recall cleared
+ ;un-comment the following line if you want FM space recall cleared 
  ;after each session.
  ;K ^DISV($G(DUZ,0))
@@ -78 +78 @@
 KILL1 ;To clean up ALL but kernel variables.
  I $$BROKER^XWBLIB S %2=$P($T(VARLST^XWBLIB),";;",2) I %2]"" N @%2 ;Protect Broker variables.
- N XGWIN,XGDI,XGEVENT ;P434 remove KWAPI
+ N KWAPI,XGWIN,XGDI,XGEVENT
  N XQAEXIT,XQAUSER,XQX1,XQAKILL,XQAID
- ;p434 add DILOCKTM, remove XRTL, %ZH0
- K (DUZ,DTIME,DILOCKTM,DT,DISYS,IO,IOBS,IOF,IOM,ION,IOSL,IOST,IOT,IOS,IOXY,U,XQVOL,XQY,XQY0,XQDIC,XQPSM,XQPT,XQAUDIT,XQXFLG,ZTSTOP,ZTQUEUED,ZTREQ)
+ K (DUZ,DTIME,DT,DISYS,IO,IOBS,IOF,IOM,ION,IOSL,IOST,IOT,IOS,IOXY,U,XRTL,%ZH0,XQVOL,XQY,XQY0,XQDIC,XQPSM,XQPT,XQAUDIT,XQXFLG,ZTSTOP,ZTQUEUED,ZTREQ)
  K IO("C"),IO("Q")
  Q
  ;
 XMR ;Entry point from XUS to DO xmr and cleanup after.
- N XQXFLG ;p434
  D NEXT^XUS1 S XQXFLG="",XQXFLG("HALT")=1 G H2