AddPatient Method (BrokerService)

Visual Basic
C#
WinRT C#
WinRT JavaScript
C++

public void AddPatient( 
   WCFPatient patient
)

'Declaration
 
Public Sub AddPatient( _
   ByVal patient As WCFPatient _
)

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

public void AddPatient( 
   WCFPatient patient
)

 function Leadtools.Medical.Worklist.Wcf.Service.BrokerService.AddPatient( 
   patient 
)

public:
void AddPatient( 
   WCFPatient^ patient
)

Parameters

patient: The patient record to add.

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

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

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: 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

Reference

BrokerService Class
BrokerService Members