go to post Enrico Parisi · Nov 29, 2023 Where does that code comes from? It seems that your method expect a %Status as returned value, try with: Quit tSC Like you did in your first example. Enrico
go to post Enrico Parisi · Nov 29, 2023 Hi Emil,I can think of 3 possible approaches. 1) Use XPATH2) Modify the XML Document as a DOM3) Use XSLT transformations All 3 can be used/implemented in IRIS. Enrico P.S.: I suggest using the latest version of the documentation
go to post Enrico Parisi · Nov 28, 2023 Hi Michael, in order for %JSONImport() method to work properly the class of "pResponse" (inheriting from %JSON.Adaptor) MUST match the structure of the JSON being imported. From the error it seems this is not the case for your class and JSON. Another option is to load/import the JSON stream into a dynamic object {} (%Library.DynamicObject) and then "manually" set your pResponse properties from the dynamic object properties. Enrico
go to post Enrico Parisi · Nov 28, 2023 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
go to post Enrico Parisi · Nov 28, 2023 Hi Summer, thank you for the information, since then I solved my issue and have used %setall()/getall() "magic" (secret? 😉 ) methods in a couple of cases (like streams), although I'm not sure I discovered all the magic! The real issue is the lack of documentation and samples, for me as well as for all the community. In addition, InterSystems use (used?) to say that what is not documented is considered not (officially) supported.... Enrico
go to post Enrico Parisi · Nov 27, 2023 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.
go to post Enrico Parisi · Nov 27, 2023 You can also search directly in the event log from the Management Portal There you also get a link to the session trace. Enrico
go to post Enrico Parisi · Nov 27, 2023 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
go to post Enrico Parisi · Nov 27, 2023 Thank you Robert for the clarification, really helpful for the community.... I just didn't realized that this article was submitted for the Java Contest, how could I have understood this from the post above? Maybe I lack a bit of imagination Enrico
go to post Enrico Parisi · Nov 27, 2023 Simply replace the line://call here Do ##class(Ens.Util.XML.Reader).ChangeXMLStreamEncoding... With:Set outputBinaryStream=##class(%Stream.FileBinary).%New()Do ##class(Ens.Util.XML.Reader).ChangeXMLStreamEncoding(tStream, "ISO-8859-1",outputBinaryStream, .tSC)//you may want to check tSC, just in case....//now on use the header changed outputBinaryStream instead of tStream Enrico
go to post Enrico Parisi · Nov 27, 2023 Hi Yuri, very interesting project. Is there any particular reason for using Java to call a (relatively) simple REST API? Calling a REST API can be easily implemented in IRIS directly without the "Java layer". Enrico
go to post Enrico Parisi · Nov 27, 2023 Set inputBinaryStream=##class(%Stream.FileBinary).%New()Set inputBinaryStream.Filename="\\server\your\share\file.xml"Set outputBinaryStream=##class(%Stream.FileBinary).%New()Set outputBinaryStream = ##class(Ens.Util.XML.Reader).ChangeXMLStreamEncoding(inputBinaryStream, "ISO-8859-1",outputBinaryStream, .tSC) ; Since the output stream is passed, you can just call (last line) with:Do ##class(Ens.Util.XML.Reader).ChangeXMLStreamEncoding(inputBinaryStream, "ISO-8859-1",outputBinaryStream, .tSC) Enrico
go to post Enrico Parisi · Nov 26, 2023 EVERY interoperability session start from a Business Service, be it from a message/call received from an external system or triggered by a timed event, like in this case.Your problem/question is: "I need to trigger production process/operation every minute" That's EXACTLY what my BS sample does, all you need is to call your "process/operation" that "exchange data with external system". This is the way to implement it.Enrico
go to post Enrico Parisi · Nov 26, 2023 From classreference: Properties which can be modified for an already created database are: ReadOnly .......So, after the creation of the database: Set db=##Class(SYS.Database).%OpenId("/InterSystems/cachedb/mydatabase")Set db.ReadOnly=0Write db.%Save() Enrico
go to post Enrico Parisi · Nov 26, 2023 Purging every N days should keep the database size almost constant, assuming a constant number of messages. Unless you have some other database classes that keep growing. Are you purging message bodies too? What kind of messages does your production use? HL7 only? Other messages? You may have orphaned messages in your database. Regarding moving a CACHE.DAT, can you stop the system for the time it takes to copy the file to a different filesystem/drive? Enrico
go to post Enrico Parisi · Nov 26, 2023 Very simple, just create a Business Service that use Ens.InboundAdapter. The default behavior of Ens.InboundAdapter is to call the BS (ProcessInput()) every "CallInterval" seconds. Something like: Class Community.bs.TimedService Extends Ens.BusinessService { Parameter ADAPTER = "Ens.InboundAdapter"; Method OnProcessInput(pInput As %RegisteredObject, Output pOutput As %RegisteredObject) As %Status { Set BpRequest=##class(Ens.Request).%New() Set sc=..SendRequestSync("YourBusinessProcessName",BpRequest,.BpResponse) ; ; OR, if you don't need to wait for the BP to finish: ;Set sc=..SendRequestAsync("YourBusinessProcessName",BpRequest) Quit sc } } Add this service to your production, to trigger every one minute set the setting CallInterval=60 (seconds). Enrico
go to post Enrico Parisi · Nov 23, 2023 I've no idea why it does not works, however, why do you use % classes now days?Today there is (IMO) a better way to implement system wide accessible classes/code without "messing" with % classes (or code in general) stored in the IRISSYS database. Create a new database & namespace (creating namespace is optional but convenient), say you call it JIULIB and put all your system wide accessible code there with proper (unique) package naming.In this case you can call your sample class pylib.Utility instead of %Zpy.Utility and save&compile it in your JIULIB namespace. Then create the ("virtual") namespace called %ALL and map the package pylib to your JIULIB database and voilà, your pylib package is accessible from ALL namespaces currently defined and new ones created afterwards. In this way you have all your lib code properly divided in your own database (may simplify upgrades) and is a more "container friendly" configuration. Bonus: your python test works! (just tested in my system) Today there is no good reason to use/make %* classes/code, leave %* to InterSystems. Relevant documentation is here. Enrico
go to post Enrico Parisi · Nov 23, 2023 I'm not sure I understand your issue right, my understanding is that you receive an XML declared as UTF-8 that contains ISO-8859-1 characters. If so, you can convert the encoding of the stream content using something like: /// Convert the encoding of the content of a stream to UTF-8. /// If OutStream is not passed (of any %Stream.* class), then a new %Stream.GlobalBinary is returned. /// Note that OutStream IS NOT SAVED on exit ClassMethod ConvertStreamToUTF8(InStream As %Stream.Object, ByRef OutStream As %Stream.Object = {##class(%Stream.GlobalBinary).%New()}) As %Status { Set sc=$$$OK Set MaxRead=$$$MaxLocalLength\2 ; to be safe Try { While 'InStream.AtEnd { Set content=InStream.Read(MaxRead) Set sc=OutStream.Write($ZCONVERT(content,"O","UTF8")) If $$$ISERR(sc) Quit } } Catch CatchError { #dim CatchError as %Exception.SystemException Set sc=CatchError.AsStatus() } Quit sc } If the problem is different, please provide more info/details, maybe a sample XML (not necessarily the original XML). Enrico
go to post Enrico Parisi · Nov 23, 2023 do service.OnProcessInput(pInput,.pOutpt) You are not supposed to call the OnProcessInput() callback method directly, instead the ProcessInput() method should be called. Sometime calling OnProcessInput() works, sometimes create problems. I think InterSystems should have made OnProcessInput() [private] as most of the callback methods (like %OnNew() for instance). Enrico