IBDFQS.m

IBDFQS ;ALB/MAF -REQUEUE OF PRINT JOB FOR A SINGLE PARAMETER GROUP - FEB 9 1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ; -- Queue of a single print job (parameter group)

 ; -- Selection of what print group/s to be prited

 N IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK

 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

IBDFQS    ;ALB/MAF -REQUEUE OF PRINT JOB FOR A SINGLE PARAMETER GROUP - FEB 9 1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ; -- Queue of a single print job (parameter group)

 +3       ; -- Selection of what print group/s to be prited

 +4        NEW IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK

 +5        SET IBDFSING=1

           SET IBDFTSTP=1

 +6        SET VALMBCK=""

 +7        DO EN^VALM2($GET(XQORNOD(0)))

           IF '$ORDER(VALMY(0))

               GOTO REP

           SET IBDVALM=0

 +8        DO FULL^VALM1

           SET VALMBCK="R"

 +9        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

 +10                   NEW IBDFNUM,IBDFNAME,IBDFIFN,IBDFSEQ

 +11                   SET QUIT=0

 +12                   SET (DA,IBDFIFN)=$PIECE(IBDFDA,"^",1)

                       SET IBDFNUM=$PIECE(IBDFDA,"^",2)

 +13                   SET IBDFNODE=$GET(^IBD(357.09,IBDFNUM,"Q",DA,0))

                       SET IBDFNAME=$PIECE(IBDFNODE,"^",1)

 +14                   SET IBDFSEQ=$PIECE(IBDFNODE,"^",10)

 +15                   SET IB1FLAG=1

 +16                   DO UP^IBDFQB($$QUEUE^IBDFQB(IBDFIFN))

 +17                   DO STAT

 +18                   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