ISCDOForm.HRC

Example

Display the number of the CDO forms of the selected patient and some information about them, including the names of their HRCs.

Dim aPatient
Dim aCDOFormUtils
Dim aCDOForms, aCDOForm
Dim i, j
Dim aMessage
Dim aSep 
Dim aDataItems
Dim aItem

set aPatient = Profile.SelectPatient
set aCDOFormUtils = Profile.CDOFormUtils
' TSCdoFormTemplateTypes_Base + TSCdoFormTemplateTypes_CEF + 
' TSCdoFormTemplateTypes_List + TSCdoFormTemplateTypes_HTML
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 & vbNewLine &_
    aSep & " * ID: " & aCDOForm.Id & vbNewLine &_ 
    aSep & " * Patient: " & aCDOForm.Patient.SurnameFirstName & vbNewLine &_
    aSep & " * HRC Name: " & aCDOForm.HRC.Name & vbNewLine &_
    aSep & " * HRC ID: " & aCDOForm.HRC.ID & vbNewLine &_     
    aSep & " * DesignDataID: " & aCDOForm.DesignDataID & vbNewLine 
    
  if not aCDOForm.BCase is nothing then
    aMessage = aMessage & aSep & " * Case: " & aCDOForm.BCase.CaseTitle & vbNewLine
  else
    aMessage = aMessage & aSep & " * Case: - " & vbNewLine    
  end if

  set aDataItems = aCDOForm.DataItems
  aMessage = aMessage & aSep & " * Data Items Count: " & aDataItems.Count & vbNewLine &_
    aSep & " * Filled Data Items: " & vbNewLine  
  for j = 0 to aDataItems.Count - 1
    set aItem = aDataItems.Item(j)
    if aItem.Value <> "" then 
      aMessage = aMessage & vbTab & aItem.Code & " = " & aItem.Value & vbNewLine
    end if     
  next 'j
next ' i
 
Profile.MsgBox(aMessage)