ISPatientEncounters.DateFrom

Description

The patient's encounters from the specified date with the selected POS and provider.

Syntax

object.DateFrom(aStartDate[, aCumulativeOnly = true[, aPOSCode = ""[, aProviderCode = ""]]])

Part	Attribute	Type	Description
`object`	Required	ISPatientEncounters	The `object` always implements the ISPatientEncounters interface
`aStartDate`	In, Required	DateTime	The date from when the patient's encounters are being searched
`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 starting from the specified date with the selected POS and provider, their dates and contacts.

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

Set aPatient = Profile.SelectPatient 
aStartDate = #09/01/2018#
aCumulativeOnly = False
aPOSCode = "POS"
aProviderCode = "MM"
set aEncounters = aPatient.Encounters.DateFrom(aStartDate, 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