ISHRObservation.AsHRC

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them, including their descriptions as HRCs.

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

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateObservationFilter
aFilter.PatientId = aPatient.ID 
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#
set aHRObservations = aFilter.Load

aMessage = "HR Observations Count = " & aHRObservations.Count & vbNewLine

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 &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
  if aHRObservation.IsHRI then
    aMessage = aMessage & "   HRI: " & aHRObservation.AsHRI.Name & vbNewLine
  else
    aMessage = aMessage & "   HRC: " & aHRObservation.AsHRC.Name & vbNewLine
  end if    
next
    
Profile.MsgBox(aMessage)