Inserts a patient's record into the broker database.
public void AddPatient(
WCFPatient patient
)
Public Sub AddPatient( _
ByVal patient As WCFPatient _
)
public:
void AddPatient(
WCFPatient^ patient
)
patient
The patient record to add.
Shows how to use the patient-specific methods of the broker service.
using Leadtools;
using Leadtools.Medical.Worklist.Wcf.Service;
using Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters;
using Leadtools.Dicom;
using Leadtools.Medical.Worklist.Wcf.Entities;
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);
}
}
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
Help Collections
Raster .NET | C API | C++ Class Library | HTML5 JavaScript
Document .NET | C API | C++ Class Library | HTML5 JavaScript
Medical .NET | C API | C++ Class Library | HTML5 JavaScript
Medical Web Viewer .NET
Multimedia
Direct Show .NET | C API | Filters
Media Foundation .NET | C API | Transforms
Supported Platforms
.NET, Java, Android, and iOS/macOS Assemblies
Imaging, Medical, and Document
C API/C++ Class Libraries
Imaging, Medical, and Document
HTML5 JavaScript Libraries
Imaging, Medical, and Document
Your email has been sent to support! Someone should be in touch! If your matter is urgent please come back into chat.
Chat Hours:
Monday - Friday, 8:30am to 6pm ET
Thank you for your feedback!
Please fill out the form again to start a new chat.
All agents are currently offline.
Chat Hours:
Monday - Friday
8:30AM - 6PM EST
To contact us please fill out this form and we will contact you via email.