ISHRObservations.ForcePreloadTermsAndConcepts

Example

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

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
aHRObservations.ForcePreloadTermsAndConcepts

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)