This function checks whether the problem list contains the problem with the specified word in the description and the selected status.
object.ContainsDiseaseWord(theWord[, pWhere =
0])
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProblemList interface |
|
theWord |
In, Required | string |
The disease description (or part of
it) |
pWhere |
In, Optional Default value is 0 |
The problem status |
bool
Display the number of the problems within the collection, their codes, descriptions, statuses and check whether the problem with the specified word in the description and the selected status is in the collection.
Dim aPatient
Dim aProblemList
Dim aProblem
Dim theWord
Dim aContainsDisease
Dim i
Dim aMessage
Set aPatient = Profile.SelectPatient
set aProblemList = aPatient.ProblemList
theWord = "Salmonella"
aContainsDisease = aProblemList.ContainsDiseaseWord(theWord, 0) 'pstNotDefined
aMessage = "Problems Count = " & aProblemList.Count & vbNewLine &_
"The collection contains the problem with the word '" & theWord &_
"' in the description: " & aContainsDisease
for i = 0 to aProblemList.Count - 1
set aProblem = aProblemList.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") Code: " & aProblem.DxCode &_
"; Description: " & aProblem.DxDescription & " (Status: " &_
aProblem.Status & ")"
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Description and Status can be found in , in or in .