Index: Sys/FOP/QueueItem.cls.xml =================================================================== diff -u -r66131 -r66528 --- Sys/FOP/QueueItem.cls.xml (.../QueueItem.cls.xml) (revision 66131) +++ Sys/FOP/QueueItem.cls.xml (.../QueueItem.cls.xml) (revision 66528) @@ -69,7 +69,7 @@ SELECT ID, SingleLockKey INTO :NextID, :SingleLockKey FROM Sys_FOP.TaskQueue WHERE Status='W' ORDER BY Priority DESC, ID) &SQL(OPEN crsNextQItem) For &SQL(FETCH crsNextQItem) Quit:(SQLCODE) Do:($L(SingleLockKey)) Quit:($L(NextID)) - . d WL^vhDBG("NextID?") + . ;d WL^vhDBG("NextID?") . Set:(..IsSingleLocked(SingleLockKey)) NextID="" ; // To debug : uncomment this block instead of previous block. @@ -80,7 +80,7 @@ ;. Set:(..IsSingleLocked(SingleLockKey)) NextID="" ;. d WL^vhDBG(" --> "_$S(NextID="":" Is Locked", 1:NextID_" retained")) - d WL^vhDBG("NextID:"_$G(NextID)_" SQLCODE="_SQLCODE) ; _" Status:"_$G(Status)) + ;d WL^vhDBG("NextID:"_$G(NextID)_" SQLCODE="_SQLCODE) ; _" Status:"_$G(Status)) &SQL(CLOSE crsNextQItem) Quit $G(NextID) ]]> Index: Sys/FOP/emDocMulti.cls.xml =================================================================== diff -u -r29059 -r66528 --- Sys/FOP/emDocMulti.cls.xml (.../emDocMulti.cls.xml) (revision 29059) +++ Sys/FOP/emDocMulti.cls.xml (.../emDocMulti.cls.xml) (revision 66528) @@ -355,7 +355,7 @@ Task:Sys.FOP.Task,SeqItem:Sys.FOP.emSeqItem,blnUpdatePageCount:%Boolean %Status @@ -386,7 +386,7 @@ Task:Sys.FOP.Task %Status @@ -407,7 +407,7 @@ Quit:('$IsObject(pxVoorblad)) $$$ERROR($$$GeneralError,"No pxVoorblad supplied in DocMulti (proxy voorblad)") Do pxVoorblad.FillPageCountFromPPOD(..PPODGroupName) ;d WL^vhDBG("SetVoorbladPageCount propt PageCnt="_pxVoorblad.PageCnt) if pxVoorblad.PageCnt="" s pxVoorblad.PageCnt="999" - d WL^vhDBG("SetVoorbladPageCount propt PageCnt="_pxVoorblad.PageCnt) + ;d WL^vhDBG("SetVoorbladPageCount propt PageCnt="_pxVoorblad.PageCnt) Set:(pxVoorblad.PageCnt>0) Doc.XSLParameters=Doc.XSLParameters_$LB("pPageCount="_pxVoorblad.PageCnt)