ISAppointment.EarlierRequestType

Example

Display the type of the request about the earlier appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments, aAppointment
Dim aEarlierRequest
Dim aMessage

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientID = aPatient.ID
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#

set aAppointments = Profile.LoadAppointments(aFilter)

for i = 0 to aAppointments.Count - 1 
  set aAppointment = aAppointments.Item(i)
  aEarlierRequest = aAppointment.EarlierRequestType

  aMessage = aMessage & vbNewlIne &_
    aAppointment.BookTime & vbTab
    
  Select Case aEarlierRequest
    Case 2 
      aMessage =  aMessage & "Any Pos"
    Case 1 
      aMessage =  aMessage & "Same Pos"
    Case Else
      aMessage =  aMessage & "None"
  End Select
next 'i  

Profile.MsgBox(aMessage)