AddPatient Method (IBrokerService)

C#
Visual Basic
Objective-C
Java
C++

[OperationContractAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
void AddPatient( 
   WCFPatient patient
)

'Declaration
 
<OperationContractAttribute()>
<FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
Sub AddPatient( _
   ByVal patient As WCFPatient _
)

'Usage
 
Dim instance As IBrokerService
Dim patient As WCFPatient
 
instance.AddPatient(patient)

[OperationContractAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
void AddPatient( 
   WCFPatient^ patient
)

Parameters

patient: The patient record to add.

Shows how to use the patient specific-methods of the broker service.

C#
Visual Basic
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

<TestMethod()> _
Public Sub PatientTest()
   Try
      Dim patient As WCFPatient = Nothing
      '
      ' Find and delete the patient
      '
      patient = _BrokerService.FindPatient("000000", "246")
      If Not patient Is Nothing Then
         _BrokerService.DeletePatient("000000", "246")
      End If
      patient = New WCFPatient()
      patient.IssuerOfPatientID = "246"
      patient.PatientID = "000000"
      patient.PatientNameFamilyName = "Family"
      patient.PatientNameGivenName = "Given"
      patient.PatientSex = "M"

      '
      ' Add the patient
      '
      _BrokerService.AddPatient(patient)

      '
      ' Search for the patient
      '
      patient = _BrokerService.FindPatient("000000", "246")
      If Not patient Is Nothing Then
         patient.AdditionalPatientHistory = "Additional History"
         _BrokerService.UpdatePatient("000000", "246", patient)
      End If

      '
      ' List all patient ids
      '
      Dim ids As String() = _BrokerService.GetPatientIDs()

      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 PatientTest()
{
    try
    {
        WCFPatient patient = null;
        //
        // Find and delete the patient
        //

        patient = _BrokerService.FindPatient("000000", "246");
        if (patient != null)
            _BrokerService.DeletePatient("000000", "246");

        patient = new WCFPatient();
        patient.IssuerOfPatientID = "246";
        patient.PatientID = "000000";
        patient.PatientNameFamilyName = "Family";
        patient.PatientNameGivenName = "Given";
        patient.PatientSex = "M";

        //
        // Add the patient
        //


        _BrokerService.AddPatient(patient);

        //
        // Search for the patient
        //


        patient = _BrokerService.FindPatient("000000", "246");
        if (patient != null)
        {
            patient.AdditionalPatientHistory = "Additional History";
            _BrokerService.UpdatePatient("000000", "246", patient);
        }

        //
        // List all patient ids
        //


        string[] ids = _BrokerService.GetPatientIDs();

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

Target Platforms

Reference

IBrokerService Interface
IBrokerService Members