Index: BL/Sys/FOP/Verwerker/tmpDev.mac.rou
===================================================================
diff -u -r73993 -r74008
--- BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 73993)
+++ BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 74008)
@@ -394,70 +394,9 @@
 	/***  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=  ***/
   
 FaxRenderToPPODMergeAndSend
-	Set sc=$$FaxRenderToPPODMergeAndSendSub()
+	Set sc=$$$ERROR($$$GeneralError,"The method 'FaxRenderToPPODMergeAndSendSub' is no longer supported since October 2024, because FOP server has been phased out.")
 	Quit
-FaxRenderToPPODMergeAndSendSub()
-	New Task,TSeq,CntDocMain,sc,DocM,pxDocMulti,DocKey,Doc, PPODGroupName,PPODFilePath,FaxFilePath,DestDir,DestName,FExt,CmdLine,DocBaseDirectoryUtils
-	Set Task=FopTask   ; FopProcess.TaskID
-	Set sc=$$$OK
-	Set pxDocMulti=Task.DocMulti
-	Set:('$IsObject(pxDocMulti)) sc=$$$ERROR($$$GeneralError,"FaxTask does not contain a DocMulti-object. Task "_$S($L(Task.%Id()):Task.%Id(), 1:Task))
-	Quit:($$$ISERR(sc)) sc
-	// Prepare Variables
-	Set PPODGroupName=pxDocMulti.PPODGroupName
-	Set PPODFilePath=##class(BL.Sys.FOP.CommonTasks).BuildPPODFilePath(PPODGroupName,pxDocMulti.PPODOutputType)
-	Set blnSkipVoorblad=(pxDocMulti.MetVoorblad=0)
-	Set DocBaseDirectoryUtils = ##class(BL.Sys.FOP.DocBaseDirectoryUtils).%New()
-	
-	Set TSeq=##class(BL.Sys.FOP.Data).NewTaskSequence(Task)
-	Set arTaskSeq(0,"OBJTSeq")=TSeq   ; TSeq is passed by this array to the calling method BuildTaskSequence() from class BL.Sys.FOP.Verwerker
-	// Build SeqItem to render Docs
-	Set DocKey=""
-	For  Set Doc=pxDocMulti.Docs.GetNext(.DocKey) Quit:(DocKey="")  Do
-	. Do frsSetPPODFields(Doc,PPODGroupName,DocKey)
-	. Do AddSeqItemRenderAndSaveToPPOD(TSeq,,Doc,0)
  
-	// SeqItem to render voorblad. Calc PageCount in advance in case of PROXY-voorblad
-	Set Doc=pxDocMulti.RenderVoorblad
-	If ('blnSkipVoorblad)&&($IsObject(Doc))&&($L(Doc.DataFetchType)) Do
-	. Do frsSetPPODFields(Doc,PPODGroupName,$$$Max(pxDocMulti.Docs.Next("")-1,0))
-	. // Build SeqItem to render voorblad
-	. If (Doc.DataFetchType="PROXY") Do
-	. . // AddRenderParams Voorblad via PreProcess: Execute Just-In-Time
-	. . Set CmdLine="Set sc=##class(Sys.FOP.emDocMulti).AddVoorbladRenderParamsVT(TSeq.Task,SeqItem,1)"
-	. . Do AddSeqItemRenderAndSaveToPPOD(TSeq,,Doc,0, CmdLine,0)
-	. Else  Do
-	. . Do AddSeqItemRenderAndSaveToPPOD(TSeq,,Doc,0, "", 1)
- 
-	// Build Cach�-SeqItem to clean up files before creating the .pdf file
-	Do AddSeqItemDeleteFiles(TSeq,DocBaseDirectoryUtils.ConvertFopLocalDirToNetworkPath(PPODFilePath),0)
-	// Build SeqItem MergePPOD : create temp .pdf file 
-	Do AddSeqItemMergePPODGroup(TSeq,PPODGroupName)
-	
-#If ($$$UCase($$$Server)="CACHE02")
-	  ;q sc
-#EndIf
- 
-	// Build Cach�-SeqItem to rename/move the temp-file to FaxDir
-	Set FaxFilePath=pxDocMulti.GenerateFaxFilePath(PPODFilePath)
-	Do AddSeqItemMoveFile(TSeq,DocBaseDirectoryUtils.ConvertFopLocalDirToNetworkPath(PPODFilePath),(FaxFilePath),1)
-	
-	  Do:(Task.ActionFax.DoNotSend)||('Task.ActionFax.FaxNr) WLFMT^vhDBG("SeqItem ""FaxSendPDF"" will be skipped! FaxNr="_Task.ActionFax.FaxNr_"  Fax.DoNotSend="_Task.ActionFax.DoNotSend, "A")
-	Quit:(Task.ActionFax.DoNotSend)||('Task.ActionFax.FaxNr) sc
-	// Build Cach�-SeqItem to Send Fax via WS
-	Do AddSeqItemFaxSendPDF(TSeq,Task,1,FaxFilePath)
-	
-  	Quit sc
-frsSetPPODFields(Doc,PPODGroupName,SortKey)
-	New tmpLB
-	Set tmpLB=Doc.PPODFields
-	Set:($$$Trim($LG(tmpLB,10))="") $LI(tmpLB,10)=PPODGroupName
-	Set:($$$Trim($LG(tmpLB,9))="") $LI(tmpLB,9)=PPODGroupName
-	Set:($$$Trim($LG(tmpLB,8))="") $LI(tmpLB,8)=SortKey
-	  ;d WL^vhDBG("tmpLB="_$$$LCVT(tmpLB)_"  PPOD="_PPODGroupName)
-	Set Doc.PPODFields=tmpLB
-	Quit
- 
 	/***  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=  ***/
  
 	/// Fax a PDF file from disk: