AddImagingServiceRequest Method (BrokerService)

Visual Basic
C#
Objective-C
Java
C++

public void AddImagingServiceRequest( 
   string patientID,
   string issuerOfPatientID,
   ImagingServiceRequest request
)

'Declaration
 
Public Sub AddImagingServiceRequest( _
   ByVal patientID As String, _
   ByVal issuerOfPatientID As String, _
   ByVal request As ImagingServiceRequest _
)

'Usage
 
Dim instance As BrokerService
Dim patientID As String
Dim issuerOfPatientID As String
Dim request As ImagingServiceRequest
 
instance.AddImagingServiceRequest(patientID, issuerOfPatientID, request)

public:
void AddImagingServiceRequest( 
   String^ patientID,
   String^ issuerOfPatientID,
   ImagingServiceRequest^ request
)

Parameters

patientID: Primary hospital identification number or code for the Patient.
issuerOfPatientID: Name of healthcare provider that issued the Patient ID.
request: The imaging service request to add.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

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 ImagingServiceRequestTest()
    Try
        Dim request As ImagingServiceRequest

        request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246")
        If Not request Is Nothing Then
            _BrokerService.DeleteImagingServiceRequest("1200", "000000", "246")
        End If

        request = New ImagingServiceRequest()
        request.AccessionNumber = "1200"
        request.ImagingServiceRequestComments = "My Comments"
        _BrokerService.AddImagingServiceRequest("000000", "246", request)

        request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246")
        If Not request Is Nothing Then
            request.RequestingService = "My Department"
            _BrokerService.UpdateImagingServiceRequest("1200", "000000", "246", request)
        End If

        Dim accNumbers As String() = _BrokerService.GetAccessionNumbers("000000", "246")

        For Each accNumber As String In accNumbers
            Console.WriteLine(accNumber)
        Next accNumber
    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 ImagingServiceRequestTest()
{
    try
    {
        ImagingServiceRequest request;

        request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246");
        if (request != null)
            _BrokerService.DeleteImagingServiceRequest("1200", "000000", "246");

        request = new ImagingServiceRequest();
        request.AccessionNumber = "1200";
        request.ImagingServiceRequestComments = "My Comments";
        _BrokerService.AddImagingServiceRequest("000000", "246", request);

        request = _BrokerService.FindImagingServiceRequest("1200", "000000", "246");
        if (request != null)
        {
            request.RequestingService = "My Department";
            _BrokerService.UpdateImagingServiceRequest("1200", "000000", "246", request);
        }

        string[] accNumbers = _BrokerService.GetAccessionNumbers("000000", "246");

        foreach (string accNumber in accNumbers)
        {
            Console.WriteLine(accNumber);
        }
    }
    catch (Exception e)
    {
        Debug.WriteLine(e.Message);
    }
}

Target Platforms

Reference

BrokerService Class
BrokerService Members