Imports Leadtools
Imports Leadtools.Medical.Worklist.Wcf.Service
Imports Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters
Imports Leadtools.Dicom
Imports Leadtools.Medical.Worklist.Wcf.Entities
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;
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);
}
}