This filter method is used to load the collection of PPPUs the category values of which are specified by the filter.
| 1 | bpcUndefined |
| 2 | bpcPractice |
| 4 | bpcProvider |
| 8 | bpcPos |
| 16 | bpcUser |
| 32 | bpcResource |
| 64 | bpcPatient |
| 128 | bpcExtProvider |
| 256 | bpcExtPOS |
object.SetCategories
Set
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProvidersFilter interface |
|
Set |
In, Required | int |
This parameter is calculated as the sum of the
values for necessary categories |
Display the PPPU names and their category values.
Dim aFilter
Dim aProviders
Dim aProvider
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.SetCategories(4 + 128) 'providers + external providers
Set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine & vbNewLine &_
"Full Name:" & vbTab & "Category:"
for each aProvider in aProviders
aMessage = aMessage & vbNewLine &_
aProvider.FullName & vbTab &_
aProvider.Category
next
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Categories can be found in .