ISCdoFormFilter.PatientId

Description

This filter property is used to load the CDO forms with the specified patient ID.

Syntax

object.PatientId

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

Return Value

int

Example

Display the number of the clinical forms loaded on the basis of the selected filter and their names.

Dim aFilter
Dim aCdoForms, aCdoForm
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCdoFormFilter
aFilter.PatientId = aPatient.Id
set aCdoForms = Profile.LoadCdoForms(aFilter) 

aMessage = "CDO Forms Count = " & aCdoForms.Count
for i = 0 to aCdoForms.Count - 1
  set aCdoForm = aCdoForms.Item(i)
  aMessage = aMessage & vbNewLine & "The name of CDO Form is " & aCdoForm.Name
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient ID cannot be found, but CDO Forms can be found in Clinical > Review Forms > Forms.

Version information

Added in v7.8.0