ISAppointmentTemplateDPP.SlicesCount

Example

Display the number of the time slices created for the appointment rule and some information about them.

'variable CurrentTemplate supports interface ISAppointmentTemplateDPP

Dim aCurrentTemplate
Dim aMessage
Dim aPOS
Dim aProvider
Dim i
Dim aAppointmentSlice
Dim aType
Dim aReason

set aCurrentTemplate = Profile.Variable("CurrentTemplate").Value

aMessage = "Appointment Template: " & vbNewLine &_
  "Date: " & aCurrentTemplate.Date & vbNewLine

if aCurrentTemplate.ProviderID > 0 then 
  set aProvider = Profile.LoadProviderById(aCurrentTemplate.ProviderID)
  aMessage = aMessage & "Provider: " & aProvider.FullName & vbNewLine                         
end if

if aCurrentTemplate.PosID > 0 then
  set aPOS = Profile.LoadProviderById(aCurrentTemplate.PosID)
  aMessage = aMessage & "POS: " & aPOS.Code & vbNewLine
end if

aMessage = aMessage & vbNewLine & vbNewLine &_
  "The number of the appointment time slices is " & aCurrentTemplate.SlicesCount 
for i = 0 to aCurrentTemplate.SlicesCount - 1
  set aAppointmentSlice = aCurrentTemplate.Slices(i)      
  aMessage = aMessage & vbNewLine &_
    "Def Reason Description: " & aAppointmentSlice.DefReasonDesc & vbNewLine &_
    "Def Reason ID: " & aAppointmentSlice.DefReasonID & vbNewLine &_
    "Duration: " & aAppointmentSlice.Duration & vbNewLine &_
    "Start: " & aAppointmentSlice.Start & vbNewLine &_
    "Finish: " & aAppointmentSlice.Finish & vbNewLine &_
    "Is Block Out: " & aAppointmentSlice.IsBlockOut & vbNewLine &_
    "Priority: " & aAppointmentSlice.Priority & vbNewLine &_ 
    "Def Type ID: " & aAppointmentSlice.DefTypeID & vbNewLine    
                                        
  if aAppointmentSlice.DefTypeID > 0 then                                                                     
    set aType = Profile.LoadShortCode(aAppointmentSlice.DefTypeID)
    aMessage = aMessage & "Def Type: " & aType.Description & vbNewLine
  end if

  if aAppointmentSlice.DefReasonID > 0 then                                                                     
    set aReason = Profile.LoadServiceByID(aAppointmentSlice.DefReasonID)
    aMessage = aMessage & "Def Reason Code: " & aReason.Code & vbNewLine
  end if  
next 
Profile.MsgBox(aMessage)