The category of the adverse reaction displayed with the description of the Dx Code.
object.DxDescriptionNature
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientProblem interface |
string
Display the codes, descriptions of the patient's problems in each category and the nature of the patient's adverse reactions.
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 & vbNewLine & "---------" & aCategory.Description &_
"---------" & vbNewLine & vbNewLine
set aProblems = aCategory.Problems
for each aProblem in aProblems
if aProblem.ProblemType = 6 then 'ptPregnancy
aMessage = aMessage & " " & "Code: " & aProblem.DxCode &_
"; Description: " & aProblem.DxDescription & vbNewLine
else
aMessage = aMessage & " " &_
"Code: " & aProblem.DxCode & "; Description: " &_
aProblem.DxDescriptionNature & vbNewLine
end if
next
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Nature can be found in
, in or in .