ISPatientProblem.GetAntenatalObservations

Example

Display the codes, descriptions and antenatal observations for the patient's problems of 'Pregnancy' type.

sub main

  Dim aPatient
  Dim aProblemList
  Dim aCategory
  Dim aProblems
  Dim aProblem
  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

  set aProblemList = aPatient.ProblemList
  set aCategory = aProblemList.Categories.Item(5) 'Pregnancy  
  aMessage = aMessage & vbNewLine &_ 
    "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
  set aProblems = aCategory.Problems
  if aProblems.Count = 0 then 
    aMessage = aMessage & "No pregnancies"
  else
    for each aProblem in aProblems
      aMessage = aMessage & " " & "Code: " & aProblem.DxCode &_ 
        "; Description: " & aProblem.DxDescription & vbNewLine
      set aObservations = aProblem.GetAntenatalObservations 
      for i = 0 to aObservations.Count - 1 
        set aObservation = aObservations.Item(i)
        aMessage = aMessage & (i+1) & ") " & "Antenatal recordings on " &_ 
          aObservation.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