go to post Marc Mundt · Mar 27, 2020 Have a look at this module on Health Connect's XDS.b components:https://docs.intersystems.com/healthconnect20191/csp/docbook/DocBook.UI....
go to post Marc Mundt · Mar 26, 2020 "Insert(^content)" doesn't work because you can't store an object reference in a global. When you do "set ^content=citasPrimarias.datos.GetAt(j)", it converts the object reference to a string before storing it in the global.
go to post Marc Mundt · Mar 26, 2020 In BPL, you can use a "Trace" activity to log a value to the trace log.
go to post Marc Mundt · Mar 26, 2020 Yone, what is the data type of the property "datos" in Mensajes.Response.HistoriaClinica.ConsultaCitasResponse. I assume it's a list of a custom class that has two properties named fecha and hora? Property datos as List of my.class.dato; If so, you would do something like this: set dato=##class(my.class.dato).%New() set dato.fecha=fecha set dato.hora=hora do target.datos.InsertAt(dato,indice)
go to post Marc Mundt · Mar 23, 2020 When the delay expires, Ens.Alarm will send a message back to the business process. You can query to find any messages that have been sent to Ens.Alarm but for which it hasn't sent a message back. This is based on the value of status: the status will be "Delivered" until Ens.Alarm sends the message back to the BP, at which point it will change to "Completed". SELECT * FROM ens.messageheader WHERE status='Delivered' AND sourceconfigname='MyBPL' AND targetconfigname='Ens.Alarm' As Eduard mentioned, it would be good to understand the use case as there may be another way to accomplish it.
go to post Marc Mundt · Mar 10, 2020 Right now you're deleting items from the same list you're iterating through. As an alternative you could loop through the original list but in the loop you build a new list. Only insert an item into the new list if it doesn't contain the characters you're trying to remove.
go to post Marc Mundt · Mar 6, 2020 Putty has options to take certain actions when it receives a BELL character ( $c(7) ). Can you change your routine to return a BELL when it completes?
go to post Marc Mundt · Mar 5, 2020 Yone, have you tried setting ContentCharset to "UTF-8" instead of "utf-8"?
go to post Marc Mundt · Feb 28, 2020 The following works for me: TESTING>write ##class(Ens.Util.FunctionSet).ConvertDateTime("20200228210000", "%K(0)%q", "%K(-5)%q")20200228160000
go to post Marc Mundt · Feb 28, 2020 The syntax for the informat and outformat fields is documented here:https://docs.intersystems.com/healthconnectlatest/csp/docbook/DocBook.UI... Have a look at the %K modifier in particular.
go to post Marc Mundt · Feb 25, 2020 You're right, this code will not work as-is with fields that exceed the max string size (~ 3 MB). If you expect large fields/segments (such as attachments in OBX:5), there are stream-handling methods that you can use. If OBX:5 is smaller than the max string size then I don't see any problem regardless of what type of data it contains as the OBX:5 content shouldn't include "^".
go to post Marc Mundt · Feb 25, 2020 I just did a test with .Find() and was able to compile with no error and the rule executes correctly depending on the values in the inbound record. Here's what my rule looks like: Is your router receiving the Record object from the record map or the batch object? Since Find() doesn't meet your use case, it sounds like you'll need to loop through all of the values in that field. Routing rules can't do loops, so the right way to do this would be to create a custom function and pass it either the main Document or Document.ObservationValue. In your custom function you can iterate through the entire list and return a boolean. Docs on creating a custom function:https://docs.intersystems.com/healthconnect20191/csp/docbook/Doc.View.cl...
go to post Marc Mundt · Feb 20, 2020 Hi Neil, Can you provide some more details? Is this record map being used for pulling data into the system or for outputting data?Which component is logging the error -- business service, router/business process, business operation?What is the error message?Can you give an example of a record that causes the error?Can you show the record map definition? -Marc
go to post Marc Mundt · Feb 19, 2020 As far as I know, there is no configuration option for automatically removing trailing delimiters. So your post-processing approach seems like the way to go. It looks like Randy's example only removes trailing carats at the end of the segment. I've seen a different version of this code (also by Randy) that includes this additional piece which removes trailing carats from each field in the segment. ; Remove trailing up carats within a field set tIndex = 0 while $FIND(tSegment,"^|",tIndex) > 0 { set tSegment = $Replace(tSegment,"^|","|") do pHL7.SetValueAt(tSegment,tCount) }
go to post Marc Mundt · Feb 19, 2020 Neerav, have you tried logging the session ID that you're passing to the query in the BPL? I only suggest this in order to rule out the possibility that the BPL code is failing to get the correct session ID and that's why the query is not returning any results.
go to post Marc Mundt · Feb 18, 2020 It's not clear what logic you want to use to evaluate the list properties, but if you want to, for example, check if any of the items in the list contain a particular value, you could use the Find() method in the class %ListOfDataTypes. In that case the condition in your routing rule would be something like this: Document.ResultText.Find("MyValue") '= ""
go to post Marc Mundt · Feb 18, 2020 Yone, I think there's a problem with your Write() method. It is outputting data from the "stream" object, but "stream" is always set to a new (empty) stream and populated with data from "writer", which is also a new (empty) %XML.Writer object. So I don't see how this method could ever output any data. Regarding the CSP error when requesting the WSDL, have you checked the application log to see what the actual error is? -Marc
go to post Marc Mundt · Feb 13, 2020 Yone, since you fixed the problem related this class in your other post, does that solve this problem also?
go to post Marc Mundt · Feb 13, 2020 "it is quite curious to see it being replied from the Web Service to the Operation, where we can LOGINFO its propierties, and then, suddenly when we pass it to the Process, it is empty." This is happening because when you receive it from the web service it is only stored in memory. In order to send it from the operation back to the business process it needs to be persisted in the database. This should be handled automatically by the parent (response) class if the child class is a %SerialObject -- it will automatically serialize the child object and store it under the parent's global. We can demonstrate this with these two classes: Class Demo.Obj.ParentClass Extends Ens.Response { Property parentProp1 As %String; Property childList As list Of Demo.Obj.ChildClass; ClassMethod populate() { s parent=##class(Demo.Obj.ParentClass).%New() s parent.parentProp1=$ZDT($h) f i=1:1:10 { s child=##class(Demo.Obj.ChildClass).%New() s child.prop1="child.prop1."_i s child.prop2="child.prop2."_i zw child w " ",parent.childList.Insert(child),! } w parent.%Save(), ":", parent.%Id(),! } } Class Demo.Obj.ChildClass Extends (%SerialObject, %XML.Adaptor) { Property prop1 As %String; Property prop2 As %String; } It's not clear to me why this isn't working in your example -- possible the storage definition needs to be reset since you changed it from %RegisteredObject to %SerialObject. https://docs.intersystems.com/irislatest/csp/docbook/Doc.View.cls?KEY=GO...
go to post Marc Mundt · Feb 13, 2020 You can't directly store an object in a global like this. In your code, you're actually just storing a text description of the object reference in the global. The way to store an object in a global is to either (1) define it as a persistent class and let the system handle storing it automatically, (2) make the list of objects a property of a parent class which is itself persistent, or (3) serialize the object into a string that can be stored directly in the global. Can you explain why you need to store copyList in this manner? If you just want to persist the objects in copyList, you can consider making RSPK21QUERYRESPONSE a persistent class. https://docs.intersystems.com/healthconnect20191/csp/docbook/DocBook.UI....https://docs.intersystems.com/healthconnect20191/csp/docbook/Doc.View.cl...https://docs.intersystems.com/healthconnect20191/csp/docbook/Doc.View.cl... Also, it's worth noting that when you define the property RSPK21QUERYRESPONSE as a list of objects where the child object extends %SerialObject, then that entire list will be stored in the same global as the parent class. One other note: At the top of your code example, you set RSPK21QUERYRESPONSE as a %ListOfDataTypes:SET RSPK21QUERYRESPONSE = ##class(%ListOfDataTypes).%New() While later you try to clone it into a %ListOfObjects, which is not equivalent:set copyList = ##class(%ListOfObjects).%New()set copyList = pResponse.RSPK21QUERYRESPONSE.%ConstructClone(1)