ISProfile.LoadDiseaseById

Description

This function returns the disease by ID.

Syntax

object.LoadDiseaseById(anId)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`anId`	In, Required	int	ID of the disease

Return Value

ISDisease

Returns the disease by ID.

Example

Display the name of the disease and its ID.

Dim aDisease
Dim aMessage

Set aDisease = Profile.LoadDiseaseById(5)

if aDisease.ID = 0 then 
  aMessage = "There is no disease with specified ID."
else 
  aMessage = aDisease.Description & " (" & aDisease.ID & ")"  
end if 
 
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