iris-pex-embedded-python 3.5.5b4__py3-none-any.whl

iop/cls/IOP/OutboundAdapter.cls

@@ -0,0 +1,36 @@
+/* Copyright (c) 2021 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+Class IOP.OutboundAdapter Extends (Ens.OutboundAdapter, IOP.Common) [ 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 = ..DisplayTraceback(ex)
+	}
+	quit tSC
+}
+
+}

iop/cls/IOP/PickleMessage.cls

@@ -0,0 +1,58 @@
+/* Copyright (c) 2021 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+Class IOP.PickleMessage Extends (Ens.MessageBody, %CSP.Page)
+{
+
+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>"IOP.Message.jsonObject"</Subscript>
+</Data>
+<DefaultData>MessageDefaultData</DefaultData>
+<Type>%Storage.Persistent</Type>
+}
+
+}

iop/cls/IOP/PrivateSession/Duplex.cls

@@ -0,0 +1,260 @@
+/* Copyright (c) 2022 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+Class IOP.PrivateSessionDuplex Extends (IOP.Common, Ens.BusinessDuplex) [ 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(IOP.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(IOP.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="IOP.PrivateSession.Message.Start"><Method>OnMsgPrivateSessionStart</Method></MapItem>
+<MapItem MessageType="IOP.PrivateSession.Message.Stop"><Method>OnMsgPrivateSessionStop</Method></MapItem>
+<MapItem MessageType="IOP.PrivateSession.Message.Poll"><Method>OnMsgPrivateSessionPoll</Method></MapItem>
+</MapItems>
+}
+
+Method OnMsgPrivateSessionStart(
+	pRequest As IOP.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(IOP.PrivateSession.Message.Ack).%New()
+        If '$IsObject(pResponse) Set tSC=$$$ERROR($$$FailedToNewClass,"IOP.PrivateSession.Message.Ack") Quit
+    } catch {
+        Set tSC=$$$EnsSystemError
+    }
+    Quit tSC
+}
+
+Method OnMsgPrivateSessionStop(
+	pRequest As IOP.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 IOP.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
+}
+
+}

iop/cls/IOP/PrivateSession/Message/Ack.cls

@@ -0,0 +1,32 @@
+/* Copyright (c) 2022 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+/// This class is a DICOM framework class
+Class IOP.PrivateSession.Message.Ack Extends (%Persistent, Ens.Util.MessageBodyMethods) [ 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>^IOP.PrivateSe9756.AckD</DataLocation>
+<DefaultData>AckDefaultData</DefaultData>
+<IdLocation>^IOP.PrivateSe9756.AckD</IdLocation>
+<IndexLocation>^IOP.PrivateSe9756.AckI</IndexLocation>
+<StreamLocation>^IOP.PrivateSe9756.AckS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}

iop/cls/IOP/PrivateSession/Message/Poll.cls

@@ -0,0 +1,32 @@
+/* Copyright (c) 2022 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+/// This class is a DICOM framework class
+Class IOP.PrivateSession.Message.Poll Extends (%Persistent, Ens.Util.MessageBodyMethods) [ 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>^IOP.PrivateS9756.PollD</DataLocation>
+<DefaultData>PollDefaultData</DefaultData>
+<IdLocation>^IOP.PrivateS9756.PollD</IdLocation>
+<IndexLocation>^IOP.PrivateS9756.PollI</IndexLocation>
+<StreamLocation>^IOP.PrivateS9756.PollS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}

iop/cls/IOP/PrivateSession/Message/Start.cls

@@ -0,0 +1,31 @@
+/* Copyright (c) 2022 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+Class IOP.PrivateSession.Message.Start Extends (%Persistent, Ens.Util.MessageBodyMethods) [ 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>^IOP.PrivateSession.M6AEC.StartD</DataLocation>
+<DefaultData>StartDefaultData</DefaultData>
+<IdLocation>^IOP.PrivateSession.M6AEC.StartD</IdLocation>
+<IndexLocation>^IOP.PrivateSession.M6AEC.StartI</IndexLocation>
+<StreamLocation>^IOP.PrivateSession.M6AEC.StartS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}

iop/cls/IOP/PrivateSession/Message/Stop.cls

@@ -0,0 +1,48 @@
+/* Copyright (c) 2022 by InterSystems Corporation.
+   Cambridge, Massachusetts, U.S.A.  All rights reserved.
+   Confidential property of InterSystems Corporation. */
+
+/// This class is a DICOM framework class
+Class IOP.PrivateSession.Message.Stop Extends (%Persistent, Ens.Util.MessageBodyMethods) [ 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>^IOP.PrivateS9756.StopD</DataLocation>
+<DefaultData>StopDefaultData</DefaultData>
+<IdLocation>^IOP.PrivateS9756.StopD</IdLocation>
+<IndexLocation>^IOP.PrivateS9756.StopI</IndexLocation>
+<StreamLocation>^IOP.PrivateS9756.StopS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}

