| [613] | 1 | IBDFQS ;ALB/MAF -REQUEUE OF PRINT JOB FOR A SINGLE PARAMETER GROUP - FEB 9 1995
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;**12**;APR 24, 1997
|
|---|
| 3 | ; -- Queue of a single print job (parameter group)
|
|---|
| 4 | ; -- Selection of what print group/s to be printed
|
|---|
| 5 | N IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK,IBDFQT
|
|---|
| 6 | D NOW^%DTC S IBDFQT=$E($P(%,".",2),1,4)
|
|---|
| 7 | S IBDFSING=1,IBDFTSTP=1
|
|---|
| 8 | S VALMBCK=""
|
|---|
| 9 | D EN^VALM2($G(XQORNOD(0))) G REP:'$O(VALMY(0)) S IBDVALM=0
|
|---|
| 10 | D FULL^VALM1 S VALMBCK="R"
|
|---|
| 11 | F IBDVALM=0:0 S IBDVALM=$O(VALMY(IBDVALM)) Q:'IBDVALM S IBDFDA=$S($D(IBDTYPE(IBDVALM)):IBDTYPE(IBDVALM),1:"") I IBDFDA]"" D
|
|---|
| 12 | .N IBDFNUM,IBDFNAME,IBDFIFN,IBDFSEQ
|
|---|
| 13 | .S QUIT=0
|
|---|
| 14 | .S (DA,IBDFIFN)=$P(IBDFDA,"^",1),IBDFNUM=$P(IBDFDA,"^",2)
|
|---|
| 15 | .S IBDFNODE=$G(^IBD(357.09,IBDFNUM,"Q",DA,0)),IBDFNAME=$P(IBDFNODE,"^",1)
|
|---|
| 16 | .S IBDFSEQ=$P(IBDFNODE,"^",10)
|
|---|
| 17 | .S IB1FLAG=1
|
|---|
| 18 | .D UP^IBDFQB($$QUEUE^IBDFQB(IBDFIFN))
|
|---|
| 19 | .D STAT
|
|---|
| 20 | .Q
|
|---|
| 21 | REP S VALMBCK="R" Q
|
|---|
| 22 | ;
|
|---|
| 23 | STAT ; -- Find out the status of the queued job and kill a tasked job
|
|---|
| 24 | N IBDFSTAT
|
|---|
| 25 | D FULL^VALM1
|
|---|
| 26 | W !!!,"Job Queued <<< "_$P(IBDFNODE,"^",1)_" >>>",!
|
|---|
| 27 | I $D(IB1TASK) W !," TASK #: ",IB1TASK,!
|
|---|
| 28 | D PAUSE^VALM1
|
|---|
| 29 | Q
|
|---|
