AddPatient Method

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