16 lines
632 B
Mathematica
16 lines
632 B
Mathematica
RGUTTSK ;CAIRO/DKM - Encapsulates TaskMan API ;04-Sep-1998 11:26;DKM
|
|
;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|
;=================================================================
|
|
QUEUE(ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,ZTUCI,ZTPRI) ;
|
|
N %RGZ,%RGZ1,%RGZ2,ZTKIL,ZTSK,ZTCPU
|
|
S:'$G(ZTDTH) ZTDTH=$H
|
|
S:ZTDTH'?1.N1","1.N ZTDTH=$$FMTH^XLFDT(ZTDTH)
|
|
Q:ZTDTH<0 0
|
|
S:$G(ZTUCI)'="" ZTUCI=$TR(ZTUCI,":",","),ZTCPU=$P(ZTUCI,",",2),ZTUCI=$P(ZTUCI,",")
|
|
S ZTSAVE=$G(ZTSAVE),ZTIO=$G(ZTIO),U="^"
|
|
F %RGZ=1:1:$L(ZTSAVE,U) D
|
|
.S %RGZ1=$P(ZTSAVE,U,%RGZ),%RGZ2=$P(%RGZ1,"=",2,999),%RGZ1=$P(%RGZ1,"=")
|
|
.S:%RGZ1'="" ZTSAVE(%RGZ1)=%RGZ2
|
|
D ^%ZTLOAD
|
|
Q +$G(ZTSK)
|