ISPatientProblem.IndicationDescription

Example

Display the codes, descriptions and indications for the patient's problems of 'Procedures' type.

Dim aPatient
Dim aProblemList
Dim aCategory
Dim aProblems
Dim aProblem
Dim aMessage

Set aPatient = Profile.SelectPatient

set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(2) 'Procedures  
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No procedures"
else
  for each aProblem in aProblems
    if aProblem.IndicationId = 0 then
      aMessage = aMessage & "    " & "Code: " & aProblem.DxCode &_ 
        "; Description: " & aProblem.DxDescription & "; No Indication " & vbNewLine
    else  
      aMessage = aMessage & "    " & "Code: " & aProblem.DxCode &_ 
        "; Description: " & aProblem.DxDescription & "; Indication: " &_ 
        aProblem.IndicationDescription & vbNewLine
    end if      
  next 
end if
Profile.MsgBox(aMessage)