ISOrder.SelfCollectDate

Description

The date of the collection of the order.

Syntax

object.SelfCollectDate

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the number of the orders and some information about them, including the dates of their collection.

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 Self Collect Date can be found in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter > Pathology/Radiology/Other Ix > Collect > Date.

Version information

Added in v7.8.0