ISProvider.AddPOSes

Description

This function adds some new places of service with the specified codes to the provider.

Syntax

object.AddPOSes(aMsgText, aPOSCodes)

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aMsgText`	In/Out, Required	object&	Returns text information about possible errors
`aPOSCodes`	In, Required	string	Comma-separated POS codes list

Return Value

bool

Returns True if the POSes list was successfully added, otherwise returns False.

Example

Add some new places of service with the specified codes to the provider, and display the result.

Dim aFilter 
Dim aProviders, aProvider
Dim aMessage, aMsgTextResult
Dim aPosesList

aPosesList = "COLUMBIA,HILLCREST,LANGLEY2"

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)
for each aProvider in aProviders
  aMessage = aMessage & vbNewLine & aProvider.FullName
  aMsgTextResult = ""   
  aResult = aProvider.AddPOSes(aMsgTextResult, aPosesList)
  aProvider.Save
  aMessage = aMessage & vbNewLine &_    
    "  POSes were added: " & aResult & ". Additional Info: " & aMsgTextResult  
next  
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface POSes can be found and added in Organisation > People&Places > People and Places > Open the selected Provider > Member Of > Add place.

Version information

Added in v7.8.0