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 WCFRequestedProcedureTest()
Try
Dim procedure As WCFRequestedProcedure = Nothing
procedure = _BrokerService.FindRequestedProcedure("1200", "1300")
If Not procedure Is Nothing Then
_BrokerService.DeleteRequestedProcedure("1200", "1300")
End If
procedure = New WCFRequestedProcedure()
procedure.RequestedProcedureID = "1300"
procedure.StudyInstanceUID = "1.2.345.6.789"
procedure.RequestedProcedureDescription = "My Description"
_BrokerService.AddRequestedProcedure("1200", procedure)
procedure = _BrokerService.FindRequestedProcedure("1200", "1300")
If Not procedure Is Nothing Then
procedure.PatientTransportArrangements = "Bus"
_BrokerService.UpdateRequestedProcedure("1200", "1300", procedure)
End If
Dim ids As String() = _BrokerService.GetRequestedProcedureIDs("1200")
For Each id As String In ids
Console.WriteLine(id)
Next id
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 RequestedProcedureTest()
{
try
{
WCFRequestedProcedure procedure = null;
procedure = _BrokerService.FindRequestedProcedure("1200", "1300");
if (procedure != null)
_BrokerService.DeleteRequestedProcedure("1200", "1300");
procedure = new WCFRequestedProcedure();
procedure.RequestedProcedureID = "1300";
procedure.StudyInstanceUID = "1.2.345.6.789";
procedure.RequestedProcedureDescription = "My Description";
_BrokerService.AddRequestedProcedure("1200", procedure);
procedure = _BrokerService.FindRequestedProcedure("1200", "1300");
if (procedure != null)
{
procedure.PatientTransportArrangements = "Bus";
_BrokerService.UpdateRequestedProcedure("1200", "1300", procedure);
}
string[] ids = _BrokerService.GetRequestedProcedureIDs("1200");
foreach (string id in ids)
{
Console.WriteLine(id);
}
}
catch (Exception e)
{
Debug.WriteLine(e.Message);
}
}