AddPatient Method (IBrokerService)

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