Hi Anna,

the error you are getting is due to the missing (not started) Java Gateway using port 55555.
You can get your sample working starting the default java gateway using the Management portal System Administration -> Configuration -> Connectivity -> External Language Servers, there you can customize the "%Java Server" and start it.
Note that the default "%Java Server" uses port 53273, so if you want to use it, you need to change 55555 with 53273, or you can define and start your own Java Server using port 55555.

Please note that you are using a legacy feature that should work for backward compatibility but it's no longer documented (the documentation page you have linked before editing your question is from Ensemble 2018, not IRIS).
The new documented way to call external languages, including Java, is using InterSystems External Servers ($system.external)

The following is a rewrite of the old version sample described in this page using the new External Server for Java that implement the same functionality.

    Set paramsJSON="{""origin"" : ""philadelphia"", ""destination"" : ""boston""}"
    ; Get the Java Gateway, if needed this will also start the gateway.
    ; You may need to configure Java Home from Management Portal:
    ; System Administration -> Configuration -> Connectivity -> External Language Servers
    ; there you can cofigure the "%Java Server" 
    Set jgw=$system.external.getJavaGateway()
    Do jgw.addToPath("/path/to/jars/gson-2.10.1.jar")

    Set inputJSON=jgw.new("com.google.gson.JsonParser").parse(paramsJSON)
    Set jsonObject = inputJSON.getAsJsonObject()
    Set origin = jsonObject.get("origin").toString()
    Set destination = jsonObject.get("destination").toString()
    
    Set URLsource=jgw.new("java.net.URL","http://maps.googleapis.com/maps/api/directions/json?origin="_origin_"&destination="_destination_"&sensor=false")

    Set in=jgw.new("java.io.BufferedReader",jgw.new("java.io.InputStreamReader",URLsource.openStream(),"UTF-8"))
    Set outputJSON=jgw.new("com.google.gson.JsonParser").parse(in)
    Do in.close()
    Set jsonObject = outputJSON.getAsJsonObject()
    Set response = jsonObject.toString()
    ; just for testing write the output to terminal
    Write response
    

Please note that this sample does not require any Java side code, just the libraries/jars used in the sample.
For complex Java code a Java side wrapper class (or classes) can be developed to simplify the IRIS/Java interface.

HTH
Enrico

I'm afraid you cannot use the syntax shortcut () within a StrReplace function.
You can use the () syntax to assign a constant string to ALL the repeating fields, like:

<assign value='"PDF"' property='target.{PIDgrpgrp().ORCgrp().OBXgrp().OBX:ValueType}' action='set' />

In your case you need to iterate in each of the 3 repeating segments using foreach actions, like:

<foreach property='source.{PIDgrpgrp()}' key='k1' >
    <foreach property='source.{PIDgrpgrp(k1).ORCgrp()}' key='k2' >
        <foreach property='source.{PIDgrpgrp(k1).ORCgrp(k2).OBXgrp()}' key='k3' >
            <assign value='..ReplaceStr(source.{PIDgrpgrp(k1).ORCgrp(k2).OBXgrp(k3).OBX:ValueType},"ED","PDF")' property='target.{PIDgrpgrp(k1).ORCgrp(k2).OBXgrp(k3).OBX:ValueType}' action='set' />
        </foreach>
    </foreach>
</foreach>

Enrico

Hi Ian, I guess in the copy/paste something went wrong 😉
Same code with different formatting:

ClassMethod ValidNHS(pNHS As %String = "", Output pFailReason) As %Boolean
{
    IF pNHS'?10N {
        set pFailReason = "Num"
        Quit 0
    }
    set nCheckdigit = $Extract(pNHS,10,10)
    set nChi9Digits = $Extract(pNHS,1,9)
    set nMultFact = 2
    set nCalcCheckdigit = 0
    for i = 9 : -1 : 1 {
        set nThisDigit = $Extract(nChi9Digits,i,i)
        set nCalcCheckdigit = nCalcCheckdigit + (nThisDigit * nMultFact)
        set nMultFact = nMultFact + 1
    }
    set nCalcCheckdigit = (nCalcCheckdigit # 11)
    set nCalcCheckdigit = 11 - nCalcCheckdigit
    if (nCalcCheckdigit = 10) {
        set pFailReason = "ChkDig"
        Quit 0
    }
    if (nCalcCheckdigit = 11) {
        set nCalcCheckdigit = 0
    }
    if (nCheckdigit = nCalcCheckdigit) {
        set pFailReason = ""
        Quit 1
    } Else {
        set pFailReason = "ChkDig match"
        Quit 0
    }
}

Check the Filename setting in your Business Operation:

Enrico

I would create my "custom" datatype extending %Library.DateTime:

Class Community.dt.CustomDateTime Extends %Library.DateTime
{

/// Converts the %TimeStamp value to the canonical SOAP encoded value.
ClassMethod LogicalToXSD(%val As %TimeStamp) As %String [ ServerOnly = 1 ]
{
	Set %val=##class(%Library.TimeStamp).LogicalToXSD(%val)
	Quit $translate(%val,"TZ"," ")
}

}

Then in your class define your property as:

Property OPDT As Community.dt.CustomDateTime;

Are you sure you really need %Library.DateTime and not %Library.TimeStamp?
The difference is the JDBC/ODBC format.

If you prefer using %Library.TimeStamp, then change the superclass in my sample code.

Enrico

Hi Emil,
I can think of 3 possible approaches.

1) Use XPATH
2) Modify the XML Document as a DOM
3) Use XSLT transformations

All 3 can be used/implemented in IRIS.

Enrico

P.S.: I suggest using the latest version of the documentation

Maybe the %JSONImport method is returning an error?

To find it out change this two lines:
do pResponse.%JSONImport(tHttpResponse.Data.Read())
quit $$$OK

With:
quit pResponse.%JSONImport(tHttpResponse.Data.Read())

Then check the trace/event log.

Enrico

If it's in the table, then can be viewed in the event log. All that page does is run a query  against ENS_UTIL.LOG and display the result.
From your screenshot the source config item should be ....RsltRouter, if not found in the list (I don't know why), you can just type it or omit it.

You can also search directly in the event log from the Management Portal

There you also get a link to the session trace.

Enrico

Method OnRequest(pRequest As Ens.StreamContainer, Output pResponse As Ens.Response) As %Status
{ $$$LOGINFO("Inne i XmlFilterProcess")
    set filename = pRequest.OutputFilename
    set stream = pRequest.Stream
    $$$LOGINFO(stream.Read())

 set status=##class(%XML.XPATH.Document).CreateFromStream(stream,.mydoc)
 set status=mydoc.EvaluateExpression("/staff/doc/name","text()",.myresults)
 set count = myresults.Count()
 $$$LOGINFO(count)
 
  for i =1:1:count
 {
 set result = myresults.GetAt(i).Value
 $$$LOGINFO(result)
 }
    Quit status
}

You need to change this two lines:

set status=mydoc.EvaluateExpression("/staff/doc/name","1",.myresults)
set status=mydoc.EvaluateExpression("/staff/doc/name","text()",.myresults)

set result = myresults.GetAt(i)
set result = myresults.GetAt(i).Value

Enrico