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 : AddRequestedProcedure Method |
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=false)] [OperationContractAttribute()] void AddRequestedProcedure( string accessionNumber, WCFRequestedProcedure procedure )
'Declaration <FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=False)> <OperationContractAttribute()> Sub AddRequestedProcedure( _ ByVal accessionNumber As String, _ ByVal procedure As WCFRequestedProcedure _ )
'Usage Dim instance As IBrokerService Dim accessionNumber As String Dim procedure As WCFRequestedProcedure instance.AddRequestedProcedure(accessionNumber, procedure)
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, Action="", Name="", Namespace="", ProtectionLevel=ProtectionLevel.None, HasProtectionLevel=false)] [OperationContractAttribute()] void AddRequestedProcedure( String^ accessionNumber, WCFRequestedProcedure^ procedure )
Shows how to use the requested procedure 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 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; [TestMethod] 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); } }