ISReferral.Wait

Description

This function returns the time range (in days) between the referral date (or referral received date) and the appointment date.

Syntax

object.Wait(aWaitOffset)

Part	Attribute	Type	Description
`object`	Required	ISReferral	The `object` always implements the ISReferral interface
`aWaitOffset`	In, Required	TSRefWaitDaysOffset	The referral date or the referral received date

Return Value

DateTime

Returns the time range (in days) between the referral date (or referral received date) and the appointment date.

Example

Display some information about the referral, including the time range (in days) between the referral date (or referral received date) and the appointment date.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aApp
Dim aBookDate
Dim aWaitDT
Dim aWaitDTStr
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 &  "Received On:" & vbTab &_  
  "Referred To:" & vbTab & "Appointment Book Time:" & vbTab & "Wait (days):"   

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aApp = aReferral.Appointment
  if not aApp is nothing then 
    aBookDate = aApp.BookTime
    aWaitDT = aReferral.Wait(1)
    aWaitDTStr = 1 * aWaitDT    
  else
    aBookDate = " ---------- "
    aWaitDTStr = " - "
  end if   
  
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & vbTab &_
    aReferral.ReceivedOn & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aBookDate & vbTab &_
    aWaitDTStr 
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Wait can be found in Patient > Patient Referrals > Wait - to Appt Date.

Version information

Added in v7.8.0