ISProfile.CreateDiseaseFilter

Description

This function creates the filter for loading diseases.

Syntax

object.CreateDiseaseFilter()

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

Return Value

ISDiseaseFilter

Returns the diseases loaded on the basis of the selected filter.

Example

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

Dim aFilter
Dim aDisease
Dim aDiseases
Dim aMessage

Set aFilter = Profile.CreateDiseaseFilter
aFilter.Description = "Asthma"
set aDiseases = Profile.LoadDiseaseCodesByFilter(aFilter) 'Collection of ISDisease

aMessage = "Diseases Count: "  & aDiseases.Count
for i = 0 to aDiseases.Count - 1 
  set aDisease = aDiseases.Item(i)
  aMessage = aMessage & vbNewLine &_
    aDisease.Description & " (" & aDisease.Code & ")"
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Disease can be found in Maintain > Disease Codes.

Version information

Added in v7.8.0