source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIR.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1XPDIR ;SFISC/RSD - Install Restart ; 09/29/2005
2 ;;8.0;KERNEL;**30,58,393**;Jul 10, 1995;Build 12
3EN ;restart install
4 N DIR,DIRUT,POP,XPD,XPDA,XPDD,XPDIJ,XPDDIQ,XPDNM,XPDNOQUE,XPDPKG,XPDST,XPDSET,XPDT,XPDQUIT,XPDQUES,Y,ZTSK,%
5 S %="I $P(^(0),U,9)#3,$D(^XPD(9.7,""ASP"",Y,1,Y)),$D(^XTMP(""XPDI"",Y))",XPDST=$$LOOK^XPDI1(%)
6 Q:'XPDST!$D(XPDQUIT)
7 S ZTSK=$P(^XPD(9.7,XPDST,0),U,6) D:ZTSK
8 .;check if task exist or is queued
9 .D ISQED^%ZTLOAD
10 .;task is queued to run
11 .Q:ZTSK(0)
12 .;task doesn't exist, k ZTSK so it can be re-scheduled
13 .I ZTSK(0)="" K ZTSK Q
14 .D STAT^%ZTLOAD
15 .;task is not define
16 .I 'ZTSK(1) K ZTSK Q
17 .;task is queued to run
18 .Q:ZTSK(1)=1
19 .;task is running, set quit flag
20 .I ZTSK(1)=2 S XPDQUIT=1 W !,"Install is currently running, cannot re-install!" Q
21 .;task finished or was interrupted, kill it so it can be rescheduled
22 .D KILL^%ZTLOAD K ZTSK Q
23 ;abort if there is nothing to install or they '^'
24 G:'$O(XPDT(0))!$D(XPDQUIT) ABORT
25 ;clean out old task, so they can reinstall
26 I '$D(ZTSK) D
27 .N XPD
28 .S XPD(9.7,XPDST_",",5)="" D FILE^DIE("","XPD")
29 I $G(ZTSK) W !!,"This install is already queued as task #",ZTSK,!,"Please use the Taskman Menu if you want to reschedule." G ABORT
30 ;kill XPDT array so that while in XPDI and ABORT is called, nothing is deleted
31 S XPDIJ=0,XPDA=XPDST,XPDNM=$P(^XPD(9.7,XPDA,0),U) K XPDT
32 ;restore environment check variables
33 I $D(^XTMP("XPDI",XPDA,"ENVVAR")) D
34 .S:$D(^XTMP("XPDI",XPDA,"ENVVAR","XPDNOQUE")) XPDNOQUE=^("XPDNOQUE")
35 .I $D(^XTMP("XPDI",XPDA,"ENVVAR","XPDDIQ")) M XPDDIQ=^("XPDDIQ")
36 G DEV^XPDI
37 ;
38ABORT W !!,"**RESTART ABORTED**",!
39 L -XPD(9.7,XPDST)
40 Q
Note: See TracBrowser for help on using the repository browser.