ISAntenatalObservation.Contact

Example

Display some information from each of the patient's antenatal observations, including the subjects and dates of the linked contacts.

sub main

  Dim aPatient
  Dim aPregnancyCount
  Dim aPregnancy
  Dim i
  Dim j
  Dim aObservations
  Dim aObservation
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  if aPatient.Sex <> "F" then
    Profile.MsgBox("You should select female patient!")
    exit sub
  end if
  
  if aPatient.PregnancyCount = 0 then 
    aMessage = aMessage & "No pregnancies"
  else
    aPregnancyCount = aPatient.PregnancyCount 
    for i = 0 to aPregnancyCount - 1 
      set aPregnancy = aPatient.GetPregnancy(i)
      aMessage = aMessage & vbNewLine & "Code: " & aPregnancy.DxCode &_ 
        "; Description: " & aPregnancy.DxDescription & vbNewLine
      set aObservations = aPregnancy.GetAntenatalObservations 
      aMessage = aMessage & "Antenatal Observations Count =  " &_ 
        aObservations.Count & vbNewLine
      for j = 0 to aObservations.Count - 1 
        set aObservation = aObservations.Item(j)
        aMessage = aMessage & (j+1) & ") " & "Antenatal recordings on " &_ 
          aObservation.Date & ", linked contact: " &_ 
          aObservation.Contact.Subject & " (" &_ 
          aObservation.Contact.Date & ")" & vbNewLine &_
          "    Age Clinically: " & GetHRIasString(aObservation.AgeClinically) &_
          vbNewLine & "    Antenatal Comment: " &_ 
          GetHRIasString(aObservation.AntenatalComment) & vbNewLine &_  
          "    Blood Pressure: " & GetHRIasString(aObservation.BloodPressure) &_
          vbNewLine & "    Fetal Heart: " &_ 
          GetHRIasString(aObservation.FetalHeart) & vbNewLine &_ 
          "    Fetal Movement: " & GetHRIasString(aObservation.FetalMovement) &_ 
          vbNewLine & "    Fundal Height: " &_ 
          GetHRIasString(aObservation.FundalHeight) & vbNewLine &_  
          "    Next Visit Date: " & GetHRIasString(aObservation.NextVisitDate) &_ 
          vbNewLine & "    Oedema: " & GetHRIasString(aObservation.Oedema) &_ 
          vbNewLine & "    Presentation: " &_ 
          GetHRIasString(aObservation.Presentation) & vbNewLine &_
          "    Urine: " & GetHRIasString(aObservation.Urine) & vbNewLine &_
          "    Weight: " & GetHRIasString(aObservation.Weight) & vbNewLine 
      next       
    next
  end if
  Profile.MsgBox(aMessage)
end sub

function GetHRIasString(aHRI)
  Dim aResult
  
  if aHRI is nothing then
    aResult = " - "
  else
    aResult = aHRI.Content.AsString
  end if
  GetHRIasString = aResult
end function