ISProvider.GetRecentPatients

Description

This function returns the list of the provider's recent patients.

Syntax

object.GetRecentPatients()

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

Return Value

ISPatients

Returns the list of the provider's recent patients.

Example

Display the list of the provider's recent patients.

sub main()
  Dim aProvider 
  Dim aMessage

  Set aProvider = Profile.LoadProvider("PROV")
  aMessage = "Provider's Recent patient(s):" & GetProvidersRecentPatients(aProvider)
  Profile.MsgBox (aMessage)
end sub

function GetProvidersRecentPatients(aProvider)
  Dim aMessage
  Dim aPatients, aPatient

  aMessage = ""  
  set aPatients = aProvider.GetRecentPatients
  for i = 0 to aPatients.Count - 1
    set aPatient = aPatients.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
      aPatient.FirstName & " " & aPatient.LastName 
  next
  GetProvidersRecentPatients = aMessage
end function

Note:

In Profile Client v8 on User Interface Recent Patients can be found in Organisation > Work Centre > Work > Today > Recent Patients.

Version information

Added in v8.4.0