ISAppointmentService.DoneByPPPUId

Example

DoneByPPPUId is assigned to those appointment services for which it is not set up.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aServices
Dim aService
Dim aDoneByPPPUId
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/2018#
aFilter.DateTo = #01/01/2019#

set aAppointments = Profile.LoadAppointments(aFilter)

aDoneByPPPUId = Profile.LoadProvider("PD").Id

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  set aServices = aFirstAppointment.Services
  
  for i = 0 to aServices.Count - 1  
    set aService = aServices.Item(i)
    if aService.DoneByPPPUId = 0 then
      aService.DoneByPPPUId = aDoneByPPPUId
    end if
    aMessage = aMessage & vbNewLine & "AppService " & aService.Id &_
      " has DoneBy provider " & aService.DoneBy.FullName
  next   
  Profile.MsgBox(aMessage)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if