Implement caching for business services in the Director class

Author: grongierisc

src/iop/_director.py

@@ -15,6 +15,13 @@ class _Director():
     Instead these business services are created by a custom application by calling the Director.CreateBusinessService() method.
     """
 
+    _bs = {}
+
+    def get_business_service(self,target):
+        if target not in self._bs or self._bs[target] is None:
+            self._bs[target] = _Director.create_python_business_service(target)
+        return self._bs[target]
+
     @staticmethod
     def CreateBusinessService(target):
         """ DEPRECATED : use create_business_service

src/iop/cls/IOP/Director.cls

@@ -10,9 +10,9 @@ Class IOP.Director [ Inheritance = right, ProcedureBlock, System = 4 ]
 ClassMethod dispatchCreateBusinessService(pTargetDispatchName As %String) As Ens.BusinessService
 {
 	// Hack to prevent job to be registered in the production
-	do ##class(Ens.Job).UnRegister(pTargetDispatchName,$JOB)
 	set tSC = ##class(Ens.Director).CreateBusinessService(pTargetDispatchName,.service)
 	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
+	do ##class(Ens.Job).UnRegister(pTargetDispatchName,$JOB)
 	quit service
 }