ISProfile.CreateDisease

Description

This function creates a new disease.

Syntax

object.CreateDisease()

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

Return Value

ISDisease

Returns the created disease.

Example

Add a new disease and display its code and ID.

Dim aDisease

Set aDisease = Profile.CreateDisease
aDisease.Code = "NEWDISEASE2"
aDisease.Description = "Super new disease"
aDisease.Save

set aDisease = Profile.LoadDisease("NEWDISEASE2")

Profile.MsgBox("ID of the disease with the code " & aDisease.Code & " is " &_
  aDisease.ID)

Note:

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

Version information

Added in v7.8.0