ISOrder.GetDTModified

Description

This function returns the date and time when the order was last modified.

Syntax

object.GetDTModified()

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

Return Value

DateTime

Returns the date and time when the order was last modified.

Example

Display the number of the orders and some information about them, including the dates and time when they were last modified.

Dim aPatient
Dim aOrdersLoader
Dim aOrders, aOrder
Dim i
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) & ") " &_
    "DT Modified: " & aOrder.GetDTModified & vbNewLine &_
    "    ID: " & aOrder.ID & vbNewLine &_
    "    GUID: " & aOrder.GUID & vbNewLine &_
    "    Patient: " & aOrder.Patient.SurnameFirstName & vbNewLine &_
    "    Clinical Detail: " & aOrder.ClinicalDetail & vbNewLine &_
    "    Dx Info: " & aOrder.DxInfo & vbNewLine &_
    "    Encounter: " & aOrder.Encounter.Date & vbNewLine &_ 
    "    Supplier Type: " & aOrder.SupplierType.Name & vbNewLine &_
    "    Supplier: " & aOrder.Supplier.FullName & vbNewLine &_
    "    Self Collect Date: " & aOrder.SelfCollectDate & vbNewLine &_
    "    Self Collect Text: " & aOrder.SelfCollectText & vbNewLine               
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface DT Modified cannot be found, but Orders can be found in Clinical > Medical Record > Past Orders.

Version information

Added in v8.4.0