ISOrderItem.WhenIsDone

Description

The date and time when the order item was actioned.

Syntax

object.WhenIsDone

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 and time when they were actioned.

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 &_
      "      -When Is Done: " & aOrderItem.WhenIsDone & vbNewLine 
  next 'j    
next 'i    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Creation When Is Done 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