ISPatientEncounters.LastDays

Description

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

Syntax

object.LastDays(aCountDays[, aCumulativeOnly = true[, aPOSCode = ""[, aProviderCode = ""]]])

Part	Attribute	Type	Description
`object`	Required	ISPatientEncounters	The `object` always implements the ISPatientEncounters interface
`aCountDays`	In, Required	int	The number of the last days the patient's encounters are being searched for
`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 number of the patient's encounters with the selected POS and provider for specified number of the last days, their dates and contacts.

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

Set aPatient = Profile.SelectPatient 
aCountDays = 60
aCumulativeOnly = False
aPOSCode = "POS"
aProviderCode = "MM"
set aEncounters = aPatient.Encounters.LastDays(aCountDays, 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