ISOrdersLoader.LoadOrders

Description

This function loads the collection of orders.

Syntax

object.LoadOrders()

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

Return Value

ISCollection

Returns the collection of orders.

Example

Display the number of the orders and some information about them.

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 Orders can be found in Clinical > Medical Record > Past Orders.

Version information

Added in v8.4.0