ISHRC.FindObservationByName

Example

Display the number of the CDO forms, their names and observations found by the specified name.

sub main
  Dim aPatient
  Dim aFilter
  Dim aCDOForms, aCDOForm
  Dim aObs
  Dim i
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateCdoFormFilter
  aFilter.PatientId = aPatient.Id
  set aCDOForms = Profile.LoadCdoForms(aFilter) ' ISHRObservations
    aMessage = "CDO Forms (Count = " & aCDOForms.Count & "):"
    
  for i = 0 to aCDOForms.Count - 1  
    set aCDOForm = aCDOForms.Item(i) 'ISHRObservation
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCDOForm.Name & VbNewLine
    
    set aObs = aCDOForm.AsHRC.FindObservationByName("Provider Name")
    if not aObs is nothing then
      aMessage = aMessage & vbNewLine & " *** " & aObs.AsString & VbNewLine     
    end if  
  next  
  Profile.MsgBox(aMessage)
end sub