ISReferral.Period

Description

Duration of the referral in months, calculated from the date of the first visit.

Syntax

object.Period

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

Return Value

int

Example

Display some information about the referral, including the duration of the referral in months.

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 in months:"  

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

Profile.MsgBox (aMessage)

Note: The field 'Months' disappears if the referral is marked as 'indefinite'.

In Profile Client v8 on User Interface Period can be found in Patient > Patient Referrals > Duration or Patient > Patient Referrals > Open selected Referral > Management > Months field.

Version information

Added in v7.8.0