ISServicePrice.UseMedicare111111118

Example

Display the number of the services loaded on the basis of the selected filter and some information about them, including the rule of using medicare111111118.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim aServicePrice
Dim i

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

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

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

  aMessage = aMessage & vbNewLine & aService.Description 
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    Profile.MsgBox("No Service Price")
    exit sub            
  end if
  
    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                                                 
next   
 
Profile.MsgBox(aMessage)