AddVisit Method

Summary

Adds the specified visit to the worklist database.

Syntax
C#
VB
C++
public void AddVisit( 
   WCFVisit visit 
) 
  
Public Sub AddVisit( _ 
   ByVal visit As WCFVisit _ 
)  
public: 
void AddVisit(  
   WCFVisit^ visit 
)  

Parameters

visit
Identification number of the visit as assigned by the healthcare provider.

Example

Shows how to use the visit specific methods of the broker service.

C#
VB
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); 
   } 
} 
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 

Requirements

Target Platforms

Help Version 20.0.2019.9.19
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Medical.Worklist.Wcf Assembly