ISProvider.RemovePOS

Example

Remove the place of service with the specified code from the list of places of service the provider is a member of.

sub main

  Dim aFilter 
  Dim aProviders, aProvider
  Dim aPos
  Dim aPOSID
  Dim aMessage

  Set aFilter = Profile.CreateProvidersFilter
  aFilter.Category = 2 'pcProvider   
  set aProviders = Profile.LoadProvidersByFilter(aFilter)
  set aPos = Profile.LoadProvider ("LANGLEY")
  aPOSID = aPOS.Id

  aMessage = aMessage & vbNewLine &_
    "The number of the providers of the specified category is " &_
    aProviders.Count

  aMessage = "BEFORE REMOVING:" & vbNewLine & GetProviderPosInfo(aProviders)

  for each aProvider in aProviders
    aProvider.RemovePOS (aPOSID)
    aProvider.Save  
  next

  aMessage = aMessage & vbNewLine & vbNewLine &_
    "AFTER REMOVING:" & vbNewLine & GetProviderPosInfo(aProviders)

  Profile.MsgBox (aMessage)
end sub

function GetProviderPosInfo(aProviders)
  Dim aProvider
  Dim aPOSList, aPOS
  Dim aMessage, aMemberOfPOSInfo
   
  for each aProvider in aProviders
    set aPOSList = aProvider.MemberOfPOS
    
    aMessage = aMessage & vbNewLine & aProvider.FullName & " is a member of " &_
      aPOSList.Count & " POS(es)"
    aMemberOfPOSInfo = ""  
    for each aPOS in aPOSList
      aMemberOfPOSInfo = aMemberOfPOSInfo & aPOS.FullName & ", "
    next
    
    if aMemberOfPOSInfo <> "" then
      aMessage = aMessage & vbNewLine & "    " & aMemberOfPOSInfo
    end if
  next ' aProvider
  GetProviderPosInfo = aMessage
end function