ISReferral.LinkedCDOForms

Description

This function returns the CDO Forms linked to each referral of the selected patient.

Syntax

object.LinkedCDOForms()

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

Return Value

ISCollection

Returns the number of the linked CDO Forms for each referral of the selected patient.

Example

Display the number of the linked CDO Forms for each referral of the selected patient.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals, Referral
Dim aLinkedCDOForms
Dim aCDOFormsInfo
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 & "Refferred to:" & vbTab & "Linked CDO Forms:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aLinkedCDOForms = aReferral.LinkedCDOForms
  if aLinkedCDOForms is nothing then
    aCDOFormsInfo = " - "
  else 
    aCDOFormsInfo = aLinkedCDOForms.Count
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aCDOFormsInfo
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Linked CDO Forms can be found in Patient > Patient Referrals > Open selected Referral > Attachments > Forms.

Version information

Added in v7.8.0