iris-pex-embedded-python 2.3.25b2__py3-none-any.whl → 3.2.1b2__py3-none-any.whl

grongier/cls/Grongier/PEX/Duplex/Service.cls

@@ -1,9 +1,4 @@
-Class Grongier.PEX.DuplexService Extends Grongier.PEX.PrivateSessionDuplex
+Class Grongier.PEX.DuplexService Extends IOP.PrivateSessionDuplex
 {
 
-ClassMethod OnBusinessType(pItem As Ens.Config.Item) As %Integer
-{
-    Quit $$$eHostTypeService
-}
-
 }

grongier/cls/Grongier/PEX/InboundAdapter.cls

@@ -2,21 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.InboundAdapter Extends (Ens.InboundAdapter, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.InboundAdapter Extends IOP.InboundAdapter [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter SETTINGS = "%classname:Python InboundAdapter,%module:Python InboundAdapter,%settings:Python InboundAdapter,%classpaths:Python InboundAdapter";
-
-Method OnTask() As %Status
-{
-	set tSC = $$$OK
-	try {
-		$$$ThrowOnError(..Connect())
-		do ..%class."on_task"()
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
 }

grongier/cls/Grongier/PEX/Message.cls

@@ -2,126 +2,11 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.Message Extends (Ens.MessageBody, %CSP.Page, %XML.Adaptor)
+Class Grongier.PEX.Message Extends IOP.Message
 {
 
-Parameter BUFFER = 64000;
-
-Property classname As %String(MAXLEN = "");
-
-Property jsonObject As %DynamicObject(XMLPROJECTION = "None");
-
-Property json As %String(MAXLEN = "");
-
-Property jstr As %Stream.GlobalCharacter [ Internal, Private ];
-
-Method %OnNew(classname) As %Status [ Private, ServerOnly = 1 ]
-{
-	set ..classname = $g(classname)
-	Quit $$$OK
-}
-
-Method jsonGet()
-{
-	QUIT ..GetObjectJson()
-}
-
-Method jsonSet(value) As %Status
-{
-	set ..jsonObject = {}.%FromJSON(value)
-	set ..jstr = ##class(%Stream.GlobalCharacter).%New()
-    do ..jstr.Write(value)
-	return $$$OK
-}
-
-Method %DispatchGetProperty(property As %String) As %ObjectHandle
-{
-	quit $property(..jsonObject,property)
-}
-
-Method %DispatchSetProperty(
-	property As %String,
-	value)
-{
-	set $property(..jsonObject,property) = value
-	quit
-}
-
-Method GetObjectJson(ByRef atEnd)
-{
-	set atEnd = 1
-	set json = ..jsonObject.%ToJSON()
-	if json = "{}" {
-		d ..jstr.Rewind()
-		set json = ..jstr.Read(..#BUFFER)
-        set atEnd = ..jstr.AtEnd
-	}
-    QUIT json
-}
-
-/// This method is called by the Management Portal to determine the content type that will be returned by the <method>%ShowContents</method> method.
-/// The return value is a string containing an HTTP content type.
-Method %GetContentType() As %String
-{
-	Quit "text/html"
-}
-
-/// This method is called by the Management Portal to display a portion of the HEAD section of a message-specific content viewer.<br>
-Method %ShowContentsHead(pZenOutput As %Boolean = 0)
-{
-    &html<<script src="https://code.jquery.com/jquery-2.1.1.min.js"></script>> 
-	&html<<script>var makeCompleteJSON=function(l,n){for(var r=["{","}","[","]",'"',"'"],t=function(l){for(var n=l.split(""),r=null,t=[],u=0;u<n.length;u++)char=n[u],"'"!=char&&'"'!=char||(null==r?r=char:r==char&&(r=null)),null==r&&":"==char&&t.push(u);return 1==t.length&&t[0]!=n.length-1},u=[],p=null,e=l.split(""),h="",o=-1,a=[],i=0;i<e.length;i++){if($.inArray(e[i],r)>-1){if(0==u.length&&("'"==e[i]||'"'==e[i]))return!1;'"'==p||"'"==p?p==e[i]&&(u.pop(),p=u[u.length-1]):"}"==e[i]&&"{"==p?(u.pop(),a.pop(),p=u[u.length-1],h="",o=-1):"]"==e[i]&&"["==p?(u.pop(),a.pop(),p=u[u.length-1]):(u.push(e[i]),"["==(p=e[i])&&a.push("array"),"{"==p&&(a.push("object"),o=i))}"object"==a[a.length-1]&&(h+=e[i])}if(!n&&o>-1){var s=function(l){for(var n=l.split(""),r=null,u=null,p=[],e=1;e<n.length;e++)"'"!=(r=n[e])&&'"'!=r||(null==u?u=r:u==r&&(u=null)),null==u&&","==r&&p.push(e);var h=[],o=1;for(e=0;e<p.length;e++)h.push($.trim(l.substring(o,p[e]))),o=p[e]+1;h.push($.trim(l.substring(o)));var a=h[h.length-1];return a.split(""),t(a)||h.pop(),"{"+h.join(",")}(h);return l=l.substring(0,o)+s,makeCompleteJSON(l,!0)}for(;u.length>0;)'"'==(p=u.pop())&&(l+='"'),"'"==p&&(l+="'"),"{"==p&&(l+="}"),"["==p&&(l+="]");return l};</script>>  
-	&html<<script>!function(e){"use strict";var n=function(n){var a=e("<span />",{"class":"collapser",on:{click:function(){var n=e(this);n.toggleClass("collapsed");var a=n.parent().children(".block"),p=a.children("ul");n.hasClass("collapsed")?(p.hide(),a.children(".dots, .comments").show()):(p.show(),a.children(".dots, .comments").hide())}}});return n&&a.addClass("collapsed"),a},a=function(a,p){var t=e.extend({},{nl2br:!0},p),r=function(e){return e.toString()?e.toString().replace(/&/g,"&amp;").replace(/"/g,"&quot;").replace(/</g,"&lt;").replace(/>/g,"&gt;"):""},s=function(n,a){return e("<span />",{"class":a,html:r(n)})},l=function(a,p){switch(e.type(a)){case"object":p||(p=0);var c=e("<span />",{"class":"block"}),d=Object.keys(a).length;if(!d)return c.append(s("{","b")).append(" ").append(s("}","b"));c.append(s("{","b"));var i=e("<ul />",{"class":"obj collapsible level"+p});return e.each(a,function(a,t){d--;var r=e("<li />").append(s('"',"q")).append(a).append(s('"',"q")).append(": ").append(l(t,p+1));-1===["object","array"].indexOf(e.type(t))||e.isEmptyObject(t)||r.prepend(n()),d>0&&r.append(","),i.append(r)}),c.append(i),c.append(s("...","dots")),c.append(s("}","b")),c.append(1===Object.keys(a).length?s("// 1 item","comments"):s("// "+Object.keys(a).length+" items","comments")),c;case"array":p||(p=0);var d=a.length,c=e("<span />",{"class":"block"});if(!d)return c.append(s("[","b")).append(" ").append(s("]","b"));c.append(s("[","b"));var i=e("<ul />",{"class":"obj collapsible level"+p});return e.each(a,function(a,t){d--;var r=e("<li />").append(l(t,p+1));-1===["object","array"].indexOf(e.type(t))||e.isEmptyObject(t)||r.prepend(n()),d>0&&r.append(","),i.append(r)}),c.append(i),c.append(s("...","dots")),c.append(s("]","b")),c.append(1===a.length?s("// 1 item","comments"):s("// "+a.length+" items","comments")),c;case"string":if(a=r(a),/^(http|https|file):\/\/[^\s]+$/i.test(a))return e("<span />").append(s('"',"q")).append(e("<a />",{href:a,text:a})).append(s('"',"q"));if(t.nl2br){var o=/\n/g;o.test(a)&&(a=(a+"").replace(o,"<br />"))}var u=e("<span />",{"class":"str"}).html(a);return e("<span />").append(s('"',"q")).append(u).append(s('"',"q"));case"number":return s(a.toString(),"num");case"undefined":return s("undefined","undef");case"null":return s("null","null");case"boolean":return s(a?"true":"false","bool")}};return l(a)};return e.fn.jsonView=function(n,p){var t=e(this);if(p=e.extend({},{nl2br:!0},p),"string"==typeof n)try{n=JSON.parse(n)}catch(r){}return t.append(e("<div />",{"class":"json-view"}).append(a(n,p))),t}}(jQuery);</script>>
-	&html<<style type="text/css">
-	.json-view{position:relative}
-	.json-view .collapser{width:20px;height:18px;display:block;position:absolute;left:-1.7em;top:-.2em;z-index:5;background-image:url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAgAAAAICAYAAADED76LAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAD1JREFUeNpiYGBgOADE%2F3Hgw0DM4IRHgSsDFOzFInmMAQnY49ONzZRjDFiADT7dMLALiE8y4AGW6LoBAgwAuIkf%2F%2FB7O9sAAAAASUVORK5CYII%3D);background-repeat:no-repeat;background-position:center center;opacity:.5;cursor:pointer}
-	.json-view .collapsed{-ms-transform:rotate(-90deg);-moz-transform:rotate(-90deg);-khtml-transform:rotate(-90deg);-webkit-transform:rotate(-90deg);-o-transform:rotate(-90deg);transform:rotate(-90deg)}
-	.json-view .bl{display:block;padding-left:20px;margin-left:-20px;position:relative}
-	.json-view {font-family:Verdana,sans-serif; font-size: 0.8em;}
-	.json-view ul{list-style-type:none;padding-left:2em;border-left:1px dotted;margin:.3em}
-	.json-view ul li{position:relative;color:#012E55}
-	.json-view .comments,.json-view .dots{display:none;-moz-user-select:none;-ms-user-select:none;-khtml-user-select:none;-webkit-user-select:none;-o-user-select:none;user-select:none}
-	.json-view .comments{padding-left:.8em;font-style:italic;color:#888}
-	.json-view .bool,.json-view .null,.json-view .num,.json-view .undef{font-weight:700;color:#1A01CC}
-	.json-view .str{color:#F79243}
-	</style>>
-}
-
-/// This method is called by the Management Portal to display a message-specific content viewer.<br>
-/// This method displays its content by writing out to the current device.
-/// The content should match the type returned by the <method>%GetContentType</method> method.<br>
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	set jsonObject = ..QuoteJS(..GetObjectJson(.atEnd))
-	set buffer = ..#BUFFER
-    if 'atEnd {
-        &html<<div>Warning JSON projection is not comptete, it's truncated, #(buffer)# charaters display</div>>
-    }
-	// https://github.com/bazh/jquery.json-view
-	&html<<div id="element">#(..classname)#</div>>
-	&html<<script>$(function() {$('#element').jsonView(makeCompleteJSON(#(jsonObject)#,false));});</script>>
-}
-
 Storage Default
 {
-<Data name="MessageDefaultData">
-<Subscript>"Message"</Subscript>
-<Value name="1">
-<Value>classname</Value>
-</Value>
-<Value name="2">
-<Value>json</Value>
-</Value>
-<Value name="3">
-<Value>jstr</Value>
-</Value>
-</Data>
-<Data name="jsonObject">
-<Attribute>jsonObject</Attribute>
-<Structure>node</Structure>
-<Subscript>"Grongier.PEX.Message.jsonObject"</Subscript>
-</Data>
-<DefaultData>MessageDefaultData</DefaultData>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/OutboundAdapter.cls

@@ -2,35 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.OutboundAdapter Extends (Ens.OutboundAdapter, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.OutboundAdapter Extends IOP.OutboundAdapter [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Property KeepaliveInterval As %Numeric [ InitialExpression = 0 ];
-
-Parameter SETTINGS = "KeepaliveInterval:Python CallInterval,%classname:Python OutboundAdapter,%module:Python OutboundAdapter,%settings:Python OutboundAdapter,%classpaths:Python OutboundAdapter";
-
-Method %DispatchMethod(
-	method As %String,
-	args...) As %ObjectHandle
-{
-	if $quit {
-		quit $method($this.%class,method,args...)
-	} else {
-		do $method($this.%class,method,args...)
-		quit
-	}
-}
-
-Method OnKeepalive(pStatus As %Status = {$$$OK}) As %Status
-{
-	set tSC = $$$OK
-	try {
-		$$$ThrowOnError(##super(pStatus))
-		do ..%class."on_keepalive"()
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
 }

grongier/cls/Grongier/PEX/PickleMessage.cls

@@ -2,56 +2,11 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.PickleMessage Extends (Ens.MessageBody, %CSP.Page)
+Class Grongier.PEX.PickleMessage Extends IOP.PickleMessage
 {
 
-Property classname As %String(MAXLEN = "");
-
-Property jstr As %Stream.GlobalCharacter [ Internal, Private ];
-
-Method %OnNew(classname) As %Status [ Private, ServerOnly = 1 ]
-{
-	set ..classname = $g(classname)
-	Quit $$$OK
-}
-
-/// This method is called by the Management Portal to determine the content type that will be returned by the <method>%ShowContents</method> method.
-/// The return value is a string containing an HTTP content type.
-Method %GetContentType() As %String
-{
-	Quit "text/html"
-}
-
-/// This method is called by the Management Portal to display a message-specific content viewer.<br>
-/// This method displays its content by writing out to the current device.
-/// The content should match the type returned by the <method>%GetContentType</method> method.<br>
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	// https://github.com/bazh/jquery.json-view
-	&html<<div id="element">#(..classname)#</div>>
-	&html<<div>Pickle Pyhton Message can't be displayed</div>>
-}
-
 Storage Default
 {
-<Data name="MessageDefaultData">
-<Subscript>"Message"</Subscript>
-<Value name="1">
-<Value>classname</Value>
-</Value>
-<Value name="2">
-<Value>json</Value>
-</Value>
-<Value name="3">
-<Value>jstr</Value>
-</Value>
-</Data>
-<Data name="jsonObject">
-<Attribute>jsonObject</Attribute>
-<Structure>node</Structure>
-<Subscript>"Grongier.PEX.Message.jsonObject"</Subscript>
-</Data>
-<DefaultData>MessageDefaultData</DefaultData>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Duplex.cls

@@ -2,259 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.PrivateSessionDuplex Extends (Grongier.PEX.Common, Ens.BusinessDuplex) [ Abstract, System = 4 ]
+Class Grongier.PEX.PrivateSessionDuplex Extends IOP.PrivateSessionDuplex [ Abstract, System = 4 ]
 {
 
-/// Domain for error messages   
-Parameter DOMAIN = "PrivateSession";
-
-Parameter SETTINGS = "DuplexTargetConfigName,%classname:Python BusinessProcess,%module:Python BusinessProcess,%settings:Python BusinessProcess,%classpaths:Python BusinessProcess";
-
-/// Configuration item(s) to which to send messages
-Property DuplexTargetConfigName As %String(MAXLEN = 1000);
-
-/// This holds the deferred response token
-Property DeferredResponseToken As %String;
-
-/// This holds data that is not yet ready for processing
-Property ReceivedDataQueue As list Of %Library.Persistent;
-
-/// This method is called by the TCP Adapter when a message is received.
-Method OnProcessInput(
-	pInput As %Persistent,
-	Output pOutput As %Persistent,
-	ByRef pHint As %String) As %Status
-{
-	set tSC = $$$OK
-	try {
-		try {
-			set ..%class."_wait_for_next_call_interval" = ..%WaitForNextCallInterval
-		}catch {}
-            set pOutput = ..%class."_dispatch_on_process_input"(pInput)
-		try {
-			set ..%WaitForNextCallInterval = ..%class."_wait_for_next_call_interval"
-		}catch {}
-} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method dispatchSendDocumentToProcess(pDocument) As %String
-{
-	set tSC = ..SendDocumentToProcess(pDocument)
-	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-	quit
-}
-
-Method SendDocumentToProcess(pDocument As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If '..%InPrivateSession Set tSC=..StartPrivateSession() Quit:$$$ISERR(tSC)
-        If ..DeferredResponseToken'="" {
-            Set tSC=..SendDeferredResponse(..DeferredResponseToken,pDocument) If $$$ISERR(tSC) Quit
-            Set ..DeferredResponseToken=""
-        } else {
-            Do ..ReceivedDataQueue.Insert(pDocument)
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method StartPrivateSession() As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If ..%InPrivateSession Quit
-        Set tSC = ..RegisterPrivateSession() Quit:$$$ISERR(tSC)
-        Set tSC=..SendRequestAsync(..DuplexTargetConfigName,##class(Grongier.PEX.PrivateSession.Message.Start).%New()) Quit:$$$ISERR(tSC)
-        Set tSC = ..OnPrivateSessionStarted(1) Quit:$$$ISERR(tSC)
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method StopPrivateSession(pAttachedMessage As %Persistent = "") As %Status
-{
-    #dim tSC As %Status = $$$OK
-    #dim tMessageHeaderId As %String
-    #dim tRequestHeader As Ens.MessageHeader
-    try {
-	    If ..%InPrivateSession {
-	        #; Target might receive stop message before this job unregisters and therefore need to remove queue pointer 
-	        If ..DeferredResponseToken'="" {
-		        try {
-					Set tMessageHeaderId=$p(..DeferredResponseToken,"|",1)
-					Set tRequestHeader=##Class(Ens.MessageHeader).%OpenId(tMessageHeaderId,,.tSC) Quit:$$$ISERR(tSC)
-					If $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)'=tRequestHeader.ReturnQueueName {
-			        	Kill $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)
-					}
-					Set tRequestHeader=""
-		        } catch {}
-	        }
-			Set tSC=..SendDocumentToProcess(##class(Grongier.PEX.PrivateSession.Message.Stop).%New(pAttachedMessage)) Quit:$$$ISERR(tSC)
-            Set tSC=..UnRegisterPrivateSession()
-            set ..DeferredResponseToken=""
-            
-            #; Ensure all messages are delivered including STOP message (JN1098)
-            #; Do ..ReceivedDataQueue.Clear()
-            Set tSC=..OnPrivateSessionStopped(1) Quit:$$$ISERR(tSC)
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method RegisterPrivateSession() As %Status
-{
-	If ..%InPrivateSession Quit $$$OK
-	If ..%SessionId="" Set tSC=..ForceSessionId() Quit:$$$ISERR(tSC) tSC
-	Set ..%PrivateSessionId=..%SessionId
-	Set tSC = ##class(Ens.Queue).Create(..QueueName()) Quit:$$$ISERR(tSC) tSC
-
-    try {
-        Set tSC=..Adapter.OpenEventDevice() 
-    }
-    catch {
-
-    }
-	
-	Set $$$ConfigSessionQueueName(..%ConfigName,..%SessionId)=..QueueName()
-	$$$sysTRACE("Registered Private Session '"_..%PrivateSessionId_"'")
-	Quit $$$OK
-}
-
-Method UnRegisterPrivateSession() As %Status
-{
-	If '..%InPrivateSession Quit $$$OK
-	Kill $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)
-    try {
-        Set tSC=..Adapter.CloseEventDevice()
-    }
-    catch {
-
-    }
-	 
-	Set tSC=##class(Ens.Queue).Delete(..QueueName(),"*") Quit:$$$ISERR(tSC) tSC
-	$$$sysTRACE("Unregistered Private Session '"_..%PrivateSessionId_"'")
-	Set ..%PrivateSessionId=""
-	Set ..%SessionId=""
-	Kill $$$JobSessionId
-	Quit $$$OK
-}
-
-XData MessageMap
-{
-<MapItems>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Start"><Method>OnMsgPrivateSessionStart</Method></MapItem>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Stop"><Method>OnMsgPrivateSessionStop</Method></MapItem>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Poll"><Method>OnMsgPrivateSessionPoll</Method></MapItem>
-</MapItems>
-}
-
-Method OnMsgPrivateSessionStart(
-	pRequest As Grongier.PEX.PrivateSession.Message.Start,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        Set tSC=..RegisterPrivateSession() Quit:$$$ISERR(tSC)
-        Set tSC=..OnPrivateSessionStarted(0) Quit:$$$ISERR(tSC)
-        Kill %objlasterror Set pResponse=##class(Grongier.PEX.PrivateSession.Message.Ack).%New()
-        If '$IsObject(pResponse) Set tSC=$$$ERROR($$$FailedToNewClass,"Grongier.PEX.PrivateSession.Message.Ack") Quit
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method OnMsgPrivateSessionStop(
-	pRequest As Grongier.PEX.PrivateSession.Message.Stop,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        Set tSC=..UnRegisterPrivateSession() Quit:$$$ISERR(tSC)
-        set ..DeferredResponseToken=""
-        do ..ReceivedDataQueue.Clear()
-        Set tSC=..OnPrivateSessionStopped(0,pRequest.AttachedMessage) Quit:$$$ISERR(tSC)
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method OnMsgPrivateSessionPoll(
-	pPollIn As Grongier.PEX.PrivateSession.Message.Poll,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    #dim tToken As %String
-    try  {
-        If ..ReceivedDataQueue.Count() {
-            Set pResponse=..ReceivedDataQueue.GetAt(1)
-            do ..ReceivedDataQueue.RemoveAt(1)
-        } Else {
-            Set tSC=..DeferResponse(.tToken) If $$$ISERR(tSC) Quit
-            Set ..DeferredResponseToken=tToken
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-/// Return an array of connections for drawing lines on the config diagram
-ClassMethod OnGetConnections(
-	Output pArray As %String,
-	pItem As Ens.Config.Item)
-{
-    Do ##super(.pArray,pItem)
-    If pItem.GetModifiedSetting("DuplexTargetConfigName",.tValue) {
-        Set tOne=$ZStrip(tValue,"<>W")
-        Set:""'=tOne pArray(tOne)=""
-    }
-}
-
-Method OnPrivateSessionStarted(pSelfGenerated As %Boolean) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_private_session_started"($this,pSelfGenerated)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method OnPrivateSessionStopped(
-	pSelfGenerated As %Boolean,
-	pAttachedMessage As %Persistent = "") As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_private_session_stopped"($this,pSelfGenerated,pAttachedMessage)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method OnTearDown() As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If ..%InPrivateSession Set tSC=..StopPrivateSession() Quit:$$$ISERR(tSC)
-        do ..%class."_dispatch_on_tear_down"()
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
 }

grongier/cls/Grongier/PEX/PrivateSession/Message/Ack.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Ack Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Ack Extends IOP.PrivateSession.Message.Ack [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(session-ack)")
-}
-
 Storage Default
 {
-<Data name="AckDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateSe9756.AckD</DataLocation>
-<DefaultData>AckDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateSe9756.AckD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateSe9756.AckI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateSe9756.AckS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Poll.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Poll Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Poll Extends IOP.PrivateSession.Message.Poll [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(poll-data)")
-}
-
 Storage Default
 {
-<Data name="PollDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateS9756.PollD</DataLocation>
-<DefaultData>PollDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateS9756.PollD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateS9756.PollI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateS9756.PollS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Start.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Start Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Start Extends IOP.PrivateSession.Message.Start [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(session-start)")
-}
-
 Storage Default
 {
-<Data name="StartDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.Private9756.StartD</DataLocation>
-<DefaultData>StartDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.Private9756.StartD</IdLocation>
-<IndexLocation>^Grongier.PEX.Private9756.StartI</IndexLocation>
-<StreamLocation>^Grongier.PEX.Private9756.StartS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Stop.cls

@@ -3,45 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Stop Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Stop Extends IOP.PrivateSession.Message.Stop [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// The message body
-Property AttachedMessage As %Persistent(CLASSNAME = 1);
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	If $IsObject(..AttachedMessage) {
-		Write $$$FormatText($$$Text("(session-stop) with AttachedMessage [%1] "),$classname(..AttachedMessage))
-	} Else {
-		Write $$$Text("(session-stop)")
-	}
-}
-
-Method %OnNew(initvalue As %RegisteredObject) As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
-{
-	Set ..AttachedMessage=initvalue
-	Quit $$$OK
-}
-
 Storage Default
 {
-<Data name="StopDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>AttachedMessage</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateS9756.StopD</DataLocation>
-<DefaultData>StopDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateS9756.StopD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateS9756.StopI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateS9756.StopS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }