ISPatientProblem.NatureID

Description

ID of the short code of type 'Adverse Reaction Nature' or 'Diagnosis Nature' assigned to the patient problem.

Syntax

object.NatureID

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

Return Value

int

Example

Display the codes, descriptions and nature descriptions for the patient's problems of 'Adverse' and 'Diagnosis' types.

sub main
  Dim aPatient
  Dim aProblemList
  Dim aCategories
  Dim aMessage

  Set aPatient = Profile.SelectPatient

  set aProblemList = aPatient.ProblemList
  set aCategories = aProblemList.Categories

  aMessage = ShowCategoryProblems(aCategories.Item(0)) &_
    ShowCategoryProblems(aCategories.Item(1)) 

  Profile.MsgBox(aMessage)    

end sub

function ShowCategoryProblems(aCategory)
  Dim aMessage
  Dim aProblems, aProblem
  Dim aNatureShortCode, aNatureDescription
  
  aMessage = vbNewLine & vbNewLine &_
    "---------" & aCategory.Description & "---------"  & vbNewLine
      
  set aProblems = aCategory.Problems
  for each aProblem in aProblems
    set aNatureShortCode = Profile.LoadShortCode(aProblem.NatureID)
    
    if aNatureShortCode is nothing then 
      aNatureDescription = " --- "
    else    
      aNatureDescription = aNatureShortCode.Description
    end if    
    
    aMessage = aMessage & vbNewLine & "    Code: " & aProblem.DxCode &_ 
      "; Description: " & aProblem.DxDescription &_ 
      "', Nature Description = " & aNatureDescription & ")"
  next 'aProblem

  ShowCategoryProblems = aMessage
end function

Note:

In Profile Client v8 on User Interface Nature ID cannot be found, but 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