iris-pex-embedded-python 3.0.1b8__tar.gz → 3.0.1b10__tar.gz

{iris_pex_embedded_python-3.0.1b8/src/iris_pex_embedded_python.egg-info → iris_pex_embedded_python-3.0.1b10}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.1
 Name: iris_pex_embedded_python
-Version: 3.0.1b8
+Version: 3.0.1b10
 Summary: Iris Interoperability based on Embedded Python
 Author-email: grongier <guillaume.rongier@intersystems.com>
 License: MIT License

{iris_pex_embedded_python-3.0.1b8 → iris_pex_embedded_python-3.0.1b10}/pyproject.toml

@@ -3,7 +3,7 @@ requires = ["setuptools", "wheel"]
 
 [project]
 name = "iris_pex_embedded_python"
-version = "3.0.1b8"
+version = "3.0.1b10"
 description = "Iris Interoperability based on Embedded Python"
 readme = "README.md"
 authors = [

{iris_pex_embedded_python-3.0.1b8 → iris_pex_embedded_python-3.0.1b10}/src/iop/_business_host.py

@@ -1,3 +1,4 @@
+import asyncio
 import datetime
 import pickle
 import codecs
@@ -133,7 +134,6 @@ class _BusinessHost(_Common):
         Raises:
         TypeError: if request is not of type Message or IRISObject.
         """
-
         return self.iris_handle.dispatchSendRequestSync(target,request,timeout,description)
 
     @input_serialzer_param(1,'request')
@@ -151,6 +151,50 @@ class _BusinessHost(_Common):
         """
         
         return self.iris_handle.dispatchSendRequestAsync(target,request,description)
+    
+    async def send_request_async_ng(self, target, request, timeout=-1, description=None):
+        """ Send the specified message to the target business process or business operation asynchronously.
+        Parameters:
+        target: a string that specifies the name of the business process or operation to receive the request. 
+            The target is the name of the component as specified in the Item Name property in the production definition, not the class name of the component.
+        request: specifies the message to send to the target. The request is an instance of IRISObject or of a subclass of Message.
+            If the target is a built-in ObjectScript component, you should use the IRISObject class. The IRISObject class enables the PEX framework to convert the message to a class supported by the target.
+        description: an optional string parameter that sets a description property in the message header. The default is None.
+        """
+        return await _send_request_async_ng(target, request, timeout ,description, self)
+
+    def send_multi_request_sync(self, target_request:list, timeout=-1, description=None)->list:
+        """ Send the specified list of tuple (target,request) to business process or business operation synchronously.
+            
+        Parameters:
+        target_request: a list of tuple (target,request) that specifies the name of the business process or operation to receive the request. 
+            The target is the name of the component as specified in the Item Name property in the production definition, not the class name of the component.
+            The request is either an instance of a class that is a subclass of Message class or of IRISObject class.
+        timeout: an optional integer that specifies the number of seconds to wait before treating the send request as a failure. The default value is -1, which means wait forever.
+        description: an optional string parameter that sets a description property in the message header. The default is None.
+        Returns:
+            the list of tuple (target,request,response,status).
+        """
+        # create a list of iris.Ens.CallStructure for each target_request
+        call_list = []
+        for target,request in target_request:
+            call = iris.cls("Ens.CallStructure")._New()
+            call.TargetDispatchName = target
+            call.Request = self._dispatch_serializer(request)
+            call_list.append(call)
+        # call the dispatchSendMultiRequestSync method
+        response_list = self.iris_handle.dispatchSendRequestSyncMultiple(call_list,timeout)
+        # create a list of tuple (target,request,response,status)
+        result = []
+        for i in range(len(target_request)):
+            result.append(
+                (target_request[i][0],
+                 target_request[i][1],
+                 self._dispatch_deserializer(response_list[i].Response),
+                 response_list[i].ResponseCode
+                ))
+        return result
+
 
     def _serialize_pickle_message(self,message):
         """ Converts a python dataclass message into an iris iop.message.
@@ -517,3 +561,60 @@ class IrisJSONDecoder(json.JSONDecoder):
             else:
                 ret[key] = value
         return ret
+
+class _send_request_async_ng(asyncio.Future):
+
+    _message_header_id = 0
+    _queue_name = ""
+    _end_time = 0
+    _response = None
+    _done = False
+
+    def __init__(self, target, request, timeout=-1, description=None, host=None):
+        super().__init__()
+        self.target = target
+        self.request = request
+        self.timeout = timeout
+        self.description = description
+        self.host = host
+        self._iris_handle = host.iris_handle
+        asyncio.create_task(self.send())
+
+    async def send(self):
+        # init parameters
+        message_header_id = iris.ref()
+        queue_name = iris.ref()
+        end_time = iris.ref()
+        request = self.host._dispatch_serializer(self.request)
+
+        # send request
+        self._iris_handle.dispatchSendRequestAsyncNG(
+            self.target, request, self.timeout, self.description,
+            message_header_id, queue_name, end_time)
+        
+        # get byref values
+        self._message_header_id = message_header_id.value
+        self._queue_name = queue_name.value
+        self._end_time = end_time.value
+
+        while not self._done:
+            await asyncio.sleep(0.1)
+            self.is_done()
+
+        self.set_result(self._response)
+
+    def is_done(self):
+        response = iris.ref()
+        status = self._iris_handle.dispatchIsRequestDone(self.timeout, self._end_time,
+                                                         self._queue_name, self._message_header_id,
+                                                         response)
+        
+        self._response = self.host._dispatch_deserializer(response.value)
+
+        if status == 2: # message found
+            self._done = True
+        elif status == 1: # message not found
+            pass
+        else:
+            self._done = True
+            self.set_exception(RuntimeError(iris.system.Status.GetOneStatusText(status)))

iris_pex_embedded_python-3.0.1b10/src/iop/cls/IOP/Common.cls

@@ -0,0 +1,338 @@
+/* Copyright (c) 2021 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+Include Ensemble
+
+Class IOP.Common [ Abstract, ClassType = "", ProcedureBlock, System = 4 ]
+{
+
+/// One or more Classpaths (separated by '|' character) needed in addition to the ones configured in the Java Gateway Service
+Property %classpaths As %String(MAXLEN = "");
+
+Property %classname As %String(MAXLEN = "");
+
+Property %module As %String(MAXLEN = "");
+
+Property %settings As %String(MAXLEN = "");
+
+/// Instance of class
+Property %class As %SYS.Python;
+
+/// Get Class
+Method GetClass() As %SYS.Python
+{
+    Return ..%class
+}
+
+/// Get Classname
+Method GetClassname() As %String
+{
+    Return ..%classname
+}
+
+/// Get Classname
+Method GetModule() As %String
+{
+    Return ..%module
+}
+
+Method OnInit() As %Status
+{
+    set tSC = $$$OK
+    try {
+        $$$ThrowOnError(..Connect())
+        do ..%class."_dispatch_on_init"($this)
+    } catch ex {
+        set tSC = ex.AsStatus()
+    }
+    quit tSC
+}
+
+ClassMethod SetPythonPath(pClasspaths)
+{
+    set sys = ##class(%SYS.Python).Import("sys")
+
+    for i=0:1:(sys.path."__len__"()-1) {
+        Try {
+            if sys.path."__getitem__"(i) = pClasspaths {
+                do sys.path."__delitem__"(i)
+            }
+        }
+        Catch ex {
+            // do nothing
+        }
+
+    }
+    do sys.path.insert(0, pClasspaths)
+}
+
+Method Connect() As %Status
+{
+    set tSC = $$$OK
+    try {
+        
+        set container = $this
+        
+        //set classpass
+        if ..%classpaths '="" {
+            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
+            set extraClasspaths = $tr(container.%classpaths,delimiter,"|")
+            for i=1:1:$l(extraClasspaths,"|") {
+                set onePath = $p(extraClasspaths,"|",i)
+                set onePath = ##class(%File).NormalizeDirectory(onePath)
+                do ..SetPythonPath(onePath)
+            }
+        }
+        if $isObject(..%class)=0 {
+            set importlib = ##class(%SYS.Python).Import("importlib")
+            set builtins = ##class(%SYS.Python).Import("builtins")
+            set module = importlib."import_module"(..%module)
+            set class = builtins.getattr(module, ..%classname)
+            set ..%class = class."__new__"(class)
+        }
+        ;
+        if ..%Extends("IOP.InboundAdapter") || ..%Extends("IOP.OutboundAdapter") {
+            do ..%class."_set_iris_handles"($this,..BusinessHost)
+        } elseif $this.%Extends("IOP.BusinessProcess") {
+            do ..%class."_set_iris_handles"($this,$$$NULLOREF)
+        } else {
+            do ..%class."_set_iris_handles"($this,..Adapter)
+        }
+        ;
+        do ..SetPropertyValues()
+        ;
+        try {
+            do ..%class."_dispatch_on_connected"($this)
+        } catch ex {
+            $$$LOGWARNING(ex.DisplayString())
+        }
+        ;
+    } catch ex {
+        set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
+        set tSC = $$$ERROR($$$EnsErrGeneral,msg)
+    }
+    quit tSC
+}
+
+Method OnTearDown() As %Status
+{
+    set tSC = $$$OK
+    do ..%class."_dispatch_on_tear_down"()
+    quit tSC
+}
+
+Method SetPropertyValues()
+{
+    set remoteSettings = $tr(..%settings,$c(13))
+    for i=1:1:$l(remoteSettings,$c(10)) {
+        set oneLine = $p(remoteSettings,$c(10),i)
+        set property = $p(oneLine,"=",1) continue:property=""
+        set value = $p(oneLine,"=",2,*)
+        try {
+            set $property(..%class,property) = value
+        } catch ex {
+            $$$LOGWARNING(ex.DisplayString())
+        }
+    }
+    quit
+}
+
+Method dispatchSendRequestSync(
+	pTarget,
+	pRequest,
+	timeout,
+	pDescription) As %String
+{
+    set tSC = ..SendRequestSync(pTarget,pRequest,.objResponse,timeout,pDescription)
+    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
+    quit $g(objResponse)
+}
+
+Method dispatchSendRequestSyncMultiple(
+	pCallStructList As %List,
+	pTimeout As %Numeric = -1) As %List
+{
+    set builtins = ##class(%SYS.Python).Import("builtins")
+    // Convert %List to multidimensional array
+    set tCallStructList=builtins.len(pCallStructList)
+    for i=0:1:builtins.len(pCallStructList)-1 {
+        set tCallStructList(i+1) = pCallStructList."__getitem__"(i)
+    }
+
+    set tSC = ..SendRequestSyncMultiple(.tCallStructList,pTimeout)
+    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
+
+    // Convert multidimensional array to Python list
+    set tResponseList = builtins.list()
+    
+    for i=1:1:tCallStructList {
+        do tResponseList.append(tCallStructList(i))
+    }
+    quit tResponseList
+}
+
+Method dispatchSendRequestAsync(
+	pTarget,
+	pRequest,
+	pDescription)
+{
+    set tSC = ..SendRequestAsync(pTarget,pRequest,pDescription)
+    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
+    quit
+}
+
+ClassMethod OnGetConnections(
+	Output pArray As %String,
+	pItem As Ens.Config.Item)
+{
+    // finds any settings of type Ens.DataType.ConfigName
+    do ..GetPropertyConnections(.pArray,pItem)
+
+    // Get settings
+    do pItem.GetModifiedSetting("%classpaths", .tClasspaths)
+    do pItem.GetModifiedSetting("%classname", .tClassname)
+    do pItem.GetModifiedSetting("%module", .tModule)
+
+    // try to instantiate class
+    if tClasspaths '="" {
+            set sys = ##class(%SYS.Python).Import("sys")
+            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
+            set extraClasspaths = $tr(tClasspaths,delimiter,"|")
+            for i=1:1:$l(extraClasspaths,"|") {
+                set onePath = $p(extraClasspaths,"|",i)
+                set onePath = ##class(%File).NormalizeDirectory(onePath)
+                if onePath?1"$$IRISHOME"1P.E set onePath = $e($system.Util.InstallDirectory(),1,*-1)_$e(onePath,11,*)
+                if onePath'="" do sys.path.append(onePath)
+            }
+    }
+    set importlib = ##class(%SYS.Python).Import("importlib")
+    set builtins = ##class(%SYS.Python).Import("builtins")
+    set module = importlib."import_module"(tModule)
+    set class = builtins.getattr(module, tClassname)
+    set tClass = class."__new__"(class)
+
+    set tPythonList = tClass."on_get_connections"()
+    set tPythonListLen = tPythonList."__len__"()
+    for i=0:1:(tPythonListLen-1) {
+        set tPythonItem = tPythonList."__getitem__"(i)
+        set pArray(tPythonItem) = ""
+		#; set ^AALog(pItem.Name,tPythonItem) = ""
+    }
+
+    quit
+}
+
+Method dispatchSendRequestAsyncNG(
+	pTarget,
+	pRequest,
+	pTimeout,
+	pDescription,
+	ByRef pMessageHeaderId,
+	ByRef pQueueName,
+	ByRef pEndTime) As %String
+{
+	set tSC=$$$OK, tResponse=$$$NULLOREF
+	try {
+
+        set tTargetDispatchName=pTarget
+        set tTargetConfigName=$get($$$DispatchNameToConfigName(pTarget))
+        if tTargetConfigName="" set tSC=$$$EnsError($$$EnsErrBusinessDispatchNameNotRegistered,tTargetDispatchName) quit
+        set tTargetBusinessClass = $$$ConfigClassName(tTargetConfigName)
+        set tINVOCATION=$classmethod(tTargetBusinessClass,"%GetParameter","INVOCATION")
+        if (tINVOCATION'="Queue")&&(tINVOCATION'="InProc") set tSC=$$$ERROR($$$EnsErrParameterInvocationInvalid,tTargetBusinessClass) quit
+
+        quit:$$$ISERR(tSC)
+        ;
+        set tStartTime=$zh
+        set:pTimeout'=-1 tEndTime=$zh+pTimeout
+
+        if tINVOCATION="InProc" {
+            set tTimeout=$s(pTimeout=-1:-1,1:tEndTime-$zh)
+            if (pTimeout'=-1)&&(tTimeout<0) quit
+            set tSC=..SendRequestSync(tTargetConfigName,pRequest,.tResponse,tTimeout,pDescription)
+            return tResponse
+        } elseif tINVOCATION="Queue" {
+            Set tSessionId=..%SessionId
+            Set tSuperSession = ..%SuperSession
+            Set tSC = ##class(Ens.MessageHeader).NewRequestMessage(.tRequestHeader,pRequest,.tSessionId,.tSuperSession) quit:$$$ISERR(tSC)
+            Set ..%SessionId=tSessionId
+            Set ..%SuperSession=tSuperSession
+            Set tRequestHeader.SourceConfigName = ..%ConfigName
+            Set tRequestHeader.TargetConfigName = tTargetConfigName
+            Set tRequestHeader.SourceBusinessType = $$$ConfigBusinessType($$$DispatchNameToConfigName(..%ConfigName))
+            Set tRequestHeader.TargetBusinessType = $$$ConfigBusinessType($$$DispatchNameToConfigName(tTargetConfigName))
+            Set tRequestHeader.TargetQueueName = $$$getConfigQueueName($$$DispatchNameToConfigName(tTargetConfigName),..%SessionId)
+            Set tRequestHeader.ReturnQueueName = $$$queueSyncCallQueueName
+            Set tRequestHeader.BusinessProcessId = ""
+            Set tRequestHeader.Priority = $$$eMessagePriorityAsync
+            Set tRequestHeader.Description = pDescription
+            Set tSC = ##class(Ens.Queue).Create($$$queueSyncCallQueueName) quit:$$$ISERR(tSC)
+            Set tSC = ##class(Ens.Queue).EnQueue(tRequestHeader) quit:$$$ISERR(tSC)
+            Set pMessageHeaderId = tRequestHeader.MessageId()
+            Set pQueueName = $$$queueSyncCallQueueName
+            Set:(pTimeout'=-1) pEndTime = tEndTime
+        }
+	}
+	catch {
+		set tSC = $$$EnsSystemError
+	}
+	quit tSC
+}
+
+Method dispatchIsRequestDone(
+	pTimeout,
+	pEndTime,
+	pQueueName,
+	pMessageHeaderId,
+	ByRef pResponse) As %Status
+{
+
+    set tSC=$$$OK
+    try {
+        set tTimeout=$s(pTimeout=-1:-1,1:pEndTime-$zh)
+
+        set tSC = ##class(Ens.Queue).DeQueue($$$queueSyncCallQueueName,.tResponseHeader,tTimeout,.tIsTimedOut,0) Quit:$$$ISERR(tSC)
+
+        quit:$IsObject(tResponseHeader)=0
+
+        set tFound = $select(tResponseHeader.CorrespondingMessageId: pMessageHeaderId=tResponseHeader.CorrespondingMessageId, 1: 0)
+        if tFound=0 {
+
+            set tSC = ##class(Ens.Queue).EnQueue(tResponseHeader)
+            Kill $$$EnsActiveMessage($$$SystemName_":"_$Job)
+        }
+        else {
+
+            if tIsTimedOut || ((pTimeout'=-1)&&(tTimeout<0)) {
+
+                do tResponseHeader.SetStatus($$$eMessageStatusDiscarded)
+                return $$$ERROR($$$EnsErrFailureTimeout, tTimeout, $$$StatusDisplayString(tSC), $$$CurrentClass)
+            }
+            if tResponseHeader.IsError {
+
+                do tResponseHeader.SetStatus($$$eMessageStatusCompleted)
+                return $$$EnsError($$$EnsErrGeneral,"Error message received: "_tResponseHeader.ErrorText)
+                
+            }
+            if tResponseHeader.MessageBodyClassName'="" {
+
+                set tResponse = $classmethod(tResponseHeader.MessageBodyClassName,"%OpenId",tResponseHeader.MessageBodyId,,.tSC)
+                if '$IsObject(tResponse) return $$$EnsError($$$EnsErrGeneral,"Could not open MessageBody "_tResponseHeader.MessageBodyId_" for MessageHeader #"_tResponseHeader.%Id()_" with body class "_tResponseHeader.MessageBodyClassName_":"_$$$StatusDisplayString(tSC)) 
+            } else {
+
+                set tResponse=$$$NULLOREF
+            }
+            set pResponse=tResponse
+            do tResponseHeader.SetStatus($$$eMessageStatusCompleted)
+            set tSC = 2
+
+        }
+    }
+	catch ex {
+		set tSC = ex.AsStatus()
+	}
+	quit tSC
+}
+
+}

{iris_pex_embedded_python-3.0.1b8 → iris_pex_embedded_python-3.0.1b10/src/iris_pex_embedded_python.egg-info}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.1
 Name: iris_pex_embedded_python
-Version: 3.0.1b8
+Version: 3.0.1b10
 Summary: Iris Interoperability based on Embedded Python
 Author-email: grongier <guillaume.rongier@intersystems.com>
 License: MIT License

iris_pex_embedded_python-3.0.1b8/src/iop/cls/IOP/Common.cls

@@ -1,203 +0,0 @@
-/* Copyright (c) 2021 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   Confidential property of InterSystems Corporation. */
-
-Include Ensemble
-
-Class IOP.Common [ Abstract, ClassType = "", ProcedureBlock, System = 4 ]
-{
-
-/// One or more Classpaths (separated by '|' character) needed in addition to the ones configured in the Java Gateway Service
-Property %classpaths As %String(MAXLEN = "");
-
-Property %classname As %String(MAXLEN = "");
-
-Property %module As %String(MAXLEN = "");
-
-Property %settings As %String(MAXLEN = "");
-
-/// Instance of class
-Property %class As %SYS.Python;
-
-/// Get Class
-Method GetClass() As %SYS.Python
-{
-    Return ..%class
-}
-
-/// Get Classname
-Method GetClassname() As %String
-{
-    Return ..%classname
-}
-
-/// Get Classname
-Method GetModule() As %String
-{
-    Return ..%module
-}
-
-Method OnInit() As %Status
-{
-    set tSC = $$$OK
-    try {
-        $$$ThrowOnError(..Connect())
-        do ..%class."_dispatch_on_init"($this)
-    } catch ex {
-        set tSC = ex.AsStatus()
-    }
-    quit tSC
-}
-
-ClassMethod SetPythonPath(pClasspaths)
-{
-    set sys = ##class(%SYS.Python).Import("sys")
-
-    for i=0:1:(sys.path."__len__"()-1) {
-        Try {
-            if sys.path."__getitem__"(i) = pClasspaths {
-                do sys.path."__delitem__"(i)
-            }
-        }
-        Catch ex {
-            // do nothing
-        }
-
-    }
-    do sys.path.insert(0, pClasspaths)
-}
-
-Method Connect() As %Status
-{
-    set tSC = $$$OK
-    try {
-        
-        set container = $this
-        
-        //set classpass
-        if ..%classpaths '="" {
-            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-            set extraClasspaths = $tr(container.%classpaths,delimiter,"|")
-            for i=1:1:$l(extraClasspaths,"|") {
-                set onePath = $p(extraClasspaths,"|",i)
-                set onePath = ##class(%File).NormalizeDirectory(onePath)
-                do ..SetPythonPath(onePath)
-            }
-        }
-        if $isObject(..%class)=0 {
-            set importlib = ##class(%SYS.Python).Import("importlib")
-            set builtins = ##class(%SYS.Python).Import("builtins")
-            set module = importlib."import_module"(..%module)
-            set class = builtins.getattr(module, ..%classname)
-            set ..%class = class."__new__"(class)
-        }
-        ;
-        if ..%Extends("IOP.InboundAdapter") || ..%Extends("IOP.OutboundAdapter") {
-            do ..%class."_set_iris_handles"($this,..BusinessHost)
-        } elseif $this.%Extends("IOP.BusinessProcess") {
-            do ..%class."_set_iris_handles"($this,$$$NULLOREF)
-        } else {
-            do ..%class."_set_iris_handles"($this,..Adapter)
-        }
-        ;
-        do ..SetPropertyValues()
-        ;
-        try {
-            do ..%class."_dispatch_on_connected"($this)
-        } catch ex {
-            $$$LOGWARNING(ex.DisplayString())
-        }
-        ;
-    } catch ex {
-        set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-        set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-    }
-    quit tSC
-}
-
-Method OnTearDown() As %Status
-{
-    set tSC = $$$OK
-    do ..%class."_dispatch_on_tear_down"()
-    quit tSC
-}
-
-Method SetPropertyValues()
-{
-    set remoteSettings = $tr(..%settings,$c(13))
-    for i=1:1:$l(remoteSettings,$c(10)) {
-        set oneLine = $p(remoteSettings,$c(10),i)
-        set property = $p(oneLine,"=",1) continue:property=""
-        set value = $p(oneLine,"=",2,*)
-        try {
-            set $property(..%class,property) = value
-        } catch ex {
-            $$$LOGWARNING(ex.DisplayString())
-        }
-    }
-    quit
-}
-
-Method dispatchSendRequestSync(
-	target,
-	request,
-	timeout,
-	description) As %String
-{
-    set tSC = ..SendRequestSync(target,request,.objResponse,timeout,description)
-    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    quit $g(objResponse)
-}
-
-Method dispatchSendRequestAsync(
-	target,
-	request,
-	description)
-{
-    set tSC = ..SendRequestAsync(target,request,description)
-    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    quit
-}
-
-ClassMethod OnGetConnections(
-	Output pArray As %String,
-	pItem As Ens.Config.Item)
-{
-    // finds any settings of type Ens.DataType.ConfigName
-    do ..GetPropertyConnections(.pArray,pItem)
-
-    // Get settings
-    do pItem.GetModifiedSetting("%classpaths", .tClasspaths)
-    do pItem.GetModifiedSetting("%classname", .tClassname)
-    do pItem.GetModifiedSetting("%module", .tModule)
-
-    // try to instantiate class
-    if tClasspaths '="" {
-            set sys = ##class(%SYS.Python).Import("sys")
-            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-            set extraClasspaths = $tr(tClasspaths,delimiter,"|")
-            for i=1:1:$l(extraClasspaths,"|") {
-                set onePath = $p(extraClasspaths,"|",i)
-                set onePath = ##class(%File).NormalizeDirectory(onePath)
-                if onePath?1"$$IRISHOME"1P.E set onePath = $e($system.Util.InstallDirectory(),1,*-1)_$e(onePath,11,*)
-                if onePath'="" do sys.path.append(onePath)
-            }
-    }
-    set importlib = ##class(%SYS.Python).Import("importlib")
-    set builtins = ##class(%SYS.Python).Import("builtins")
-    set module = importlib."import_module"(tModule)
-    set class = builtins.getattr(module, tClassname)
-    set tClass = class."__new__"(class)
-
-    set tPythonList = tClass."on_get_connections"()
-    set tPythonListLen = tPythonList."__len__"()
-    for i=0:1:(tPythonListLen-1) {
-        set tPythonItem = tPythonList."__getitem__"(i)
-        set pArray(tPythonItem) = ""
-		#; set ^AALog(pItem.Name,tPythonItem) = ""
-    }
-
-    quit
-}
-
-}