The description of the category the patient's problem is linked to.
object.Description
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProblemCategory interface |
string
Display the description of the category the patient's problem is linked to.
Dim aPatient
Dim aProblemList
Dim aCategories
Dim aCategory
Dim aProblems
Dim aProblem
Dim aMessage
set aPatient = Profile.SelectPatient
set aProblemList = aPatient.ProblemList
set aCategories = aProblemList.Categories
for each aCategory in aCategories
aMessage = aMessage & aCategory.Description &_
" (ID = " & aCategory.Id & ")" & vbNewLine
set aProblems = aCategory.Problems
for each aProblem in aProblems
aMessage = aMessage & " " &_
aProblem.DxDescription & " (Status = " & aProblem.Status & ")" & vbNewLine
next
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Description can be found in
or .