ISReferral.IsIndefinePeriod

Description

This property is True if it is necessary to make the referral indefinite.

Syntax

object.IsIndefinePeriod

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

Return Value

bool

Example

Display IsIndefinePeriod 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 & "Is Indefine Period(True/False):"

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

Profile.MsgBox (aMessage)

Note: If this box is checked, the Months fields will automatically be cleared, and Close on Expiry will become disabled.

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

Version information

Added in v7.8.0