ISProfile.LoadDiseaseCodes

Description

This function returns all disease codes.

Syntax

object.LoadDiseaseCodes()

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

Return Value

ISCollection

Returns all disease codes.

Example

Display the number of diseases, their codes and descriptions.

Dim aDiseases
Dim aDisease
Dim aMessage

Set aDiseases = Profile.LoadDiseaseCodes '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 Codes can be found in Maintain > Disease Codes.

Version information

Added in v7.8.0