ISCDOFormUtils.LoadPatientForms

Description

This function loads the CDO forms of the patient.

Syntax

object.LoadPatientForms(aPatient, aFormTypes)

Part	Attribute	Type	Description
`object`	Required	ISCDOFormUtils	The `object` always implements the ISCDOFormUtils interface
`aPatient`	In, Required	ISPatient	The patient the CDO forms are linked to
`aFormTypes`	In, Required	TSCdoFormTemplateTypes	The types of the CDO forms

Return Value

ISCDOForms

Returns the CDO forms of the patient.

Example

Display the number of the CDO forms of the selected patient and their names.

Dim aPatient
Dim aCDOFormUtils
Dim aCDOForms, aCDOForm
Dim i
Dim aMessage   

Set aPatient = Profile.SelectPatient
set aCDOFormUtils = Profile.CDOFormUtils
set aCDOForms = aCDOFormUtils.LoadPatientForms(aPatient, 1 + 2 + 4 + 8)
  aMessage = "CDO Forms (Count = " & aCDOForms.Count & "):"
  for i = 0 to aCDOForms.Count - 1
    set aCDOForm = aCDOForms.Item(i) 
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCDOForm.Name
  next 
Profile.MsgBox(aMessage)

Note: In Profile Client v8 on User Interface CDO Forms can be found in Clinical > Review Forms.

Version information

Added in v7.8.0