ISCDOFormTag.FirstCreated

Description

The date and time CDO form was created.

Syntax

object.FirstCreated

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

Restriction: This property is readonly.

Return Value

DateTime

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 First Created cannot be found.

Version information

Added in v7.8.0