IBDFQS ;ALB/MAF -REQUEUE OF PRINT JOB FOR A SINGLE PARAMETER GROUP - FEB 9 1995
;;3.0;AUTOMATED INFO COLLECTION SYS;**12**;APR 24, 1997
; -- Queue of a single print job (parameter group)
; -- Selection of what print group/s to be printed
N IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK,IBDFQT
D NOW^%DTC S IBDFQT=$E($P(%,".",2),1,4)
S IBDFSING=1,IBDFTSTP=1
S VALMBCK=""
D EN^VALM2($G(XQORNOD(0))) G REP:'$O(VALMY(0)) S IBDVALM=0
D FULL^VALM1 S VALMBCK="R"
F IBDVALM=0:0 S IBDVALM=$O(VALMY(IBDVALM)) Q:'IBDVALM S IBDFDA=$S($D(IBDTYPE(IBDVALM)):IBDTYPE(IBDVALM),1:"") I IBDFDA]"" D
.N IBDFNUM,IBDFNAME,IBDFIFN,IBDFSEQ
.S QUIT=0
.S (DA,IBDFIFN)=$P(IBDFDA,"^",1),IBDFNUM=$P(IBDFDA,"^",2)
.S IBDFNODE=$G(^IBD(357.09,IBDFNUM,"Q",DA,0)),IBDFNAME=$P(IBDFNODE,"^",1)
.S IBDFSEQ=$P(IBDFNODE,"^",10)
.S IB1FLAG=1
.D UP^IBDFQB($$QUEUE^IBDFQB(IBDFIFN))
.D STAT
.Q
REP S VALMBCK="R" Q
;
STAT ; -- Find out the status of the queued job and kill a tasked job
N IBDFSTAT
D FULL^VALM1
W !!!,"Job Queued <<< "_$P(IBDFNODE,"^",1)_" >>>",!
I $D(IB1TASK) W !," TASK #: ",IB1TASK,!
D PAUSE^VALM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFQS 1146 printed Dec 13, 2024@02:53:13 Page 2
IBDFQS ;ALB/MAF -REQUEUE OF PRINT JOB FOR A SINGLE PARAMETER GROUP - FEB 9 1995
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**12**;APR 24, 1997
+2 ; -- Queue of a single print job (parameter group)
+3 ; -- Selection of what print group/s to be printed
+4 NEW IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK,IBDFQT
+5 DO NOW^%DTC
SET IBDFQT=$EXTRACT($PIECE(%,".",2),1,4)
+6 SET IBDFSING=1
SET IBDFTSTP=1
+7 SET VALMBCK=""
+8 DO EN^VALM2($GET(XQORNOD(0)))
if '$ORDER(VALMY(0))
GOTO REP
SET IBDVALM=0
+9 DO FULL^VALM1
SET VALMBCK="R"
+10 FOR IBDVALM=0:0
SET IBDVALM=$ORDER(VALMY(IBDVALM))
if 'IBDVALM
QUIT
SET IBDFDA=$SELECT($DATA(IBDTYPE(IBDVALM)):IBDTYPE(IBDVALM),1:"")
IF IBDFDA]""
Begin DoDot:1
+11 NEW IBDFNUM,IBDFNAME,IBDFIFN,IBDFSEQ
+12 SET QUIT=0
+13 SET (DA,IBDFIFN)=$PIECE(IBDFDA,"^",1)
SET IBDFNUM=$PIECE(IBDFDA,"^",2)
+14 SET IBDFNODE=$GET(^IBD(357.09,IBDFNUM,"Q",DA,0))
SET IBDFNAME=$PIECE(IBDFNODE,"^",1)
+15 SET IBDFSEQ=$PIECE(IBDFNODE,"^",10)
+16 SET IB1FLAG=1
+17 DO UP^IBDFQB($$QUEUE^IBDFQB(IBDFIFN))
+18 DO STAT
+19 QUIT
End DoDot:1
REP SET VALMBCK="R"
QUIT
+1 ;
STAT ; -- Find out the status of the queued job and kill a tasked job
+1 NEW IBDFSTAT
+2 DO FULL^VALM1
+3 WRITE !!!,"Job Queued <<< "_$PIECE(IBDFNODE,"^",1)_" >>>",!
+4 IF $DATA(IB1TASK)
WRITE !," TASK #: ",IB1TASK,!
+5 DO PAUSE^VALM1
+6 QUIT
