ISPatientProblem.OutcomeDescr

Example

Display the codes, descriptions and outcomes for the patient's problems of 'Pregnancy' type.

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 & vbNewLine 
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No pregnancies"
else
  for each aProblem in aProblems
    aMessage = aMessage & vbNewLine & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription 
    if aProblem.Outcome <> 0 then 
      aMessage = aMessage & "; Outcome: " & aProblem.OutcomeDescr 
    end if 
  next 
end if
Profile.MsgBox(aMessage)