I am a Profilic Blogger (36 articles)!

Great year, in this year I will write more articles and learn a lot with you

https://community.intersystems.com/post/debug-objectscript-code-using-v…

Yes, because the Edge is usually remote, so I used but calling the remote Web Service:

1. Create the web service client from the WSDL http://<IP>:<PORT>/<NAMESPACE>/csp/healthshare/hsedge/HS.Gateway.HSWS.WebServices.cls?wsdl. (more details: https://docs.intersystems.com/hs20221/csp/docbook/DocBook.UI.Page.cls?K…)

1.1 To create the web service client classes do (https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cl…):

set r=##class(%SOAP.WSDL.Reader).%New() 
GSOAP>set url="http://<IP>:<PORT>/<NAMESPACE>/csp/healthshare/hsedge/HS.Gateway.HSWS.WebServices.cls?wsdl"
 
GSOAP>d r.Process(url, "targetpackagename")

2. Use the SOAP generated class to consume EPRSave():

Class package.NameOperation Extends Ens.BusinessOperation
{

Parameter ADAPTER = "EnsLib.SOAP.OutboundAdapter";
Parameter INVOCATION = "Queue";
Method SendSDA(pRequest As pack.WSReq, Output pResponse As pack.Resp) As %Status
{
  
  Set tSC = 1
  Set sda = ""
  Set pResponse = ##class(pack.Resp).%New() 

  Try {
    
    While 'pRequest.sda.AtEnd {
      Set sda = sda_pRequest.sda.ReadLine() 
    }
    
    Set request = ##class(hcd.ECRUpdateRequest).%New()
    Set request.UpdateECRDemographics = 1
    Set request.AllowFacilityAsAssigningAuthority = 0
    Set request.StreamContentType = "SDA3"
    Set request.ContentStream = sda
    Set client = ##class(hcd.HS.Gateway.HSWS.WebServicesSoap).%New()
    Do ##class(Ens.Util.Log).LogInfo($classname(),"SendSDA","Send SDA to: "_client.Location)
    Set client.SSLConfiguration = "HCD_SSL"
    Set cred = ##class(Ens.Config.Credentials).%OpenId("HS_Services")
    Set wsuser = cred.Username
    Set wspass = cred.Password  
    Do client.WSSecurityLogin(wsuser,wspass) 
    Do client.EPRSave(request, .response)
    Set pResponse.response = "OK"
    Set pResponse.response = "SDA sent"
  } Catch ex {
    Set tSC = 1
    Do ##class(Ens.Util.Log).LogError($classname(),"SendSDA",$System.Status.GetErrorText(%objlasterror))
    Set pResponse.response = "Not OK"
    Set pResponse.response = "Error while sending SDA. Details: "_$System.Status.GetErrorText(%objlasterror)
    Set ..SuspendMessage = 1
  }

  Return tSC
}

XData MessageMap
{
<MapItems>
  <MapItem MessageType="pack.WSReq">
    <Method>SendSDA</Method>
  </MapItem>
</MapItems>
}

}

For business scenarios will be very useful, for developers is better to use docs, learning, discord and community tools

Great video!

Congrats winners!

Congrats for this fundamental topic, great!

My choices: @Robert Cemper, Terry Ragon, Tim Bernold-Lee and Linus Torvalds

You can find a sample here: https://openexchange.intersystems.com/package/custom2sda

https://community.intersystems.com/post/create-stored-procedures-using-…

Gamification is a good option, see more details: https://www.limber.io/en/gamification-to-promote-your-most-active-users/. Intersystems Community uses gamification into Global masters, and it is well done case

Congrats @Muhammad Waseem 

I claim python embedded bonus, sambaservice class uses python: https://raw.githubusercontent.com/yurimarx/samba-iris-adapter/master/sr…

Is it required use dtl, bpl and adapters to be considered an interoperability solution?

Congrats! I am proud to be part of this history.

Very nice article

Many thanks Community, I ready to the next 100 articles and more 25 apps!

use embedded python with the python lib in this link: https://www.geeksforgeeks.org/how-to-make-a-barcode-reader-in-python/