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