Namespace per project

.xlsx file, manipulates the file (in COS)

How are you manipulating xlsx in InterSystems ObjectScript?

For a better http performance

• Install dedicated web server
• Configure it for your workflow
• Maybe move web gateway/web server to a separate server

Do not use custom port for a start.

What does

write $SYSTEM.Util.GetEnviron("JAVA_HOME")

return in the same process as JavaGateway?

If not /usr/java/jdk1.8.0_65 you might need to restart the InterSystems IRIS instance.

Your OS user can be determined by running:

write $system.Process.UserName()

again it's important to run this code in the same process as Java Gateway.

After you determined effective OS username you can check folder/executable permissions.

Finally, SELinux if enabled might require additional configuration.

If records are never deleted and you're okay with a few misses, use ExtentSizeFast, if you need the fastest precise runtime implementation use ExtentSize, in you need better compile speed and don't care about runtime speed use GetExtentSize.

/// w ##class(Utils.Persistent).GetGlobal("Utils.Persistent")
ClassMethod GetDataGlobal(Class As %Dictionary.CacheClassname) As %String
{
    Quit:'$$$comClassDefined(Class) ""
    Set Strategy = $$$comClassKeyGet(Class, $$$cCLASSstoragestrategy)
    Quit $$$defMemberKeyGet(Class, $$$cCLASSstorage, Strategy, $$$cSDEFdatalocation)
}

/// w ##class(Utils.Persistent).ExtentSizeFast("Utils.Persistent")
ClassMethod ExtentSizeFast(Class As %Dictionary.CacheClassname) As %String [ CodeMode = expression ]
{
$Get(@..GetDataGlobal(Class), 0)
}


/// w ##class(Utils.Persistent).GetExtentSize("Utils.Persistent")
ClassMethod GetExtentSize(Class As %String) As %Integer
{
    Set Global = ..GetDataGlobal(Class)
    Quit:Global="" 0
   
    Set Id = $Order(@Global@(""))
    Set Count = 0
    While Id '= "" {
        Set Id = $Order(@Global@(Id))
        Set Count = Count + 1
    }
    Quit Count
}

ClassMethod ExtentSize() As %Integer [ CodeMode = objectgenerator ]
{
    set Strategy = $$$comClassKeyGet(%classname, $$$cCLASSstoragestrategy)
    set Global = $$$defMemberKeyGet(%classname, $$$cCLASSstorage, Strategy, $$$cSDEFdatalocation)
    Do %code.WriteLine(" Set Id = $Order(" _ Global _ "(""""))")
    Do %code.WriteLine(" Set Count = 0")
    Do %code.WriteLine(" While Id '= """" {")
    Do %code.WriteLine("     Set Id = $Order(" _ Global _ "(Id))")
    Do %code.WriteLine("     Set Count = Count + 1")
    Do %code.WriteLine(" }")
    Do %code.WriteLine(" Quit Count")
    Quit $$$OK
}

Great article.

Is it available for InterSystems IRIS?

Some projects make use of dynamic objects and it would be great to show them in Visual Trace.

Check out the OpenID connect plugin for IAM.
This doc mentions that Keycloak works with this plugin.

You can use JDBC gateway via Interoperability productions (EnsLib.SQL package).

How are you using ODBC in InterSystems ObjectScript?

You need the c flag

write $SYSTEM.OBJ.Load("C:\InterSystems\HealthShare_2\opt\contenedor\zpm-0.2.2.xml", "c")

But as @Evgeny Shvarov said you'll need InterSystems IRIS for zpm to work.

Try $c(0)?

Idea for contestants.

Julyter Notebooks kernel for InterSystems ObjectScript.

Recently I developed bidirectional integration for Jupyter Notebooks. It allows you to create intelligent Business Processes with Python activities. Here's the code (it uses Native API for Python and there's less than a 1000 sloc in the whole integration). Here's some screenshots:

However, as you see currently only BPLs with Python are supported.

The idea for the app is simple - to do the reverse - add the ability for Julyter Notebooks to execute InterSystems ObjectScript code.

Why? It's a great tool for quick prototyping and demos!

How? Using Native API develop a wrapper kernel for InterSystems ObjectScript. Essentially all you need to do is to execute arbitrary string of code and return result. Check WebTerminal source code (by @Nikita.Savchenko7047) to see how a similar application works.

Docs:

• Wrapper Kernel docs
• List of Kernel Implementations
• More docs (all possible approaches)

As second argument defaults to 1 and third can be skipped you can write just:

if $e(chunk)=""""{
}

Calling @Stefan Wittmann 
 

You can add this to your code

$$$TRACE("LastChecked value is: '" _ LastChecked _ "'")

to get LastChecked value.