Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction - All Topics | Help Version 19.0.8.25
|
Leadtools.Medical.Worklist.Wcf.Service Namespace > IBrokerService Interface : AddImagingServiceRequest Method |
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=false)] [OperationContractAttribute()] void AddImagingServiceRequest( string patientID, string issuerOfPatientID, ImagingServiceRequest request )
'Declaration <FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=False)> <OperationContractAttribute()> Sub AddImagingServiceRequest( _ ByVal patientID As String, _ ByVal issuerOfPatientID As String, _ ByVal request As ImagingServiceRequest _ )
'Usage Dim instance As IBrokerService Dim patientID As String Dim issuerOfPatientID As String Dim request As ImagingServiceRequest instance.AddImagingServiceRequest(patientID, issuerOfPatientID, request)
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=false)] [OperationContractAttribute()] void AddImagingServiceRequest( String^ patientID, String^ issuerOfPatientID, ImagingServiceRequest^ request )
Shows how to use the image service request specific-methods of the broker service.
Imports Leadtools Imports Leadtools.Medical.Worklist.Wcf.Service Imports Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters Imports Leadtools.Dicom Imports Leadtools.Medical.Worklist.Wcf.Entities <TestMethod()> _ Public Sub ImagingServiceRequestTest() Try Dim request As ImagingServiceRequest request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246") If Not request Is Nothing Then _BrokerService.DeleteImagingServiceRequest("1200", "000000", "246") End If request = New ImagingServiceRequest() request.AccessionNumber = "1200" request.ImagingServiceRequestComments = "My Comments" _BrokerService.AddImagingServiceRequest("000000", "246", request) request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246") If Not request Is Nothing Then request.RequestingService = "My Department" _BrokerService.UpdateImagingServiceRequest("1200", "000000", "246", request) End If Dim accNumbers As String() = _BrokerService.GetAccessionNumbers("000000", "246") For Each accNumber As String In accNumbers Console.WriteLine(accNumber) Next accNumber Catch e As Exception Debug.WriteLine(e.Message) End Try End Sub
using Leadtools; using Leadtools.Medical.Worklist.Wcf.Service; using Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters; using Leadtools.Dicom; using Leadtools.Medical.Worklist.Wcf.Entities; [TestMethod] public void ImagingServiceRequestTest() { try { ImagingServiceRequest request; request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246"); if (request != null) _BrokerService.DeleteImagingServiceRequest("1200", "000000", "246"); request = new ImagingServiceRequest(); request.AccessionNumber = "1200"; request.ImagingServiceRequestComments = "My Comments"; _BrokerService.AddImagingServiceRequest("000000", "246", request); request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246"); if (request != null) { request.RequestingService = "My Department"; _BrokerService.UpdateImagingServiceRequest("1200", "000000", "246", request); } string[] accNumbers = _BrokerService.GetAccessionNumbers("000000", "246"); foreach (string accNumber in accNumbers) { Console.WriteLine(accNumber); } } catch (Exception e) { Debug.WriteLine(e.Message); } }