ISEncounters.Item

Description

Each of the encounters within the collection.

Syntax

object.Item(eIndex)

Part	Attribute	Type	Description
`object`	Required	ISEncounters	The `object` always implements the ISEncounters interface
`eIndex`	In, Required	int	The index of the encounter

Restriction: This property is readonly.

Return Value

ISEncounter

Example

Display the number of the encounters loaded on the basis of the selected filter, their dates and contact subjects.

Dim aPatient
Dim aFilter  
Dim aEncounters, aEncounter
Dim i, j
Dim aContact
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aFilter = Profile.CreateEncounterFilter
aFilter.PatientId = aPatient.ID 
set aEncounters = aPatient.LoadEncounters(aFilter)

aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & "The encounter on " & aEncounter.date & ":"
  if aEncounter.Contacts.Count <> 0 then
    for j = 0 to aEncounter.Contacts.Count -1
      set aContact = aEncounter.Contacts.Item(j)
      aMessage = aMessage & vbNewLine & "    -Contact Subject: " & aContact.Subject
    next
  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