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/XUTMTD.m@ 1427

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XUTMTD ;SEA/RDS - TaskMan: ToolKit, Delete ;12/30/94 11:17
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;Call with XUTMT as task number
4 L +^%ZTSK(XUTMT)
5 N ZTSK S ZTSK=XUTMT D UNSCH^%ZTLOAD6
6 D DELETE
7 L -^%ZTSK(XUTMT)
8 Q
9 ;
10DELETE ;Delete Task
11 K:'$D(^%ZTSCH("TASK",XUTMT)) ^%ZTSK(XUTMT)
12 Q
13 ;
14UNSCHED ;Replased by call to UNSCH^%ZTLOAD6
15 N ZT,ZT1,ZT2,ZT3
16 S ZT1=0 F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 I $D(^(ZT1,XUTMT))#2 D
17 . L +^%ZTSCH(ZT1,XUTMT) K ^(XUTMT) L -^%ZTSCH(ZT1,XUTMT)
18 L +^%ZTSCH("IO")
19 S ZT1="" F S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1="" F S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)) Q:ZT2="" D DQIO:$D(^(ZT2,XUTMT))#2
20 L -^%ZTSCH("IO"),+^%ZTSCH("JOB")
21 S ZT1="" F S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" I $D(^(ZT1,XUTMT))#2 K ^(XUTMT)
22 L -^%ZTSCH("JOB"),+^%ZTSCH("LINK")
23 S ZT1="" F S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1="" F S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:ZT2="" I $D(^(ZT2,XUTMT))#2 K ^(XUTMT)
24 L -^%ZTSCH("LINK"),+^%ZTSCH("C")
25 S ZT1="" F S ZT1=$O(^%ZTSCH("C",ZT1)),ZT2="" Q:ZT1="" F S ZT2=$O(^%ZTSCH("C",ZT1,ZT2)) Q:ZT2="" I $D(^(ZT2,XUTMT))#2 K ^(XUTMT)
26 L -^%ZTSCH("C")
27 Q
28 ;
29DQIO ;Remove A Device Waiting List Entry
30 N %ZTIO,ZTDTH,ZTSK S %ZTIO=ZT1,ZTDTH=ZT2,ZTSK=XUTMT
31 D DQ^%ZTM4 Q
32 ;
Note: See TracBrowser for help on using the repository browser.