In This Topic ▼

AddVisit Method

Summary

Adds the specified visit to the worklist database.

Syntax

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.

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

Reference

BrokerService Class

BrokerService Members

Download our FREE evaluation

Help Version 20.0.2020.3.31

Leadtools.Medical.Worklist.Wcf Assembly

Introduction

Getting Started

Namespaces

Leadtools.Medical.Worklist.Wcf.Entities Namespace

Leadtools.Medical.Worklist.Wcf.Service Namespace

Leadtools.Medical.Worklist.Wcf.Utils Namespace

Assemblies