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 VistTest()
Try
Dim visit As WCFVisit = _BrokerService.FindVisit("VS123")
If Not visit Is Nothing Then
_BrokerService.DeleteVisit("VS123")
End If
visit = New WCFVisit()
visit.AdmissionID = "VS123"
visit.ReferencedPatientSequence = Nothing
_BrokerService.AddVisit(visit)
visit = _BrokerService.FindVisit("VS123")
If Not visit Is Nothing Then
visit.CurrentPatientLocation = "EXAM 1"
_BrokerService.UpdateVisit("VS123", visit)
End If
Dim ids As String() = _BrokerService.GetAdmissionIDs()
For Each id As String In ids
Console.WriteLine(id)
Next id
Catch e As Exception
Console.WriteLine(e.Message)
End Try
End Sub
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 VistTest()
{
try
{
WCFVisit visit = _BrokerService.FindVisit("VS123");
if (visit != null)
_BrokerService.DeleteVisit("VS123");
visit = new WCFVisit();
visit.AdmissionID = "VS123";
visit.ReferencedPatientSequence = null;
_BrokerService.AddVisit(visit);
visit = _BrokerService.FindVisit("VS123");
if(visit!=null)
{
visit.CurrentPatientLocation = "EXAM 1";
_BrokerService.UpdateVisit("VS123", visit);
}
string[] ids = _BrokerService.GetAdmissionIDs();
foreach (string id in ids)
{
Console.WriteLine(id);
}
}
catch (Exception e)
{
Console.WriteLine(e.Message);
}
}