User bio

My name is Robert Barbiaux, and I am from Belgium.

I've been interested in science and technology since 1979. At age twelve, I first encountered computing through programmable calculators and 8-bit computers like the Radio Shack TRS-80.

I hold a degree in computer science from Brussels Free University and have worked in IT since 1990 in roles including developer, analyst, system engineer, and development team leader.

Over the years, I have gained experience with IT across multiple business and industry sectors such as steel, retail, banking, and healthcare. My background includes work in various operating environments (Unix, Windows, etc.) and programming languages (C, C++, Object Pascal, Java, etc.).

My initial experience with InterSystems technologies began with Caché in 2006 while working in the healthcare sector. Since then, I have used Ensemble and IRIS Health primarily for interoperability projects and have developed expertise in healthcare IT.

Currently, I am engaged as a freelance healthcare IT consultant at a hospital, providing services as an analyst, developer, coach, and specialist in healthcare IT.

Show all
Member since Jun 6, 2021
Posts:
show all 5
Replies:
show all 73
Robert Barbiaux · 11 hr ago go to post

Yes. In addition, to prevent the default Ens.BusinessService behavior to call adapter OnTask() every CallInterval seconds, you can override the OnTask() method of the business service.
And while we are at it 😁 add  a TriggerService() class method, and use it in the scheduled task to trigger the service adapter just once :
 


Class dc.sql.TriggeredSQLService Extends EnsLib.SQL.Service.GenericService
{

Method OnTask() As %Status
{
    // do nothing
}

Method Trigger() As %Status
{
    return ..Adapter.OnTask()
}

ClassMethod TriggerService(configName As Ens.DataType.ConfigName) As %Status
{
  #Dim sc as %Status
  #Dim ex as %Exception.AbstractException

  #Dim service as Ens.BusinessService
  
  s sc = $$$OK
  try {
    $$$TOE(sc,##class(Ens.Director).CreateBusinessService(configName,.service))
    if service.%Extends($classname()) {
        $$$TOE(sc,service.Trigger())
    }    
  }
  catch (ex) {
    s sc = ex.AsStatus()
  }
  return sc
}

}
Robert Barbiaux · Mar 10 go to post

For polling adapters such as EnsLib.SQL.InboundAdapter, calling the adapter's OnTask() method should trigger one run. Something like

ClassMethod CallServiceAdapter(targetConfigName As Ens.DataType.ConfigName) As %Status
{
  #Dim sc as %Status
  #Dim ex as %Exception.AbstractException

  #Dim service as Ens.BusinessService
  
  s sc = $$$OK
  try {
    $$$TOE(sc,##class(Ens.Director).CreateBusinessService(targetConfigName,.service))
    $$$TOE(sc,service.Adapter.OnTask())
  }
  catch (ex) {
    s sc = ex.AsStatus()
  }
  return sc
}
Open Exchange applications:
ks-iris-lib
ks-fhir-gen
Certifications & Credly badges:
Robert has no Certifications & Credly badges yet.
Followers:
show all 2
Herlander S.
Liubov Z.
Following:
Robert has not followed anybody yet.