Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction - All Topics | Help Version 19.0.8.25
|
Leadtools.Medical.Worklist.Wcf.Service Namespace > BrokerService Class : AddVisit Method |
Shows how to use the visit specific methods of the broker service.
Imports Leadtools Imports Leadtools.Medical.Worklist.Wcf.Service Imports Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters Imports Leadtools.Dicom Imports Leadtools.Medical.Worklist.Wcf.Entities <TestMethod()> _ 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; [TestMethod] 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); } }