ISProfile.LoadCDOFormTags

Description

This function returns CDO forms.

Syntax

object.LoadCDOFormTags(aPatientID, aCaseID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient
`aCaseID`	In, Required	int	ID of the case

Return Value

ISCDOFormTags

Returns CDO forms.

Example

Display the number of the CDO forms and some information about them.

Dim aPatientId
Dim aCaseId
Dim aResult
Dim aCDOForms, aCDOForm
Dim aMessage
Dim i

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub  

Set aCDOForms = Profile.LoadCDOFormTags(aPatientId, aCaseId)

aMessage = "CDO Forms Count = " & aCDOForms.Count & vbNewLine 

for i = 0 to aCDOForms.Count - 1
  set aCDOForm = aCDOForms.Item(i)  
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Description: " & aCDOForm.Description & vbNewLine &_
    "First Created: " & aCDOForm.FirstCreated & vbNewLine &_
    "ID: " & aCDOForm.ID & vbNewLine &_
    "URL: " & aCDOForm.URL & vbNewLine 
next                                             
                                     
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0