ISInfant.Apgar1

Description

The score of the Apgar test given to the newborn at 1 minute after birth. This score determines how well the baby tolerated the birthing process.

	2	1	0
Appearance (skin color)	Normal color all over (hands and feet are pink)	Normal color (but hands and feet are bluish)	Bluish-gray or pale all over
Pulse (heart rate)	Normal (above 100 beats per minute)	Below 100 beats per minute	Absent (no pulse)
Grimace ("reflex irritability")	Pulls away, sneezes, coughs, or cries with stimulation	Facial movement only (grimace) with stimulation	Absent (no response to stimulation)
Activity (muscle tone)	Active, spontaneous movement	Arms and legs flexed with little movement	No movement, "floppy" tone
Respiration (breathing rate and effort)	Normal rate and effort, good cry	Slow or irregular breathing, weak cry	Absent (no breathing)

Syntax

object.Apgar1

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

Return Value

int

The returned value is the sum of the five areas scores.

Example

Display some information about the infants from each pregnancy of the patient, including the scores of the Apgar test.

Dim aPatient
Dim aPregnancyCount
Dim aPregnancy
Dim aInfant
Dim i
Dim j
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
    
    if aPregnancy.InfantCount = 0 then
      aMessage = aMessage & "   -" & "No infants" & vbNewLine
    end if
      
    for j = 0 to aPregnancy.InfantCount - 1
      set aInfant = aPregnancy.Infant(j)
      aMessage = aMessage &_
        "   " & aInfant.Num & ") Name: " & aInfant.Name & "; Apgar initial: " &_ 
        aInfant.Apgar1 & vbNewLine  
    next 'j 
  next 'i
  
end if
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Apgar1 can be found in Clinical > Medical Record > Obstetric > Edit selected infant record > APGAR Initial field, in Clinical > Clinical Details > Obstetric History > Edit selected infant record > APGAR Initial field or in Patient > Cases > Clinical > Obstetric > Edit selected infant record > APGAR Initial field.

Version information

Added in v7.8.0