ISServicePrice.CustomFeePerUnit

Example

Display the number of the services loaded on the basis of the selected filter and some information about them, including the cost of the service the patient should pay for the visit.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim aServicePrice

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "G.P. Office Visit"
set aServices = Profile.LoadServicesByFilter(aFilter)

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

for each aService in aServices
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    aMessage =  vbNewLine & "No Service Price"
  else
    aMessage = aMessage & vbNewLine & "-----------------------------" & vbNewLine &_
      "Agency Code: " & aServicePrice.AgencyCode & vbNewLine &_
      "Amount: " & aServicePrice.Amount & vbNewLine &_
      "Amount Method: " & aServicePrice.AmountMethod & vbNewLine &_
      "Based On: " & aServicePrice.BasedOn & vbNewLine &_
      "Bulk Code: " & aServicePrice.BulkCode & vbNewLine &_
      "Code Method: " & aServicePrice.CodeMethod & vbNewLine &_
      "Custom Fee Per Unit: " & aServicePrice.CustomFeePerUnit & vbNewLine &_
      "Default Quantity: " & aServicePrice.DefaultQuantity & vbNewLine &_
      "End Date: " & aServicePrice.EndDate & vbNewLine &_
      "Service ID: " & aServicePrice.ServiceID & vbNewLine &_
      "Distance: " & aServicePrice.Distance & vbNewLine &_
      "Start Date: " & aServicePrice.StartDate & vbNewLine &_
      "Tax Rate Id: " & aServicePrice.TaxRateId & vbNewLine &_
      "Unit Cost: " & aServicePrice.UnitCost & vbNewLine &_
      "Use Medicare 111111118: " & aServicePrice.UseMedicare111111118 
  end if                                                               
next   
 
Profile.MsgBox(aMessage)