تصميم عمليات الأعمال

Operations مسؤولة عن إرسال الرسائل إلى الأنظمة الخارجية.

Class MyApp.Operation.HTTP Extends Ens.BusinessOperation {
  Parameter ADAPTER = "EnsLib.HTTP.OutboundAdapter";
  Method SendRequest(pRequest, Output pResponse) As %Status {
    Set http = ##class(%Net.HttpRequest).%New()
    Do http.EntityBody.Write(pRequest.ToJSON())
    Set sc = ..Adapter.SendFormDataArray(.resp, "POST", http)
    Set pResponse = ##class(MyApp.Response).%New()
    Set pResponse.Status = resp.StatusCode
    Return sc
  }
}

معالجة الأخطاء بشكل صحيح أمر حاسم.

Method OnRetry(pRequest, pResponse, pError) As %Status {
  Set delay = $Case(..RetryCount, 0:1, 1:5, 2:15, :60)
  Hang delay
  Return $$$OK
}

Business Processes تتيح تصميم منطق معالجة معقد.

// Business Process مع شروط
Class MyApp.Process.OrderProcess Extends Ens.BusinessProcess {
  Property MinAmount As %Numeric [ InitialExpression = 1000 ];
  
  Method OnRequest(request As MyApp.OrderRequest, Output response As MyApp.OrderResponse) {
    // التحقق من المبلغ
    If request.Amount > ..MinAmount {
      // موافقة تلقائية
      Set response = ##class(MyApp.OrderResponse).%New()
      Set response.Status = "Approved"
      Set response.Approver = "Auto"
    } Else {
      // إرسال للموافقة اليدوية
      Set sc = ..SendRequestSync("MyApp.Operation.Approval", request, .approvalResponse)
      Set response = approvalResponse
    }
    
    // تسجيل الحدث
    Do ..LogEvent("Order " _ request.OrderId _ ": " _ response.Status)
  }
}