iop/cls/IOP/Projection.cls

@@ -0,0 +1,49 @@
+Class IOP.Projection Extends %Projection.AbstractProjection
+{
+
+/// Projection to make install on compile
+Projection Reference As Projection;
+
+/// Call of the projection
+ClassMethod CreateProjection(
+	cls As %String,
+	ByRef params) As %Status
+{
+    set tSC = $$$OK
+    set tCurrentNamespace = $Namespace
+
+    Try {
+        set $NAMESPACE = "%SYS"
+        // Create a new Web App for IOP Remote Handler
+        set webName = "/api/iop" 
+        set webProperties("NameSpace") = tCurrentNamespace 
+        set webProperties("Enabled") = 1 
+        set webProperties("DispatchClass") = "IOP.Service.Remote.Handler"
+        set webProperties("AutheEnabled") = 32 
+        set webProperties("ServeFiles")=2
+        set webProperties("Recurse")=1
+        if ##class(Security.Applications).Exists(webName) {
+            // If the web application already exists, delete it first
+            $$$ThrowOnError(##class(Security.Applications).Delete(webName))
+        }
+        $$$ThrowOnError(##class(Security.Applications).Create(webName, .webProperties))
+    }
+    Catch ex {
+
+        Write !,"Error creating web application: ", ex.DisplayString(), !
+
+    }
+
+    znspace tCurrentNamespace
+    Return tSC
+}
+
+ClassMethod RemoveProjection(
+	cls As %String,
+	ByRef params,
+	recompile As %Boolean) As %Status
+{
+    Quit $$$OK
+}
+
+}

iop/cls/IOP/Service/Remote/Handler.cls

@@ -0,0 +1,30 @@
+Class IOP.Service.Remote.Handler Extends %CSP.REST
+{
+
+Parameter CHARSET = "utf-8";
+
+Parameter CONVERTINPUTSTREAM = 1;
+
+Parameter CONTENTTYPE = "application/json";
+
+/// This parameter influences the CORS support. The default is an empty string meaning 'not specified'.
+/// If set to true (1) then CORS processing is ON. If set to false (0) then CORS processing is OFF.
+/// If left unset "" then the decision to process CORS is delegated to the setting on the URL map route.
+Parameter HandleCorsRequest = 1;
+
+Parameter UseSession As Integer = 0;
+
+/// Ignore any writes done directly by the REST method.
+Parameter IgnoreWrites = 0;
+
+XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]
+{
+<Routes>
+<!-- Iop Management -->
+<Map Prefix="/v1" Forward="IOP.Service.Remote.Rest.v1"/>
+<!-- make the default forward to the highest current version of the API -->
+<Map Prefix="/*" Forward="IOP.Service.Remote.Rest.v1"/>
+</Routes>
+}
+
+}

iop/cls/IOP/Service/Remote/Rest/v1.cls

