| [613] | 1 | RGUTTSK ;CAIRO/DKM - Encapsulates TaskMan API ;04-Sep-1998 11:26;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | ;=================================================================
|
|---|
| 4 | QUEUE(ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,ZTUCI,ZTPRI) ;
|
|---|
| 5 | N %RGZ,%RGZ1,%RGZ2,ZTKIL,ZTSK,ZTCPU
|
|---|
| 6 | S:'$G(ZTDTH) ZTDTH=$H
|
|---|
| 7 | S:ZTDTH'?1.N1","1.N ZTDTH=$$FMTH^XLFDT(ZTDTH)
|
|---|
| 8 | Q:ZTDTH<0 0
|
|---|
| 9 | S:$G(ZTUCI)'="" ZTUCI=$TR(ZTUCI,":",","),ZTCPU=$P(ZTUCI,",",2),ZTUCI=$P(ZTUCI,",")
|
|---|
| 10 | S ZTSAVE=$G(ZTSAVE),ZTIO=$G(ZTIO),U="^"
|
|---|
| 11 | F %RGZ=1:1:$L(ZTSAVE,U) D
|
|---|
| 12 | .S %RGZ1=$P(ZTSAVE,U,%RGZ),%RGZ2=$P(%RGZ1,"=",2,999),%RGZ1=$P(%RGZ1,"=")
|
|---|
| 13 | .S:%RGZ1'="" ZTSAVE(%RGZ1)=%RGZ2
|
|---|
| 14 | D ^%ZTLOAD
|
|---|
| 15 | Q +$G(ZTSK)
|
|---|
