Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDFQS

IBDFQS.m

Go to the documentation of this file.
  1. 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
  1. ; -- Queue of a single print job (parameter group)
  1. ; -- Selection of what print group/s to be printed
  1. N IBDVALM,IBDAT,VALMY,IBDFSING,IBDFTSTP,IB1FLAG,IB1TASK,IBDFQT
  1. D NOW^%DTC S IBDFQT=$E($P(%,".",2),1,4)
  1. S IBDFSING=1,IBDFTSTP=1
  1. S VALMBCK=""
  1. D EN^VALM2($G(XQORNOD(0))) G REP:'$O(VALMY(0)) S IBDVALM=0
  1. D FULL^VALM1 S VALMBCK="R"
  1. F IBDVALM=0:0 S IBDVALM=$O(VALMY(IBDVALM)) Q:'IBDVALM S IBDFDA=$S($D(IBDTYPE(IBDVALM)):IBDTYPE(IBDVALM),1:"") I IBDFDA]"" D
  1. .N IBDFNUM,IBDFNAME,IBDFIFN,IBDFSEQ
  1. .S QUIT=0
  1. .S (DA,IBDFIFN)=$P(IBDFDA,"^",1),IBDFNUM=$P(IBDFDA,"^",2)
  1. .S IBDFNODE=$G(^IBD(357.09,IBDFNUM,"Q",DA,0)),IBDFNAME=$P(IBDFNODE,"^",1)
  1. .S IBDFSEQ=$P(IBDFNODE,"^",10)
  1. .S IB1FLAG=1
  1. .D UP^IBDFQB($$QUEUE^IBDFQB(IBDFIFN))
  1. .D STAT
  1. .Q
  1. REP S VALMBCK="R" Q
  1. ;
  1. STAT ; -- Find out the status of the queued job and kill a tasked job
  1. N IBDFSTAT
  1. D FULL^VALM1
  1. W !!!,"Job Queued <<< "_$P(IBDFNODE,"^",1)_" >>>",!
  1. I $D(IB1TASK) W !," TASK #: ",IB1TASK,!
  1. D PAUSE^VALM1
  1. Q