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 ScheduledProcedureStepTest()
Try
Dim procedureStep As WCFScheduledProcedureStep = Nothing
procedureStep = _BrokerService.FindScheduledProcedureStep("123.456.89000000")
If Not procedureStep Is Nothing Then
_BrokerService.DeleteScheduledProcedureStep("123.456.89000000")
End If
procedureStep = New WCFScheduledProcedureStep()
procedureStep.ScheduledProcedureStepID = "123.456.89000000"
procedureStep.ScheduledProcedureStepStartDate_Time = New Leadtools.Dicom.Common.DataTypes.DateRange() With {.StartDate = DateTime.Now}
procedureStep.Modality = "CT"
procedureStep.ScheduledProcedureStepDescription = "Procedure Step Description"
procedureStep.ScheduledStationAETitle = New List(Of String)()
procedureStep.ScheduledStationAETitle.Add(Environment.MachineName)
_BrokerService.AddScheduledProcedureStep("1200", "1300", procedureStep)
procedureStep = _BrokerService.FindScheduledProcedureStep("123.456.89000000")
If Not procedureStep Is Nothing Then
procedureStep.ScheduledStationName = New List(Of String)()
procedureStep.ScheduledStationName.Add("My Station Name")
_BrokerService.UpdateScheduledProcedureStep("123.456.89000000", procedureStep)
End If
Dim ids As String() = _BrokerService.GetScheduledProcedureStepIDs("1200", "1300")
For Each id As String In ids
Console.WriteLine(id)
Next id
Catch e As Exception
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 ScheduledProcedureStepTest()
{
try
{
WCFScheduledProcedureStep procedureStep = null;
procedureStep = _BrokerService.FindScheduledProcedureStep("123.456.89000000");
if (procedureStep != null)
_BrokerService.DeleteScheduledProcedureStep("123.456.89000000");
procedureStep = new WCFScheduledProcedureStep();
procedureStep.ScheduledProcedureStepID = "123.456.89000000";
procedureStep.ScheduledProcedureStepStartDate_Time = new Leadtools.Dicom.Common.DataTypes.DateRange() { StartDate = DateTime.Now };
procedureStep.Modality = "CT";
procedureStep.ScheduledProcedureStepDescription = "Procedure Step Description";
procedureStep.ScheduledStationAETitle = new List<string>();
procedureStep.ScheduledStationAETitle.Add(Environment.MachineName);
_BrokerService.AddScheduledProcedureStep("1200", "1300", procedureStep);
procedureStep = _BrokerService.FindScheduledProcedureStep("123.456.89000000");
if (procedureStep != null)
{
procedureStep.ScheduledStationName = new List<string>();
procedureStep.ScheduledStationName.Add("My Station Name");
_BrokerService.UpdateScheduledProcedureStep("123.456.89000000", procedureStep);
}
string[] ids = _BrokerService.GetScheduledProcedureStepIDs("1200", "1300");
foreach (string id in ids)
{
Console.WriteLine(id);
}
}
catch (Exception e)
{
Console.WriteLine(e.Message);
}
}