Leadtools.Medical.Worklist.Wcf.Service Namespace > BrokerService Class : AddVisit Method |
'Usage Dim instance As BrokerService Dim visit As WCFVisit instance.AddVisit(visit)
function Leadtools.Medical.Worklist.Wcf.Service.BrokerService.AddVisit( visit )
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
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); } }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2