ISHRObservationFilter.AddConcepts

Example

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

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

Set aFilter = Profile.CreateConceptsFilter
aFilter.AddConceptRef "IH", "IH005", True
aFilter.AddConceptRef "IH", "IH006", True
set aConcepts = Profile.LoadConcepts(aFilter)

set aPatient = Profile.SelectPatient
set aFilter1 = Profile.CreateObservationFilter
aFilter1.PatientId = aPatient.ID 
aFilter1.DateFrom = #01/01/2019#
aFilter1.DateTo = #01/01/2020#
aFilter1.AddConcepts(aConcepts) 
set aHRObservations = aFilter1.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 &_
    "   As string: " & aHRObservation.AsString & vbNewLine &_
    "   Parent Trans: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
    "   IS HRI: " & aHRObservation.ISHRI & vbNewLine &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   Term Code: " & aHRObservation.TermCode & vbNewLine &_
    "   Term Description: " & aHRObservation.TermDescription & vbNewLine &_
    "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
next
    
Profile.MsgBox(aMessage)