ISReferral.DiagnosisDescription

Description

The description of the diagnosis for the referral.

Syntax

object.DiagnosisDescription

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

Return Value

string

Example

Some information about the referral, including the description of the diagnosis.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aMessage

Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter

aReferralsFilter.Patient = aPatient.Id

set aReferrals = Profile.LoadReferrals(aReferralsFilter)
aMessage = aMessage & "Refferals Count = " & aReferrals.Count

aMessage = aMessage & vbNewLine &_
  "Referred On:" & vbTab & "Referred To:" & vbTab & "Diagnosis Description:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aReferral.DiagnosisDescription
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Diagnosis Description can be found in Patient > Patient Referrals > Diagnosis - text description or in Patient > Patient Referrals > Open selected Referral > Reason for Refferal > Diagnosis field.

Version information

Added in v7.8.0