@@ -0,0 +1,97 @@
+Class IOP.Service.Remote.Rest.v1 Extends %CSP.REST
+{
+
+XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]
+{
+<Routes>
+<Route Url="/migrate"                        Method="PUT" Call="PutMigrate"/>
+<Route Url="/version"                        Method="GET" Call="GetVersion"/>
+</Routes>
+}
+
+ClassMethod GetVersion() As %String
+{
+    // Return the version of the IOP service
+    Return {
+		"version": "1.0.0",
+		"description": "Interoperability Embedded Python Service API"
+	}.%ToJSON()
+}
+
+ClassMethod NamespaceCheck(pNamespace As %String) As %Boolean [ Internal, Private ]
+{
+	If '##class(%SYS.Namespace).Exists(pNamespace) {
+		throw $$$ERROR("NamespaceDoesNotExist")
+	}
+	Return 1
+}
+
+ClassMethod PutMigrate() As %DynamicObject
+{
+	Try {
+		// Get the request body
+		set dyna = {}.%FromJSON(%request.Content)
+		set body = dyna.%Get("body")
+		set namespace = dyna.%Get("namespace")
+		set targetDirectory = dyna.%Get("remote_folder")
+		set packageName = dyna.%Get("package")
+		// check for namespace existence and user permissions against namespace
+		If '..NamespaceCheck(namespace) {
+			Return ""
+		}
+		New $NAMESPACE
+		Set $NAMESPACE = namespace
+
+		
+		//Create directory for custom packages
+		If targetDirectory '= "" {
+			If '##class(%Library.File).DirectoryExists(targetDirectory) {
+				If '##class(%Library.File).CreateDirectory(targetDirectory) {
+					$$$ThrowStatus($$$ERROR($$$DirectoryCannotCreate, targetDirectory))
+				}
+			}
+		}
+		Else {
+			// Set targetDirectory to the CODE DATABASE directory
+			do ##class(%SYS.Namespace).GetAllNSInfo(namespace,.info)
+			Set targetDirectory = info("RoutineDB","Directory")
+		}
+		
+		Set packagePath = ##class(%Library.File).NormalizeDirectory(packageName, targetDirectory)
+		// If the package already exists then we must be meaning to re-load it. Delete files/directory/metadata and recreate fresh.
+		If ##class(%Library.File).DirectoryExists(packagePath) {
+			If '##class(%Library.File).RemoveDirectoryTree(packagePath) {
+				$$$ThrowStatus($$$ERROR($$$DirectoryPermission , packagePath))
+			}
+		}
+		If '##class(%Library.File).CreateDirectory(packagePath) {
+			$$$ThrowStatus($$$ERROR($$$DirectoryCannotCreate, packagePath))
+		}
+
+		//Unpack JSON objects		
+		Set iterator = body.%GetIterator()
+		While iterator.%GetNext(.key , .fileObject ) {
+			// If fileObject.name has '/' then it is a path, we need to normalize it
+			Set fileName = ##class(%Library.File).NormalizeFilename(fileObject.name,packagePath)
+			do ##class(%Library.File).CreateDirectoryChain(##class(%Library.File).GetDirectory(fileName))
+			Set fileStream = ##class(%Stream.FileCharacter).%New()
+			Set fileStream.TranslateTable = "UTF8"
+			$$$ThrowOnError(fileStream.LinkToFile(fileName))
+			Do fileStream.Write(fileObject.data)
+			$$$ThrowOnError(fileStream.%Save())
+		}
+
+		//Do the iop migration
+
+		set iopUtils = ##class(IOP.Wrapper).Import("iop._utils")
+    	do iopUtils."_Utils".migrate(##class(%Library.File).NormalizeFilename("settings.py", packagePath))
+	}
+	Catch ex {
+		$$$ThrowOnError(ex.AsStatus())
+	}
+
+
+	return $$$OK
+}
+
+}