ISProfile.LoadDisease

Description

This function returns the disease by the code.

Syntax

object.LoadDisease(aCode)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aCode`	In, Required	string	The code of the disease

Return Value

ISDisease

Returns the disease by the code.

Example

Display the description of the disease and its code.

Dim aDisease
Dim aMessage

Set aDisease = Profile.LoadDisease("DC0001")

if aDisease.ID = 0 then 
  aMessage = "There is no disease with the specified code."
else 
  aMessage = aMessage & aDisease.Code 
end if 
 
Profile.MsgBox (aDisease.Description & " " & "(" & aMessage & ")" )

Note:

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

Version information

Added in v7.8.0