AddPatient Method (IBrokerService)

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

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