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/XUTMTU.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.1 KB
Line 
1XUTMTU ;SEA/RDS - TaskMan: ToolKit, Unschedule ;11/18/94 11:21
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4UNSCHED ;Unschedule Task
5 N ZT,ZT1,ZT2,ZT3
6 L +^%ZTSK(XUTMT)
7 S ZT1=0 F ZT=0:0 S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 I $D(^(ZT1,XUTMT))#2 L +^%ZTSCH(ZT1,XUTMT) S ZT2=^(XUTMT) K ^(XUTMT) L -^%ZTSCH(ZT1,XUTMT) I ZT2]"" S:$D(^%ZTSK(XUTMT)) $P(^(XUTMT,.2),U)=ZT2
8 S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)) Q:ZT2="" D DQIO:$D(^(ZT2,XUTMT))#2
9 S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" I $D(^(ZT1,XUTMT))#2 L +^%ZTSCH("JOB",ZT1,XUTMT) K ^(XUTMT) L -^%ZTSCH("JOB",ZT1,XUTMT)
10 S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:ZT2="" I $D(^(ZT2,XUTMT))#2 L +^%ZTSCH("LINK",ZT1,ZT2,XUTMT) K ^(XUTMT) L -^%ZTSCH("LINK",ZT1,ZT2,XUTMT)
11 I $D(^%ZTSK(XUTMT)) S $P(^%ZTSK(XUTMT,.1),U,1,3)="F^"_$H_U_ZTNAME
12 L -^%ZTSK(XUTMT) S ZTSK=XUTMT K XUTMT
13 Q
14 ;
15DQIO ;Remove A Device Waiting List Entry
16 N %ZTIO,ZTDTH,ZTSK S %ZTIO=ZT1,ZTDTH=ZT2,ZTSK=XUTMT L +^%ZTSCH("IO") D DQ^%ZTM4 L -^%ZTSCH("IO") Q
17 ;
Note: See TracBrowser for help on using the repository browser.