ISInfant.Feeding

Example

Display some information about the infants from each pregnancy of the patient, including the methods of feeding them.

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)
      if aInfant.Feeding = 0 then 'Breast feeding
        aMessage = aMessage &_
          "   " & aInfant.Num & ") Name: " & aInfant.Name & "; Delivery: Breast" &_ 
          vbNewLine
      else
        aMessage = aMessage &_
          "   " & aInfant.Num & ") Name: " & aInfant.Name & "; Delivery: Bottle" &_ 
          vbNewLine
      end if        
    next 'j 
  next 'i
  
end if
Profile.MsgBox(aMessage)