ISProfile.LoadDiseaseCodesByFilter

Description

This function returns the disease codes on the basis of the selected filter.

Syntax

object.LoadDiseaseCodesByFilter(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISDiseaseFilter	The object that defines conditions for filtering

Return Value

ISList

Returns the disease codes on the basis of the selected filter.

Example

Display the number of the diseases, their names 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 the Code can be found in Maintain > Disease Codes.

Version information