ISDisease.AdverseRx

Description

The Rx medication linked to the disease code and that causes this disease as an adverse reaction.

Syntax

object.AdverseRx

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

Return Value

ISRx

Example

Display the number of the disease codes loaded on the basis of the selected filter, list their codes, descriptions and Rx medications linked to them.

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
  if not aDisease.AdverseRx is nothing then 
    aMessage = aMessage & " (Adverse Rx: " & aDisease.AdverseRx.AsString & ")"     
  end if
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0

Access changed to read/write in v7.10.120

Access changed to read/write in v8.1.0