IBDFQS.m

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 ---IBDFQS   1146     printed  Sep 02, 2024@19:38:47                                                                                                                                                                                                      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