ISReferral.CloseOnExpiry

Description

Returns True if the status of the referral is to be automatically changed to 'Closed' on the expiry date.

Syntax

object.CloseOnExpiry

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

Return Value

bool

Example

Display CloseOnExpiry for the referral.

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 & "Close On Expiry (True/False):"

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

Profile.MsgBox (aMessage)

Note: This field is disabled if the referral is marked as 'indefinite'.

In Profile Client v8 on User Interface the Close on Expiry checkbox can be checked in Patient > Patient Referrals > Open selected Referral > Management.

Version information

Added in v7.8.0