- 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 Jan 18, 2025@03:54:24 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