ISServicePrice.GetRates

Example

Display the number of the services, service prices, rates and some information about them, including rate amount and type.

Dim aPatient
Dim aFilter
Dim aServices
Dim aService
Dim aMessage
Dim aServicePrices
Dim aServicePrice                             
Dim aRates
Dim aRate
Dim i, j, k

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"

set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine

for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)

  set aServicePrices = aService.GetServicePrices

  aMessage = aMessage & vbNewLine & aService.Description &_
    " has " & aServicePrices.Count & " service prices"

 for j = 0 to aServicePrices.Count - 1
   set aServicePrice = aServicePrices.Item (j)
   set aRates = aServicePrice.GetRates 
   
   aMessage = aMessage & vbNewLine & "Service Rates Count: " & aRates.Count
   for k = 0 to aRates.Count - 1
     set aRate = aRates.Item(k) 
     set aShortCode = Profile.LoadShortCodeByCodeType("CORE", 3) 'sscChargeRates 
' aServicePrice.AddServiceRate(aShortCode)' 
     aMessage = aMessage & vbNewLine & "    " & "Rate Amount: " & aRate.Amount &_
       "; rate type: " & aRate.RateType.Code 
   next 'k
 next 'j
next 'i

Profile.MsgBox(aMessage)