ISReferral.LinkedDocuments

Description

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

Syntax

object.LinkedDocuments

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

Restriction: This property is readonly.

Return Value

ISCDOTransactions

Returns the number of the linked documents for each referral of the selected patient.

Example

Display the number of the linked documents for each referral.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aLinkedDocuments
Dim aDocumentsInfo
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 Documents:"

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

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0