Imports Leadtools
Imports Leadtools.Examples
Imports Leadtools.Medical.WebViewer.ExternalControl
Private Sub MedicalWebViewerExternalController_FindPatient()
Dim applicationName As String
Dim version As String
Dim externalControlPort As Integer = 500
Const jonesPatientId As String = "12341234"
Dim firstName As String = String.Empty
Dim lastName As String = String.Empty
Dim username As String = "bob"
Dim password As String = "bob"
Dim viewerUrl As String = "http://localhost/MedicalViewer"
Dim controller As New MedicalWebViewerExternalController(viewerUrl)
applicationName = String.Empty
version = String.Empty
controller.Timeout = 30
controller.InitApplication(applicationName, version, externalControlPort)
controller.SelectedBrowser = MedicalWebViewerBrowser.GoogleChrome
' Login and display a patient, then logout
controller.UserLogin(username, password)
Dim patients As New List(Of PatientInfo)()
Dim options As FindPatientOptions = FindPatientOptions.All
controller.FindPatient(jonesPatientId, options, patients)
If (patients.Count > 0) Then
Dim sMsg As String = String.Format("PatientID[{0}]: Name[{1}])", jonesPatientId, patients(0).Name)
MessageBox.Show(sMsg)
End If
controller.CloseApplication()
' Shutdown the command queue
controller.Shutdown()
End Sub
using Leadtools;
using Leadtools.Examples;
using Leadtools.Medical.WebViewer.ExternalControl;
private void MedicalWebViewerExternalController_FindPatient()
{
string applicationName;
string version;
int externalControlPort = 500;
const string jonesPatientId = "12341234";
string firstName;
string lastName;
string username = "bob";
string password = "bob";
string viewerUrl = "http://localhost/MedicalViewer/";
MedicalWebViewerExternalController controller = new MedicalWebViewerExternalController(viewerUrl);
controller.InitApplication(out applicationName, out version, externalControlPort);
controller.SelectedBrowser = MedicalWebViewerBrowser.GoogleChrome;
// Login and display a patient, then logout
controller.UserLogin(username, password);
List<PatientInfo> patients = new List<PatientInfo>();
FindPatientOptions options = FindPatientOptions.All;
controller.FindPatient(jonesPatientId, options, patients);
if (patients.Count > 0)
{
string sMsg = string.Format("PatientID[{0}]: Name[{1}]", jonesPatientId, patients[0].Name);
MessageBox.Show(sMsg);
}
controller.CloseApplication();
// Shutdown the command queue
controller.Shutdown();
}