ISCase.LinkedCDOForms

Description

This function returns the collection of CDO Forms linked to the selected case.

Syntax

object.LinkedCDOForms( [aIncludeCEFs = true])

Part	Attribute	Type	Description
`object`	Required	ISCase	The `object` always implements the ISCase interface
`aIncludeCEFs`	In, Optional Default value is true	bool	If aIncludeCEFs = True, the function returns both CDO and CEF forms. Otherwise, only CDO forms are returned.

Return Value

ISCollection

Returns the collection of CDO Forms linked to the selected case.

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, the dates and time when they were opened and CDO Forms linked to them.

Dim aPatient 
Dim aFilter
Dim aCases, aCase
Dim aCDOForms, aCDOForm 
Dim i
Dim aMessage
  
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)

aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
  " = " & aCases.Count 
  
for i = 0 to aCases.Count -1
  set aCase = aCases.Item(i)
  set aCDOForms = aCase.LinkedCDOForms(True)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
    " was opened on " & aCase.OpenedOn 
  if aCDOForms.Count > 0 then
    aMessage = aMessage & vbNewLine & "    Linked CDO Forms: "
    for each aCDOForm in aCDOForms
      aMessage = aMessage & vbNewLine & "       -" &_ 
        aCDOForm.Name
    next  
  end if   
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Linked CDO Forms can be found in Organisation > Work Centre > Work > Cases > Edit Case > Clinical > Forms.

Version information

Added in v7.8.0