| 1 | XUTMTD ;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 | ;
|
|---|
| 10 | DELETE ;Delete Task
|
|---|
| 11 | K:'$D(^%ZTSCH("TASK",XUTMT)) ^%ZTSK(XUTMT)
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | UNSCHED ;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 | ;
|
|---|
| 29 | DQIO ;Remove A Device Waiting List Entry
|
|---|
| 30 | N %ZTIO,ZTDTH,ZTSK S %ZTIO=ZT1,ZTDTH=ZT2,ZTSK=XUTMT
|
|---|
| 31 | D DQ^%ZTM4 Q
|
|---|
| 32 | ;
|
|---|
