LEADTOOLS Medical (Leadtools.Medical.Worklist.Wcf assembly)

AddRequestedProcedure Method (BrokerService)

Show in webframe
Example 





A departmental IS-generated number that identifies the order for the Imaging Service Request.
The requested procedure to add.
Adds the requested procedure to the worklist database.
Syntax
public void AddRequestedProcedure( 
   string accessionNumber,
   WCFRequestedProcedure procedure
)
'Declaration
 
Public Sub AddRequestedProcedure( _
   ByVal accessionNumber As String, _
   ByVal procedure As WCFRequestedProcedure _
) 
'Usage
 
Dim instance As BrokerService
Dim accessionNumber As String
Dim procedure As WCFRequestedProcedure
 
instance.AddRequestedProcedure(accessionNumber, procedure)

            

            
public:
void AddRequestedProcedure( 
   String^ accessionNumber,
   WCFRequestedProcedure^ procedure
) 

Parameters

accessionNumber
A departmental IS-generated number that identifies the order for the Imaging Service Request.
procedure
The requested procedure to add.
Example
Copy Code  
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);
    }
}
Requirements

Target Platforms

See Also

Reference

BrokerService Class
BrokerService Members

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.