ISPatientProblem.Infant

Example

Display the codes, descriptions for the patient's problems of 'Pregnancy' type and the names and statuses of the Infant objects from each patient's pregnancy.

Dim aPatient
Dim aProblemList
Dim aCategory
Dim aProblems
Dim aProblem
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
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No pregnancies"
else
  for i = 0 to aProblems.Count - 1
    set aProblem = aProblems.Item(i) 
    aMessage = aMessage & "    " & vbNewLine & "Code: " & aProblem.DxCode &_ 
      "; Description: " & aProblem.DxDescription & vbNewLine
    
    for j = 0 to aProblem.InfantCount - 1
      set aInfant = aProblem.Infant(j)
      aMessage = aMessage &_
        "   " & aInfant.Num & ") " & aInfant.Name & "; Status: " &_ 
        aInfant.StatusText & vbNewLine  
    next 'j 
  next 'i
end if
Profile.MsgBox(aMessage)