This filter property is used to load the care team members by ID of the provider.
object.Provider
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 provider.
Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aMessage
Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aCareTeamFilter = Profile.CreateCareTeamFilter
aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.Provider = aProvider.Id
set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)
aMessage = "The number of the patient's care team members loaded " &_
"by the filtering condition (Provider Id = " &_
aCareTeamFilter.Provider & ") is " & aCareTeams.Count
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Provider ID cannot be found.