ISOrderItem.CreationDate

Description

The date when the order item was created.

Syntax

object.CreationDate

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the number of the orders and some information about the order items, including the dates when they were created.

Dim aPatient
Dim aOrdersLoader
Dim aOrders, aOrder
Dim aOrderItems, aOrderItem
Dim i, j
Dim aMessage

Set aPatient = Profile.SelectPatient
set aOrdersLoader = Profile.CreateOrdersLoader
aOrdersLoader.Patient = aPatient
aOrdersLoader.ChangedSince = #01/01/2000#

set aOrders = aOrdersLoader.LoadOrders

aMessage = "Orders Count = " & aOrders.Count & vbNewLine

for i = 0 to aOrders.Count - 1
  set aOrder = aOrders.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Order: " & aOrder.GetDTModified & vbNewLine
  
  set aOrderItems = aOrder.OrderItems   
  for j = 0 to aOrderItems.Count - 1
    set aOrderItem = aOrderItems.Item(j)
    aMessage = aMessage & (i + 1) & "." & (j + 1) & " " &_
      "-Order Item Creation Date: " & aOrderItem.CreationDate & vbNewLine &_
      "      -Ad Hoc Text: " & aOrderItem.AdHocText & vbNewLine &_
      "      -Additional Info: " & aOrderItem.AdditionalInfo & vbNewLine &_
      "      -Instructions: " & aOrderItem.Instructions & vbNewLine &_
      "      -Investigation Ref: " & aOrderItem.InvestigationRef.Name & vbNewLine 
  next 'j    
next 'i    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Creation Date cannot be found, but Order Items can be found in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter.

Version information

Added in v7.8.0