ISAntenatalObservation.AgeCalculated

Description

The gestational age during the antenatal observation, that is auto calculated on the basis of the conditions below.

If Assess Type = LMP and LMP is not 0,	then calculated gestational age = observation date - date of the last menstrual period.
If AssessType = Scan and Scan Date is not 0,	then calculated gestational age = observation date - (Scan Date - Scan Age).
If there is no specified LMP or Scan Date,	then calculated gestational age = observation date - (EDC - period of two weeks).

Syntax

object.AgeCalculated

Part	Attribute	Type	Description
`object`	Required	ISAntenatalObservation	The `object` always implements the ISAntenatalObservation interface

Restriction: This property is readonly.

Return Value

string

Example

Display some information from each of the patient's antenatal observations, including the gestational age calculated automatically.

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 & vbNewLine &_
          "    Age Calculated: " & aObservation.AgeCalculated & 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

Note:

In Profile Client v8 on User Interface Age Calculated can be found in Clinical > Medical Record > Obstetric > Antenatal recordings > Age(calc) or in Patient > Cases > Clinical > Obstetric > Antenatal recordings > Age(calc).

Version information

Added in v7.8.0