ISServicePrice.EndDateRequired

Example

Display EndDateRequired for the service price.

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 Required: " & aServicePrice.EndDateRequired & vbNewLine &_
      "End Time Required: " & aServicePrice.EndTimeRequired & vbNewLine &_
      "Start Date Required: " & aServicePrice.StartDateRequired & vbNewLine &_
      "Start Time Required: " & aServicePrice.StartTimeRequired
  end if                                                               
next              
 
Profile.MsgBox(aMessage)