ISCareTeam.IsCurrent

Description

Returns True if the care team member is current.

Syntax

object.IsCurrent

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsCurrent for the care team.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim i
Dim aProvider
Dim aMessage

Set aPatient = Profile.SelectPatient
set aCareTeamFilter = Profile.CreateCareTeamFilter

aCareTeamFilter.Patient = aPatient.Id

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Team Member Count = " & aCareTeams.Count & vbNewLine & vbNewLine
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  
  if aCareTeam.PersonId <= 0 then  
    aMessage = aMessage & "Provider: UNASSIGNED"
  else
    set aProvider = Profile.LoadProviderById(aCareTeam.PersonId)  
    aMessage = aMessage & "Provider: " & aProvider.FullName
  end if      
   
  aMessage = aMessage & vbNewLine &_
    "Is current: '" & aCareTeam.IsCurrent & vbNewLine & vbNewLine 
next 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Is Current cannot be found.

Version information

Added in v7.8.0