Hello @Eduard Lebedyuk
Table have data. Incase If I make it as array then it will be no longer a list and its totally different for my case.
- Log in to post comments
Hello @Eduard Lebedyuk
Table have data. Incase If I make it as array then it will be no longer a list and its totally different for my case.
Hello @David Hockenbroch
No, I've a object property as a list like Property CodeTable As list of Sample.CodeTable in my class definition. and inserting values through object refer the code below. Now I expect to insert list of object via SQL instead of object.
Class Samples.NewClass Extends%Persistent
{
Property Name As%String;Property codetable As list Of Sample.CodeTable;Property mycList As list Of %String;Property Notes As%Stream.GlobalCharacter;ClassMethod c1()
{
set obj = ..%New()
set codetable = ##class(Sample.CodeTable).%New()
set codetable.Code="V"do obj.codetable.Insert(codetable) ;insert my Code table object as a list of set codetable = ##class(Sample.CodeTable).%New()
set codetable.Code="X"do obj.codetable.Insert(codetable)
set tSC = obj.%Save()
}
}
The form-data is actually resides in MimeData property and the query parameters are in Data property in %request object. You can you use GetMimeData method to retrieve a single from-data or use NextMimeData for series fetch and The form-data value is in the form of stream. Get method is used to get query parameters from the %request.
ClassMethod SampleCode() As%Status
{
write"query parameter: ",%request.Get("testParam")
set mime=""while1{
set mime = %request.NextMimeData(mime) q:mime=""write mime,!
}
return$$$OK
}You can make the call activity to sync by unchecking the Asynchronous check box in the call activity.
Hello @Nimisha Joseph
Can you try the below
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='Ens.Request' response='Ens.Response' height='2000' width='2000' >
<context>
<property name='Forename' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='Surname' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='ReportDiscipline' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='tResult' type='%SQL.StatementResult' instantiate='0' />
</context>
<sequence xend='200' yend='950' >
<trace name='TEMP trace element' value='"In business process "_request.StringValue' xpos='200' ypos='250' />
<assign property="context.ReportDiscipline" value="request.StringValue" action="set" xpos='200' ypos='350' />
<trace value='"ReportDiscipline value: "_context.ReportDiscipline' xpos='200' ypos='450' />
<assign property="context.tResult" value="##Class(%SQL.Statement).%ExecDirect(,"select * from table")" action="set" xpos='200' ypos='550' />
<while condition='context.tResult.%Next()' xpos='200' ypos='650' xend='200' yend='450' >
<assign property="context.surname" value="context.tResult.%Get("surname")" action="set" xpos='200' ypos='250' />
</while>
<trace value='"SQLCODE: "_SQLCODE' xpos='200' ypos='750' />
<trace value='"returned value: "_context.Forename' xpos='200' ypos='850' />
</sequence>
</process>
}
Never mind.Its actually I've missed
Thanks @Vitaliy Serdtsev
I'll try this!
For FHIR message you should use the Content-Type application/fhir+json (refer section 3.2.0.1.10 Content Types and encodings)
Kudos to the winners!
Hi @Sapan Parikh
Can you add bit more details about it.
Hello @Denys Kondratiuk
you can use below code to convert the response data to JSON object
ClassMethod test()
{
set response = ##Class(%DynamicAbstractObject).%FromJSON(%request.HttpResponse.Data)
set iter = response.%GetIterator()
while iter.%GetNext(.key,.obj) { ;looping the array objectWrite"Name: ", obj.Name, !
Write"Gender: ", obj.Gender, !
}
}Congratulations to all the winners!
Hello @Michael Wood
If those values are not part of the response. Then don't need to worry about it. Code will skip by default. Incase if the property is not defined . Then you have to declare the %JSONIGNOREINVALIDFIELD value as 1 to prevent from that ERROR #9406: Unexpected format for value of field.
Parameter%JSONIGNOREINVALIDFIELDAs BOOLEAN = 1;Hello @Enrico Parisi
That's right, However Instead of creating a custom datatype to fix this. create/use the auto generated method for that property "OPDTLogicalToXSD" and implement the code logic.
ClassMethod OPDTLogicalToXSD(%valAs%TimeStamp) As%String [ ServerOnly = 1 ]
{
Set%val=##class(%Library.TimeStamp).LogicalToXSD(%val)
Quit$translate(%val,"TZ"," ")
}Hello @water huang
As You can create a class method with name of your property "OPDTLogicalToXSD" and add the code conversion for the datetime as mentioned by @Enrico Parisi at XML export time.
It's suitable for both XML and JSON adaptor.
Sample code.
Class Samples.NewClass2 Extends (%Persistent, %Populate, %JSON.Adaptor, %XML.Adaptor)
{
Property OPDT As%Library.DateTime;ClassMethod OPDTLogicalToXSD(%valAs%TimeStamp) As%String [ ServerOnly = 1 ]
{
Set%val=##class(%Library.TimeStamp).LogicalToXSD(%val)
Quit$translate(%val,"TZ"," ")
}
}output
<NewClass2><OPDT>2023-11-30 11:07:02</OPDT></NewClass2>
Hello @water huang,
The default implementation of the XMLExportToString in %XML.Adaptor basically converts the date format as 2023-11-28T13:57:26Z for the property value by the logic $translate(value," ","T")_"Z"). So, I guess you may need to convert by own.
Hello @Andy Khemraj
Are you returning the file name with business operation response.
Hello @Michael Wood
It won't allow to import the array values directly from the response/payload If you're using %JSONImport in %JSON.Adaptor due to the datatype validation while import. So, You may define the list of properties in separate class definition and use that Property Messages As list of class if the array has object values and It allows to import. Or if it's literal string inside an array then it allows without any issues.
Sample: Literal string values inside array
Class Samples.NewClass2 Extends (%Persistent, %Populate, %JSON.Adaptor)
{
Property email As list Of %String;Parameter%JSONIGNOREINVALIDFILED = 1;Property FirstName As%String;Property LastName As%String;ClassMethod test()
{
set json={"FirstName":"test","LastName":"lastname","email":["test@gmail.com","test2@gmail.com"]}
set obj= ..%New()
set st= obj.%JSONImport(json)
if$$$ISERR(st) write$SYSTEM.OBJ.DisplayError(st)
write obj.%JSONExport()
}
}output
LEARNING>d ##Class(Samples.NewClass2).test()
{"email":["test@gmail.com","test2@gmail.com"],"FirstName":"test","LastName":"lastname"}The query is executed directly when you call. Check this SQL.Statement
set tResult = ##class(%SQL.Statement).%ExecDirect(,"select name,age from Sample.Person")
"And result will be stored in tResult variable. Try executing the below in trace or assign and see
write tResult.%SQLCODE
write tStatement
Hello @Nimisha Joseph
As per you're SQL implementation. It's actually straightforward and you took and store "Forename" and "Surname" in to context. haven't taken any SQL resultset object to loop. You can execute only embedded sql in the <sql> BPL element.
So, If you want to execute the query you can assign the SQL object by using <assign> or you can use code block to write executable codes. I have added some sample code below for reference.
/// BPL Definition
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='Ens.Request' response='Ens.Response' height='2000' width='2000' >
<context>
<property name='Forename' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='Surname' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='ReportDiscipline' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='tResult' type='%SQL.StatementResult' instantiate='0' />
</context>
<sequence xend='200' yend='950' >
<trace name='TEMP trace element' value='"In business process "_request.StringValue' xpos='200' ypos='250' />
<assign property="context.ReportDiscipline" value="request.StringValue" action="set" xpos='200' ypos='350' />
<trace value='"ReportDiscipline value: "_context.ReportDiscipline' xpos='200' ypos='450' />
<assign property="context.tResult" value="##Class(%SQL.Statement).%ExecDirect(,"select * from table")" action="set" xpos='200' ypos='550' />
<while condition='context.tResult.%Next()' xpos='200' ypos='650' xend='200' yend='450' >
<assign property="context.surname" value="context.tResult.%Get("surname")" action="set" xpos='200' ypos='250' />
</while>
<trace value='"SQLCODE: "_SQLCODE' xpos='200' ypos='750' />
<trace value='"returned value: "_context.Forename' xpos='200' ypos='850' />
</sequence>
</process>
}
HTH.
Hello @Colin Brough
Can you try is this approach is suitable. Create a Business Service with Ens.InboundAdapter or without adapter. Call your BPL process as usual interoperability production flow. Eventually Create your custom Task and invoke your Business service from the OnTask Inherited Method
Class HL7Task.Test Extends%SYS.Task.Definition
{
Method OnTask() As%Status
{
Set status = $$$OKTry {
#dim service As Ens.BusinessService
Set status = ##class(Ens.Director).CreateBusinessService("HL7.Feed.TriggerService",.service)
if$isobject(service) {
do service.OnProcessInput(pInput,.pOutpt)
}
}
Catch(ex) {
Set status = ex.AsStatus()
}
return status
}
}
Business service
Class HL7.Feed.TriggerService Extends Ens.BusinessService
{
Parameter ADAPTER = "Ens.InboundAdapter";Property TargetConfigName As Ens.DataType.ConfigName;Parameter SETTINGS = "TargetConfigName:Basic";
Method OnProcessInput(pInput As%RegisteredObject, Output pOutput As%RegisteredObject) As%Status
{
Do..SendRequestSync(..TargetConfigName,pInput,.pOutput)
Quit$$$OK
}
}Hi @Prasanth Annamreddy
If you're using Interoperability production to publish your FHIR resources. Then you may instantiate the object for the class HS.FHIRServer.Interop.Request to process the request and production expects this object as a input . Otherwise it will throw "ERROR <Ens>ErrRequestNotHandled: Request message not handled"
Maybe you're using literal properties for list operation. It causes the list error.
Hello @Luis Angel Pérez Ramos
as of my understanding, We can send the it's as a query parameter or http request body if the design supports. Incase the external system protocol was designed to handled the authorization and some additional custom headers are must be a request header Then it should be part of the headers section otherwise I believe it may creates some issue with the request/response.
Have you verified? Did you get all the values whether the hl7 message is properly imported to the object after executing XMLImportSDAString for all the properties.
do reqObj.XMLImportSDAString(xml.Read())
Hello @MARK PONGONIS
Get/Post/Put any method will return status if error while executing otherwise return 1. The HttpResponse object property actually contains the response details such as status code, content length, content type, response etc...
So, As you mentioned the code is "i http.HttpResponse.StatusCode" is used to get the status code of the response.
Thank you very much 😀. Wonderful path for gaining and sharing
Hello @Yone Moreno
Try removing the = after $system.Encryption.Base64Encode(). You can also check the %OAuth2.JWT class to as well.
do ##Class(%OAuth2.JWT).ObjectToJWT(.JOSE,body,,,.jwt)
.png)
Can you try the above steps.