ISHRObservationFilter.StartFromId

Example

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

Dim aPatient
Dim aFilter
Dim aHRObservations, aHRObservation
Dim aLastId
Dim aTotalCount
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateObservationFilter
aFilter.PatientId = aPatient.ID 
aFilter.DateFrom = #01/01/2000#
aFilter.DateTo = #01/01/2020#
aFilter.StartFromId = 0
aFilter.MaxCount = 3 'the size of the batch

aLastId = 0
aTotalCount = 0
do
  set aHRObservations = aFilter.Load

  for i = 0 to aHRObservations.Count - 1
    set aHRObservation = aHRObservations.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
      "Name: " & aHRObservation.Name & vbNewLine &_
      "   Code: " & aHRObservation.Code & vbNewLine &_
      "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
      "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
      "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
      "   GUID: " & aHRObservation.GUID & vbNewLine &_
      "   ID: " & aHRObservation.ID & vbNewLine
      
    aTotalCount = aTotalCount + 1 
    
    if aHRObservation.Id > aLastId then aLastId = aHRObservation.Id 
  next
  
  aFilter.StartFromId = aLastId + 1
  aMessage = aMessage & vbNewLine
loop until aHRObservations.Count = 0

aMessage = "HR Observations Count: " & aTotalCount & vbNewLine & aMessage
    
Profile.MsgBox(aMessage)