#Business Service

4 Followers · 219 Posts

A business service is part of InterSystems Ensemble interoperability production which is responsible for accepting requests from external applications.

Contestant
Article Rob Ellis · 11 hr ago 5m read

When managing critical healthcare data through an integration engine you want to know the moment a queue starts backing up or a service drops. 

Unfortunately, this usually leads to an email inbox stuffed full of notifications that can sometimes seem impossible to maintain.

Well, I’ve not solved that problem. 

But I have created something that could help...

2
2 31
Question Scott Roth · Apr 6

I am trying to built a Task that kicks off a Workflow to pull data into HSPD, and when I try to test the Task

ClassMethod TestTask()
{set tTask = ##class(OSU.Workday.TerminationsTask).%New()set tTask.DaysBack = 1 $$$ThrowOnError(tTask.OnTask())}

I keep getting TestTask+3^OSU.Workday.TerminationsTask.1 *%Exception.StatusException ERROR <Ens>ErrConfigDisabled: Configuration item 'OSU.DataSource.Workday.TermService' is disabled

But within the Namespace the OSU.DataSource.Workday.TermService shows enabled.

Here is my Task that I am using...

Class OSU.Workday.TerminationsTask Extends %SYS.Task.Definition
{

Parameter TaskName As STRING = "OSU - Workday Termination Update";

Property DaysBack As %Integer [ InitialExpression = 1 ];

Method OnTask() As %Status
{
    #Dim sc as %Status
    #Dim ex as %Exception.AbstractException
    
    set sc = $$$OK

    try{
        // create the service
        #Dim tService As OSU.DataSource.Workday.TermService
        Set tServiceConfigName = "OSU.DataSource.Workday.TermService"
        
        // Call BusinessService
        $$$ThrowOnError(##class(Ens.Director).CreateBusinessService(tServiceConfigName,.tService))
        
        // Create Request
        set tRequest = ##class(OSU.Workday.Messages.InactivatedRecordsRequest).%New()
        set tRequest.DaysBack = ..DaysBack
        
        set (tHint) = ""
        
        // Send Request to tService
        $$$ThrowOnError(tService.OnProcessInput(tRequest))
        
    }catch ex{
        set tSC = ex.AsStatus()
    }
    quit tSC
}

ClassMethod TestTask()
{
	set tTask = ##class(OSU.Workday.TerminationsTask).%New()
    set tTask.DaysBack = 1
    $$$ThrowOnError(tTask.OnTask())
}

/// Location and Revision of this file in Perforce (Auto-updating)
Parameter SrcVer = "$Id$";

}
7
0 71