ISReferral.ExpiryDate

Description

The expiry date of the referral.

Syntax

object.ExpiryDate

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display some information about the referral, including its expiry date.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
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 & "Period:" & vbTab &_
  "IndefinePeriod:" & vbTab & "FirstVisit:" & vbTab &_
  "Expiry Date:" 

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

Profile.MsgBox (aMessage)

Note: Expiry Date is calculated as a sum of the first visit and a period in months (if the referral is not marked as 'indefinite').

In Profile Client v8 on User Interface Expiry Date can be found in Patient > Patient Referrals > Expiry Date.

Version information

Added in v7.8.0