ISPatientProblem.Nature

Description

The description of the short code of 'Adverse Reaction Nature' type assigned to the patient's problem.

Syntax

object.Nature

Part	Attribute	Type	Description
`object`	Required	ISPatientProblem	The `object` always implements the ISPatientProblem interface

Return Value

string

Example

Display the codes, descriptions, nature IDs and nature descriptions for the patient's problems of type 'Adverse'.

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(1) 'Adverse 
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No adverse reactions"
else
  for each aProblem in aProblems 
    aMessage = aMessage & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription &_ 
      " (Nature = '" & aProblem.Nature &_      
      "', Nature Id = " & aProblem.NatureID & ")" & vbNewLine 
  next 
end if
Profile.MsgBox(aMessage)

Note: Only for Adverse reactions.

In Profile Client v8 on User Interface Nature can be found in Clinical > Medical Record > Problems > Open Problem > General > Nature field, in Clinical > Clinical Details > Problems > Open Problem > General > Nature field or in Patient > Cases > Clinical > Problems > Open Problem > General > Nature field.

Version information

Added in v7.8.0