ISDisease.IsPreferred

Description

Returns True if the disease code is preferred.

Syntax

object.IsPreferred

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsPreferred for the disease codes loaded on the basis of the selected filter.

Dim aFilter
Dim aDiseases, aDisease 
Dim i
Dim aMessage 

Set aFilter = Profile.CreateDiseaseFilter
aFilter.Description = "Asthma"     
set aDiseases = Profile.LoadDiseaseCodesByFilter(aFilter)
aMessage = "Diseases Count = " & aDiseases.Count

for i = 0 to aDiseases.Count - 1
  set aDisease = aDiseases.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") Code: " & aDisease.Code &_
    "; Description: " & aDisease.Description & " (Preferred: " &_ 
    aDisease.IsPreferred & ")" 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Preferred checkbox can be checked in Maintain > Disease Codes > Edit.

Version information

Added in v7.8.0