All
Accepted answers
Prasanth Annamreddy · Feb 4 go to post

Hi,

You can also create a Generic Message request and receive a Generic Message response.

Set url = Endpointurl_"/"_Param1_"/"_Param2_"/"_Param3

Set httpResponse= ##class(EnsLib.HTTP.GenericMessage).%New()

Set HTTPrequest = ##class(EnsLib.HTTP.GenericMessage).%New()
Do HTTPrequest.HTTPHeaders.SetAt("application/x-www-form-urlencoded", "content-type")
Do HTTPrequest.HTTPHeaders.SetAt("GET","HttpRequest")
Do HTTPrequest.HTTPHeaders.SetAt(url, "URL")
Set tSC = ..OnMessage(HTTPrequest, .httpResponse)
Set StatusCode = $P(httpResponse.HTTPHeaders.GetAt("StatusLine")," ",2)

Thanks,

Prasanth Annamreddy · Jan 22 go to post

Hi Mirza,

If set failure timeout to -1, it will not retry?

Failure Timeout is -1 = retry forever (no time limit) It will keep retrying until it gets a response.

:?E=S or E=S is same? 

:?E -- it looks at the value in MSA:1 and evaluates it by HL7 acknowledgment class. Ex: 'AE' or 'CE'
It is only for HL7 messages.

E - it is a standard Error code, E only when dealing with non-HL7 or custom reply codes.

what the ( :? ) means?

“Match by class of HL7 acknowledgment code, not exact value.”
It looks at MSA:1 in the response and groups codes by meaning.

:?A - matches AA or CA values (Accept)
:?E - matches AE or CE values (Error)
:?R - matches AR or CR values (Reject)

Thanks,

Prasanth Annamreddy · Jan 19 go to post

Hi,

When error occurs, E=R attemps to retry, number of retries depends on failure timeout. Default Failure Timeout is 15, so it attempts 3 times retry before failing, and if it is set to 1, it attempts until the response is received.
The error message is suspended when :?E=S or E=S occurs, and it moves on to the next message after the error is dealt with.

Thanks

Prasanth Annamreddy · Jan 16 go to post

Hi,

Can you try Reply Code Actions is 'E=R'. It will retry when Error occur and Failure Timeout is -1.

Thanks,

Prasanth Annamreddy · Dec 18, 2025 go to post

Hi,

Here is the sample code

 Set DCJson= {"name":"Janko","surname":"Hrasko","colors":["blue","green","yellow"]}
  
  Set formatter=##class(%JSON.Formatter).%New()
  Set sc=formatter.FormatToString(DCJson,.tJsonStr)
  Set newMsg = ##class(Ens.StreamContainer).%New()
  Set newMsg.Stream = ##class(%Stream.GlobalCharacter).%New()
  do newMsg.Stream.Write(tJsonStr)
  W newMsg.Stream.Read()
 

Output:

{
  "name":"Janko",
  "surname":"Hrasko",
  "colors":[
    "blue",
    "green",
    "yellow"
  ]
}

Thanks,

Prasanth Annamreddy · Dec 17, 2025 go to post

Hi Scott,

The Service configuration does not require credentials, but the DNS name is required. You must create a SQL Gateway connection with an ODBC connection name (localhost, superserver port), along with Healthashare credentials.

Thanks,

Prasanth Annamreddy · Dec 17, 2025 go to post

Hi,

The HeaderId and Target are required parameters for tihs method.

ClassMethod ResendDuplicatedMessage(pOriginalHeaderId As %String, Output pNewHeaderId As %String, pNewTarget As %String, pNewBody As %RegisteredObject, pNewSource As %String, pHeadOfQueue As %Boolean) As %Status
 

Can try like  Set tSC = ##class(Ens.MessageHeader).ResendDuplicatedMessage(context.tId,,context.pNewTarget)

Thanks,