ISProblemDiagnosisFilter.PrivacyId

Description

This filter property is used to load the diagnoses by the privacy level.

Syntax

object.PrivacyId

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 privacy levels.

Dim aPatient
Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aPatient = Profile.SelectPatient  
set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.PatientId = aPatient.ID
aFilter.PrivacyId = 1 'pNormal 
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 & "; Privacy: " & aDiagnosis.Privacy   
next      

Profile.MsgBox(aMessage)

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

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

Version information

Added in v7.8.0