This filter is used to load only current care team members.
object.OnlyCurrent
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCareTeamFilter interface |
bool
Display the number of the current care team members (filtered by the specified filtering criterion).
Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aMessage
Set aPatient = Profile.SelectPatient
set aCareTeamFilter = Profile.CreateCareTeamFilter
aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.OnlyCurrent = true
set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)
aMessage = "The number of the patient's care team members loaded " &_
"by the filtering condition (Only Current = " &_
aCareTeamFilter.OnlyCurrent & ") is " & aCareTeams.Count
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Only Current cannot be found.