ISCDOFormTag.Description

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)