ISCDOTransFilter.AttendanceID

Example

Display the number of the CDO transactions loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aProvider
Dim aFilter, aAppFilter 
Dim aAppointments, aAppointment
Dim aCDOTransactions, aCDOTransaction
Dim aLinkedEncounter
Dim i, j
Dim aMessage

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

set aAppFilter = Profile.CreateAppointmentFilter
aAppFilter.PatientID = aPatient.ID
aAppFilter.DateFrom = #12/12/2019#
aAppFilter.DateTo = #12/22/2020#
aAppFilter.Status = 4095
set aAppointments = Profile.LoadAppointments(aAppFilter)


set aFilter = Profile.CreateCDOTransFilter
aFilter.TransactionTypes = 1 'tsotweEncounters

aMessage = "Appointment count is " & aAppointments.Count & vbNewLine 
   
for j = 0 to aAppointments.Count - 1
  set aAppointment = aAppointments.Item(j)
  aFilter.AttendanceID = aAppointment.Id  

  set aCDOTransactions = Profile.LoadCDOTransactions(aFilter)

  aMessage = aMessage & vbNewLIne &_
    "Appointment booked on " & aAppointment.BookedTime & " has " &_
      aCDOTransactions.Count & " linked transactions " & vbNewLine   
    
  for i = 0 to aCDOTransactions.Count - 1
    set aCDOTransaction = aCDOTransactions.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
      "Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
      "     Code: " & aCDOTransaction.Code & vbNewLine &_
      "     ID: " & aCDOTransaction.ID & vbNewLine &_
      "     GUID: " & aCDOTransaction.GUID & vbNewLine &_
      "     Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
      "     Privacy: " & aCDOTransaction.Privacy & vbNewLine &_ 
      "     Recorder: " & aCDOTransaction.Recorder & vbNewLine
  next 'i       
next 'j    
Profile.MsgBox(aMessage)