ISProblemDiagnosisFilter.AnatomyID

Description

This filter property is used to load the diagnoses by ID of the problem anatomy concept.

Syntax

object.AnatomyID

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

Return Value

int

Example

Display the number of the diagnoses loaded on the basis of the selected filter, their codes, descriptions and anatomy.

Dim aPatient
Dim aAnatomyConcept
Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aPatient = Profile.SelectPatient
set aAnatomyConcept = Profile.Concept("IH", "z..2.") 'Arm

if aAnatomyConcept is nothing then
  Profile.MsgBox ("No concept with the specified termset and concept codes")
  exit sub
end if    

set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.PatientId = aPatient.ID
aFilter.AnatomyID = aAnatomyConcept.ID  
set aDiagnoses = Profile.LoadDiagnoses(aFilter)

aMessage = "Diagnoses Count = " & aDiagnoses.Count
for i = 0 to aDiagnoses.Count - 1
  set aDiagnosis = aDiagnoses.Item(i)
  aMessage = aMessage & vbNewLine & "Code: " & aDiagnosis.DxCode &_ 
    "; Description: " & aDiagnosis.DxDescription
  if not aDiagnosis.AnatomyConcept is nothing then 
    aMessage = aMessage & " (Location = " & aDiagnosis.AnatomyConcept.Name & ")" 
  end if    
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0