Index: BL/Sys/FOP/DocBase.cls.xml
===================================================================
diff -u -r2337 -r2726
--- BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 2337)
+++ BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 2726)
@@ -6,7 +6,6 @@
 <IncludeCode>BL.Sys.FOP.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ProxyServer">
 <Default>192.168.1.97</Default>
@@ -59,7 +58,6 @@
 <Implementation><![CDATA[
 #define blnAsync      ..CallTypeAsync($G(CallType))
 #define AsyncNotify   "Notify"
-	Quit:('..#UseDocBase2) ##class(BL.Sys.FOP.DocBaseOLD).ProcessNameCVT(.Process,.CallType)
 	Quit:($G(Process)="") ""
 	Quit:(Process'?1"vh_"1.E) Process
 	Quit:(Process[$$$AsyncNotify) $S($$$blnAsync:Process, 1:$$$Replace(Process,$$$AsyncNotify,""))
@@ -282,8 +280,6 @@
 <FormalSpec><![CDATA[SeqItem:Sys.FOP.emSeqItemDocBaseWS,&fopReq:WSRequestInfo2]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Quit:('..#UseDocBase2) ##class(BL.Sys.FOP.DocBaseOLD).RequestFromTaskSeq(SeqItem,.fopReq)
-	; ELSE  DocBase2 :
 	Quit:(SeqItem.Type'?1(1"DocBase")) $$$ERROR($$$GeneralError,"RequestFromTaskSeq: SeqItem not correct type: "_SeqItem.Type_" in stead of ""DocBase"".")
 	Set fopReq=##class(WSRequestInfo2).%New()
 	Set fopReq.ProcessorBeanID=..ProcessNameCVT(SeqItem.ADBProcess,$S(..#PseudoAsync&&..CallTypeAsync(SeqItem.CallType):$$$rmSync, 1:SeqItem.CallType))   ; arTask("ADB_PROCESS")
@@ -747,10 +743,6 @@
 <FormalSpec><![CDATA[Type:%String,fopReq:BL.Sys.FOP.WSRequestInfo2,&JobID:%String,&fopRes:WSResponse,TimeOut:%Integer,blnPeek:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Quit:('..#UseDocBase2) ##class(BL.Sys.FOP.DocBaseOLD).CallWSProcess(.Type,.fopReq,.JobID,.fopRes,.TimeOut,.blnPeek)
-	
-	;New blnAsync,ProcSvc,sc
-	;New CustomMsg,msg
 	set blnAsync=($$$UCase(Type)'?1(1"S",1"SYNC"))
 	Set JobID=""
 	Set ProcSvc=$System.OBJ.New($S(blnAsync:"WS.FOP.DocBase2Async", 1:"WS.FOP.DocBase2"))