ID of the provider that is the member of the place of service.
object.ProviderID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProviderPOSInfo interface |
int
Display some information about the places of service the provider is a member of, including the provider's codes.
Dim aProvider
Dim aPOSList
Dim aPOS
Dim aProv
Dim aPOSInfo
Dim aRefSystem
Dim aMessage
Set aProvider = Profile.LoadProvider ("PROV")
set aPOSList = aProvider.MemberOfPOSInfos
aMessage = aProvider.FullName &_
" has " & aPOSList.Count & " places of service" & vbNewLine
aMessage = aMessage & vbNewLine & "POS Info: " & vbNewLine
for each aPOSInfo in aPOSList
set aPOS = Profile.LoadProviderById(aPOSInfo.PosID)
set aProv = Profile.LoadProviderById(aPOSInfo.ProviderId)
set aRefSystem = aPOSInfo.ReferenceSystem
aMessage = aMessage &_
"- POS Code: " & aPOS.Code & vbNewLine &_
" Provider Code: " & aProv.Code & vbNewLine &_
" Reference System: " & aRefSystem.Description & vbNewLine &_
" Reference System ID: " & aPOSInfo.ReferenceSystemID & vbNewLine &_
" Service ID: " & aPOSInfo.ServiceID & vbNewLine &_
" Payee ID: " & aPOSInfo.PayeeID & vbNewLine
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Provider ID cannot be found.