ISLetter.LinkedCDOForms

Description

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

Syntax

object.LinkedCDOForms()

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

Return Value

ISCollection

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

Example

Display the number of the of the linked CDO Forms for each letter.

Dim aPatient
Dim aLetters, aLetter 
Dim aLinkedCDOForms
Dim aCDOFormsInfo
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage = aMessage & "Letters Count = " & aLetters.Count

for each aLetter in aLetters
  set aLinkedCDOForms = aLetter.LinkedCDOForms
  if aLinkedCDOForms is nothing then
    aCDOFormsInfo = " - "
  else 
    aCDOFormsInfo = aLinkedCDOForms.Count
  end if
  aMessage = aMessage & vbNewLine &_
    "Date: " &aLetter.Date & "   " & vbNewLine &_
    "Recipient: " & aLetter.Recipient & vbNewLine &_
    "Linked CDO Forms: " & aCDOFormsInfo & vbNewLine
next 

Profile.MsgBox (aMessage)

Note: In Profile Client v8 on User Interface CDO Forms can be linked in Clinical > Medical Record > Documents > Open saved document > Attachments > Forms or in Organisation > Work Centre > Communication > Letters > Open saved document > Attachments > Forms.

Version information

Added in v8.4.59