ISInfant.Health

Example

Display some information about the infants from each pregnancy of the patient, including the comments about their health.

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 & "    " & vbNewLine & "Code: " & aPregnancy.DxCode &_ 
      "; Description: " & aPregnancy.DxDescription 
    
    if aPregnancy.InfantCount = 0 then
      aMessage = aMessage & vbNewLine & "   -" & "No infants" 
    end if
      
    for j = 0 to aPregnancy.InfantCount - 1
      set aInfant = aPregnancy.Infant(j)
      aMessage = aMessage & vbNewLine &_
        "   " & aInfant.Num & ") Name: " & aInfant.Name  
      if not aInfant.Health = "" then 
        aMessage = aMessage & "; Health: " & aInfant.Health 
      end if        
    next 'j 
  next 'i
  
end if
Profile.MsgBox(aMessage)