ISPatient.Encounters

Description

The contacts of the patient with the organisation for one or more reasons (diagnoses).

Syntax

object.Encounters

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface

Restriction: This property is readonly.

Return Value

ISPatientEncounters

Example

Display the number of the patient's encounters, their dates and services, associated with them.

Dim aPatient  
Dim aEncounters
Dim aEncounter
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aEncounters = aPatient.Encounters
aMessage = "Encounters Count = " & aEncounters.All.Count

for i = 0 to aEncounters.All.Count - 1
  set aEncounter = aPatient.Encounters.All.Item(i)
  aMessage = aMessage & vbNewLine
if aEncounter.Service is nothing then
  aMessage = aMessage & " " & aEncounter.Date 
else
  aMessage = aMessage & " " & aEncounter.Date & ", " & aEncounter.Service.Description
end if  
next 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Encounters can be found in Clinical > Medical Record > Encounters.

Version information

Added in v7.8.0