| 1 | DGUTQ ;ALB/AAS - QUEUEING UTILITY (%ZTLOAD) ; 16-JUL-2003
|
|---|
| 2 | ;;5.3;Registration;**539**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q1 S ZTDTH=$H
|
|---|
| 5 | QUE K IO("Q") I '$D(ZTIO),$D(ION),ION="" S ZTIO=""
|
|---|
| 6 | I '$D(ZTDESC) S ZTDESC=$S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"MAS UNKNOWN OPTION")
|
|---|
| 7 | I '$D(ZTRTN) S DGPGM=$S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"") G:DGPGM="" CLOSE S ZTRTN="DQ^DGUTQ"
|
|---|
| 8 | S DGZTSAVE=$S($D(DGVAR):DGVAR,$D(VAR):VAR,1:"*") D SAVE
|
|---|
| 9 | I $D(DGPGM),'$D(ZTSAVE("DGPGM")) S ZTSAVE("DGPGM")=""
|
|---|
| 10 | LOAD D ^%ZTLOAD W:'$D(DGUTQND) !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") S:'$D(ZTSK) X="^" S:$D(ZTSK) X="" G CLOSE:$D(ZTSK),END
|
|---|
| 11 | Q
|
|---|
| 12 | ZIS W ! K IOP,IO("Q") S POP=0,%ZIS="QMP" S:$D(DGFZIS) IOP="Q"
|
|---|
| 13 | D ^%ZIS K %ZIS,IOP Q:POP I $D(IO("Q")) D QUE S POP=1 G CLOSE
|
|---|
| 14 | U IO Q
|
|---|
| 15 | SAVE D:DGZTSAVE["#" ARRAY F DGI=1:1 S DGVAR=$P(DGZTSAVE,"^",DGI) Q:DGVAR']"" I '$D(ZTSAVE(DGVAR)) S ZTSAVE(DGVAR)="" S:$E(DGVAR,$L(DGVAR))="(" ZTSAVE($E(DGVAR,1,($L(DGVAR)-1)))=""
|
|---|
| 16 | Q
|
|---|
| 17 | ARRAY F DGJ=1:1:$L(DGZTSAVE) I $E(DGZTSAVE,DGJ)="#" S DGZTSAVE=$E(DGZTSAVE,1,(DGJ-1))_"("_$E(DGZTSAVE,DGJ+1,$L(DGZTSAVE))
|
|---|
| 18 | Q
|
|---|
| 19 | CLOSE Q:$D(ZTQUEUED) N POP D ^%ZISC
|
|---|
| 20 | END K ZTSK,ZTDESC,ZTRTN,ZTREQ,ZTSAVE,ZTIO,ZTDTH,ZTUCI,DGUTQND,DGVAR,VAR,DGPGM,PGM,DGZTSAVE,DGI,IO("Q"),IO("C")
|
|---|
| 21 | Q
|
|---|
| 22 | DQ D @($S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"CLOSE"))
|
|---|
| 23 | D KILL^%ZTLOAD,CLOSE
|
|---|
| 24 | Q
|
|---|
| 25 | DTQ I $D(ZTSK("D")) S DGX=ZTSK("D"),%H=$P(DGX,",") D YMD^%DTC S DGX=$P(DGX,",",2),Z=X_((DGX#3600\60)/100+(DGX\3600)/100) ;Find time queued
|
|---|
| 26 | Q
|
|---|
| 27 | FZIS ;Settings for force queuing
|
|---|
| 28 | N DGFZIS
|
|---|
| 29 | S DGFZIS=1 G ZIS
|
|---|
