A while back we created JSON2Persistent which does this for you in a consistent way without AI :)

do ##class(ISC.SE.Tools.JSON).GenerateClasses("path/to/sample.json", "MyDataModel.JSONPackage", "ClassName", 0, 1)
// or
do ##class(ISC.SE.Tools.JSON).GenerateClassesFromStream(jsonStream, "MyDataModel.JSONPackage", "ClassName", 0, 1)

// and then use that class

Set mymessage = ##class(MyDataModel.JSONPackage.ClassName).%JSONImport(mysourcestringorstream)
Set mymessage.%Save()

// and it's SQL addressable

SELECT * FROM MyDataModel_JSONPackage.ClassName

Please ensure that any dark version uses our white logo as the default color is invisible in dark mode.

Will this change the commands from zpm to ipm?

Currently, product development is working on containerization and kubernetes support for healthshare. It might be worth waiting until it is officially supported.

Great release! @Dmitry Maslennikov

For deployed code, does this prevent source (src or module.xml) from being stored on the disk as well?

I think what you'll need is a write stream method below (I haven't had a chance to test this so the code comes with no guarantees). This will work for Non-Shared web-socket connections since I don't have the chance to test with shared pools at the moment.

Method Send(message As %Library.DynamicObject) As %Integer
{
    Set stream = ##class(%Stream.TmpCharacter).%New()
    Do message.Msg.%ToJSON(stream)
    Set sc = ..WriteStream(stream)
    If $$$ISERR(sc) $$$SysLog(2,"WebSocket","[Write] Error WRITE Stream on JSON Command",sc)
    quit 1
}

Method WriteStream(data As %Stream.Object) As %Status
{
	Set $ZTrap="WriteError"
	If i%WSClassProtocolVersion > 1 & i%WSDataFraming = 1 {
		Set head=$ZLChar(data.Size)
		If i%BinaryData = 1 {
			Set head=head_"8"
		} Else {
			Set head=head_"7"
		}
	} Else {
		Set head=""
	}
	#; As there is activity on this session reset the session timeout
	Set sc=$$updateTimeout^%SYS.cspServer(i%SessionId) If $$$ISERR(sc) $$$SysLog(2,"WebSocket","[Write] Error updating session timeout",sc)
	#; Only return an error status if there's an issue with the write itself.
	Set sc=$$$OK
	If (i%SharedConnection = 1) {
        // If you want to try and play with the shared pools and large payloads, move the commented code to the loop below

		#; Set sc=$$CSPGWClientRequest^%SYS.cspServer3(i%GWClientAddress,"WSW "_i%WebSocketID_" "_head_data1,-5,.response)
		#; If $$$ISERR(sc) $$$SysLog(2,"WebSocket","[Write] Error sending request",sc)
        $$$SysLog(2,"WebSocket","[Write] Shared Connections Don't Support Stream Sizes over 3.6MB",sc)
        Quit $$$Error($$$GeneralError, "[Write] Shared Connections Don't Support Stream Sizes over 3.6MB")
	} else {
        SET sc = $$$OK
        // Write header
		Write head
        // Rewind Stream
        Do data.Rewind()
        // Loop through stream and write 64kb chunks
        while (data.AtEnd = 0) {
            // Set Buffer to 64KB
            Set BUFSZ = 65536
            // Read Buffer
            SET BUFBLOCK = data.Read(.BUFSZ)
            // Convert UTF8 if we aren't using Binary Web Sockets
            If i%BinaryData '= 1 {
                Try {
                    Set BUFBLOCK=$zconvert(BUFBLOCK,"O","UTF8")
                } Catch exp {
                    $$$SysLog(2, "WebSocket", "[Write] Exception: "_exp.DisplayString(), data)
                    Set BUFBLOCK=BUFBLOCK
                }
            }
            // Use DEVICE WRITE method
            Write BUFBLOCK
            // Quit when done with stream
            BREAK:(BUFSZ < 65536)
        }
        // Send a flush command mnow
        Write *-3
        Quit sc
	}
	Quit sc
WriteError	
	#; No interrupts during cleanup or error processing
	Do event^%SYS.cspServer2("WebSocket Write Error: "_$ZError)
	$$$SetExternalInterrupts(0)
	Set $ZTrap="WriteHalt"
	Hang 5
	Close 0
WriteHalt 
	Halt
    
}

If you investigate and find you need to do a global get, try using the %Net.DB package.

Here is another community link that should that in action.

https://community.intersystems.com/post/netdbconnection

6 years ago I designed such a system at Boston College:

• Web Application Demo
• Source Model and Ingestion Code

This python code can easily be adapted for irispython. My suggestion, use a computer with modern graphics cards, and potentially outsource this ML work to one of the many AI companies that offer emotion detection these days.

As far as I know, they should be included in the output. If you want to force it you can add a property parameter on the relationship. https://docs.intersystems.com/irisforhealth20221/csp/docbook/DocBook.UI…

// Relationship to be includeed in JSONExport using JSON adaptor
Relationship Ingredients as Food.Item(%JSONINCLUDE = "inout", %JSONREFERENCE = "object") [ Cardinality = one, Inverse = Recipe ];

You could use a linked database (remote db projected as local tables) and then write an insert query to that linked table before it gets sent to a production.

Hi Dan, Can you please update the following to make this tutorial up-to-date?

• The endpoints in the Google1N and Google2n depend on your server and ssl port. Maybe make a note there that .../csp/google/Web.OAUTH2.... would be /csp/user/Web or /csp/namespaceABC/Web.Oauth2 depending on where you implement the code.
• The issuing endpoints for the tutorial have changed to the following: https://accounts.google.com/.well-known/openid-configuration