ISProblemDiagnosisFilter.PresentationID

Description

This filter property is used to load the diagnoses by the problem presentation.

Syntax

object.PresentationID

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 presentation.

Dim aPatient
Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aPatient = Profile.SelectPatient  
set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.PatientId = aPatient.ID
aFilter.PresentationID = 1 'prprsInitial 
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 & "; Presentation: " &_ 
    aDiagnosis.Presentation   
next      

Profile.MsgBox(aMessage)

Note: The possible property values can be found in the enumeration TSProblemPresentation.

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

Version information

Added in v7.8.0