ISPatientEncounters.LastNumber

Description

The specified number of the last patient's encounters with the selected POS and provider.

Syntax

object.LastNumber(aCountEncounters[, aCumulativeOnly = true[, aPOSCode = ""[, aProviderCode = ""]]])

Part	Attribute	Type	Description
`object`	Required	ISPatientEncounters	The `object` always implements the ISPatientEncounters interface
`aCountEncounters`	In, Required	int	The number of the last patient's encounters to return
`aCumulativeOnly`	In, Optional Default value is true	bool	If aCumulativeOnly = True the property returns only cumulative encounters of the patient. Otherwise, all the patient's encounters are returned.
`aPOSCode`	In, Optional Default value is ""	string	The code of the POS
`aProviderCode`	In, Optional Default value is ""	string	The code of the provider

Restriction: This property is readonly.

Return Value

ISEncounters

Example

Display the specified number of the last patient's encounters with the selected POS and provider, their dates and contacts.

Dim aPatient
Dim aCountEncounters
Dim aCumulativeOnly 
Dim aPOSCode 
Dim aProviderCode
Dim aEncounters
Dim aEncounter
Dim aContact
Dim aMessage

Set aPatient = Profile.SelectPatient 
aCountEncounters = 20
aCumulativeOnly = False
aPOSCode = "POS"
aProviderCode = "MM"
set aEncounters = aPatient.Encounters.LastNumber(aCountEncounters, aCumulativeOnly,_ 
 aPOSCode, aProviderCode) 

aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & aEncounter.date
  if aEncounter.Contacts.Count <> 0 then
    for each aContact in aEncounter.Contacts
      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