Leadtools.Medical.Worklist.Wcf.Service Namespace > BrokerService Class : AddScheduledProcedureStep Method |
public void AddScheduledProcedureStep( string accessionNumber, string requestedProcedureID, WCFScheduledProcedureStep procedureStep )
'Declaration Public Sub AddScheduledProcedureStep( _ ByVal accessionNumber As String, _ ByVal requestedProcedureID As String, _ ByVal procedureStep As WCFScheduledProcedureStep _ )
'Usage Dim instance As BrokerService Dim accessionNumber As String Dim requestedProcedureID As String Dim procedureStep As WCFScheduledProcedureStep instance.AddScheduledProcedureStep(accessionNumber, requestedProcedureID, procedureStep)
public void AddScheduledProcedureStep( string accessionNumber, string requestedProcedureID, WCFScheduledProcedureStep procedureStep )
function Leadtools.Medical.Worklist.Wcf.Service.BrokerService.AddScheduledProcedureStep( accessionNumber , requestedProcedureID , procedureStep )
public: void AddScheduledProcedureStep( String^ accessionNumber, String^ requestedProcedureID, WCFScheduledProcedureStep^ procedureStep )
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
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); } }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2